public static void Initialize()
{
// Atomic Modules
CoreModule.Initialize();
MathModule.Initialize();
EngineModule.Initialize();
InputModule.Initialize();
IOModule.Initialize();
ResourceModule.Initialize();
AudioModule.Initialize();
GraphicsModule.Initialize();
SceneModule.Initialize();
Atomic2DModule.Initialize();
NavigationModule.Initialize();
NetworkModule.Initialize();
PhysicsModule.Initialize();
EnvironmentModule.Initialize();
UIModule.Initialize();
#if ATOMIC_DESKTOP
IPCModule.Initialize();
#endif
AtomicAppModule.Initialize();
ScriptModule.Initialize();
AtomicNETScriptModule.Initialize();
AtomicNETNativeModule.Initialize();
PlayerModule.Initialize();
IntPtr coreptr = csi_Atomic_NETCore_Initialize(eventDispatchDelegate, updateDispatchDelegate);
NETCore core = (coreptr == IntPtr.Zero ? null : NativeCore.WrapNative <NETCore>(coreptr));
if (core != null)
{
AtomicNET.RegisterSubsystem("NETCore", core);
}
context = core.Context;
NativeCore.Initialize();
CSComponentCore.Initialize();
#if ATOMIC_DESKTOP
string[] arguments = Environment.GetCommandLineArgs();
foreach (string arg in arguments)
{
AppBase.AddArgument(arg);
}
#endif
}
/// <summary>
/// Loads new bytecode into a script module.
/// </summary>
public async Task <bool> HotloadAsync(ScriptModule module, byte[] IL)
{
// TODO: Serialise the current state of the loaded assembly
// TODO: Restore the old state into the new assembly
var state = module.RuntimeState;
state.Unload();
var result = state.Load(IL);
return(result);
}
public static object CompileBootfile(object libs)
{
AssemblyGenAttributes aga = ScriptDomainManager.Options.AssemblyGenAttributes;
ScriptDomainManager.Options.AssemblyGenAttributes &= ~AssemblyGenAttributes.EmitDebugInfo;
ScriptDomainManager.Options.AssemblyGenAttributes &= ~AssemblyGenAttributes.GenerateDebugAssemblies;
ScriptDomainManager.Options.AssemblyGenAttributes &= ~AssemblyGenAttributes.DisableOptimizations;
if (ScriptDomainManager.Options.DebugMode)
{
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.EmitDebugInfo;
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.GenerateDebugAssemblies;
//ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.DisableOptimizations;
ScriptDomainManager.Options.DebugCodeGeneration = false;
}
else
{
ScriptDomainManager.Options.DebugCodeGeneration = false;
}
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.SaveAndReloadAssemblies;
ScriptDomainManager.CurrentManager.Snippets.CurrentAssembly =
Compiler.Generator.CurrentAssemblyGen = AssemblyGen.CreateModuleAssembly("ironscheme.boot.new.dll");
//Console.WriteLine(new Cons(libs).PrettyPrint);
CodeBlock cb = IronSchemeLanguageContext.CompileExpr(libs as Cons);
cb.ExplicitCodeContextExpression = null;
cb.Name = "ironscheme.boot.new";
ScriptCode sc = cc.LanguageContext.CompileSourceCode(cb);
sc.LibraryGlobals = Compiler.SimpleGenerator.libraryglobals;
sc.LibraryGlobalsN = Compiler.SimpleGenerator.libraryglobalsN;
sc.LibraryGlobalsX = Compiler.SimpleGenerator.libraryglobalsX;
sc.SourceUnit.IsVisibleToDebugger = true;
ScriptModule sm = ScriptDomainManager.CurrentManager.CreateModule("ironscheme.boot.new", sc);
ScriptDomainManager.Options.AssemblyGenAttributes = aga;
sc.ClearCache();
Compiler.SimpleGenerator.ClearGlobals();
return(TRUE);
}
public void AttachScript(string path, string type_name)
{
ScriptModule module = new ScriptModule(type_name, type_name, ModuleTypeEnum.OBJECT, false, path);
ScriptInterpreter.Interpreter.Programm.AttachScript(module);
InternalScriptType type = new InternalScriptType()
{
Name = type_name,
Alias = type_name,
Module = module,
};
ScriptInterpreter.Interpreter.Programm.InternalTypes.Add(type);
}
static ScriptModule GetModule(string name)
{
if (Modules.ContainsKey(name))
{
return(Modules[name]);
}
var module = new ScriptModule {
Name = name
};
Modules[name] = module;
return(module);
}
public DynamicFunction GetFunction(string name)
{
if (ScriptModule == null)
{
return(null);
}
object val;
if (!ScriptModule.TryGetVariable(name, out val))
{
return(null);
}
return(new DynamicFunction(val));
}
public static void Initialize()
{
// Atomic Modules
CoreModule.Initialize();
MathModule.Initialize();
EngineModule.Initialize();
InputModule.Initialize();
IOModule.Initialize();
ResourceModule.Initialize();
AudioModule.Initialize();
GraphicsModule.Initialize();
SceneModule.Initialize();
Atomic2DModule.Initialize();
Atomic3DModule.Initialize();
NavigationModule.Initialize();
NetworkModule.Initialize();
PhysicsModule.Initialize();
EnvironmentModule.Initialize();
UIModule.Initialize();
IPCModule.Initialize();
AtomicAppModule.Initialize();
ScriptModule.Initialize();
AtomicNETScriptModule.Initialize();
AtomicNETNativeModule.Initialize();
PlayerModule.Initialize();
coreDelegates = new CoreDelegates();
coreDelegates.eventDispatch = NativeCore.EventDispatch;
coreDelegates.updateDispatch = NativeCore.UpdateDispatch;
IntPtr coreptr = csb_Atomic_NETCore_Initialize(ref coreDelegates);
NETCore core = (coreptr == IntPtr.Zero ? null : NativeCore.WrapNative <NETCore>(coreptr));
if (core != null)
{
AtomicNET.RegisterSubsystem("NETCore", core);
}
context = core.Context;
NativeCore.Initialize();
CSComponentCore.Initialize();
}
internal static void Initialize(IronSchemeLanguageProvider ironSchemeLanguageProvider)
{
lp = ironSchemeLanguageProvider;
se = lp.GetEngine() as IronSchemeScriptEngine;
scriptmodule = ScriptDomainManager.CurrentManager.Host.DefaultModule as ScriptModule;
ModuleContext mc = new ModuleContext(scriptmodule);
mc.CompilerContext = new CompilerContext(SourceUnit.CreateSnippet(se, ""));
cc = new CodeContext(scriptmodule.Scope, se.GetLanguageContext(), mc);
binder = new IronScheme.Actions.IronSchemeActionBinder(cc);
Generator.initme = true;
}
public override void OnInspectorGUI()
{
base.OnInspectorGUI();
GUILayout.BeginVertical();
module = target as ScriptModule;
string text = EditorGUILayout.TextArea(module.initCodes, GUI.skin.textArea, GUILayout.Height(100f));
if (module.initCodes != text)
{
RegisterUndo();
module.initCodes = text;
}
string text2 = EditorGUILayout.TextArea(module.fixedUpdateCodes, GUI.skin.textArea, GUILayout.Height(400f));
if (module.fixedUpdateCodes != text2)
{
RegisterUndo();
module.fixedUpdateCodes = text2;
}
GUILayout.EndVertical();
}
protected int RunInteractiveLoop()
{
if (_module == null)
{
_module = ScriptDomainManager.CurrentManager.Host.DefaultModule as ScriptModule;
}
OnInteractiveLoopStart();
int?res = null;
do
{
if (Options.HandleExceptions)
{
try
{
res = TryInteractiveAction();
#if SILVERLIGHT
} catch (ExitProcessException e) {
res = e.ExitCode;
#endif
}
catch (Exception e)
{
// There should be no unhandled exceptions in the interactive session
// We catch all exceptions here, and just display it,
// and keep on going
_console.WriteLine(_engine.FormatException(e), Style.Error);
}
}
else
{
res = TryInteractiveAction();
}
} while (res == null);
return(res.Value);
}
private void SetupCommands(CommandDispatcher dispatcher)
{
dispatcher.RegisterCommand("quit", "Stops the node and exits", (args) => Terminate());
if (gui != null)
{
dispatcher.RegisterCommand("gui.log", "Switches the gui to log view", (args) => gui.ShowLog(args));
dispatcher.RegisterCommand("gui.graph", "Switches the gui to graph view", (args) => gui.ShowGraph(args));
}
dispatcher.RegisterCommand("help", "Lists available commands", (args) => dispatcher.Commands.ToList().ForEach(x => logger.Message($"{x.Name}\t{x.Description}")));
foreach (var method in api.Methods)
{
dispatcher.RegisterCommand("api." + method.Name, "API CALL", (args) => ExecuteAPI(method.Name, args));
}
dispatcher.RegisterCommand("script.assemble", "Assembles a .asm file into Phantasma VM script format",
(args) => ScriptModule.AssembleFile(args));
dispatcher.RegisterCommand("script.disassemble", $"Disassembles a {ScriptFormat.Extension} file into readable Phantasma assembly",
(args) => ScriptModule.DisassembleFile(args));
dispatcher.RegisterCommand("script.compile", "Compiles a .sol file into Phantasma VM script format",
(args) => ScriptModule.CompileFile(args));
dispatcher.RegisterCommand("wallet.balance", "Shows the current wallet balance",
(args) => WalletModule.Balance(node.Address, api, logger, args));
dispatcher.RegisterCommand("wallet.transfer", "Generates a new transfer transaction",
(args) => WalletModule.Transfer(node.Keys, api, logger, args));
dispatcher.RegisterCommand("wallet.stake", $"Stakes {Nexus.StakingTokenSymbol}",
(args) => WalletModule.Stake(node.Keys, api, logger, args));
dispatcher.RegisterCommand("file.upload", "Uploads a file into Phantasma",
(args) => FileModule.Upload(node.Keys, api, logger, args));
}
public ErrorInfo(Exception exception)
{
if (exception.Data.Count == 0)
{
ModuleName = ScriptEngine.EngineBase.Interpreter.ScriptInterpreter.Interpreter.CurrentModule.Name;
LineNumber = ScriptEngine.EngineBase.Interpreter.ScriptInterpreter.Interpreter.CurrentLine;
SourceLine = ScriptEngine.EngineBase.Interpreter.ScriptInterpreter.Interpreter.CurrentModule.GetCodeLine(LineNumber);
Description = exception.Message;
Cause = null;
}
else
{
ModuleName = Convert.ToString(exception.Data["module"]);
LineNumber = Convert.ToInt32(exception.Data["line"]);
ScriptModule module = ScriptEngine.EngineBase.Interpreter.ScriptInterpreter.Interpreter.Programm.Modules.Get(ModuleName);
if (module != null)
{
SourceLine = module.GetCodeLine(LineNumber);
}
Description = Convert.ToString(exception.Data["message"]);;
Cause = null;
}
}
private void SetupCommands(CommandDispatcher dispatcher)
{
ModuleLogger.Init(logger, gui);
var minimumFee = this.mempool != null ? mempool.MinimumFee : 1;
dispatcher.RegisterCommand("quit", "Stops the node and exits", (args) => Terminate());
if (gui != null)
{
dispatcher.RegisterCommand("gui.log", "Switches the gui to log view", (args) => gui.ShowLog(args));
dispatcher.RegisterCommand("gui.graph", "Switches the gui to graph view", (args) => gui.ShowGraph(args));
}
dispatcher.RegisterCommand("help", "Lists available commands", (args) => dispatcher.Commands.ToList().ForEach(x => logger.Message($"{x.Name}\t{x.Description}")));
foreach (var method in nexusApi.Methods)
{
dispatcher.RegisterCommand("api." + method.Name, "API CALL", (args) => ExecuteAPI(method.Name, args));
}
dispatcher.RegisterCommand("script.assemble", "Assembles a .asm file into Phantasma VM script format",
(args) => ScriptModule.AssembleFile(args));
dispatcher.RegisterCommand("script.disassemble", $"Disassembles a {ScriptFormat.Extension} file into readable Phantasma assembly",
(args) => ScriptModule.DisassembleFile(args));
dispatcher.RegisterCommand("script.compile", "Compiles a .sol file into Phantasma VM script format",
(args) => ScriptModule.CompileFile(args));
dispatcher.RegisterCommand("wallet.open", "Opens a wallet from a WIF key",
(args) => WalletModule.Open(args));
dispatcher.RegisterCommand("wallet.create", "Creates new a wallet",
(args) => WalletModule.Create(args));
dispatcher.RegisterCommand("wallet.balance", "Shows the current wallet balance",
(args) => WalletModule.Balance(nexusApi, restPort, neoScanAPI, args));
dispatcher.RegisterCommand("wallet.transfer", "Generates a new transfer transaction",
(args) => WalletModule.Transfer(nexusApi, minimumFee, neoAPI, args));
dispatcher.RegisterCommand("wallet.stake", $"Stakes {DomainSettings.StakingTokenSymbol}",
(args) => WalletModule.Stake(nexusApi, args));
dispatcher.RegisterCommand("wallet.airdrop", "Does a batch transfer from a .csv",
(args) => WalletModule.Airdrop(args, nexusApi, minimumFee));
dispatcher.RegisterCommand("wallet.migrate", "Migrates a validator to another address ",
(args) =>
{
WalletModule.Migrate(args, nexusApi, minimumFee);
if (mempool != null)
{
mempool.SetKeys(WalletModule.Keys);
}
});
dispatcher.RegisterCommand("file.upload", "Uploads a file into Phantasma",
(args) => FileModule.Upload(WalletModule.Keys, nexusApi, args));
dispatcher.RegisterCommand("oracle.read", "Read transaction from oracle",
(args) =>
{
var hash = Hash.Parse(args[0]);
var reader = nexus.CreateOracleReader();
var tx = reader.ReadTransaction("neo", "neo", hash);
logger.Message(tx.Transfers[0].interopAddress.Text);
});
if (mempool != null)
{
dispatcher.RegisterCommand("mempool.list", "Shows mempool pending transaction list",
(args) =>
{
var txs = mempool.GetTransactions();
foreach (var tx in txs)
{
logger.Message(tx.ToString());
}
});
}
dispatcher.RegisterCommand("neo.deploy", "Deploys a contract into NEO",
(args) =>
{
if (args.Length != 2)
{
throw new CommandException("Expected: WIF avm_path");
}
var avmPath = args[1];
if (!File.Exists(avmPath))
{
throw new CommandException("path for avm not found");
}
var keys = Neo.Core.NeoKeys.FromWIF(args[0]);
var script = File.ReadAllBytes(avmPath);
var scriptHash = Neo.Utils.CryptoUtils.ToScriptHash(script);
logger.Message("Deploying contract " + scriptHash);
try
{
var tx = neoAPI.DeployContract(keys, script, Base16.Decode("0710"), 0x05, Neo.Core.ContractProperties.HasStorage | Neo.Core.ContractProperties.Payable, "Contract", "1.0", "Author", "*****@*****.**", "Description");
logger.Success("Deployed contract via transaction: " + tx.Hash);
}
catch (Exception e)
{
logger.Error("Failed to deploy contract: " + e.Message);
}
});
dispatcher.RegisterCommand("exit", "Terminates the node", (args) =>
{
this.Terminate();
});
if (useSimulator)
{
dispatcher.RegisterCommand("simulator.timeskip", $"Skips minutse in simulator",
(args) =>
{
if (args.Length != 1)
{
throw new CommandException("Expected: minutes");
}
var minutes = int.Parse(args[0]);
simulator.CurrentTime += TimeSpan.FromMinutes(minutes);
logger.Success($"Simulator time advanced by {minutes}");
});
}
}
static void Parse(string value)
{
var json = JsonConvert.DeserializeObject <JToken>(value);
var comments = json.FindTokens("comment");
ScriptModule module = null;
foreach (var comment in comments)
{
var attributes = comment["attributes"] as JObject;
if (attributes == null)
{
continue;
}
var brief = (comment["brief"] ?? "").ToString();
var full = (comment["full"] ?? "").ToString();
if (attributes.ContainsKey("scriptModule"))
{
var scriptModule = attributes["scriptModule"];
var name = scriptModule.ToString();
if (!name.Contains('/'))
{
name = "FuseJS/" + name;
}
module = GetModule(name);
module.Documentation = full;
}
if (attributes.ContainsKey("scriptMethod"))
{
var scriptMethod = attributes["scriptMethod"];
var result = new ScriptMethod {
Name = scriptMethod["name"].ToString(), Documentation = full
};
module.Methods.Add(result);
foreach (var parameter in scriptMethod["parameters"])
{
result.Parameters.Add(parameter.ToString());
}
}
if (attributes.ContainsKey("scriptProperty"))
{
var scriptProperty = attributes["scriptProperty"];
var result = new ScriptProperty {
Name = scriptProperty.ToString(), Documentation = full
};
// Extract type and docs
if (result.Name.StartsWith("("))
{
var i = result.Name.IndexOf(')', 1);
result.Type = result.Name.Substring(1, i - 1);
var parts = result.Name.Substring(i + 1).Trim().Split(' ');
result.Name = parts[0];
result.Documentation = string.Join(" ", parts.Skip(1));
}
// Skip duplicates
if (module.Properties.Any(p => p.Name == result.Name))
{
continue;
}
module.Properties.Add(result);
}
if (attributes.ContainsKey("scriptEvent"))
{
var scriptEvent = attributes["scriptEvent"];
var result = new ScriptEvent {
Name = scriptEvent.ToString(), Documentation = brief
};
module.Events.Add(result);
}
}
}
internal static object Load(object filename, bool loadinmemory)
{
CodeContext cc = IronScheme.Compiler.BaseHelper.cc; // sneaky....
string path = GetPath(filename as string);
switch (Path.GetExtension(path))
{
case ".exe":
case ".dll":
const string newbf = "build/ironscheme.boot.dll";
if (File.Exists(newbf) && File.GetLastWriteTime(newbf) > File.GetLastWriteTime(path))
{
File.Delete("ironscheme.boot.old.dll");
File.Delete("ironscheme.boot.pdb");
File.Move("ironscheme.boot.dll", "ironscheme.boot.old.dll");
File.Move(newbf, "ironscheme.boot.dll");
const string newpdb = "build/ironscheme.boot.pdb";
if (File.Exists(newpdb))
{
File.Move(newpdb, "ironscheme.boot.pdb");
}
}
// just reference.?
MethodInfo entry = null;
Type ilmergefixup = typeof(Builtins).Assembly.GetType("#", false);
if (ilmergefixup != null && BootfileAssembly == null)
{
entry = ilmergefixup.GetMethod("Initialize");
BootfileAssembly = typeof(Builtins).Assembly;
}
else
{
Assembly ext = AssemblyLoad(path, loadinmemory);
// now that it is loaded, make sure we remove compiletime types
IronScheme.Compiler.ClrGenerator.ClearTypesFrom(ext);
foreach (Type t in ext.GetExportedTypes())
{
if (t.BaseType == typeof(CustomSymbolDictionary))
{
List <Type> ii = new List <Type>(t.GetInterfaces());
if (ii.Contains(typeof(IModuleDictionaryInitialization)))
{
entry = t.GetMethod("Initialize");
if (entry != null)
{
break;
}
}
}
}
}
if (entry == null)
{
// what now?
throw new ArgumentException("No entry point");
}
else
{
IModuleDictionaryInitialization init = Activator.CreateInstance(entry.DeclaringType) as
IModuleDictionaryInitialization;
CodeContext ccc = new CodeContext(cc, init as IAttributesCollection);
init.InitializeModuleDictionary(ccc);
var t = Delegate.CreateDelegate(typeof(CallTarget0), ccc, entry) as CallTarget0;
return(t());
}
default:
{
// check for already compiled version
string cfn = Path.ChangeExtension(path, ".dll");
if (File.Exists(cfn))
{
DateTime ct = File.GetLastWriteTime(cfn);
if (!File.Exists(path) || ct >= File.GetLastWriteTime(path))
{
if (File.GetLastWriteTime(Path.Combine(ApplicationDirectory, "IronScheme.dll")) <= ct ||
cfn.EndsWith("ironscheme.boot.dll"))
{
path = cfn;
goto case ".dll";
}
}
}
cfn = Path.ChangeExtension(path, ".new.dll");
if (File.Exists(cfn))
{
DateTime ct = File.GetLastWriteTime(cfn);
if (!File.Exists(path) || ct >= File.GetLastWriteTime(path))
{
if (File.GetLastWriteTime(Path.Combine(ApplicationDirectory, "IronScheme.dll")) <= ct ||
cfn.EndsWith("ironscheme.boot.dll"))
{
path = cfn;
goto case ".dll";
}
}
}
if (!File.Exists(path))
{
throw new FileNotFoundException("Not found", path);
}
SourceUnit su = ScriptDomainManager.CurrentManager.Host.TryGetSourceFileUnit(cc.LanguageContext.Engine, path, Encoding.Default);
#if DEBUG
Stopwatch sw = Stopwatch.StartNew();
#endif
ScriptModule sm = ScriptDomainManager.CurrentManager.CompileModule(Path.GetFileNameWithoutExtension(path), su);
Compiler.SimpleGenerator.ClearGlobals();
#if DEBUG
Trace.WriteLine(sw.ElapsedMilliseconds, "Compile module: " + sm.FileName);
sw = Stopwatch.StartNew();
#endif
object result = sm.GetScripts()[0].Run(sm);
#if DEBUG
Trace.WriteLine(sw.ElapsedMilliseconds, "Run script: " + sm.GetScripts()[0].SourceUnit);
#endif
return(result);
}
}
}
public T EvaluateAs <T>(string expression, ScriptModule module)
{
return(ConvertObject <T>(Evaluate(expression, module)));
}
/// <summary>
/// Gets a full qualified name of a script type given a sub-namespace.
/// </summary>
/// <param name="sourceFile">Source file.</param>
/// <returns>The qualified name.</returns>
public string GetQualifiedScriptTypeName(PhpSourceFile /*!*/ sourceFile)
{
Debug.Assert(sourceFile != null);
return(GetQualifiedScriptTypeName(ScriptModule.GetSubnamespace(sourceFile)));
}
public ScriptProcedure(ScriptModule module, string name)
{
_module = module;
_name = name;
_arguments = new object[0];
}
public ScriptProcedure(ScriptModule module, string name, object[] args) {
_module = module;
_name = name;
_arguments = args;
}
/// <summary>
/// Invoked when the script assembly is being loaded from CLR assembly.
/// </summary>
protected override void LoadedFromAssembly(Assembly/*!*/ assembly)
{
script = new ScriptModule(this, "");
}
public static object CompileCore(object expr)
{
// fast path for really simple stuff
if (expr is SymbolId)
{
CallTarget0 n = delegate
{
return(SymbolValue(expr));
};
return(Closure.Create(n));
}
AssemblyGenAttributes aga = ScriptDomainManager.Options.AssemblyGenAttributes;
ScriptDomainManager.Options.AssemblyGenAttributes &= ~AssemblyGenAttributes.EmitDebugInfo;
ScriptDomainManager.Options.AssemblyGenAttributes &= ~AssemblyGenAttributes.GenerateDebugAssemblies;
ScriptDomainManager.Options.AssemblyGenAttributes &= ~AssemblyGenAttributes.DisableOptimizations;
if (ScriptDomainManager.Options.DebugMode)
{
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.EmitDebugInfo;
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.GenerateDebugAssemblies;
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.DisableOptimizations;
ScriptDomainManager.Options.DebugCodeGeneration = true;
}
else
{
ScriptDomainManager.Options.DebugCodeGeneration = false;
}
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.SaveAndReloadAssemblies;
// if you ever want to inspect the emitted dll's comment the following out (or skip in the debugger), use with care
ScriptDomainManager.Options.AssemblyGenAttributes &= ~AssemblyGenAttributes.SaveAndReloadAssemblies;
var prevt = IronScheme.Compiler.Generator.AllowTransientBinding;
var prevag = Compiler.Generator.CurrentAssemblyGen;
if ((ScriptDomainManager.Options.AssemblyGenAttributes & AssemblyGenAttributes.SaveAndReloadAssemblies) != 0)
{
IronScheme.Compiler.Generator.AllowTransientBinding = false;
ScriptDomainManager.CurrentManager.Snippets.CurrentAssembly =
Compiler.Generator.CurrentAssemblyGen = AssemblyGen.CreateModuleAssembly(null);
}
else
{
Compiler.Generator.CurrentAssemblyGen = ScriptDomainManager.Options.DebugMode ?
ScriptDomainManager.CurrentManager.Snippets.DebugAssembly :
ScriptDomainManager.CurrentManager.Snippets.Assembly;
}
int c = Interlocked.Increment(ref evalcounter);
#if DEBUG
Stopwatch sw = Stopwatch.StartNew();
#endif
//Console.WriteLine(new Cons(expr).PrettyPrint);
try
{
CodeBlock cb = IronSchemeLanguageContext.CompileExpr(new Cons(expr));
cb.ExplicitCodeContextExpression = null;
ScriptCode sc = Context.LanguageContext.CompileSourceCode(cb); //wrap
#if DEBUG
sw.Stop();
Trace.WriteLine(sw.Elapsed.TotalMilliseconds, string.Format("compile - eval-core({0:D3})", c));
sw = Stopwatch.StartNew();
#endif
try
{
sc.LibraryGlobals = Compiler.SimpleGenerator.libraryglobals;
sc.LibraryGlobalsN = Compiler.SimpleGenerator.libraryglobalsN;
sc.LibraryGlobalsX = Compiler.SimpleGenerator.libraryglobalsX;
ScriptModule sm = ScriptDomainManager.CurrentManager.CreateModule(string.Format("eval-core({0:D3})", c), sc);
sc = sm.GetScripts()[0];
#if DEBUG
sw.Stop();
Trace.WriteLine(sw.Elapsed.TotalMilliseconds, string.Format("compile*- eval-core({0:D3})", c));
#endif
CallTarget0 compiled = delegate
{
#if DEBUG
try
{
sw = Stopwatch.StartNew();
#endif
return(sc.Run(Context.ModuleContext.Module));
#if DEBUG
}
finally
{
sw.Stop();
Trace.WriteLine(sw.Elapsed.TotalMilliseconds, string.Format("run - eval-core({0:D3})", c));
}
#endif
};
return(Closure.Create(compiled));
}
catch (Variable.UnInitializedUsageException ex)
{
CallTarget0 err = delegate
{
return(AssertionViolation(ex.Variable.Block.Name, ex.Message, UnGenSym(ex.Variable.Name)));
};
return(Closure.Create(err));
}
finally
{
BoundExpression.Fixups.Clear();
BoundExpression.FixupTypes.Clear();
Compiler.Generator.CurrentAssemblyGen = prevag;
ScriptDomainManager.Options.AssemblyGenAttributes = aga;
IronScheme.Compiler.Generator.AllowTransientBinding = prevt;
sc.ClearCache();
Compiler.SimpleGenerator.ClearGlobals();
Compiler.ClrGenerator.compiletimetypes.Clear();
}
}
catch (Continuation)
{
throw;
}
catch (Exception ex)
{
var who = ex.Data["Who"];
return(SyntaxError(who ?? FALSE, ex.Message, FALSE, FALSE));
}
}
protected int RunInteractiveLoop() {
if (_module == null) {
_module = ScriptDomainManager.CurrentManager.Host.DefaultModule as ScriptModule;
}
OnInteractiveLoopStart();
int? res = null;
do {
if (Options.HandleExceptions) {
try {
res = TryInteractiveAction();
#if SILVERLIGHT
} catch (ExitProcessException e) {
res = e.ExitCode;
#endif
} catch (Exception e) {
// There should be no unhandled exceptions in the interactive session
// We catch all exceptions here, and just display it,
// and keep on going
_console.WriteLine(_engine.FormatException(e), Style.Error);
}
} else {
res = TryInteractiveAction();
}
} while (res == null);
return res.Value;
}
internal protected virtual LanguageContext GetLanguageContext(ScriptModule module)
{
Contract.RequiresNotNull(module, "module");
return(GetLanguageContext(module.GetCompilerOptions(this)));
}
/// <summary>
/// Creates compiler options initialized by the options associated with the module.
/// </summary>
public virtual CompilerOptions GetModuleCompilerOptions(ScriptModule module) // TODO: internal protected
{
return(GetDefaultCompilerOptions());
}
public ScriptProcedure(ScriptModule module, string name) {
_module = module;
_name = name;
_arguments = new object[0];
}
/// <summary>
/// Добавить в программу обьект используя его тип.
/// </summary>
/// <param name="type"></param>
/// <param name="as_global"></param>
public void AddObjectOfType(Type type, LibraryClassAttribute attribute = null)
{
if (attribute == null)
{
attribute = (LibraryClassAttribute)Attribute.GetCustomAttribute(type, typeof(LibraryClassAttribute), false);
}
ScriptModule module = new ScriptModule(attribute.Name, attribute.Alias, ModuleTypeEnum.OBJECT, attribute.AsGlobal)
{
InstanceType = type
};
foreach (PropertyInfo property in type.GetTypeInfo().GetProperties().Where(m => m.GetCustomAttributes(typeof(LibraryClassPropertyAttribute), false).Length > 0))
{
LibraryClassPropertyAttribute property_attr = property.GetCustomAttribute <LibraryClassPropertyAttribute>(false);
IVariableReference reference = ReferenceFactory.Create(type, property);
IVariable var = new Variable()
{
Name = property_attr.Name, Alias = property_attr.Alias, Public = true, Reference = reference
};
module.Variables.Add(property_attr.Name, var);
if (attribute.AsGlobal)
{
_programm.GlobalVariables.Add(var);
}
}
foreach (MethodInfo method in type.GetTypeInfo().DeclaredMethods.Where(m => m.GetCustomAttributes(typeof(LibraryClassMethodAttribute), false).Length > 0))
{
LibraryClassMethodAttribute method_attr = method.GetCustomAttribute <LibraryClassMethodAttribute>(false);
IFunction function = module.Functions.Create(method_attr.Name, true);
if (function == null)
{
throw new Exception($"Функция с именем {method_attr.Name} уже существует.");
}
function.Alias = method_attr.Alias;
function.Type = method.ReturnType == typeof(void) ? FunctionTypeEnum.PROCEDURE : FunctionTypeEnum.FUNCTION;
GetFunctionParameters(function, method);
function.Method = LibraryMethodFactory.Create(type, method);
if (attribute.AsGlobal)
{
_programm.GlobalFunctions.Add(function);
}
}
if (module.Variables.Get("ЭтотОбъект") == null && !attribute.AsGlobal)
{
module.Variables.Create("ЭтотОбъект", true, module.ModuleScope);
}
_programm.Modules.Add(module);
if (attribute.RegisterType)
{
_programm.InternalTypes.Add(new InternalScriptType()
{
Name = attribute.Name, Alias = attribute.Alias, Description = attribute.Alias, Module = module, Type = type
});
}
if (attribute.AsGlobal)
{
_programm.GlobalVariables.Add(new Variable()
{
Name = attribute.Name, Alias = attribute.Alias, Reference = new SimpleReference()
});
}
}
public Entry(FullPath path, ScriptModule scriptModule, ScriptAssembly containingAssembly)
{
ScriptModule = scriptModule;
ContainingAssembly = containingAssembly;
Path = path;
}
/// <summary>
/// Invoked when the script assembly is being loaded from CLR assembly.
/// </summary>
protected override void LoadedFromAssembly(Assembly /*!*/ assembly)
{
script = new ScriptModule(this, "");
}
public ScriptHost(IScriptEnvironment environment)
{
Contract.RequiresNotNull(environment, "environment");
_environment = environment;
_defaultModule = null;
}
public virtual void ModuleCreated(ScriptModule module)
{
// nop
}
public CompilerOptions GetModuleCompilerOptions(ScriptModule module)
{
throw new NotSupportedException();
}
public ScriptHost(IScriptEnvironment environment)
{
Contract.RequiresNotNull(environment, "environment");
_environment = environment;
_defaultModule = null;
}
public static object CompileLibrary(object filename, object content)
{
IronScheme.Compiler.Generator.LocationHint = null;
AssemblyGenAttributes aga = ScriptDomainManager.Options.AssemblyGenAttributes;
ScriptDomainManager.Options.AssemblyGenAttributes &= ~AssemblyGenAttributes.EmitDebugInfo;
ScriptDomainManager.Options.AssemblyGenAttributes &= ~AssemblyGenAttributes.GenerateDebugAssemblies;
ScriptDomainManager.Options.AssemblyGenAttributes &= ~AssemblyGenAttributes.DisableOptimizations;
if (ScriptDomainManager.Options.DebugMode)
{
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.EmitDebugInfo;
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.GenerateDebugAssemblies;
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.DisableOptimizations;
ScriptDomainManager.Options.DebugCodeGeneration = true;
}
else
{
ScriptDomainManager.Options.DebugCodeGeneration = false;
}
ScriptDomainManager.Options.AssemblyGenAttributes |= AssemblyGenAttributes.SaveAndReloadAssemblies;
//object[] arr = ListToVector(content as Cons);
//0: id
//1: name
//2: version
//3: imp*
//4: vis*
//5: inv*
//6: subst
//7: env
//8: visit code
//9: invoke code
//10: guard code
//11: guard req?
//12: visible?
Compiler.Generator.AllowTransientBinding = false;
ScriptDomainManager.CurrentManager.Snippets.CurrentAssembly =
Compiler.Generator.CurrentAssemblyGen = AssemblyGen.CreateModuleAssembly(filename as string);
try
{
CodeBlock cb = IronSchemeLanguageContext.CompileExpr(new Cons(content));
cb.ExplicitCodeContextExpression = null;
cb.Name = "";
ScriptCode sc = cc.LanguageContext.CompileSourceCode(cb, filename as string);
sc.LibraryGlobals = Compiler.SimpleGenerator.libraryglobals;
sc.LibraryGlobalsN = Compiler.SimpleGenerator.libraryglobalsN;
sc.LibraryGlobalsX = Compiler.SimpleGenerator.libraryglobalsX;
sc.SourceUnit.IsVisibleToDebugger = true;
ScriptModule sm = ScriptDomainManager.CurrentManager.CreateModule(Path.GetFileNameWithoutExtension(filename as string), sc);
// clean up transient non-generative types, could maybe also have used AllowTransientBinding to check?
IronScheme.Runtime.R6RS.Records.ClearTypesFrom(Compiler.Generator.CurrentAssemblyGen);
ScriptDomainManager.Options.AssemblyGenAttributes = aga;
Compiler.SimpleGenerator.ClearGlobals();
return(TRUE);
}
finally
{
Compiler.Generator.AllowTransientBinding = true;
}
}
internal static void CreateDefaultModule(ref ScriptModule defaultModule)
{
// create a module and throw it away if there is already one:
ScriptModule module = ScriptDomainManager.CurrentManager.CreateModule("<default>", null, ScriptCode.EmptyArray);
Utilities.MemoryBarrier();
Interlocked.CompareExchange<ScriptModule>(ref defaultModule, module, null);
}
public ScriptModuleAssemblyLoadContext(ScriptModule module) : base(isCollectible: true)
{
_module = module;
}
public ScriptProcedure(ScriptModule module, string name, object[] args)
{
_module = module;
_name = name;
_arguments = args;
}
