Bruce Hill
ec69ee6f62
before modifying them, and major upgrades to the nomsu codegen, including support for indented inline arguments (instead of using "\n..") and just generally better line wrapping, including finally good rules for when to use indented text (for almost all cases).
41 lines
1.2 KiB
Plaintext
Executable File
41 lines
1.2 KiB
Plaintext
Executable File
#!/usr/bin/env nomsu -V6.12.12.8
|
|
#
|
|
Auto-format Nomsu code. Usage:
|
|
nomsu -t format [-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 format -"
|
|
$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)
|
|
try:
|
|
$tree = ($code parsed)
|
|
..and if it barfs $msg:
|
|
if $(COMMAND LINE ARGS)."-q":
|
|
$formatted = $file
|
|
..else:
|
|
say $msg
|
|
|
|
if ($tree and (not $formatted)):
|
|
$formatted =
|
|
.."\$leading_indent\($tree as nomsu, text, with "\n" -> "\n\$leading_indent")"
|
|
|
|
if $formatted:
|
|
if $(COMMAND LINE ARGS)."-i":
|
|
write $formatted to file $filename
|
|
..else:
|
|
say $formatted inline
|