diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2018-12-18 19:25:10 -0800 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2018-12-18 19:25:10 -0800 |
| commit | 8e52f1901b73f2072d21f8c79ef52bf137180161 (patch) | |
| tree | 6592b33786687ffecd45a764178a084d03feaa43 /tools/autoformat.nom | |
| parent | 94740a9b414a0fd9af70acb9b8bf3b9576b537e1 (diff) | |
Renamed autoformat -> format for concision (it's obviously auto, it's a
tool).
Diffstat (limited to 'tools/autoformat.nom')
| -rwxr-xr-x | tools/autoformat.nom | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/tools/autoformat.nom b/tools/autoformat.nom deleted file mode 100755 index d878a02..0000000 --- a/tools/autoformat.nom +++ /dev/null @@ -1,31 +0,0 @@ -#!/usr/bin/env nomsu -V5.12.12.8 -# - Auto-format Nomsu code. Usage: - nomsu -t autoformat [-i] file1 file2... - - If the "-i" flag is used, the file will be edited in-place. - If no files are passed in, this will read from stdin. - -use "lib/os.nom" - -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -$filenames = $(COMMAND LINE ARGS).extras -if ((#$filenames) == 0): - say "Warning: reading from stdin (ctrl-d to abort). To avoid this message, use nomsu -t autoformat -" - $filenames = ["stdin"] - -for $filename in $filenames: - $file = (read file $filename) - unless $file: - barf "File does not exist: \$filename" - $leading_indent = ($file|matching "[\n]*([ ]*)") - $code = (NomsuCode from ($Source $filename 1 (size of $file)) $file) - $tree = ($code parsed) - $formatted = " - \$leading_indent\((($tree as nomsu)|text)|with "\n" -> "\n\$leading_indent")" - - if $(COMMAND LINE ARGS)."-i": - write $formatted to file $filename - ..else: - say $formatted inline |
