Bruce/nomsu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated to be more fault tolerant with "-q" flag

Browse Source
This commit is contained in:
Bruce Hill 2018-12-19 02:27:10 -08:00
parent a7d912a33a
commit f75fc15cdf
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tools/format.nom
View File

@ -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