Mantis#1314. Thank you kindly, Kinoc for YieldProlog.

I have added everything *except* the patch to 
.../LSL/Compiler.cs. The Compiler.cs patch has a 
namespace issue. Lets make a second patch to close
the gap.

1 files changed, 85 insertions, 0 deletions

diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/YP2CSConverter.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/YP2CSConverter.cs
new file mode 100644
index 0000000..3766246
--- /dev/null
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/LSL/YP2CSConverter.cs
@@ -0,0 +1,85 @@
+?using System;

+using System.IO;

+using System.Collections.Generic;

+using System.Text;

+using System.Text.RegularExpressions;

+using OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog;

+

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

+{

+    public class YP2CSConverter

+    {

+        public YP2CSConverter()

+        {

+        }

+

+        public string Convert(string Script)

+        {

+            string CS_code = GenCode(Script);

+            return CS_code;

+        }

+

+

+        static string GenCode(string myCode)

+        {

+            Variable TermList = new Variable();

+            Variable FunctionCode = new Variable();

+

+            string CS_code = "";

+

+            int cs_pointer = myCode.IndexOf("\n//cs");

+            if (cs_pointer > 0)

+            {

+                CS_code = myCode.Substring(cs_pointer); // CS code comes after

+                myCode = myCode.Substring(0, cs_pointer);

+            }

+            myCode.Replace("//yp", "%YPCode");

+            

+

+            StringWriter myCS_SW = new StringWriter();

+            StringReader myCode_SR = new StringReader(" yp_nop_header_nop. \n "+myCode + "\n");

+

+            YP.see(myCode_SR);

+            YP.tell(myCS_SW);

+

+            //Console.WriteLine("Mycode\n ===================================\n" + myCode+"\n");

+            foreach (bool l1 in Parser.parseInput(TermList))

+            {

+                foreach (bool l2 in YPCompiler.makeFunctionPseudoCode(TermList, FunctionCode))

+                {

+                    ListPair VFC = new ListPair(FunctionCode, new Variable());

+                    //Console.WriteLine("-------------------------")

+                    //Console.WriteLine( FunctionCode.ToString())

+                    //Console.WriteLine("-------------------------")

+                    YPCompiler.convertFunctionCSharp(FunctionCode);

+                    //YPCompiler.convertStringCodesCSharp(VFC);

+

+                }

+            }

+            YP.seen();

+            myCS_SW.Close();

+            YP.told();

+            StringBuilder bu = myCS_SW.GetStringBuilder();

+            string finalcode = "//YPEncoded\n" + bu.ToString();

+            // FIX script events (we're in the same script)

+            // 'YP.script_event(Atom.a(@"sayit"),' ==> 'sayit('

+            finalcode = Regex.Replace(finalcode,

+                                        @"YP.script_event\(Atom.a\(\@\""(.*?)""\)\,",

+                                        @"this.$1(",

+                                        RegexOptions.Compiled | RegexOptions.Singleline);

+            finalcode = Regex.Replace(finalcode,

+                            @" static ",

+                            @" ",

+                            RegexOptions.Compiled | RegexOptions.Singleline);

+

+            finalcode = CS_code+"\n\r"+ finalcode;

+            finalcode = Regex.Replace(finalcode,

+                                        @"PrologCallback",

+                                        @"public IEnumerable<bool> ",

+                                        RegexOptions.Compiled | RegexOptions.Singleline);

+            return finalcode;

+        }

+

+

+   }

+}