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

use locals

Browse source
This commit is contained in:
Connor Olding 2015-12-27 02:06:18 -08:00
parent 73920dd31d
commit 5f9be52d35
1 changed files with 23 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
lips.lua
View file

@ -12,7 +12,12 @@ local assembler = {
]],
}
local byte = string.byte
local char = string.char
local find = string.find
local format = string.format
local floor = math.floor
local insert = table.insert
local Class = function(inherit)
local class = {}
@ -505,7 +510,7 @@ function Parser:init(writer, fn, options)
end
function Lexer:error(msg)
error(string.format('%s:%d: Error: %s', self.fn, self.line, msg), 2)
error(format('%s:%d: Error: %s', self.fn, self.line, msg), 2)
end
function Lexer:nextc()
@ -522,22 +527,22 @@ function Lexer:nextc()
self.line = self.line + 1
end
self.ord = string.byte(self.asm, self.pos)
self.ord = byte(self.asm, self.pos)
self.pos = self.pos + 1
-- handle newlines; translate CRLF to LF
if self.ord == 13 then
if self.pos <= #self.asm and string.byte(self.asm, self.pos) == 10 then
if self.pos <= #self.asm and byte(self.asm, self.pos) == 10 then
self.pos = self.pos + 1
end
self.ord = 10
end
self.chr = string.char(self.ord)
self.chr = char(self.ord)
if self.pos <= #self.asm then
self.ord2 = string.byte(self.asm, self.pos)
self.chr2 = string.char(self.ord2)
self.chrchr = string.char(self.ord, self.ord2)
self.ord2 = byte(self.asm, self.pos)
self.chr2 = char(self.ord2)
self.chrchr = char(self.ord, self.ord2)
else
self.ord2 = self.EOF
self.chr2 = ''
@ -553,7 +558,7 @@ end
function Lexer:read_chars(pattern)
local buff = ''
while string.find(self.chr, pattern) do
while find(self.chr, pattern) do
buff = buff..self.chr
self:nextc()
end
@ -820,7 +825,7 @@ function Lexer:lex(_yield)
end
function Parser:error(msg)
error(string.format('%s:%d: Error: %s', self.fn, self.line, msg), 2)
error(format('%s:%d: Error: %s', self.fn, self.line, msg), 2)
end
function Parser:advance()
@ -1097,11 +1102,11 @@ function overrides.PUSH(self, name)
self:error("can't push a negative number of spaces")
end
for i=1,self.tok do
table.insert(stack, '')
insert(stack, '')
end
self:advance()
else
table.insert(stack, self:register())
insert(stack, self:register())
end
if not self:is_EOL() then
self:optional_comma()
@ -1314,7 +1319,7 @@ function Parser:tokenize(asm)
t.tok = b
t.fn = c
t.line = d
table.insert(self.tokens, t)
insert(self.tokens, t)
return t.tt, t.tok, t.fn, t.line
end
@ -1389,7 +1394,7 @@ function Parser:parse(asm)
end
function Dumper:error(msg)
error(string.format('%s:%d: Error: %s', self.fn, self.line, msg), 2)
error(format('%s:%d: Error: %s', self.fn, self.line, msg), 2)
end
function Dumper:advance(by)
@ -1398,7 +1403,7 @@ end
function Dumper:push_instruction(t)
t.kind = 'instruction'
table.insert(self.commands, t)
insert(self.commands, t)
self:advance(4)
end
@ -1435,7 +1440,7 @@ function Dumper:add_bytes(line, ...)
t[t.size] = b
end
if not use_last then
table.insert(self.commands, t)
insert(self.commands, t)
end
self:advance(t.size)
end
@ -1458,7 +1463,7 @@ function Dumper:add_directive(line, name, a, b)
elseif name == 'ORG' then
t.kind = 'goto'
t.addr = a
table.insert(self.commands, t)
insert(self.commands, t)
self.pos = a % 0x80000000
self:advance(0)
elseif name == 'ALIGN' then
@ -1472,13 +1477,13 @@ function Dumper:add_directive(line, name, a, b)
local temp = self.pos + align - 1
t.skip = temp - (temp % align) - self.pos
t.fill = t.fill or 0
table.insert(self.commands, t)
insert(self.commands, t)
self:advance(t.skip)
elseif name == 'SKIP' then
t.kind = 'ahead'
t.skip = a
t.fill = b
table.insert(self.commands, t)
insert(self.commands, t)
self:advance(t.skip)
else
self:error('unimplemented directive')