[squeak-dev] The Trunk: Multilingual-cbc.47.mcz

Andreas Raab uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-cbc.47.mcz

==================== Summary ====================

Name: Multilingual-cbc.47
Author: cbc
Time: 9 September 2009, 10:52:28 am
UUID: 56ff94d0-d886-3e4a-9c08-ca44ff2a57c2
Ancestors: Multilingual-ar.46

Improved speed of Unicode class>>digitValue: by roughly 26%, which is very significant when doing heavy conversions of strings to numbers.  Should still be multilingual compatible.

=============== Diff against Multilingual-ar.46 ===============

Item was changed:
  ----- Method: MultiByteFileStream>>upTo: (in category 'public') -----
  upTo: delim
 
  | out ch |
+ out := WriteStream on: ((self isBinary ifTrue: [ByteArray] ifFalse: [String]) new: 1000).
- out := WriteStream on: (String new: 1000).
  self atEnd ifTrue: [^ ''].
  [(ch := self next) isNil] whileFalse: [
  (ch = delim) ifTrue: [
  ^ out contents  "terminator is not doubled; we're done!!"
  ].
  out nextPut: ch.
  ].
  ^ out contents.
  !

Item was changed:
  ----- Method: Unicode class>>digitValue: (in category 'class methods') -----
  digitValue: char
+ "2009-09-02 CBC - Speedup the initial ASCII part of the conversion; leave the rest as is."
-
  | value |
+ value := ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' indexOf: self) - 1.
+ value >= 0 ifTrue: [^value].
+
  value := char charCode.
- value <= $9 asciiValue
- ifTrue: [^value - $0 asciiValue].
- value >= $A asciiValue
- ifTrue: [value <= $Z asciiValue ifTrue: [^value - $A asciiValue + 10]].
-
  value > (DecimalProperty size - 1) ifTrue: [^ -1].
  ^ (DecimalProperty at: value+1)
  !

Item was removed:
- LanguageEnvironment subclass: #JapaneseEnvironment
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Multilingual-Languages'!