Shifting further towards having inline tests. Also added a helper

function for directly extracting source lines from a Source or AST.

1 files changed, 21 insertions, 0 deletions

diff --git a/tools/find_action.nom b/tools/find_action.nom
new file mode 100755
index 0000000..03bae54
--- /dev/null
+++ b/tools/find_action.nom
@@ -0,0 +1,21 @@
+#!/usr/bin/env nomsu -V2.5.4.3
+use "core"
+use "lib/os.nom"
+use "lib/consolecolor.nom"
+
+%stub = (command line args).1
+say "Looking for stub: \%stub (from \(command line args))"
+%files = ((command line args).% for % in 2 to (|| (command line args) ||))
+for %path in %files:
+    for file %filename in %path:
+        unless (%filename matches "%.nom$") (do next %filename)
+        %file = (read file %filename)
+        %tree = (parse %file from %filename)
+        for %t in recursive %tree:
+            if (%t is "Action" syntax tree) (..)
+                if (%t.stub is %stub):
+                    %line_num = (line number of %t.source.start in %file)
+                    say (blue "\%filename:\%line_num:")
+                    say (yellow (source lines of %t))
+            
+            if (%t is syntax tree) (for %sub in %t (recurse %t on %sub))