[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