read-number-string ( first-char -- string )

Vocabulary

pbrt.private

Inputs

first-char

an object

Outputs

string

an object

Definition

USING: kernel sequences strings ;

IN: pbrt.private

: read-number-string ( first-char -- string )
    1string
    [ pbrt-read1 dup [ dup number-char? ] [ f ] if ]
    [ 1string append ] while [ save-char ] when* ;