Autoformat (mostly just to do with the new
blank-line-after-end-of-multi-indent-block rule
This commit is contained in:
parent
bb07e67241
commit
a1849da175
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
### How do I...
|
||||
### Write a comment? Put a # and go till the end of the line
|
||||
### How do I write a multi-line comment?
|
||||
@ -199,6 +198,7 @@ say both "Hello" and also "world!"
|
||||
$f2 = $tmp
|
||||
if ($f2 > $n):
|
||||
return $f2
|
||||
|
||||
say (first fibonacci above 10)
|
||||
|
||||
### Actions can have aliases, which may or may not have the arguments in different order
|
||||
@ -290,6 +290,7 @@ say "The square root of 2 is \(square root of 2)"
|
||||
")
|
||||
..else:
|
||||
return (Lua "-- (debug code removed for production)")
|
||||
|
||||
$DEBUG_ENABLED = (yes)
|
||||
|
||||
### Constants can be defined as macros
|
||||
@ -318,6 +319,7 @@ debug only:
|
||||
$key = ($key_fn $item)
|
||||
if (($best == (nil)) or ($key > $best_key)):
|
||||
[$best, $best_key] = [$item, $key]
|
||||
|
||||
return $best
|
||||
|
||||
### Function literals look like: $x -> ($x * $x)
|
||||
@ -338,6 +340,7 @@ say (best of [2, -3, 4, -8] according to $($ squared))
|
||||
$key = $key_expr
|
||||
if (($best == (nil)) or ($key > $best_key)):
|
||||
[$best, $best_key] = [$item, $key]
|
||||
|
||||
return $best
|
||||
|
||||
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||
@ -352,4 +355,5 @@ say
|
||||
$key = ($x * $x)
|
||||
if (($best == (nil)) or ($key > $best_key)):
|
||||
[$best, $best_key] = [$x, $key]
|
||||
|
||||
return $best
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines actions for encoding/decoding base 64, as specified in:
|
||||
https://tools.ietf.org/html/rfc4648
|
||||
@ -37,6 +36,7 @@ external:
|
||||
$chars, add $b64_chars.((($bytes.1 & 3) << 4) + 1)
|
||||
$chars, add "="
|
||||
$chars, add "="
|
||||
|
||||
return ($chars, joined)
|
||||
(chr $) means (=lua "string.char(\$)")
|
||||
[decode base64 $str, $str base64 decoded, base64 decode $str] all mean:
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
A library defining some command line program functionality
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <2.3 to Nomsu 2.3
|
||||
|
||||
|
||||
@ -14,9 +14,7 @@ upgrade $tree to "2.4" as:
|
||||
return $tree
|
||||
$conditions = []
|
||||
$new_lines = []
|
||||
$body =
|
||||
$tree.2 if ($tree.2 is "Block" syntax tree) else [$tree.2]
|
||||
|
||||
$body = ($tree.2 if ($tree.2 is "Block" syntax tree) else [$tree.2])
|
||||
for $line in $body:
|
||||
when:
|
||||
(not ($line is "Action" syntax tree)):
|
||||
@ -48,9 +46,7 @@ upgrade $tree to "2.4" as:
|
||||
"if 1 is ?" "if 1 = ?":
|
||||
$values = []
|
||||
$new_lines = []
|
||||
$body =
|
||||
$tree.5 if ($tree.5 is "Block" syntax tree) else [$tree.5]
|
||||
|
||||
$body = ($tree.5 if ($tree.5 is "Block" syntax tree) else [$tree.5])
|
||||
for $line in $body:
|
||||
when:
|
||||
(not ($line is "Action" syntax tree)):
|
||||
@ -76,7 +72,4 @@ upgrade $tree to "2.4" as:
|
||||
$values = []
|
||||
|
||||
return
|
||||
\(
|
||||
if \($tree.2) is
|
||||
\("Block" tree from $tree.5.source with (unpack $new_lines))
|
||||
)
|
||||
\(if \$tree.2 is \("Block" tree from $tree.5.source with (unpack $new_lines)))
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <2.5.5.5 to Nomsu 2.5.5.5
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <2.5 to Nomsu 2.5
|
||||
|
||||
|
||||
@ -15,7 +15,7 @@ upgrade $tree to "2" as:
|
||||
$false_body = $tree.5
|
||||
unless ($false_body is "Block" syntax tree):
|
||||
$false_body = (=lua "Block(\$false_body.source, \$false_body)")
|
||||
return \(if \($tree.2) \$true_body else \$false_body)
|
||||
return \(if \$tree.2 \$true_body else \$false_body)
|
||||
|
||||
$need_blocks = [
|
||||
"if", "unless", "for 1 in", "for 1 = 2 in", "repeat while 1", "repeat 1 times"
|
||||
@ -30,4 +30,4 @@ upgrade $tree to "2" as:
|
||||
unless (($bits, last) is "Block" syntax tree):
|
||||
$body = ($bits, last)
|
||||
$bits.(#$bits) = (=lua "SyntaxTree{type='Block', source=\$body.source, \$body}")
|
||||
return (=lua "SyntaxTree{type='Action', source=\$tree.source, unpack(\$bits)}")
|
||||
return (=lua "SyntaxTree{type='Action', source=\$tree.source, unpack(\$bits)}")
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <3.5.5.6 to Nomsu 3.5.5.6
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <3.6 to 3.6
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <3.7 to 3.7
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <3.8 to 3.8 (Text method changes)
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <=2 to Nomsu 3
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <4.10.12.7 to 4.10.12.7
|
||||
use "compatibility/compatibility"
|
||||
@ -59,6 +58,7 @@ upgrade $tree to "4.10.12.7" as:
|
||||
..else:
|
||||
if $has_use:
|
||||
go to (insert chunk)
|
||||
|
||||
$i += 1
|
||||
return
|
||||
--- (insert chunk) ---
|
||||
@ -74,4 +74,4 @@ upgrade $tree to "4.10.12.7" as:
|
||||
$new_tree = ("FileChunks" tree from $tree.source with $chunk1 $chunk2)
|
||||
for $i in (2 to #$tree):
|
||||
$new_tree.($i + 1) = $tree.$i
|
||||
return $new_tree
|
||||
return $new_tree
|
||||
@ -14,6 +14,7 @@ upgrade action "call 1 with" to "4.11" via
|
||||
for ($i = $arg) in $tree.4:
|
||||
$tree2.($i + 1) = $arg
|
||||
return (SyntaxTree $tree2)
|
||||
|
||||
upgrade action ->$yield_value to "4.11" as (yield $yield_value)
|
||||
|
||||
### Replace set {$x:1, $y:2} with [$x, $y] = [1, 2]
|
||||
@ -95,4 +96,4 @@ upgrade action [
|
||||
upgrade action [
|
||||
unless none of $items $body else $else
|
||||
unless none of $items then $body else $else
|
||||
] to "4.11" as (if (any of $items) $body else $else)
|
||||
] to "4.11" as (if (any of $items) $body else $else)
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <4.11 to Nomsu 4.11
|
||||
(overhaul of function literals, deleting (if all of ...), etc. shorthand)
|
||||
|
||||
@ -65,4 +65,4 @@ upgrade action "parse 1 as" to "4.8.10" via
|
||||
return \(\$spec parse as \$body)
|
||||
|
||||
upgrade action (compile as $) to "4.8.10" as (what $ compiles to)
|
||||
upgrade action (remove action $) to "4.8.10" as (($'s meaning) = (nil))
|
||||
upgrade action (remove action $) to "4.8.10" as (($'s meaning) = (nil))
|
||||
@ -9,4 +9,4 @@ upgrade action "if" to "4.9" via
|
||||
for $tree:
|
||||
if (#$tree > 2):
|
||||
return $tree
|
||||
return \(when \$tree.2)
|
||||
return \(when \$tree.2)
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <6.15.9 to 6.15.9
|
||||
|
||||
@ -18,4 +17,4 @@ upgrade action (for $x in $start to $stop $body) to "6.15.9" as
|
||||
upgrade action [
|
||||
for $x in $start to $stop by $step $body
|
||||
for $x in $start to $stop via $step $body
|
||||
] to "6.15.9" as (for $x in ($start to $stop by $step) $body)
|
||||
] to "6.15.9" as (for $x in ($start to $stop by $step) $body)
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines upgrades from Nomsu <6.15 to 6.15
|
||||
|
||||
|
||||
@ -28,6 +28,7 @@ external:
|
||||
for $i in (1 to #$action):
|
||||
if ($action.$i is "Var" syntax tree):
|
||||
$replacements.($action.$i.1) = "\(\$tree as lua id)[\$i]"
|
||||
|
||||
define mangler
|
||||
(make tree $t) means:
|
||||
when:
|
||||
@ -47,6 +48,7 @@ external:
|
||||
$args, add (make tree $v)
|
||||
..else:
|
||||
$args, add "\($k)=\(make tree $v)"
|
||||
|
||||
return "SyntaxTree{\($args, joined with ", ")}"
|
||||
|
||||
else:
|
||||
@ -63,6 +65,7 @@ external:
|
||||
return \$retval
|
||||
end)
|
||||
")
|
||||
|
||||
return $lua
|
||||
|
||||
[
|
||||
@ -110,6 +113,7 @@ external:
|
||||
$tree =
|
||||
SyntaxTree
|
||||
{: for ($k = $v) in $tree: add $k = ($v upgraded from $curr_version to $ver)}
|
||||
|
||||
if (($tree.type == "Action") and $ACTION_UPGRADES.$ver):
|
||||
$(upgrade 1) = $ACTION_UPGRADES.$ver.($tree, get stub)
|
||||
if $(upgrade 1):
|
||||
@ -140,4 +144,4 @@ external:
|
||||
$tree upgraded from ($tree.version or $(NOMSU VERSION)) to $end_version
|
||||
|
||||
($tree upgraded) means
|
||||
$tree upgraded from ($tree.version or $(NOMSU VERSION)) to $(NOMSU VERSION)
|
||||
$tree upgraded from ($tree.version or $(NOMSU VERSION)) to $(NOMSU VERSION)
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
export "compatibility/compatibility"
|
||||
export "compatibility/2"
|
||||
export "compatibility/2.3"
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines actions for ANSI console color escape codes.
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file contains code that supports manipulating and using collections like lists
|
||||
and dictionaries.
|
||||
@ -163,6 +162,7 @@ external:
|
||||
unless $seen.$:
|
||||
$unique, add $
|
||||
$seen.$ = (yes)
|
||||
|
||||
return $unique
|
||||
|
||||
### Ranges:
|
||||
@ -196,6 +196,7 @@ $range_mt = {
|
||||
..else:
|
||||
if ($i < $self.last):
|
||||
return (nil)
|
||||
|
||||
return $i
|
||||
return $range_mt.$key
|
||||
|
||||
|
||||
@ -218,6 +218,7 @@ test:
|
||||
..else:
|
||||
$loop =
|
||||
Lua "for _i,\($value as lua identifier) in _ipairs(\($iterable as lua expr)) do"
|
||||
|
||||
--- (loop set) ---
|
||||
|
||||
### TODO: don't always wrap in block
|
||||
@ -276,6 +277,7 @@ test:
|
||||
$nums, add $inner
|
||||
if ($inner == 5):
|
||||
stop $outer
|
||||
|
||||
assume ($nums == [1, -2, 3, -2, 3, 4, 3, 4, 5])
|
||||
|
||||
### repeat $n times is a shorthand:
|
||||
@ -454,6 +456,7 @@ test:
|
||||
recurse $ on $2
|
||||
..else:
|
||||
$flat, add $
|
||||
|
||||
assume (sorted $flat) == [1, 2, 3, 4, 5, 6]
|
||||
|
||||
### Recurion control flow
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines the code that creates and manipulates coroutines
|
||||
|
||||
@ -16,6 +15,7 @@ test:
|
||||
yield 5
|
||||
repeat 3 times:
|
||||
yield 6
|
||||
|
||||
$nums = []
|
||||
for $ in (coroutine from $fn): $nums, add $
|
||||
assume ($nums == [4, 5, 6, 6, 6])
|
||||
@ -27,6 +27,7 @@ test:
|
||||
$d.x += 1
|
||||
yield
|
||||
$d.x += 1
|
||||
|
||||
repeat while ((coroutine status of $co) != "dead"): resume $co
|
||||
assume $d.x == 3
|
||||
$(co) = (coroutine: yield 5)
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file contains basic error reporting code
|
||||
|
||||
@ -27,6 +26,7 @@ use "core/control_flow"
|
||||
end
|
||||
end
|
||||
")
|
||||
|
||||
if ($condition.type == "Action"):
|
||||
when $condition.stub is:
|
||||
"1 ==":
|
||||
@ -132,6 +132,7 @@ test:
|
||||
$fallback_lua, prepend "\n\$msg_lua = _result[2]\n"
|
||||
if ($msg_lua, text, is lua id):
|
||||
$fallback_lua, add free vars [($msg_lua, text)]
|
||||
|
||||
$fallback_lua, prepend "-- Failure:\n"
|
||||
return Lua ("
|
||||
do
|
||||
@ -191,4 +192,4 @@ test:
|
||||
if not _results[1] then error(_results[2], 0) end
|
||||
if not _fell_through then return table.unpack(_results, 2) end
|
||||
end
|
||||
")
|
||||
")
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
A simple UUID function based on RFC 4122: http://www.ietf.org/rfc/rfc4122.txt
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
### Export everything
|
||||
export "core/metaprogramming"
|
||||
export "core/operators"
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file contains basic input/output code
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines some common math literals and functions
|
||||
|
||||
@ -19,6 +18,7 @@ external:
|
||||
$nan = (NaN)
|
||||
unless ($nan != $nan):
|
||||
fail "NaN failed"
|
||||
|
||||
[infinity, inf] all compile to "math.huge"
|
||||
[not a number, NaN, nan] all compile to "(0/0)"
|
||||
[pi, Pi, PI] all compile to "math.pi"
|
||||
@ -73,12 +73,14 @@ external:
|
||||
for $ in $items:
|
||||
unless $:
|
||||
return (no)
|
||||
|
||||
return (yes)
|
||||
[not all of $items, not all $items] all parse as (not (all of $items))
|
||||
[any of $items, any $items] all mean:
|
||||
for $ in $items:
|
||||
if $:
|
||||
return (yes)
|
||||
|
||||
return (no)
|
||||
[none of $items, none $items] all parse as (not (any of $items))
|
||||
|
||||
@ -123,6 +125,7 @@ external:
|
||||
if (($best == (nil)) or ($key < $best_key)):
|
||||
$best = $item
|
||||
$best_key = $key
|
||||
|
||||
return $best
|
||||
|
||||
(max of $items by $item = $value_expr) parses as
|
||||
@ -134,6 +137,7 @@ external:
|
||||
if (($best == (nil)) or ($key > $best_key)):
|
||||
$best = $item
|
||||
$best_key = $key
|
||||
|
||||
return $best
|
||||
|
||||
test:
|
||||
|
||||
@ -248,6 +248,7 @@ test:
|
||||
with external [$x]:
|
||||
$x = "inner"
|
||||
$y = "inner"
|
||||
|
||||
set external x local y
|
||||
unless (($x == "inner") and ($y == "outer")):
|
||||
fail "'with external' failed."
|
||||
@ -516,4 +517,4 @@ test:
|
||||
($tree with $t -> $replacement) parses as ($tree, with ($t -> $replacement))
|
||||
[tree $tree with vars $replacements, $tree with vars $replacements] all parse as
|
||||
$tree, with $replacements
|
||||
($tree has subtree $match_tree) parses as ($tree, contains $match_tree)
|
||||
($tree has subtree $match_tree) parses as ($tree, contains $match_tree)
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file contains definitions of operators like "+" and "and".
|
||||
|
||||
@ -136,6 +135,7 @@ test:
|
||||
|
||||
unless ($calls == 1):
|
||||
fail "Three-way comparison evaluated middle value multiple times"
|
||||
|
||||
($x < $y < $z) parses as ((($a $b $c) -> (($a < $b) and ($b < $c))) $x $y $z)
|
||||
($x <= $y < $z) parses as ((($a $b $c) -> (($a <= $b) and ($b < $c))) $x $y $z)
|
||||
($x < $y <= $z) parses as ((($a $b $c) -> (($a < $b) and ($b <= $c))) $x $y $z)
|
||||
@ -213,7 +213,7 @@ lua> "end"
|
||||
|
||||
### Unary operators
|
||||
test:
|
||||
assume (-(5) == -5)
|
||||
assume ((- 5) == -5)
|
||||
assume ((not (yes)) == (no))
|
||||
-$ compiles to "(-(\($ as lua expr)))"
|
||||
(not $) compiles to "(not \($ as lua expr))"
|
||||
@ -246,6 +246,7 @@ test:
|
||||
wrap $x around 3
|
||||
unless ($x == 1):
|
||||
fail "wrap around failed"
|
||||
|
||||
($var += $) parses as ($var = (($var or 0) + $))
|
||||
($var -= $) parses as ($var = (($var or 0) - $))
|
||||
($var *= $) parses as ($var = (($var or 1) * $))
|
||||
@ -253,4 +254,4 @@ test:
|
||||
($var ^= $) parses as ($var = ($var ^ $))
|
||||
($var and= $) parses as ($var = ($var and $))
|
||||
($var or= $) parses as ($var = ($var or $))
|
||||
(wrap $var around $) parses as ($var = ($var wrapped around $))
|
||||
(wrap $var around $) parses as ($var = ($var wrapped around $))
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file contains some definitions of text escape sequences, including ANSI console
|
||||
color codes.
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
A library for simple object oriented programming.
|
||||
|
||||
@ -122,4 +121,4 @@ external:
|
||||
")
|
||||
|
||||
$lua, add free vars [$class_id]
|
||||
return $lua
|
||||
return $lua
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines time-related actions.
|
||||
|
||||
@ -37,7 +36,7 @@ external:
|
||||
if ($other is "a Time"):
|
||||
return ($os.difftime $self ($os.time $other))
|
||||
return (a Time ($os.date "*t" ($self - $other, rounded)))
|
||||
|
||||
|
||||
($self, <$other) means (($self, since epoch) < ($other, since epoch))
|
||||
($self, <=$other) means (($self, since epoch) <= ($other, since epoch))
|
||||
($self, as text) means ($os.date "%I:%M%p %a %b %e %Y" ($os.time $self))
|
||||
@ -51,4 +50,4 @@ external:
|
||||
### Lua does not come with a sleep() function, only an os.clock() function,
|
||||
so this busy-loop is necessary for cross-platform compatibility.
|
||||
$deadline = (($os.clock()) + $t)
|
||||
repeat while (($os.clock()) < $deadline): do nothing
|
||||
repeat while (($os.clock()) < $deadline): do nothing
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines some actions for hashing files and looking up files by hash.
|
||||
|
||||
@ -60,4 +59,5 @@ external:
|
||||
$file_hash = (hash $contents)
|
||||
if ($file_hash == $hash):
|
||||
return $filename
|
||||
|
||||
(hash of file $filename) parses as (hash (read file $filename))
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines some actions that interact with the filesystem.
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
### A progress bar
|
||||
use "consolecolor"
|
||||
|
||||
@ -16,10 +15,11 @@ external:
|
||||
$bits = [" ", "▏", "▎", "▍", "▌", "▋", "▊", "▉", "█"]
|
||||
$middle = ("" if ($x == $w) else $bits.(1 + (floor (#$bits * ($x mod 1)))))
|
||||
return ("
|
||||
\(reset color)[\(green)\($bits, last, rep (floor $x))\$middle\
|
||||
\(reset color)[\(green)\($bits, last, rep (floor $x))\($middle)\
|
||||
..\(" ", rep ($w - ((floor $x) + 1)))\(reset color)]
|
||||
")
|
||||
..else:
|
||||
### Probably not unicode support either:
|
||||
return "[\("#", rep ($x, rounded down))\("-", rep ($w - ($x, rounded down)))]"
|
||||
|
||||
($w wide $ progress bar) means (($ * $w) / $w progress bar)
|
||||
@ -14,6 +14,7 @@ external:
|
||||
..else:
|
||||
at $callsite fail
|
||||
"Command failure: Command `\($cmd)` was terminated by signal \$return"
|
||||
|
||||
return $contents
|
||||
|
||||
(at $callsite sh> $cmd) means:
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
Auto-format Nomsu code. Usage:
|
||||
nomsu -t format [-i] file1 file2...
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
A tool to install third party Nomsu packages
|
||||
|
||||
@ -57,4 +56,5 @@ command line program with $args:
|
||||
$cmd = ($filename, with $patt -> $action.cmd)
|
||||
run command $cmd
|
||||
do next $filename
|
||||
|
||||
fail "Not sure what to do with \$filename"
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
A tool to list installed third party Nomsu packages
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
Tool to print out a parse tree of files in an easy-to-read format. Usage:
|
||||
nomsu tools/parse.nom file1 file2 directory1 ...
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This file defines a Read-Evaluate-Print-Loop (REPL) for Nomsu
|
||||
|
||||
@ -54,6 +53,7 @@ command line program with $args:
|
||||
### clear the line
|
||||
if $(COLOR ENABLED):
|
||||
say "\027[1A\027[2K" inline
|
||||
|
||||
go to (run buffer)
|
||||
$buff, add ($line, with "\t" -> " ")
|
||||
say (dim (yellow ".. ")) inline
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
This is a tool to replace syntax trees with something new.
|
||||
|
||||
@ -63,6 +62,7 @@ command line program with $args:
|
||||
..else:
|
||||
$substitution_values.($patt.1) = $tree
|
||||
return $substitution_values
|
||||
|
||||
($tree.type != $patt.type): return (nil)
|
||||
($tree.type == "Action"):
|
||||
if (($tree, get stub) != ($patt, get stub)): return (nil)
|
||||
@ -135,6 +135,7 @@ command line program with $args:
|
||||
if ($user_answers.$t == "n"): return (nil)
|
||||
$replaced.$t = (yes)
|
||||
return $ret
|
||||
|
||||
$tree2 = ($tree with replacements)
|
||||
if $args.i:
|
||||
if (#$user_answers > 0): say ""
|
||||
@ -145,4 +146,4 @@ command line program with $args:
|
||||
if (#$replaced > 0):
|
||||
write "\($tree2 as nomsu)" to file $filename
|
||||
..else:
|
||||
say ($tree2 as nomsu)
|
||||
say ($tree2 as nomsu)
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
Tool to run all tests in a file (i.e. the code block inside a call to 'test $'). Usage:
|
||||
nomsu tools/test.nom file1 file2 directory1 ...
|
||||
|
||||
@ -558,4 +558,4 @@ command line program with $args:
|
||||
\\(^\("ᴗ" if $(COLOR ENABLED) else "_")^)/
|
||||
|
||||
|
||||
")
|
||||
")
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
A tool to uninstall third party Nomsu packages (the inverse of the install tool)
|
||||
|
||||
|
||||
@ -1,5 +1,4 @@
|
||||
#!/usr/bin/env nomsu -V7.0.0
|
||||
|
||||
###
|
||||
Tool to automatically update code from old versions of Nomsu. Usage:
|
||||
nomsu tools/upgrade.nom [-i] file1 file2 directory1 ...
|
||||
@ -19,6 +18,7 @@ command line program with $args:
|
||||
if $start_version:
|
||||
try:
|
||||
use $start_version
|
||||
|
||||
$version = ($args."upgrade-to" or $(NOMSU VERSION))
|
||||
$test = ($args.t or $args.test)
|
||||
for $filename in $args.extras:
|
||||
@ -31,6 +31,7 @@ command line program with $args:
|
||||
$uptree =
|
||||
$tree upgraded from ($start_version or ($tree.version or $(NOMSU VERSION))) to
|
||||
$version
|
||||
|
||||
$text = "\$leading_indent\($uptree as nomsu, text, with "\n" -> "\n\$leading_indent")"
|
||||
when:
|
||||
$inplace:
|
||||
@ -44,4 +45,4 @@ command line program with $args:
|
||||
say (bright "\$filename will be changed")
|
||||
|
||||
else:
|
||||
say $text inline
|
||||
say $text inline
|
||||
Loading…
Reference in New Issue
Block a user