diff options
Diffstat (limited to 'tools/parse.nom')
| -rwxr-xr-x | tools/parse.nom | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/tools/parse.nom b/tools/parse.nom index 0745847..e6768a6 100755 --- a/tools/parse.nom +++ b/tools/parse.nom @@ -1,4 +1,4 @@ -#!/usr/bin/env nomsu -V4.12.12.8 +#!/usr/bin/env nomsu -V5.12.12.8 # Tool to print out a parse tree of files in an easy-to-read format. Usage: nomsu tools/parse.nom file1 file2 directory1 ... @@ -7,39 +7,39 @@ use "lib/os.nom" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -externally (print tree %t at indent %indent) means: - if %t.type is: +externally (print tree $t at indent $indent) means: + if $t.type is: "Action": - say "\(%indent)Action (\(%t.stub)):" - for %arg in %t: - if (%arg is syntax tree): - print tree %arg at indent "\%indent " - + say "\($indent)Action (\($t.stub)):" + for $arg in $t: + if ($arg is syntax tree): + print tree $arg at indent "\$indent " + "MethodCall": - say "\(%indent)MethodCall on:" - print tree %t.1 at indent "\%indent " - print tree %t.2 at indent "\%indent " + say "\($indent)MethodCall on:" + print tree $t.1 at indent "\$indent " + print tree $t.2 at indent "\$indent " "Number": - say "\%indent\(%t.1)" + say "\$indent\($t.1)" "Var": - say "\(%indent)%\(%t.1)" + say "\($indent)%\($t.1)" else: - say "\%indent\(%t.type):" - for %arg in %t: + say "\$indent\($t.type):" + for $arg in $t: when: - (%arg is syntax tree): - print tree %arg at indent "\%indent " + ($arg is syntax tree): + print tree $arg at indent "\$indent " else: - say "\%indent \(quote %arg)" + say "\$indent \(quote $arg)" -for %filename in (command line args).extra_args: - %file = (read file %filename) - unless %file: - barf "File does not exist: \%filename" - %nomsu = (NomsuCode from (Source %filename 1 (size of %file)) %file) - %tree = (%nomsu parsed) - print tree %tree at indent "" +for $filename in (command line args).extra_args: + $file = (read file $filename) + unless $file: + barf "File does not exist: \$filename" + $nomsu = (NomsuCode from (Source $filename 1 (size of $file)) $file) + $tree = ($nomsu parsed) + print tree $tree at indent "" |