Intermediate step in upgrading to 3.6. Fixed a bug with upgrading

methods.

code_obj.lua

@@ -505,6 +505,12 @@ do
   end
   NomsuCode = _class_0
 end
+Code.__base.append_1 = Code.__base.append
+Code.__base.append_1_joined_by_2 = Code.__base.concat_append
+Code.__base.prepend_1 = Code.__base.prepend
+Code.__base.declare_locals_1 = Code.__base.declare_locals
+Code.__base.remove_free_vars_1 = Code.__base.remove_free_vars
+Code.__base.add_free_vars_1 = Code.__base.add_free_vars
 return {
   Code = Code,
   NomsuCode = NomsuCode,

code_obj.moon

@@ -256,4 +256,11 @@ class NomsuCode extends Code
     __repr: Code.__repr
     __len: Code.__len
 
+Code.__base.append_1 = Code.__base.append
+Code.__base.append_1_joined_by_2 = Code.__base.concat_append
+Code.__base.prepend_1 = Code.__base.prepend
+Code.__base.declare_locals_1 = Code.__base.declare_locals
+Code.__base.remove_free_vars_1 = Code.__base.remove_free_vars
+Code.__base.add_free_vars_1 = Code.__base.add_free_vars
+
 return {:Code, :NomsuCode, :LuaCode, :Source}

compatibility/2.3.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     This file defines upgrades from Nomsu <2.3 to Nomsu 2.3
 

compatibility/2.4.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     This file defines upgrades from Nomsu <2.4 to Nomsu 2.4
 

compatibility/2.5.5.5.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     This file defines upgrades from Nomsu <2.5.5.5 to Nomsu 2.5.5.5
 

compatibility/2.5.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     This file defines upgrades from Nomsu <2.5 to Nomsu 2.5
 

compatibility/2.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     This file defines upgrades from Nomsu 1 to Nomsu 2
 

compatibility/3.5.5.6.nom

@@ -1,8 +1,11 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     This file defines upgrades from Nomsu <3.5.5.6 to Nomsu 3.5.5.6
 
 use "compatibility/compatibility.nom"
 
-upgrade action "traceback" to "3.5.5.6" via ([%] -> (barf "'traceback' has been deprecated"))
-upgrade action "traceback 1" to "3.5.5.6" via ([%] -> (barf "'traceback 1' has been deprecated"))
+upgrade action "traceback" to "3.5.5.6" via (..)
+    [%] -> (barf "'traceback' has been deprecated")
+
+upgrade action "traceback 1" to "3.5.5.6" via (..)
+    [%] -> (barf "'traceback 1' has been deprecated")

compatibility/3.6.nom

@@ -0,0 +1,21 @@
+#!/usr/bin/env nomsu -V3
+#
+    This file defines upgrades from Nomsu <3.6 to 3.6
+
+use "compatibility/compatibility.nom"
+
+upgrade action (to %1 write %2) to "3.6" as (..)
+    %1::append %2
+upgrade action (%1 <-write %2) to "3.6" as (..)
+    %1::append %2
+upgrade action (to %1 write %2 joined by %3) to "3.6" as (..)
+    %1::append %2 joined by %3
+upgrade action (declare locals in %lua) to "3.6" as (..)
+    %lua::declare locals
+upgrade action (declare locals %locs in %lua) to "3.6" as (..)
+    %lua::declare locals %locs
+upgrade action (add free vars %vars to %lua) to "3.6" as (..)
+    %lua::add free vars %vars
+upgrade action (remove free vars %vars from %lua) to "3.6" as (..)
+    %lua::remove free vars %vars
+

compatibility/3.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     This file defines upgrades from Nomsu <=2 to Nomsu 3
 

compatibility/compatibility.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     This file contains code for defining ways to upgrade code between different versions
     of Nomsu.
@@ -33,20 +33,22 @@ compile [upgrade action %actions to %version as %body] to:
                         return %replacements.(%t.1)
                     ..else:
                         return ".."
-                            \(%t.type)(\(quote "\(%t.source)"), \(..)
+                            \(%t.type){source=\(quote "\(%t.source)"), \(..)
                                 quote "\(%t.1) \000\(=lua "string.format('%X', __MANGLE_INDEX)")"
-                            ..)
+                            ..}
                 
                 (%t is syntax tree):
                     %args = ((make tree %) for % in %t)
-                    add "\(\%tree as lua id).source" to %args at index 1
-                    return "\(%t.type)(\(%args joined with ", "))"
+                    add "source=\(\%tree as lua id).source" to %args at index 1
+                    if %t.target:
+                        add "target=\(make tree %t.target)" to %args at index 1
+                    return "\(%t.type){\(%args joined with ", ")}"
                 
                 else:
                     return (quote "\%t")
         
-        unless ("\%lua" == ""): to %lua write "\n"
-        to %lua write (..)
+        unless ("\%lua" == ""): %lua::append "\n"
+        %lua::append (..)
             Lua ".."
                 A_upgrade_action_1_to_2_via_3(\(quote %action.stub), \(%version as lua expr), function(\(..)
                     \%tree as lua id

core/metaprogramming.nom

@@ -1,9 +1,9 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     This File contains actions for making actions and compile-time actions and some helper
     functions to make that easier.
 
-lua> "NOMSU_CORE_VERSION = 5"
+lua> "NOMSU_CORE_VERSION = 6"
 lua> ".."
     COMPILE_ACTIONS["1 -> 2"] = function(nomsu, tree, \%args, \%body)
         local lua = LuaCode.Value(tree.source, "(function(")

nomsu.2.peg

@@ -5,7 +5,7 @@ file:
      / file_chunks / empty_block)
     %ws* (!! .+ -> "Parse error" !!)?
 
-shebang: {:shebang: "#!" (!"nomsu" [^%nl])* "nomsu" %ws+ "-V" %ws* {:version: [0-9.]+ :} [^%nl]* :}
+shebang: "#!" (!"nomsu" [^%nl])* "nomsu" %ws+ "-V" %ws* {:version: [0-9.]+ :} [^%nl]*
 
 file_chunks (FileChunks):
     {:curr_indent: ' '* :}

nomsu.3.peg

@@ -5,7 +5,7 @@ file:
      / file_chunks / empty_block)
     %ws* (!! .+ -> "Parse error" !!)?
 
-shebang: {:shebang: "#!" (!"nomsu" [^%nl])* "nomsu" %ws+ "-V" %ws* {:version: [0-9.]+ :} [^%nl]* :}
+shebang: "#!" (!"nomsu" [^%nl])* "nomsu" %ws+ "-V" %ws* {:version: [0-9.]+ :} [^%nl]*
 
 file_chunks (FileChunks):
     {:curr_indent: ' '* :}

tools/autoformat.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     Auto-format Nomsu code. Usage:
         nomsu tools/autoformat.nom [-i] file1 file2 directory1 ...

tools/find_action.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     Find an action by its stub. Usage:
         nomsu tools/find_action.nom "foo %" file1 file2 directory1 ...

tools/parse.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     Tool to print out a parse tree of files in an easy-to-read format. Usage:
         nomsu tools/parse.nom file1 file2 directory1 ...        

tools/test.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     Tool to run all tests in a file (i.e. the code block inside a call to 'test %'). Usage:
         nomsu tools/test.nom file1 file2 directory1 ...

tools/upgrade.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V3.5.5.6
+#!/usr/bin/env nomsu -V3.6.5.6
 #
     Tool to automatically update code from old versions of Nomsu. Usage:
         nomsu tools/upgrade.nom [-i] file1 file2 directory1 ...