40 lines
1.3 KiB
Plaintext
Executable File
40 lines
1.3 KiB
Plaintext
Executable File
#!/usr/bin/env nomsu -V4.12.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
|