notwa/mm
1
0
Fork 0
mirror of https://github.com/notwa/mm synced 2024-11-05 00:19:02 -08:00
Code Issues Releases Wiki Activity

update lips

Browse source
This commit is contained in:
Connor Olding 2015-12-19 10:17:53 -08:00
parent d5c7097713
commit 7edf81077a
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
Lua/inject/lips.lua
View file

@ -698,7 +698,7 @@ end
function Lexer:lex(_yield)
local function yield(tt, tok)
return _yield(tt, tok, self.fn)
return _yield(tt, tok, self.fn, self.line)
end
while true do
if self.chr == '\n' then
@ -840,7 +840,6 @@ end
function Parser:number()
if self.tt ~= 'NUM' then
-- FIXME: self.line can be nil in DEFINEs
self:error('expected number')
end
local value = self.tok
@ -1256,7 +1255,6 @@ end
function Parser:tokenize(asm)
self.tokens = {}
self.i = 0
local line = 1
local routine = coroutine.create(function()
local lexer = Lexer(asm, self.main_fn, self.options)
@ -1264,8 +1262,8 @@ function Parser:tokenize(asm)
end)
local function lex()
local t = {line=line}
local ok, a, b, c = coroutine.resume(routine)
local t = {}
local ok, a, b, c, d = coroutine.resume(routine)
if not ok then
a = a or 'Internal Error: lexer coroutine has stopped'
error(a)
@ -1273,8 +1271,9 @@ function Parser:tokenize(asm)
t.tt = a
t.tok = b
t.fn = c
t.line = d
table.insert(self.tokens, t)
return t.tt, t.tok, t.fn
return t.tt, t.tok, t.fn, t.line
end
-- first pass: collect tokens and constants.
@ -1284,21 +1283,22 @@ function Parser:tokenize(asm)
-- this would cause a recursive problem to solve,
-- which is too much for our simple assembler.
while true do
local tt, tok, fn = lex()
local tt, tok, fn, line = lex()
if tt == 'DEF' then
local tt2, tok2 = lex()
if tt2 ~= 'NUM' then
self:error('expected number')
self.fn = fn
self.line = line
self:error('expected number for define')
end
self.defines[tok] = tok2
elseif tt == 'EOL' then
line = line + 1
-- noop
elseif tt == 'EOF' then
if fn == self.main_fn then
break
end
elseif tt == nil then
--require("pt"){self.tokens, writer=print}
error('Internal Error: missing token', 1)
end
end