"{ Package: 'stx:libbasic2' }"!

!CharacterArray methodsFor:'matching - phonetic'!

asKoelnerPhoneticCode

    "return a koelner phonetic code.

     The koelnerPhonetic code is for the german language what the soundex code is for english;

     it returns simular strings for similar sounding words.

     There are some differences to soundex, though:

	its length is not limited to 4, but depends on the length of the original string;

	it does not start with the first character of the input.

     Caveat: this phonetic code is especially suited for german words.

	     Please have a look at the other phonetic comparison operators found

	     in PhoneticStringUtilities."

    ^ PhoneticStringUtilities koelnerPhoneticCodeOf:self

    "

     #(

	'Müller'

	'Miller'

	'Mueller'

	'Mühler'

	'Mühlherr'

	'Mülherr'

	'Myler'

	'Millar'

	'Myller'

	'Müllar'

	'Müler'

	'Muehler'

	'Mülller'

	'Müllerr'

	'Muehlherr'

	'Muellar'

	'Mueler'

	'Mülleer'

	'Mueller'

	'Nüller'

	'Nyller'

	'Niler'

	'Czerny'

	'Tscherny'

	'Czernie'

	'Tschernie'

	'Schernie'

	'Scherny'

	'Scherno'

	'Czerne'

	'Zerny'

	'Tzernie'

	'Breschnew'

     ) do:[:w |

	 Transcript show:w; show:'->'; showCR:(w asKoelnerPhoneticCode)

     ].

    "

    "

     'Breschnew' asKoelnerPhoneticCode -> '17863'

     'Breschnew' asKoelnerPhoneticCode -> '17863'

     'Breschneff' asKoelnerPhoneticCode -> '17863'

     'Braeschneff' asKoelnerPhoneticCode -> '17863'

     'Braessneff' asKoelnerPhoneticCode -> '17863'

     'Pressneff' asKoelnerPhoneticCode -> '17863'

     'Presznäph' asKoelnerPhoneticCode -> '17863'

    "

! !

!CharacterArray methodsFor:'matching - phonetic'!

asSoundexCode

    "return a soundex phonetic code or nil.

     Soundex returns similar codes for similar sounding words, making it a useful

     tool when searching for words where the correct spelling is unknown.

     (read Knuth or search the web if you dont know what a soundex code is).

     Caveat: 'similar sounding words' means: 'similar sounding in ENGLISH'

	     Please have a look at the other phonetic comparison operators found

	     in PhoneticStringUtilities."

    ^ PhoneticStringUtilities soundexCodeOf:self

    "

     'claus' asSoundexCode

     'clause' asSoundexCode

     'close' asSoundexCode

     'smalltalk' asSoundexCode

     'smaltalk' asSoundexCode

     'smaltak' asSoundexCode

     'smaltok' asSoundexCode

     'smoltok' asSoundexCode

     'aa' asSoundexCode

     'by' asSoundexCode

     'bab' asSoundexCode

     'bob' asSoundexCode

     'bop' asSoundexCode

    "

! !

!CharacterArray methodsFor:'printing & storing'!

printf:args

    "Format and print the receiver with <args> formatted in C style,

     as specified in the Unix C-language manual page for printf(3).

     Return the resulting string.

     For copyright information, see goodies/String-printf_scanf.chg"

    |aStream|

    aStream := WriteStream on:String new.

    self printf:args on:aStream.

    ^ aStream contents

    "

     Transcript showCR:('%05x %d %f %o' printf:{ 123. 234*5. 1.234. 8r377 } )

    "

    "

     Transcript showCR: 'Some examples:'!!

     Transcript show:'''%#x %#X %03o%*.*s'' printf: #(16rABCD 16rEF 5 9 5 ''ghijklmn'') = .'.

     Transcript show: ('%#x %#X %03o%*.*s' printf: #(16rABCD 16rEF 5 9 5 'ghijklmn')).

     Transcript showCR: '.'

     Transcript show: '''%- 10.4s%.2e'' printf: (Array with: ''abcdefghijkl'' with: Float pi) = .'.

     Transcript show: ('%- 10.4s%.2e' printf: (Array with: 'abcdefghijkl' with: Float pi)).

     Transcript showCR: '.'

     Transcript show: '''%8.3f'' printf: (Array with: 200 sqrt negated) = .'.

     Transcript show: ('%8.3f' printf: (Array with: 200 sqrt negated)).

     Transcript showCR: '.'

     Transcript show: '''%c'' printf: #(16r41) = .'.

     Transcript show: ('%c' printf: #(16r41)).

     Transcript showCR: '.'

     Transcript show: '''%f%2s%s%s%s'' sscanf: ''237.0 this is a test'' = '.

     Transcript showCR: ('%f%2s%s%s%s'  sscanf: '237.0 this is a test') printString.

     Transcript show: '''%d%f%s'' sscanf: ''25 54.32e-01 monday'' = '.

     Transcript showCR: ('%d%f%s' sscanf: '25 54.32e-01 monday') printString.

     Transcript show: '''%f%*f %8[A-F0-9]%c%d 0x%x%f'' sscanf: ''12.45 1048.73 AE40Z527 0x75BCD15 34'' = '.

     Transcript showCR: ('%f%*f %8[A-F0-9]%c%d 0x%x%f' sscanf: '12.45 1048.73 AE40Z527 0x75BCD15 34') printString.

    "

! !

!CharacterArray methodsFor:'printing & storing'!

printf:args on:outStream

    "Format and print the receiver on <outStream> with <args>

     formatted in C style, as specified in the Unix C-language manual page for printf(3).

     For copyright information, see goodies/String-printf_scanf.chg"

    |argStream inStream char|

    argStream := ReadStream on:args.

    inStream := ReadStream on:self.

    [ inStream atEnd ] whileFalse:[

	(char := inStream next) == $% ifFalse:[

	    outStream nextPut:char

	] ifTrue:[

	    self

		printf_printArgFrom:inStream

		to:outStream

		withData:argStream

	]

    ]

! !

!CharacterArray methodsFor:'printing & storing'!

printfWith:arg1

    "Format and print the receiver with <arg1> formatted in C style,

     as specified in the Unix C-language manual page for printf(3).

     Return the resulting string."

    ^ self printf:(Array with:arg1)

    "

     Transcript showCR:('%05x' printfWith:123)

    "

! !

!CharacterArray methodsFor:'printing & storing'!

printfWith:arg1 with:arg2

    "Format and print the receiver with <argI> formatted in C style,

     as specified in the Unix C-language manual page for printf(3).

     Return the resulting string."

    ^ self printf:(Array with:arg1 with:arg2)

    "

     Transcript showCR:('%d %05x' printfWith:123 with:234)

    "

! !

!CharacterArray methodsFor:'printing & storing'!

printfWith:arg1 with:arg2 with:arg3

    "Format and print the receiver with <argI> formatted in C style,

     as specified in the Unix C-language manual page for printf(3).

     Return the resulting string."

    ^ self printf:(Array with:arg1 with:arg2 with:arg3)

    "

     Transcript showCR:('%d %05x %08o' printfWith:123 with:234 with:345)

    "

! !

!CharacterArray methodsFor:'printing & storing'!

printfWith:arg1 with:arg2 with:arg3 with:arg4

    "Format and print the receiver with <argI> formatted in C style,

     as specified in the Unix C-language manual page for printf(3).

     Return the resulting string."

    ^ self printf:(Array with:arg1 with:arg2 with:arg3 with:arg4)

    "

     Transcript showCR:('%d %05x %08o %b' printfWith:123 with:234 with:345 with:123)

    "

! !

!CharacterArray methodsFor:'printing & storing'!

printf_formatArgCount

    "Return the number of arguments required/produced if the receiver is interpreted

     as a printf/scanf format control string.

     For copyright information, see goodies/String-printf_scanf.chg"

    |nonConsecutive count|

    nonConsecutive := true.

    count := 0.

    self do:[:c |

	c == $% ifTrue:[

	    nonConsecutive ifTrue:[

		count := count + 1.

		nonConsecutive := false

	    ] ifFalse:[

		count := count - 1.

		nonConsecutive := true

	    ]

	] ifFalse:[

	    nonConsecutive := true

	]

    ].

    ^ count

! !

!CharacterArray methodsFor:'printing & storing'!

printf_printOn:outStream withData:args

    <resource: #obsolete>

    "Format and print the receiver on <outStream> with <args>

     formatted in C style, as specified in the Unix C-language manual page for printf(3).

     For copyright information, see goodies/String-printf_scanf.chg"

    self obsoleteMethodWarning:'use printf:on:'.

    self printf:args on:outStream

! !

!CharacterArray methodsFor:'converting'!

scanf:dataStream

    "Return a Collection of objects found in the Character Stream

     <dataStream> as interpreted according to the receiver.

     The receiver is assumed to be a conversion control string as

     specified in the Unix C-language manual page for scanf(3).

     For copyright information, see goodies/String-printf_scanf.chg"

    |results format char|

    results := OrderedCollection new.

    format := ReadStream on:self.

    [ format atEnd ] whileFalse:[

	char := format next.

	(char == Character space or:[ char == Character tab ]) ifTrue:[

	    dataStream skipSeparators.

	    format skipSeparators

	].

	char == $% ifTrue:[

	    self

		scanf_scanArgFrom:dataStream

		to:results

		format:format

	] ifFalse:[

	    dataStream peekFor:char

	]

    ].

    ^ results

    "

     '%d %x' scanf:(ReadStream on:'1234 ff00')

    "

! !

!CharacterArray methodsFor:'private'!

scanf_scanArgFrom:dataStream to:collection format:format

    "Add to <collection> an object who's representation is found

     in <dataStream> interpreted according to the conversion

     control string in the Stream <format>.

     <format> is assumed to be positioned just past a $%, and a complete control

     string is assumed available.

     Return when the conversion control string is consumed.  Leave

     <format> pointing past the last character in the conversion

     control string, leave <dataStream> pointing past any width

     specified in <format>, or at the first character that doesn't

     make sense for the <format>.

     For copyright information, see goodies/String-printf_scanf.chg"

    |final width char pos data scanset exclusive return last|

    final := [:retval |

            collection add:retval.

            data == dataStream ifFalse:[

                dataStream position:dataStream position + data position

            ].

            ^ self

        ].

    width := 0.

    char := format peek.

    char == $% ifTrue:[

        ^ dataStream peekFor:char

    ].

    char == $* ifTrue:[

        format next.

        char := format peek.

        final := [:retval |

                data == dataStream ifFalse:[

                    dataStream position:dataStream position + data position

                ].

                ^ self

            ]

    ].

    char isDigit ifTrue:[

        width := Integer readFrom:format.

        char := format peek

    ].

    ('slhduoxfeg' includes:char) ifTrue:[

        dataStream skipSeparators

    ].

    width = 0 ifTrue:[

        data := dataStream

    ] ifFalse:[

        pos := dataStream position.

        data := ReadStream on:(dataStream next:width).

        dataStream position:pos

    ].

    char == $s ifTrue:[

        final value:(data upToSeparator)

    ].

    char == $c ifTrue:[

        width = 0 ifTrue:[

            final value:(String with:data next)

        ] ifFalse:[

            final value:data contents

        ]

    ].

    char == $[ "What a mess!!" ifTrue:[

        return := WriteStream on:(String new:8).

        scanset := IdentitySet new.

        format next.

        width = 0 ifTrue:[

            width := SmallInteger maxVal

        ].

        exclusive := format peekFor:$^.

        [

            last := char.

            char := format next.

            char == $]

        ] whileFalse:[

            char == $- ifFalse:[

                scanset add:char

            ] ifTrue:[

                last to:format next do:[:c |

                    scanset add:c

                ]

            ]

        ].

        [

            data atEnd not and:[ (scanset includes:data peek) xor:exclusive ]

        ] whileTrue:[ return nextPut:data next ].

        final value:return contents

    ].

    ('lh' includes:char) ifTrue:[

        format next.

        char := format peek

    ].

    ('DUdu' includes:char) ifTrue:[

        final value:(Integer readFrom:data)

    ].

    ('FEGfeg' includes:char) ifTrue:[

        final value:(Float readFrom:data)

    ].

    ('b' includes:char) ifTrue:[

        final value:(Integer readFrom:data radix:2)

    ].

    ('Oo' includes:char) ifTrue:[

        final value:(Integer readFrom:data radix:8)

    ].

    ('Xx' includes:char) ifTrue:[

        final value:(Integer readFrom:data radix:16)

    ]

    "

     '%d %x' sscanf:'1234 ff00'

     '%d %x %b' sscanf:'1234 ff00 1001'

    "

    "Modified: / 29-11-2011 / 11:55:39 / cg"

! !

!CharacterArray methodsFor:'converting'!

sscanf:string

    "Return a Collection of objects found in <string> as

     interpreted according to the receiver.

     The receiver is assumed to be a conversion control string as

     specified in the Unix C-language manual page for scanf(3).

     For copyright information, see goodies/String-printf_scanf.chg"

    ^ self scanf:(ReadStream on:string)

    "

     '%d %x' sscanf:'1234 ff00'

     '%d %x %b' sscanf:'1234 ff00 1001'

    "

! !

!Float methodsFor:'private'!

absDecimalPrintOn:aStream digits:digits

    "Place a string representation of the receiver's abs value

     on <aStream> using <digits> significant digits, using decimal notation.

     This is a helper for printf."

    |exp x fuzz i|

    "x is myself normalized to (1.0, 10.0), exp is my exponent"

    exp := self abs < 1.0

		ifTrue:[ (10.0 / self abs) log floor negated ]

		ifFalse:[ self abs log floor ].

    x := self abs / (10.0 raisedTo:exp).

    fuzz := 10.0 raisedTo:1 - digits.

     "round the last digit to be printed"

    x := 0.5 * fuzz + x.

    x >= 10.0 "check if rounding has unnormalized x" ifTrue:[

	x := x / 10.0.

	exp := exp + 1

    ].

    exp < 0 ifTrue:[

	1 to:1 - exp do:[:j |

	    aStream nextPut:('0.000000000000' at:j)

	]

    ].

    [ x >= fuzz ] "use fuzz to track significance" whileTrue:[

	i := x truncated.

	aStream nextPut:(48 + i) asCharacter.

	x := (x - i) * 10.0.

	fuzz := fuzz * 10.0.

	exp := exp - 1.

	exp = -1 ifTrue:[

	    aStream nextPut:$.

	]

    ].

    [ exp >= -1 ] whileTrue:[

	aStream nextPut:$0.

	exp := exp - 1.

	exp = -1 ifTrue:[

	    aStream nextPut:$.

	]

    ]

! !