Factor Documentation | Home | Glossary |
factorcode.org
skip-blank ( lexer -- )
The lexer
Prev:next-line ( lexer -- )
Next:skip-word ( lexer -- )


Vocabulary
lexer

Inputs and outputs
lexera lexer


Generic word contract
Skips whitespace characters.

Notes
Custom lexers can implement this generic word.

Definition
IN: lexer

GENERIC: skip-blank ( lexer -- )


Methods
USING: lexer ;

M: lexer skip-blank [ t skip ] change-lexer-column ;


USING: accessors generic kernel lexer literate math sequences ;

M: literate-lexer skip-blank
dup column>> zero? [
dup line-text>> [
"> " head? [
[ 2 + ] change-column
M\ literate-lexer skip-blank (call-next-method)
] [ [ nip length ] change-lexer-column ] if
] [ drop ] if*
] [ M\ literate-lexer skip-blank (call-next-method) ] if ;