From ddef8be3df626d63f6e575d4c1416295a22371ad Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Mon, 14 Jan 2019 17:14:34 -0800
Subject: Moved compatibility to lib/ and fixed path searching for .peg files.

---
 lib/compatibility/5.13.nom | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 lib/compatibility/5.13.nom

(limited to 'lib/compatibility/5.13.nom')

diff --git a/lib/compatibility/5.13.nom b/lib/compatibility/5.13.nom
new file mode 100644
index 0000000..1e0db6d
--- /dev/null
+++ b/lib/compatibility/5.13.nom
@@ -0,0 +1,24 @@
+#!/usr/bin/env nomsu -V5.13
+#
+    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 $a in $assignments at $i:
+            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)
-- 
cgit v1.2.3