47 lines
1.5 KiB
Plaintext
Executable File
47 lines
1.5 KiB
Plaintext
Executable File
#!/usr/bin/env nomsu -V4.10.12.7
|
|
#
|
|
Tool to print out a parse tree of files in an easy-to-read format. Usage:
|
|
nomsu tools/parse.nom file1 file2 directory1 ...
|
|
|
|
use "lib/os.nom"
|
|
|
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
externally (print tree %t at indent %indent) means:
|
|
if %t.type is:
|
|
"Action":
|
|
say "\(%indent)Action (\(%t.stub)):"
|
|
if %t.target:
|
|
say "\%indent Target:"
|
|
print tree %t.target at indent "\%indent "
|
|
|
|
for %arg in %t:
|
|
if (%arg is syntax tree):
|
|
print tree %arg at indent "\%indent "
|
|
|
|
"Number":
|
|
say "\%indent\(%t.1)"
|
|
|
|
"Var":
|
|
say "\(%indent)%\(%t.1)"
|
|
|
|
else:
|
|
say "\%indent\(%t.type):"
|
|
for %arg in %t:
|
|
when:
|
|
(%arg is syntax tree):
|
|
print tree %arg at indent "\%indent "
|
|
|
|
else:
|
|
say "\%indent \(quote %arg)"
|
|
|
|
for %path in (command line args):
|
|
for %filename in (files for %path):
|
|
if (%filename == "-"): %filename = "stdin"
|
|
unless ((%filename == "stdin") or (%filename::matches "%.nom$")):
|
|
do next %filename
|
|
%text = (read file %filename)
|
|
%nomsu = (NomsuCode from (Source %filename 1 (size of %text)) %text)
|
|
%tree = (%nomsu parsed)
|
|
print tree %tree at indent ""
|