Moved compatibility to lib/ and fixed path searching for .peg files.

1 files changed, 68 insertions, 0 deletions

diff --git a/lib/compatibility/4.8.10.nom b/lib/compatibility/4.8.10.nom
new file mode 100644
index 0000000..250dc4a
--- /dev/null
+++ b/lib/compatibility/4.8.10.nom
@@ -0,0 +1,68 @@
+#!/usr/bin/env nomsu -V6.14
+#
+    This file defines upgrades from Nomsu <4.8.10 to 4.8.10 (renaming "action" -> "means")
+use "compatibility/compatibility"
+
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+upgrade action "local action" to "4.8.10" via
+    for ($tree $end_version):
+        $spec = $tree.3
+        $body = $tree.4
+        if $spec.type is:
+            "List":
+                if ((size of $spec) == 1):
+                    return \($spec.1 means $body)
+                ..else:
+                    return \($spec all mean $body)
+            
+            else:
+                return \($spec means $body)
+
+upgrade action "action" to "4.8.10" via
+    for ($tree $end_version):
+        $spec = $tree.2
+        $body = $tree.3
+        if $body:
+            if $spec.type is:
+                "List":
+                    if ((size of $spec) == 1):
+                        return \(externally $spec.1 means $body)
+                    ..else:
+                        return \(externally $spec all mean $body)
+                
+                else:
+                    return \(externally $spec means $body)
+        ..else:
+            return \($spec's meaning)
+
+upgrade action "compile 1 to" to "4.8.10" via
+    for ($tree $end_version):
+        $spec = $tree.2
+        $body = $tree.4
+        if $spec.type is:
+            "List":
+                if ((size of $spec) == 1):
+                    return \($spec.1 compiles to $body)
+                ..else:
+                    return \($spec all compile to $body)
+            
+            else:
+                return \($spec compiles to $body)
+
+upgrade action "parse 1 as" to "4.8.10" via
+    for ($tree $end_version):
+        $spec = $tree.2
+        $body = $tree.4
+        if $spec.type is:
+            "List":
+                if ((size of $spec) == 1):
+                    return \($spec.1 parses as $body)
+                ..else:
+                    return \($spec all parse as $body)
+            
+            else:
+                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))