static int _m_Equals(RealStatePtr L)
{
try {
ObjectTranslator translator = ObjectTranslatorPool.Instance.Find(L);
System.Text.Encoding gen_to_be_invoked = (System.Text.Encoding)translator.FastGetCSObj(L, 1);
{
object _value = translator.GetObject(L, 2, typeof(object));
bool gen_ret = gen_to_be_invoked.Equals(
_value);
LuaAPI.lua_pushboolean(L, gen_ret);
return(1);
}
} catch (System.Exception gen_e) {
return(LuaAPI.luaL_error(L, "c# exception:" + gen_e));
}
}
/// <summary>Loads a custom plugin for the specified train.</summary>
/// <param name="train">The train to attach the plugin to.</param>
/// <param name="trainFolder">The absolute path to the train folder.</param>
/// <param name="encoding">The encoding to be used.</param>
/// <returns>Whether the plugin was loaded successfully.</returns>
internal static bool LoadCustomPlugin(TrainManager.Train train, string trainFolder, System.Text.Encoding encoding)
{
string config = OpenBveApi.Path.CombineFile(trainFolder, "ats.cfg");
if (!System.IO.File.Exists(config))
{
return(false);
}
string[] lines = System.IO.File.ReadAllLines(config, encoding);
if (lines.Length == 0)
{
return(false);
}
string file = OpenBveApi.Path.CombineFile(trainFolder, lines[0]);
string title = System.IO.Path.GetFileName(file);
if (!System.IO.File.Exists(file))
{
if (lines[0].EndsWith(".dll") && encoding.Equals(System.Text.Encoding.Unicode))
{
// Our filename ends with .dll so probably is not mangled Unicode
Interface.AddMessage(Interface.MessageType.Error, true, "The train plugin " + title + " could not be found in " + config);
return(false);
}
// Try again with ASCII encoding
lines = System.IO.File.ReadAllLines(config, System.Text.Encoding.GetEncoding(1252));
file = OpenBveApi.Path.CombineFile(trainFolder, lines[0]);
title = System.IO.Path.GetFileName(file);
if (!System.IO.File.Exists(file))
{
// Nope, still not found
Interface.AddMessage(Interface.MessageType.Error, true, "The train plugin " + title + " could not be found in " + config);
return(false);
}
}
Program.AppendToLogFile("Loading train plugin: " + file);
bool success = LoadPlugin(train, file, trainFolder);
if (success == false)
{
Loading.PluginError = Interface.GetInterfaceString("errors_plugin_failure1").Replace("[plugin]", file);
}
else
{
Program.AppendToLogFile("Train plugin loaded successfully.");
}
return(success);
}
/// <summary>Loads a custom plugin for the specified train.</summary>
/// <param name="trainFolder">The absolute path to the train folder.</param>
/// <param name="encoding">The encoding to be used.</param>
/// <returns>Whether the plugin was loaded successfully.</returns>
public bool LoadCustomPlugin(string trainFolder, System.Text.Encoding encoding)
{
string config = OpenBveApi.Path.CombineFile(trainFolder, "ats.cfg");
if (!System.IO.File.Exists(config))
{
return(false);
}
string Text = System.IO.File.ReadAllText(config, encoding);
Text = Text.Replace("\r", "").Replace("\n", "");
if (Text.Length > 260)
{
/*
* String length is over max Windows path length, so
* comments or ATS plugin docs have been included in here
* e.g dlg70v40
*/
string[] fileLines = System.IO.File.ReadAllLines(config);
for (int i = 0; i < fileLines.Length; i++)
{
int commentStart = fileLines[i].IndexOf(';');
if (commentStart != -1)
{
fileLines[i] = fileLines[i].Substring(0, commentStart);
}
fileLines[i] = fileLines[i].Trim();
if (fileLines[i].Length != 0)
{
Text = fileLines[i];
break;
}
}
}
string file;
try
{
file = OpenBveApi.Path.CombineFile(trainFolder, Text);
}
catch
{
TrainManagerBase.currentHost.AddMessage(MessageType.Error, true, "The train plugin path was malformed in " + config);
return(false);
}
string title = System.IO.Path.GetFileName(file);
if (!System.IO.File.Exists(file))
{
if (Text.EndsWith(".dll") && encoding.Equals(System.Text.Encoding.Unicode))
{
// Our filename ends with .dll so probably is not mangled Unicode
TrainManagerBase.currentHost.AddMessage(MessageType.Error, true, "The train plugin " + title + " could not be found in " + config);
return(false);
}
// Try again with ASCII encoding
Text = System.IO.File.ReadAllText(config, System.Text.Encoding.GetEncoding(1252));
Text = Text.Replace("\r", "").Replace("\n", "");
try
{
file = OpenBveApi.Path.CombineFile(trainFolder, Text);
}
catch
{
TrainManagerBase.currentHost.AddMessage(MessageType.Error, true, "The train plugin path was malformed in " + config);
return(false);
}
title = System.IO.Path.GetFileName(file);
if (!System.IO.File.Exists(file))
{
// Nope, still not found
TrainManagerBase.currentHost.AddMessage(MessageType.Error, true, "The train plugin " + title + " could not be found in " + config);
return(false);
}
}
TrainManagerBase.currentHost.AddMessage(MessageType.Information, false, "Loading train plugin: " + file);
bool success = LoadPlugin(file, trainFolder);
if (success == false)
{
TrainManagerBase.PluginError = Translations.GetInterfaceString("errors_plugin_failure1").Replace("[plugin]", file);
}
else
{
TrainManagerBase.currentHost.AddMessage(MessageType.Information, false, "Train plugin loaded successfully.");
}
return(success);
}
/// <summary>This function processes the list of expressions for $Char, $Rnd, $If and $Sub directives, and evaluates them into the final expressions dataset</summary>
private void PreprocessChrRndSub(string FileName, System.Text.Encoding Encoding, ref Expression[] Expressions)
{
string[] Subs = new string[16];
int openIfs = 0;
for (int i = 0; i < Expressions.Length; i++)
{
string Epilog = " at line " + Expressions[i].Line.ToString(Culture) + ", column " + Expressions[i].Column.ToString(Culture) + " in file " + Expressions[i].File;
bool continueWithNextExpression = false;
for (int j = Expressions[i].Text.Length - 1; j >= 0; j--)
{
if (Expressions[i].Text[j] == '$')
{
int k;
for (k = j + 1; k < Expressions[i].Text.Length; k++)
{
if (Expressions[i].Text[k] == '(')
{
break;
}
else if (Expressions[i].Text[k] == '/' | Expressions[i].Text[k] == '\\')
{
k = Expressions[i].Text.Length + 1;
break;
}
}
if (k <= Expressions[i].Text.Length)
{
string t = Expressions[i].Text.Substring(j, k - j).TrimEnd(new char[] { });
int l = 1, h;
for (h = k + 1; h < Expressions[i].Text.Length; h++)
{
switch (Expressions[i].Text[h])
{
case '(':
l++;
break;
case ')':
l--;
if (l < 0)
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Invalid parenthesis structure in " + t + Epilog);
}
break;
}
if (l <= 0)
{
break;
}
}
if (continueWithNextExpression)
{
break;
}
if (l != 0)
{
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Invalid parenthesis structure in " + t + Epilog);
break;
}
string s = Expressions[i].Text.Substring(k + 1, h - k - 1).Trim(new char[] { });
switch (t.ToLowerInvariant())
{
case "$if":
if (j != 0)
{
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "The $If directive must not appear within another statement" + Epilog);
}
else
{
double num;
if (double.TryParse(s, NumberStyles.Float, Culture, out num))
{
openIfs++;
Expressions[i].Text = string.Empty;
if (num == 0.0)
{
/*
* Blank every expression until the matching $Else or $EndIf
* */
i++;
int level = 1;
while (i < Expressions.Length)
{
if (Expressions[i].Text.StartsWith("$if", StringComparison.OrdinalIgnoreCase))
{
Expressions[i].Text = string.Empty;
level++;
}
else if (Expressions[i].Text.StartsWith("$else", StringComparison.OrdinalIgnoreCase))
{
Expressions[i].Text = string.Empty;
if (level == 1)
{
level--;
break;
}
}
else if (Expressions[i].Text.StartsWith("$endif", StringComparison.OrdinalIgnoreCase))
{
Expressions[i].Text = string.Empty;
level--;
if (level == 0)
{
openIfs--;
break;
}
}
else
{
Expressions[i].Text = string.Empty;
}
i++;
}
if (level != 0)
{
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "$EndIf missing at the end of the file" + Epilog);
}
}
continueWithNextExpression = true;
break;
}
else
{
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "The $If condition does not evaluate to a number" + Epilog);
}
}
continueWithNextExpression = true;
break;
case "$else":
/*
* Blank every expression until the matching $EndIf
* */
Expressions[i].Text = string.Empty;
if (openIfs != 0)
{
i++;
int level = 1;
while (i < Expressions.Length)
{
if (Expressions[i].Text.StartsWith("$if", StringComparison.OrdinalIgnoreCase))
{
Expressions[i].Text = string.Empty;
level++;
}
else if (Expressions[i].Text.StartsWith("$else", StringComparison.OrdinalIgnoreCase))
{
Expressions[i].Text = string.Empty;
if (level == 1)
{
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Duplicate $Else encountered" + Epilog);
}
}
else if (Expressions[i].Text.StartsWith("$endif", StringComparison.OrdinalIgnoreCase))
{
Expressions[i].Text = string.Empty;
level--;
if (level == 0)
{
openIfs--;
break;
}
}
else
{
Expressions[i].Text = string.Empty;
}
i++;
}
if (level != 0)
{
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "$EndIf missing at the end of the file" + Epilog);
}
}
else
{
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "$Else without matching $If encountered" + Epilog);
}
continueWithNextExpression = true;
break;
case "$endif":
Expressions[i].Text = string.Empty;
if (openIfs != 0)
{
openIfs--;
}
else
{
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "$EndIf without matching $If encountered" + Epilog);
}
continueWithNextExpression = true;
break;
case "$include":
if (j != 0)
{
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "The $Include directive must not appear within another statement" + Epilog);
continueWithNextExpression = true;
break;
}
string[] args = s.Split(new char[] { ';' });
for (int ia = 0; ia < args.Length; ia++)
{
args[ia] = args[ia].Trim(new char[] { });
}
int count = (args.Length + 1) / 2;
string[] files = new string[count];
double[] weights = new double[count];
double[] offsets = new double[count];
double weightsTotal = 0.0;
for (int ia = 0; ia < count; ia++)
{
string file;
double offset;
int colon = args[2 * ia].IndexOf(':');
if (colon >= 0)
{
file = args[2 * ia].Substring(0, colon).TrimEnd(new char[] { });
string value = args[2 * ia].Substring(colon + 1).TrimStart(new char[] { });
if (!double.TryParse(value, NumberStyles.Float, Culture, out offset))
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "The track position offset " + value + " is invalid in " + t + Epilog);
break;
}
}
else
{
file = args[2 * ia];
offset = 0.0;
}
files[ia] = Path.CombineFile(System.IO.Path.GetDirectoryName(FileName), file);
offsets[ia] = offset;
if (!System.IO.File.Exists(files[ia]))
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "The file " + file + " could not be found in " + t + Epilog);
for (int ta = i; ta < Expressions.Length - 1; ta++)
{
Expressions[ta] = Expressions[ta + 1];
}
Array.Resize(ref Expressions, Expressions.Length - 1);
i--;
break;
}
if (2 * ia + 1 < args.Length)
{
if (!NumberFormats.TryParseDoubleVb6(args[2 * ia + 1], out weights[ia]))
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "A weight is invalid in " + t + Epilog);
break;
}
if (weights[ia] <= 0.0)
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "A weight is not positive in " + t + Epilog);
break;
}
weightsTotal += weights[ia];
}
else
{
weights[ia] = 1.0;
weightsTotal += 1.0;
}
}
if (count == 0)
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "No file was specified in " + t + Epilog);
break;
}
if (!continueWithNextExpression)
{
double number = Plugin.RandomNumberGenerator.NextDouble() * weightsTotal;
double value = 0.0;
int chosenIndex = 0;
for (int ia = 0; ia < count; ia++)
{
value += weights[ia];
if (value > number)
{
chosenIndex = ia;
break;
}
}
Expression[] expr;
//Get the text encoding of our $Include file
System.Text.Encoding includeEncoding = TextEncoding.GetSystemEncodingFromFile(files[chosenIndex]);
if (!includeEncoding.Equals(Encoding) && includeEncoding.WindowsCodePage != Encoding.WindowsCodePage)
{
//If the encodings do not match, add a warning
//This is not critical, but it's a bad idea to mix and match character encodings within a routefile, as the auto-detection may sometimes be wrong
Plugin.CurrentHost.AddMessage(MessageType.Warning, false, "The text encoding of the $Include file " + files[chosenIndex] + " does not match that of the base routefile.");
}
string[] lines = System.IO.File.ReadAllLines(files[chosenIndex], includeEncoding);
PreprocessSplitIntoExpressions(files[chosenIndex], lines, out expr, false, offsets[chosenIndex] + Expressions[i].TrackPositionOffset);
int length = Expressions.Length;
if (expr.Length == 0)
{
for (int ia = i; ia < Expressions.Length - 1; ia++)
{
Expressions[ia] = Expressions[ia + 1];
}
Array.Resize(ref Expressions, length - 1);
}
else
{
Array.Resize(ref Expressions, length + expr.Length - 1);
for (int ia = Expressions.Length - 1; ia >= i + expr.Length; ia--)
{
Expressions[ia] = Expressions[ia - expr.Length + 1];
}
for (int ia = 0; ia < expr.Length; ia++)
{
Expressions[i + ia] = expr[ia];
}
}
i--;
continueWithNextExpression = true;
}
break;
case "$chr":
case "$chruni":
{
int x;
if (NumberFormats.TryParseIntVb6(s, out x))
{
if (x < 0)
{
//Must be non-negative
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Index must be a non-negative character in " + t + Epilog);
}
else
{
Expressions[i].Text = Expressions[i].Text.Substring(0, j) + char.ConvertFromUtf32(x) + Expressions[i].Text.Substring(h + 1);
}
}
else
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Index is invalid in " + t + Epilog);
}
} break;
case "$chrascii":
{
int x;
if (NumberFormats.TryParseIntVb6(s, out x))
{
if (x < 0 || x > 127)
{
//Standard ASCII characters from 0-127
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Index does not correspond to a valid ASCII character in " + t + Epilog);
}
else
{
Expressions[i].Text = Expressions[i].Text.Substring(0, j) + char.ConvertFromUtf32(x) + Expressions[i].Text.Substring(h + 1);
}
}
else
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Index is invalid in " + t + Epilog);
}
}
break;
case "$rnd":
{
int m = s.IndexOf(";", StringComparison.Ordinal);
if (m >= 0)
{
string s1 = s.Substring(0, m).TrimEnd(new char[] { });
string s2 = s.Substring(m + 1).TrimStart(new char[] { });
int x; if (NumberFormats.TryParseIntVb6(s1, out x))
{
int y; if (NumberFormats.TryParseIntVb6(s2, out y))
{
int z = x + (int)Math.Floor(Plugin.RandomNumberGenerator.NextDouble() * (y - x + 1));
Expressions[i].Text = Expressions[i].Text.Substring(0, j) + z.ToString(Culture) + Expressions[i].Text.Substring(h + 1);
}
else
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Index2 is invalid in " + t + Epilog);
}
}
else
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Index1 is invalid in " + t + Epilog);
}
}
else
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Two arguments are expected in " + t + Epilog);
}
} break;
case "$sub":
{
l = 0;
bool f = false;
int m;
for (m = h + 1; m < Expressions[i].Text.Length; m++)
{
switch (Expressions[i].Text[m])
{
case '(': l++; break;
case ')': l--; break;
case '=':
if (l == 0)
{
f = true;
}
break;
default:
if (!char.IsWhiteSpace(Expressions[i].Text[m]))
{
l = -1;
}
break;
}
if (f | l < 0)
{
break;
}
}
if (f)
{
l = 0;
int n;
for (n = m + 1; n < Expressions[i].Text.Length; n++)
{
switch (Expressions[i].Text[n])
{
case '(': l++; break;
case ')': l--; break;
}
if (l < 0)
{
break;
}
}
int x;
if (NumberFormats.TryParseIntVb6(s, out x))
{
if (x >= 0)
{
while (x >= Subs.Length)
{
Array.Resize(ref Subs, Subs.Length << 1);
}
Subs[x] = Expressions[i].Text.Substring(m + 1, n - m - 1).Trim(new char[] { });
Expressions[i].Text = Expressions[i].Text.Substring(0, j) + Expressions[i].Text.Substring(n);
}
else
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Index is expected to be non-negative in " + t + Epilog);
}
}
else
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Index is invalid in " + t + Epilog);
}
}
else
{
int x;
if (NumberFormats.TryParseIntVb6(s, out x))
{
if (x >= 0 & x < Subs.Length && Subs[x] != null)
{
Expressions[i].Text = Expressions[i].Text.Substring(0, j) + Subs[x] + Expressions[i].Text.Substring(h + 1);
}
else
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Index is out of range in " + t + Epilog);
}
}
else
{
continueWithNextExpression = true;
Plugin.CurrentHost.AddMessage(MessageType.Error, false, "Index is invalid in " + t + Epilog);
}
}
}
break;
}
}
}
if (continueWithNextExpression)
{
break;
}
}
}
// handle comments introduced via chr, rnd, sub
{
int length = Expressions.Length;
for (int i = 0; i < length; i++)
{
Expressions[i].Text = Expressions[i].Text.Trim(new char[] { });
if (Expressions[i].Text.Length != 0)
{
if (Expressions[i].Text[0] == ';')
{
for (int j = i; j < length - 1; j++)
{
Expressions[j] = Expressions[j + 1];
}
length--;
i--;
}
}
else
{
for (int j = i; j < length - 1; j++)
{
Expressions[j] = Expressions[j + 1];
}
length--;
i--;
}
}
if (length != Expressions.Length)
{
Array.Resize(ref Expressions, length);
}
}
}
/// <summary>Loads a custom plugin for the specified train.</summary>
/// <param name="trainFolder">The absolute path to the train folder.</param>
/// <param name="encoding">The encoding to be used.</param>
/// <returns>Whether the plugin was loaded successfully.</returns>
internal bool LoadCustomPlugin(string trainFolder, System.Text.Encoding encoding)
{
string config = OpenBveApi.Path.CombineFile(trainFolder, "ats.cfg");
if (!System.IO.File.Exists(config))
{
return(false);
}
string Text = System.IO.File.ReadAllText(config, encoding);
Text = Text.Replace("\r", "").Replace("\n", "");
string file;
try
{
file = OpenBveApi.Path.CombineFile(trainFolder, Text);
}
catch
{
Interface.AddMessage(MessageType.Error, true, "The train plugin path was malformed in " + config);
return(false);
}
string title = System.IO.Path.GetFileName(file);
if (!System.IO.File.Exists(file))
{
if (Text.EndsWith(".dll") && encoding.Equals(System.Text.Encoding.Unicode))
{
// Our filename ends with .dll so probably is not mangled Unicode
Interface.AddMessage(MessageType.Error, true, "The train plugin " + title + " could not be found in " + config);
return(false);
}
// Try again with ASCII encoding
Text = System.IO.File.ReadAllText(config, System.Text.Encoding.GetEncoding(1252));
Text = Text.Replace("\r", "").Replace("\n", "");
try
{
file = OpenBveApi.Path.CombineFile(trainFolder, Text);
}
catch
{
Interface.AddMessage(MessageType.Error, true, "The train plugin path was malformed in " + config);
return(false);
}
title = System.IO.Path.GetFileName(file);
if (!System.IO.File.Exists(file))
{
// Nope, still not found
Interface.AddMessage(MessageType.Error, true, "The train plugin " + title + " could not be found in " + config);
return(false);
}
}
Program.FileSystem.AppendToLogFile("Loading train plugin: " + file);
bool success = LoadPlugin(file, trainFolder);
if (success == false)
{
Loading.PluginError = Translations.GetInterfaceString("errors_plugin_failure1").Replace("[plugin]", file);
}
else
{
Program.FileSystem.AppendToLogFile("Train plugin loaded successfully.");
}
return(success);
}