2009-12-02 Jb Evain <jbevain@novell.com>

[mcs.git] / class / corlib / System.Reflection.Emit / TypeBuilder.cs

//
// System.Reflection.Emit.TypeBuilder.cs
//
// Author:
//   Paolo Molaro (lupus@ximian.com)
//   Marek Safar (marek.safar@gmail.com)
//
// (C) 2001 Ximian, Inc.  http://www.ximian.com
//

//
// Copyright (C) 2004 Novell, Inc (http://www.novell.com)
//
// Permission is hereby granted, free of charge, to any person obtaining
// a copy of this software and associated documentation files (the
// "Software"), to deal in the Software without restriction, including
// without limitation the rights to use, copy, modify, merge, publish,
// distribute, sublicense, and/or sell copies of the Software, and to
// permit persons to whom the Software is furnished to do so, subject to
// the following conditions:
// 
// The above copyright notice and this permission notice shall be
// included in all copies or substantial portions of the Software.
// 
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
//

using System;
using System.Text;
using System.Reflection;
using System.Reflection.Emit;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;
using System.Globalization;
using System.Collections;
using System.Security;
using System.Security.Permissions;
using System.Diagnostics.SymbolStore;

namespace System.Reflection.Emit
{
        [ComVisible (true)]
        [ComDefaultInterface (typeof (_TypeBuilder))]
        [ClassInterface (ClassInterfaceType.None)]
        public sealed class TypeBuilder : Type, _TypeBuilder
        {
#pragma warning disable 169             
                #region Sync with reflection.h
                private string tname;
                private string nspace;
                private Type parent;
                private Type nesting_type;
                internal Type[] interfaces;
                internal int num_methods;
                internal MethodBuilder[] methods;
                internal ConstructorBuilder[] ctors;
                internal PropertyBuilder[] properties;
                internal int num_fields;
                internal FieldBuilder[] fields;
                internal EventBuilder[] events;
                private CustomAttributeBuilder[] cattrs;
                internal TypeBuilder[] subtypes;
                internal TypeAttributes attrs;
                private int table_idx;
                private ModuleBuilder pmodule;
                private int class_size;
                private PackingSize packing_size;
                private IntPtr generic_container;
                private GenericTypeParameterBuilder[] generic_params;
                private RefEmitPermissionSet[] permissions;
                private Type created;
                #endregion
#pragma warning restore 169             
                
                string fullname;
                bool createTypeCalled;
                private Type underlying_type;

                public const int UnspecifiedTypeSize = 0;
                
                protected override TypeAttributes GetAttributeFlagsImpl ()
                {
                        return attrs;
                }
                
                [MethodImplAttribute(MethodImplOptions.InternalCall)]
                private extern void setup_internal_class (TypeBuilder tb);
                
                [MethodImplAttribute(MethodImplOptions.InternalCall)]
                private extern void create_internal_class (TypeBuilder tb);
                
                [MethodImplAttribute(MethodImplOptions.InternalCall)]
                private extern void setup_generic_class ();

                [MethodImplAttribute(MethodImplOptions.InternalCall)]
                private extern void create_generic_class ();

                [MethodImplAttribute(MethodImplOptions.InternalCall)]
                private extern EventInfo get_event_info (EventBuilder eb);

                internal TypeBuilder (ModuleBuilder mb, TypeAttributes attr, int table_idx)
                {
                        this.parent = null;
                        this.attrs = attr;
                        this.class_size = UnspecifiedTypeSize;
                        this.table_idx = table_idx;
                        fullname = this.tname = table_idx == 1 ? "<Module>" : "type_" + table_idx.ToString ();
                        this.nspace = String.Empty;
                        pmodule = mb;
                        setup_internal_class (this);
                }

                internal TypeBuilder (ModuleBuilder mb, string name, TypeAttributes attr, Type parent, Type[] interfaces, PackingSize packing_size, int type_size, Type nesting_type)
                {
                        int sep_index;
                        this.parent = parent;
                        this.attrs = attr;
                        this.class_size = type_size;
                        this.packing_size = packing_size;
                        this.nesting_type = nesting_type;

                        check_name ("fullname", name);

                        if (parent == null && (attr & TypeAttributes.Interface) != 0 && (attr & TypeAttributes.Abstract) == 0)
                                throw new InvalidOperationException ("Interface must be declared abstract.");

                        sep_index = name.LastIndexOf('.');
                        if (sep_index != -1) {
                                this.tname = name.Substring (sep_index + 1);
                                this.nspace = name.Substring (0, sep_index);
                        } else {
                                this.tname = name;
                                this.nspace = String.Empty;
                        }
                        if (interfaces != null) {
                                this.interfaces = new Type[interfaces.Length];
                                System.Array.Copy (interfaces, this.interfaces, interfaces.Length);
                        }
                        pmodule = mb;

                        if (((attr & TypeAttributes.Interface) == 0) && (parent == null) && !IsCompilerContext)
                                this.parent = typeof (object);

                        // skip .<Module> ?
                        table_idx = mb.get_next_table_index (this, 0x02, true);
                        setup_internal_class (this);
                        fullname = GetFullName ();
                }

                public override Assembly Assembly {
                        get {return pmodule.Assembly;}
                }

                public override string AssemblyQualifiedName {
                        get {
                                return fullname + ", " + Assembly.FullName;
                        }
                }

                public override Type BaseType {
                        get {
                                return parent;
                        }
                }

                public override Type DeclaringType {
                        get { return nesting_type; }
                }

/*              public override bool IsSubclassOf (Type c)
                {
                        Type t;
                        if (c == null)
                                return false;
                        if (c == this)
                                return false;
                        t = parent;
                        while (t != null) {
                                if (c == t)
                                        return true;
                                t = t.BaseType;
                        }
                        return false;
                }*/

                public override Type UnderlyingSystemType {
                        get {
                                if (is_created)
                                        return created.UnderlyingSystemType;

                                if (IsEnum && !IsCompilerContext) {
                                        if (underlying_type != null)
                                                return underlying_type;
                                        throw new InvalidOperationException (
                                                "Enumeration type is not defined.");
                                }

                                return this;
                        }
                }

                string GetFullName ()
                {
                        if (nesting_type != null)
                                return String.Concat (nesting_type.FullName, "+", tname);
                        if ((nspace != null) && (nspace.Length > 0))
                                return String.Concat (nspace, ".", tname);
                        return tname;
                }
        
                public override string FullName {
                        get {
                                return fullname;
                        }
                }
        
                public override Guid GUID {
                        get {
                                check_created ();
                                return created.GUID;
                        }
                }

                public override Module Module {
                        get {return pmodule;}
                }

                public override string Name {
                        get {return tname;}
                }

                public override string Namespace {
                        get {return nspace;}
                }

                public PackingSize PackingSize {
                        get {return packing_size;}
                }

                public int Size {
                        get { return class_size; }
                }

                public override Type ReflectedType {
                        get { return nesting_type; }
                }

                public void AddDeclarativeSecurity (SecurityAction action, PermissionSet pset)
                {
#if !NET_2_1
                        if (pset == null)
                                throw new ArgumentNullException ("pset");
                        if ((action == SecurityAction.RequestMinimum) ||
                                (action == SecurityAction.RequestOptional) ||
                                (action == SecurityAction.RequestRefuse))
                                throw new ArgumentOutOfRangeException ("Request* values are not permitted", "action");

                        check_not_created ();

                        if (permissions != null) {
                                /* Check duplicate actions */
                                foreach (RefEmitPermissionSet set in permissions)
                                        if (set.action == action)
                                                throw new InvalidOperationException ("Multiple permission sets specified with the same SecurityAction.");

                                RefEmitPermissionSet[] new_array = new RefEmitPermissionSet [permissions.Length + 1];
                                permissions.CopyTo (new_array, 0);
                                permissions = new_array;
                        }
                        else
                                permissions = new RefEmitPermissionSet [1];

                        permissions [permissions.Length - 1] = new RefEmitPermissionSet (action, pset.ToXml ().ToString ());
                        attrs |= TypeAttributes.HasSecurity;
#endif
                }

                [ComVisible (true)]
                public void AddInterfaceImplementation (Type interfaceType)
                {
                        if (interfaceType == null)
                                throw new ArgumentNullException ("interfaceType");
                        check_not_created ();

                        if (interfaces != null) {
                                // Check for duplicates
                                foreach (Type t in interfaces)
                                        if (t == interfaceType)
                                                return;

                                Type[] ifnew = new Type [interfaces.Length + 1];
                                interfaces.CopyTo (ifnew, 0);
                                ifnew [interfaces.Length] = interfaceType;
                                interfaces = ifnew;
                        } else {
                                interfaces = new Type [1];
                                interfaces [0] = interfaceType;
                        }
                }

                protected override ConstructorInfo GetConstructorImpl (BindingFlags bindingAttr, Binder binder,
                                                                       CallingConventions callConvention, Type[] types,
                                                                       ParameterModifier[] modifiers)
                {
                        check_created ();

                        if (created == typeof (object)) {
                                /* 
                                 * This happens when building corlib. Calling created.GetConstructor 
                                 * would return constructors from the real mscorlib, instead of the
                                 * newly built one.
                                 */

                                if (ctors == null)
                                        return null;
 
                                ConstructorBuilder found = null;
                                int count = 0;
                        
                                foreach (ConstructorBuilder cb in ctors) {
                                        if (callConvention != CallingConventions.Any && cb.CallingConvention != callConvention)
                                                continue;
                                        found = cb;
                                        count++;
                                }

                                if (count == 0)
                                        return null;
                                if (types == null) {
                                        if (count > 1)
                                                throw new AmbiguousMatchException ();
                                        return found;
                                }
                                MethodBase[] match = new MethodBase [count];
                                if (count == 1)
                                        match [0] = found;
                                else {
                                        count = 0;
                                        foreach (ConstructorInfo m in ctors) {
                                                if (callConvention != CallingConventions.Any && m.CallingConvention != callConvention)
                                                        continue;
                                                match [count++] = m;
                                        }
                                }
                                if (binder == null)
                                        binder = Binder.DefaultBinder;
                                return (ConstructorInfo) binder.SelectMethod (bindingAttr, match,
                                                                                                                          types, modifiers);
                        }

                        return created.GetConstructor (bindingAttr, binder, 
                                callConvention, types, modifiers);
                }

                public override bool IsDefined (Type attributeType, bool inherit)
                {
                        if (!is_created && !IsCompilerContext)
                                throw new NotSupportedException ();
                        /*
                         * MS throws NotSupported here, but we can't because some corlib
                         * classes make calls to IsDefined.
                         */
                        return MonoCustomAttrs.IsDefined (this, attributeType, inherit);
                }
                
                public override object[] GetCustomAttributes(bool inherit)
                {
                        check_created ();

                        return created.GetCustomAttributes (inherit);
                }
                
                public override object[] GetCustomAttributes(Type attributeType, bool inherit)
                {
                        check_created ();

                        return created.GetCustomAttributes (attributeType, inherit);
                }

                public TypeBuilder DefineNestedType (string name)
                {
                        return DefineNestedType (name, TypeAttributes.NestedPrivate,
                                pmodule.assemblyb.corlib_object_type, null);
                }

                public TypeBuilder DefineNestedType (string name, TypeAttributes attr)
                {
                        return DefineNestedType (name, attr, pmodule.assemblyb.corlib_object_type, null);
                }

                public TypeBuilder DefineNestedType (string name, TypeAttributes attr, Type parent)
                {
                        return DefineNestedType (name, attr, parent, null);
                }

                private TypeBuilder DefineNestedType (string name, TypeAttributes attr, Type parent, Type[] interfaces,
                                                      PackingSize packSize, int typeSize)
                {
                        // Visibility must be NestedXXX
                        /* This breaks mcs
                        if (((attrs & TypeAttributes.VisibilityMask) == TypeAttributes.Public) ||
                                ((attrs & TypeAttributes.VisibilityMask) == TypeAttributes.NotPublic))
                                throw new ArgumentException ("attr", "Bad type flags for nested type.");
                        */
                        if (interfaces != null)
                                foreach (Type iface in interfaces)
                                        if (iface == null)
                                                throw new ArgumentNullException ("interfaces");

                        TypeBuilder res = new TypeBuilder (pmodule, name, attr, parent, interfaces, packSize, typeSize, this);
                        res.fullname = res.GetFullName ();
                        pmodule.RegisterTypeName (res, res.fullname);
                        if (subtypes != null) {
                                TypeBuilder[] new_types = new TypeBuilder [subtypes.Length + 1];
                                System.Array.Copy (subtypes, new_types, subtypes.Length);
                                new_types [subtypes.Length] = res;
                                subtypes = new_types;
                        } else {
                                subtypes = new TypeBuilder [1];
                                subtypes [0] = res;
                        }
                        return res;
                }

                [ComVisible (true)]
                public TypeBuilder DefineNestedType (string name, TypeAttributes attr, Type parent, Type[] interfaces)
                {
                        return DefineNestedType (name, attr, parent, interfaces, PackingSize.Unspecified, UnspecifiedTypeSize);
                }

                public TypeBuilder DefineNestedType (string name, TypeAttributes attr, Type parent, int typeSize)
                {
                        return DefineNestedType (name, attr, parent, null, PackingSize.Unspecified, typeSize);
                }

                public TypeBuilder DefineNestedType (string name, TypeAttributes attr, Type parent, PackingSize packSize)
                {
                        return DefineNestedType (name, attr, parent, null, packSize, UnspecifiedTypeSize);
                }

                [ComVisible (true)]
                public ConstructorBuilder DefineConstructor (MethodAttributes attributes, CallingConventions callingConvention, Type[] parameterTypes)
                {
                        return DefineConstructor (attributes, callingConvention, parameterTypes, null, null);
                }

                [ComVisible (true)]
                public ConstructorBuilder DefineConstructor (MethodAttributes attributes, CallingConventions callingConvention, Type[] parameterTypes, Type[][] requiredCustomModifiers, Type[][] optionalCustomModifiers)
                {
                        check_not_created ();
                        ConstructorBuilder cb = new ConstructorBuilder (this, attributes,
                                callingConvention, parameterTypes, requiredCustomModifiers,
                                optionalCustomModifiers);
                        if (ctors != null) {
                                ConstructorBuilder[] new_ctors = new ConstructorBuilder [ctors.Length+1];
                                System.Array.Copy (ctors, new_ctors, ctors.Length);
                                new_ctors [ctors.Length] = cb;
                                ctors = new_ctors;
                        } else {
                                ctors = new ConstructorBuilder [1];
                                ctors [0] = cb;
                        }
                        return cb;
                }

                [ComVisible (true)]
                public ConstructorBuilder DefineDefaultConstructor (MethodAttributes attributes)
                {
                        Type parent_type;

                        if (parent != null)
                                parent_type = parent;
                        else
                                parent_type = pmodule.assemblyb.corlib_object_type;

                        ConstructorInfo parent_constructor =
                                parent_type.GetConstructor (
                                        BindingFlags.Public | BindingFlags.NonPublic | BindingFlags.Instance,
                                        null, Type.EmptyTypes, null);
                        if (parent_constructor == null) {
                                throw new NotSupportedException ("Parent does"
                                        + " not have a default constructor."
                                        + " The default constructor must be"
                                        + " explicitly defined.");
                        }

                        ConstructorBuilder cb = DefineConstructor (attributes, 
                                CallingConventions.Standard, Type.EmptyTypes);
                        ILGenerator ig = cb.GetILGenerator ();
                        ig.Emit (OpCodes.Ldarg_0);
                        ig.Emit (OpCodes.Call, parent_constructor);
                        ig.Emit (OpCodes.Ret);
                        return cb;
                }

                private void append_method (MethodBuilder mb)
                {
                        if (methods != null) {
                                if (methods.Length == num_methods) {
                                        MethodBuilder[] new_methods = new MethodBuilder [methods.Length * 2];
                                        System.Array.Copy (methods, new_methods, num_methods);
                                        methods = new_methods;
                                }
                        } else {
                                methods = new MethodBuilder [1];
                        }
                        methods [num_methods] = mb;
                        num_methods ++;
                }

                public MethodBuilder DefineMethod (string name, MethodAttributes attributes, Type returnType, Type[] parameterTypes)
                {
                        return DefineMethod (name, attributes, CallingConventions.Standard,
                                returnType, parameterTypes);
                }

                public MethodBuilder DefineMethod (string name, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] parameterTypes)
                {
                        return DefineMethod (name, attributes, callingConvention, returnType,
                                null, null, parameterTypes, null, null);
                }

                public MethodBuilder DefineMethod (string name, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] returnTypeRequiredCustomModifiers, Type[] returnTypeOptionalCustomModifiers, Type[] parameterTypes, Type[][] parameterTypeRequiredCustomModifiers, Type[][] parameterTypeOptionalCustomModifiers)
                {
                        check_name ("name", name);
                        check_not_created ();
                        if (IsInterface && (
                                !((attributes & MethodAttributes.Abstract) != 0) || 
                                !((attributes & MethodAttributes.Virtual) != 0)) &&
                                !(((attributes & MethodAttributes.Static) != 0)))
                                throw new ArgumentException ("Interface method must be abstract and virtual.");

                        if (returnType == null)
                                returnType = pmodule.assemblyb.corlib_void_type;
                        MethodBuilder res = new MethodBuilder (this, name, attributes, 
                                callingConvention, returnType,
                                returnTypeRequiredCustomModifiers,
                                returnTypeOptionalCustomModifiers, parameterTypes,
                                parameterTypeRequiredCustomModifiers,
                                parameterTypeOptionalCustomModifiers);
                        append_method (res);
                        return res;
                }

                public MethodBuilder DefinePInvokeMethod (string name, string dllName, string entryName, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] parameterTypes, CallingConvention nativeCallConv, CharSet nativeCharSet)
                {
                        return DefinePInvokeMethod (name, dllName, entryName, attributes,
                                callingConvention, returnType, null, null, parameterTypes,
                                null, null, nativeCallConv, nativeCharSet);
                }

                public MethodBuilder DefinePInvokeMethod (
                                                string name, 
                                                string dllName, 
                                                string entryName, MethodAttributes attributes, 
                                                CallingConventions callingConvention, 
                                                Type returnType, 
                                                Type[] returnTypeRequiredCustomModifiers, 
                                                Type[] returnTypeOptionalCustomModifiers, 
                                                Type[] parameterTypes, 
                                                Type[][] parameterTypeRequiredCustomModifiers, 
                                                Type[][] parameterTypeOptionalCustomModifiers, 
                                                CallingConvention nativeCallConv, 
                                                CharSet nativeCharSet)
                {
                        check_name ("name", name);
                        check_name ("dllName", dllName);
                        check_name ("entryName", entryName);
                        if ((attributes & MethodAttributes.Abstract) != 0)
                                throw new ArgumentException ("PInvoke methods must be static and native and cannot be abstract.");
                        if (IsInterface)
                                throw new ArgumentException ("PInvoke methods cannot exist on interfaces.");
                        check_not_created ();

                        MethodBuilder res 
                                = new MethodBuilder (
                                                this, 
                                                name, 
                                                attributes, 
                                                callingConvention,
                                                returnType, 
                                                returnTypeRequiredCustomModifiers, 
                                                returnTypeOptionalCustomModifiers, 
                                                parameterTypes, 
                                                parameterTypeRequiredCustomModifiers, 
                                                parameterTypeOptionalCustomModifiers,
                                                dllName, 
                                                entryName, 
                                                nativeCallConv, 
                                                nativeCharSet);
                        append_method (res);
                        return res;
                }

                public MethodBuilder DefinePInvokeMethod (string name, string dllName, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] parameterTypes, CallingConvention nativeCallConv, CharSet nativeCharSet) {
                        return DefinePInvokeMethod (name, dllName, name, attributes, callingConvention, returnType, parameterTypes,
                                nativeCallConv, nativeCharSet);
                }

                public MethodBuilder DefineMethod (string name, MethodAttributes attributes)
                {
                        return DefineMethod (name, attributes, CallingConventions.Standard);
                }

                public MethodBuilder DefineMethod (string name, MethodAttributes attributes, CallingConventions callingConvention)
                {
                        return DefineMethod (name, attributes, callingConvention, null, null);
                }

                public void DefineMethodOverride (MethodInfo methodInfoBody, MethodInfo methodInfoDeclaration)
                {
                        if (methodInfoBody == null)
                                throw new ArgumentNullException ("methodInfoBody");
                        if (methodInfoDeclaration == null)
                                throw new ArgumentNullException ("methodInfoDeclaration");
                        check_not_created ();
                        if (methodInfoBody.DeclaringType != this)
                                throw new ArgumentException ("method body must belong to this type");

                        if (methodInfoBody is MethodBuilder) {
                                MethodBuilder mb = (MethodBuilder)methodInfoBody;
                                mb.set_override (methodInfoDeclaration);
                        }
                }

                public FieldBuilder DefineField (string fieldName, Type type, FieldAttributes attributes)
                {
                        return DefineField (fieldName, type, null, null, attributes);
                }

                public FieldBuilder DefineField (string fieldName, Type type, Type[] requiredCustomModifiers, Type[] optionalCustomModifiers, FieldAttributes attributes)
                {
                        check_name ("fieldName", fieldName);
                        if (type == typeof (void))
                                throw new ArgumentException ("Bad field type in defining field.");
                        check_not_created ();

                        FieldBuilder res = new FieldBuilder (this, fieldName, type, attributes, requiredCustomModifiers, optionalCustomModifiers);
                        if (fields != null) {
                                if (fields.Length == num_fields) {
                                        FieldBuilder[] new_fields = new FieldBuilder [fields.Length * 2];
                                        System.Array.Copy (fields, new_fields, num_fields);
                                        fields = new_fields;
                                }
                                fields [num_fields] = res;
                                num_fields ++;
                        } else {
                                fields = new FieldBuilder [1];
                                fields [0] = res;
                                num_fields ++;
                                create_internal_class (this);
                        }

                        if (IsEnum && !IsCompilerContext) {
                                if (underlying_type == null && (attributes & FieldAttributes.Static) == 0)
                                        underlying_type = type;
                        }

                        return res;
                }

                public PropertyBuilder DefineProperty (string name, PropertyAttributes attributes, Type returnType, Type[] parameterTypes)
                {
                        return DefineProperty (name, attributes, returnType, null, null, parameterTypes, null, null);
                }

                public  PropertyBuilder DefineProperty (string name, PropertyAttributes attributes, Type returnType, Type[] returnTypeRequiredCustomModifiers, Type[] returnTypeOptionalCustomModifiers, Type[] parameterTypes, Type[][] parameterTypeRequiredCustomModifiers, Type[][] parameterTypeOptionalCustomModifiers)
                {
                        check_name ("name", name);
                        if (parameterTypes != null)
                                foreach (Type param in parameterTypes)
                                        if (param == null)
                                                throw new ArgumentNullException ("parameterTypes");
                        check_not_created ();

                        PropertyBuilder res = new PropertyBuilder (this, name, attributes, returnType, returnTypeRequiredCustomModifiers, returnTypeOptionalCustomModifiers, parameterTypes, parameterTypeRequiredCustomModifiers, parameterTypeOptionalCustomModifiers);

                        if (properties != null) {
                                PropertyBuilder[] new_properties = new PropertyBuilder [properties.Length+1];
                                System.Array.Copy (properties, new_properties, properties.Length);
                                new_properties [properties.Length] = res;
                                properties = new_properties;
                        } else {
                                properties = new PropertyBuilder [1];
                                properties [0] = res;
                        }
                        return res;
                }

                [ComVisible (true)]
                public ConstructorBuilder DefineTypeInitializer()
                {
                        return DefineConstructor (MethodAttributes.Public |
                                MethodAttributes.Static | MethodAttributes.SpecialName |
                                MethodAttributes.RTSpecialName, CallingConventions.Standard,
                                null);
                }

                [MethodImplAttribute(MethodImplOptions.InternalCall)]
                private extern Type create_runtime_class (TypeBuilder tb);

                private bool is_nested_in (Type t)
                {
                        while (t != null) {
                                if (t == this)
                                        return true;
                                else
                                        t = t.DeclaringType;
                        }
                        return false;
                }

                // Return whenever this type has a ctor defined using DefineMethod ()
                private bool has_ctor_method () {
                        MethodAttributes ctor_attrs = MethodAttributes.SpecialName | MethodAttributes.RTSpecialName;

                        for (int i = 0; i < num_methods; ++i) {
                                MethodBuilder mb = (MethodBuilder)(methods[i]);

                                if (mb.Name == ConstructorInfo.ConstructorName && (mb.Attributes & ctor_attrs) == ctor_attrs)
                                        return true;
                        }

                        return false;
            }
                
                public Type CreateType()
                {
                        /* handle nesting_type */
                        if (createTypeCalled)
                                return created;

                        if (!IsInterface && (parent == null) && (this != pmodule.assemblyb.corlib_object_type) && (FullName != "<Module>")) {
                                SetParent (pmodule.assemblyb.corlib_object_type);
                        }

                        create_generic_class ();

                        // Fire TypeResolve events for fields whose type is an unfinished
                        // value type.
                        if (fields != null) {
                                foreach (FieldBuilder fb in fields) {
                                        if (fb == null)
                                                continue;
                                        Type ft = fb.FieldType;
                                        if (!fb.IsStatic && (ft is TypeBuilder) && ft.IsValueType && (ft != this) && is_nested_in (ft)) {
                                                TypeBuilder tb = (TypeBuilder)ft;
                                                if (!tb.is_created) {
                                                        AppDomain.CurrentDomain.DoTypeResolve (tb);
                                                        if (!tb.is_created) {
                                                                // FIXME: We should throw an exception here,
                                                                // but mcs expects that the type is created
                                                                // even if the exception is thrown
                                                                //throw new TypeLoadException ("Could not load type " + tb);
                                                        }
                                                }
                                        }
                                }
                        }

                        if ((parent != null) && parent.IsSealed)
                                throw new TypeLoadException ("Could not load type '" + FullName + "' from assembly '" + Assembly + "' because the parent type is sealed.");

                        if (parent == pmodule.assemblyb.corlib_enum_type && methods != null)
                                throw new TypeLoadException ("Could not load type '" + FullName + "' from assembly '" + Assembly + "' because it is an enum with methods.");

                        if (methods != null) {
                                bool is_concrete = !IsAbstract;
                                for (int i = 0; i < num_methods; ++i) {
                                        MethodBuilder mb = (MethodBuilder)(methods[i]);
                                        if (is_concrete && mb.IsAbstract)
                                                throw new InvalidOperationException ("Type is concrete but has abstract method " + mb);
                                        mb.check_override ();
                                        mb.fixup ();
                                }
                        }

                        //
                        // On classes, define a default constructor if not provided
                        //
                        if (!(IsInterface || IsValueType) && (ctors == null) && (tname != "<Module>") && 
                                (GetAttributeFlagsImpl () & TypeAttributes.Abstract | TypeAttributes.Sealed) != (TypeAttributes.Abstract | TypeAttributes.Sealed) && !has_ctor_method ())
                                DefineDefaultConstructor (MethodAttributes.Public);

                        if (ctors != null){
                                foreach (ConstructorBuilder ctor in ctors) 
                                        ctor.fixup ();
                        }

                        createTypeCalled = true;
                        created = create_runtime_class (this);
                        if (created != null)
                                return created;
                        return this;
                }

                internal void GenerateDebugInfo (ISymbolWriter symbolWriter)
                {
                        symbolWriter.OpenNamespace (this.Namespace);

                        if (methods != null) {
                                for (int i = 0; i < num_methods; ++i) {
                                        MethodBuilder metb = (MethodBuilder) methods[i]; 
                                        metb.GenerateDebugInfo (symbolWriter);
                                }
                        }

                        if (ctors != null) {
                                foreach (ConstructorBuilder ctor in ctors)
                                        ctor.GenerateDebugInfo (symbolWriter);
                        }
                        
                        symbolWriter.CloseNamespace ();

                        if (subtypes != null) {
                                for (int i = 0; i < subtypes.Length; ++i)
                                        subtypes [i].GenerateDebugInfo (symbolWriter);
                        }
                }

                [ComVisible (true)]
                public override ConstructorInfo[] GetConstructors (BindingFlags bindingAttr)
                {
                        if (is_created)
                                return created.GetConstructors (bindingAttr);

                        if (!IsCompilerContext)
                                throw new NotSupportedException ();

                        return GetConstructorsInternal (bindingAttr);
                }

                internal ConstructorInfo[] GetConstructorsInternal (BindingFlags bindingAttr)
                {
                        if (ctors == null)
                                return new ConstructorInfo [0];
                        ArrayList l = new ArrayList ();
                        bool match;
                        MethodAttributes mattrs;
                        
                        foreach (ConstructorBuilder c in ctors) {
                                match = false;
                                mattrs = c.Attributes;
                                if ((mattrs & MethodAttributes.MemberAccessMask) == MethodAttributes.Public) {
                                        if ((bindingAttr & BindingFlags.Public) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.NonPublic) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                match = false;
                                if ((mattrs & MethodAttributes.Static) != 0) {
                                        if ((bindingAttr & BindingFlags.Static) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.Instance) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                l.Add (c);
                        }
                        ConstructorInfo[] result = new ConstructorInfo [l.Count];
                        l.CopyTo (result);
                        return result;
                }

                public override Type GetElementType ()
                {
                        throw new NotSupportedException ();
                }

                public override EventInfo GetEvent (string name, BindingFlags bindingAttr)
                {
                        check_created ();
                        return created.GetEvent (name, bindingAttr);
                }

                /* Needed to keep signature compatibility with MS.NET */
                public override EventInfo[] GetEvents ()
                {
                        return GetEvents (DefaultBindingFlags);
                }

                public override EventInfo[] GetEvents (BindingFlags bindingAttr)
                {
                        if (is_created)
                                return created.GetEvents (bindingAttr);
                        if (!IsCompilerContext)
                                throw new NotSupportedException ();
                        return new EventInfo [0]; /*FIXME shouldn't we return the events here?*/
                }

                // This is only used from MonoGenericInst.initialize().
                internal EventInfo[] GetEvents_internal (BindingFlags bindingAttr)
                {
                        if (events == null)
                                return new EventInfo [0];
                        ArrayList l = new ArrayList ();
                        bool match;
                        MethodAttributes mattrs;
                        MethodInfo accessor;

                        foreach (EventBuilder eb in events) {
                                if (eb == null)
                                        continue;
                                EventInfo c = get_event_info (eb);
                                match = false;
                                accessor = c.GetAddMethod (true);
                                if (accessor == null)
                                        accessor = c.GetRemoveMethod (true);
                                if (accessor == null)
                                        continue;
                                mattrs = accessor.Attributes;
                                if ((mattrs & MethodAttributes.MemberAccessMask) == MethodAttributes.Public) {
                                        if ((bindingAttr & BindingFlags.Public) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.NonPublic) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                match = false;
                                if ((mattrs & MethodAttributes.Static) != 0) {
                                        if ((bindingAttr & BindingFlags.Static) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.Instance) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                l.Add (c);
                        }
                        EventInfo[] result = new EventInfo [l.Count];
                        l.CopyTo (result);
                        return result;
                }

                public override FieldInfo GetField (string name, BindingFlags bindingAttr)
                {
                        if (created != null)
                                return created.GetField (name, bindingAttr);

                        if (fields == null)
                                return null;

                        bool match;
                        FieldAttributes mattrs;
                        
                        foreach (FieldInfo c in fields) {
                                if (c == null)
                                        continue;
                                if (c.Name != name)
                                        continue;
                                match = false;
                                mattrs = c.Attributes;
                                if ((mattrs & FieldAttributes.FieldAccessMask) == FieldAttributes.Public) {
                                        if ((bindingAttr & BindingFlags.Public) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.NonPublic) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                match = false;
                                if ((mattrs & FieldAttributes.Static) != 0) {
                                        if ((bindingAttr & BindingFlags.Static) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.Instance) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                return c;
                        }
                        return null;
                }

                public override FieldInfo[] GetFields (BindingFlags bindingAttr)
                {
                        if (created != null)
                                return created.GetFields (bindingAttr);

                        if (fields == null)
                                return new FieldInfo [0];
                        ArrayList l = new ArrayList ();
                        bool match;
                        FieldAttributes mattrs;
                        
                        foreach (FieldInfo c in fields) {
                                if (c == null)
                                        continue;
                                match = false;
                                mattrs = c.Attributes;
                                if ((mattrs & FieldAttributes.FieldAccessMask) == FieldAttributes.Public) {
                                        if ((bindingAttr & BindingFlags.Public) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.NonPublic) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                match = false;
                                if ((mattrs & FieldAttributes.Static) != 0) {
                                        if ((bindingAttr & BindingFlags.Static) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.Instance) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                l.Add (c);
                        }
                        FieldInfo[] result = new FieldInfo [l.Count];
                        l.CopyTo (result);
                        return result;
                }

                public override Type GetInterface (string name, bool ignoreCase)
                {
                        check_created ();
                        return created.GetInterface (name, ignoreCase);
                }
                
                public override Type[] GetInterfaces ()
                {
                        if (is_created)
                                return created.GetInterfaces ();

                        if (interfaces != null) {
                                Type[] ret = new Type [interfaces.Length];
                                interfaces.CopyTo (ret, 0);
                                return ret;
                        } else {
                                return Type.EmptyTypes;
                        }
                }

                public override MemberInfo[] GetMember (string name, MemberTypes type,
                                                                                                BindingFlags bindingAttr)
                {
                        check_created ();
                        return created.GetMember (name, type, bindingAttr);
                }

                public override MemberInfo[] GetMembers (BindingFlags bindingAttr)
                {
                        check_created ();
                        return created.GetMembers (bindingAttr);
                }

                private MethodInfo[] GetMethodsByName (string name, BindingFlags bindingAttr, bool ignoreCase, Type reflected_type)
                {
                        MethodInfo[] candidates;
                        bool match;
                        MethodAttributes mattrs;

                        if (((bindingAttr & BindingFlags.DeclaredOnly) == 0) && (parent != null)) {
                                MethodInfo [] parent_methods = parent.GetMethods (bindingAttr);
                                ArrayList parent_candidates = new ArrayList (parent_methods.Length);

                                bool flatten = (bindingAttr & BindingFlags.FlattenHierarchy) != 0;

                                for (int i = 0; i < parent_methods.Length; i++) {
                                        MethodInfo m = parent_methods [i];

                                        mattrs = m.Attributes;

                                        if (m.IsStatic && !flatten)
                                                continue;

                                        switch (mattrs & MethodAttributes.MemberAccessMask) {
                                        case MethodAttributes.Public:
                                                match = (bindingAttr & BindingFlags.Public) != 0;
                                                break;
                                        case MethodAttributes.Assembly:
                                                match = (bindingAttr & BindingFlags.NonPublic) != 0;
                                                break;
                                        case MethodAttributes.Private:
                                                match = false;
                                                break;
                                        default:
                                                match = (bindingAttr & BindingFlags.NonPublic) != 0;
                                                break;
                                        }

                                        if (match)
                                                parent_candidates.Add (m);
                                }

                                if (methods == null) {
                                        candidates = new MethodInfo [parent_candidates.Count];
                                        parent_candidates.CopyTo (candidates);
                                } else {
                                        candidates = new MethodInfo [methods.Length + parent_candidates.Count];
                                        parent_candidates.CopyTo (candidates, 0);
                                        methods.CopyTo (candidates, parent_candidates.Count);
                                }
                        }
                        else
                                candidates = methods;

                        if (candidates == null)
                                return new MethodInfo [0];

                        ArrayList l = new ArrayList ();

                        foreach (MethodInfo c in candidates) {
                                if (c == null)
                                        continue;
                                if (name != null) {
                                        if (String.Compare (c.Name, name, ignoreCase) != 0)
                                                continue;
                                }
                                match = false;
                                mattrs = c.Attributes;
                                if ((mattrs & MethodAttributes.MemberAccessMask) == MethodAttributes.Public) {
                                        if ((bindingAttr & BindingFlags.Public) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.NonPublic) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                match = false;
                                if ((mattrs & MethodAttributes.Static) != 0) {
                                        if ((bindingAttr & BindingFlags.Static) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.Instance) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                l.Add (c);
                        }

                        MethodInfo[] result = new MethodInfo [l.Count];
                        l.CopyTo (result);
                        return result;
                }

                public override MethodInfo[] GetMethods (BindingFlags bindingAttr)
                {
                        return GetMethodsByName (null, bindingAttr, false, this);
                }

                protected override MethodInfo GetMethodImpl (string name, BindingFlags bindingAttr,
                                                             Binder binder,
                                                             CallingConventions callConvention,
                                                             Type[] types, ParameterModifier[] modifiers)
                {
                        check_created ();

                        bool ignoreCase = ((bindingAttr & BindingFlags.IgnoreCase) != 0);
                        MethodInfo[] methods = GetMethodsByName (name, bindingAttr, ignoreCase, this);
                        MethodInfo found = null;
                        MethodBase[] match;
                        int typesLen = (types != null) ? types.Length : 0;
                        int count = 0;
                        
                        foreach (MethodInfo m in methods) {
                                // Under MS.NET, Standard|HasThis matches Standard...
                                if (callConvention != CallingConventions.Any && ((m.CallingConvention & callConvention) != callConvention))
                                        continue;
                                found = m;
                                count++;
                        }

                        if (count == 0)
                                return null;
                        
                        if (count == 1 && typesLen == 0) 
                                return found;

                        match = new MethodBase [count];
                        if (count == 1)
                                match [0] = found;
                        else {
                                count = 0;
                                foreach (MethodInfo m in methods) {
                                        if (callConvention != CallingConventions.Any && ((m.CallingConvention & callConvention) != callConvention))
                                                continue;
                                        match [count++] = m;
                                }
                        }
                        
                        if (types == null) 
                                return (MethodInfo) Binder.FindMostDerivedMatch (match);

                        if (binder == null)
                                binder = Binder.DefaultBinder;
                        
                        return (MethodInfo)binder.SelectMethod (bindingAttr, match, types, modifiers);
                }

                public override Type GetNestedType (string name, BindingFlags bindingAttr)
                {
                        check_created ();

                        if (subtypes == null)
                                return null;

                        foreach (TypeBuilder t in subtypes) {
                                if (!t.is_created)
                                        continue;
                                if ((t.attrs & TypeAttributes.VisibilityMask) == TypeAttributes.NestedPublic) {
                                        if ((bindingAttr & BindingFlags.Public) == 0)
                                                continue;
                                } else {
                                        if ((bindingAttr & BindingFlags.NonPublic) == 0)
                                                continue;
                                }
                                if (t.Name == name)
                                        return t.created;
                        }

                        return null;
                }

                public override Type[] GetNestedTypes (BindingFlags bindingAttr)
                {
                        if (!is_created && !IsCompilerContext)
                                throw new NotSupportedException ();

                        bool match;
                        ArrayList result = new ArrayList ();

                        if (subtypes == null)
                                return Type.EmptyTypes;
                        foreach (TypeBuilder t in subtypes) {
                                match = false;
                                if ((t.attrs & TypeAttributes.VisibilityMask) == TypeAttributes.NestedPublic) {
                                        if ((bindingAttr & BindingFlags.Public) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.NonPublic) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                result.Add (t);
                        }
                        Type[] r = new Type [result.Count];
                        result.CopyTo (r);
                        return r;
                }

                public override PropertyInfo[] GetProperties (BindingFlags bindingAttr)
                {
                        if (is_created)
                                return created.GetProperties (bindingAttr);

                        if (properties == null)
                                return new PropertyInfo [0];
                        ArrayList l = new ArrayList ();
                        bool match;
                        MethodAttributes mattrs;
                        MethodInfo accessor;
                        
                        foreach (PropertyInfo c in properties) {
                                match = false;
                                accessor = c.GetGetMethod (true);
                                if (accessor == null)
                                        accessor = c.GetSetMethod (true);
                                if (accessor == null)
                                        continue;
                                mattrs = accessor.Attributes;
                                if ((mattrs & MethodAttributes.MemberAccessMask) == MethodAttributes.Public) {
                                        if ((bindingAttr & BindingFlags.Public) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.NonPublic) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                match = false;
                                if ((mattrs & MethodAttributes.Static) != 0) {
                                        if ((bindingAttr & BindingFlags.Static) != 0)
                                                match = true;
                                } else {
                                        if ((bindingAttr & BindingFlags.Instance) != 0)
                                                match = true;
                                }
                                if (!match)
                                        continue;
                                l.Add (c);
                        }
                        PropertyInfo[] result = new PropertyInfo [l.Count];
                        l.CopyTo (result);
                        return result;
                }
                
                protected override PropertyInfo GetPropertyImpl (string name, BindingFlags bindingAttr, Binder binder, Type returnType, Type[] types, ParameterModifier[] modifiers)
                {
                        throw not_supported ();
                }

                protected override bool HasElementTypeImpl ()
                {
                        // a TypeBuilder can never represent an array, pointer
                        if (!is_created)
                                return false;

                        return created.HasElementType;
                }

                public override object InvokeMember (string name, BindingFlags invokeAttr, Binder binder, object target, object[] args, ParameterModifier[] modifiers, CultureInfo culture, string[] namedParameters)
                {
                        check_created ();
                        return created.InvokeMember (name, invokeAttr, binder, target, args, modifiers, culture, namedParameters);
                }

                protected override bool IsArrayImpl ()
                {
                        return false; /*A TypeBuilder never represents a non typedef type.*/
                }

                protected override bool IsByRefImpl ()
                {
                        return false; /*A TypeBuilder never represents a non typedef type.*/
                }

                protected override bool IsCOMObjectImpl ()
                {
                        return ((GetAttributeFlagsImpl () & TypeAttributes.Import) != 0);
                }

                protected override bool IsPointerImpl ()
                {
                        return false; /*A TypeBuilder never represents a non typedef type.*/
                }

                protected override bool IsPrimitiveImpl ()
                {
                        // FIXME
                        return false;
                }

                // FIXME: I doubt just removing this still works.
                protected override bool IsValueTypeImpl ()
                {
                        return ((type_is_subtype_of (this, pmodule.assemblyb.corlib_value_type, false) || type_is_subtype_of (this, typeof(System.ValueType), false)) &&
                                this != pmodule.assemblyb.corlib_value_type &&
                                this != pmodule.assemblyb.corlib_enum_type);
                }
                
                public override Type MakeArrayType ()
                {
                        return new ArrayType (this, 0);
                }

                public override Type MakeArrayType (int rank)
                {
                        if (rank < 1)
                                throw new IndexOutOfRangeException ();
                        return new ArrayType (this, rank);
                }

                public override Type MakeByRefType ()
                {
                        return new ByRefType (this);
                }

                [MonoTODO]
                public override Type MakeGenericType (params Type [] typeArguments)
                {
                        return base.MakeGenericType (typeArguments);
                }

                public override Type MakePointerType ()
                {
                        return new PointerType (this);
                }

                public override RuntimeTypeHandle TypeHandle {
                        get {
                                check_created ();
                                return created.TypeHandle;
                        }
                }
                
                //
                // Used internally by mcs only
                //
                internal void SetCharSet (TypeAttributes ta)
                {
                        this.attrs = ta;
                }

                public void SetCustomAttribute (CustomAttributeBuilder customBuilder)
                {
                        if (customBuilder == null)
                                throw new ArgumentNullException ("customBuilder");

                        string attrname = customBuilder.Ctor.ReflectedType.FullName;
                        if (attrname == "System.Runtime.InteropServices.StructLayoutAttribute") {
                                byte[] data = customBuilder.Data;
                                int layout_kind; /* the (stupid) ctor takes a short or an int ... */
                                layout_kind = (int)data [2];
                                layout_kind |= ((int)data [3]) << 8;
                                attrs &= ~TypeAttributes.LayoutMask;
                                switch ((LayoutKind)layout_kind) {
                                case LayoutKind.Auto:
                                        attrs |= TypeAttributes.AutoLayout;
                                        break;
                                case LayoutKind.Explicit:
                                        attrs |= TypeAttributes.ExplicitLayout;
                                        break;
                                case LayoutKind.Sequential:
                                        attrs |= TypeAttributes.SequentialLayout;
                                        break;
                                default:
                                        // we should ignore it since it can be any value anyway...
                                        throw new Exception ("Error in customattr");
                                }
                                string first_type_name = customBuilder.Ctor.GetParameters()[0].ParameterType.FullName;
                                int pos = 6;
                                if (first_type_name == "System.Int16")
                                        pos = 4;
                                int nnamed = (int)data [pos++];
                                nnamed |= ((int)data [pos++]) << 8;
                                for (int i = 0; i < nnamed; ++i) {
                                        //byte named_type = data [pos++];
                                        pos ++;
                                        byte type = data [pos++];
                                        int len;
                                        string named_name;

                                        if (type == 0x55) {
                                                len = CustomAttributeBuilder.decode_len (data, pos, out pos);
                                                //string named_typename = 
                                                CustomAttributeBuilder.string_from_bytes (data, pos, len);
                                                pos += len;
                                                // FIXME: Check that 'named_type' and 'named_typename' match, etc.
                                                //        See related code/FIXME in mono/mono/metadata/reflection.c
                                        }

                                        len = CustomAttributeBuilder.decode_len (data, pos, out pos);
                                        named_name = CustomAttributeBuilder.string_from_bytes (data, pos, len);
                                        pos += len;
                                        /* all the fields are integers in StructLayout */
                                        int value = (int)data [pos++];
                                        value |= ((int)data [pos++]) << 8;
                                        value |= ((int)data [pos++]) << 16;
                                        value |= ((int)data [pos++]) << 24;
                                        switch (named_name) {
                                        case "CharSet":
                                                switch ((CharSet)value) {
                                                case CharSet.None:
                                                case CharSet.Ansi:
                                                        attrs &= ~(TypeAttributes.UnicodeClass | TypeAttributes.AutoClass);
                                                        break;
                                                case CharSet.Unicode:
                                                        attrs &= ~TypeAttributes.AutoClass;
                                                        attrs |= TypeAttributes.UnicodeClass;
                                                        break;
                                                case CharSet.Auto:
                                                        attrs &= ~TypeAttributes.UnicodeClass;
                                                        attrs |= TypeAttributes.AutoClass;
                                                        break;
                                                default:
                                                        break; // error out...
                                                }
                                                break;
                                        case "Pack":
                                                packing_size = (PackingSize)value;
                                                break;
                                        case "Size":
                                                class_size = value;
                                                break;
                                        default:
                                                break; // error out...
                                        }
                                }
                                return;
                        } else if (attrname == "System.Runtime.CompilerServices.SpecialNameAttribute") {
                                attrs |= TypeAttributes.SpecialName;
                                return;
                        } else if (attrname == "System.SerializableAttribute") {
                                attrs |= TypeAttributes.Serializable;
                                return;
                        } else if (attrname == "System.Runtime.InteropServices.ComImportAttribute") {
                                attrs |= TypeAttributes.Import;
                                return;
                        } else if (attrname == "System.Security.SuppressUnmanagedCodeSecurityAttribute") {
                                attrs |= TypeAttributes.HasSecurity;
                        }

                        if (cattrs != null) {
                                CustomAttributeBuilder[] new_array = new CustomAttributeBuilder [cattrs.Length + 1];
                                cattrs.CopyTo (new_array, 0);
                                new_array [cattrs.Length] = customBuilder;
                                cattrs = new_array;
                        } else {
                                cattrs = new CustomAttributeBuilder [1];
                                cattrs [0] = customBuilder;
                        }
                }

                [ComVisible (true)]
                public void SetCustomAttribute (ConstructorInfo con, byte[] binaryAttribute)
                {
                        SetCustomAttribute (new CustomAttributeBuilder (con, binaryAttribute));
                }

                public EventBuilder DefineEvent (string name, EventAttributes attributes, Type eventtype)
                {
                        check_name ("name", name);
                        if (eventtype == null)
                                throw new ArgumentNullException ("type");
                        check_not_created ();

                        EventBuilder res = new EventBuilder (this, name, attributes, eventtype);
                        if (events != null) {
                                EventBuilder[] new_events = new EventBuilder [events.Length+1];
                                System.Array.Copy (events, new_events, events.Length);
                                new_events [events.Length] = res;
                                events = new_events;
                        } else {
                                events = new EventBuilder [1];
                                events [0] = res;
                        }
                        return res;
                }

                public FieldBuilder DefineInitializedData (string name, byte[] data, FieldAttributes attributes) {
                        if (data == null)
                                throw new ArgumentNullException ("data");

                        FieldBuilder res = DefineUninitializedData (name, data.Length, attributes);
                        res.SetRVAData (data);
                        return res;
                }

                public FieldBuilder DefineUninitializedData (string name, int size, FieldAttributes attributes)
                {
                        if (name == null)
                                throw new ArgumentNullException ("name");
                        if (name.Length == 0)
                                throw new ArgumentException ("Empty name is not legal", "name");
                        if ((size <= 0) || (size > 0x3f0000))
                                throw new ArgumentException ("Data size must be > 0 and < 0x3f0000");
                        check_not_created ();

                        string typeName = "$ArrayType$" + size;
                        Type datablobtype = pmodule.GetRegisteredType (fullname + "+" + typeName);
                        if (datablobtype == null) {
                                TypeBuilder tb = DefineNestedType (typeName,
                                        TypeAttributes.NestedPrivate|TypeAttributes.ExplicitLayout|TypeAttributes.Sealed,
                                        pmodule.assemblyb.corlib_value_type, null, PackingSize.Size1, size);
                                tb.CreateType ();
                                datablobtype = tb;
                        }
                        return DefineField (name, datablobtype, attributes|FieldAttributes.Static|FieldAttributes.HasFieldRVA);
                }

                public TypeToken TypeToken {
                        get {
                                return new TypeToken (0x02000000 | table_idx);
                        }
                }

                public void SetParent (Type parent)
                {
                        check_not_created ();

                        if (parent == null) {
                                if ((attrs & TypeAttributes.Interface) != 0) {
                                        if ((attrs & TypeAttributes.Abstract) == 0)
                                                throw new InvalidOperationException ("Interface must be declared abstract.");
                                        this.parent = null;
                                } else {
                                        this.parent = typeof (object);
                                }
                        } else {
                                this.parent = parent;
                        }

                        // will just set the parent-related bits if called a second time
                        setup_internal_class (this);
                }

                internal int get_next_table_index (object obj, int table, bool inc) {
                        return pmodule.get_next_table_index (obj, table, inc);
                }

                [ComVisible (true)]
                public override InterfaceMapping GetInterfaceMap (Type interfaceType)
                {
                        if (created == null)
                                throw new NotSupportedException ("This method is not implemented for incomplete types.");

                        return created.GetInterfaceMap (interfaceType);
                }

                internal bool IsCompilerContext {
                        get {
                                return pmodule.assemblyb.IsCompilerContext;
                        }
                }

                internal bool is_created {
                        get {
                                return created != null;
                        }
                }

                private Exception not_supported ()
                {
                        return new NotSupportedException ("The invoked member is not supported in a dynamic module.");
                }

                private void check_not_created ()
                {
                        if (is_created)
                                throw new InvalidOperationException ("Unable to change after type has been created.");
                }

                private void check_created ()
                {
                        if (!is_created)
                                throw not_supported ();
                }

                private void check_name (string argName, string name)
                {
                        if (name == null)
                                throw new ArgumentNullException (argName);
                        if (name.Length == 0)
                                throw new ArgumentException ("Empty name is not legal", argName);
                        if (name [0] == ((char)0))
                                throw new ArgumentException ("Illegal name", argName);
                }

                public override String ToString ()
                {
                        return FullName;
                }

                [MonoTODO]
                public override bool IsAssignableFrom (Type c)
                {
                        return base.IsAssignableFrom (c);
                }

                [ComVisible (true)]
                [MonoTODO]
                public override bool IsSubclassOf (Type c)
                {
                        return base.IsSubclassOf (c);
                }

                [MonoTODO ("arrays")]
                internal bool IsAssignableTo (Type c)
                {
                        if (c == this)
                                return true;

                        if (c.IsInterface) {
                                if (parent != null && is_created) {
                                        if (c.IsAssignableFrom (parent))
                                                return true;
                                }

                                if (interfaces == null)
                                        return false;
                                foreach (Type t in interfaces)
                                        if (c.IsAssignableFrom (t))
                                                return true;
                                if (!is_created)
                                        return false;
                        }

                        if (parent == null)
                                return c == typeof (object);
                        else
                                return c.IsAssignableFrom (parent);
                }

                public bool IsCreated ()
                {
                        return is_created;
                }

                public override Type[] GetGenericArguments ()
                {
                        if (generic_params == null)
                                return null;
                        Type[] args = new Type [generic_params.Length];
                        generic_params.CopyTo (args, 0);
                        return args;
                }

                public override Type GetGenericTypeDefinition ()
                {
                        if (generic_params == null)
                                throw new InvalidOperationException ("Type is not generic");
                        return this;
                }

                public override bool ContainsGenericParameters {
                        get {
                                return generic_params != null;
                        }
                }

                public extern override bool IsGenericParameter {
                        [MethodImplAttribute(MethodImplOptions.InternalCall)]
                        get;
                }

                public override GenericParameterAttributes GenericParameterAttributes {
                        get { return GenericParameterAttributes.None; }
                }

                public override bool IsGenericTypeDefinition {
                        get {
                                return generic_params != null;
                        }
                }

                public override bool IsGenericType {
                        get { return IsGenericTypeDefinition; }
                }

                [MonoTODO]
                public override int GenericParameterPosition {
                        get {
                                return 0;
                        }
                }

                public override MethodBase DeclaringMethod {
                        get {
                                return null;
                        }
                }

                public GenericTypeParameterBuilder[] DefineGenericParameters (params string[] names)
                {
                        if (names == null)
                                throw new ArgumentNullException ("names");
                        if (names.Length == 0)
                                throw new ArgumentException ("names");

                        setup_generic_class ();

                        generic_params = new GenericTypeParameterBuilder [names.Length];
                        for (int i = 0; i < names.Length; i++) {
                                string item = names [i];
                                if (item == null)
                                        throw new ArgumentNullException ("names");
                                generic_params [i] = new GenericTypeParameterBuilder (this, null, item, i);
                        }

                        return generic_params;
                }

                public static ConstructorInfo GetConstructor (Type type, ConstructorInfo constructor)
                {
                        if (type == null)
                                throw new ArgumentException ("Type is not generic", "type");

                        ConstructorInfo res = type.GetConstructor (constructor);
                        if (res == null)
                                throw new ArgumentException ("constructor not found");

                        return res;
                }

                static bool IsValidGetMethodType (Type type)
                {
                        if (type is TypeBuilder || type is MonoGenericClass)
                                return true;
                        /*GetMethod() must work with TypeBuilders after CreateType() was called.*/
                        if (type.Module is ModuleBuilder)
                                return true;
                        if (type.IsGenericParameter)
                                return false;

                        Type[] inst = type.GetGenericArguments ();
                        if (inst == null)
                                return false;
                        for (int i = 0; i < inst.Length; ++i) {
                                if (IsValidGetMethodType (inst [i]))
                                        return true;
                        }
                        return false;
                }

                public static MethodInfo GetMethod (Type type, MethodInfo method)
                {
                        if (!IsValidGetMethodType (type))
                                throw new ArgumentException ("type is not TypeBuilder but " + type.GetType (), "type");

                        if (!type.IsGenericType)
                                throw new ArgumentException ("type is not a generic type", "type");

                        if (!method.DeclaringType.IsGenericTypeDefinition)
                                throw new ArgumentException ("method declaring type is not a generic type definition", "method");
                        if (method.DeclaringType != type.GetGenericTypeDefinition ())
                                throw new ArgumentException ("method declaring type is not the generic type definition of type", "method");

                        MethodInfo res = type.GetMethod (method);
                        if (res == null)
                                throw new ArgumentException (String.Format ("method {0} not found in type {1}", method.Name, type));
                                
                        return res;
                }

                public static FieldInfo GetField (Type type, FieldInfo field)
                {
                        FieldInfo res = type.GetField (field);
                        if (res == null)
                                throw new System.Exception ("field not found");
                        else
                                return res;
                }

                void _TypeBuilder.GetIDsOfNames([In] ref Guid riid, IntPtr rgszNames, uint cNames, uint lcid, IntPtr rgDispId)
                {
                        throw new NotImplementedException ();
                }

                void _TypeBuilder.GetTypeInfo (uint iTInfo, uint lcid, IntPtr ppTInfo)
                {
                        throw new NotImplementedException ();
                }

                void _TypeBuilder.GetTypeInfoCount (out uint pcTInfo)
                {
                        throw new NotImplementedException ();
                }

                void _TypeBuilder.Invoke (uint dispIdMember, [In] ref Guid riid, uint lcid, short wFlags, IntPtr pDispParams, IntPtr pVarResult, IntPtr pExcepInfo, IntPtr puArgErr)
                {
                        throw new NotImplementedException ();
                }
        }
}