private void btnCalc2_Click(object sender, EventArgs e)
{
SetVarible(srm2, "a", txtVarA.Text);
SetVarible(srm2, "b", txtVarB.Text);
SetVarible(srm2, "c", txtVarC.Text);
txtResult2.Text = (Convert.ToString(srm2.CalcExpression(txtExpr2.Text)));
}
public void ExtendedVariableAccessor()
{
var srm = new ScriptRunningMachine();
var ctx = srm.CreateContext();
ctx.ExternalVariableGetter = (id) =>
{
if (id.StartsWith("$"))
{
return(id.Substring(1));
}
else
{
return(null);
}
};
string result = Convert.ToString(srm.CalcExpression("$A1", ctx));
TestCaseAssertion.AssertEquals(result, "A1");
}
public void Run()
{
if (isDebugMode)
{
OutLn("ReoScript Machine Console (ver1.1)");
OutLn("type /help to see help topic.\n");
}
foreach (string file in fileList)
{
try
{
if (!isQuietMode)
{
Out("loading " + file + "... ");
}
srm.Load(file);
if (!isQuietMode)
{
OutLn("ok.");
}
}
catch (Exception ex) {
if (!isQuietMode)
{
OutLn("failed: " + ex.Message);
}
}
}
if (isDebugMode)
{
OutLn("\nReady.\n");
bool isQuitRequired = false;
while (!isQuitRequired)
{
Prompt();
string line = In().Trim();
if (line == null)
{
isQuitRequired = true;
break;
}
else if (line.StartsWith("."))
{
srm.Load(line.Substring(1, line.Length - 1));
}
else if (line.StartsWith("/"))
{
string consoleCmd = line.Substring(1);
switch (consoleCmd)
{
case "q":
case "quit":
case "exit":
isQuitRequired = true;
break;
case "h":
case "help":
Help();
break;
default:
break;
}
}
else if (line.Equals("?"))
{
OutLn(srm.GlobalObject.DumpObject());
}
else if (line.StartsWith("?"))
{
string expression = line.Substring(1);
try
{
object value = srm.CalcExpression(expression);
OutLn(value == null ? "undefined" : value.ToString());
}
catch (Exception ex)
{
OutLn("error: " + ex.Message);
}
}
else if (line.Length == 0)
{
continue;
}
else
{
try
{
srm.Run(line);
}
catch (ReoScriptException ex)
{
Console.WriteLine("error: " + ex.Message + "\n");
}
}
}
OutLn("Bye.");
}
}
static void Main(string[] args)
{
if (args.Length == 0)
{
Console.WriteLine(
@"ReoScript(TM) Running Machine
Copyright(c) 2012-2013 unvell, All Rights Reserved.
Usage: ReoScript.exe [filename|-workpath|-debug|-exec|-console]");
return;
}
List <string> files = new List <string>();
string workPath = null;
bool debug = false;
string initScript = null;
bool consoleMode = false;
bool compileMode = false;
try
{
for (int i = 0; i < args.Length; i++)
{
string arg = args[i];
if (arg.StartsWith("-"))
{
string param = arg.Substring(1);
switch (param)
{
case "workpath":
workPath = GetParameter(args, i);
i++;
break;
case "debug":
debug = true;
break;
case "exec":
initScript = GetParameter(args, i);
i++;
break;
case "com":
compileMode = true;
break;
case "console":
consoleMode = true;
break;
}
}
else
{
files.Add(arg);
}
}
}
catch (Exception ex)
{
OutLn(ex.Message);
return;
}
List <FileInfo> sourceFiles = new List <FileInfo>();
foreach (string file in files)
{
FileInfo fi = new FileInfo(string.IsNullOrEmpty(workPath)
? file : Path.Combine(workPath, file));
if (!fi.Exists)
{
Console.WriteLine("Resource not found: " + fi.FullName);
}
else
{
sourceFiles.Add(fi);
if (string.IsNullOrEmpty(workPath))
{
workPath = fi.DirectoryName;
}
}
}
if (string.IsNullOrEmpty(workPath))
{
workPath = Environment.CurrentDirectory;
}
// for test!
if (compileMode)
{
using (StreamReader sr = new StreamReader(new FileStream(args[0], FileMode.Open, FileAccess.Read, FileShare.Read)))
{
Console.WriteLine(unvell.ReoScript.Compiler.ReoScriptCompiler.Run(sr.ReadToEnd()));
}
return;
}
// create SRM
ScriptRunningMachine srm = new ScriptRunningMachine(CoreFeatures.FullFeatures);
if (debug)
{
new ScriptDebugger(srm);
}
// set to full work mode
srm.WorkMode |= MachineWorkMode.AllowImportTypeInScript
| MachineWorkMode.AllowCLREventBind
| MachineWorkMode.AllowDirectAccess;
// change work path
srm.WorkPath = workPath;
// add built-in output listener
srm.AddStdOutputListener(new BuiltinConsoleOutputListener());
// not finished yet!
//srm.SetGlobalVariable("File", new FileConstructorFunction());
try
{
foreach (FileInfo file in sourceFiles)
{
// load script file
srm.Run(file);
}
if (!string.IsNullOrEmpty(initScript))
{
srm.Run(initScript);
}
}
catch (ReoScriptException ex)
{
string str = string.Empty;
if (ex.ErrorObject == null)
{
str = ex.ToString();
}
else if (ex.ErrorObject is ErrorObject)
{
ErrorObject e = (ErrorObject)ex.ErrorObject;
str += "Error: " + e.GetFullErrorInfo();
}
else
{
str += Convert.ToString(ex.ErrorObject);
}
Console.WriteLine(str);
}
if (consoleMode)
{
OutLn("\nReady.\n");
bool isQuitRequired = false;
while (!isQuitRequired)
{
Prompt();
string line = In().Trim();
if (line == null)
{
isQuitRequired = true;
break;
}
else if (line.StartsWith("."))
{
srm.Load(line.Substring(1, line.Length - 1));
}
else if (line.StartsWith("/"))
{
string consoleCmd = line.Substring(1);
switch (consoleCmd)
{
case "q":
case "quit":
case "exit":
isQuitRequired = true;
break;
case "h":
case "help":
Help();
break;
default:
break;
}
}
else if (line.Equals("?"))
{
ObjectValue obj = srm.DefaultContext.ThisObject as ObjectValue;
if (obj != null)
{
OutLn(obj.DumpObject());
}
}
else if (line.StartsWith("?"))
{
string expression = line.Substring(1);
try
{
object value = srm.CalcExpression(expression);
if (value is ObjectValue)
{
OutLn(((ObjectValue)value).DumpObject());
}
else
{
OutLn(ScriptRunningMachine.ConvertToString(value));
}
}
catch (Exception ex)
{
OutLn("error: " + ex.Message);
}
}
else if (line.Length == 0)
{
continue;
}
else
{
try
{
srm.Run(line);
}
catch (ReoScriptException ex)
{
Console.WriteLine("error: " + ex.Message + "\n");
}
}
}
OutLn("Bye.");
}
}
private void btnExpr1_Click(object sender, EventArgs e)
{
txtResult1.Text = (Convert.ToString(srm1.CalcExpression(txtExpr1.Text)));
}
static void Main(string[] args)
{
if (args.Length == 0)
{
Console.WriteLine(
@"ReoScript(TM) Running Machine
Copyright(c) 2012-2013 unvell, All Rights Reserved.
Usage: ReoScript.exe [filename|-workpath|-debug|-exec|-console]");
return;
}
List<string> files = new List<string>();
string workPath = null;
bool debug = false;
string initScript = null;
bool consoleMode = false;
bool compileMode = false;
try
{
for (int i = 0; i < args.Length; i++)
{
string arg = args[i];
if (arg.StartsWith("-"))
{
string param = arg.Substring(1);
switch (param)
{
case "workpath":
workPath = GetParameter(args, i);
i++;
break;
case "debug":
debug = true;
break;
case "exec":
initScript = GetParameter(args, i);
i++;
break;
case "com":
compileMode = true;
break;
case "console":
consoleMode = true;
break;
}
}
else
{
files.Add(arg);
}
}
}
catch (Exception ex)
{
OutLn(ex.Message);
return;
}
List<FileInfo> sourceFiles = new List<FileInfo>();
foreach (string file in files)
{
FileInfo fi = new FileInfo(string.IsNullOrEmpty(workPath)
? file : Path.Combine(workPath, file));
if (!fi.Exists)
{
Console.WriteLine("Resource not found: " + fi.FullName);
}
else
{
sourceFiles.Add(fi);
if (string.IsNullOrEmpty(workPath))
{
workPath = fi.DirectoryName;
}
}
}
if (string.IsNullOrEmpty(workPath))
{
workPath = Environment.CurrentDirectory;
}
// for test!
if (compileMode)
{
using (StreamReader sr = new StreamReader(new FileStream(args[0], FileMode.Open, FileAccess.Read, FileShare.Read)))
{
Console.WriteLine(Unvell.ReoScript.Compiler.ReoScriptCompiler.Run(sr.ReadToEnd()));
}
return;
}
// create SRM
ScriptRunningMachine srm = new ScriptRunningMachine(CoreFeatures.FullFeatures);
if (debug)
{
new ScriptDebugger(srm);
}
// set to full work mode
srm.WorkMode |= MachineWorkMode.AllowImportTypeInScript
| MachineWorkMode.AllowCLREventBind
| MachineWorkMode.AllowDirectAccess;
// change work path
srm.WorkPath = workPath;
// add built-in output listener
srm.AddStdOutputListener(new BuiltinConsoleOutputListener());
// not finished yet!
//srm.SetGlobalVariable("File", new FileConstructorFunction());
try
{
foreach (FileInfo file in sourceFiles)
{
// load script file
srm.Run(file);
}
if (!string.IsNullOrEmpty(initScript))
{
srm.Run(initScript);
}
}
catch (ReoScriptException ex)
{
string str = string.Empty;
if (ex.ErrorObject == null)
{
str = ex.ToString();
}
else if (ex.ErrorObject is ErrorObject)
{
ErrorObject e = (ErrorObject)ex.ErrorObject;
str += "Error: " + e.GetFullErrorInfo();
}
else
{
str += Convert.ToString(ex.ErrorObject);
}
Console.WriteLine(str);
}
if (consoleMode)
{
OutLn("\nReady.\n");
bool isQuitRequired = false;
while (!isQuitRequired)
{
Prompt();
string line = In().Trim();
if (line == null)
{
isQuitRequired = true;
break;
}
else if (line.StartsWith("."))
{
srm.Load(line.Substring(1, line.Length - 1));
}
else if (line.StartsWith("/"))
{
string consoleCmd = line.Substring(1);
switch (consoleCmd)
{
case "q":
case "quit":
case "exit":
isQuitRequired = true;
break;
case "h":
case "help":
Help();
break;
default:
break;
}
}
else if (line.Equals("?"))
{
ObjectValue obj = srm.DefaultContext.ThisObject as ObjectValue;
if (obj != null) OutLn(obj.DumpObject());
}
else if (line.StartsWith("?"))
{
string expression = line.Substring(1);
try
{
object value = srm.CalcExpression(expression);
if (value is ObjectValue)
{
OutLn(((ObjectValue)value).DumpObject());
}
else
{
OutLn(ScriptRunningMachine.ConvertToString(value));
}
}
catch (Exception ex)
{
OutLn("error: " + ex.Message);
}
}
else if (line.Length == 0)
{
continue;
}
else
{
try
{
srm.Run(line);
}
catch (ReoScriptException ex)
{
Console.WriteLine("error: " + ex.Message + "\n");
}
}
}
OutLn("Bye.");
}
}
