public TypeTrace(AssemblyTrace parent, CST.TypeDef type)
{
Parent = parent;
Type = type;
IncludeType = false;
Methods = new Set <CST.MethodSignature>();
}
public TypeTrace(AssemblyTrace parent, CST.TypeDef type)
{
Parent = parent;
Type = type;
IncludeType = false;
Methods = new Set<CST.MethodSignature>();
}
// Collecting mode entry point
public AssemblyCompiler(CompilerEnvironment env, CST.AssemblyDef assemblyDef)
: this(env)
{
assmEnv = env.Global.Environment().AddAssembly(assemblyDef);
assemblyTrace = null;
NameSupply = new JST.NameSupply(Constants.Globals);
rootId = NameSupply.GenSym();
assemblyId = NameSupply.GenSym();
}
// Collecting mode entry point
public AssemblyCompiler(CompilerEnvironment env, CST.AssemblyDef assemblyDef)
: this(env)
{
assmEnv = env.Global.Environment().AddAssembly(assemblyDef);
assemblyTrace = null;
NameSupply = new JST.NameSupply(Constants.Globals);
rootId = NameSupply.GenSym();
assemblyId = NameSupply.GenSym();
}
private AssemblyTrace ResolveAssemblyTrace(CST.AssemblyDef assemblyDef)
{
var assemblyTrace = default(AssemblyTrace);
if (!AssemblyMap.TryGetValue(assemblyDef.Name, out assemblyTrace))
{
assemblyTrace = new AssemblyTrace(this, assemblyDef);
AssemblyMap.Add(assemblyDef.Name, assemblyTrace);
}
return(assemblyTrace);
}
// Traced mode entry point
public AssemblyCompiler(TraceCompiler parent, AssemblyTrace assemblyTrace)
: this(parent.Env)
{
assmEnv = parent.Env.Global.Environment().AddAssembly(assemblyTrace.Assembly);
this.assemblyTrace = assemblyTrace;
if (assemblyTrace.Parent.Flavor == TraceFlavor.Remainder)
{
NameSupply = new JST.NameSupply(Constants.Globals);
rootId = NameSupply.GenSym();
assemblyId = NameSupply.GenSym();
}
else
{
NameSupply = parent.NameSupply;
rootId = parent.RootId;
assemblyId = NameSupply.GenSym();
}
}
// Traced mode entry point
public AssemblyCompiler(TraceCompiler parent, AssemblyTrace assemblyTrace)
: this(parent.Env)
{
assmEnv = parent.Env.Global.Environment().AddAssembly(assemblyTrace.Assembly);
this.assemblyTrace = assemblyTrace;
if (assemblyTrace.Parent.Flavor == TraceFlavor.Remainder)
{
NameSupply = new JST.NameSupply(Constants.Globals);
rootId = NameSupply.GenSym();
assemblyId = NameSupply.GenSym();
}
else
{
NameSupply = parent.NameSupply;
rootId = parent.RootId;
assemblyId = NameSupply.GenSym();
}
}
private AssemblyTrace ResolveAssemblyTrace(CST.AssemblyDef assemblyDef)
{
var assemblyTrace = default(AssemblyTrace);
if (!AssemblyMap.TryGetValue(assemblyDef.Name, out assemblyTrace))
{
assemblyTrace = new AssemblyTrace(this, assemblyDef);
AssemblyMap.Add(assemblyDef.Name, assemblyTrace);
}
return assemblyTrace;
}