this in the thread spawned by Torsen's posting of Kent's most excellent rant: ttp://www.threeriversinstitute.org/blog/?p=466<http://www.threeriversinstitute.org/blog/?p=466> <http://www.threeriversinstitute.org/blog/?p=466>OK, fix is to two implementations of digitValue:. BTW, I haven't fixed Character class>>digitValue: which at least in my Teleplace image looks horribly broken, answering characters not integers. Check your distro, it may also be broken These fixes attached: 'From Croquet1.0beta of 11 April 2006 [latest update: #1] on 11 February 2010 at 1:17:50 pm'! !EncodedCharSet class methodsFor: 'class methods' stamp: 'eem 2/11/2010 13:13'! digitValue: char "Answer 0-9 if the receiver is $0-$9, 10-35 if it is $A-$Z, and < 0 otherwise. This is used to parse literal numbers of radix 2-36." | value | value := char charCode. value <= $9 asciiValue ifTrue: [^value - $0 asciiValue]. value >= $A asciiValue ifTrue: [value <= $Z asciiValue ifTrue: [^value - $A asciiValue + 10]. (value >= $a asciiValue and: [value <= $z asciiValue]) ifTrue: [^value - $a asciiValue + 10]]. ^ -1 ! ! !Unicode class methodsFor: 'class methods' stamp: 'eem 2/11/2010 13:17'! digitValue: char | value | value := char charCode. value <= $9 asciiValue ifTrue: [^value - $0 asciiValue]. value >= $A asciiValue ifTrue: [value <= $Z asciiValue ifTrue: [^value - $A asciiValue + 10]. (value >= $a asciiValue and: [value <= $z asciiValue]) ifTrue: [^value - $a asciiValue + 10]]. value > (DecimalProperty size - 1) ifTrue: [^ -1]. ^ (DecimalProperty at: value+1) ! ! 2010/2/11 Stéphane Ducasse <stephane.ducasse@inria.fr>
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project