Bruce/nomsu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added replace -q and chmod +x'd two tools.

Browse Source
This commit is contained in:
Bruce Hill 2018-12-31 01:52:46 -08:00
parent 0ae59c5a90
commit 811aefd0df
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
tools/repl.nom Normal file → Executable file
View File

15
tools/replace.nom Normal file → Executable file
View File

@ -3,7 +3,7 @@
This is a tool to replace syntax trees with something new. This is a tool to replace syntax trees with something new.
Usage: Usage:
nomsu -t replace [-i] [--literal="$v1 $v2..."] <pattern> <replacement> file1 file2... nomsu -t replace [-i] [-f] [-q] [--literal="$v1 $v2..."] <pattern> <replacement> file1 file2...
Example: Example:
nomsu -t replace "($1 and $2) and $3" "all of [$1, $2, $3]" my_file.nom nomsu -t replace "($1 and $2) and $3" "all of [$1, $2, $3]" my_file.nom
@ -11,6 +11,8 @@
If the "-i" flag is used, the file(s) will be edited in-place. If the "-i" flag is used, the file(s) will be edited in-place.
When editing in-place, if the "-f" flag is not used, each change will be When editing in-place, if the "-f" flag is not used, each change will be
run past the user first. run past the user first.
If the "-q" flag is used and a file fails to parse, the original file
contents will be output.
If no files are passed in, this will read from stdin. If no files are passed in, this will read from stdin.
use "lib/os.nom" use "lib/os.nom"
@ -89,12 +91,11 @@ for $filename in $filenames:
try: try:
$tree = ($code parsed) $tree = ($code parsed)
..and if it barfs $msg: ..and if it barfs $msg:
say if $(COMMAND LINE ARGS).q:
red (" unless $(COMMAND LINE ARGS).i:
\$filename failed to parse: say $code
\$msg ..else:
") say $msg
$tree = (nil)
unless $tree: unless $tree:
do next $filename do next $filename