[squeak-dev] The Trunk: XML-Parser-bf.34.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Sep 23 21:15:04 UTC 2011
Bert Freudenberg uploaded a new version of XML-Parser to project The Trunk:
http://source.squeak.org/trunk/XML-Parser-bf.34.mcz
==================== Summary ====================
Name: XML-Parser-bf.34
Author: bf
Time: 23 September 2011, 2:14:52.459 pm
UUID: 934b7516-1735-4fd2-a912-67a9188785ca
Ancestors: XML-Parser-ul.33
fix 4-year old typo (underscore is a valid char in XML names)
=============== Diff against XML-Parser-ul.33 ===============
Item was changed:
----- Method: XMLTokenizer class>>initialize (in category 'class initialization') -----
initialize
"XMLTokenizer initialize"
CharEscapes := CharacterSet newFrom: #( $& $" $' $> $< ).
SeparatorTable := CharacterSet new.
#(9 10 12 13 32) do: [:each | SeparatorTable add: each asCharacter].
+ LiteralChars := CharacterSet newFrom: #( $: $- $_ $= $.).
- LiteralChars := CharacterSet newFrom: #( $: $- $: $= $.).
0 to: 255 do: [:i |
| char |
char := i asCharacter.
(char isDigit or: [char isLetter])
ifTrue: [LiteralChars add: char]].
NameDelimiters := CharacterSet new.
#(9 10 12 13 32 61 "$= asInteger 61" 62 "$> asInteger" 47 "$/ asInteger")
do: [:each | NameDelimiters add: each asCharacter].
DigitTable := Array new: 256.
DigitTable atAllPut: -1.
($0 to: $9) do: [:each | DigitTable at: each asciiValue put: each digitValue].
($a to: $f) do: [:each | DigitTable at: each asciiValue put: each digitValue].
($A to: $F) do: [:each | DigitTable at: each asciiValue put: each digitValue].
!
More information about the Squeak-dev
mailing list
|