read-string ( size -- string )

Vocabulary

csexp

Inputs

size

an object

Outputs

string

an object

Definition

USING: ascii combinators io kernel ;

IN: csexp

: read-string ( size -- string )
    read1 {
        {
            [ dup 58 = ]
            [ drop dup 0 = [ drop "" ] [ read ] if ]
        }
        { [ dup digit? ] [ add-digit-to-num read-string ] }
        [ drop csexp-error ]
    } cond ;