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

!ArithmeticValue methodsFor:'converting'!

asQDouble

    "return a QDouble with same value"

    ^ self asFloat asQDouble

    "

     123 asQDouble

    "

    "Created: / 13-06-2017 / 16:48:24 / cg"

! !

!ArithmeticValue methodsFor:'double dispatching'!

differenceFromQDouble:aQDouble

    "aQDouble does not know how to subtract the receiver -

     retry the operation by coercing to higher generality"

    ^ aQDouble retry:#- coercing:self

    "Created: / 13-06-2017 / 08:55:38 / cg"

! !

!ArithmeticValue methodsFor:'double dispatching'!

equalFromQDouble:aQDouble

    "aQDouble does not know how to compare to the receiver -

     retry the operation by coercing to higher generality"

    ^ aQDouble retry:#= coercing:self

    "Created: / 13-06-2017 / 08:55:30 / cg"

! !

!ArithmeticValue methodsFor:'double dispatching'!

lessFromQDouble:aQDouble

    "aQDouble does not know how to compare to the receiver -

     Return true if aQDouble < self.

     retry the operation by coercing to higher generality"

    ^ aQDouble retry:#< coercing:self

    "Created: / 13-06-2017 / 08:55:20 / cg"

! !

!ArithmeticValue methodsFor:'double dispatching'!

productFromQDouble:aQDouble

    "aQDouble does not know how to multiply the receiver -

     retry the operation by coercing to higher generality"

    ^ aQDouble retry:#* coercing:self

    "Created: / 13-06-2017 / 08:55:07 / cg"

! !

!ArithmeticValue methodsFor:'double dispatching'!

quotientFromQDouble:aQDouble

    "aQDouble does not know how to divide by the receiver -

     retry the operation by coercing to higher generality"

    ^ aQDouble retry:#/ coercing:self

    "Created: / 13-06-2017 / 08:54:55 / cg"

! !

!ArithmeticValue methodsFor:'double dispatching'!

remainderFromQDouble:aQDouble

    "aQDouble does not know how to compute the remainder with the receiver -

     retry the operation by coercing to higher generality"

    ^ aQDouble retry:#rem: coercing:self

    "Created: / 13-06-2017 / 08:54:47 / cg"

! !

!ArithmeticValue methodsFor:'double dispatching'!

sumFromQDouble:aQDouble

    "aQDouble does not know how to add the receiver -

     retry the operation by coercing to higher generality"

    ^ aQDouble retry:#+ coercing:self

    "Created: / 13-06-2017 / 08:54:27 / cg"

! !

!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 don't 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 (i.e actually, this is more like an sprintf).

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

    |aStream|

    aStream := CharacterWriteStream on:(self species uninitializedNew:self size).

    self printf:args on:aStream.

    ^ aStream contents

    "

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

     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"

! !

!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 (i.e actually, this is more like an sprintf)."

    ^ self printf:(Array with:arg1)

    "

     ('%05x' printfWith:123)

     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 (i.e actually, this is more like an sprintf)."

    ^ 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 (i.e actually, this is more like an sprintf)."

    ^ 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 (i.e actually, this is more like an sprintf)."

    ^ 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"

! !

!CharacterArray methodsFor:'private'!

    "Interpret the required number of arguments from <argStream>

     Place the interpretation on <outStream>.

     The interpretation is C printf(3) style, as

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

     $%, and a complete control string is assumed available.

     Return when the conversion control string is consumed.

     specification, and error checking is minimal.  Unexpected

     results will be obtained by illegal control strings, or when

     argument types do not match conversion codes, but it probably

     won't dump core, like C does in such cases!!

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

! !

!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:[