23 lines
792 B
Plaintext
23 lines
792 B
Plaintext
#!/usr/bin/env nomsu -V7.0.0
|
|
|
|
###
|
|
This file defines upgrades from Nomsu <5.13 to 5.13
|
|
use "compatibility/compatibility"
|
|
|
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
upgrade action (size of $) to "5.13" as #$
|
|
upgrade action "with" to "5.13" via
|
|
for $tree:
|
|
$assignments = $tree.2
|
|
$body = $tree.3
|
|
if ($assignments.type != "Dict"): return $tree
|
|
$new_assignments = `[]
|
|
for ($i = $a) in $assignments:
|
|
when:
|
|
(($a.type == "DictEntry") and (#$a == 1)): $a = $a.1
|
|
(all of [$a.type == "DictEntry", #$a == 2]):
|
|
$a = ("Action" tree with $a.1 "=" $a.2)
|
|
$new_assignments.$i = $a
|
|
return ("Action" tree with "with" $new_assignments $body)
|