steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/parser/parser.factor
View File

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