Bruce/nomsu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Simplified and correctified lib/object (though the codegen still need

Browse Source 
streamlining), added a .stub member to Action trees, and switched
Source's repr to be @filename[start:stop] instead of
"filename[start:stop]"
This commit is contained in:
Bruce Hill 2018-05-30 17:20:22 -07:00
parent 5637676bc4
commit b53516c47c
12 changed files with 250 additions and 307 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code_obj.lua
View File

@ -22,17 +22,17 @@ Source = immutable({
return filename, start, stop return filename, start, stop
end, end,
from_string = function(self, str) from_string = function(self, str)
local filename, start, stop = str:match("^(.-)%[(%d+):(%d+)%]$") local filename, start, stop = str:match("^@(.-)%[(%d+):(%d+)%]$")
if not (filename) then if not (filename) then
filename, start = str:match("^(.-)%[(%d+)%]$") filename, start = str:match("^@(.-)%[(%d+)%]$")
end end
return Source(filename or str, tonumber(start or 1), tonumber(stop)) return Source(filename or str, tonumber(start or 1), tonumber(stop))
end, end,
__tostring = function(self) __tostring = function(self)
if self.stop then if self.stop then
return "\"" .. tostring(self.filename) .. "[" .. tostring(self.start) .. ":" .. tostring(self.stop) .. "]\"" return "@" .. tostring(self.filename) .. "[" .. tostring(self.start) .. ":" .. tostring(self.stop) .. "]"
else else
return "\"" .. tostring(self.filename) .. "[" .. tostring(self.start) .. "]\"" return "@" .. tostring(self.filename) .. "[" .. tostring(self.start) .. "]"
end end
end, end,
__lt = function(self, other) __lt = function(self, other)

8
code_obj.moon
View File

@ -12,15 +12,15 @@ Source = immutable {"filename","start","stop"}, {
if stop and start > stop+1 then error("Invalid range: #{start}, #{stop}") if stop and start > stop+1 then error("Invalid range: #{start}, #{stop}")
return filename, start, stop return filename, start, stop
from_string: (str)=> from_string: (str)=>
filename,start,stop = str\match("^(.-)%[(%d+):(%d+)%]$") filename,start,stop = str\match("^@(.-)%[(%d+):(%d+)%]$")
unless filename unless filename
filename,start = str\match("^(.-)%[(%d+)%]$") filename,start = str\match("^@(.-)%[(%d+)%]$")
return Source(filename or str, tonumber(start or 1), tonumber(stop)) return Source(filename or str, tonumber(start or 1), tonumber(stop))
__tostring: => __tostring: =>
if @stop if @stop
"\"#{@filename}[#{@start}:#{@stop}]\"" "@#{@filename}[#{@start}:#{@stop}]"
else else
"\"#{@filename}[#{@start}]\"" "@#{@filename}[#{@start}]"
__lt: (other)=> __lt: (other)=>
assert(@filename == other.filename, "Cannot compare sources from different files") assert(@filename == other.filename, "Cannot compare sources from different files")
return if @start == other.start return if @start == other.start

98
core/control_flow.nom
View File

@ -51,23 +51,23 @@ immediately
Lua value ".." Lua value ".."
(function() (function()
if \(%condition as lua expr) then if \(%condition as lua expr) then
return \(%when_true_expr as lua expr); return \(%when_true_expr as lua expr)
else else
return \(%when_false_expr as lua expr); return \(%when_false_expr as lua expr)
end end
end)() end)()
# GOTOs # GOTOs
immediately immediately
compile [=== %label ===, --- %label ---, *** %label ***] to compile [=== %label ===, --- %label ---, *** %label ***] to
Lua "::label_\(%label as lua identifier)::;" Lua "::label_\(%label as lua identifier)::"
compile [go to %label] to compile [go to %label] to
Lua "goto label_\(%label as lua identifier);" Lua "goto label_\(%label as lua identifier)"
# Basic loop control # Basic loop control
immediately immediately
compile [do next] to: Lua "continue;" compile [do next] to: Lua "continue"
compile [stop] to: Lua "break;" compile [stop] to: Lua "break"
# Helper function # Helper function
immediately immediately
@ -84,25 +84,25 @@ immediately
# While loops # While loops
immediately immediately
compile [do next repeat] to: Lua "goto continue_repeat;" compile [do next repeat] to: Lua "goto continue_repeat"
compile [stop repeating] to: Lua "goto stop_repeat;" compile [stop repeating] to: Lua "goto stop_repeat"
compile [repeat while %condition %body] to compile [repeat while %condition %body] to
%lua <- %lua <-
Lua ".." Lua ".."
while \(%condition as lua expr) do while \(%condition as lua expr) do
\(%body as lua statements) \(%body as lua statements)
if if
%body has subtree % where: (%.type = "Action") and ((%'s stub) is "do next repeat") %body has subtree % where: (%.type = "Action") and (%.stub is "do next repeat")
..: to %lua write "\n ::continue_repeat::;" ..: to %lua write "\n ::continue_repeat::"
to %lua write "\nend --while-loop" to %lua write "\nend --while-loop"
if if
%body has subtree % where: (%.type = "Action") and ((%'s stub) is "stop repeating") %body has subtree % where: (%.type = "Action") and (%.stub is "stop repeating")
.. ..
%lua <- %lua <-
Lua ".." Lua ".."
do -- scope of "stop repeating" label do -- scope of "stop repeating" label
\%lua \%lua
::stop_repeat::; ::stop_repeat::
end -- end of "stop repeating" label scope end -- end of "stop repeating" label scope
return %lua return %lua
parse [repeat %body] as: repeat while (yes) %body parse [repeat %body] as: repeat while (yes) %body
@ -116,26 +116,26 @@ immediately
for i=1,\(%n as lua expr) do for i=1,\(%n as lua expr) do
\(%body as lua statements) \(%body as lua statements)
if if
%body has subtree % where: (%.type = "Action") and ((%'s stub) is "do next repeat") %body has subtree % where: (%.type = "Action") and (%.stub is "do next repeat")
..: to %lua write "\n ::continue_repeat::;" ..: to %lua write "\n ::continue_repeat::"
to %lua write "\nend --numeric for-loop" to %lua write "\nend --numeric for-loop"
if if
%body has subtree % where: (%.type = "Action") and ((%'s stub) is "stop repeating") %body has subtree % where: (%.type = "Action") and (%.stub is "stop repeating")
.. ..
%lua <- %lua <-
Lua ".." Lua ".."
do -- scope of "stop repeating" label do -- scope of "stop repeating" label
\%lua \%lua
::stop_repeat::; ::stop_repeat::
end -- end of "stop repeating" label scope end -- end of "stop repeating" label scope
return %lua return %lua
# For loop control flow # For loop control flow
immediately immediately
compile [stop %var] to compile [stop %var] to
Lua "goto stop_\(%var as lua identifier);" Lua "goto stop_\(%var as lua identifier)"
compile [do next %var] to compile [do next %var] to
Lua "goto continue_\(%var as lua identifier);" Lua "goto continue_\(%var as lua identifier)"
# Numeric range for loops # Numeric range for loops
immediately immediately
@ -152,22 +152,22 @@ immediately
if if
%body has subtree % where %body has subtree % where
(%.type = "Action") and (%.type = "Action") and
((%'s stub) is "do next %") and (%.stub is "do next %") and
%.3 = %var %.3 = %var
..: to %lua write "\n ::continue_\(%var as lua identifier)::;" ..: to %lua write "\n ::continue_\(%var as lua identifier)::"
to %lua write "\nend --numeric for-loop" to %lua write "\nend --numeric for-loop"
if if
%body has subtree % where %body has subtree % where
(%.type = "Action") and (%.type = "Action") and
((%'s stub) is "stop %") and (%.stub is "stop %") and
%.2 = %var %.2 = %var
.. ..
%lua <- %lua <-
Lua ".." Lua ".."
do -- scope for stopping for-loop do -- scope for stopping for-loop
\%lua \%lua
::stop_\(%var as lua identifier)::; ::stop_\(%var as lua identifier)::
end -- end of scope for stopping for-loop end -- end of scope for stopping for-loop
return %lua return %lua
@ -187,21 +187,21 @@ immediately
if if
%body has subtree % where %body has subtree % where
(%.type = "Action") and (%.type = "Action") and
((%'s stub) is "do next %") and (%.stub is "do next %") and
%.value.3.value = %var.value %.value.3.value = %var.value
..: to %lua write (Lua "\n ::continue_\(%var as lua identifier)::;") ..: to %lua write (Lua "\n ::continue_\(%var as lua identifier)::")
to %lua write "\nend --foreach-loop" to %lua write "\nend --foreach-loop"
if if
%body has subtree % where %body has subtree % where
(%.type = "Action") and (%.type = "Action") and
((%'s stub) is "stop %") and (%.stub is "stop %") and
%.value.2.value = %var.value %.value.2.value = %var.value
.. ..
%lua <- %lua <-
Lua ".." Lua ".."
do -- scope for stopping for-loop do -- scope for stopping for-loop
\%lua \%lua
::stop_\(%var as lua identifier)::; ::stop_\(%var as lua identifier)::
end -- end of scope for stopping for-loop end -- end of scope for stopping for-loop
return %lua return %lua
@ -221,32 +221,32 @@ immediately
if if
%body has subtree % where %body has subtree % where
(%.type = "Action") and (%.type = "Action") and
((%'s stub) is "do next %") and (%.stub is "do next %") and
%.value.3.value = %key.value %.value.3.value = %key.value
..: to %lua write (Lua "\n ::continue_\(%key as lua identifier)::;") ..: to %lua write (Lua "\n ::continue_\(%key as lua identifier)::")
if if
%body has subtree % where %body has subtree % where
(%.type = "Action") and (%.type = "Action") and
((%'s stub) is "do next %") and (%.stub is "do next %") and
%.value.3.value = %value.value %.value.3.value = %value.value
..: to %lua write (Lua "\n ::continue_\(%value as lua identifier)::;") ..: to %lua write (Lua "\n ::continue_\(%value as lua identifier)::")
to %lua write "\nend --foreach-loop" to %lua write "\nend --foreach-loop"
%stop_labels <- (Lua "") %stop_labels <- (Lua "")
if if
%body has subtree % where %body has subtree % where
(%.type = "Action") and (%.type = "Action") and
((%'s stub) is "stop %") and (%.stub is "stop %") and
%.value.2.value = %key.value %.value.2.value = %key.value
..: to %stop_labels write "\n::stop_\(%key as lua identifier)::;" ..: to %stop_labels write "\n::stop_\(%key as lua identifier)::"
if if
%body has subtree % where %body has subtree % where
(%.type = "Action") and (%.type = "Action") and
((%'s stub) is "stop %") and (%.stub is "stop %") and
%.value.2.value = %value.value %.value.2.value = %value.value
..: to %stop_labels write "\n::stop_\(%value as lua identifier)::;" ..: to %stop_labels write "\n::stop_\(%value as lua identifier)::"
if: (length of %stop_labels) > 0 if: (length of %stop_labels) > 0
%lua <- %lua <-
@ -279,7 +279,7 @@ immediately
assume %condition or barf ".." assume %condition or barf ".."
Invalid format for 'when' statement. Lines must begin with '*' and have a condition or the word "else" Invalid format for 'when' statement. Lines must begin with '*' and have a condition or the word "else"
if: %action is (nil) if: %action is (nil)
lua> "table.insert(\%fallthroughs, \(%condition as lua expr));" lua> "table.insert(\%fallthroughs, \(%condition as lua expr))"
do next %func_call do next %func_call
if: %condition = "else" if: %condition = "else"
@ -289,7 +289,7 @@ immediately
%seen_else <- (yes) %seen_else <- (yes)
..else ..else
assume (not %seen_else) or barf "'else' clause needs to be last in 'when' block" assume (not %seen_else) or barf "'else' clause needs to be last in 'when' block"
lua> "table.insert(\%fallthroughs, \(%condition as lua expr));" lua> "table.insert(\%fallthroughs, \(%condition as lua expr))"
to %code write "\("if" if %is_first else "\nelseif") " to %code write "\("if" if %is_first else "\nelseif") "
for %i = %condition in %fallthroughs for %i = %condition in %fallthroughs
if (%i > 1): to %code write " or " if (%i > 1): to %code write " or "
@ -333,7 +333,7 @@ immediately
..else ..else
assume (not %seen_else) or barf "'else' clause needs to be last in 'when % = ?' block" assume (not %seen_else) or barf "'else' clause needs to be last in 'when % = ?' block"
to %code write "\("if" if %is_first else "\nelseif") " to %code write "\("if" if %is_first else "\nelseif") "
lua> "table.insert(\%fallthroughs, \(%condition as lua expr));" lua> "table.insert(\%fallthroughs, \(%condition as lua expr))"
for %i = % in %fallthroughs for %i = % in %fallthroughs
if: %i > 1 if: %i > 1
to %code write " or " to %code write " or "
@ -353,7 +353,7 @@ immediately
%code <- %code <-
Lua ".." Lua ".."
do --when % = ? do --when % = ?
local branch_value = \(%branch_value as lua expr); local branch_value = \(%branch_value as lua expr)
\%code \%code
end --when % = ? end --when % = ?
return %code return %code
@ -366,18 +366,18 @@ immediately
..to ..to
Lua ".." Lua ".."
do do
local fell_through = false; local fell_through = false
local ok, ret = pcall(function() local ok, ret = pcall(function()
\(%action as lua statements) \(%action as lua statements)
fell_through = true; fell_through = true
end); end)
if ok then if ok then
\(%success as lua statements) \(%success as lua statements)
end end
if not ok then if not ok then
\(%fallback as lua statements) \(%fallback as lua statements)
elseif not fell_through then elseif not fell_through then
return ret; return ret
end end
end end
parse [try %action] as parse [try %action] as
@ -400,18 +400,18 @@ immediately
compile [do %action then always %final_action] to compile [do %action then always %final_action] to
Lua ".." Lua ".."
do do
local fell_through = false; local fell_through = false
local ok, ret1 = pcall(function() local ok, ret1 = pcall(function()
\(%action as lua statements) \(%action as lua statements)
fell_through = true; fell_through = true
end); end)
local ok2, ret2 = pcall(function() local ok2, ret2 = pcall(function()
\(%final_action as lua statements) \(%final_action as lua statements)
end); end)
if not ok then error(ret1); end if not ok then error(ret1) end
if not ok2 then error(ret2); end if not ok2 then error(ret2) end
if not fell_through then if not fell_through then
return ret1; return ret1
end end
end --do-then-always end --do-then-always

49
core/metaprogramming.nom
View File

@ -7,15 +7,15 @@ immediately
lua> ".." lua> ".."
nomsu:define_compile_action("compile %actions to %lua", function(tree, \%actions, \%lua) nomsu:define_compile_action("compile %actions to %lua", function(tree, \%actions, \%lua)
local lua = Lua(tree.source, "nomsu:define_compile_action(") local lua = Lua(tree.source, "nomsu:define_compile_action(")
local stubs = {} local specs = {}
for i, action in ipairs(\%actions.value) do for i, action in ipairs(\%actions.value) do
stubs[i] = action:get_stub(true) specs[i] = action:get_spec()
end end
stubs = repr(stubs) specs = repr(specs)
if #stubs > 80 then if #specs > 80 then
lua:append("\n ",stubs,",\n ") lua:append("\n ",specs,",\n ")
else else
lua:append(stubs,", ") lua:append(specs,", ")
end end
lua:append("function(tree") lua:append("function(tree")
local args = {} local args = {}
@ -37,15 +37,15 @@ immediately
compile [action %actions %body] to compile [action %actions %body] to
lua> ".." lua> ".."
local lua = Lua(tree.source, "nomsu:define_action(") local lua = Lua(tree.source, "nomsu:define_action(")
local stubs = {} local specs = {}
for i, action in ipairs(\%actions.value) do for i, action in ipairs(\%actions.value) do
stubs[i] = action:get_stub(true) specs[i] = action:get_spec()
end end
stubs = repr(stubs) specs = repr(specs)
if #stubs > 80 then if #specs > 80 then
lua:append("\n ",stubs,",\n ") lua:append("\n ",specs,",\n ")
else else
lua:append(stubs,", ") lua:append(specs,", ")
end end
lua:append("function(") lua:append("function(")
local args = {} local args = {}
@ -67,15 +67,15 @@ immediately
compile [parse %shorthand as %longhand] to compile [parse %shorthand as %longhand] to
lua> ".." lua> ".."
local lua = Lua(tree.source, "nomsu:define_compile_action(") local lua = Lua(tree.source, "nomsu:define_compile_action(")
local stubs = {} local specs = {}
for i, action in ipairs(\%shorthand.value) do for i, action in ipairs(\%shorthand.value) do
stubs[i] = action:get_stub(true) specs[i] = action:get_spec()
end end
stubs = repr(stubs) specs = repr(specs)
if #stubs > 80 then if #specs > 80 then
lua:append("\n ",stubs,",\n ") lua:append("\n ",specs,",\n ")
else else
lua:append(stubs,", ") lua:append(specs,", ")
end end
lua:append("function(tree") lua:append("function(tree")
local replacements = {} local replacements = {}
@ -93,15 +93,15 @@ immediately
elseif t.type == 'Var' and replacements[t.value] then elseif t.type == 'Var' and replacements[t.value] then
return replacements[t.value] return replacements[t.value]
elseif t.type == 'Var' then elseif t.type == 'Var' then
return t.type.."("..repr(t.value.."#"..tostring(MANGLE_INDEX))..", "..repr(t.source)..")" return t.type.."("..repr(t.value.."#"..tostring(MANGLE_INDEX))..", "..repr(tostring(t.source))..")"
elseif t.is_multi then elseif t.is_multi then
local bits = {} local bits = {}
for i, entry in ipairs(t.value) do for i, entry in ipairs(t.value) do
bits[i] = make_tree(entry) bits[i] = make_tree(entry)
end end
return t.type.."(Tuple("..table.concat(bits, ", ").."), "..repr(t.source)..")" return t.type.."(Tuple("..table.concat(bits, ", ").."), "..repr(tostring(t.source))..")"
else else
return t.type.."("..repr(t.value)..", "..repr(t.source)..")" return t.type.."("..repr(t.value)..", "..repr(tostring(t.source))..")"
end end
end end
lua:append(")\n local tree = ", make_tree(\%longhand), "\n return nomsu:tree_to_lua(tree)\nend);") lua:append(")\n local tree = ", make_tree(\%longhand), "\n return nomsu:tree_to_lua(tree)\nend);")
@ -110,7 +110,7 @@ immediately
compile [remove action %action] to compile [remove action %action] to
Lua ".." Lua ".."
do do
local fn = ACTIONS[\(=lua "repr(\%action:get_stub())")] local fn = ACTIONS[\(=lua "repr(\%action.stub)")]
local stubs = ARG_ORDERS[fn] local stubs = ARG_ORDERS[fn]
for stub in pairs(stubs) do for stub in pairs(stubs) do
ACTIONS[stub] = nil ACTIONS[stub] = nil
@ -159,9 +159,6 @@ immediately
local lua = Lua(\%tree.source, "return ",nomsu:tree_to_lua(\%tree)) local lua = Lua(\%tree.source, "return ",nomsu:tree_to_lua(\%tree))
return nomsu:run_lua(lua) return nomsu:run_lua(lua)
action [%tree's stub]
=lua "\%tree:get_stub()"
immediately immediately
parse [%var <-write %code] as: lua> "\%var:append(\%code);" parse [%var <-write %code] as: lua> "\%var:append(\%code);"
parse [to %var write %code] as: lua> "\%var:append(\%code);" parse [to %var write %code] as: lua> "\%var:append(\%code);"
@ -178,7 +175,7 @@ immediately
# Compiler tools # Compiler tools
immediately immediately
compile [run %code] to compile [run %code] to
Lua "nomsu:run(Nomsu(\(%code.source as text), \(%code as lua expr)))" Lua "nomsu:run(Nomsu(\"\(%code.source as text)\", \(%code as lua expr)))"
immediately immediately
compile [show lua %block] to compile [show lua %block] to

4
core/operators.nom
View File

@ -51,7 +51,7 @@ immediately
assume %var_lua.is_value or barf "Invalid target for assignment: \%var" assume %var_lua.is_value or barf "Invalid target for assignment: \%var"
lua> ".." lua> ".."
\%value = \%value:map(function(t) \%value = \%value:map(function(t)
if Action:is_instance(t) and t:get_stub() == "?" then if Action:is_instance(t) and t.stub == "?" then
return \%var return \%var
end end
end) end)
@ -75,7 +75,7 @@ immediately
for i, item in ipairs(\%assignments.value) do for i, item in ipairs(\%assignments.value) do
local \%target, \%value = item.value[1], item.value[2] local \%target, \%value = item.value[1], item.value[2]
\%value = \%value:map(function(t) \%value = \%value:map(function(t)
if Action:is_instance(t) and t:get_stub() == "?" then if Action:is_instance(t) and t.stub == "?" then
return \%target return \%target
end end
end) end)

41
core/scopes.nom
View File

@ -7,47 +7,48 @@ use "core/control_flow.nom"
compile [using %definitions %body, using %definitions do %body] to compile [using %definitions %body, using %definitions do %body] to
%setup_lua <- %setup_lua <-
Lua ".." Lua ".."
local fell_through = false; local fell_through = false
local ok, ret = pcall(function() local ok, ret = pcall(function()
\(%definitions as lua statements) \(%definitions as lua statements)
fell_through = true; fell_through = true
end); end)
%body_lua <- %body_lua <-
Lua ".." Lua ".."
local fell_through = false; local fell_through = false
local ok, ret = pcall(function() local ok, ret = pcall(function()
\(%body as lua statements) \(%body as lua statements)
fell_through = true; fell_through = true
end); end)
remove free vars (declare locals in %setup_lua) from %body_lua remove free vars (declare locals in %setup_lua) from %body_lua
%lua <- %lua <-
Lua ".." Lua ".."
do do
local old_actions, old_compile_actions, old_arg_orders = ACTIONS, COMPILE_ACTIONS, ARG_ORDERS; local old_actions, old_compile_actions, old_arg_orders = ACTIONS, COMPILE_ACTIONS, ARG_ORDERS
ACTIONS = setmetatable({}, {__index=old_actions}); ACTIONS = setmetatable({}, {__index=old_actions})
COMPILE_ACTIONS = setmetatable({}, {__index=old_compile_actions}); COMPILE_ACTIONS = setmetatable({}, {__index=old_compile_actions})
ARG_ORDERS = setmetatable({}, {__index=old_arg_orders}); ARG_ORDERS = setmetatable({}, {__index=old_arg_orders})
\%setup_lua \%setup_lua
if not ok then if not ok then
ACTIONS, COMPILE_ACTIONS, ARG_ORDERS = old_actions, old_compile_actions, old_arg_orders; ACTIONS, COMPILE_ACTIONS, ARG_ORDERS = old_actions, old_compile_actions, old_arg_orders
error(ret); error(ret)
end end
if not fell_through then if not fell_through then
ACTIONS, COMPILE_ACTIONS, ARG_ORDERS = old_actions, old_compile_actions, old_arg_orders; ACTIONS, COMPILE_ACTIONS, ARG_ORDERS = old_actions, old_compile_actions, old_arg_orders
return ret; return ret
end end
getmetatable(ACTIONS).__newindex = old_actions; getmetatable(ACTIONS).__newindex = old_actions
getmetatable(COMPILE_ACTIONS).__newindex = old_compile_actions; getmetatable(COMPILE_ACTIONS).__newindex = old_compile_actions
getmetatable(ARG_ORDERS).__newindex = old_arg_orders; getmetatable(ARG_ORDERS).__newindex = old_arg_orders
\%body_lua \%body_lua
ACTIONS, COMPILE_ACTIONS, ARG_ORDERS = old_actions, old_compile_actions, old_arg_orders; ACTIONS, COMPILE_ACTIONS, ARG_ORDERS = old_actions, old_compile_actions, old_arg_orders
if not ok then if not ok then
error(ret); error(ret)
end end
if not fell_through then if not fell_through then
return ret; return ret
end end
end end
declare locals in %lua declare locals in %lua
return %lua return %lua
parse [using %] as: using % (do nothing)

178
lib/object.nom
View File

@ -1,136 +1,54 @@
use "core" use "core"
compile [@, me] to: Lua value "self" lua> "CLASSES = {}"
compile [as %instance %body] to immediately
Lua ".." compile [@, me] to: Lua value "self"
do action [new %classname %inst]
local self = \(%instance as lua expr); =lua "setmetatable(\%inst, CLASSES[\%classname])"
local global_actions = ACTIONS; immediately
local ACTIONS = setmetatable({}, {__index=function(_,key) parse [new %classname] as: new %classname {}
local method = self[key];
if method then return (function(...) return method(self, ...); end); end
return global_actions[key];
end});
\(%body as lua statements)
end
compile [object %classname %class_body] to parse [as %instance %body] as
%class_id <- (=lua "string.as_lua_id(\(%classname as value)):sub(2,-1)") lua> "local self;"
if: %class_id is "" do
%class_id <- "class" using
%methods <-: Lua "" lua> ".."
%__index <- %class_id self = \%instance
%__newindex <- "nil" local cls = self.class
for %line in %class_body.value local old_self = self.class:set_self(self)
if: %line.type is "Comment" ACTIONS = cls.ACTIONS
do next %line COMPILE_ACTIONS = cls.COMPILE_ACTIONS
if: (%line.type is "Action") and ((%line's stub) is "slots %") ARG_ORDERS = cls.ARG_ORDERS
%slot_index_clauses <- [] ..do
%slot_newindex_clauses <- [] %body
%slots <- %line.value.2 ..then always
for %slot_index = %slot_var in %slots.value
to %slot_index_clauses add ".."
if key == \(repr %slot_var.value) or key == \(repr (%slot_var as lua expr)) then
return rawget(self, \%slot_index);
end
to %slot_newindex_clauses add ".."
if key == \(repr %slot_var.value) or key == \(repr (%slot_var as lua expr)) or key == \%slot_index then
rawset(self, \%slot_index, value);
end
%__index <- ".."
function(self, key)
\(%slot_index_clauses joined with "\n")
return \%class_id[key];
end
%__newindex <- ".."
function(self, key, value)
\(%slot_newindex_clauses joined with "\n")
error("Attempt to store data in "..repr(key)..", which is not a valid slot on "..tostring(self.class));
end
do next %line
assume ((%line.type is "Action") and ((%line's stub) is "action % %"))
..or barf "Only action definitions are supported inside 'object % %'"
%actions <- %line.value.2
%body <- %line.value.3
lua> ".." lua> ".."
do self.class:set_self(old_self)
local stubs = {}
for i, action in ipairs(\%actions.value) do parse [object %classname %class_body] as
stubs[i] = action:get_stub(true) using
end %cls <- {..}
local lua = Lua(\(%line.source), \%class_id, "[ ", repr(stubs[1]), "] = function(self") name:%classname
local args = {} ACTIONS:=lua "ACTIONS", COMPILE_ACTIONS:=lua "COMPILE_ACTIONS"
for i,tok in ipairs(\%actions[1]) do ARG_ORDERS:=lua "ARG_ORDERS"
if tok.type == "Var" then args[#args+1] = tok end (=lua "CLASSES").%classname <- %cls
end lua> ".."
for i, arg in ipairs(args) do setmetatable(\%cls, {__tostring=function() return \%classname end})
lua:append(", ", nomsu:tree_to_lua(arg)) local self = nil
end \%cls.set_self = function(_, inst)
local body_lua = nomsu:tree_to_lua(\%body):as_statements("return ") local old_self = self
body_lua:remove_free_vars(args) self = inst
body_lua:declare_locals() return old_self
lua:append(")\n ", body_lua, "\nend;\n") end
\%methods:append(lua) \%cls.__index = \%cls
\%cls.class = \%cls
%class_body
run ".."
action [new \%classname %inst]
say "NEWING"
return: =lua "setmetatable(\\%inst, \\%cls)"
lua> ".."
if ACTIONS["as text"] then
\%cls.__tostring = ACTIONS["as text"]
end end
return
Lua ".."
do -- \%class_id
-- Create the class object
local \%class_id = setmetatable({
name=\(%classname as lua expr), instances=setmetatable({}, {__mode="k"}),
}, {
__tostring=function(c) return c.name; end,
__call=function(cls, initial_values)
local inst = setmetatable({}, cls.instance_metatable);
for k,v in pairs(initial_values) do inst[k] = v; end
cls.instances[inst] = true;
if inst['set % up'] then
inst['set % up'](inst);
end
return inst;
end,
});
\%class_id.class = \%class_id;
-- Define the methods
\%methods
-- Define class methods for instantiating and accessing instances
\%class_id.instance_metatable = {
__index=\%__index,
__newindex=\%__newindex,
__tostring=\%class_id['as text'] or function(inst)
return "<"..inst.class.name..": "..nomsu.ids[inst]..">";
end,
__len=\%class_id['size of'],
__unm=\%class_id['-'],
__add=\%class_id['+ %'],
__sub=\%class_id['- %'],
__mul=\%class_id['* %'],
__div=\%class_id['/ %'],
__mod=\%class_id['wrapped around %'],
__pow=\%class_id['^ %'],
__band=\%class_id['AND %'],
__bor=\%class_id['OR %'],
__bxor=\%class_id['XOR %'],
__bshl=\%class_id['<< %'],
__bshr=\%class_id['>> %'],
__eq=\%class_id['= %'],
__lt=\%class_id['< %'],
__le=\%class_id['<= %'],
};
nomsu:define_action("instances of "..\%class_id.name, function()
return utils.keys(\%class_id.instances);
end);
nomsu:define_action("new "..\%class_id.name.." %instance", function(_instance)
return \%class_id(_instance);
end);
nomsu:define_action("new "..\%class_id.name, function()
return \%class_id({});
end);
end -- End of definition of \%class_id
\("\n\n")

21
nomsu.lua
View File

@ -201,7 +201,7 @@ do
end end
if utils.size(seen_errors) >= 10 then if utils.size(seen_errors) >= 10 then
seen_errors[start_pos + 1] = colored.bright(colored.yellow(colored.onred("Too many errors, canceling parsing..."))) seen_errors[start_pos + 1] = colored.bright(colored.yellow(colored.onred("Too many errors, canceling parsing...")))
return #src return #src + 1
end end
local err_pos = start_pos local err_pos = start_pos
local text_loc = userdata.source:sub(err_pos, err_pos) local text_loc = userdata.source:sub(err_pos, err_pos)
@ -436,7 +436,8 @@ do
local line_numbered_lua = "1 |" .. lua_string:gsub("\n", fn) local line_numbered_lua = "1 |" .. lua_string:gsub("\n", fn)
error("Failed to compile generated code:\n" .. tostring(colored.bright(colored.blue(colored.onblack(line_numbered_lua)))) .. "\n\n" .. tostring(err), 0) error("Failed to compile generated code:\n" .. tostring(colored.bright(colored.blue(colored.onblack(line_numbered_lua)))) .. "\n\n" .. tostring(err), 0)
end end
if not (self.source_map[tostring(lua.source)]) then local source_key = tostring(lua.source)
if not (self.source_map[source_key]) then
local map = { } local map = { }
local offset = 1 local offset = 1
local source = lua.source local source = lua.source
@ -480,14 +481,14 @@ do
fn(lua) fn(lua)
map[lua_line] = map[lua_line] or nomsu_line map[lua_line] = map[lua_line] or nomsu_line
map[0] = 0 map[0] = 0
self.source_map[tostring(lua.source)] = map self.source_map[source_key] = map
end end
return run_lua_fn() return run_lua_fn()
end, end,
tree_to_lua = function(self, tree) tree_to_lua = function(self, tree)
local _exp_0 = tree.type local _exp_0 = tree.type
if "Action" == _exp_0 then if "Action" == _exp_0 then
local stub = tree:get_stub() local stub = tree.stub
local compile_action = self.environment.COMPILE_ACTIONS[stub] local compile_action = self.environment.COMPILE_ACTIONS[stub]
if compile_action then if compile_action then
local args local args
@ -603,9 +604,9 @@ do
end end
bits = _accum_0 bits = _accum_0
end end
return t.type .. "(Tuple(" .. table.concat(bits, ", ") .. "), " .. repr(t.source) .. ")" return t.type .. "(Tuple(" .. table.concat(bits, ", ") .. "), " .. repr(tostring(t.source)) .. ")"
else else
return t.type .. "(" .. repr(t.value) .. ", " .. repr(t.source) .. ")" return t.type .. "(" .. repr(t.value) .. ", " .. repr(tostring(t.source)) .. ")"
end end
end end
return Lua.Value(tree.source, make_tree(tree.value[1])) return Lua.Value(tree.source, make_tree(tree.value[1]))
@ -1129,13 +1130,13 @@ do
end end
end end
self:define_compile_action("Lua %code", function(self, _code) self:define_compile_action("Lua %code", function(self, _code)
local lua = Lua.Value(_code.source, "Lua(", repr(_code.source)) local lua = Lua.Value(_code.source, "Lua(", repr(tostring(_code.source)))
add_lua_string_bits(lua, _code) add_lua_string_bits(lua, _code)
lua:append(")") lua:append(")")
return lua return lua
end) end)
self:define_compile_action("Lua value %code", function(self, _code) self:define_compile_action("Lua value %code", function(self, _code)
local lua = Lua.Value(_code.source, "Lua.Value(", repr(_code.source)) local lua = Lua.Value(_code.source, "Lua.Value(", repr(tostring(_code.source)))
add_lua_string_bits(lua, _code) add_lua_string_bits(lua, _code)
lua:append(")") lua:append(")")
return lua return lua
@ -1436,7 +1437,6 @@ OPTIONS
if info.lastlinedefined then if info.lastlinedefined then
info.lastlinedefined = assert(map[info.lastlinedefined]) info.lastlinedefined = assert(map[info.lastlinedefined])
end end
info.short_src = info.source:match('"([^[]*)')
end end
end end
end end
@ -1504,8 +1504,7 @@ OPTIONS
if calling_fn.lastlinedefined then if calling_fn.lastlinedefined then
calling_fn.lastlinedefined = assert(map[calling_fn.lastlinedefined]) calling_fn.lastlinedefined = assert(map[calling_fn.lastlinedefined])
end end
calling_fn.short_src = calling_fn.source:match('"([^[]*)') local filename, start, stop = calling_fn.source:match('@([^[]*)%[([0-9]+):([0-9]+)]')
local filename, start, stop = calling_fn.source:match('"([^[]*)%[([0-9]+):([0-9]+)]"')
assert(filename) assert(filename)
local file = FILE_CACHE[filename]:sub(tonumber(start), tonumber(stop)) local file = FILE_CACHE[filename]:sub(tonumber(start), tonumber(stop))
local err_line = get_line(file, calling_fn.currentline):sub(1, -2) local err_line = get_line(file, calling_fn.currentline):sub(1, -2)

23
nomsu.moon
View File

@ -169,7 +169,7 @@ NOMSU_DEFS = with {}
return true return true
if utils.size(seen_errors) >= 10 if utils.size(seen_errors) >= 10
seen_errors[start_pos+1] = colored.bright colored.yellow colored.onred "Too many errors, canceling parsing..." seen_errors[start_pos+1] = colored.bright colored.yellow colored.onred "Too many errors, canceling parsing..."
return #src return #src+1
err_pos = start_pos err_pos = start_pos
--if src\sub(err_pos,err_pos)\match("[\r\n]") --if src\sub(err_pos,err_pos)\match("[\r\n]")
-- err_pos += #src\match("[ \t\n\r]*", err_pos) -- err_pos += #src\match("[ \t\n\r]*", err_pos)
@ -398,7 +398,8 @@ class NomsuCompiler
("\n%-3d|")\format(n) ("\n%-3d|")\format(n)
line_numbered_lua = "1 |"..lua_string\gsub("\n", fn) line_numbered_lua = "1 |"..lua_string\gsub("\n", fn)
error("Failed to compile generated code:\n#{colored.bright colored.blue colored.onblack line_numbered_lua}\n\n#{err}", 0) error("Failed to compile generated code:\n#{colored.bright colored.blue colored.onblack line_numbered_lua}\n\n#{err}", 0)
unless @source_map[tostring(lua.source)] source_key = tostring(lua.source)
unless @source_map[source_key]
map = {} map = {}
offset = 1 offset = 1
source = lua.source source = lua.source
@ -433,7 +434,7 @@ class NomsuCompiler
map[lua_line] or= nomsu_line map[lua_line] or= nomsu_line
map[0] = 0 map[0] = 0
-- Mapping from lua line number to nomsu line numbers -- Mapping from lua line number to nomsu line numbers
@source_map[tostring(lua.source)] = map @source_map[source_key] = map
return run_lua_fn! return run_lua_fn!
@ -442,7 +443,7 @@ class NomsuCompiler
tree_to_lua: (tree)=> tree_to_lua: (tree)=>
switch tree.type switch tree.type
when "Action" when "Action"
stub = tree\get_stub! stub = tree.stub
compile_action = @environment.COMPILE_ACTIONS[stub] compile_action = @environment.COMPILE_ACTIONS[stub]
if compile_action if compile_action
args = [arg for arg in *tree.value when type(arg) != "string"] args = [arg for arg in *tree.value when type(arg) != "string"]
@ -499,9 +500,9 @@ class NomsuCompiler
return repr(t) return repr(t)
if t.is_multi if t.is_multi
bits = [make_tree(bit) for bit in *t.value] bits = [make_tree(bit) for bit in *t.value]
return t.type.."(Tuple("..table.concat(bits, ", ").."), "..repr(t.source)..")" return t.type.."(Tuple("..table.concat(bits, ", ").."), "..repr(tostring t.source)..")"
else else
return t.type.."("..repr(t.value)..", "..repr(t.source)..")" return t.type.."("..repr(t.value)..", "..repr(tostring t.source)..")"
Lua.Value tree.source, make_tree(tree.value[1]) Lua.Value tree.source, make_tree(tree.value[1])
when "Block" when "Block"
@ -901,13 +902,13 @@ class NomsuCompiler
lua\append bit_lua lua\append bit_lua
@define_compile_action "Lua %code", (_code)=> @define_compile_action "Lua %code", (_code)=>
lua = Lua.Value(_code.source, "Lua(", repr(_code.source)) lua = Lua.Value(_code.source, "Lua(", repr(tostring _code.source))
add_lua_string_bits(lua, _code) add_lua_string_bits(lua, _code)
lua\append ")" lua\append ")"
return lua return lua
@define_compile_action "Lua value %code", (_code)=> @define_compile_action "Lua value %code", (_code)=>
lua = Lua.Value(_code.source, "Lua.Value(", repr(_code.source)) lua = Lua.Value(_code.source, "Lua.Value(", repr(tostring _code.source))
add_lua_string_bits(lua, _code) add_lua_string_bits(lua, _code)
lua\append ")" lua\append ")"
return lua return lua
@ -1008,7 +1009,7 @@ OPTIONS
info.linedefined = assert(map[info.linedefined]) info.linedefined = assert(map[info.linedefined])
if info.lastlinedefined if info.lastlinedefined
info.lastlinedefined = assert(map[info.lastlinedefined]) info.lastlinedefined = assert(map[info.lastlinedefined])
info.short_src = info.source\match('"([^[]*)') --info.short_src = info.source\match('@([^[]*)')
return info return info
print_err_msg = (error_message, stack_offset=3)-> print_err_msg = (error_message, stack_offset=3)->
@ -1048,8 +1049,8 @@ OPTIONS
calling_fn.linedefined = assert(map[calling_fn.linedefined]) calling_fn.linedefined = assert(map[calling_fn.linedefined])
if calling_fn.lastlinedefined if calling_fn.lastlinedefined
calling_fn.lastlinedefined = assert(map[calling_fn.lastlinedefined]) calling_fn.lastlinedefined = assert(map[calling_fn.lastlinedefined])
calling_fn.short_src = calling_fn.source\match('"([^[]*)') --calling_fn.short_src = calling_fn.source\match('"([^[]*)')
filename,start,stop = calling_fn.source\match('"([^[]*)%[([0-9]+):([0-9]+)]"') filename,start,stop = calling_fn.source\match('@([^[]*)%[([0-9]+):([0-9]+)]')
assert(filename) assert(filename)
file = FILE_CACHE[filename]\sub(tonumber(start),tonumber(stop)) file = FILE_CACHE[filename]\sub(tonumber(start),tonumber(stop))
err_line = get_line(file, calling_fn.currentline)\sub(1,-2) err_line = get_line(file, calling_fn.currentline)\sub(1,-2)

74
nomsu_tree.lua
View File

@ -25,7 +25,7 @@ Tree = function(name, kind, methods)
do do
methods.type = name methods.type = name
methods.name = name methods.name = name
methods.__new = function(self, value, source) methods.__new = methods.__new or function(self, value, source)
assert(source) assert(source)
if type(source) == 'string' then if type(source) == 'string' then
source = Source:from_string(source) source = Source:from_string(source)
@ -93,10 +93,18 @@ Tree = function(name, kind, methods)
end end
end end
end end
Types[name] = immutable({ if name == "Action" then
"value", Types[name] = immutable({
"source" "value",
}, methods) "source",
"stub"
}, methods)
else
Types[name] = immutable({
"value",
"source"
}, methods)
end
end end
Tree("Block", 'multi') Tree("Block", 'multi')
Tree("EscapedNomsu", 'multi') Tree("EscapedNomsu", 'multi')
@ -109,35 +117,35 @@ Tree("Number", 'single')
Tree("Comment", 'single') Tree("Comment", 'single')
Tree("Var", 'single') Tree("Var", 'single')
Tree("Action", 'multi', { Tree("Action", 'multi', {
get_stub = function(self, include_names) __new = function(self, value, source)
if include_names == nil then assert(source)
include_names = false if type(source) == 'string' then
end source = Source:from_string(source)
if include_names then
return concat((function()
local _accum_0 = { }
local _len_0 = 1
local _list_0 = self.value
for _index_0 = 1, #_list_0 do
local a = _list_0[_index_0]
_accum_0[_len_0] = type(a) == "string" and a or "%" .. tostring(a.value)
_len_0 = _len_0 + 1
end
return _accum_0
end)(), " ")
else
return concat((function()
local _accum_0 = { }
local _len_0 = 1
local _list_0 = self.value
for _index_0 = 1, #_list_0 do
local a = _list_0[_index_0]
_accum_0[_len_0] = type(a) == "string" and a or "%"
_len_0 = _len_0 + 1
end
return _accum_0
end)(), " ")
end end
local stub = concat((function()
local _accum_0 = { }
local _len_0 = 1
for _index_0 = 1, #value do
local a = value[_index_0]
_accum_0[_len_0] = type(a) == "string" and a or "%"
_len_0 = _len_0 + 1
end
return _accum_0
end)(), " ")
return value, source, stub
end,
get_spec = function(self)
return concat((function()
local _accum_0 = { }
local _len_0 = 1
local _list_0 = self.value
for _index_0 = 1, #_list_0 do
local a = _list_0[_index_0]
_accum_0[_len_0] = type(a) == "string" and a or "%" .. tostring(a.value)
_len_0 = _len_0 + 1
end
return _accum_0
end)(), " ")
end end
}) })
return Types return Types

20
nomsu_tree.moon
View File

@ -20,7 +20,7 @@ Tree = (name, kind, methods)->
with methods with methods
.type = name .type = name
.name = name .name = name
.__new = (value, source)=> .__new or= (value, source)=>
assert source assert source
if type(source) == 'string' if type(source) == 'string'
source = Source\from_string(source) source = Source\from_string(source)
@ -46,7 +46,10 @@ Tree = (name, kind, methods)->
._map = (fn)=> ._map = (fn)=>
fn(@) or @ fn(@) or @
Types[name] = immutable {"value", "source"}, methods if name == "Action"
Types[name] = immutable {"value", "source", "stub"}, methods
else
Types[name] = immutable {"value", "source"}, methods
Tree "Block", 'multi' Tree "Block", 'multi'
Tree "EscapedNomsu", 'multi' Tree "EscapedNomsu", 'multi'
@ -60,10 +63,13 @@ Tree "Comment", 'single'
Tree "Var", 'single' Tree "Var", 'single'
Tree "Action", 'multi', Tree "Action", 'multi',
get_stub: (include_names=false)=> __new: (value, source)=>
if include_names assert source
concat [type(a) == "string" and a or "%#{a.value}" for a in *@value], " " if type(source) == 'string'
else source = Source\from_string(source)
concat [type(a) == "string" and a or "%" for a in *@value], " " stub = concat [type(a) == "string" and a or "%" for a in *value], " "
return value, source, stub
get_spec: =>
concat [type(a) == "string" and a or "%#{a.value}" for a in *@value], " "
return Types return Types

33
tests/object.nom
View File

@ -1,16 +1,15 @@
use "core" use "core"
use "lib/object.nom" use "lib/object.nom"
immediately object "Dog"
object "Dog" action [bark]
action [bark] %barks <- ("Bark!" for % in 1 to ((me).barks))
%barks <- ("Bark!" for % in 1 to ((me).barks)) return: %barks joined with " "
return: %barks joined with " "
action [get pissed off] action [get pissed off]
((me).barks) +<- 1 ((me).barks) +<- 1
%d <-: new Dog {barks:2} %d <-: new "Dog" {barks:2}
as %d as %d
assume: (me) = %d assume: (me) = %d
assume: ((me).barks) = 2 assume: ((me).barks) = 2
@ -18,10 +17,24 @@ as %d
get pissed off get pissed off
assume: ((me).barks) = 3 assume: ((me).barks) = 3
assume: (bark) = "Bark! Bark! Bark!" assume: (bark) = "Bark! Bark! Bark!"
assume: "\(%d's "class")" = "Dog" assume: "\(%d.class)" = "Dog"
assume: (%d's "barks") = 3 assume: (%d's "barks") = 3
as: new Dog {barks:1} as: new "Dog" {barks:1}
assume: (bark) = "Bark!" assume: (bark) = "Bark!"
action [foo]
as: new "Dog" {barks:23}
return: (me).barks
barf "Reached unreachable code"
assume: (foo) = 23
as: new "Dog" {barks:101}
try: as (new "Dog" {barks:8}) (barf)
..and if it succeeds: barf
assume: (me).barks = 101
..or barf "Error in nested 'as % %' failed to properly reset 'self'"
say "Object test passed." say "Object test passed."