This also causes the compiler to enter an infinite loop

This commit is contained in:
Aly 2021-03-09 17:04:59 -08:00
parent 1628d2ea55
commit 4852cffa0a
5 changed files with 3 additions and 519 deletions

View file

@ -1,493 +0,0 @@
do
local function P(a)
return function(b)
return { __tag = "P", a, b }
end
end
local function S(a)
return function(b)
return { __tag = "S", a, b }
end
end
local function MkSome(a)
return function(b)
return { __tag = "MkSome", a, b }
end
end
local Proxy = { __tag = "Proxy" }
local function Some(a)
return { __tag = "Some", a }
end
local DekuSticks = {
__tag = "DekuSticks"
}
local Nil = { __tag = "Nil" }
local None = { __tag = "None" }
local function _TypeRep(x)
return {
{
name = x.name .. "#" .. x.fingerprint
},
__tag = "TypeRep"
}
end
local function __eq_type_rep(tr_a, tr_b, keq, kne)
if tr_a[1].name == tr_b[1].name then
return keq()()
else
return kne()
end
end
local NoItem = { __tag = "NoItem" }
local function _Typeable_app(pair)
local ta, tb = pair._1[1], pair._2[1]
return {
{
name = "(" .. ta.name .. ") :$ (" .. tb.name .. ")"
},
__tag = "TypeRep"
}
end
local string_of_int = tostring
local function _dollardExceptionlln(tmp)
return {
from_exception = function(x)
return Some(x)
end,
["Exception$law"] = _Typeable_app({
_1 = (function(tmp0)
return _TypeRep({
fingerprint = 271,
name = "some"
})
end)(),
_2 = (function(tmp0)
return _TypeRep({
fingerprint = 276,
name = "exception"
})
end)()
}),
describe_exception = function(tmp0)
return tmp0[1].describe_exception(tmp0[2])
end,
into_exception = function(x)
return x
end
}
end
local function from_exception(mfe, mhx)
local tmp = (function(tmp)
return _TypeRep({
fingerprint = 304,
name = "user_error"
})
end)()
local x = mhx[2]
return __eq_type_rep((function()
return mhx[1]["Exception$law"]
end)(Proxy), (function()
return tmp
end)(Proxy), function(tmp0)
return function(tmp1) return Some(x) end
end, function(tmp0) return None end)
end
local function from_exception0(mfe)
return function(mhx)
return from_exception(mfe, mhx)
end
end
local function _dollardExceptionmeh(tmp)
return {
from_exception = from_exception0(tmp),
describe_exception = function(tmp0)
return "User error: " .. tmp0
end,
["Exception$law"] = (function(tmp0)
return _TypeRep({
fingerprint = 304,
name = "user_error"
})
end)(),
into_exception = function(min)
return MkSome(_dollardExceptionmeh(nil))(min)
end
}
end
local function _dollarfoldr(uly)
return function(f)
return function(z)
local function loop(k, x)
if x.__tag ~= "Cons" then
return k(z)
end
local tmp = x[1]
local x0 = tmp._1
return loop(function(r)
return k(f(x0)(r))
end, tmp._2)
end
return function(x)
return loop(function(x0)
return x0
end, x)
end
end
end
end
local _dollardFoldableuky, foldl1, foldl10
_dollardFoldableuky = function(tmp)
return {
["Foldable$tsw"] = function(f)
return function(xs)
local function axa(xss)
if xss.__tag ~= "Cons" then
return Nil
end
local tmp0 = xss[1]
return {
{ _1 = f(tmp0._1), _2 = axa(tmp0._2) },
__tag = "Cons"
}
end
return axa(xs)
end
end,
foldl1 = foldl1(tmp),
foldr = _dollarfoldr(tmp),
foldl = function(f)
local function loop(z)
return function(x)
if x.__tag ~= "Cons" then return z end
local tmp0 = x[1]
return loop(f(z)(tmp0._1))(tmp0._2)
end
end
return loop
end
}
end
foldl1 = function(uly)
return function(uxo)
return function(uxp)
return foldl10(uly, uxo, uxp)
end
end
end
foldl10 = function(uly, uxo, uxp)
local tmp = _dollardFoldableuky(nil).foldl(function(m)
return function(y)
if m.__tag == "None" then
return Some(y)
end
return Some(uxo(m[1])(y))
end
end)(None)(uxp)
if tmp.__tag == "None" then
return error(setmetatable(_dollardExceptionmeh(nil).into_exception("foldl1: empty structure"), {
__tostring = _dollardExceptionlln(nil).describe_exception
}))
end
return tmp[1]
end
local io_stdout = io.stdout
local io_stderr = io.stderr
local io_stdin = io.stdin
local read_value_8 = ReadValue8
local read_value_16 = ReadValue16
local set_screen_text = SetScreenText
local function pretty_from_record(ahag, a, w)
local function smul(s, n)
if n <= 0 then return "" end
return s .. smul(s, n - 1)
end
local prep = smul(" ", w)
local rf = ahag.fields(a)
local x = w + 2
return ahag.name(a) .. " {\n" .. _dollardFoldableuky(nil).foldl(function(acc)
return function(f)
local name = f._1
local field = f._2
if field.__tag == "S" then
return acc .. prep .. " " .. (name .. " = " .. field[1](field[2])) .. ",\n"
end
return acc .. prep .. " " .. (name .. " = " .. field[1](field[2])(x)) .. ",\n"
end
end)("")(rf) .. prep .. "}"
end
local function pretty_from_record0(ahag)
return function(a)
return function(w)
return pretty_from_record(ahag, a, w)
end
end
end
local function _dollardecode(akdt, addr)
local code = read_value_8(addr)
local function tmp(tmp)
local function tmp0(tmp0)
local function tmp1(tmp1)
local code = read_value_8(addr + 3)
if code == 0 then
return {
button_slot_c_left = read_value_8(addr + 4),
button_slot_c_down = read_value_8(addr + 5),
button_slot_c_right = read_value_8(addr + 6),
equipment = read_value_16(addr + 8),
button_item_b = tmp,
button_item_c_left = tmp0,
button_item_c_down = tmp1,
button_item_c_right = DekuSticks
}
elseif code == 255 then
return {
button_slot_c_left = read_value_8(addr + 4),
button_slot_c_down = read_value_8(addr + 5),
button_slot_c_right = read_value_8(addr + 6),
equipment = read_value_16(addr + 8),
button_item_b = tmp,
button_item_c_left = tmp0,
button_item_c_down = tmp1,
button_item_c_right = NoItem
}
else
return error("Pattern matching failure in match expression at oot\\item.ml[14:5 ..16:19]")
end
end
local code = read_value_8(addr + 2)
if code == 0 then
return tmp1(DekuSticks)
elseif code == 255 then
return tmp1(NoItem)
else
return error("Pattern matching failure in match expression at oot\\item.ml[14:5 ..16:19]")
end
end
local code = read_value_8(addr + 1)
if code == 0 then
return tmp0(DekuSticks)
elseif code == 255 then
return tmp0(NoItem)
else
return error("Pattern matching failure in match expression at oot\\item.ml[14:5 ..16:19]")
end
end
if code == 0 then
return tmp(DekuSticks)
elseif code == 255 then
return tmp(NoItem)
else
return error("Pattern matching failure in match expression at oot\\item.ml[14:5 ..16:19]")
end
end
local function _dollarfields(akjr, tmp)
return {
{
_2 = {
{
_1 = {
_1 = "button_item_c_left",
_2 = S(function(x)
if x.__tag == "NoItem" then
return "No Item"
end
return "Deku Sticks"
end)(tmp.button_item_c_left)
},
_2 = {
{
_2 = {
{
_2 = {
{
_1 = {
_1 = "button_slot_c_left",
_2 = S(function(tmp0)
return string_of_int(tmp0) .. "_u8"
end)(tmp.button_slot_c_left)
},
_2 = {
{
_1 = {
_1 = "button_slot_c_down",
_2 = S(function(tmp0)
return string_of_int(tmp0) .. "_u8"
end)(tmp.button_slot_c_down)
},
_2 = {
{
_2 = {
{
_2 = Nil,
_1 = {
_1 = "equipment",
_2 = S(function(tmp0)
return string_of_int(tmp0) .. "_u16"
end)(tmp.equipment)
}
},
__tag = "Cons"
},
_1 = {
_1 = "button_slot_c_right",
_2 = S(function(tmp0)
return string_of_int(tmp0) .. "_u8"
end)(tmp.button_slot_c_right)
}
},
__tag = "Cons"
}
},
__tag = "Cons"
}
},
__tag = "Cons"
},
_1 = {
_1 = "button_item_c_right",
_2 = S(function(x)
if x.__tag == "NoItem" then
return "No Item"
end
return "Deku Sticks"
end)(tmp.button_item_c_right)
}
},
__tag = "Cons"
},
_1 = {
_1 = "button_item_c_down",
_2 = S(function(x)
if x.__tag == "NoItem" then
return "No Item"
end
return "Deku Sticks"
end)(tmp.button_item_c_down)
}
},
__tag = "Cons"
}
},
__tag = "Cons"
},
_1 = {
_1 = "button_item_b",
_2 = S(function(x)
if x.__tag == "NoItem" then
return "No Item"
end
return "Deku Sticks"
end)(tmp.button_item_b)
}
},
__tag = "Cons"
}
end
local function _dollardecode0(aksh, addr)
local u16 = read_value_16(addr + 52)
if u16 > 32767 then
return {
child_equips = _dollardecode(nil, addr + 64),
adult_equips = _dollardecode(nil, addr + 74),
equips = _dollardecode(nil, addr + 104),
rupees = 0 - (65536 - u16)
}
end
return {
rupees = u16,
child_equips = _dollardecode(nil, addr + 64),
adult_equips = _dollardecode(nil, addr + 74),
equips = _dollardecode(nil, addr + 104)
}
end
local function _dollarfields0(akwb, tmp)
local function tmp0(tmp0)
return _dollarfields(nil, tmp0)
end
return {
{
_2 = {
{
_2 = {
{
_1 = {
_1 = "adult_equips",
_2 = P(pretty_from_record0({
fields = tmp0,
name = function(tmp1)
return "ItemEquips"
end
}))(tmp.adult_equips)
},
_2 = {
{
_1 = {
_1 = "equips",
_2 = P(pretty_from_record0({
fields = tmp0,
name = function(tmp1)
return "ItemEquips"
end
}))(tmp.equips)
},
_2 = Nil
},
__tag = "Cons"
}
},
__tag = "Cons"
},
_1 = {
_1 = "child_equips",
_2 = P(pretty_from_record0({
fields = tmp0,
name = function(tmp0)
return "ItemEquips"
end
}))(tmp.child_equips)
}
},
__tag = "Cons"
},
_1 = {
_1 = "rupees",
_2 = S(function(tmp0)
return string_of_int(tmp0) .. "_s16"
end)(tmp.rupees)
}
},
__tag = "Cons"
}
end
local function onScriptStart(tmp)
return nil
end
local function onScriptCancel(tmp)
return nil
end
local function onScriptUpdate(tmp)
return set_screen_text(pretty_from_record({
fields = function(tmp0)
return _dollarfields0(nil, tmp0)
end,
name = function(tmp0)
return "SaveContext"
end
}, _dollardecode0(nil, 17295088), 0))
end
local function onStateLoaded(tmp)
return nil
end
local function onStateSaved(tmp)
return nil
end
return {
base_address = 16138528,
g_save_ctx_address = 1156560,
onScriptCancel = onScriptCancel,
onScriptStart = onScriptStart,
onScriptUpdate = onScriptUpdate,
onStateLoaded = onStateLoaded,
onStateSaved = onStateSaved
}
end

View file

@ -1,23 +0,0 @@
package.path = GetScriptsDir() .. "oot/main.lua"
local main = require("main")
function onScriptStart()
main.onScriptStart()
end
function onScriptCancel()
main.onScriptCancel()
end
function onScriptUpdate()
main.onScriptUpdate()
end
function onStateLoaded()
main.onStateLoaded()
end
function onStateSaved()
main.onStateSaved()
end

View file

@ -1,6 +1,4 @@
open import "prelude.ml"
open import "lua/bit.ml"
open Ops
open import "../dolphin.ml"
open import "../pretty.ml"
open import "../mem/decode.ml"

View file

@ -7,6 +7,7 @@ open import "../mem/int.ml"
type item =
| DekuSticks
| NoItem
| UnknownItem of int
instance decode item begin
let decode addr =
@ -14,10 +15,12 @@ instance decode item begin
match code with
| 0 -> DekuSticks
| 255 -> NoItem
| x -> UnknownItem x
end
instance show item begin
let show = function
| DekuSticks -> "Deku Sticks"
| NoItem -> "No Item"
| UnknownItem x -> "Unknown Item " ^ (show x)
end

View file

@ -2,7 +2,6 @@ open import "prelude.ml"
open import "../pretty.ml"
open import "../mem/decode.ml"
open import "../mem/int.ml"
open import "./equipment.ml"
open import "./item.ml"
type item_equips = ItemEquips of {