nomsu/tools/parse.nom

#!/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 ""