lexer, parser cleanup; boehm gc for mac os x
This commit is contained in:
parent
aeb0506132
commit
9207492bb9
6 changed files with 104 additions and 100 deletions
|
|
@ -165,11 +165,11 @@ proc CommandScan(filename: string) =
|
|||
if stream != nil:
|
||||
var
|
||||
L: TLexer
|
||||
tok: PToken
|
||||
new(tok)
|
||||
tok: TToken
|
||||
initToken(tok)
|
||||
openLexer(L, f, stream)
|
||||
while true:
|
||||
rawGetTok(L, tok[])
|
||||
rawGetTok(L, tok)
|
||||
PrintTok(tok)
|
||||
if tok.tokType == tkEof: break
|
||||
CloseLexer(L)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue