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

Updating some more stuff.

Browse Source
This commit is contained in:
Bruce Hill 2017-12-14 13:57:53 -08:00
parent 10659d2f37
commit 1111210047
3 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lib/plurals.nom
View File

@ -4,19 +4,19 @@ require "lib/secrets.nom"
# Plurals
with secrets:
lua do> ".."
|local endings = setmetatable({x="es",c="es",s="es"}, {__index=function() return "s"; end});
|secrets.plurals = setmetatable({}, {__index=function(self,key)
| return key..endings[key:sub(-1)];
|end});
|secrets.singulars = setmetatable({}, {__index=function(self,key)
| if key:sub(-2) == "es" and rawget(endings, key:sub(-3,-3)) then return key:sub(1,-3); end
| if key:sub(-1) == "s" then return key:sub(1,-2); end
| return key;
|end});
|secrets.canonicals = setmetatable({}, {__index=function(self,key)
| if key:sub(-1) == "s" then return secrets.singulars[key]; end
| return key;
|end});
local endings = setmetatable({x="es",c="es",s="es"}, {__index=function() return "s"; end});
secrets.plurals = setmetatable({}, {__index=function(self,key)
return key..endings[key:sub(-1)];
end});
secrets.singulars = setmetatable({}, {__index=function(self,key)
if key:sub(-2) == "es" and rawget(endings, key:sub(-3,-3)) then return key:sub(1,-3); end
if key:sub(-1) == "s" then return key:sub(1,-2); end
return key;
end});
secrets.canonicals = setmetatable({}, {__index=function(self,key)
if key:sub(-1) == "s" then return secrets.singulars[key]; end
return key;
end});
rule [the plural of %singular is %plural] =:
(secret %plurals)->%singular = %plural

8
lib/secrets.nom
View File

@ -1,10 +1,10 @@
require "lib/core.nom"
compile [with secrets %block] to code: ".."
|do;
| local secrets = {};
| \(%block as lua statements)
|end;
do
local secrets = {};
\(%block as lua statements)
end
# Access the lua variable that should be within scope
compile [secrets] to: "secrets"

10
lib/testing.nom
View File

@ -4,10 +4,10 @@ require "lib/metaprogramming.nom"
rule [test tree %generated == %expected] =:
if (%generated != %expected):
error ".."
|Test Failed!
|Expected:
|\(%expected)
|But got:
|\(%generated)
Test Failed!
Expected:
\(%expected)
But got:
\(%generated)
parse [test %code yields %expected] as:
test tree (nomsu "tree_to_str" [\%code]) == %expected