diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2018-11-19 17:37:37 -0800 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2018-11-19 17:37:37 -0800 |
| commit | a89d69e843ba83df928051005d02a932a9981f46 (patch) | |
| tree | 17f99cda2d4e5f0a7983ed14f4ac559b64944207 /tools/parse.nom | |
| parent | 43ff3892f39188163446f1a00ee8d2aad59e0392 (diff) | |
Autoformatted/auto-upgraded.
Diffstat (limited to 'tools/parse.nom')
| -rwxr-xr-x | tools/parse.nom | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tools/parse.nom b/tools/parse.nom index 10d4dde..9e43c88 100755 --- a/tools/parse.nom +++ b/tools/parse.nom @@ -1,4 +1,4 @@ -#!/usr/bin/env nomsu -V4.10.12.7 +#!/usr/bin/env nomsu -V4.11.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 ... @@ -37,9 +37,12 @@ externally (print tree %t at indent %indent) means: for %path in (command line args): for %filename in (files for %path): - if (%filename == "-"): %filename = "stdin" + 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) |
