blob: c2ab90edf1dfdc933d44a4220b9ea199d7c51778 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/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)
|
