public static Type GenerateInterface(string iName, IPersistentMap attributes, Seqable extends, ISeq methods)
{
iName = iName.Replace('-', '_');
GenContext context;
if (Compiler.IsCompiling)
{
//string path = (string)Compiler.COMPILE_PATH.deref();
//if (path == null)
// throw new Exception("*compile-path* not set");
//context = new GenContext(iName, ".dll", path, CompilerMode.File);
context = (GenContext)Compiler.CompilerContextVar.deref();
}
else
// TODO: In CLR4, should create a collectible type?
context = GenContext.CreateWithExternalAssembly(iName+"_"+RT.nextID(), ".dll", false);
for (ISeq s = RT.seq(extends); s != null; s = s.next())
{
object f = s.first();
string name = f as String ?? ((Named)f).getName();
if (name.Contains("-"))
throw new ArgumentException("Interface methods must not contain '-'");
}
Type[] interfaceTypes = GenClass.CreateTypeArray(extends == null ? null : extends.seq());
TypeBuilder proxyTB = context.ModuleBuilder.DefineType(
iName,
TypeAttributes.Interface | TypeAttributes.Public | TypeAttributes.Abstract,
null,
interfaceTypes);
// Should we associate source file info?
// See Java committ 8d6fdb, 2015.07.17, related to CLJ-1645
// TODO: part of check on debug info
SetCustomAttributes(proxyTB, attributes);
DefineMethods(proxyTB, methods);
Type t = proxyTB.CreateType();
//if ( Compiler.IsCompiling )
// context.SaveAssembly();
Compiler.RegisterDuplicateType(t);
return t;
}
public static Type GenerateInterface(string iName, IPersistentMap attributes, Seqable extends, ISeq methods)
{
iName = iName.Replace('-', '_');
GenContext context;
if (Compiler.IsCompiling)
{
//string path = (string)Compiler.COMPILE_PATH.deref();
//if (path == null)
// throw new Exception("*compile-path* not set");
//context = new GenContext(iName, ".dll", path, CompilerMode.File);
context = (GenContext)Compiler.CompilerContextVar.deref();
}
else
{
// TODO: In CLR4, should create a collectible type?
context = GenContext.CreateWithExternalAssembly(iName, ".dll", false);
}
Type[] interfaceTypes = GenClass.CreateTypeArray(extends == null ? null : extends.seq());
TypeBuilder proxyTB = context.ModuleBuilder.DefineType(
iName,
TypeAttributes.Interface | TypeAttributes.Public | TypeAttributes.Abstract,
null,
interfaceTypes);
SetCustomAttributes(proxyTB, attributes);
DefineMethods(proxyTB, methods);
Type t = proxyTB.CreateType();
//if ( Compiler.IsCompiling )
// context.SaveAssembly();
Compiler.RegisterDuplicateType(t);
return(t);
}
public static Type GenerateInterface(string iName, IPersistentMap attributes, Seqable extends, ISeq methods)
{
iName = iName.Replace('-', '_');
GenContext context;
if (Compiler.IsCompiling)
{
//string path = (string)Compiler.COMPILE_PATH.deref();
//if (path == null)
// throw new Exception("*compile-path* not set");
//context = new GenContext(iName, ".dll", path, CompilerMode.File);
context = (GenContext)Compiler.CompilerContextVar.deref();
}
else
{
// TODO: In CLR4, should create a collectible type?
context = GenContext.CreateWithExternalAssembly(iName + "_" + RT.nextID(), ".dll", false);
}
for (ISeq s = RT.seq(extends); s != null; s = s.next())
{
object f = s.first();
string name = f as String ?? ((Named)f).getName();
if (name.Contains("-"))
{
throw new ArgumentException("Interface methods must not contain '-'");
}
}
Type[] interfaceTypes = GenClass.CreateTypeArray(extends?.seq());
TypeBuilder proxyTB = context.ModuleBuilder.DefineType(
iName,
TypeAttributes.Interface | TypeAttributes.Public | TypeAttributes.Abstract,
null,
interfaceTypes);
// Should we associate source file info?
// See Java committ 8d6fdb, 2015.07.17, related to CLJ-1645
// TODO: part of check on debug info
SetCustomAttributes(proxyTB, attributes);
DefineMethods(proxyTB, methods);
Type t = proxyTB.CreateType();
//if ( Compiler.IsCompiling )
// context.SaveAssembly();
Compiler.RegisterDuplicateType(t);
return(t);
}
