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" barf "File does not exist: \$filename"
$leading_indent = ($file|matching "[\n]*([ ]*)") $leading_indent = ($file|matching "[\n]*([ ]*)")
$code = (NomsuCode from ($Source $filename 1 (size of $file)) $file) $code = (NomsuCode from ($Source $filename 1 (size of $file)) $file)
$tree = ($code parsed) try:
$formatted = " $tree = ($code parsed)
\$leading_indent\((($tree as nomsu)|text)|with "\n" -> "\n\$leading_indent")" ..and if it barfs $msg:
if $(COMMAND LINE ARGS)."-q":
$formatted = $file
..else:
say $msg
if $(COMMAND LINE ARGS)."-i": if ($tree and (not $formatted)):
write $formatted to file $filename $formatted = "
..else: \$leading_indent\((($tree as nomsu)|text)|with "\n" -> "\n\$leading_indent")"
say $formatted inline
if $formatted:
if $(COMMAND LINE ARGS)."-i":
write $formatted to file $filename
..else:
say $formatted inline