Bruce Hill
2bbc035f5d
using that to simplify the tools. Now the tools directly take lists of file paths rather than things that might go through nomsupath or directories or get processed by filetype. Use your shell for globbing stuff like `nomsu tools/test.nom core/*.nom`
44 lines
1.4 KiB
Plaintext
Executable File
44 lines
1.4 KiB
Plaintext
Executable File
#!/usr/bin/env nomsu -V4.11.12.8
|
|
#
|
|
Tool to find and replace one tree with another.
|
|
nomsu tools/replace.nom [-i] tree_to_replace replacement file1 file2 directory1 ...
|
|
If "-i" is the first argument, replacements will be performed in-place. Otherwise, the
|
|
upgraded code will be printed.
|
|
|
|
use "lib/os.nom"
|
|
|
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
barf "Deprecated."
|
|
|
|
if ((size of %args.extra_args) < 3):
|
|
say "Usage: nomsu tools/replace.nom [-i] tree_to_replace replacement files..."
|
|
lua> "os.exit(1)"
|
|
|
|
%pattern = ((%args.extra_args.1) parsed)
|
|
%replacement = ((%args.extra_args.2) parsed)
|
|
for %filename in %args.extra_args at %i:
|
|
if (%i < 3): do next %i
|
|
%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)
|
|
# TODO: fix this to use variable substitution
|
|
%tree2 = (..)
|
|
%tree::map (..)
|
|
for %subtree:
|
|
if (%subtree == %pattern):
|
|
return %replacement
|
|
if (%tree2 == %tree):
|
|
say "No changes in \%filename"
|
|
do next %filename
|
|
|
|
%text = ((%tree2 as nomsu)::text)
|
|
when:
|
|
%args."-i":
|
|
say "Replaced in \%filename"
|
|
write %text to file %filename
|
|
|
|
else:
|
|
say %text
|