// example based on the MSDN Arrays Sample (arrays.cs)
public static void GenArrays(AssemblyGen ag)
{
TypeGen DeclareArraysSample = ag.Class("DecalreArraysSample");
{
CodeGen g = DeclareArraysSample.Public.Static.Void("Main");
{
// Single-dimensional array
Operand numbers = g.Local(Exp.NewArray <int>(5));
// Multidimensional array
Operand names = g.Local(Exp.NewArray <string>(5, 4));
// Array-of-arrays (jagged array)
Operand scores = g.Local(Exp.NewArray <byte[]>(5));
// Create the jagged array
Operand i = g.Local();
g.For(i.Assign(0), i < scores.ArrayLength(), i.Increment());
{
g.Assign(scores[i], Exp.NewArray <byte>(i + 3));
}
g.End();
// Print length of each row
g.For(i.Assign(0), i < scores.ArrayLength(), i.Increment());
{
g.WriteLine("Length of row {0} is {1}", i, scores[i].ArrayLength());
}
g.End();
}
}
}
public static void GenIsNull(AssemblyGen ag)
{
TypeGen Test = ag.Class("Test");
{
CodeGen g = Test.Static.Method(typeof(void), "Main");
{
Operand a = g.Local(typeof(object), "notnull");
Operand b = g.Local(typeof(object), null);
g.If(a == null);
{
g.WriteLine("a is null");
}
g.Else();
{
g.WriteLine("a is not null");
}
g.End();
g.If(b == null);
{
g.WriteLine("b is null");
}
g.Else();
{
g.WriteLine("b is not null");
}
g.End();
}
}
}
public static void GenBreakContinue(AssemblyGen ag)
{
CodeGen g = ag.Class("Test").Public.Static.Method(typeof(void), "Main");
g.WriteLine("Break test:");
var i = g.Local();
g.For(i.Assign(1), i <= 100, i.Increment());
{
g.If(i == 5);
{
g.Break();
}
g.End();
g.WriteLine(i);
}
g.End();
g.WriteLine("Continue test:");
g.For(i.Assign(1), i <= 10, i.Increment());
{
g.If(i > 3 && i < 8);
{
g.Continue();
}
g.End();
g.WriteLine(i);
}
g.End();
}
public static void GenIsNull(AssemblyGen ag)
{
TypeGen Test = ag.Class("Test");
{
CodeGen g = Test.Static.Method(typeof(void), "Main");
{
Operand a = g.Local(typeof(object), "notnull");
Operand b = g.Local(typeof(object), null);
g.If(a == null);
{
g.WriteLine("a is null");
}
g.Else();
{
g.WriteLine("a is not null");
}
g.End();
g.If(b == null);
{
g.WriteLine("b is null");
}
g.Else();
{
g.WriteLine("b is not null");
}
g.End();
}
}
}
/// <summary>
/// Загрузка всех классов (наследование учитывается).
/// Допущение - классы-наследники должны располагаться после базовых классов
/// и иерархий наследования должно быть не более 1.
/// </summary>
/// <param name="root">Базовый символ</param>
/// <param name="ag">Сборка</param>
private void LoadClassesExtends(BaseSymbol root, AssemblyGen ag)
{
root.Symbols.ForEach(s =>
{
if (s.GrammarMember == GrammarMemberType.NonTerm)
{
NonTerm nonTerm = s as NonTerm;
switch (nonTerm.TypeNonTerm)
{
case NonTermType.Class:
Token termClassId;
NonTerm extends;
NonTermFactory.GetClassDecl(nonTerm, out termClassId, out extends);
string classId = termClassId.Value;
if (extends == null)
{
TypeGen cl = ag.Class(classId);
_classesTable.Add(cl.Name, cl);
}
else
{
Token baseClassId;
NonTermFactory.GetClassId(extends, out baseClassId);
TypeGen cl = _classesTable[baseClassId.Value];
cl = ag.Class(classId, cl);
_classesTable.Add(cl.Name, cl);
}
break;
}
}
});
}
private void LoadClassesMethods(BaseSymbol root, AssemblyGen ag)
{
root.Symbols.ForEach(s =>
{
if (s.GrammarMember == GrammarMemberType.NonTerm)
{
NonTerm nonTerm = s as NonTerm;
switch (nonTerm.TypeNonTerm)
{
case NonTermType.Class:
Token termClassId;
List <BaseSymbol> declarations;
NonTermFactory.GetClassDecl(nonTerm, out termClassId, out declarations);
string classId = termClassId.Value;
TypeGen cl = _classesTable[classId];
Dictionary <string, MethodGen> methodsDictionary = new Dictionary <string, MethodGen>();
foreach (var declaration in declarations)
{
if ((declaration as NonTerm).TypeNonTerm == NonTermType.Method)
{
KeyValuePair <string, MethodGen> method = GenerateMethodSignature(cl, declaration, ag);
methodsDictionary.Add(method.Key, method.Value);
}
}
_methodsTables.Add(cl.Name, methodsDictionary);
break;
}
}
});
}
public void AssemblyGenerationTest()
{
Options options = new Options();
options.Mode = Mode.SateliteAssembly;
options.InputFiles.Add("../../../Examples.Hello/po/fr.po");
options.BaseName = "Examples.Hello.Messages";
options.OutDir = "../../../Examples.Hello/bin/Debug";
if (Path.DirectorySeparatorChar == '\\')
{
options.CompilerName = "csc";
}
else
{
options.CompilerName = "mcs";
}
options.LibDir = "./";
options.Locale = new CultureInfo("fr-FR");
options.Verbose = true;
options.DebugMode = true;
AssemblyGen gen = new AssemblyGen(options);
try
{
gen.Run();
}
catch (Exception e)
{
Assert.Fail("Assebly generation faild. Check that CSharp compiler is in PATH.\n{0}", e.Message);
}
}
public static void ClassImpl(AssemblyGen ag, bool impl)
{
ITypeMapper m = ag.TypeMapper;
TypeGen Test = ag.Class("Test");
{
CodeGen g = Test.Public.Static.Method(typeof(void), "Main");
{
// test calling virtual member directly on a literal
// g.Local(Operand.FromObject(3).Invoke("GetHashCode"));
// test special case where the value type target doesn't implement the virtual function
var value = g.Local(Test);
g.Assign(value, ag.ExpressionFactory.New(Test));
g.WriteLine("Hash code of {0} is {1}", value, value.Invoke("GetHashCode"));
}
if (impl)
{
g = Test.Public.Override.Method(typeof(int), "GetHashCode");
{
g.Return(-1);
}
}
}
}
public static void GenBreakContinue(AssemblyGen ag)
{
CodeGen g = ag.Class("Test").Static.Void("Main");
g.WriteLine("Break test:");
Operand i = g.Local();
g.For(i.Assign(1), i <= 100, i.Increment());
{
g.If(i == 5);
{
g.Break();
}
g.End();
g.WriteLine(i);
}
g.End();
g.WriteLine("Continue test:");
g.For(i.Assign(1), i <= 10, i.Increment());
{
g.If(i > 3 && i < 8);
{
g.Continue();
}
g.End();
g.WriteLine(i);
}
g.End();
}
public static void Complie(string codeFile)
{
ParserLanguageSetting.GetInstance(@"C:\Mahesh\Projects\Complier\IDE\KeyMapping.xml");
Scanner scanner = null;
string fileName = codeFile;
Parser parser = null;
using (TextReader input = File.OpenText(fileName))
{
scanner = new Scanner(input);
}
PreProcessor pp = new PreProcessor(@"C:\Mahesh\Projects\Complier\CompilerWriting\PreProcessor.xml");
pp.RunPreProcessor(scanner.Tokens);
try
{
parser = new Parser(scanner);
parser.StartParser();
}
catch (ParserException ex)
{
throw new CompileException(ex.LineNumber, codeFile, ex.Message);
}
catch (Exception ex)
{
throw new CompileException(parser.GetLastExceptionLine, codeFile, ex.Message);
}
AssemblyGen assmGen = new AssemblyGen(parser.Result, Path.GetFileNameWithoutExtension(fileName) + ".exe", @"C:\Mahesh\Projects\Complier\CompilerWriting\bin\Debug\");
}
public void GenerateAssembly(string path)
{
_assemblyGen = new AssemblyGen("output", new CompilerOptions {
OutputPath = path, SymbolInfo = true, TargetFrameworkName = "4.5", TargetFrameworkDisplayName = "4.5"
});
using (_assemblyGen.Namespace("Language"))
{
_currentProgram = _assemblyGen.Public.Class("Program");
{
Visit(_program);
}
var type = _currentProgram.GetCompletedType(true);
_currentProgram = _assemblyGen.Public.Class("Runner");
{
CodeGen method = _currentProgram.Public.Static.Method(typeof(void), "Main");
{
Operand obj = method.Local(_currentProgram.ExpressionFactory.New(type));
method.Invoke(obj, "main");
method.WriteLine("Press any key...");
method.Invoke(typeof(Console), "ReadKey");
}
}
}
_assemblyGen.Save();
}
public System.Type Compile(AssemblyGen assembly, ITypeContext context)
{
System.Type baseType;
if (BaseType != null)
{
baseType = BaseType.ResolveType(context);
}
else
{
baseType = typeof(FSObject);
}
var generator = assembly.DefineType(Name, baseType, System.Reflection.TypeAttributes.Public, context);
System.Type[] types = null;
if (Implements != null)
{
types = Implements.Map(impl => impl.ResolveType(context)).AddLast(typeof(IFSObject));
}
else
{
types = new System.Type[1] {
typeof(IFSObject)
};
}
generator.SetInterfaces(types);
generator.Source = Source;
generator.SetCustomAttribute(typeof(Runtime.RegisterAttribute), Utils.ReflectionHelpers.Register_Attr_Ctor, new object[] { Name });
foreach (var member in Members)
{
member.CreateMember(generator);
}
return(generator.CreateType());
}
private GenContext(string sourceName, string assyName, string extension, string directory, bool createDynInitHelper)
{
// TODO: Make this settable from a *debug* flag
#if DEBUG
_isDebuggable = true;
#else
_isDebuggable = false;
#endif
if (directory != null)
{
if (directory.Length > 0) //&& directory != ".")
{
assyName = assyName.Replace("/", ".");
}
}
AssemblyName aname = new AssemblyName(assyName);
_assyGen = new AssemblyGen(aname, directory, extension, _isDebuggable);
if (createDynInitHelper)
{
_dynInitHelper = new DynInitHelper(_assyGen, GenerateName());
}
if (_isDebuggable)
{
_docWriter = ModuleBuilder.DefineDocument(sourceName, ClojureContext.Default.LanguageGuid, ClojureContext.Default.VendorGuid, Guid.Empty);
}
_docInfo = Expression.SymbolDocument(sourceName);
}
public Assembly Compile(string name)
{
AssemblyGen assembly = new AssemblyGen(name, "1.0");
Compile(assembly);
return(assembly);
}
private GenContext(string directory, AssemblyName aname, string extension, bool createDynInitHelper, string sourceName)
{
// TODO: Make this settable from a *debug* flag
#if DEBUG
_isDebuggable = true;
#else
_isDebuggable = false;
#endif
_assyGen = new AssemblyGen(aname, directory, extension, _isDebuggable);
if (createDynInitHelper)
{
_dynInitHelper = new DynInitHelper(_assyGen, GenerateName());
}
_docInfo = Expression.SymbolDocument(sourceName);
_moduleBuilder = _assyGen.ModuleBuilder;
Path = ComputeAssemblyPath(directory, aname.Name, extension);
#if NET461
if (_isDebuggable)
{
_docWriter = ModuleBuilder.DefineDocument(sourceName, ClojureContext.Default.LanguageGuid, ClojureContext.Default.VendorGuid, Guid.Empty);
}
#endif
}
// example based on the MSDN Arrays Sample (arrays.cs)
public static void GenArrays(AssemblyGen ag)
{
var st = ag.StaticFactory;
var exp = ag.ExpressionFactory;
TypeGen DeclareArraysSample = ag.Class("DecalreArraysSample");
{
CodeGen g = DeclareArraysSample.Public.Static.Method(typeof(void), "Main");
{
// Single-dimensional array
var numbers = g.Local(exp.NewArray(typeof(int), 5));
// Multidimensional array
var names = g.Local(exp.NewArray(typeof(string), 5, 4));
// Array-of-arrays (jagged array)
var scores = g.Local(exp.NewArray(typeof(byte[]), 5));
// Create the jagged array
var i = g.Local();
g.For(i.Assign(0), i < scores.ArrayLength(), i.Increment());
{
g.Assign(scores[i], exp.NewArray(typeof(byte), i + 3));
}
g.End();
// Print length of each row from 3
g.For(i.Assign(2), i < scores.ArrayLength(), i.Increment());
{
g.WriteLine("Length of row {0} is {1}", i, scores[i].ArrayLength());
}
g.End();
}
}
}
public DynInitHelper(AssemblyGen ag, string typeName)
{
_assemblyGen = ag;
_typeName = typeName;
//_typeBuilder = ag.DefinePublicType(typeName, typeof(object), true);
//_typeGen = new TypeGen(ag, _typeBuilder);
}
public static void GenTypeAttributeTest(AssemblyGen ag)
{
TypeGen MyAttribute = ag.Public.Class("MyAttribute", typeof(Attribute))
.BeginAttribute <AttributeUsageAttribute>(AttributeTargets.Class).Set("AllowMultiple", true).End();
FieldGen testField = MyAttribute.Field <object>("testField")
.Attribute <DescriptionAttribute>("Test field");
PropertyGen testProperty = MyAttribute.Public.SimpleProperty(testField, "TestProperty")
.Attribute <ObsoleteAttribute>("Do not use this");
testProperty.Getter().Attribute <DescriptionAttribute>("Getter method");
testProperty.Getter().ReturnParameter.Attribute <DescriptionAttribute>("Getter return value");
testProperty.Setter().Attribute <DescriptionAttribute>("Setter method");
TypeGen tg = ag.Class("Test")
.BeginAttribute(MyAttribute).Set("TestProperty", 3).End()
.Attribute <DescriptionAttribute>("Test class");
tg.Static.Void("Main")
.BeginAttribute(MyAttribute).Set("TestProperty", 3).End();
TypeGen SimpleDelegate = ag.DelegateVoid("SimpleDelegate")
.Attribute <DescriptionAttribute>("Test delegate");
EventGen TestEvent = tg.Static.Event(SimpleDelegate, "TestEvent")
.Attribute <DescriptionAttribute>("Test event");
TestEvent.AddMethod().Attribute <DescriptionAttribute>("Event add method");
TestEvent.RemoveMethod().Attribute <DescriptionAttribute>("Event remove method");
}
// example based on the MSDN Arrays Sample (arrays.cs)
public static void GenArrays(AssemblyGen ag)
{
var st = ag.StaticFactory;
var exp = ag.ExpressionFactory;
TypeGen DeclareArraysSample = ag.Class("DecalreArraysSample");
{
CodeGen g = DeclareArraysSample.Public.Static.Method(typeof(void), "Main");
{
// Single-dimensional array
var numbers = g.Local(exp.NewArray(typeof(int), 5));
// Multidimensional array
var names = g.Local(exp.NewArray(typeof(string), 5, 4));
// Array-of-arrays (jagged array)
var scores = g.Local(exp.NewArray(typeof(byte[]), 5));
// Create the jagged array
var i = g.Local();
g.For(i.Assign(0), i < scores.ArrayLength(), i.Increment());
{
g.Assign(scores[i], exp.NewArray(typeof(byte), i + 3));
}
g.End();
// Print length of each row from 3
g.For(i.Assign(2), i < scores.ArrayLength(), i.Increment());
{
g.WriteLine("Length of row {0} is {1}", i, scores[i].ArrayLength());
}
g.End();
}
}
}
public TypeGenerator(TypeBuilder builder, AssemblyGen assemblyGen)
{
this.assemblyGen = assemblyGen;
Name = builder.Name;
_builder = builder;
BaseType = _builder.BaseType;
Context = new TypeContext(assemblyGen.Context);
}
public TypeGenerator(TypeBuilder builder, AssemblyGen assemblyGen, ITypeContext context)
{
this.assemblyGen = assemblyGen;
Name = builder.Name;
_builder = builder;
BaseType = _builder.BaseType;
Context = context;
}
private static void CodeGen()
{
//Integer x = 0;
var code = ScriptParser.ParseProgram("source.fls");
var assembly = new AssemblyGen("FluidTest", "1.0");
code.Compile(assembly);
assembly.Save("FluidTest.dll");
}
public static object MakeRecordTypeDescriptorTyped(object name, object parent, object uid, object issealed, object isopaque, object fields, object fieldtypes)
{
AssemblyGen ag = ScriptDomainManager.Options.DebugMode ?
ScriptDomainManager.CurrentManager.Snippets.DebugAssembly :
ScriptDomainManager.CurrentManager.Snippets.Assembly;
var rtd = GenerateRecordTypeDescriptor(ag, name, parent, uid, issealed, isopaque, fields, fieldtypes);
rtd.Finish();
return rtd;
}
// example based on the MSDN Hello World Sample (Hello1.cs)
public static void GenHello1(AssemblyGen ag)
{
TypeGen Hello1 = ag.Public.Class("Hello1");
{
CodeGen g = Hello1.Public.Static.Method(typeof(void), "Main");
{
g.WriteLine("Hello, World!");
}
}
}
// example based on the MSDN Hello World Sample (Hello1.cs)
public static void GenHello1(AssemblyGen ag)
{
TypeGen Hello1 = ag.Public.Class("Hello1");
{
CodeGen g = Hello1.Public.Static.Method(typeof(void), "Main");
{
g.WriteLine("Hello, World!");
}
}
}
public static void GenOriginalTest(AssemblyGen ag)
{
TypeGen Test = ag.Class("Test");
{
CodeGen g = Test.Static.Method(typeof(void), "Main");
{
Operand value = g.Local(typeof(int), 3);
g.WriteLine("Hash code of {0} is {1}", value, value.Invoke("GetHashCode"));
}
}
}
private static Type MakeNewCustomDelegate(Type[] types)
{
var returnType = types[types.Length - 1];
var parameters = types.RemoveLast();
var builder = AssemblyGen.DefineDelegateType("Delegate" + types.Length);
builder.DefineConstructor(_ctorAttributes, CallingConventions.Standard, _delegateCtorSignature).SetImplementationFlags(_implAttributes);
builder.DefineMethod("Invoke", _invokeAttributes, returnType, parameters).SetImplementationFlags(_implAttributes);
return(builder.CreateType());
}
public static void GenOriginalTest(AssemblyGen ag)
{
TypeGen Test = ag.Class("Test");
{
CodeGen g = Test.Static.Method(typeof(void), "Main");
{
Operand value = g.Local(typeof(int), 3);
g.WriteLine("Hash code of {0} is {1}", value, value.Invoke("GetHashCode"));
}
}
}
public void GenerateCode()
{
_asm = new AssemblyGen(_moduleName);
//LoadClasses(_root, _asm);
LoadClassesExtends(_root, _asm);
LoadClassesMethods(_root, _asm);
_compilerLogger.PrintClassesMethods(_methodsTables);
Generate(_root);
_asm.Save();
}
// example based on the MSDN Operator Overloading Sample (complex.cs)
public static void GenComplex(AssemblyGen ag)
{
var st = ag.StaticFactory;
var exp = ag.ExpressionFactory;
ITypeMapper m = ag.TypeMapper;
TypeGen Complex = ag.Public.Struct("Complex");
{
FieldGen real = Complex.Public.Field(typeof(int), "real");
FieldGen imaginary = Complex.Public.Field(typeof(int), "imaginary");
CodeGen g = Complex.Public.Constructor()
.Parameter(typeof(int), "real")
.Parameter(typeof(int), "imaginary")
;
{
g.Assign(real, g.Arg("real"));
g.Assign(imaginary, g.Arg("imaginary"));
}
// Declare which operator to overload (+), the types
// that can be added (two Complex objects), and the
// return type (Complex):
g = Complex.Operator(Operator.Add, Complex, Complex, "c1", Complex, "c2");
{
var c1 = g.Arg("c1");
var c2 = g.Arg("c2");
g.Return(exp.New(Complex, c1.Field("real") + c2.Field("real"), c1.Field("imaginary") + c2.Field("imaginary")));
}
// Override the ToString method to display an complex number in the suitable format:
g = Complex.Public.Override.Method(typeof(string), "ToString");
{
g.Return(st.Invoke(typeof(string), "Format", "{0} + {1}i", real, imaginary));
}
g = Complex.Public.Static.Method(typeof(void), "Main");
{
var num1 = g.Local(exp.New(Complex, 2, 3));
var num2 = g.Local(exp.New(Complex, 3, 4));
// Add two Complex objects (num1 and num2) through the
// overloaded plus operator:
var sum = g.Local(num1 + num2);
// Print the numbers and the sum using the overriden ToString method:
g.WriteLine("First complex number: {0}", num1);
g.WriteLine("Second complex number: {0}", num2);
g.WriteLine("The sum of the two numbers: {0}", sum);
}
}
}
public void Compile()
{
string fullPath = Path.GetFullPath(outputAssembly);
string outDir = Path.GetDirectoryName(fullPath);
string fileName = Path.GetFileName(outputAssembly);
PythonCompilerSink sink = new PythonCompilerSink(compilerSink);
assemblyGen = new AssemblyGen(
Path.GetFileNameWithoutExtension(outputAssembly),
outDir, fileName, includeDebugInformation, executable, machine
);
bool entryPointSet = false;
// set default main file
if (mainFile == null && sourceFiles.Count == 1 && targetKind != PEFileKinds.Dll)
{
mainFile = sourceFiles[0];
}
foreach (string sourceFile in sourceFiles)
{
bool createMainMethod = sourceFile == mainFile;
CompilePythonModule(sourceFile, sink, createMainMethod);
if (sink.Errors > 0)
{
return;
}
if (createMainMethod)
{
entryPointSet = true;
}
}
if (resourceFiles != null)
{
foreach (ResourceFile rf in resourceFiles)
{
assemblyGen.AddResourceFile(rf.Name, rf.File, rf.PublicResource ? ResourceAttributes.Public : ResourceAttributes.Private);
}
}
if (targetKind != PEFileKinds.Dll && !entryPointSet)
{
sink.AddError("", string.Format("Need an entry point for target kind {0}", targetKind), -1, Severity.Error);
}
assemblyGen.Dump();
}
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);
}
private static Type MakeNewCustomDelegate(Type[] types)
{
#if FEATURE_REFEMIT
Type returnType = types[types.Length - 1];
Type[] parameters = types.RemoveLast();
TypeBuilder builder = AssemblyGen.DefineDelegateType("Delegate" + types.Length);
builder.DefineConstructor(CtorAttributes, CallingConventions.Standard, _DelegateCtorSignature).SetImplementationFlags(ImplAttributes);
builder.DefineMethod("Invoke", InvokeAttributes, returnType, parameters).SetImplementationFlags(ImplAttributes);
return(builder.CreateType());
#else
throw new NotSupportedException("Method signature not supported on this platform");
#endif
}
// example based on the MSDN Structs Sample (struct2.cs)
public static void GenStruct2(AssemblyGen ag)
{
var st = ag.StaticFactory;
var exp = ag.ExpressionFactory;
TypeGen TheClass = ag.Class("TheClass");
{
TheClass.Public.Field(typeof(int), "x");
}
TypeGen TheStruct = ag.Struct("TheStruct");
{
TheStruct.Public.Field(typeof(int), "x");
}
TypeGen TestClass = ag.Class("TestClass");
{
CodeGen g = TestClass.Public.Static.Method(typeof(void), "structtaker").Parameter(TheStruct, "s");
{
ITypeMapper typeMapper = ag.TypeMapper;
g.Assign(g.Arg("s").Field("x"), 5);
}
g = TestClass.Public.Static.Method(typeof(void), "classtaker").Parameter(TheClass, "c");
{
ITypeMapper typeMapper = ag.TypeMapper;
g.Assign(g.Arg("c").Field("x"), 5);
}
g = TestClass.Public.Static.Method(typeof(void), "Main");
{
var a = g.Local(TheStruct);
g.InitObj(a);
ITypeMapper typeMapper4 = ag.TypeMapper;
var b = g.Local(exp.New(TheClass));
ITypeMapper typeMapper = ag.TypeMapper;
g.Assign(a.Field("x"), 1);
ITypeMapper typeMapper2 = ag.TypeMapper;
g.Assign(b.Field("x"), 1);
g.Invoke(TestClass, "structtaker", a);
g.Invoke(TestClass, "classtaker", b);
ITypeMapper typeMapper3 = ag.TypeMapper;
g.WriteLine("a.x = {0}", a.Field("x"));
ITypeMapper typeMapper1 = ag.TypeMapper;
g.WriteLine("b.x = {0}", b.Field("x"));
}
}
}
// example based on the MSDN Delegates Sample (compose.cs)
public static void GenCompose(AssemblyGen ag)
{
var st = ag.StaticFactory;
var exp = ag.ExpressionFactory;
TypeGen myDelegate = ag.Delegate(typeof(void), "MyDelegate").Parameter(typeof(string), "string");
TypeGen myClass = ag.Class("MyClass");
{
CodeGen g = myClass.Public.Static.Method(typeof(void), "Hello").Parameter(typeof(string), "s");
{
g.WriteLine(" Hello, {0}!", g.Arg("s"));
}
g = myClass.Public.Static.Method(typeof(void), "Goodbye").Parameter(typeof(string), "s");
{
g.WriteLine(" Goodbye, {0}!", g.Arg("s"));
}
g = myClass.Public.Static.Method(typeof(void), "Main");
{
ContextualOperand a = g.Local(), b = g.Local(), c = g.Local(), d = g.Local();
// Create the delegate object a that references
// the method Hello:
ITypeMapper typeMapper = ag.TypeMapper;
g.Assign(a, exp.NewDelegate(myDelegate, myClass, "Hello"));
// Create the delegate object b that references
// the method Goodbye:
ITypeMapper typeMapper1 = ag.TypeMapper;
g.Assign(b, exp.NewDelegate(myDelegate, myClass, "Goodbye"));
// The two delegates, a and b, are composed to form c,
// which calls both methods in order:
g.Assign(c, a + b);
// Remove a from the composed delegate, leaving d,
// which calls only the method Goodbye:
g.Assign(d, c - a);
g.WriteLine("Invoking delegate a:");
g.InvokeDelegate(a, "A");
g.WriteLine("Invoking delegate b:");
g.InvokeDelegate(b, "B");
g.WriteLine("Invoking delegate c:");
g.InvokeDelegate(c, "C");
g.WriteLine("Invoking delegate d:");
g.InvokeDelegate(d, "D");
}
}
}
// example based on the MSDN Operator Overloading Sample (complex.cs)
public static void GenComplex(AssemblyGen ag)
{
TypeGen Complex = ag.Public.Struct("Complex");
{
FieldGen real = Complex.Public.Field(typeof(int), "real");
FieldGen imaginary = Complex.Public.Field(typeof(int), "imaginary");
CodeGen g = Complex.Public.Constructor()
.Parameter(typeof(int), "real")
.Parameter(typeof(int), "imaginary")
;
{
g.Assign(real, g.Arg("real"));
g.Assign(imaginary, g.Arg("imaginary"));
}
// Declare which operator to overload (+), the types
// that can be added (two Complex objects), and the
// return type (Complex):
g = Complex.Operator(Operator.Add, Complex, Complex, "c1", Complex, "c2");
{
Operand c1 = g.Arg("c1"), c2 = g.Arg("c2");
g.Return(Exp.New(Complex, c1.Field("real") + c2.Field("real"), c1.Field("imaginary") + c2.Field("imaginary")));
}
// Override the ToString method to display an complex number in the suitable format:
g = Complex.Public.Override.Method(typeof(string), "ToString");
{
g.Return(Static.Invoke(typeof(string), "Format", "{0} + {1}i", real, imaginary));
}
g = Complex.Public.Static.Method(typeof(void), "Main");
{
Operand num1 = g.Local(Exp.New(Complex, 2, 3));
Operand num2 = g.Local(Exp.New(Complex, 3, 4));
// Add two Complex objects (num1 and num2) through the
// overloaded plus operator:
Operand sum = g.Local(num1 + num2);
// Print the numbers and the sum using the overriden ToString method:
g.WriteLine("First complex number: {0}", num1);
g.WriteLine("Second complex number: {0}", num2);
g.WriteLine("The sum of the two numbers: {0}", sum);
}
}
}
public static void GenCmdLine2(AssemblyGen ag)
{
TypeGen CommandLine2 = ag.Public.Class("CommandLine2");
{
CodeGen g = CommandLine2.Public.Static.Method(typeof(void), "Main").Parameter(typeof(string[]), "args");
{
Operand args = g.Arg("args");
g.WriteLine("Number of command line parameters = {0}",
args.Property("Length"));
Operand s = g.ForEach(typeof(string), args);
{
g.WriteLine(s);
}
g.End();
}
}
}
// example based on the MSDN Versioning Sample (versioning.cs)
public static void GenVersioning(AssemblyGen ag)
{
TypeGen MyBase = ag.Public.Class("MyBase");
{
MyBase.Public.Virtual.Method(typeof(string), "Meth1").GetCode()
.Return("MyBase-Meth1");
MyBase.Public.Virtual.Method(typeof(string), "Meth2").GetCode()
.Return("MyBase-Meth2");
MyBase.Public.Virtual.Method(typeof(string), "Meth3").GetCode()
.Return("MyBase-Meth3");
}
TypeGen MyDerived = ag.Class("MyDerived", MyBase);
{
// Overrides the virtual method Meth1 using the override keyword:
MyDerived.Public.Override.Method(typeof(string), "Meth1").GetCode()
.Return("MyDerived-Meth1");
// Explicitly hide the virtual method Meth2 using the new
// keyword:
// remark: new is not supported/required in RunSharp
MyDerived.Public.Method(typeof(string), "Meth2").GetCode()
.Return("MyDerived-Meth2");
// Because no keyword is specified in the following declaration
// a warning will be issued to alert the programmer that
// the method hides the inherited member MyBase.Meth3():
// remark: this warning is not supported in RunSharp
MyDerived.Public.Method(typeof(string), "Meth3").GetCode()
.Return("MyDerived-Meth3");
CodeGen g = MyDerived.Public.Static.Method(typeof(void), "Main");
{
Operand mD = g.Local(Exp.New(MyDerived));
Operand mB = g.Local(mD.Cast(MyBase));
g.WriteLine(mB.Invoke("Meth1"));
g.WriteLine(mB.Invoke("Meth2"));
g.WriteLine(mB.Invoke("Meth3"));
}
}
}
public static void GenHello3(AssemblyGen ag)
{
TypeGen Hello3 = ag.Public.Class("Hello3");
{
CodeGen g = Hello3.Public.Static.Method(typeof(void), "Main").Parameter(typeof(string[]), "args");
{
Operand args = g.Arg("args");
g.WriteLine("Hello, World!");
g.WriteLine("You entered the following {0} command line arguments:",
args.ArrayLength());
Operand i = g.Local();
g.For(i.Assign(0), i < args.ArrayLength(), i.Increment());
{
g.WriteLine("{0}", args[i]);
}
g.End();
}
}
}
public static void GenStaticCtor(AssemblyGen ag)
{
TypeGen Test = ag.Class("Test");
{
FieldGen a = Test.Static.Field(typeof(int), "a");
CodeGen g = Test.StaticConstructor();
{
g.WriteLine("Hello from .cctor!");
g.Assign(a, 3);
}
g = Test.Static.Method(typeof(void), "Main");
{
g.Invoke(typeof(System.Diagnostics.Debug), "Assert", a == 3);
g.WriteLine(".cctor works now...");
}
}
}
public static void GenExtendedTest(AssemblyGen ag)
{
TypeGen Test = ag.Struct("Test");
{
CodeGen g = Test.Static.Method(typeof(void), "Main");
{
// test calling virtual member directly on a literal
// g.Local(Operand.FromObject(3).Invoke("GetHashCode"));
// test special case where the value type target doesn't implement the virtual function
Operand value = g.Local(Test);
g.InitObj(value);
g.WriteLine("Hash code of {0} is {1}", value, value.Invoke("GetHashCode"));
}
g = Test.Public.Override.Method(typeof(int), "GetHashCode");
{
g.Return(-1);
}
}
}
// example based on the MSDN Properties Sample (person.cs)
public static void GenPerson(AssemblyGen ag)
{
TypeGen Person = ag.Class("Person");
{
FieldGen myName = Person.Private.Field(typeof(string), "myName", "N/A");
FieldGen myAge = Person.Private.Field(typeof(int), "myAge", 0);
// Declare a Name property of type string:
PropertyGen Name = Person.Public.SimpleProperty(myName, "Name");
// Declare an Age property of type int:
PropertyGen Age = Person.Public.SimpleProperty(myAge, "Age");
CodeGen g = Person.Public.Override.Method(typeof(string), "ToString");
{
g.Return("Name = " + Name + ", Age = " + Age);
}
g = Person.Public.Static.Method(typeof(void), "Main");
{
g.WriteLine("Simple Properties");
// Create a new Person object:
Operand person = g.Local(Exp.New(Person));
// Print out the name and the age associated with the person:
g.WriteLine("Person details - {0}", person);
// Set some values on the person object:
g.Assign(person.Property("Name"), "Joe");
g.Assign(person.Property("Age"), 99);
g.WriteLine("Person details - {0}", person);
// Increment the Age property:
g.AssignAdd(person.Property("Age"), 1);
g.WriteLine("Person details - {0}", person);
}
}
}
// example based on the MSDN Structs Sample (struct2.cs)
public static void GenStruct2(AssemblyGen ag)
{
TypeGen TheClass = ag.Class("TheClass");
{
TheClass.Public.Field(typeof(int), "x");
}
TypeGen TheStruct = ag.Struct("TheStruct");
{
TheStruct.Public.Field(typeof(int), "x");
}
TypeGen TestClass = ag.Class("TestClass");
{
CodeGen g = TestClass.Public.Static.Method(typeof(void), "structtaker").Parameter(TheStruct, "s");
{
g.Assign(g.Arg("s").Field("x"), 5);
}
g = TestClass.Public.Static.Method(typeof(void), "classtaker").Parameter(TheClass, "c");
{
g.Assign(g.Arg("c").Field("x"), 5);
}
g = TestClass.Public.Static.Method(typeof(void), "Main");
{
Operand a = g.Local(TheStruct);
g.InitObj(a);
Operand b = g.Local(Exp.New(TheClass));
g.Assign(a.Field("x"), 1);
g.Assign(b.Field("x"), 1);
g.Invoke(TestClass, "structtaker", a);
g.Invoke(TestClass, "classtaker", b);
g.WriteLine("a.x = {0}", a.Field("x"));
g.WriteLine("b.x = {0}", b.Field("x"));
}
}
}
// example based on the MSDN Structs Sample (struct1.cs)
public static void GenStruct1(AssemblyGen ag)
{
CodeGen g;
TypeGen SimpleStruct = ag.Struct("SimpleStruct");
{
FieldGen xval = SimpleStruct.Field(typeof(int), "xval");
PropertyGen X = SimpleStruct.Public.Property(typeof(int), "X");
{
X.Getter().GetCode().Return(xval);
g = X.Setter();
{
g.If(g.PropertyValue() < 100);
{
g.Assign(xval, g.PropertyValue());
}
g.End();
}
}
g = SimpleStruct.Public.Method(typeof(void), "DisplayX");
{
g.WriteLine("The stored value is: {0}", xval);
}
}
TypeGen TestClass = ag.Class("TestClass");
{
g = TestClass.Public.Static.Method(typeof(void), "Main");
{
Operand ss = g.Local(SimpleStruct);
g.InitObj(ss);
g.Assign(ss.Property("X"), 5);
g.Invoke(ss, "DisplayX");
}
}
}
public static void GenTypeAttributeTest(AssemblyGen ag)
{
TypeGen MyAttribute = ag.Public.Class("MyAttribute", typeof(Attribute))
.BeginAttribute(typeof(AttributeUsageAttribute), AttributeTargets.Class).Set("AllowMultiple", true).End()
;
FieldGen testField = MyAttribute.Field(typeof(object), "testField")
.Attribute(typeof(DescriptionAttribute), "Test field")
;
PropertyGen testProperty = MyAttribute.Public.SimpleProperty(testField, "TestProperty")
.Attribute(typeof(ObsoleteAttribute), "Do not use this")
;
testProperty.Getter().Attribute(typeof(DescriptionAttribute), "Getter method");
testProperty.Getter().ReturnParameter.Attribute(typeof(DescriptionAttribute), "Getter return value");
testProperty.Setter().Attribute(typeof(DescriptionAttribute), "Setter method");
TypeGen tg = ag.Class("Test")
.BeginAttribute(MyAttribute).Set("TestProperty", 3).End()
.Attribute(typeof(System.ComponentModel.DescriptionAttribute), "Test class")
;
tg.Public.Static.Method(typeof(void), "Main")
.BeginAttribute(MyAttribute).Set("TestProperty", 3).End()
;
TypeGen SimpleDelegate = ag.Delegate(typeof(void), "SimpleDelegate")
.Attribute(typeof(DescriptionAttribute), "Test delegate")
;
EventGen TestEvent = tg.Static.Event(SimpleDelegate, "TestEvent")
.Attribute(typeof(DescriptionAttribute), "Test event")
;
TestEvent.AddMethod().Attribute(typeof(DescriptionAttribute), "Event add method");
TestEvent.RemoveMethod().Attribute(typeof(DescriptionAttribute), "Event remove method");
}
// example based on the MSDN Indexed Properties Sample (indexedproperty.cs)
public static void GenIndexedProperty(AssemblyGen ag)
{
CodeGen g;
TypeGen Document = ag.Public.Class("Document");
{
FieldGen TextArray = Document.Private.Field(typeof(char[]), "TextArray"); // The text of the document.
// Type allowing the document to be viewed like an array of words:
TypeGen WordCollection = Document.Public.Class("WordCollection");
{
FieldGen document = WordCollection.ReadOnly.Field(Document, "document"); // The containing document
Operand document_TextArray = document.Field("TextArray"); // example of a saved expression - it is always re-evaluated when used
g = WordCollection.Internal.Constructor().Parameter(Document, "d");
{
g.Assign(document, g.Arg("d"));
}
// Helper function -- search character array "text", starting at
// character "begin", for word number "wordCount." Returns false
// if there are less than wordCount words.Sets "start" and
// length" to the position and length of the word within text:
g = WordCollection.Private.Method(typeof(bool), "GetWord")
.Parameter(typeof(char[]), "text")
.Parameter(typeof(int), "begin")
.Parameter(typeof(int), "wordCount")
.Out.Parameter(typeof(int), "start")
.Out.Parameter(typeof(int), "length")
;
{
Operand text = g.Arg("text"), begin = g.Arg("begin"), wordCount = g.Arg("wordCount"),
start = g.Arg("start"), length = g.Arg("length");
Operand end = g.Local(text.ArrayLength());
Operand count = g.Local(0);
Operand inWord = g.Local(-1);
g.Assign(start, length.Assign(0));
Operand i = g.Local();
g.For(i.Assign(begin), i <= end, i.Increment());
{
Operand isLetter = g.Local(i < end && Static.Invoke(typeof(char), "IsLetterOrDigit", text[i]));
g.If(inWord >= 0);
{
g.If(!isLetter);
{
g.If(count.PostIncrement() == wordCount);
{
g.Assign(start, inWord);
g.Assign(length, i - inWord);
g.Return(true);
}
g.End();
g.Assign(inWord, -1);
}
g.End();
}
g.Else();
{
g.If(isLetter);
{
g.Assign(inWord, i);
}
g.End();
}
g.End();
}
g.End();
g.Return(false);
}
// Indexer to get and set words of the containing document:
PropertyGen Item = WordCollection.Public.Indexer(typeof(string)).Index(typeof(int), "index");
{
g = Item.Getter();
{
Operand index = g.Arg("index");
Operand start = g.Local(0), length = g.Local(0);
g.If(g.This().Invoke("GetWord", document_TextArray, 0, index, start.Ref(), length.Ref()));
{
g.Return(Exp.New(typeof(string), document_TextArray, start, length));
}
g.Else();
{
g.Throw(Exp.New(typeof(IndexOutOfRangeException)));
}
g.End();
}
g = Item.Setter();
{
Operand index = g.Arg("index");
Operand value = g.PropertyValue();
Operand start = g.Local(0), length = g.Local(0);
g.If(g.This().Invoke("GetWord", document_TextArray, 0, index, start.Ref(), length.Ref()));
{
// Replace the word at start/length with the
// string "value":
g.If(length == value.Property("Length"));
{
g.Invoke(typeof(Array), "Copy", value.Invoke("ToCharArray"), 0,
document_TextArray, start, length);
}
g.Else();
{
Operand newText = g.Local(Exp.NewArray(typeof(char),
document_TextArray.ArrayLength() + value.Property("Length") - length));
g.Invoke(typeof(Array), "Copy", document_TextArray, 0, newText,
0, start);
g.Invoke(typeof(Array), "Copy", value.Invoke("ToCharArray"), 0, newText,
start, value.Property("Length"));
g.Invoke(typeof(Array), "Copy", document_TextArray, start + length,
newText, start + value.Property("Length"),
document_TextArray.ArrayLength() - start
- length);
g.Assign(document_TextArray, newText);
}
g.End();
}
g.Else();
{
g.Throw(Exp.New(typeof(IndexOutOfRangeException)));
}
g.End();
}
}
// Get the count of words in the containing document:
g = WordCollection.Public.Property(typeof(int), "Count").Getter();
{
Operand count = g.Local(0), start = g.Local(0), length = g.Local(0);
g.While(g.This().Invoke("GetWord", document_TextArray, start + length, 0,
start.Ref(), length.Ref()));
{
g.Increment(count);
}
g.End();
g.Return(count);
}
}
// Type allowing the document to be viewed like an "array"
// of characters:
TypeGen CharacterCollection = Document.Public.Class("CharacterCollection");
{
FieldGen document = CharacterCollection.ReadOnly.Field(Document, "document"); // The containing document
Operand document_TextArray = document.Field("TextArray");
g = CharacterCollection.Internal.Constructor().Parameter(Document, "d");
{
g.Assign(document, g.Arg("d"));
}
// Indexer to get and set characters in the containing document:
PropertyGen Item = CharacterCollection.Public.Indexer(typeof(char)).Index(typeof(int), "index");
{
g = Item.Getter();
{
g.Return(document_TextArray[g.Arg("index")]);
}
g = Item.Setter();
{
g.Assign(document_TextArray[g.Arg("index")], g.PropertyValue());
}
}
// Get the count of characters in the containing document:
g = CharacterCollection.Public.Property(typeof(int), "Count").Getter();
{
g.Return(document_TextArray.ArrayLength());
}
}
// Because the types of the fields have indexers,
// these fields appear as "indexed properties":
FieldGen Words = Document.Public.ReadOnly.Field(WordCollection, "Words");
FieldGen Characters = Document.Public.ReadOnly.Field(CharacterCollection, "Characters");
g = Document.Public.Constructor().Parameter(typeof(string), "initialText");
{
g.Assign(TextArray, g.Arg("initialText").Invoke("ToCharArray"));
g.Assign(Words, Exp.New(WordCollection, g.This()));
g.Assign(Characters, Exp.New(CharacterCollection, g.This()));
}
g = Document.Public.Property(typeof(string), "Text").Getter();
{
g.Return(Exp.New(typeof(string), TextArray));
}
}
TypeGen Test = ag.Class("Test");
{
g = Test.Public.Static.Method(typeof(void), "Main");
{
Operand d = g.Local(Exp.New(Document, "peter piper picked a peck of pickled peppers. How many pickled peppers did peter piper pick?"));
// Change word "peter" to "penelope":
Operand i = g.Local();
g.For(i.Assign(0), i < d.Field("Words").Property("Count"), i.Increment());
{
g.If(d.Field("Words")[i] == "peter");
{
g.Assign(d.Field("Words")[i], "penelope");
}
g.End();
}
g.End();
// Change character "p" to "P"
g.For(i.Assign(0), i < d.Field("Characters").Property("Count"), i.Increment());
{
g.If(d.Field("Characters")[i] == 'p');
{
g.Assign(d.Field("Characters")[i], 'P');
}
g.End();
}
g.End();
g.WriteLine(d.Property("Text"));
}
}
}
internal static void ClearTypesFrom(AssemblyGen ag)
{
var types = new List<String>();
foreach (var kvp in nongenerative)
{
if (kvp.Value.ag == ag)
{
types.Add(kvp.Key);
}
}
foreach (var rtd in types)
{
nongenerative.Remove(rtd);
}
}
// example based on the MSDN Delegates Sample (compose.cs)
public static void GenCompose(AssemblyGen ag)
{
TypeGen MyDelegate = ag.Delegate(typeof(void), "MyDelegate").Parameter(typeof(string), "string");
TypeGen MyClass = ag.Class("MyClass");
{
CodeGen g = MyClass.Public.Static.Method(typeof(void), "Hello").Parameter(typeof(string), "s");
{
g.WriteLine(" Hello, {0}!", g.Arg("s"));
}
g = MyClass.Public.Static.Method(typeof(void), "Goodbye").Parameter(typeof(string), "s");
{
g.WriteLine(" Goodbye, {0}!", g.Arg("s"));
}
g = MyClass.Public.Static.Method(typeof(void), "Main");
{
Operand a = g.Local(), b = g.Local(), c = g.Local(), d = g.Local();
// Create the delegate object a that references
// the method Hello:
g.Assign(a, Exp.NewDelegate(MyDelegate, MyClass, "Hello"));
// Create the delegate object b that references
// the method Goodbye:
g.Assign(b, Exp.NewDelegate(MyDelegate, MyClass, "Goodbye"));
// The two delegates, a and b, are composed to form c,
// which calls both methods in order:
g.Assign(c, a + b);
// Remove a from the composed delegate, leaving d,
// which calls only the method Goodbye:
g.Assign(d, c - a);
g.WriteLine("Invoking delegate a:");
g.InvokeDelegate(a, "A");
g.WriteLine("Invoking delegate b:");
g.InvokeDelegate(b, "B");
g.WriteLine("Invoking delegate c:");
g.InvokeDelegate(c, "C");
g.WriteLine("Invoking delegate d:");
g.InvokeDelegate(d, "D");
}
}
}
// example based on the MSDN Operator Overloading Sample (dbbool.cs)
public static void GenDbBool(AssemblyGen ag)
{
TypeGen DBBool = ag.Public.Struct("DBBool");
{
// Private field that stores -1, 0, 1 for dbFalse, dbNull, dbTrue:
FieldGen value = DBBool.Field(typeof(int), "value");
// Private constructor. The value parameter must be -1, 0, or 1:
CodeGen g = DBBool.Constructor().Parameter(typeof(int), "value");
{
g.Assign(value, g.Arg("value"));
}
// The three possible DBBool values:
FieldGen dbNull = DBBool.Public.Static.ReadOnly.Field(DBBool, "dbNull", Exp.New(DBBool, 0));
FieldGen dbFalse = DBBool.Public.Static.ReadOnly.Field(DBBool, "dbFalse", Exp.New(DBBool, -1));
FieldGen dbTrue = DBBool.Public.Static.ReadOnly.Field(DBBool, "dbTrue", Exp.New(DBBool, 1));
// Implicit conversion from bool to DBBool. Maps true to
// DBBool.dbTrue and false to DBBool.dbFalse:
g = DBBool.ImplicitConversionFrom(typeof(bool), "x");
{
Operand x = g.Arg("x");
g.Return(x.Conditional(dbTrue, dbFalse));
}
// Explicit conversion from DBBool to bool. Throws an
// exception if the given DBBool is dbNull, otherwise returns
// true or false:
g = DBBool.ExplicitConversionTo(typeof(bool), "x");
{
Operand x = g.Arg("x");
g.If(x.Field("value") == 0);
{
g.Throw(Exp.New(typeof(InvalidOperationException)));
}
g.End();
g.Return(x.Field("value") > 0);
}
// Equality operator. Returns dbNull if either operand is dbNull,
// otherwise returns dbTrue or dbFalse:
g = DBBool.Operator(Operator.Equality, DBBool, DBBool, "x", DBBool, "y");
{
Operand x = g.Arg("x"), y = g.Arg("y");
g.If(x.Field("value") == 0 || y.Field("value") == 0);
{
g.Return(dbNull);
}
g.End();
g.Return((x.Field("value") == y.Field("value")).Conditional(dbTrue, dbFalse));
}
// Inequality operator. Returns dbNull if either operand is
// dbNull, otherwise returns dbTrue or dbFalse:
g = DBBool.Operator(Operator.Inequality, DBBool, DBBool, "x", DBBool, "y");
{
Operand x = g.Arg("x"), y = g.Arg("y");
g.If(x.Field("value") == 0 || y.Field("value") == 0);
{
g.Return(dbNull);
}
g.End();
g.Return((x.Field("value") != y.Field("value")).Conditional(dbTrue, dbFalse));
}
// Logical negation operator. Returns dbTrue if the operand is
// dbFalse, dbNull if the operand is dbNull, or dbFalse if the
// operand is dbTrue:
g = DBBool.Operator(Operator.LogicalNot, DBBool, DBBool, "x");
{
Operand x = g.Arg("x");
g.Return(Exp.New(DBBool, -x.Field("value")));
}
// Logical AND operator. Returns dbFalse if either operand is
// dbFalse, dbNull if either operand is dbNull, otherwise dbTrue:
g = DBBool.Operator(Operator.And, DBBool, DBBool, "x", DBBool, "y");
{
Operand x = g.Arg("x"), y = g.Arg("y");
g.Return(Exp.New(DBBool, (x.Field("value") < y.Field("value")).Conditional(x.Field("value"), y.Field("value"))));
}
// Logical OR operator. Returns dbTrue if either operand is
// dbTrue, dbNull if either operand is dbNull, otherwise dbFalse:
g = DBBool.Operator(Operator.Or, DBBool, DBBool, "x", DBBool, "y");
{
Operand x = g.Arg("x"), y = g.Arg("y");
g.Return(Exp.New(DBBool, (x.Field("value") > y.Field("value")).Conditional(x.Field("value"), y.Field("value"))));
}
// Definitely true operator. Returns true if the operand is
// dbTrue, false otherwise:
g = DBBool.Operator(Operator.True, typeof(bool), DBBool, "x");
{
Operand x = g.Arg("x");
g.Return(x.Field("value") > 0);
}
// Definitely false operator. Returns true if the operand is
// dbFalse, false otherwise:
g = DBBool.Operator(Operator.False, typeof(bool), DBBool, "x");
{
Operand x = g.Arg("x");
g.Return(x.Field("value") < 0);
}
// Overload the conversion from DBBool to string:
g = DBBool.ImplicitConversionTo(typeof(string), "x");
{
Operand x = g.Arg("x");
g.Return((x.Field("value") > 0).Conditional("dbTrue",
(x.Field("value") < 0).Conditional("dbFalse",
"dbNull")));
}
// Override the Object.Equals(object o) method:
g = DBBool.Public.Override.Method(typeof(bool), "Equals").Parameter(typeof(object), "o");
{
g.Try();
{
g.Return((g.This() == g.Arg("o").Cast(DBBool)).Cast(typeof(bool)));
}
g.CatchAll();
{
g.Return(false);
}
g.End();
}
// Override the Object.GetHashCode() method:
g = DBBool.Public.Override.Method(typeof(int), "GetHashCode");
{
g.Return(value);
}
// Override the ToString method to convert DBBool to a string:
g = DBBool.Public.Override.Method(typeof(string), "ToString");
{
g.Switch(value);
{
g.Case(-1);
g.Return("DBBool.False");
g.Case(0);
g.Return("DBBool.Null");
g.Case(1);
g.Return("DBBool.True");
g.DefaultCase();
g.Throw(Exp.New(typeof(InvalidOperationException)));
}
g.End();
}
}
TypeGen Test = ag.Class("Test");
{
CodeGen g = Test.Static.Method(typeof(void), "Main");
{
Operand a = g.Local(DBBool), b = g.Local(DBBool);
g.Assign(a, Static.Field(DBBool, "dbTrue"));
g.Assign(b, Static.Field(DBBool, "dbNull"));
g.WriteLine("!{0} = {1}", a, !a);
g.WriteLine("!{0} = {1}", b, !b);
g.WriteLine("{0} & {1} = {2}", a, b, a & b);
g.WriteLine("{0} | {1} = {2}", a, b, a | b);
// Invoke the true operator to determine the Boolean
// value of the DBBool variable:
g.If(b);
{
g.WriteLine("b is definitely true");
}
g.Else();
{
g.WriteLine("b is not definitely true");
}
g.End();
}
}
}
public static RecordTypeDescriptor GenerateRecordTypeDescriptor(AssemblyGen ag, object name, object parent, object uid, object issealed, object isopaque, object fields, object fieldtypes)
{
string n = SymbolTable.IdToString(RequiresNotNull<SymbolId>(name));
string id = uid is SymbolId ? SymbolTable.IdToString(RequiresNotNull<SymbolId>(uid)): uid as string;
if (id != null)
{
RecordTypeDescriptor ngrtd;
if (nongenerative.TryGetValue(n + id, out ngrtd))
{
// this is all nice and well, but when the caller is from a disk assembly, after it has been compiled, there will be a mismatch
// this is bit hard to check...
return ngrtd;
}
var type = ClrGenerator.GetTypeFast("record." + id + "." + n.Replace("&", "$").Replace("*", "$")); // TODO: Make me better
if (type != null)
{
return RecordTypeDescriptor.Create(type, n, id, parent as RecordTypeDescriptor);
}
}
bool @sealed = RequiresNotNull<bool>(issealed);
bool opaque = RequiresNotNull<bool>(isopaque);
RecordTypeDescriptor prtd = parent as RecordTypeDescriptor; // can be #f
Type parenttype = typeof(object);
if (prtd != null)
{
parenttype = prtd.type;
}
else if (n == "&condition")
{
parenttype = typeof(Condition);
}
TypeAttributes attrs = TypeAttributes.Public | TypeAttributes.Serializable;
var rtd = new RecordTypeDescriptor
{
Name = n,
@sealed = @sealed,
opaque = opaque,
ag = ag,
Parent = prtd,
uid = uid,
generative = id == null || uid is string,
};
if (@sealed)
{
attrs |= TypeAttributes.Sealed;
}
object gid = (object)id ?? Guid.NewGuid();
var ns = "record." + gid;
var typename = ns + "." + n.Replace("&", "$").Replace("*", "$"); // TODO: Make me better
TypeGen tg = ag.DefinePublicType(typename, parenttype, attrs);
rtd.tg = tg;
rtd.type = tg.TypeBuilder;
if (id != null)
{
nongenerative[n + id] = rtd;
}
if (parenttype.IsSubclassOf(typeof(Condition)))
{
SetSymbolValueFast(SymbolTable.StringToObject(n + "-rtd"), rtd);
}
GeneratePredicate(n, rtd, tg);
GenerateFields(fields, n, rtd, tg, fieldtypes);
GenerateConstructor(rtd, tg, parenttype);
return rtd;
}
// example based on the MSDN Properties Sample (abstractshape.cs, shapes.cs, shapetest.cs)
public static void GenShapeTest(AssemblyGen ag)
{
// abstractshape.cs
TypeGen Shape = ag.Public.Abstract.Class("Shape");
{
FieldGen myId = Shape.Private.Field(typeof(string), "myId");
PropertyGen Id = Shape.Public.SimpleProperty(myId, "Id");
CodeGen g = Shape.Public.Constructor().Parameter(typeof(string), "s");
{
g.Assign(Id, g.Arg("s")); // calling the set accessor of the Id property
}
// Area is a read-only property - only a get accessor is needed:
PropertyGen Area = Shape.Public.Abstract.Property(typeof(double), "Area");
Area.Getter();
g = Shape.Public.Override.Method(typeof(string), "ToString");
{
g.Return(Id + " Area = " + Static.Invoke(typeof(string), "Format", "{0:F2}", Area));
}
}
// shapes.cs
TypeGen Square = ag.Public.Class("Square", Shape);
{
FieldGen mySide = Square.Private.Field(typeof(int), "mySide");
CodeGen g = Square.Public.Constructor().Parameter(typeof(int), "side").Parameter(typeof(string), "id");
{
g.InvokeBase(g.Arg("id"));
g.Assign(mySide, g.Arg("side"));
}
PropertyGen Area = Square.Public.Override.Property(typeof(double), "Area");
g = Area.Getter();
{
// Given the side, return the area of a square:
g.Return(mySide * mySide);
}
}
TypeGen Circle = ag.Public.Class("Circle", Shape);
{
FieldGen myRadius = Circle.Private.Field(typeof(int), "myRadius");
CodeGen g = Circle.Public.Constructor().Parameter(typeof(int), "radius").Parameter(typeof(string), "id");
{
g.InvokeBase(g.Arg("id"));
g.Assign(myRadius, g.Arg("radius"));
}
PropertyGen Area = Circle.Public.Override.Property(typeof(double), "Area");
g = Area.Getter();
{
// Given the radius, return the area of a circle:
g.Return(myRadius * myRadius * Math.PI);
}
}
TypeGen Rectangle = ag.Public.Class("Rectangle", Shape);
{
FieldGen myWidth = Rectangle.Private.Field(typeof(int), "myWidth");
FieldGen myHeight = Rectangle.Private.Field(typeof(int), "myHeight");
CodeGen g = Rectangle.Public.Constructor()
.Parameter(typeof(int), "width")
.Parameter(typeof(int), "height")
.Parameter(typeof(string), "id")
;
{
g.InvokeBase(g.Arg("id"));
g.Assign(myWidth, g.Arg("width"));
g.Assign(myHeight, g.Arg("height"));
}
PropertyGen Area = Rectangle.Public.Override.Property(typeof(double), "Area");
g = Area.Getter();
{
// Given the width and height, return the area of a rectangle:
g.Return(myWidth * myHeight);
}
}
// shapetest.cs
TypeGen TestClass = ag.Public.Class("TestClass");
{
CodeGen g = TestClass.Public.Static.Method(typeof(void), "Main");
{
Operand shapes = g.Local(Exp.NewInitializedArray(Shape,
Exp.New(Square, 5, "Square #1"),
Exp.New(Circle, 3, "Circle #1"),
Exp.New(Rectangle, 4, 5, "Rectangle #1")));
g.WriteLine("Shapes Collection");
Operand s = g.ForEach(Shape, shapes);
{
g.WriteLine(s);
}
g.End();
}
}
}
// example based on the MSDN Delegates Sample (bookstore.cs)
public static void GenBookstore(AssemblyGen ag)
{
TypeGen Book, ProcessBookDelegate, BookDB;
// A set of classes for handling a bookstore:
using (ag.Namespace("Bookstore"))
{
// Describes a book in the book list:
Book = ag.Public.Struct("Book");
{
FieldGen Title = Book.Public.Field(typeof(string), "Title"); // Title of the book.
FieldGen Author = Book.Public.Field(typeof(string), "Author"); // Author of the book.
FieldGen Price = Book.Public.Field(typeof(decimal), "Price"); // Price of the book.
FieldGen Paperback = Book.Public.Field(typeof(bool), "Paperback"); // Is it paperback?
CodeGen g = Book.Public.Constructor()
.Parameter(typeof(string), "title")
.Parameter(typeof(string), "author")
.Parameter(typeof(decimal), "price")
.Parameter(typeof(bool), "paperBack");
{
g.Assign(Title, g.Arg("title"));
g.Assign(Author, g.Arg("author"));
g.Assign(Price, g.Arg("price"));
g.Assign(Paperback, g.Arg("paperBack"));
}
}
// Declare a delegate type for processing a book:
ProcessBookDelegate = ag.Public.Delegate(typeof(void), "ProcessBookDelegate").Parameter(Book, "book");
// Maintains a book database.
BookDB = ag.Public.Class("BookDB");
{
// List of all books in the database:
FieldGen list = BookDB.Field(typeof(ArrayList), "list", Exp.New(typeof(ArrayList)));
// Add a book to the database:
CodeGen g = BookDB.Public.Method(typeof(void), "AddBook")
.Parameter(typeof(string), "title")
.Parameter(typeof(string), "author")
.Parameter(typeof(decimal), "price")
.Parameter(typeof(bool), "paperBack")
;
{
g.Invoke(list, "Add", Exp.New(Book, g.Arg("title"), g.Arg("author"), g.Arg("price"), g.Arg("paperBack")));
}
// Call a passed-in delegate on each paperback book to process it:
g = BookDB.Public.Method(typeof(void), "ProcessPaperbackBooks").Parameter(ProcessBookDelegate, "processBook");
{
Operand b = g.ForEach(Book, list);
{
g.If(b.Field("Paperback"));
{
g.InvokeDelegate(g.Arg("processBook"), b);
}
g.End();
}
g.End();
}
}
}
// Using the Bookstore classes:
using (ag.Namespace("BookTestClient"))
{
// Class to total and average prices of books:
TypeGen PriceTotaller = ag.Class("PriceTotaller");
{
FieldGen countBooks = PriceTotaller.Field(typeof(int), "countBooks", 0);
FieldGen priceBooks = PriceTotaller.Field(typeof(decimal), "priceBooks", 0.0m);
CodeGen g = PriceTotaller.Internal.Method(typeof(void), "AddBookToTotal").Parameter(Book, "book");
{
g.AssignAdd(countBooks, 1);
g.AssignAdd(priceBooks, g.Arg("book").Field("Price"));
}
g = PriceTotaller.Internal.Method(typeof(decimal), "AveragePrice");
{
g.Return(priceBooks / countBooks);
}
}
// Class to test the book database:
TypeGen Test = ag.Class("Test");
{
// Print the title of the book.
CodeGen g = Test.Static.Method(typeof(void), "PrintTitle").Parameter(Book, "book");
{
g.WriteLine(" {0}", g.Arg("book").Field("Title"));
}
// Initialize the book database with some test books:
g = Test.Static.Method(typeof(void), "AddBooks").Parameter(BookDB, "bookDB");
{
Operand bookDB = g.Arg("bookDB");
g.Invoke(bookDB, "AddBook", "The C Programming Language",
"Brian W. Kernighan and Dennis M. Ritchie", 19.95m, true);
g.Invoke(bookDB, "AddBook", "The Unicode Standard 2.0",
"The Unicode Consortium", 39.95m, true);
g.Invoke(bookDB, "AddBook", "The MS-DOS Encyclopedia",
"Ray Duncan", 129.95m, false);
g.Invoke(bookDB, "AddBook", "Dogbert's Clues for the Clueless",
"Scott Adams", 12.00m, true);
}
// Execution starts here.
g = Test.Static.Method(typeof(void), "Main");
{
Operand bookDB = g.Local(Exp.New(BookDB));
// Initialize the database with some books:
g.Invoke(Test, "AddBooks", bookDB);
// Print all the titles of paperbacks:
g.WriteLine("Paperback Book Titles:");
// Create a new delegate object associated with the static
// method Test.PrintTitle:
g.Invoke(bookDB, "ProcessPaperbackBooks", Exp.NewDelegate(ProcessBookDelegate, Test, "PrintTitle"));
// Get the average price of a paperback by using
// a PriceTotaller object:
Operand totaller = g.Local(Exp.New(PriceTotaller));
// Create a new delegate object associated with the nonstatic
// method AddBookToTotal on the object totaller:
g.Invoke(bookDB, "ProcessPaperbackBooks", Exp.NewDelegate(ProcessBookDelegate, totaller, "AddBookToTotal"));
g.WriteLine("Average Paperback Book Price: ${0:#.##}",
totaller.Invoke("AveragePrice"));
}
}
}
}
// example based on the MSDN User-Defined Conversions Sample (structconversion.cs)
public static void GenStructConversion(AssemblyGen ag)
{
TypeGen BinaryNumeral = ag.Struct("BinaryNumeral");
{
FieldGen value = BinaryNumeral.Private.Field(typeof(int), "value");
CodeGen g = BinaryNumeral.Public.Constructor().Parameter(typeof(int), "value");
{
g.Assign(value, g.Arg("value"));
}
g = BinaryNumeral.Public.ImplicitConversionFrom(typeof(int));
{
g.Return(Exp.New(BinaryNumeral, g.Arg("value")));
}
g = BinaryNumeral.Public.ImplicitConversionTo(typeof(string));
{
g.Return("Conversion not yet implemented");
}
g = BinaryNumeral.Public.ExplicitConversionTo(typeof(int), "binary");
{
g.Return(g.Arg("binary").Field("value"));
}
}
TypeGen RomanNumeral = ag.Struct("RomanNumeral");
{
FieldGen value = RomanNumeral.Private.Field(typeof(int), "value");
CodeGen g = RomanNumeral.Public.Constructor().Parameter(typeof(int), "value");
{
g.Assign(value, g.Arg("value"));
}
g = RomanNumeral.Public.ImplicitConversionFrom(typeof(int));
{
g.Return(Exp.New(RomanNumeral, g.Arg("value")));
}
g = RomanNumeral.Public.ImplicitConversionFrom(BinaryNumeral, "binary");
{
g.Return(Exp.New(RomanNumeral, g.Arg("binary").Cast(typeof(int))));
}
g = RomanNumeral.Public.ExplicitConversionTo(typeof(int), "roman");
{
g.Return(g.Arg("roman").Field("value"));
}
g = RomanNumeral.Public.ImplicitConversionTo(typeof(string));
{
g.Return("Conversion not yet implemented");
}
}
TypeGen Test = ag.Class("Test");
{
CodeGen g = Test.Public.Static.Method(typeof(void), "Main");
{
Operand roman = g.Local(RomanNumeral);
g.Assign(roman, 10);
Operand binary = g.Local(BinaryNumeral);
// Perform a conversion from a RomanNumeral to a
// BinaryNumeral:
g.Assign(binary, roman.Cast(typeof(int)).Cast(BinaryNumeral));
// Performs a conversion from a BinaryNumeral to a RomanNumeral.
// No cast is required:
g.Assign(roman, binary);
g.WriteLine(binary.Cast(typeof(int)));
g.WriteLine(binary);
}
}
}
// example based on the MSDN Events Sample (events1.cs)
public static void GenEvents1(AssemblyGen ag)
{
TypeGen ChangedEventHandler, ListWithChangedEvent;
using (ag.Namespace("MyCollections"))
{
// A delegate type for hooking up change notifications.
ChangedEventHandler = ag.Delegate(typeof(void), "ChangedEventHandler").Parameter(typeof(object), "sender").Parameter(typeof(EventArgs), "e");
// A class that works just like ArrayList, but sends event
// notifications whenever the list changes.
ListWithChangedEvent = ag.Public.Class("ListWithChangedEvent", typeof(ArrayList));
{
// An event that clients can use to be notified whenever the
// elements of the list change.
EventGen Changed = ListWithChangedEvent.Public.Event(ChangedEventHandler, "Changed");
// Invoke the Changed event; called whenever list changes
CodeGen g = ListWithChangedEvent.Protected.Virtual.Method(typeof(void), "OnChanged").Parameter(typeof(EventArgs), "e");
{
g.If(Changed != null);
{
g.InvokeDelegate(Changed, g.This(), g.Arg("e"));
}
g.End();
}
// Override some of the methods that can change the list;
// invoke event after each
g = ListWithChangedEvent.Public.Override.Method(typeof(int), "Add").Parameter(typeof(object), "value");
{
Operand i = g.Local(g.Base().Invoke("Add", g.Arg("value")));
g.Invoke(g.This(), "OnChanged", Static.Field(typeof(EventArgs), "Empty"));
g.Return(i);
}
g = ListWithChangedEvent.Public.Override.Method(typeof(void), "Clear");
{
g.Invoke(g.Base(), "Clear");
g.Invoke(g.This(), "OnChanged", Static.Field(typeof(EventArgs), "Empty"));
}
g = ListWithChangedEvent.Public.Override.Indexer(typeof(object)).Index(typeof(int), "index").Setter();
{
g.Assign(g.Base()[g.Arg("index")], g.PropertyValue());
g.Invoke(g.This(), "OnChanged", Static.Field(typeof(EventArgs), "Empty"));
}
}
}
using (ag.Namespace("TestEvents"))
{
TypeGen EventListener = ag.Class("EventListener");
{
FieldGen List = EventListener.Field(ListWithChangedEvent, "List");
// This will be called whenever the list changes.
CodeGen g = EventListener.Private.Method(typeof(void), "ListChanged").Parameter(typeof(object), "sender").Parameter(typeof(EventArgs), "eventArgs");
{
g.WriteLine("This is called when the event fires.");
}
g = EventListener.Public.Constructor().Parameter(ListWithChangedEvent, "list");
{
g.Assign(List, g.Arg("list"));
// Add "ListChanged" to the Changed event on "List".
g.SubscribeEvent(List, "Changed", Exp.NewDelegate(ChangedEventHandler, g.This(), "ListChanged"));
}
g = EventListener.Public.Method(typeof(void), "Detach");
{
// Detach the event and delete the list
g.UnsubscribeEvent(List, "Changed", Exp.NewDelegate(ChangedEventHandler, g.This(), "ListChanged"));
g.Assign(List, null);
}
}
TypeGen Test = ag.Class("Test");
{
// Test the ListWithChangedEvent class.
CodeGen g = Test.Public.Static.Method(typeof(void), "Main");
{
// Create a new list.
Operand list = g.Local(Exp.New(ListWithChangedEvent));
// Create a class that listens to the list's change event.
Operand listener = g.Local(Exp.New(EventListener, list));
// Add and remove items from the list.
g.Invoke(list, "Add", "item 1");
g.Invoke(list, "Clear");
g.Invoke(listener, "Detach");
}
}
}
}
// example based on the MSDN User-Defined Conversions Sample (conversion.cs)
public static void GenConversion(AssemblyGen ag)
{
TypeGen RomanNumeral = ag.Struct("RomanNumeral");
{
FieldGen value = RomanNumeral.Private.Field(typeof(int), "value");
CodeGen g = RomanNumeral.Public.Constructor().Parameter(typeof(int), "value");
{
g.Assign(value, g.Arg("value"));
}
// Declare a conversion from an int to a RomanNumeral. Note the
// the use of the operator keyword. This is a conversion
// operator named RomanNumeral:
g = RomanNumeral.Public.ImplicitConversionFrom(typeof(int));
{
// Note that because RomanNumeral is declared as a struct,
// calling new on the struct merely calls the constructor
// rather than allocating an object on the heap:
g.Return(Exp.New(RomanNumeral, g.Arg("value")));
}
// Declare an explicit conversion from a RomanNumeral to an int:
g = RomanNumeral.Public.ExplicitConversionTo(typeof(int), "roman");
{
g.Return(g.Arg("roman").Field("value"));
}
// Declare an implicit conversion from a RomanNumeral to
// a string:
g = RomanNumeral.Public.ImplicitConversionTo(typeof(string));
{
g.Return("Conversion not yet implemented");
}
}
TypeGen Test = ag.Class("Test");
{
CodeGen g = Test.Public.Static.Method(typeof(void), "Main");
{
Operand numeral = g.Local(RomanNumeral);
g.Assign(numeral, 10);
// Call the explicit conversion from numeral to int. Because it is
// an explicit conversion, a cast must be used:
g.WriteLine(numeral.Cast(typeof(int)));
// Call the implicit conversion to string. Because there is no
// cast, the implicit conversion to string is the only
// conversion that is considered:
g.WriteLine(numeral);
// Call the explicit conversion from numeral to int and
// then the explicit conversion from int to short:
Operand s = g.Local(numeral.Cast(typeof(short)));
g.WriteLine(s);
}
}
}
// example based on the MSDN Collection Classes Sample (tokens2.cs)
public static void GenTokens2(AssemblyGen ag)
{
TypeGen Tokens = ag.Public.Class("Tokens", typeof(object), typeof(IEnumerable));
{
FieldGen elements = Tokens.Private.Field(typeof(string[]), "elements");
CodeGen g = Tokens.Constructor()
.Parameter(typeof(string), "source")
.Parameter(typeof(char[]), "delimiters")
;
{
g.Assign(elements, g.Arg("source").Invoke("Split", g.Arg("delimiters")));
}
// Inner class implements IEnumerator interface:
TypeGen TokenEnumerator = Tokens.Public.Class("TokenEnumerator", typeof(object), typeof(IEnumerator));
{
FieldGen position = TokenEnumerator.Field(typeof(int), "position", -1);
FieldGen t = TokenEnumerator.Field(Tokens, "t");
g = TokenEnumerator.Public.Constructor().Parameter(Tokens, "tokens");
{
g.Assign(t, g.Arg("tokens"));
}
g = TokenEnumerator.Public.Method(typeof(bool), "MoveNext");
{
g.If(position < t.Field("elements").ArrayLength() - 1);
{
g.Increment(position);
g.Return(true);
}
g.Else();
{
g.Return(false);
}
g.End();
}
g = TokenEnumerator.Public.Method(typeof(void), "Reset");
{
g.Assign(position, -1);
}
// non-IEnumerator version: type-safe
g = TokenEnumerator.Public.Property(typeof(string), "Current").Getter();
{
g.Return(t.Field("elements")[position]);
}
// IEnumerator version: returns object
g = TokenEnumerator.Public.PropertyImplementation(typeof(IEnumerator), typeof(object), "Current").Getter();
{
g.Return(t.Field("elements")[position]);
}
}
// IEnumerable Interface Implementation:
// non-IEnumerable version
g = Tokens.Public.Method(TokenEnumerator, "GetEnumerator");
{
g.Return(Exp.New(TokenEnumerator, g.This()));
}
// IEnumerable version
g = Tokens.Public.MethodImplementation(typeof(IEnumerable), typeof(IEnumerator), "GetEnumerator");
{
g.Return(Exp.New(TokenEnumerator, g.This()).Cast(typeof(IEnumerator)));
}
// Test Tokens, TokenEnumerator
g = Tokens.Static.Method(typeof(void), "Main");
{
Operand f = g.Local(Exp.New(Tokens, "This is a well-done program.",
Exp.NewInitializedArray(typeof(char), ' ', '-')));
Operand item = g.ForEach(typeof(string), f); // try changing string to int
{
g.WriteLine(item);
}
g.End();
}
}
}
internal static string[] SaveAssembliesToDisk() {
if (!_saveAssemblies) {
return new string[0];
}
var assemlyLocations = new List<string>();
// first save all assemblies to disk:
if (_assembly != null) {
string assemblyLocation = _assembly.SaveAssembly();
if (assemblyLocation != null) {
assemlyLocations.Add(assemblyLocation);
}
_assembly = null;
}
return assemlyLocations.ToArray();
}
public static void GenIndexer(AssemblyGen ag)
{
// Class to provide access to a large file
// as if it were a byte array.
TypeGen FileByteArray = ag.Public.Class("FileByteArray");
{
FieldGen stream = FileByteArray.Field(typeof(Stream), "stream"); // Holds the underlying stream
// used to access the file.
// Create a new FileByteArray encapsulating a particular file.
CodeGen g = FileByteArray.Public.Constructor().Parameter(typeof(string), "fileName");
{
g.Assign(stream, Exp.New(typeof(FileStream), g.Arg("fileName"), FileMode.Open));
}
// Close the stream. This should be the last thing done
// when you are finished.
g = FileByteArray.Public.Method(typeof(void), "Close");
{
g.Invoke(stream, "Close");
g.Assign(stream, null);
}
// Indexer to provide read/write access to the file.
PropertyGen Item = FileByteArray.Public.Indexer(typeof(byte)).Index(typeof(long), "index"); // long is a 64-bit integer
{
// Read one byte at offset index and return it.
g = Item.Getter();
{
Operand buffer = g.Local(Exp.NewArray(typeof(byte), 1));
g.Invoke(stream, "Seek", g.Arg("index"), SeekOrigin.Begin);
g.Invoke(stream, "Read", buffer, 0, 1);
g.Return(buffer[0]);
}
// Write one byte at offset index and return it.
g = Item.Setter();
{
Operand buffer = g.Local(Exp.NewInitializedArray(typeof(byte), g.PropertyValue()));
g.Invoke(stream, "Seek", g.Arg("index"), SeekOrigin.Begin);
g.Invoke(stream, "Write", buffer, 0, 1);
}
}
// Get the total length of the file.
FileByteArray.Public.Property(typeof(long), "Length").Getter().GetCode()
.Return(stream.Invoke("Seek", 0, SeekOrigin.End));
}
// Demonstrate the FileByteArray class.
// Reverses the bytes in a file.
TypeGen Reverse = ag.Public.Class("Reverse");
{
CodeGen g = Reverse.Public.Static.Method(typeof(void), "Main").Parameter(typeof(string[]), "args");
{
Operand args = g.Arg("args");
// Check for arguments.
g.If(args.ArrayLength() != 1);
{
g.WriteLine("Usage : Indexer <filename>");
g.Return();
}
g.End();
// Check for file existence
g.If(!Static.Invoke(typeof(File), "Exists", args[0]));
{
g.WriteLine("File " + args[0] + " not found.");
g.Return();
}
g.End();
Operand file = g.Local(Exp.New(FileByteArray, args[0]));
Operand len = g.Local(file.Property("Length"));
// Swap bytes in the file to reverse it.
Operand i = g.Local(typeof(long));
g.For(i.Assign(0), i < len / 2, i.Increment());
{
Operand t = g.Local();
// Note that indexing the "file" variable invokes the
// indexer on the FileByteStream class, which reads
// and writes the bytes in the file.
g.Assign(t, file[i]);
g.Assign(file[i], file[len - i - 1]);
g.Assign(file[len - i - 1], t);
}
g.End();
g.Invoke(file, "Close");
}
}
}
// example based on the MSDN Explicit Interface Implementation Sample (explicit.cs)
public static void GenExplicit2(AssemblyGen ag)
{
// Declare the English units interface:
TypeGen IEnglishDimensions = ag.Interface("IEnglishDimensions");
{
IEnglishDimensions.Method(typeof(float), "Length");
IEnglishDimensions.Method(typeof(float), "Width");
}
// Declare the metric units interface:
TypeGen IMetricDimensions = ag.Interface("IMetricDimensions");
{
IMetricDimensions.Method(typeof(float), "Length");
IMetricDimensions.Method(typeof(float), "Width");
}
// Declare the "Box" class that implements the two interfaces:
// IEnglishDimensions and IMetricDimensions:
TypeGen Box = ag.Class("Box", typeof(object), IEnglishDimensions, IMetricDimensions);
{
FieldGen lengthInches = Box.Field(typeof(float), "lengthInches");
FieldGen widthInches = Box.Field(typeof(float), "widthInches");
CodeGen g = Box.Public.Constructor()
.Parameter(typeof(float), "length")
.Parameter(typeof(float), "width")
;
{
g.Assign(lengthInches, g.Arg("length"));
g.Assign(widthInches, g.Arg("width"));
}
// Explicitly implement the members of IEnglishDimensions:
g = Box.MethodImplementation(IEnglishDimensions, typeof(float), "Length");
{
g.Return(lengthInches);
}
g = Box.MethodImplementation(IEnglishDimensions, typeof(float), "Width");
{
g.Return(widthInches);
}
// Explicitly implement the members of IMetricDimensions:
g = Box.MethodImplementation(IMetricDimensions, typeof(float), "Length");
{
g.Return(lengthInches * 2.54f);
}
g = Box.MethodImplementation(IMetricDimensions, typeof(float), "Width");
{
g.Return(widthInches * 2.54f);
}
g = Box.Public.Static.Method(typeof(void), "Main");
{
// Declare a class instance "myBox":
Operand myBox = g.Local(Exp.New(Box, 30.0f, 20.0f));
// Declare an instance of the English units interface:
Operand eDimensions = g.Local(myBox.Cast(IEnglishDimensions));
// Declare an instance of the metric units interface:
Operand mDimensions = g.Local(myBox.Cast(IMetricDimensions));
// Print dimensions in English units:
g.WriteLine("Length(in): {0}", eDimensions.Invoke("Length"));
g.WriteLine("Width (in): {0}", eDimensions.Invoke("Width"));
// Print dimensions in metric units:
g.WriteLine("Length(cm): {0}", mDimensions.Invoke("Length"));
g.WriteLine("Width (cm): {0}", mDimensions.Invoke("Width"));
}
}
}
