rippinrobr

def define_property(tb, name, type, attributes=FieldAttributes.Public)

rippinrobr

# atually creates the dynamic assembly and then the dynamic module 
@assembly = AppDomain.CurrentDomain.DefineDynamicAssembly(@asm, 
 			   AssemblyBuilderAccess.RunAndSave)
@mod_builder = @assembly.DefineDynamicModule("#{@asm.Name}", 
						 @dll_name, 
						 false)

rippinrobr

def create_models
  # The where method here is from System.Linq
  @elem_svc.get_views.where( lambda{ |w|  w.end_date.nil? }).each do |e| 
     create_model(e)
  end
end

# Creates each individual model for the assembly and queues up 
# the domain level classes that are need to support the models
def create_model(view_obj)

rippinrobr

#-------------------------------------------------------------
# Creates the class type and returns it to the calling method.
# Any fields, properties, or methods will need the object.  If 
# no interface is need the simple call is made creating the 
# type object as a Public class.  The first two parameters are
# the same in both DefineType calls.  In the cases where we are
# implementing an interface we need to pass in the Object 
# constructor and the interface type we are implementing.
#-------------------------------------------------------------
  def define_class(class_name, interface=nil)

rippinrobr

def generate(class_name, fields_to_gen)
  class_obj = gen_class_type("Models", class_name)
  tables = create_properties(class_obj, fields_to_gen)
  model_type = class_obj.CreateType
  puts "Done!"

  [ model_type, tables ]
end

rippinrobr

get_method = tb.DefineMethod("get_#{name}", get_set_attr, type, Type.EmptyTypes) prop_il.Emit(OpCodes.Ldarg_0)
prop_il.Emit(OpCodes.Ldfld, private_field)
prop_il.Emit(OpCodes.Ret)

rippinrobr

# Define "set" accessor method for the property.
set_params = System::Collections::Generic::List.of(Type).new
set_params.add type
set_method = tb.DefineMethod("set_#{name}", get_set_attr, nil, 
                                            set_params.ToArray) 

rippinrobr

private_field = tb.DefineField("_#{name.downcase}", type, 
                                  FieldAttributes.Private)

rippinrobr

 prop = tb.DefineProperty(name, PropertyAttributes.HasDefault, 
                          type, nil) 

rippinrobr

prop_il.Emit(OpCodes.Ldarg_1)
prop_il.Emit(OpCodes.Stfld, private_field)