diff options
| -rwxr-xr-x | tools/format.nom | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/tools/format.nom b/tools/format.nom index 8355176..0f09834 100755 --- a/tools/format.nom +++ b/tools/format.nom @@ -21,11 +21,20 @@ for $filename in $filenames: 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")" + 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 $(COMMAND LINE ARGS)."-i": - write $formatted to file $filename - ..else: - say $formatted inline + if $formatted: + if $(COMMAND LINE ARGS)."-i": + write $formatted to file $filename + ..else: + say $formatted inline |