blob: 3073fdf51a016aa449aa7f6879e5fadfc2a40efe (
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 = `(`$a.1 = `$a.2)
$new_assignments.$i = $a
return `(with `$new_assignments `$body)
|
