Smalltalk interchangeVersion: '1.0'!
Class named: 'SixxSetting'
superclass: 'Object'
indexedInstanceVariables: #none
instanceVariableNames: ''
classVariableNames: ''
sharedPools: ''
classInstanceVariableNames: 'useCDATA '!
Annotation key: 'package' value: 'SIXX-Core'!
SixxXmlUtil classMethod!
convertWriteXmlText: aString on: aWriteStream
| cDict wStr |
cDict := self convertCharDict.
wStr := aWriteStream.
aString
do: [:eachChar |
| val |
val := eachChar asciiValue.
val >= 127
ifTrue: [wStr nextPutAll: '';
nextPutAll: val printString;
nextPut: $;]
ifFalse: [| conv |
conv := cDict
at: val
ifAbsent: [].
conv isNil
ifTrue: [wStr nextPut: eachChar]
ifFalse: [wStr nextPutAll: conv]]].
^wStr!
Annotation key: 'category' value: 'private-initialize'!
Annotation key: 'stamp' value: 'MU 9/2/2002 02:44'!
SixxXmlUtil classMethod!
writeXmlText: aString on: aWriteStream
SixxSetting useCDATA
ifTrue: [aWriteStream nextPutAll: '']
ifFalse: [self convertWriteXmlText: aString on: aWriteStream]!
Annotation key: 'category' value: 'actions'!
Annotation key: 'stamp' value: 'MU 9/2/2002 02:24'!
SixxSetting classMethod!
useCDATA
useCDATA isNil ifTrue: [useCDATA := false].
^useCDATA!
Annotation key: 'category' value: 'actions'!
Annotation key: 'stamp' value: 'MU 9/2/2002 02:26'!
SixxSetting classMethod!
useCDATA: aBoolean
useCDATA := aBoolean!
Annotation key: 'category' value: 'actions'!
Annotation key: 'stamp' value: 'MU 9/2/2002 02:26'!
SixxGeneratingTestCase method!
testSixxStringForStringObjectUsingCDATA
| originalSetting expectedStr |
[originalSetting := SixxSetting useCDATA.
SixxSetting useCDATA: true.
expectedStr := '
'.
self
should: ['Hi, I''m String-object.
How are you?
' sixxString = expectedStr]]
ensure: [SixxSetting useCDATA: originalSetting]!
Annotation key: 'category' value: 'tests'!
Annotation key: 'stamp' value: 'MU 9/2/2002 02:37'!
SixxLoadingTestCase method!
testReadSixxForStringObjectUsingCDATA
| originalSetting sixxString string |
[originalSetting := SixxSetting useCDATA.
SixxSetting useCDATA: true.
sixxString := '
'.
string := Object readSixxFrom: sixxString.
self
should: [string = 'Hi, I''m String-object.
How are you?
']]
ensure: [SixxSetting useCDATA: originalSetting]!
Annotation key: 'category' value: 'tests'!
Annotation key: 'stamp' value: 'MU 9/2/2002 02:43'!
Metaclass method!
createInstanceOf: aClass withSixxElement: sixxElement
^ aClass isMeta
ifTrue: [aClass soleInstance]
ifFalse: [aClass]!
Annotation key: 'category' value: 'instance creation-sixx'!
Annotation key: 'stamp' value: 'MU 9/2/2002 02:46'!