bfd36e2e83
Some more modules templates classes (hoping that someone will pick some of these and work on implementing them). Early version of the "Dynamic Texture Module", although currently there are no render modules included (so not really functional without them). Added osSetDynamicTextureURL script function, for attaching a dynamic texture to a prim. Some work on the console command handling. Added "change-region <regionname>" and "exit-region" so that after the use of change-region, the commands entered will apply to that region only. Then use exit-region to return to the top level (so commands then function as they did before and either apply to all regions or to the first region) (Note: this hasn't been tested very much)
266 lines
11 KiB
C#
266 lines
11 KiB
C#
using System;
|
|
using System.Collections.Generic;
|
|
using System.Text;
|
|
using System.Text.RegularExpressions;
|
|
|
|
namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.LSL
|
|
{
|
|
public class LSL2CSConverter
|
|
{
|
|
//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()
|
|
{
|
|
// Only the types we need to convert
|
|
DataTypes.Add("void", "void");
|
|
DataTypes.Add("integer", "int");
|
|
DataTypes.Add("float", "double");
|
|
DataTypes.Add("string", "string");
|
|
DataTypes.Add("key", "string");
|
|
DataTypes.Add("vector", "LSL_Types.Vector3");
|
|
DataTypes.Add("rotation", "LSL_Types.Quaternion");
|
|
DataTypes.Add("list", "list");
|
|
DataTypes.Add("null", "null");
|
|
|
|
}
|
|
|
|
public string Convert(string Script)
|
|
{
|
|
string Return = "";
|
|
Script = " \r\n" + Script;
|
|
|
|
//
|
|
// Prepare script for processing
|
|
//
|
|
|
|
// Clean up linebreaks
|
|
Script = Regex.Replace(Script, @"\r\n", "\n");
|
|
Script = Regex.Replace(Script, @"\n", "\r\n");
|
|
|
|
|
|
// QUOTE REPLACEMENT
|
|
// temporarily replace quotes so we can work our magic on the script without
|
|
// always considering if we are inside our outside ""'s
|
|
string _Script = "";
|
|
string C;
|
|
bool in_quote = false;
|
|
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++)
|
|
{
|
|
|
|
C = Script.Substring(p, 1);
|
|
while (true)
|
|
{
|
|
// found " and last was not \ so this is not an escaped \"
|
|
if (C == "\"" && last_was_escape == false)
|
|
{
|
|
// Toggle inside/outside quote
|
|
in_quote = !in_quote;
|
|
if (in_quote)
|
|
{
|
|
quote_replaced_count++;
|
|
}
|
|
else
|
|
{
|
|
if (quote == "")
|
|
{
|
|
// We didn't replace quote, probably because of empty string?
|
|
_Script += quote_replacement_string + quote_replaced_count.ToString().PadLeft(5, "0".ToCharArray()[0]);
|
|
}
|
|
// 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)
|
|
{
|
|
// We are not inside a quote
|
|
quote_replaced = false;
|
|
|
|
}
|
|
else
|
|
{
|
|
// We are inside a quote
|
|
if (!quote_replaced)
|
|
{
|
|
// Replace quote
|
|
_Script += quote_replacement_string + quote_replaced_count.ToString().PadLeft(5, "0".ToCharArray()[0]);
|
|
quote_replaced = true;
|
|
}
|
|
quote += C;
|
|
break;
|
|
}
|
|
_Script += C;
|
|
break;
|
|
}
|
|
last_was_escape = false;
|
|
if (C == @"\")
|
|
{
|
|
last_was_escape = true;
|
|
}
|
|
}
|
|
Script = _Script;
|
|
//
|
|
// END OF QUOTE REPLACEMENT
|
|
//
|
|
|
|
|
|
|
|
//
|
|
// PROCESS STATES
|
|
// Remove state definitions and add state names to start of each event within state
|
|
//
|
|
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, @"(?<s1>(?![a-zA-Z_]+)\s*)" + @"([a-zA-Z_]+)(?<s2>[^a-zA-Z_\(\)]*){", "${s1}${s2}", 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_])[a-zA-Z0-9_]*\s*\([^\)]*\)[^;]*\{)", @"$1public " + current_statename + "_event_$2", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);
|
|
}
|
|
|
|
ret += cache;
|
|
cache = "";
|
|
in_state = true;
|
|
current_statename = "";
|
|
}
|
|
|
|
break;
|
|
}
|
|
lastlevel = ilevel;
|
|
}
|
|
ret += cache;
|
|
cache = "";
|
|
|
|
Script = ret;
|
|
ret = "";
|
|
|
|
|
|
|
|
foreach (string key in DataTypes.Keys)
|
|
{
|
|
string val;
|
|
DataTypes.TryGetValue(key, out val);
|
|
|
|
// Replace CAST - (integer) with (int)
|
|
Script = Regex.Replace(Script, @"\(" + key + @"\)", @"(" + val + ")", RegexOptions.Compiled | RegexOptions.Multiline);
|
|
// Replace return types and function variables - integer a() and f(integer a, integer a)
|
|
Script = Regex.Replace(Script, @"(^|;|}|[\(,])(\s*)" + key + @"(\s*)", @"$1$2" + val + "$3", RegexOptions.Compiled | RegexOptions.Multiline);
|
|
}
|
|
|
|
// Add "void" in front of functions that needs it
|
|
Script = Regex.Replace(Script, @"^(\s*public\s+)((?!(if|switch|for)[^a-zA-Z0-9_])[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, @"<([^,>]*,[^,>]*,[^,>]*,[^,>]*)>", @"new LSL_Types.Quaternion($1)", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);
|
|
Script = Regex.Replace(Script, @"<([^,>]*,[^,>]*,[^,>]*)>", @"new LSL_Types.Vector3($1)", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);
|
|
|
|
// Replace List []'s
|
|
Script = Regex.Replace(Script, @"\[([^\]]*)\]", @"List.Parse($1)", RegexOptions.Compiled | RegexOptions.Multiline | RegexOptions.Singleline);
|
|
|
|
|
|
// 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 + "\"");
|
|
}
|
|
|
|
|
|
// Add namespace, class name and inheritance
|
|
|
|
Return = "";// +
|
|
//"using System; " +
|
|
//"using System.Collections.Generic; " +
|
|
//"using System.Text; " +
|
|
//"using OpenSim.Region.ScriptEngine.Common; " +
|
|
//"using integer = System.Int32; " +
|
|
//"using key = System.String; ";
|
|
|
|
//// Make a Using out of DataTypes
|
|
//// Using integer = System.Int32;
|
|
//string _val;
|
|
//foreach (string key in DataTypes.Keys)
|
|
//{
|
|
// DataTypes.TryGetValue(key, out _val);
|
|
// if (key != _val)
|
|
// {
|
|
// Return += "using " + key + " = " + _val + "; ";
|
|
// }
|
|
//}
|
|
|
|
|
|
Return += "" +
|
|
"namespace SecondLife { ";
|
|
Return += "" +
|
|
//"[Serializable] " +
|
|
"public class Script : OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.LSL.LSL_BaseClass { ";
|
|
Return += @"public Script() { } ";
|
|
Return += Script;
|
|
Return += "} }\r\n";
|
|
|
|
return Return;
|
|
}
|
|
|
|
|
|
}
|
|
}
|