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 Structs Sample (struct1.cs)
public static void GenStruct1(AssemblyGen ag)
{
var st = ag.StaticFactory;
var exp = ag.ExpressionFactory;
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");
{
var ss = g.Local(SimpleStruct);
g.InitObj(ss);
ITypeMapper typeMapper = ag.TypeMapper;
g.Assign(ss.Property("X"), 5);
g.Invoke(ss, "DisplayX");
}
}
}
// 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 <int>("xval");
PropertyGen X = SimpleStruct.Public.Property <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.Void("DisplayX");
{
g.WriteLine("The stored value is: {0}", xval);
}
}
TypeGen TestClass = ag.Class("TestClass");
{
g = TestClass.Public.Static.Void("Main");
{
Operand ss = g.Local(SimpleStruct);
g.InitObj(ss);
g.Assign(ss.Property("X"), 5);
g.Invoke(ss, "DisplayX");
}
}
}
// 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 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();
}
}
}
// example based on the MSDN Explicit Interface Implementation Sample (explicit.cs)
public static void GenExplicit2(AssemblyGen ag)
{
var st = ag.StaticFactory;
var exp = ag.ExpressionFactory;
ITypeMapper m = ag.TypeMapper;
// 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":
var myBox = g.Local(exp.New(Box, 30.0f, 20.0f));
// Declare an instance of the English units interface:
var eDimensions = g.Local(myBox.Cast(IEnglishDimensions));
// Declare an instance of the metric units interface:
var 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"));
}
}
}
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 <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 <string>("fileName");
{
g.Assign(stream, Exp.New <FileStream>(g.Arg("fileName"), FileMode.Open));
}
// Close the stream. This should be the last thing done
// when you are finished.
g = FileByteArray.Public.Void("Close");
{
g.Invoke(stream, "Close");
g.Assign(stream, null);
}
// Indexer to provide read/write access to the file.
PropertyGen Item = FileByteArray.Public.Indexer <byte>().Index <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 <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 <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 <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.Void("Main").Parameter <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 <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 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 <int>("value");
// Private constructor. The value parameter must be -1, 0, or 1:
CodeGen g = DBBool.Constructor().Parameter <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 <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 <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 <bool>("Equals").Parameter <object>("o");
{
g.Try();
{
g.Return((g.This() == g.Arg("o").Cast(DBBool)).Cast <bool>());
}
g.CatchAll();
{
g.Return(false);
}
g.End();
}
// Override the Object.GetHashCode() method:
g = DBBool.Public.Override.Method <int>("GetHashCode");
{
g.Return(value);
}
// Override the ToString method to convert DBBool to a string:
g = DBBool.Public.Override.Method <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 <InvalidOperationException>());
}
g.End();
}
}
TypeGen Test = ag.Class("Test");
{
CodeGen g = Test.Static.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();
}
}
}
// example based on the MSDN Delegates Sample (bookstore.cs)
public static void GenBookstore(AssemblyGen ag)
{
var st = ag.StaticFactory;
var exp = ag.ExpressionFactory;
ITypeMapper m = ag.TypeMapper;
TypeGen book, processBookDelegate, BookDBLocal;
// 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.
BookDBLocal = ag.Public.Class("BookDB");
{
// List of all books in the database:
FieldGen list = BookDBLocal.Field(typeof(ArrayList), "list", exp.New(typeof(ArrayList)));
// Add a book to the database:
CodeGen g = BookDBLocal.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 = BookDBLocal.Public.Method(typeof(void), "ProcessPaperbackBooks").Parameter(processBookDelegate, "processBook");
{
var 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(BookDBLocal, "bookDB");
{
var 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.Public.Static.Method(typeof(void), "Main");
{
var bookDb = g.Local(exp.New(BookDBLocal));
// 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", (Operand)exp.NewDelegate(processBookDelegate, test, "PrintTitle"));
// Get the average price of a paperback by using
// a PriceTotaller object:
var 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", (Operand)exp.NewDelegate(processBookDelegate, totaller, "AddBookToTotal"));
g.WriteLine("Average Paperback Book Price: ${0:#.##}",
totaller.Invoke("AveragePrice"));
}
}
}
}
// 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 <string>("Title"); // Title of the book.
FieldGen Author = Book.Public.Field <string>("Author"); // Author of the book.
FieldGen Price = Book.Public.Field <decimal>("Price"); // Price of the book.
FieldGen Paperback = Book.Public.Field <bool>("Paperback"); // Is it paperback?
CodeGen g = Book.Public.Constructor()
.Parameter <string>("title")
.Parameter <string>("author")
.Parameter <decimal>("price")
.Parameter <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.DelegateVoid("ProcessBookDelegate").Parameter(Book, "book");
// Maintains a book database.
BookDB = ag.Public.Class("BookDB");
{
// List of all books in the database:
FieldGen list = BookDB.Field <ArrayList>("list", Exp.New <ArrayList>());
// Add a book to the database:
CodeGen g = BookDB.Public.Void("AddBook")
.Parameter <string>("title")
.Parameter <string>("author")
.Parameter <decimal>("price")
.Parameter <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.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 <int>("countBooks", 0);
FieldGen priceBooks = PriceTotaller.Field <decimal>("priceBooks", 0.0m);
CodeGen g = PriceTotaller.Internal.Void("AddBookToTotal").Parameter(Book, "book");
{
g.AssignAdd(countBooks, 1);
g.AssignAdd(priceBooks, g.Arg("book").Field("Price"));
}
g = PriceTotaller.Internal.Method <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.Void("PrintTitle").Parameter(Book, "book");
{
g.WriteLine(" {0}", g.Arg("book").Field("Title"));
}
// Initialize the book database with some test books:
g = Test.Static.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.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"));
}
}
}
}
