take-c-integer ( sequence-parser -- string/f )

Vocabulary

c.lexer

Inputs

sequence-parser

an object

Outputs

string/f

an object

Definition

USING: kernel sequences sequences.parser ;

IN: c.lexer

: take-c-integer ( sequence-parser -- string/f )
    [
        dup take-integer [
            swap {
                "ull"
                "uLL"
                "Ull"
                "ULL"
                "ll"
                "LL"
                "l"
                "L"
                "u"
                "U"
            } take-longest [ append ] when*
        ] [ drop f ] if*
    ] with-sequence-parser ;