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

Added lisp-y output

Browse Source
This commit is contained in:
Bruce Hill 2019-03-20 14:15:43 -07:00
parent 12db69cdd6
commit 606fd09000
1 changed files with 31 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lib/tools/parse.nom
View File

@ -42,15 +42,29 @@ use "commandline"
"a Syntax Tree": "a Syntax Tree":
$body = ([: for $bit in $: add ($bit as xml)], joined with " ") $body = ([: for $bit in $: add ($bit as xml)], joined with " ")
if ($.type == "Action"): if ($.type == "Action"):
return (" return "<Action name=\"\(($, get stub) as xml)\">\$body</Action>"
<Action name="\(($, get stub) as xml)">\$body</Action>
")
..else: ..else:
return (" return "<\($.type)>\$body</\($.type)>"
<\($.type)>\$body</\($.type)>
")
"Text": "Text":
return ($, with "&" -> "&amp;", with "\"" -> "&quot;", with "'" -> "&apos;", with "<" -> "&lt;", with ">" -> "&gt;") return
(
($, with "&" -> "&amp;", with "\"" -> "&quot;", with "'" -> "&apos;"),
with "<" -> "&lt;"
), with ">" -> "&gt;"
else:
return "\$"
($ as lisp) means:
when (type of $) is:
"a Syntax Tree":
$body = ([$.type, : for $bit in $: add ($bit as lisp)], joined with " ")
return "(\$body)"
"Text":
return "\"\($, with "\\" -> "\\\\", with "\"" -> "\\\"", with "\n" -> "\\n")\""
else: else:
return "\$" return "\$"
@ -59,9 +73,14 @@ command line program with $args:
$file = (read file $filename) $file = (read file $filename)
unless $file: unless $file:
fail "File does not exist: \$filename" fail "File does not exist: \$filename"
$nomsu = (NomsuCode from (Source $filename 1 (size of $file)) $file) $nomsu = (NomsuCode from (Source $filename 1 (#$file)) $file)
$tree = ($nomsu parsed) $tree = ($nomsu parsed)
if ($args.x or $args.xml): when:
say ($tree as xml) ($args.x or $args.xml):
..else: say ($tree as xml)
print tree $tree at indent ""
($args.l or $args.lisp):
say ($tree as lisp)
else:
print tree $tree at indent ""