Inheritance-friendly lexer type

db4
Slava Pestov 2008-04-14 03:54:34 -05:00
parent 5c94bd00b0
commit 31e6604a68
1 changed files with 7 additions and 2 deletions

View File

@ -17,9 +17,14 @@ TUPLE: lexer text line line-text line-length column ;
0 >>column
drop ;
: construct-lexer ( text class -- lexer )
construct-empty
0 >>line
swap >>text
dup next-line ; inline
: <lexer> ( text -- lexer )
0 { set-lexer-text set-lexer-line } lexer construct
dup next-line ;
lexer construct-lexer ;
: location ( -- loc )
file get lexer get lexer-line 2dup and