"{ Package: 'stx:libbasic2' }"

"{ NameSpace: Smalltalk }"

Object subclass:#PrintfScanf

	instanceVariableNames:''

	classVariableNames:'Singleton'

	poolDictionaries:''

	category:'System-Support'

!

!PrintfScanf class methodsFor:'documentation'!

documentation

"   

    Contributed by Jan Steinman donated to the community in 1989.

    Provided AS-IS - no warranty, use at your own risk.

    Original comment:

        NAME            printf-scanf

        AUTHOR          Jan Steinman <jans@tekgvs.labs.tek.com>

        FUNCTION        printf and scanf for Smalltalk

        ST-VERSIONS     Tek 2.2.2a 4.0

        PREREQUISITES   CharacterComparing

        CONFLICTS       

        DISTRIBUTION    world

        VERSION         1.1

        DATE            Apr 1989?

        SUMMARY 

    The following methods implement printf and scanf functionality.  They

    are intended to be used to ease porting between Smalltalk and C, and

    for facilitating machine-machine communication.  They are not at all

    intended as replacements for Smalltalk's printOn: functionality.

    Jan Steinman - N7JDB

    Tektronix Electronic Systems Laboratory

    Box 500, MS 50-370, Beaverton, OR 97077

    (w)503/627-5881 (h)503/657-7703

    changes:

        slight changes to make it work with higher precision real numbers

        (i.e. asking for the precision instead of hard-coding it)

"

!

examples

"

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

            -> '0xabcd 0xEF 005    ghijk'

    self printf:'%- 10.4s%.2e' arguments: { 'abcdefghijkl' . Float pi }  

            -> ' abcd      3.14e0'

    self printf:'%8.3f' arguments: { 200 sqrt negated }

            -> ' -14.142'

    self printf:'%8.3f' on:Transcript arguments: { 200 sqrt negated }

    self printf:'%10.4f' on:Transcript arguments: { 200 sqrt negated }

    self printf:'%20.10f' on:Transcript arguments: { 200 sqrt negated }

    self printf:'%20.10f' on:Transcript arguments: { 1.234567890123456789f  }

    self printf:'%20.10f' on:Transcript arguments: { 1.234567890123456789q  }

    self printf:'%x' arguments: #(16r41)        -> '41' 

    self printf:'%#x' arguments: #(16r41)       -> '0x41'

    self printf:'%d' arguments: #(16r41)        -> '65'

    self printf:'%b' arguments: #(16r41)        -> '1000001'

    self printf:'%c' arguments: #(16r41)        -> 'A'

    self printf:'%c' arguments: #( $A )         -> 'A'

    self printf:'%s' arguments: #( $A )         -> 'A'

    self printf:'%s' arguments: #( 'hello' )    -> 'hello'

    self printf:'%4s' arguments: #( 'hello' )   -> 'hello'

    self printf:'%7s' arguments: #( 'hello' )   -> '  hello'

    self sscanf:'%f%2s%s%s%s' fromString: '237.0 this is a test' 

            -> OrderedCollection(237.0 'th' 'is' 'is' 'a')

    self sscanf:'%d%f%s' fromString: '25 54.32e-01 monday'

            -> OrderedCollection(25 5.432 'monday')

    self sscanf:'%f%*f %8[A-F0-9]%c%d 0x%x%f' fromString: '12.45 1048.73 AE40Z527 0x75BCD15 34' 

            -> OrderedCollection(12.45 'AE40' 'Z' 527 123456789 34.0)

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

            -> '0xabcd 0xEF 005    ghijk'

    '%- 10.4s%.2e' printf: { 'abcdefghijkl' . Float pi }  

            -> ' abcd      3.14e0'

    '%8.3f' printf: { 200 sqrt negated }

            -> ' -14.142'

    '%c' printf: #(16r41)

            -> 'A'

    '%f%2s%s%s%s' sscanf: '237.0 this is a test' 

            -> OrderedCollection(237.0 'th' 'is' 'is' 'a')

    '%d%f%s' sscanf: '25 54.32e-01 monday'

            -> OrderedCollection(25 5.432 'monday')

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

            -> OrderedCollection(12.45 'AE40' 'Z' 527 123456789 34.0)

"

! !

!PrintfScanf class methodsFor:'instance creation'!

new

    Singleton isNil ifTrue:[

        Singleton := self basicNew

    ].    

    ^ Singleton

! !

!PrintfScanf class methodsFor:'printing'!

printArgFrom:formatStream to:outStream arguments:argStream

    "Interpret the required number of arguments from <argStream>

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

     Return when the conversion control string is consumed.  

     Leave <formatStream> pointing past the last character in the conversion control string.

     This code assumes that <formatStream> is formatted according to

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

    ljust := plus := pound := false.

    width := 0.

    "/ precision := SmallInteger maxVal.

    precision := nil.

    pad := $ .

    char := formatStream peek.

    char == $% ifTrue:[ 

        ^ outStream nextPut: formatStream next

    ].

    char == $- ifTrue:[

        ljust := true.  

        formatStream next.  

        char := formatStream peek

    ].

    char == $  ifTrue:[

        outStream space.  

        formatStream next.  

        char := formatStream peek

    ].

    char == $+ ifTrue:[

        plus := true.  

        formatStream next. 

        char := formatStream peek

    ].

    char == $# ifTrue:[

        pound := true.  

        formatStream next.  

        char := formatStream peek

    ].

    char == $* ifTrue:[

        formatStream next.  

        char := formatStream peek

    ].

    char isDigit ifTrue:[

        char == $0 ifTrue: [pad := $0].

        width := Integer readFrom: formatStream.  

        char := formatStream peek

    ].

    char == $. ifTrue:[

        formatStream next.  char := formatStream peek.

        char == $*

            ifFalse: [precision := Integer readFrom: formatStream.].

        char := formatStream peek

    ].

    char == $l ifTrue:[

        "Ignore long specifier."

        formatStream next.  char := formatStream peek

    ].

    ('feg' includes: char) ifTrue:[

        arg isLimitedPrecisionReal ifTrue:[

            precision := precision ? (arg class defaultPrintPrecision).

        ] ifFalse:[ 

            arg := arg asFloat.

            precision := precision ? (Float defaultPrintPrecision).

        ].    

        argString := WriteStream on:''.

        char == $g ifTrue: [ 

            self absPrintFloat:arg on: argString digits: precision + 1 ].

        char == $f ifTrue: [ 

            self absDecimalPrintFloat:arg on: argString digits: precision + arg abs log10 + 1].

        char == $e ifTrue: [

            self absScientificPrintFloat:arg on: argString digits: precision + 1].

        argString := argString contents.

        arg < 0

            ifTrue: [argString := '-', argString]

            ifFalse: [plus ifTrue: [argString := '+', argString]].

        (precision = 0 and: [pound not]) ifTrue:[

            (argString includes: $e)

                ifTrue: ["self halt"]

                ifFalse: [

                    argString := arg truncated printString]].

        pound ifTrue:[

            (argString includes: $e)

                ifTrue: ["self halt"]

                ifFalse:[

                    precision - (argString size - (argString indexOf: $.)) 

                        timesRepeat:[

                            argString := argString, '0']]].

        ljust ifTrue: [outStream nextPutAll: argString].

        width - argString size timesRepeat: [outStream nextPut: pad].

        ljust ifFalse: [outStream nextPutAll: argString].

        ^ formatStream next

    ].

    char == $c ifTrue:[

    ].

    char == $s ifTrue:[

        "Assume the arg is a String or Symbol."

    ].

    char == $d ifTrue:[

        plus ifTrue: [arg := '+', arg]

    ].

    char == $u ifTrue:[

    ].

    char == $o ifTrue:[

        pound ifTrue: [arg := '0', arg]

    ].

    ('xX' includes: char) ifTrue:[

        pound ifTrue: [arg := '0x', arg]

    ].

    ('bB' includes: char) ifTrue:[

        pound ifTrue: [arg := '0b', arg]

    ].

    char == $x ifTrue:[

        1 to: arg size do: [:i |

            ('ABCDEF' includes: (arg at: i)) ifTrue:[

                arg at: i put: (arg at: i) asLowercase

            ]

        ]

    ].

    precision := precision ? arg size.

    ljust ifTrue: [outStream nextPutAll: (arg copyFrom: 1 to: precision)].

    width - precision timesRepeat: [outStream nextPut: pad].

    ljust ifFalse: [outStream nextPutAll: (arg copyFrom: 1 to: precision)].

    ^ formatStream next

!

printf:formatString argument:arg 

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

     as described in the UTek manual page for printf(3)."

    ^ self printf:formatString arguments:{ arg }

    "

     self printf:'%e' on:Transcript argument:(1.234 asShortFloat)

     self printf:'%e' on:Transcript argument:(1.234 asFloat)     

     self printf:'%e' on:Transcript argument:(1.234 asLongFloat) 

     self printf:'%e' on:Transcript argument:(1.234 asQDouble)   

     self printf:'%e' on:Transcript argument:(1.234 asInteger)   

     self printf:'%10e' on:Transcript argument:(1.234 asShortFloat)

     self printf:'%10e' on:Transcript argument:(1.234 asFloat)     

     self printf:'%10e' on:Transcript argument:(1.234 asLongFloat) 

     self printf:'%10e' on:Transcript argument:(1.234 asQDouble)   

     self printf:'%10e' on:Transcript argument:(1.234 asInteger)   

     self printf:'%010e' on:Transcript argument:(1.234 asInteger)   

     self printf:'%-10e' on:Transcript argument:(1.234 asInteger)   

     self printf:'%10.9f' on:Transcript argument:(1.2345 asShortFloat)

     self printf:'%10.9f' on:Transcript argument:(1.2345 asFloat)     

     self printf:'%10.9f' on:Transcript argument:(1.2345 asLongFloat) 

     self printf:'%10.9f' on:Transcript argument:(1.2345 asQDouble)   

     self printf:'%10.9f' on:Transcript argument:(1.2345 asInteger)   

    "

    "Created: / 16-06-2017 / 14:50:08 / cg"

!

printf:formatString arguments:args 

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

     as described in the UTek manual page for printf(3)."

    |aStream|

    aStream := WriteStream on:(formatString species new:100).

    self printf:formatString on:aStream arguments:args.

    ^ aStream contents

    "

     self printf:'%e' on:Transcript arguments:{ (1.234 asShortFloat) }

     self printf:'%e' on:Transcript arguments:{ (1.234 asFloat)      }

     self printf:'%e' on:Transcript arguments:{ (1.234 asLongFloat)  }

     self printf:'%e' on:Transcript arguments:{ (1.234 asQDouble)    }

     self printf:'%e' on:Transcript arguments:{ (1.234 asInteger)    }

     self printf:'%10e' on:Transcript arguments:{ (1.234 asShortFloat) }

     self printf:'%10e' on:Transcript arguments:{ (1.234 asFloat)      }

     self printf:'%10e' on:Transcript arguments:{ (1.234 asLongFloat)  }

     self printf:'%10e' on:Transcript arguments:{ (1.234 asQDouble)    }

     self printf:'%10e' on:Transcript arguments:{ (1.234 asInteger)    }

     self printf:'%010e' on:Transcript arguments:{ (1.234 asInteger)    }

     self printf:'%-10e' on:Transcript arguments:{ (1.234 asInteger)    }

     self printf:'%10.9f' on:Transcript arguments:{ (1.2345 asShortFloat) }

     self printf:'%10.9f' on:Transcript arguments:{ (1.2345 asFloat)      }

     self printf:'%10.9f' on:Transcript arguments:{ (1.2345 asLongFloat)  }

     self printf:'%10.9f' on:Transcript arguments:{ (1.2345 asQDouble)    }

     self printf:'%10.9f' on:Transcript arguments:{ (1.2345 asInteger)    }

    "

    "Modified: / 19-06-2017 / 15:21:34 / cg"

!

printf:formatString on:outStream argument: arg

    "Format and print formatString on <outStream> with <arg>

     formatted in C style, as described in the UTek manual page for

     printf(3)."     

    ^ self printf:formatString on:outStream arguments:{ arg }

    "

     self printf:'%e' on:Transcript argument:(1.234 asShortFloat). Transcript cr.

     self printf:'%e' on:Transcript argument:(1.234 asFloat)     . Transcript cr.

     self printf:'%e' on:Transcript argument:(1.234 asLongFloat) . Transcript cr.

     self printf:'%e' on:Transcript argument:(1.234 asQDouble)   . Transcript cr.

     self printf:'%e' on:Transcript argument:(1.234 asInteger)   . Transcript cr.

     self printf:'%10e' on:Transcript argument:(1.234 asShortFloat). Transcript cr.

     self printf:'%10e' on:Transcript argument:(1.234 asFloat)     . Transcript cr.

     self printf:'%10e' on:Transcript argument:(1.234 asLongFloat) . Transcript cr.

     self printf:'%10e' on:Transcript argument:(1.234 asQDouble)   . Transcript cr.

     self printf:'%10e' on:Transcript argument:(1.234 asInteger)   . Transcript cr.

     self printf:'%010e' on:Transcript argument:(1.234 asInteger)  . Transcript cr.

     self printf:'%-10e' on:Transcript argument:(1.234 asInteger)  . Transcript cr.

     self printf:'%10.9f' on:Transcript argument:(1.2345 asShortFloat). Transcript cr.

     self printf:'%10.9f' on:Transcript argument:(1.2345 asFloat)     . Transcript cr.

     self printf:'%10.9f' on:Transcript argument:(1.2345 asLongFloat) . Transcript cr.

     self printf:'%10.9f' on:Transcript argument:(1.2345 asQDouble)   . Transcript cr.

     self printf:'%10.9f' on:Transcript argument:(1.2345 asInteger)   . Transcript cr.

    "

    "Created: / 16-06-2017 / 14:50:40 / cg"

    "Modified (comment): / 19-06-2017 / 15:07:22 / cg"

!

printf:aFormatString on:outStream arguments: args

    "Format and print aFormatString on <outStream> with <args>

     formatted in C style, as described in the UTek manual page for

     printf(3)."     

    argStream := ReadStream on: args.

        ] ifTrue: [

        ]

    ]

    "

     self printf:'%10e' on:Transcript arguments:{ (1.234 asShortFloat) }

     self printf:'%10e' on:Transcript arguments:{ (1.234 asFloat)      }

     self printf:'%10e' on:Transcript arguments:{ (1.234 asLongFloat)  }

     self printf:'%10e' on:Transcript arguments:{ (1.234 asQDouble)    }

     self printf:'%10e' on:Transcript arguments:{ (1.234 asInteger)    }

     self printf:'%010e' on:Transcript arguments:{ (1.234 asInteger)    }

     self printf:'%-10e' on:Transcript arguments:{ (1.234 asInteger)    }

     self printf:'%10.9f' on:Transcript arguments:{ (1.2345 asShortFloat) }

     self printf:'%10.9f' on:Transcript arguments:{ (1.2345 asFloat)      }

     self printf:'%10.9f' on:Transcript arguments:{ (1.2345 asLongFloat)  }

     self printf:'%10.9f' on:Transcript arguments:{ (1.2345 asQDouble)    }

     self printf:'%10.9f' on:Transcript arguments:{ (1.2345 asInteger)    }

    "

! !