1060      String withoutAmpersandEscapes:'&a&&b&&c&&d&'

  1060      String withoutAmpersandEscapes:'&a&&b&&c&&d&'

  1061      String withoutAmpersandEscapes:'a&&b&&c&&d'

  1061      String withoutAmpersandEscapes:'a&&b&&c&&d'

  1062     "

  1062     "

  1063 ! !

  1063 ! !

  1064 

  1064 

  1066 !CharacterArray methodsFor:'Compatibility-ANSI'!

  1065 !CharacterArray methodsFor:'Compatibility-ANSI'!

  1067 

  1066 

  1068 addLineDelimiters

  1067 addLineDelimiters

  1069     "Ansi compatibility - same as withCRs"

  1068     "Ansi compatibility - same as withCRs"

  1070 

  1069 

  6179         ] ifFalse:[

  6178         ] ifFalse:[

  6180             |codePoint|

  6179             |codePoint|

  6181             codePoint := eachChar codePoint.

  6180             codePoint := eachChar codePoint.

  6182             ((codePoint < 16r20 and:[codePoint ~~ 9 and:[codePoint ~~ 10 and:[codePoint ~~ 13]]])

  6181             ((codePoint < 16r20 and:[codePoint ~~ 9 and:[codePoint ~~ 10 and:[codePoint ~~ 13]]])

  6183              or:[codePoint >= 16r7F]) ifTrue:[

  6182              or:[codePoint >= 16r7F]) ifTrue:[

  6185                 codePoint printOn:aStream base:16.

  6184                 codePoint printOn:aStream base:16.

  6186                 aStream nextPut:$;.

  6185                 aStream nextPut:$;.

  6187         ] ifFalse:[

  6186         ] ifFalse:[

  6188             aStream nextPut:eachChar

  6187             aStream nextPut:eachChar

  6189         ]]]]"/]]

  6188         ]]]]"/]]

  6194      String streamContents:[:s|'< & >',(Character value:7) printXmlTextQuotedOn:s]

  6193      String streamContents:[:s|'< & >',(Character value:7) printXmlTextQuotedOn:s]

  6195      String streamContents:[:s|'< & >',(Character value:129) printXmlTextQuotedOn:s]

  6194      String streamContents:[:s|'< & >',(Character value:129) printXmlTextQuotedOn:s]

  6196      String streamContents:[:s|'< & >',(Character value:1000) printXmlTextQuotedOn:s]

  6195      String streamContents:[:s|'< & >',(Character value:1000) printXmlTextQuotedOn:s]

  6197     "

  6196     "

  6198 

  6197 

  6200 !

  6199 !

  6201 

  6200 

  6202 xmlQuotedPrintString

  6201 xmlQuotedPrintString

  6203     "convert aString to a valid XML string

  6202     "convert aString to a valid XML string

  6204      that can be used for attributes, text, comments an PIs"

  6203      that can be used for attributes, text, comments an PIs"