library-mirrors/moonscript
1
0
Fork 0
mirror of https://github.com/leafo/moonscript.git synced 2024-11-22 02:44:23 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

rebuild

Browse Source
This commit is contained in:
leaf corcoran 2013-06-10 16:20:44 -07:00
parent 56112e074c
commit 1311671cdc
3 changed files with 27 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
moonscript/compile.lua
View File

@ -624,10 +624,9 @@ do
self._state = { }
self._listeners = { }
do
local _with_0 = transform
self.transform = {
value = _with_0.Value:bind(self),
statement = _with_0.Statement:bind(self)
value = transform.Value:bind(self),
statement = transform.Statement:bind(self)
}
end
if self.parent then
@ -776,8 +775,7 @@ tree = function(tree, options)
end
end
do
local _with_0 = require("moonscript.data")
local data = _with_0
local data = require("moonscript.data")
for name, cls in pairs({
Line = Line,
Lines = Lines,

42
moonscript/transform.lua
View File

@ -736,10 +736,9 @@ local Statement = Transformer({
for i, name in ipairs(node.names) do
if ntype(name) == "table" then
do
local _with_0 = NameProxy("des")
local proxy = _with_0
local proxy = NameProxy("des")
insert(destructures, destructure.build_assign(self, name, proxy))
_accum_0[_len_0] = _with_0
_accum_0[_len_0] = proxy
end
else
_accum_0[_len_0] = name
@ -1103,7 +1102,6 @@ local Statement = Transformer({
})
local value = nil
do
local _with_0 = build
local out_body = {
Run(function(self)
if name then
@ -1180,22 +1178,22 @@ local Statement = Transformer({
"declare_glob",
"*"
},
_with_0.assign_one(parent_cls_name, parent_val == "" and "nil" or parent_val),
_with_0.assign_one(base_name, {
build.assign_one(parent_cls_name, parent_val == "" and "nil" or parent_val),
build.assign_one(base_name, {
"table",
properties
}),
_with_0.assign_one(base_name:chain("__index"), base_name),
_with_0["if"]({
build.assign_one(base_name:chain("__index"), base_name),
build["if"]({
cond = parent_cls_name,
["then"] = {
_with_0.chain({
build.chain({
base = "setmetatable",
{
"call",
{
base_name,
_with_0.chain({
build.chain({
base = parent_cls_name,
{
"dot",
@ -1207,17 +1205,17 @@ local Statement = Transformer({
})
}
}),
_with_0.assign_one(cls_name, cls),
_with_0.assign_one(base_name:chain("__class"), cls_name),
_with_0.group((function()
build.assign_one(cls_name, cls),
build.assign_one(base_name:chain("__class"), cls_name),
build.group((function()
if #statements > 0 then
return {
_with_0.assign_one(LocalName("self"), cls_name),
_with_0.group(statements)
build.assign_one(LocalName("self"), cls_name),
build.group(statements)
}
end
end)()),
_with_0["if"]({
build["if"]({
cond = {
"exp",
parent_cls_name,
@ -1234,10 +1232,10 @@ local Statement = Transformer({
})
}
}),
_with_0.group((function()
build.group((function()
if name then
return {
_with_0.assign_one(name, cls_name)
build.assign_one(name, cls_name)
}
end
end)()),
@ -1247,11 +1245,11 @@ local Statement = Transformer({
end
end)()
}
value = _with_0.group({
_with_0.group((function()
value = build.group({
build.group((function()
if ntype(name) == "value" then
return {
_with_0.declare({
build.declare({
names = {
name
}
@ -1259,7 +1257,7 @@ local Statement = Transformer({
}
end
end)()),
_with_0["do"](out_body)
build["do"](out_body)
})
end
return value

10
moonscript/transform/destructure.lua
View File

@ -22,8 +22,7 @@ end
local join
join = function(...)
do
local _with_0 = { }
local out = _with_0
local out = { }
local i = 1
local _list_0 = {
...
@ -37,7 +36,7 @@ join = function(...)
i = i + 1
end
end
return _with_0
return out
end
end
local has_destructure
@ -122,8 +121,7 @@ build_assign = function(scope, destruct_literal, receiver)
obj = receiver
else
do
local _with_0 = NameProxy("obj")
obj = _with_0
obj = NameProxy("obj")
inner = build["do"]({
build.assign_one(obj, receiver),
{
@ -132,7 +130,7 @@ build_assign = function(scope, destruct_literal, receiver)
values
}
})
obj = _with_0
obj = obj
end
end
local _list_0 = extracted_names