token-parser

Vocabulary

parser-combinators

Definition

IN: parser-combinators

TUPLE: token-parser string ignore-case? ;

Methods

USING: accessors kernel lists parser-combinators ;

M:: token-parser parse ( input parser -- list )
    parser string>> :> str parser ignore-case?>> :> case? str
    input str case? ?string-head
    [ <parse-results> ] [ 2drop nil ] if ;