code / nomsu

   1 #!/usr/bin/env nomsu -V7.0.0
   2 ###
   3     This file defines upgrades from Nomsu <4.8.10 to 4.8.10 (renaming "action" -> "means")
   4 use "compatibility/compatibility"
   5 
   6 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   7 
   8 upgrade action "local action" to "4.8.10" via
   9     for $tree:
  10         $spec = $tree.3
  11         $body = $tree.4
  12         if $spec.type is:
  13             "List":
  14                 if (#$spec == 1):
  15                     return \(\$spec.1 means \$body)
  16                 ..else:
  17                     return \(\$spec all mean \$body)
  18             
  19             else:
  20                 return \(\$spec means \$body)
  21 
  22 upgrade action "action" to "4.8.10" via
  23     for $tree:
  24         $spec = $tree.2
  25         $body = $tree.3
  26         if $body:
  27             if $spec.type is:
  28                 "List":
  29                     if (#$spec == 1):
  30                         return \(externally \$spec.1 means \$body)
  31                     ..else:
  32                         return \(externally \$spec all mean \$body)
  33                 
  34                 else:
  35                     return \(externally \$spec means \$body)
  36         ..else:
  37             return \((\$spec)'s meaning)
  38 
  39 upgrade action "compile 1 to" to "4.8.10" via
  40     for $tree:
  41         $spec = $tree.2
  42         $body = $tree.4
  43         if $spec.type is:
  44             "List":
  45                 if (#$spec == 1):
  46                     return \(\$spec.1 compiles to \$body)
  47                 ..else:
  48                     return \(\$spec all compile to \$body)
  49             
  50             else:
  51                 return \(\$spec compiles to \$body)
  52 
  53 upgrade action "parse 1 as" to "4.8.10" via
  54     for $tree:
  55         $spec = $tree.2
  56         $body = $tree.4
  57         if $spec.type is:
  58             "List":
  59                 if (#$spec == 1):
  60                     return \(\$spec.1 parses as \$body)
  61                 ..else:
  62                     return \(\$spec all parse as \$body)
  63             
  64             else:
  65                 return \(\$spec parse as \$body)
  66 
  67 upgrade action (compile as $) to "4.8.10" as (what $ compiles to)
  68 upgrade action (remove action $) to "4.8.10" as (($'s meaning) = (nil))