hhzl / cuis-neocsv Goto Github PK

Character

isCharacter

^ true.

join: aCollection 
"'*' join: #('WWWWW' 'W  EW' 'zzzz')
    ->  'WWWWW*W  EW*zzzz' "
 "Is there a more efficient / general implementation?"

| w |       
w := WriteStream on: String new.
aCollection do: [ :elem | w nextPutAll: elem asString] separatedBy: [w nextPutAll: self].
^String fromString: w contents

join: aCollection 
"'*' join: #('WWWWW' 'W  EW' 'zzzz')
    ->  'WWWWW*W  EW*zzzz' "

| w |       
w := WriteStream on: String new.
aCollection do: [ :elem | w nextPutAll: elem asString] separatedBy: [w nextPutAll: self].
^w contents

withCRs
    "Return a copy of the receiver in which backslash (\) characters have been replaced with carriage returns."

    ^ self collect: [ :c | c = $\ ifTrue: [ Character cr ] ifFalse: [ c ]].

Symbol

value: anObject 
^anObject perform: self.

self
    assert:
        (NeoNumberParser
            parse: '-7b'
            base: 16)
    equals: -123.

assert: aBlock description: aStringOrBlock
    "Throw an assertion error if aBlock does not evaluates to true."

    aBlock value 
        ifFalse: [ AssertionFailure signal: aStringOrBlock value ]

#assert:description 

#assert:

codePoint

unicodeCodePoint

 String cr

 String crString

String crlf

String crlfString

String lf

String lfString