next-word/f ( sequence-parser -- sequence-parser string/f )

Vocabulary

lint.vocabs.private

Inputs

sequence-parser

an object

Outputs

sequence-parser	an object
string/f	an object

Definition

USING: combinators kernel ;

IN: lint.vocabs.private

: next-word/f
    ( sequence-parser -- sequence-parser string/f )
    dup next-token {
        { "" [ f ] }
        { "FROM:" [ ";" skip-after f ] }
        { "SYMBOLS:" [ ";" skip-after f ] }
        { "R/" [ "/" skip-after f ] }
        { "(" [ ")" skip-after f ] }
        { "IN:" [ skip-token f ] }
        { "SYMBOL:" [ skip-token f ] }
        { ":" [ skip-token f ] }
        { "POSTPONE:" [ skip-token f ] }
        { "\\" [ skip-token f ] }
        { "CHAR:" [ skip-token f ] }
        { "!" [ next-line f ] }
        { "((" [ "))" skip-after f ] }
        { "/*" [ "*/" skip-after f ] }
        { "![[" [ "]]" skip-after f ] }
        { "![=[" [ "]=]" skip-after f ] }
        { "![==[" [ "]==]" skip-after f ] }
        { "![===[" [ "]===]" skip-after f ] }
        { "![====[" [ "]====]" skip-after f ] }
        { "![=====[" [ "]=====]" skip-after f ] }
        { "![======[" [ "]======]" skip-after f ] }
        { "STRING:" [ ";" skip-after f ] }
        { "[[" [ "]]" skip-after f ] }
        { "[=[" [ "]=]" skip-after f ] }
        { "[==[" [ "]==]" skip-after f ] }
        { "[===[" [ "]===]" skip-after f ] }
        { "[====[" [ "]====]" skip-after f ] }
        { "[=====[" [ "]=====]" skip-after f ] }
        { "[======[" [ "]======]" skip-after f ] }
        { "EBNF[[" [ "]]" skip-after f ] }
        { "EBNF[=[" [ "]=]" skip-after f ] }
        { "EBNF[==[" [ "]==]" skip-after f ] }
        { "EBNF[===[" [ "]===]" skip-after f ] }
        { "EBNF[====[" [ "]====]" skip-after f ] }
        { "EBNF[=====[" [ "]=====]" skip-after f ] }
        { "EBNF[======[" [ "]======]" skip-after f ] }
        { "!AUTHOR" [ next-line f ] }
        { "!BROKEN" [ next-line f ] }
        { "!BUG" [ next-line f ] }
        { "!FIXME" [ next-line f ] }
        { "!LICENSE" [ next-line f ] }
        { "!LOL" [ next-line f ] }
        { "!NOTE" [ next-line f ] }
        { "!REVIEW" [ next-line f ] }
        { "!TODO" [ next-line f ] }
        { "!XXX" [ next-line f ] }
        [ ]
    } case ?handle-string ;