expressir 0.2.1 → 0.2.6

data/original/exp2ruby.rb

@@ -1,525 +1,525 @@
-require 'rexml/document'
-include REXML
-##
-## Set global variable for XML namespace prefix to use (including the colon)
-$xnspre = ""
-##
-## Set global variable that is the name of the Ruby module containing the resulting EXPRESS-based classes (make uppercase)
-$modname = ""
-##
-## Set up Part 28 writer functions for attributes of simple, aggregates of simple, instance reference and aggregate of instance reference
-##
-def write_attribute_text_p28writer(rubyfile, attribute_name)
-  rubyfile.puts "         a___" + attribute_name + ".text = " + attribute_name
-end
-def write_member_text_p28writer(rubyfile, attribute_name, attr_type,attr_aggr_dim)
-  rubyfile.puts "         for " + attribute_name + "___member in " + attribute_name
-  rubyfile.puts "            amember___" + attribute_name + " = a___" + attribute_name + ".add_element(" + "'ex:" +  attr_type.downcase + "-wrapper'" + ")"
-  rubyfile.puts "            amember___" + attribute_name + ".text = " + attribute_name + "___member"
-  rubyfile.puts "         end"
-end
-def write_attribute_id_p28writer(rubyfile, attribute_name)
-  rubyfile.puts "         a___" + attribute_name + " = a___" + attribute_name + ".add_element(" + attribute_name + ".getP28entity)"
-  rubyfile.puts "         a___" + attribute_name + ".attributes['ref'] = " + attribute_name + ".getP28id"
-  rubyfile.puts "         a___" + attribute_name + ".attributes['xsi:nil'] = 'true'"
-end
-def write_member_id_p28writer(rubyfile, attribute_name,attr_aggr_dim)
-  rubyfile.puts "         for " + attribute_name + "___member in " + attribute_name
-  rubyfile.puts "            amember___" + attribute_name + " = a___" + attribute_name + ".add_element(" + attribute_name + "___member.getP28entity)"
-  rubyfile.puts "            amember___" + attribute_name + ".attributes['ref'] = " + attribute_name + "___member" + ".getP28id"
-  rubyfile.puts "            amember___" + attribute_name + ".attributes['xsi:nil'] = 'true'"
-  rubyfile.puts "         end"
-end
-##
-## this function handles the output related to EXPRESS explicit attributes
-def handle_explicit(rubyfile, exp, attribute)
-  attr_redecl = attribute.elements["redeclaration"]
-  if attr_redecl == nil
-    rubyfile.puts "      if " + attribute.attributes["name"].downcase + " != nil"
-    rubyfile.puts "         a___" + attribute.attributes["name"].downcase + " = e___added.add_element('" + attribute.attributes["name"].capitalize + "'" + ")"
-    attr_builtintype = attribute.elements["builtintype"]
-    attr_type = attribute.elements["typename"]
-    attr_aggr = attribute.elements["aggregate"]
-    attr_aggr_dim = attribute.elements.size - 1
-    if attr_builtintype != nil
-      if attr_aggr == nil
-        write_attribute_text_p28writer(rubyfile, attribute.attributes["name"].downcase)
-      else
-        attr_datatype = attr_builtintype.attributes["type"]
-        write_member_text_p28writer(rubyfile, attribute.attributes["name"].downcase, attr_datatype,attr_aggr_dim)
-      end
-    end
-    if attr_type != nil
-      attr_type_name = attr_type.attributes["name"]
-      xp = "//schema/entity[@name = " + "'" + attr_type_name + "'" + "]"
-      attr_type_entity = exp.root.elements[xp]
-      if attr_type_entity != nil
-        if attr_aggr != nil
-          write_member_id_p28writer(rubyfile, attribute.attributes["name"].downcase,attr_aggr_dim)
-        else
-          write_attribute_id_p28writer(rubyfile, attribute.attributes["name"].downcase)
-        end
-      end
-      xp = "//schema/type[@name = " + "'" + attr_type_name + "'" + "]"
-      attr_type_type = exp.root.elements[xp]
-      if attr_type_type != nil
-        attr_type_type_builtin = attr_type_type.elements["builtintype"]
-        if attr_type_type_builtin != nil
-          write_attribute_text_p28writer(rubyfile, attribute.attributes["name"].downcase)
-        end
-				attr_type_type_enum = attr_type_type.elements["enumeration"]
-				if attr_type_type_enum != nil
-					if attr_aggr != nil
-						write_member_text_p28writer(rubyfile, attribute.attributes["name"].downcase, attr_datatype,attr_aggr_dim)
-					else
-						write_attribute_text_p28writer(rubyfile, attribute.attributes["name"].downcase)         
-          end
-        end
-
-        attr_type_type_select = attr_type_type.elements["select"]
-        if attr_type_type_select != nil
-          if attr_aggr != nil
-            write_member_id_p28writer(rubyfile, attribute.attributes["name"].downcase,attr_aggr_dim)
-          else
-            write_attribute_id_p28writer(rubyfile, attribute.attributes["name"].downcase)
-          end
-        end
-      end
-    end
-    rubyfile.puts "      end"
-  end
-end
-##
-## this function handles the p28 reader related to EXPRESS explicit attributes
-def handle_attr_p28read(rubyp28attr, exp, attribute)
-  attr_redecl = attribute.elements["redeclaration"]
-  if attr_redecl == nil
-    attr_builtintype = attribute.elements["builtintype"]
-    attr_type = attribute.elements["typename"]
-    attr_aggr = attribute.elements["aggregate"]
-    if attr_builtintype != nil
-      if attr_aggr == nil
-        write_attribute_text_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
-      else
-        attr_datatype = attr_builtintype.attributes["type"]
-        write_member_text_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
-      end
-    end
-    if attr_type != nil
-      attr_type_name = attr_type.attributes["name"]
-      xp = "//schema/entity[@name = " + "'" + attr_type_name + "'" + "]"
-      attr_type_entity = exp.root.elements[xp]
-      if attr_type_entity != nil
-        if attr_aggr != nil
-          write_member_id_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
-        else
-          write_attribute_id_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
-        end
-      end
-      xp = "//schema/type[@name = " + "'" + attr_type_name + "'" + "]"
-      attr_type_type = exp.root.elements[xp]
-      if attr_type_type != nil
-        attr_type_type_builtin = attr_type_type.elements["builtintype"]
-        if attr_type_type_builtin != nil
-          write_attribute_text_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
-        end
-
-				attr_type_type_enum = attr_type_type.elements["enumeration"]
-				if attr_type_type_enum != nil
-					write_attribute_text_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
-        end
-
-        attr_type_type_select = attr_type_type.elements["select"]
-        if attr_type_type_select != nil
-          if attr_aggr != nil
-            write_member_id_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
-          else
-            write_attribute_id_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
-          end
-        end
-      end
-    end
-  end
-end
-def get_all_supertypes(exp)
-  if $todo_array.size == 0
-    return
-  end
-  temp_array = $todo_array
-  new_name_array = []
-  temp_array.reverse_each do |super_name|
-    $name_array.push super_name
-    new_name_array.push super_name
-    $todo_array.pop
-  end
-  new_name_array.reverse_each do |super_name|
-    xp = "//schema/entity[@name = " + "'" + super_name + "'" + "]"
-    entity = exp.root.elements[xp]
-    supertypes = entity.attributes["supertypes"]
-    if supertypes != nil
-      supertype_names = supertypes.split
-      supertype_names.each do |super_name|
-        $todo_array.push super_name
-      end
-    end
-  end
-  get_all_supertypes(exp)
-end
-def write_read_P28_entity_instance_read(rubyp28inst, name)
-  rubyp28inst.puts "    if entity.name == " + "'" + name + "'"
-  rubyp28inst.puts "      r = " + $modname + "::" + name + ".new"
-  rubyp28inst.puts "      m.model_elements.push r"
-  rubyp28inst.puts "      r.putP28id(id.to_s)"
-  rubyp28inst.puts "    end"
-end
-def write_read_P28_attribute_value_read(rubyp28attr, ename, exp)
-  rubyp28attr.puts "    if entity.name == " + "'" + ename + "'"
-  rubyp28attr.puts "      for child in entity.elements"
-  xp = "//schema/entity[@name = " + "'" + ename + "'" + "]"
-  current_entity = exp.root.elements[xp]
-  supertypes = current_entity.attributes["supertypes"]
-  $name_array = []
-  $todo_array = []
-  if supertypes != nil
-    supertype_names = supertypes.split
-    supertype_names.each do |super_name|
-      $todo_array.push super_name
-    end
-  end
-  get_all_supertypes(exp)
-  $name_array.reverse_each do |super_name|
-    xp = "//schema/entity[@name = " + "'" + super_name + "'" + "]"
-    super_entity = exp.root.elements[xp]
-    for super_attribute in super_entity.elements.to_a("./explicit")
-      ## aname = super_attribute.attributes["name"]
-      handle_attr_p28read(rubyp28attr, exp, super_attribute)
-      ## write_attribute_text_p28reader(rubyp28attr,aname)
-    end
-  end
-  for current_attribute in current_entity.elements.to_a("./explicit")
-    ## aname = current_attribute.attributes["name"]
-    ## write_attribute_text_p28reader(rubyp28attr,aname)
-    handle_attr_p28read(rubyp28attr, exp, current_attribute)
-  end
-  rubyp28attr.puts "       end"
-  rubyp28attr.puts "    end"
-end
-def write_attribute_text_p28reader(rubyp28attr, attribute_name)
-  rubyp28attr.puts "        if child.name ==  '" + attribute_name.capitalize + "'"
-  rubyp28attr.puts "          r." + attribute_name.downcase + "= child.text()"
-  rubyp28attr.puts "        end"
-end
-def write_member_text_p28reader(rubyp28attr, attribute_name)
-  rubyp28attr.puts "        if child.name ==  '" + attribute_name.capitalize + "'"
-  rubyp28attr.puts "          memlist = []"
-  rubyp28attr.puts "          for member in child.elements"
-  rubyp28attr.puts "            memlist.push member.text()"
-  rubyp28attr.puts "          end"
-  rubyp28attr.puts "          r." + attribute_name.downcase + "= memlist"
-  rubyp28attr.puts "        end"
-end
-def write_member_id_p28reader(rubyp28attr, attribute_name)
-  rubyp28attr.puts "        if child.name ==  '" + attribute_name.capitalize + "'"
-  rubyp28attr.puts "          memlist = []"
-  rubyp28attr.puts "          for member in child.elements"
-  rubyp28attr.puts "            ref = member.attribute('ref')"
-  rubyp28attr.puts "            i = 0"
-  rubyp28attr.puts "              while i != -1"
-  rubyp28attr.puts "                tempid = m.model_elements[i].getP28id.to_s"
-  rubyp28attr.puts "                if tempid == ref.to_s"
-  rubyp28attr.puts "                  p = m.model_elements[i]"
-  rubyp28attr.puts "                  i = -2"
-  rubyp28attr.puts "                end"
-  rubyp28attr.puts " 	            i = i + 1"
-  rubyp28attr.puts "              end"
-  rubyp28attr.puts "            memlist.push p"
-  rubyp28attr.puts "          end"
-  rubyp28attr.puts "          r." + attribute_name.downcase + "= memlist"
-  rubyp28attr.puts "        end"
-end
-def write_attribute_id_p28reader(rubyp28attr, attribute_name)
-  rubyp28attr.puts "        if child.name ==  '" + attribute_name.capitalize + "'"
-  rubyp28attr.puts "          ref = child.elements[1].attribute('ref')"
-  rubyp28attr.puts "          i = 0"
-  rubyp28attr.puts "            while i != -1"
-  rubyp28attr.puts "              tempid = m.model_elements[i].getP28id.to_s"
-  rubyp28attr.puts "              if tempid == ref.to_s"
-  rubyp28attr.puts "                p = m.model_elements[i]"
-  rubyp28attr.puts "                i = -2"
-  rubyp28attr.puts "              end"
-  rubyp28attr.puts " 	          i = i + 1"
-  rubyp28attr.puts "            end"
-  rubyp28attr.puts "          r." + attribute_name.downcase + "= p"
-  rubyp28attr.puts "        end"
-end
-## exp2ruby
-## Version 0.1
-## 2006-09-07
-##
-## Parse input options : exp=<filename> prefix=<shortname> are required
-##
-exp_input = " "
-prefix_input = " "
-for arg in ARGV
-  argarray = arg.split('=')
-  if argarray[0] == "exp"
-    exp_input = argarray[1]
-  end
-  if argarray[0] == "prefix"
-    prefix_input = argarray[1]
-  end
-  if argarray[0] == "help" or argarray[0] == "-help" or argarray[0] == "--help"
-    puts "exp2ruby Version 0.1"
-    puts " "
-    puts "Usage : exp2ruby exp=<schema.xml> prefix=<shortname>"
-    puts " "
-    puts "  <schema.xml> 	required input EXPRESS as XML file"
-    puts "  <shortname> 	required XML Namespace prefix shortname (case sensitive) and Ruby module name (automatic upcase)"
-    puts "Example: exp2ruby exp=Model.XML prefix=ap233 results in ap233 for XML prefix and AP233 for Ruby module name for EXPRESS in Model.XML file"
-    exit
-  end
-end
-if exp_input == " "
-  puts "ERROR : No Schema XML input file (exp=<schema.xml>)"
-  exit
-end
-if prefix_input == " "
-  puts "ERROR : No XML Prefix and Ruby module name specified (prefix=<shortname>)"
-  exit
-end
-if FileTest.exist?(exp_input) != true
-  puts "ERROR : Schema XML input file not found : " + exp_input
-  exit
-end
-$modname = prefix_input.upcase
-$xnspre = prefix_input + ':'
-puts "exp2ruby : XML prefix = " + prefix_input
-puts "exp2ruby : Ruby module name = " + $modname
-##
-##  Set up EXPRESS XML File and new Ruby files
-##
-expxmlfile = File.new(exp_input, "r")
-exp = Document.new(expxmlfile)
-schema_element = exp.elements["//schema[1]"]
-schema_name = schema_element.attributes["name"]
-puts "exp2ruby : EXPRESS SCHEMA = " + schema_name.to_s
-rubyfile = File.new(schema_name + ".rb", "w")
-rubyfile.puts "require " + '"' + schema_name + "___module" + '"'
-rubyfile.puts "require " + '"' + schema_name + "___p28inst" + '"'
-rubyfile.puts "require " + '"' + schema_name + "___p28attr" + '"'
-rubyfile.puts  "module " + $modname
-rubymodule = File.new(schema_name + "___module.rb", "w")
-##
-## Set up P28 E2 instance reader code
-rubyp28inst = File.new(schema_name + "___p28inst.rb", "w")
-rubyp28inst.puts "def read_P28_entity_instances(p28doc,m)"
-rubyp28inst.puts "  uos = p28doc.root"
-rubyp28inst.puts "  for entity in uos.elements.to_a()"
-rubyp28inst.puts "    id = entity.attribute('id')"
-##
-## Set up P28 E2 attribute reader code
-rubyp28attr = File.new(schema_name + "___p28attr.rb", "w")
-rubyp28attr.puts "def read_P28_attribute_values(p28doc,m)"
-rubyp28attr.puts "  uos = p28doc.root"
-rubyp28attr.puts "  for entity in uos.elements.to_a()"
-rubyp28attr.puts "    id = entity.attribute('id')"
-rubyp28attr.puts "    i = 0"
-rubyp28attr.puts "    if entity.name != 'header'"
-rubyp28attr.puts "      while i != -1"
-rubyp28attr.puts "        tempid = m.model_elements[i].getP28id"
-rubyp28attr.puts "        if tempid == id.to_s"
-rubyp28attr.puts "          r = m.model_elements[i]"
-rubyp28attr.puts "          i = -2"
-rubyp28attr.puts "        end"
-rubyp28attr.puts "        i = i + 1"
-rubyp28attr.puts "      end"
-rubyp28attr.puts "    end"
-##
-## Global arrays used to deal with supertypes
-$name_array = []
-$todo_array = []
-##
-## WRITE a Ruby module for each entity type and include each locally-defined attribute
-##
-stime = Time.now
-ne = 0
-entity_list = exp.elements.to_a("//schema/entity")
-ce = entity_list.size
-for entity in entity_list
-  ne = ne + 1
-  puts "Entity " + ne.to_s + " of " + ce.to_s + " = " + entity.attributes["name"].to_s + "  (after " + ((Time.now - stime)/60).to_s + " minutes"
-  rubymodule.puts "module " + entity.attributes["name"].capitalize + "___module"
-  ##
-  ## write accessor (reader and writer) for each locally defined explicit attribute
-  ##
-  mandatory_attribute_name_list = []
-  for attribute in entity.elements.to_a("./explicit")
-    attr_redecl = attribute.elements["redeclaration"]
-    if attr_redecl == nil
-      rubymodule.puts "  attr_accessor :" + attribute.attributes["name"].downcase
-      if attribute.attributes["optional"] == nil or attribute.attributes["optional"].to_s == 'NO'
-        mandatory_attribute_name_list.push attribute.attributes["name"].downcase
-      end
-    end
-  end
-  if mandatory_attribute_name_list.size != 0
-				rubymodule.puts '  def isValid' + entity.attributes["name"].capitalize + "___module"
-				rubymodule.puts '    return case'
-				for mp in mandatory_attribute_name_list
-					rubymodule.puts '      when ' + mp + ' == nil : false'
-				end
-				rubymodule.puts '      else true'
-				rubymodule.puts '      end'
-				rubymodule.puts '  end'
-			else
-				rubymodule.puts '  def isValid' + entity.attributes["name"].capitalize + "___module"
-				rubymodule.puts '    return true'
-				rubymodule.puts '  end'
-			end
-  rubymodule.puts "end"
-  ##
-  ## WRITE P28 READER for each entity instance and attribute value
-  write_read_P28_entity_instance_read(rubyp28inst, entity.attributes["name"])
-  write_read_P28_attribute_value_read(rubyp28attr, entity.attributes["name"], exp)
-  ##
-  ## WRITE a Ruby class for each entity type, include module for it and each supertype
-  ##
-  rubyfile.puts "class " + entity.attributes["name"].capitalize
-  supertypes = entity.attributes["supertypes"]
-  $name_array = []
-  $todo_array = []
-  if supertypes != nil
-    supertype_names = supertypes.split
-    supertype_names.each do |super_name|
-      $todo_array.push super_name
-    end
-  end
-  get_all_supertypes(exp)
-  $name_array.reverse_each do |super_name|
-    rubyfile.puts "   include " + super_name.capitalize  + "___module"
-  end
-  rubyfile.puts "   include " + entity.attributes["name"].capitalize + "___module"
-  ##
-  ## write class variables containing the entity type and attribute names from the schema
-  ##
-  rubyfile.puts "   @@entity = " + "'" + entity.attributes["name"].capitalize + "'"
-  for attribute in entity.elements.to_a("./explicit")
-    attr_redecl = attribute.elements["redeclaration"]
-    if attr_redecl == nil
-      rubyfile.puts "   @@attr___" + attribute.attributes["name"].downcase + " = " + "'" + attribute.attributes["name"].capitalize + "'"
-    end
-  end
- 
-  ##
-  ## initialize the count of the number of instances of the class for the entity type
-  ## increment the count each time a new instance is created and use it to define a Part 28 E2 XML ID for the instance
-  ##
-  rubyfile.puts "   @@" + entity.attributes["name"].capitalize + "___count = 0"
-  rubyfile.puts "   def initialize"
-  rubyfile.puts "      @@" + entity.attributes["name"].capitalize + "___count += 1"
-  rubyfile.puts "      @p28id = " + "'" + "id-" + entity.attributes["name"].upcase + "-" + "' + " + "@@" + entity.attributes["name"].capitalize+ "___count.to_s"
-  rubyfile.puts "   end"
-  ##
-  ## add the method to check validity of instance
-  ##
-  rubyfile.puts '  def isValid'
-	rubyfile.puts '    return case'
-	rubyfile.puts '      when !isValid' + entity.attributes["name"].capitalize + '___module : false'						
-	$name_array.reverse_each do |super_name|
-	  rubyfile.puts '      when !isValid' + super_name.capitalize + '___module : false'
-	end
-	rubyfile.puts '      else true'
-	rubyfile.puts '      end'
-	rubyfile.puts '  end'
-  ##
-  ## add the method to write the Part 28 Edition 2 file content for the entity instance
-  ##
-  rubyfile.puts "   def writeP28 p28file"
-  rubyfile.puts "      e___added = p28file.root.add_element(" + "\'" + $xnspre + entity.attributes["name"].capitalize + "\', " + "{\'id\' => @p28id})"
-  ##
-  $name_array = []
-  $todo_array = []
-  if supertypes != nil
-    supertype_names = supertypes.split
-    supertype_names.each do |super_name|
-      $todo_array.push super_name
-    end
-  end
-  get_all_supertypes(exp)
-  $name_array.reverse_each do |super_name|
-    xp = "//entity[@name = " + "'" + super_name + "'" + "]"
-    super_entity = exp.root.elements[xp]
-    for super_attribute in super_entity.elements.to_a("./explicit")
-      handle_explicit(rubyfile, exp, super_attribute)
-    end
-  end
-  
-  for attribute in entity.elements.to_a("./explicit")
-    handle_explicit(rubyfile, exp, attribute)
-  end
-  
-  rubyfile.puts "   end"
-  rubyfile.puts "   def getP28id"
-  rubyfile.puts "      @p28id"
-  rubyfile.puts "   end"
-  rubyfile.puts "   def putP28id(the_id)"
-  rubyfile.puts "      @p28id = the_id"
-  rubyfile.puts "   end"
-  rubyfile.puts "   def getP28entity"
-  rubyfile.puts "      return(" + "'" + $xnspre + "'"  + " + @@entity)"
-  rubyfile.puts "   end"
-  rubyfile.puts "end"
-end
-rubyfile.puts "class Model___data"
-rubyfile.puts "	attr_reader :model_elements, :model_name, :namespace, :originating_system, :preprocessor_version"
-rubyfile.puts "	attr_writer :model_elements, :model_name, :namespace, :originating_system, :preprocessor_version"
-rubyfile.puts " def initialize"
-rubyfile.puts "   @model_elements = []"
-rubyfile.puts "   @namespace = '" + $xnspre.chop + "'"
-rubyfile.puts " end"
-rubyfile.puts "	def readP28e2 p28doc"
-rubyfile.puts "		puts 'Reading P28E2 XML'"
-rubyfile.puts "		read_P28_entity_instances(p28doc,self)"
-rubyfile.puts "		read_P28_attribute_values(p28doc,self)"
-rubyfile.puts "	end"
-rubyfile.puts "	require 'time'"
-rubyfile.puts "	def writeP28e2 p28file"
-rubyfile.puts "		puts 'Writing P28E2 with XML namespace = ' + namespace"
-rubyfile.puts "		@p28file = p28file"
-rubyfile.puts "		p28file << XMLDecl.new"
-rubyfile.puts "		the_ns = 'xmlns:' + namespace"
-rubyfile.puts "		the_uos = namespace + ':uos'"
-rubyfile.puts "		uos = p28file.add_element(the_uos, {the_ns => 'urn:iso10303-28:schema/" + schema_name.capitalize + "'})"
-rubyfile.puts "		uos.add_namespace('xsi','http://www.w3.org/2001/XMLSchema-instance')"
-rubyfile.puts "		uos.add_namespace('ex','urn:iso:std:iso:10303:28:ed-2:2005:schema:common')"
-rubyfile.puts "		uos.add_namespace('exp','urn:iso:std:iso:10303:28:ed-2:2005:schema:common')"
-rubyfile.puts "		uos.add_attribute('xsi:schemaLocation','urn:iso10303-28:schema/" + schema_name.capitalize + " " +  schema_name.capitalize + ".xsd')"
-rubyfile.puts "		header = p28file.root.add_element('exp:header')"
-rubyfile.puts "		t = header.add_element('time_stamp')"
-rubyfile.puts "		t.text = Time.now.xmlschema()"
-rubyfile.puts "		if self.originating_system != nil"
-rubyfile.puts "			t = header.add_element('preprocessor_version')"
-rubyfile.puts "			t.text = self.preprocessor_version"
-rubyfile.puts "		end"
-rubyfile.puts "		if self.originating_system != nil"
-rubyfile.puts "			t = header.add_element('originating_system')"
-rubyfile.puts "			t.text = self.originating_system"
-rubyfile.puts "		end"
-rubyfile.puts "		i = 1"
-rubyfile.puts "		for e in model_elements"
-rubyfile.puts "			puts i"
-rubyfile.puts "			e.writeP28(p28file)"
-rubyfile.puts "			i = i + 1"
-rubyfile.puts "	     end"
-rubyfile.puts "   end"
-rubyfile.puts "end"
-rubyfile.puts "end"
-rubyp28inst.puts "  end"
-rubyp28inst.puts "end"
-rubyp28attr.puts "  end"
-rubyp28attr.puts "end"
-expxmlfile.close
-rubyfile.close
-rubymodule.close
-rubyp28inst.close
-rubyp28attr.close
+require 'rexml/document'
+include REXML
+##
+## Set global variable for XML namespace prefix to use (including the colon)
+$xnspre = ""
+##
+## Set global variable that is the name of the Ruby module containing the resulting EXPRESS-based classes (make uppercase)
+$modname = ""
+##
+## Set up Part 28 writer functions for attributes of simple, aggregates of simple, instance reference and aggregate of instance reference
+##
+def write_attribute_text_p28writer(rubyfile, attribute_name)
+  rubyfile.puts "         a___" + attribute_name + ".text = " + attribute_name
+end
+def write_member_text_p28writer(rubyfile, attribute_name, attr_type,attr_aggr_dim)
+  rubyfile.puts "         for " + attribute_name + "___member in " + attribute_name
+  rubyfile.puts "            amember___" + attribute_name + " = a___" + attribute_name + ".add_element(" + "'ex:" +  attr_type.downcase + "-wrapper'" + ")"
+  rubyfile.puts "            amember___" + attribute_name + ".text = " + attribute_name + "___member"
+  rubyfile.puts "         end"
+end
+def write_attribute_id_p28writer(rubyfile, attribute_name)
+  rubyfile.puts "         a___" + attribute_name + " = a___" + attribute_name + ".add_element(" + attribute_name + ".getP28entity)"
+  rubyfile.puts "         a___" + attribute_name + ".attributes['ref'] = " + attribute_name + ".getP28id"
+  rubyfile.puts "         a___" + attribute_name + ".attributes['xsi:nil'] = 'true'"
+end
+def write_member_id_p28writer(rubyfile, attribute_name,attr_aggr_dim)
+  rubyfile.puts "         for " + attribute_name + "___member in " + attribute_name
+  rubyfile.puts "            amember___" + attribute_name + " = a___" + attribute_name + ".add_element(" + attribute_name + "___member.getP28entity)"
+  rubyfile.puts "            amember___" + attribute_name + ".attributes['ref'] = " + attribute_name + "___member" + ".getP28id"
+  rubyfile.puts "            amember___" + attribute_name + ".attributes['xsi:nil'] = 'true'"
+  rubyfile.puts "         end"
+end
+##
+## this function handles the output related to EXPRESS explicit attributes
+def handle_explicit(rubyfile, exp, attribute)
+  attr_redecl = attribute.elements["redeclaration"]
+  if attr_redecl == nil
+    rubyfile.puts "      if " + attribute.attributes["name"].downcase + " != nil"
+    rubyfile.puts "         a___" + attribute.attributes["name"].downcase + " = e___added.add_element('" + attribute.attributes["name"].capitalize + "'" + ")"
+    attr_builtintype = attribute.elements["builtintype"]
+    attr_type = attribute.elements["typename"]
+    attr_aggr = attribute.elements["aggregate"]
+    attr_aggr_dim = attribute.elements.size - 1
+    if attr_builtintype != nil
+      if attr_aggr == nil
+        write_attribute_text_p28writer(rubyfile, attribute.attributes["name"].downcase)
+      else
+        attr_datatype = attr_builtintype.attributes["type"]
+        write_member_text_p28writer(rubyfile, attribute.attributes["name"].downcase, attr_datatype,attr_aggr_dim)
+      end
+    end
+    if attr_type != nil
+      attr_type_name = attr_type.attributes["name"]
+      xp = "//schema/entity[@name = " + "'" + attr_type_name + "'" + "]"
+      attr_type_entity = exp.root.elements[xp]
+      if attr_type_entity != nil
+        if attr_aggr != nil
+          write_member_id_p28writer(rubyfile, attribute.attributes["name"].downcase,attr_aggr_dim)
+        else
+          write_attribute_id_p28writer(rubyfile, attribute.attributes["name"].downcase)
+        end
+      end
+      xp = "//schema/type[@name = " + "'" + attr_type_name + "'" + "]"
+      attr_type_type = exp.root.elements[xp]
+      if attr_type_type != nil
+        attr_type_type_builtin = attr_type_type.elements["builtintype"]
+        if attr_type_type_builtin != nil
+          write_attribute_text_p28writer(rubyfile, attribute.attributes["name"].downcase)
+        end
+				attr_type_type_enum = attr_type_type.elements["enumeration"]
+				if attr_type_type_enum != nil
+					if attr_aggr != nil
+						write_member_text_p28writer(rubyfile, attribute.attributes["name"].downcase, attr_datatype,attr_aggr_dim)
+					else
+						write_attribute_text_p28writer(rubyfile, attribute.attributes["name"].downcase)         
+          end
+        end
+
+        attr_type_type_select = attr_type_type.elements["select"]
+        if attr_type_type_select != nil
+          if attr_aggr != nil
+            write_member_id_p28writer(rubyfile, attribute.attributes["name"].downcase,attr_aggr_dim)
+          else
+            write_attribute_id_p28writer(rubyfile, attribute.attributes["name"].downcase)
+          end
+        end
+      end
+    end
+    rubyfile.puts "      end"
+  end
+end
+##
+## this function handles the p28 reader related to EXPRESS explicit attributes
+def handle_attr_p28read(rubyp28attr, exp, attribute)
+  attr_redecl = attribute.elements["redeclaration"]
+  if attr_redecl == nil
+    attr_builtintype = attribute.elements["builtintype"]
+    attr_type = attribute.elements["typename"]
+    attr_aggr = attribute.elements["aggregate"]
+    if attr_builtintype != nil
+      if attr_aggr == nil
+        write_attribute_text_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
+      else
+        attr_datatype = attr_builtintype.attributes["type"]
+        write_member_text_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
+      end
+    end
+    if attr_type != nil
+      attr_type_name = attr_type.attributes["name"]
+      xp = "//schema/entity[@name = " + "'" + attr_type_name + "'" + "]"
+      attr_type_entity = exp.root.elements[xp]
+      if attr_type_entity != nil
+        if attr_aggr != nil
+          write_member_id_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
+        else
+          write_attribute_id_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
+        end
+      end
+      xp = "//schema/type[@name = " + "'" + attr_type_name + "'" + "]"
+      attr_type_type = exp.root.elements[xp]
+      if attr_type_type != nil
+        attr_type_type_builtin = attr_type_type.elements["builtintype"]
+        if attr_type_type_builtin != nil
+          write_attribute_text_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
+        end
+
+				attr_type_type_enum = attr_type_type.elements["enumeration"]
+				if attr_type_type_enum != nil
+					write_attribute_text_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
+        end
+
+        attr_type_type_select = attr_type_type.elements["select"]
+        if attr_type_type_select != nil
+          if attr_aggr != nil
+            write_member_id_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
+          else
+            write_attribute_id_p28reader(rubyp28attr, attribute.attributes["name"].downcase)
+          end
+        end
+      end
+    end
+  end
+end
+def get_all_supertypes(exp)
+  if $todo_array.size == 0
+    return
+  end
+  temp_array = $todo_array
+  new_name_array = []
+  temp_array.reverse_each do |super_name|
+    $name_array.push super_name
+    new_name_array.push super_name
+    $todo_array.pop
+  end
+  new_name_array.reverse_each do |super_name|
+    xp = "//schema/entity[@name = " + "'" + super_name + "'" + "]"
+    entity = exp.root.elements[xp]
+    supertypes = entity.attributes["supertypes"]
+    if supertypes != nil
+      supertype_names = supertypes.split
+      supertype_names.each do |super_name|
+        $todo_array.push super_name
+      end
+    end
+  end
+  get_all_supertypes(exp)
+end
+def write_read_P28_entity_instance_read(rubyp28inst, name)
+  rubyp28inst.puts "    if entity.name == " + "'" + name + "'"
+  rubyp28inst.puts "      r = " + $modname + "::" + name + ".new"
+  rubyp28inst.puts "      m.model_elements.push r"
+  rubyp28inst.puts "      r.putP28id(id.to_s)"
+  rubyp28inst.puts "    end"
+end
+def write_read_P28_attribute_value_read(rubyp28attr, ename, exp)
+  rubyp28attr.puts "    if entity.name == " + "'" + ename + "'"
+  rubyp28attr.puts "      for child in entity.elements"
+  xp = "//schema/entity[@name = " + "'" + ename + "'" + "]"
+  current_entity = exp.root.elements[xp]
+  supertypes = current_entity.attributes["supertypes"]
+  $name_array = []
+  $todo_array = []
+  if supertypes != nil
+    supertype_names = supertypes.split
+    supertype_names.each do |super_name|
+      $todo_array.push super_name
+    end
+  end
+  get_all_supertypes(exp)
+  $name_array.reverse_each do |super_name|
+    xp = "//schema/entity[@name = " + "'" + super_name + "'" + "]"
+    super_entity = exp.root.elements[xp]
+    for super_attribute in super_entity.elements.to_a("./explicit")
+      ## aname = super_attribute.attributes["name"]
+      handle_attr_p28read(rubyp28attr, exp, super_attribute)
+      ## write_attribute_text_p28reader(rubyp28attr,aname)
+    end
+  end
+  for current_attribute in current_entity.elements.to_a("./explicit")
+    ## aname = current_attribute.attributes["name"]
+    ## write_attribute_text_p28reader(rubyp28attr,aname)
+    handle_attr_p28read(rubyp28attr, exp, current_attribute)
+  end
+  rubyp28attr.puts "       end"
+  rubyp28attr.puts "    end"
+end
+def write_attribute_text_p28reader(rubyp28attr, attribute_name)
+  rubyp28attr.puts "        if child.name ==  '" + attribute_name.capitalize + "'"
+  rubyp28attr.puts "          r." + attribute_name.downcase + "= child.text()"
+  rubyp28attr.puts "        end"
+end
+def write_member_text_p28reader(rubyp28attr, attribute_name)
+  rubyp28attr.puts "        if child.name ==  '" + attribute_name.capitalize + "'"
+  rubyp28attr.puts "          memlist = []"
+  rubyp28attr.puts "          for member in child.elements"
+  rubyp28attr.puts "            memlist.push member.text()"
+  rubyp28attr.puts "          end"
+  rubyp28attr.puts "          r." + attribute_name.downcase + "= memlist"
+  rubyp28attr.puts "        end"
+end
+def write_member_id_p28reader(rubyp28attr, attribute_name)
+  rubyp28attr.puts "        if child.name ==  '" + attribute_name.capitalize + "'"
+  rubyp28attr.puts "          memlist = []"
+  rubyp28attr.puts "          for member in child.elements"
+  rubyp28attr.puts "            ref = member.attribute('ref')"
+  rubyp28attr.puts "            i = 0"
+  rubyp28attr.puts "              while i != -1"
+  rubyp28attr.puts "                tempid = m.model_elements[i].getP28id.to_s"
+  rubyp28attr.puts "                if tempid == ref.to_s"
+  rubyp28attr.puts "                  p = m.model_elements[i]"
+  rubyp28attr.puts "                  i = -2"
+  rubyp28attr.puts "                end"
+  rubyp28attr.puts " 	            i = i + 1"
+  rubyp28attr.puts "              end"
+  rubyp28attr.puts "            memlist.push p"
+  rubyp28attr.puts "          end"
+  rubyp28attr.puts "          r." + attribute_name.downcase + "= memlist"
+  rubyp28attr.puts "        end"
+end
+def write_attribute_id_p28reader(rubyp28attr, attribute_name)
+  rubyp28attr.puts "        if child.name ==  '" + attribute_name.capitalize + "'"
+  rubyp28attr.puts "          ref = child.elements[1].attribute('ref')"
+  rubyp28attr.puts "          i = 0"
+  rubyp28attr.puts "            while i != -1"
+  rubyp28attr.puts "              tempid = m.model_elements[i].getP28id.to_s"
+  rubyp28attr.puts "              if tempid == ref.to_s"
+  rubyp28attr.puts "                p = m.model_elements[i]"
+  rubyp28attr.puts "                i = -2"
+  rubyp28attr.puts "              end"
+  rubyp28attr.puts " 	          i = i + 1"
+  rubyp28attr.puts "            end"
+  rubyp28attr.puts "          r." + attribute_name.downcase + "= p"
+  rubyp28attr.puts "        end"
+end
+## exp2ruby
+## Version 0.1
+## 2006-09-07
+##
+## Parse input options : exp=<filename> prefix=<shortname> are required
+##
+exp_input = " "
+prefix_input = " "
+for arg in ARGV
+  argarray = arg.split('=')
+  if argarray[0] == "exp"
+    exp_input = argarray[1]
+  end
+  if argarray[0] == "prefix"
+    prefix_input = argarray[1]
+  end
+  if argarray[0] == "help" or argarray[0] == "-help" or argarray[0] == "--help"
+    puts "exp2ruby Version 0.1"
+    puts " "
+    puts "Usage : exp2ruby exp=<schema.xml> prefix=<shortname>"
+    puts " "
+    puts "  <schema.xml> 	required input EXPRESS as XML file"
+    puts "  <shortname> 	required XML Namespace prefix shortname (case sensitive) and Ruby module name (automatic upcase)"
+    puts "Example: exp2ruby exp=Model.XML prefix=ap233 results in ap233 for XML prefix and AP233 for Ruby module name for EXPRESS in Model.XML file"
+    exit
+  end
+end
+if exp_input == " "
+  puts "ERROR : No Schema XML input file (exp=<schema.xml>)"
+  exit
+end
+if prefix_input == " "
+  puts "ERROR : No XML Prefix and Ruby module name specified (prefix=<shortname>)"
+  exit
+end
+if FileTest.exist?(exp_input) != true
+  puts "ERROR : Schema XML input file not found : " + exp_input
+  exit
+end
+$modname = prefix_input.upcase
+$xnspre = prefix_input + ':'
+puts "exp2ruby : XML prefix = " + prefix_input
+puts "exp2ruby : Ruby module name = " + $modname
+##
+##  Set up EXPRESS XML File and new Ruby files
+##
+expxmlfile = File.new(exp_input, "r")
+exp = Document.new(expxmlfile)
+schema_element = exp.elements["//schema[1]"]
+schema_name = schema_element.attributes["name"]
+puts "exp2ruby : EXPRESS SCHEMA = " + schema_name.to_s
+rubyfile = File.new(schema_name + ".rb", "w")
+rubyfile.puts "require " + '"' + schema_name + "___module" + '"'
+rubyfile.puts "require " + '"' + schema_name + "___p28inst" + '"'
+rubyfile.puts "require " + '"' + schema_name + "___p28attr" + '"'
+rubyfile.puts  "module " + $modname
+rubymodule = File.new(schema_name + "___module.rb", "w")
+##
+## Set up P28 E2 instance reader code
+rubyp28inst = File.new(schema_name + "___p28inst.rb", "w")
+rubyp28inst.puts "def read_P28_entity_instances(p28doc,m)"
+rubyp28inst.puts "  uos = p28doc.root"
+rubyp28inst.puts "  for entity in uos.elements.to_a()"
+rubyp28inst.puts "    id = entity.attribute('id')"
+##
+## Set up P28 E2 attribute reader code
+rubyp28attr = File.new(schema_name + "___p28attr.rb", "w")
+rubyp28attr.puts "def read_P28_attribute_values(p28doc,m)"
+rubyp28attr.puts "  uos = p28doc.root"
+rubyp28attr.puts "  for entity in uos.elements.to_a()"
+rubyp28attr.puts "    id = entity.attribute('id')"
+rubyp28attr.puts "    i = 0"
+rubyp28attr.puts "    if entity.name != 'header'"
+rubyp28attr.puts "      while i != -1"
+rubyp28attr.puts "        tempid = m.model_elements[i].getP28id"
+rubyp28attr.puts "        if tempid == id.to_s"
+rubyp28attr.puts "          r = m.model_elements[i]"
+rubyp28attr.puts "          i = -2"
+rubyp28attr.puts "        end"
+rubyp28attr.puts "        i = i + 1"
+rubyp28attr.puts "      end"
+rubyp28attr.puts "    end"
+##
+## Global arrays used to deal with supertypes
+$name_array = []
+$todo_array = []
+##
+## WRITE a Ruby module for each entity type and include each locally-defined attribute
+##
+stime = Time.now
+ne = 0
+entity_list = exp.elements.to_a("//schema/entity")
+ce = entity_list.size
+for entity in entity_list
+  ne = ne + 1
+  puts "Entity " + ne.to_s + " of " + ce.to_s + " = " + entity.attributes["name"].to_s + "  (after " + ((Time.now - stime)/60).to_s + " minutes"
+  rubymodule.puts "module " + entity.attributes["name"].capitalize + "___module"
+  ##
+  ## write accessor (reader and writer) for each locally defined explicit attribute
+  ##
+  mandatory_attribute_name_list = []
+  for attribute in entity.elements.to_a("./explicit")
+    attr_redecl = attribute.elements["redeclaration"]
+    if attr_redecl == nil
+      rubymodule.puts "  attr_accessor :" + attribute.attributes["name"].downcase
+      if attribute.attributes["optional"] == nil or attribute.attributes["optional"].to_s == 'NO'
+        mandatory_attribute_name_list.push attribute.attributes["name"].downcase
+      end
+    end
+  end
+  if mandatory_attribute_name_list.size != 0
+				rubymodule.puts '  def isValid' + entity.attributes["name"].capitalize + "___module"
+				rubymodule.puts '    return case'
+				for mp in mandatory_attribute_name_list
+					rubymodule.puts '      when ' + mp + ' == nil : false'
+				end
+				rubymodule.puts '      else true'
+				rubymodule.puts '      end'
+				rubymodule.puts '  end'
+			else
+				rubymodule.puts '  def isValid' + entity.attributes["name"].capitalize + "___module"
+				rubymodule.puts '    return true'
+				rubymodule.puts '  end'
+			end
+  rubymodule.puts "end"
+  ##
+  ## WRITE P28 READER for each entity instance and attribute value
+  write_read_P28_entity_instance_read(rubyp28inst, entity.attributes["name"])
+  write_read_P28_attribute_value_read(rubyp28attr, entity.attributes["name"], exp)
+  ##
+  ## WRITE a Ruby class for each entity type, include module for it and each supertype
+  ##
+  rubyfile.puts "class " + entity.attributes["name"].capitalize
+  supertypes = entity.attributes["supertypes"]
+  $name_array = []
+  $todo_array = []
+  if supertypes != nil
+    supertype_names = supertypes.split
+    supertype_names.each do |super_name|
+      $todo_array.push super_name
+    end
+  end
+  get_all_supertypes(exp)
+  $name_array.reverse_each do |super_name|
+    rubyfile.puts "   include " + super_name.capitalize  + "___module"
+  end
+  rubyfile.puts "   include " + entity.attributes["name"].capitalize + "___module"
+  ##
+  ## write class variables containing the entity type and attribute names from the schema
+  ##
+  rubyfile.puts "   @@entity = " + "'" + entity.attributes["name"].capitalize + "'"
+  for attribute in entity.elements.to_a("./explicit")
+    attr_redecl = attribute.elements["redeclaration"]
+    if attr_redecl == nil
+      rubyfile.puts "   @@attr___" + attribute.attributes["name"].downcase + " = " + "'" + attribute.attributes["name"].capitalize + "'"
+    end
+  end
+ 
+  ##
+  ## initialize the count of the number of instances of the class for the entity type
+  ## increment the count each time a new instance is created and use it to define a Part 28 E2 XML ID for the instance
+  ##
+  rubyfile.puts "   @@" + entity.attributes["name"].capitalize + "___count = 0"
+  rubyfile.puts "   def initialize"
+  rubyfile.puts "      @@" + entity.attributes["name"].capitalize + "___count += 1"
+  rubyfile.puts "      @p28id = " + "'" + "id-" + entity.attributes["name"].upcase + "-" + "' + " + "@@" + entity.attributes["name"].capitalize+ "___count.to_s"
+  rubyfile.puts "   end"
+  ##
+  ## add the method to check validity of instance
+  ##
+  rubyfile.puts '  def isValid'
+	rubyfile.puts '    return case'
+	rubyfile.puts '      when !isValid' + entity.attributes["name"].capitalize + '___module : false'						
+	$name_array.reverse_each do |super_name|
+	  rubyfile.puts '      when !isValid' + super_name.capitalize + '___module : false'
+	end
+	rubyfile.puts '      else true'
+	rubyfile.puts '      end'
+	rubyfile.puts '  end'
+  ##
+  ## add the method to write the Part 28 Edition 2 file content for the entity instance
+  ##
+  rubyfile.puts "   def writeP28 p28file"
+  rubyfile.puts "      e___added = p28file.root.add_element(" + "\'" + $xnspre + entity.attributes["name"].capitalize + "\', " + "{\'id\' => @p28id})"
+  ##
+  $name_array = []
+  $todo_array = []
+  if supertypes != nil
+    supertype_names = supertypes.split
+    supertype_names.each do |super_name|
+      $todo_array.push super_name
+    end
+  end
+  get_all_supertypes(exp)
+  $name_array.reverse_each do |super_name|
+    xp = "//entity[@name = " + "'" + super_name + "'" + "]"
+    super_entity = exp.root.elements[xp]
+    for super_attribute in super_entity.elements.to_a("./explicit")
+      handle_explicit(rubyfile, exp, super_attribute)
+    end
+  end
+  
+  for attribute in entity.elements.to_a("./explicit")
+    handle_explicit(rubyfile, exp, attribute)
+  end
+  
+  rubyfile.puts "   end"
+  rubyfile.puts "   def getP28id"
+  rubyfile.puts "      @p28id"
+  rubyfile.puts "   end"
+  rubyfile.puts "   def putP28id(the_id)"
+  rubyfile.puts "      @p28id = the_id"
+  rubyfile.puts "   end"
+  rubyfile.puts "   def getP28entity"
+  rubyfile.puts "      return(" + "'" + $xnspre + "'"  + " + @@entity)"
+  rubyfile.puts "   end"
+  rubyfile.puts "end"
+end
+rubyfile.puts "class Model___data"
+rubyfile.puts "	attr_reader :model_elements, :model_name, :namespace, :originating_system, :preprocessor_version"
+rubyfile.puts "	attr_writer :model_elements, :model_name, :namespace, :originating_system, :preprocessor_version"
+rubyfile.puts " def initialize"
+rubyfile.puts "   @model_elements = []"
+rubyfile.puts "   @namespace = '" + $xnspre.chop + "'"
+rubyfile.puts " end"
+rubyfile.puts "	def readP28e2 p28doc"
+rubyfile.puts "		puts 'Reading P28E2 XML'"
+rubyfile.puts "		read_P28_entity_instances(p28doc,self)"
+rubyfile.puts "		read_P28_attribute_values(p28doc,self)"
+rubyfile.puts "	end"
+rubyfile.puts "	require 'time'"
+rubyfile.puts "	def writeP28e2 p28file"
+rubyfile.puts "		puts 'Writing P28E2 with XML namespace = ' + namespace"
+rubyfile.puts "		@p28file = p28file"
+rubyfile.puts "		p28file << XMLDecl.new"
+rubyfile.puts "		the_ns = 'xmlns:' + namespace"
+rubyfile.puts "		the_uos = namespace + ':uos'"
+rubyfile.puts "		uos = p28file.add_element(the_uos, {the_ns => 'urn:iso10303-28:schema/" + schema_name.capitalize + "'})"
+rubyfile.puts "		uos.add_namespace('xsi','http://www.w3.org/2001/XMLSchema-instance')"
+rubyfile.puts "		uos.add_namespace('ex','urn:iso:std:iso:10303:28:ed-2:2005:schema:common')"
+rubyfile.puts "		uos.add_namespace('exp','urn:iso:std:iso:10303:28:ed-2:2005:schema:common')"
+rubyfile.puts "		uos.add_attribute('xsi:schemaLocation','urn:iso10303-28:schema/" + schema_name.capitalize + " " +  schema_name.capitalize + ".xsd')"
+rubyfile.puts "		header = p28file.root.add_element('exp:header')"
+rubyfile.puts "		t = header.add_element('time_stamp')"
+rubyfile.puts "		t.text = Time.now.xmlschema()"
+rubyfile.puts "		if self.originating_system != nil"
+rubyfile.puts "			t = header.add_element('preprocessor_version')"
+rubyfile.puts "			t.text = self.preprocessor_version"
+rubyfile.puts "		end"
+rubyfile.puts "		if self.originating_system != nil"
+rubyfile.puts "			t = header.add_element('originating_system')"
+rubyfile.puts "			t.text = self.originating_system"
+rubyfile.puts "		end"
+rubyfile.puts "		i = 1"
+rubyfile.puts "		for e in model_elements"
+rubyfile.puts "			puts i"
+rubyfile.puts "			e.writeP28(p28file)"
+rubyfile.puts "			i = i + 1"
+rubyfile.puts "	     end"
+rubyfile.puts "   end"
+rubyfile.puts "end"
+rubyfile.puts "end"
+rubyp28inst.puts "  end"
+rubyp28inst.puts "end"
+rubyp28attr.puts "  end"
+rubyp28attr.puts "end"
+expxmlfile.close
+rubyfile.close
+rubymodule.close
+rubyp28inst.close
+rubyp28attr.close