Olical
commented
3 years ago Here's an example, aniseed.view source Fennel:
(module aniseed.view)
(def serialise
(fn [...]
((require :aniseed.deps.fennelview) ...)))And it's original Lua...
local _2afile_2a = "fnl/aniseed/view.fnl"
local _1_
do
local name_4_auto = "aniseed.view"
local module_5_auto
do
local x_6_auto = _G.package.loaded[name_4_auto]
if ("table" == type(x_6_auto)) then
module_5_auto = x_6_auto
else
module_5_auto = {}
end
end
module_5_auto["aniseed/module"] = name_4_auto
module_5_auto["aniseed/locals"] = ((module_5_auto)["aniseed/locals"] or {})
do end (module_5_auto)["aniseed/local-fns"] = ((module_5_auto)["aniseed/local-fns"] or {})
do end (_G.package.loaded)[name_4_auto] = module_5_auto
_1_ = module_5_auto
end
local autoload
local function _3_(...)
return (require("aniseed.autoload")).autoload(...)
end
autoload = _3_
local function _6_(...)
local ok_3f_21_auto, val_22_auto = nil, nil
local function _5_()
return {}
end
ok_3f_21_auto, val_22_auto = pcall(_5_)
if ok_3f_21_auto then
_1_["aniseed/local-fns"] = {}
return val_22_auto
else
return print(val_22_auto)
end
end
local _local_4_ = _6_(...)
local _2amodule_2a = _1_
local _2amodule_name_2a = "aniseed.view"
do local _ = ({nil, _1_, nil, {{}, nil, nil, nil}})[2] end
local serialise
do
local v_23_auto
do
local v_25_auto
local function _8_(...)
return require("aniseed.deps.fennelview")(...)
end
v_25_auto = _8_
_1_["serialise"] = v_25_auto
v_23_auto = v_25_auto
end
local t_24_auto = (_1_)["aniseed/locals"]
t_24_auto["serialise"] = v_23_auto
serialise = v_23_auto
end
return nilAnd here's the new Lua:
local _2afile_2a = "fnl/aniseed/view.fnl"
local _2amodule_name_2a = "aniseed.view"
local _2amodule_2a
do
package.loaded[_2amodule_name_2a] = {}
_2amodule_2a = package.loaded[_2amodule_name_2a]
end
local _2amodule_locals_2a
do
_2amodule_2a["_LOCALS"] = {}
_2amodule_locals_2a = (_2amodule_2a)._LOCALS
end
local serialise
local function _1_(...)
return require("aniseed.deps.fennelview")(...)
end
serialise = _1_
_2amodule_2a["serialise"] = serialiseI'm not just realising this should be a
defnnot adefso that could probably get a couple of lines neater again.
The only "noise" at the top of the output now is creating the initial loaded module for the public functions to be inserted into. It could maybe be reduced further, but it's getting pretty negligible now.
This example is the worst case since Aniseed macros do still insert some boilerplate-ish lines at the top. That becomes a tiny header once you add your own handful of functions, this example is about as bad as it gets, and it's not that bad (imo).
bangedorrunt
I've essentially finished my eval and module rewrite, which hopefully achieves the goals of #56 but we'll see. Things to fix:
v1.xwhenreturns nil instead of no value now?aniseed.envstartup? Just worth looking at again. Is it to do with the runtimepath mangling? Can I avoid that?aniseed/prefixed keys that get placed on modules in favour of_LOCALSstyle... or just go back toaniseed/prefixes for everything?conjure/log.fnlleads to a horrible looking Lua error... (see below) looks like it happens when I eval a file over and over... maybe I need to restart the REPL sometimes or reset the REPL somehow on file load?embed.sh. Then rely on the fennel macro path which includes thefnldirectory for most macros. This avoids the duplication of macro files across the fnl and lua directories. Maybe we can use macro-searchers and do away with all the path mangling grossness?~ needless perfection and doesn't work with embed.shThen after some soak time I think we're ready to go! You're more than welcome to use the develop branches now to get the slimmer more efficient Lua output and real interactive aniseed evals. This works now!