mirror of
https://github.com/notwa/mm
synced 2024-11-05 05:29:02 -08:00
91 lines
2.2 KiB
Lua
91 lines
2.2 KiB
Lua
|
-- split lips.lua
|
||
|
|
|
||
|
|
local assembler = {
|
||
|
|
_DESCRIPTION = 'Assembles MIPS assembly files for the R4300i CPU.',
|
||
|
|
_URL = 'https://github.com/notwa/lips/',
|
||
|
|
_LICENSE = [[
|
||
|
|
Copyright (C) 2015,2016 Connor Olding
|
||
|
|
|
||
|
|
This program is licensed under the terms of the MIT License, and
|
||
|
|
is distributed without any warranty. You should have received a
|
||
|
|
copy of the license along with this program; see the file LICENSE.
|
||
|
|
]],
|
||
|
|
}
|
||
|
|
|
||
|
|
local open = io.open
|
||
|
|
|
||
|
|
local Parser = require "lips.Parser"
|
||
|
|
|
||
|
|
local function readfile(fn)
|
||
|
|
local f = open(fn, 'r')
|
||
|
|
if not f then
|
||
|
|
error('could not open assembly file for reading: '..tostring(fn), 2)
|
||
|
|
end
|
||
|
|
local asm = f:read('*a')
|
||
|
|
f:close()
|
||
|
|
return asm
|
||
|
|
end
|
||
|
|
|
||
|
|
function assembler.word_writer()
|
||
|
|
local buff = {}
|
||
|
|
local max = -1
|
||
|
|
return function(pos, b)
|
||
|
|
if pos then
|
||
|
|
buff[pos] = b
|
||
|
|
if pos > max then
|
||
|
|
max = pos
|
||
|
|
end
|
||
|
|
elseif max >= 0 then
|
||
|
|
for i=0, max, 4 do
|
||
|
|
local a = buff[i+0] or '00'
|
||
|
|
local b = buff[i+1] or '00'
|
||
|
|
local c = buff[i+2] or '00'
|
||
|
|
local d = buff[i+3] or '00'
|
||
|
|
print(a..b..c..d)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
function assembler.assemble(fn_or_asm, writer, options)
|
||
|
|
-- assemble MIPS R4300i assembly code.
|
||
|
|
-- if fn_or_asm contains a newline; treat as assembly, otherwise load file.
|
||
|
|
-- returns error message on error, or nil on success.
|
||
|
|
fn_or_asm = tostring(fn_or_asm)
|
||
|
|
local default_writer = not writer
|
||
|
|
writer = writer or assembler.word_writer()
|
||
|
|
options = options or {}
|
||
|
|
|
||
|
|
local function main()
|
||
|
|
local fn = nil
|
||
|
|
local asm
|
||
|
|
if fn_or_asm:find('[\r\n]') then
|
||
|
|
asm = fn_or_asm
|
||
|
|
else
|
||
|
|
fn = fn_or_asm
|
||
|
|
asm = readfile(fn)
|
||
|
|
options.path = fn:match(".*/")
|
||
|
|
end
|
||
|
|
|
||
|
|
local parser = Parser(writer, fn, options)
|
||
|
|
parser:parse(asm)
|
||
|
|
|
||
|
|
if default_writer then
|
||
|
|
writer()
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
if options.unsafe then
|
||
|
|
return main()
|
||
|
|
else
|
||
|
|
local ok, err = pcall(main)
|
||
|
|
return err
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
return setmetatable(assembler, {
|
||
|
|
__call = function(self, ...)
|
||
|
|
return self.assemble(...)
|
||
|
|
end,
|
||
|
|
})
|