/// <summary>
/// Loads, parses, and executes a file.
/// </summary>
/// <param name="s"></param>
static public void RunFile(string sFile)
{
VM vm = new VM();
vm.InitializeVM();
ModuleDefn m = vm.LoadModule(sFile);
vm.LoadDependentModules(sFile);
vm.ResolveTypes();
vm.RunModule(m);
}
/// <summary>
/// Loads, parses, and executes a file.
/// </summary>
/// <param name="s"></param>
static public void RunFile(string sFile)
{
VM vm = new VM();
vm.InitializeVM();
ModuleDefn m = vm.LoadModule(sFile);
vm.LoadDependentModules(sFile);
vm.ResolveTypes();
vm.RunModule(m);
}
/// <summary>
/// Runs the named macro.
/// </summary>
public void RunMacro(string s)
{
try
{
string sFile = GetMacroFile();
VM vm = new VM();
vm.InitializeVM();
vm.RegisterDotNetType(typeof (HeronEditor));
vm.RegisterDotNetType(typeof(CodeEditControl));
vm.RegisterDotNetType(typeof(Preferences));
//vm.RegisterAssembly(Assembly.GetExecutingAssembly());
vm.RegisterCommonWinFormTypes();
ModuleDefn m = vm.LoadModule(sFile);
vm.LoadDependentModules(sFile);
vm.ResolveTypes
();
ModuleInstance mi = m.Instantiate(vm, new HeronValue[] { }, null) as ModuleInstance;
vm.RunMeta(mi);
HeronValue f = mi.GetFieldOrMethod("RunMacro");
if (f == null)
throw new Exception("Could not find a 'Main' method to run");
f.Apply(vm, new HeronValue[] { DotNetObject.Marshal(this), DotNetObject.Marshal(s) });
}
catch (Exception e)
{
MessageBox.Show("Error during macro: " + e.Message);
}
}
static UnitTests()
{
vm.InitializeVM();
}
