read-var-int ( -- n/f )

Vocabulary

fastcgi

Inputs

None

Outputs

n/f

an object

Definition

USING: endian io kernel math sequences ;

IN: fastcgi

: read-var-int ( -- n/f )
    read1
    [ dup 7 bit? [ 127 bitand 3 read swap suffix be> ] when ]
    [ f ] if* ;