Script now compiles unsuccessfully

(unknown datatypes, no references)

3 files changed, 146 insertions, 30 deletions

diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/Compiler.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/Compiler.cs
index b5a4a39..33be6ec 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/Compiler.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/Compiler.cs
@@ -7,7 +7,7 @@ using System.CodeDom.Compiler;
 

 namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.LSL

 {

-    class Compiler

+    public class Compiler

     {

         private LSL2CS.Converter.LSL2CSConverter LSL_Converter = new LSL2CS.Converter.LSL2CSConverter();

         private CSharpCodeProvider codeProvider = new CSharpCodeProvider();

@@ -15,7 +15,7 @@ namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.LSL
         public string Compile(string LSOFileName)

         {

 

-            

+

             string OutFile = Path.GetFileNameWithoutExtension(LSOFileName);

 

             // TODO: Add error handling

@@ -37,7 +37,7 @@ namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.LSL
                 }

             }

 

-            

+

             return OutFile;

         }

 

diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/LSL2CSConverter.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/LSL2CSConverter.cs
index 1a82f2f..f058566 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/LSL2CSConverter.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/LSL2CSConverter.cs
@@ -10,7 +10,7 @@ namespace LSL2CS.Converter
         //private Regex rnw = new Regex(@"[a-zA-Z0-9_\-]", RegexOptions.Compiled);

         private Dictionary<string, string> DataTypes = new Dictionary<string, string>();

         private Dictionary<string, string> QUOTES = new Dictionary<string, string>();

-        

+

         public LSL2CSConverter()

         {

             DataTypes.Add("void", "void");

@@ -29,8 +29,6 @@ namespace LSL2CS.Converter
         public string Convert(string Script)

         {

             string Return = "";

-            QUOTES.Clear();

-

 

             //

             // Prepare script for processing

@@ -64,10 +62,6 @@ namespace LSL2CS.Converter
             //    Return += count + ". " + translate(line) + "\r\n";

             //}

 

-            int level = 0;

-            bool Level0Set = false;

-            bool Level1Set = false;

-

 

             // QUOTE REPLACEMENT

             //char[] SA = Script.ToCharArray();

@@ -77,31 +71,41 @@ namespace LSL2CS.Converter
             bool quote_replaced = false;

             string quote_replacement_string = "Q_U_O_T_E_REPLACEMENT_";

             string quote = "";

+            bool last_was_escape = false;

             int quote_replaced_count = 0;

             for (int p = 0; p < Script.Length; p++)

             {

 

-                while (true) {

-                    C = Script.Substring(p,1);

-                    if (C == "\"") {

+                C = Script.Substring(p, 1);

+                while (true)

+                {

+                    if (C == "\"" && last_was_escape == false)

+                    {

                         // Toggle inside/outside quote

-                        in_quote = ! in_quote;

-                        if(in_quote) {

+                        in_quote = !in_quote;

+                        if (in_quote)

+                        {

                             quote_replaced_count++;

-                        } else {

+                        }

+                        else

+                        {

                             // We just left a quote

                             QUOTES.Add(quote_replacement_string + quote_replaced_count.ToString().PadLeft(5, "0".ToCharArray()[0]), quote);

                             quote = "";

                         }

                         break;

                     }

-                    if (!in_quote) {

+                    if (!in_quote)

+                    {

                         // We are not inside a quote

                         quote_replaced = false;

 

-                    } else {

+                    }

+                    else

+                    {

                         // We are inside a quote

-                        if (!quote_replaced) {

+                        if (!quote_replaced)

+                        {

                             // Replace quote

                             _Script += quote_replacement_string + quote_replaced_count.ToString().PadLeft(5, "0".ToCharArray()[0]);

                             quote_replaced = true;

@@ -110,35 +114,135 @@ namespace LSL2CS.Converter
                         break;

                     }

                     _Script += C;

-                break;

+                    break;

+                }

+                last_was_escape = false;

+                if (C == @"\")

+                {

+                    last_was_escape = true;

                 }

             }

+            Script = _Script;

             //

             // END OF QUOTE REPLACEMENT

             //

 

+

+

+

+            // PROCESS STATES

+            int ilevel = 0;

+            int lastlevel = 0;

+            string ret = "";

+            string cache = "";

+            bool in_state = false;

+            string current_statename = "";

+            for (int p = 0; p < Script.Length; p++)

+            {

+                C = Script.Substring(p, 1);

+                while (true)

+                {

+                    // inc / dec level

+                    if (C == @"{")

+                        ilevel++;

+                    if (C == @"}")

+                        ilevel--;

+                    if (ilevel < 0)

+                        ilevel = 0;

+                    cache += C;

+

+                    // if level == 0, add to return

+                    if (ilevel == 1 && lastlevel == 0)

+                    {

+                        // 0 => 1: Get last 

+                        Match m = Regex.Match(cache, @"(?![a-zA-Z_]+)\s*([a-zA-Z_]+)[^a-zA-Z_\(\)]*{", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

+

+                        in_state = false;

+                        if (m.Success)

+                        {

+                            // Go back to level 0, this is not a state

+                            in_state = true;

+                            current_statename = m.Groups[1].Captures[0].Value;

+                            Console.WriteLine("Current statename: " + current_statename);

+                            cache = Regex.Replace(cache, @"(?![a-zA-Z_]+)\s*([a-zA-Z_]+)[^a-zA-Z_\(\)]*{", "", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

+                        }

+                        ret += cache;

+                        cache = "";

+                    }

+                    if (ilevel == 0 && lastlevel == 1)

+                    {

+                        // 1 => 0: Remove last }

+                        if (in_state == true)

+                        {

+                            cache = cache.Remove(cache.Length - 1, 1);

+                            //cache = Regex.Replace(cache, "}$", "", RegexOptions.Multiline | RegexOptions.Singleline);

+

+                            //Replace function names

+                            // void dataserver(key query_id, string data) {

+                            //cache = Regex.Replace(cache, @"([^a-zA-Z_]\s*)((?!if|switch|for)[a-zA-Z_]+\s*\([^\)]*\)[^{]*{)", "$1" + "<STATE>" + "$2", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

+                            Console.WriteLine("Replacing using statename: " + current_statename);

+                            cache = Regex.Replace(cache, @"^(\s*)((?!if|switch|for)[a-zA-Z0-9_]*\s*\([^\)]*\)[^;]*\{)", @"$1" + current_statename + "_$2", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

+                        }

+

+                        ret += cache;

+                        cache = "";

+                        in_state = true;

+                        current_statename = "";

+                    }

+

+                    // if we moved from level 0 to level 1 don't add last word + {

+                    // if we moved from level 1 to level 0 don't add last }

+                    // if level > 0 cache all data so we can run regex on it when going to level 0

+

+

+

+

+                    break;

+                }

+                lastlevel = ilevel;

+            }

+            ret += cache;

+            cache = "";

+

+            Script = ret;

+            ret = "";

+

+

+

             // Replace CAST - (integer) with (int)

-            Script = Regex.Replace(_Script, @"\(integer\)", @"(int)", RegexOptions.Compiled | RegexOptions.Multiline);

+            Script = Regex.Replace(Script, @"\(integer\)", @"(int)", RegexOptions.Compiled | RegexOptions.Multiline);

             // Replace return types and function variables - integer a() and f(integer a, integer a)

-            _Script = Regex.Replace(Script, @"(^|[\(,])(\s*int)eger(\s*)", @"$1$2$3", RegexOptions.Compiled | RegexOptions.Multiline);

+            Script = Regex.Replace(Script, @"(^|;|}|[\(,])(\s*int)eger(\s*)", @"$1$2$3", RegexOptions.Compiled | RegexOptions.Multiline);

+

+            // Add "void" in front of functions that needs it

+            Script = Regex.Replace(Script, @"^(\s*)((?!if|switch|for)[a-zA-Z0-9_]*\s*\([^\)]*\)[^;]*\{)", @"$1void $2", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

+

+            // Replace <x,y,z> and <x,y,z,r>

+            Script = Regex.Replace(Script, @"<([^,>]*,[^,>]*,[^,>]*,[^,>]*)>", @"Rotation.Parse($1)", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

+            Script = Regex.Replace(Script, @"<([^,>]*,[^,>]*,[^,>]*)>", @"Vector.Parse($1)", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

 

-            // Add void to functions not having that

-            Script = Regex.Replace(_Script, @"^(\s*)((?!if|switch|for|foreach)[a-zA-Z0-9_]*\s*\([^\)]*\)[^;]*\{)", @"$1void $2", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

+            // Replace List []'s

+            Script = Regex.Replace(Script, @"\[([^\]]*)\]", @"List.Parse($1)", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

 

 

-            // Replace int (TEMPORARY QUICKFIX)

-            //_Script = Regex.Replace(Script, "integer", "int", RegexOptions.Compiled);

-            

+            // Replace (string) to .ToString() //

+            Script = Regex.Replace(Script, @"\(string\)\s*([a-zA-Z0-9_]+(\s*\([^\)]*\))?)", @"$1.ToString()", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

+            Script = Regex.Replace(Script, @"\((float|int)\)\s*([a-zA-Z0-9_]+(\s*\([^\)]*\))?)", @"$1.Parse($2)", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);

+

+

+            // REPLACE BACK QUOTES

             foreach (string key in QUOTES.Keys)

             {

                 string val;

                 QUOTES.TryGetValue(key, out val);

-                _Script = Script.Replace(key, "\"" + val + "\"");

-                Script = _Script;

+                Script = Script.Replace(key, "\"" + val + "\"");

             }

 

 

-            Return = Script;

+            Return = "namespace SecondLife {" + Environment.NewLine;

+            Return += "public class Script : LSL_BaseClass {" + Environment.NewLine;

+            Return += Script;

+            Return += "} }" + Environment.NewLine;

 

             return Return;

         }

@@ -154,5 +258,7 @@ namespace LSL2CS.Converter
         //    return ret;

         //}

 

+

+

     }

 }

diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/LSL_BaseClass.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/LSL_BaseClass.cs
new file mode 100644
index 0000000..03d8ba5
--- /dev/null
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/LSL_BaseClass.cs
@@ -0,0 +1,10 @@
+using System;

+using System.Collections.Generic;

+using System.Text;

+

+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.LSL

+{

+    class LSL_BaseClass

+    {

+    }

+}