------------------------------------------------------------------------------
------------------------------------------------------------------------------
--  This Ada package was automatically generated by the software engineering tool Platypus
--  see http://dossen.univ-brest.fr/apl
-- 
--  Any modification of this file will be lost. 
--  Please see the "platypus" directory instead : it contains the Cheddar's
--  model and its meta-model. 
------------------------------------------------------------------------------
 
------------------------------------------------------------------------------
-- Cheddar is a free real time scheduling tool.
-- This program provides services to automatically check temporal constraints
-- of real time tasks.
--
-- Copyright (C) 2002-2009   Frank Singhoff
-- Cheddar is developed by the LAB-STICC Team, University of Brest
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- 	To post to this mailing list, you must be subscribed
-- 	(see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------

with Text_io;
use Text_io;

with unbounded_strings;
use unbounded_strings;

with primitive_xml_strings;
use primitive_xml_strings;

with framework;
use framework;

with id_generators;
use id_generators;



Package Body ARINC_653_Schema is 
 
function XML_String(obj : in ModuleActionType; level : in natural := 0) return Unbounded_String is
begin
	return to_unbounded_string(ModuleActionType'image (obj) );
end XML_String;

function XML_Ref_String (obj : in ModuleActionType; level : in natural := 0) return Unbounded_String is
begin
	raise xml_ref_string_error;
	return to_unbounded_string("");
end XML_Ref_String;


function XML_String(obj : in PartitionActionType; level : in natural := 0) return Unbounded_String is
begin
	return to_unbounded_string(PartitionActionType'image (obj) );
end XML_String;

function XML_Ref_String (obj : in PartitionActionType; level : in natural := 0) return Unbounded_String is
begin
	raise xml_ref_string_error;
	return to_unbounded_string("");
end XML_Ref_String;


function XML_String(obj : in ErrorLevelType; level : in natural := 0) return Unbounded_String is
begin
	return to_unbounded_string(ErrorLevelType'image (obj) );
end XML_String;

function XML_Ref_String (obj : in ErrorLevelType; level : in natural := 0) return Unbounded_String is
begin
	raise xml_ref_string_error;
	return to_unbounded_string("");
end XML_Ref_String;


function XML_String(obj : in ErrorCodeType; level : in natural := 0) return Unbounded_String is
begin
	return to_unbounded_string(ErrorCodeType'image (obj) );
end XML_String;

function XML_Ref_String (obj : in ErrorCodeType; level : in natural := 0) return Unbounded_String is
begin
	raise xml_ref_string_error;
	return to_unbounded_string("");
end XML_Ref_String;


function XML_String(obj : in DirectionType; level : in natural := 0) return Unbounded_String is
begin
	return to_unbounded_string(DirectionType'image (obj) );
end XML_String;

function XML_Ref_String (obj : in DirectionType; level : in natural := 0) return Unbounded_String is
begin
	raise xml_ref_string_error;
	return to_unbounded_string("");
end XML_Ref_String;


function XML_String(obj : in CriticalityType; level : in natural := 0) return Unbounded_String is
begin
	return to_unbounded_string(CriticalityType'image (obj) );
end XML_String;

function XML_Ref_String (obj : in CriticalityType; level : in natural := 0) return Unbounded_String is
begin
	raise xml_ref_string_error;
	return to_unbounded_string("");
end XML_Ref_String;


function XML_String(obj : in PortMappingType_Choice_Type; level : in natural := 0) return Unbounded_String is
begin
	return to_unbounded_string(PortMappingType_Choice_Type'image (obj) );
end XML_String;

function XML_Ref_String (obj : in PortMappingType_Choice_Type; level : in natural := 0) return Unbounded_String is
begin
	raise xml_ref_string_error;
	return to_unbounded_string("");
end XML_Ref_String;



-- --------= ARINC_653_Object =--------

procedure Initialize(obj : in out ARINC_653_Object) is 
begin
	generate_id( framework_id, obj.cheddar_private_id );
end Initialize;

function Copy ( obj : in ARINC_653_Object ) return ARINC_653_Object_Ptr is
	New_ARINC_653_Object : ARINC_653_Object_Ptr;
begin
	New_ARINC_653_Object := new ARINC_653_Object'(obj);
	return (New_ARINC_653_Object);
end Copy;

function Copy ( obj : in ARINC_653_Object_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in ARINC_653_Object) is 
begin
	put("cheddar_private_id: "); put(obj.cheddar_private_id); put ( "; " );
end Put;
 
procedure Put(obj : in ARINC_653_Object_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in ARINC_653_Object_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in ARINC_653_Object ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in ARINC_653_Object_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in ARINC_653_Object; level : in natural := 0; result : in out Unbounded_String) is 
begin
	null;
end Build_Attributes_XML_String;

function XML_String(obj : in ARINC_653_Object; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<arinc_653_object id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</arinc_653_object>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in ARINC_653_Object_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in ARINC_653_Object; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<arinc_653_object ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in ARINC_653_Object_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Error_ID_Type =--------

procedure Initialize(obj : in out Error_ID_Type) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.ErrorIdentifier := empty_string;
	obj.Description := empty_string;
	obj.PartitionAction := IGNORE;
	obj.ModuleAction := IGNORE;
end Initialize;

function Copy ( obj : in Error_ID_Type ) return ARINC_653_Object_Ptr is
	New_Error_ID_Type : Error_ID_Type_Ptr;
begin
	New_Error_ID_Type := new Error_ID_Type'(obj);
	return ARINC_653_Object_Ptr(New_Error_ID_Type);
end Copy;

function Copy ( obj : in Error_ID_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Error_ID_Type) is 
begin
	put(ARINC_653_Object(obj));
	put("ErrorIdentifier: "); put(obj.ErrorIdentifier); put ( "; " );
	put("Description: "); put(obj.Description); put ( "; " );
	put("PartitionAction: "); put(obj.PartitionAction); put ( "; " );
	put("ModuleAction: "); put(obj.ModuleAction); put ( "; " );
end Put;
 
procedure Put(obj : in Error_ID_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Error_ID_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Error_ID_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Error_ID_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Error_ID_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.ErrorIdentifier, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<erroridentifier>" & XML_String(obj.ErrorIdentifier, level +  1) & "</erroridentifier>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Description, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<description>" & XML_String(obj.Description, level +  1) & "</description>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionAction, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionaction>" & XML_String(obj.PartitionAction, level +  1) & "</partitionaction>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.ModuleAction, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<moduleaction>" & XML_String(obj.ModuleAction, level +  1) & "</moduleaction>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Error_ID_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<error_id_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</error_id_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Error_ID_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Error_ID_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<error_id_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Error_ID_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Error_ID_Action_Type =--------

procedure Initialize(obj : in out Error_ID_Action_Type) is 
begin
	initialize(Error_ID_Type(obj));
end Initialize;

function Copy ( obj : in Error_ID_Action_Type ) return ARINC_653_Object_Ptr is
	New_Error_ID_Action_Type : Error_ID_Action_Type_Ptr;
begin
	New_Error_ID_Action_Type := new Error_ID_Action_Type'(obj);
	return ARINC_653_Object_Ptr(New_Error_ID_Action_Type);
end Copy;

function Copy ( obj : in Error_ID_Action_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Error_ID_Action_Type) is 
begin
	put(Error_ID_Type(obj));
end Put;
 
procedure Put(obj : in Error_ID_Action_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Error_ID_Action_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Error_ID_Action_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_TYPE");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_ACTION_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Error_ID_Action_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Error_ID_Action_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(Error_ID_Type(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in Error_ID_Action_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<error_id_action_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</error_id_action_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Error_ID_Action_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Error_ID_Action_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<error_id_action_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Error_ID_Action_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Error_ID_Level_Type =--------

procedure Initialize(obj : in out Error_ID_Level_Type) is 
begin
	initialize(Error_ID_Type(obj));
	obj.ErrorLevel := MODULE;
	obj.ErrorCode := DEADLINE_MISSED;
end Initialize;

function Copy ( obj : in Error_ID_Level_Type ) return ARINC_653_Object_Ptr is
	New_Error_ID_Level_Type : Error_ID_Level_Type_Ptr;
begin
	New_Error_ID_Level_Type := new Error_ID_Level_Type'(obj);
	return ARINC_653_Object_Ptr(New_Error_ID_Level_Type);
end Copy;

function Copy ( obj : in Error_ID_Level_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Error_ID_Level_Type) is 
begin
	put(Error_ID_Type(obj));
	put("ErrorLevel: "); put(obj.ErrorLevel); put ( "; " );
	put("ErrorCode: "); put(obj.ErrorCode); put ( "; " );
end Put;
 
procedure Put(obj : in Error_ID_Level_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Error_ID_Level_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Error_ID_Level_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_TYPE");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_LEVEL_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Error_ID_Level_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Error_ID_Level_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(Error_ID_Type(obj), level, result);
	if (XML_String(obj.ErrorLevel, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<errorlevel>" & XML_String(obj.ErrorLevel, level +  1) & "</errorlevel>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.ErrorCode, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<errorcode>" & XML_String(obj.ErrorCode, level +  1) & "</errorcode>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Error_ID_Level_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<error_id_level_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</error_id_level_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Error_ID_Level_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Error_ID_Level_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<error_id_level_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Error_ID_Level_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= System_State_Entry_Type =--------

procedure Initialize(obj : in out System_State_Entry_Type) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.SystemState := empty_string;
	obj.Description := empty_string;
end Initialize;

function Copy ( obj : in System_State_Entry_Type ) return ARINC_653_Object_Ptr is
	New_System_State_Entry_Type : System_State_Entry_Type_Ptr;
begin
	New_System_State_Entry_Type := new System_State_Entry_Type'(obj);
	return ARINC_653_Object_Ptr(New_System_State_Entry_Type);
end Copy;

function Copy ( obj : in System_State_Entry_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in System_State_Entry_Type) is 
begin
	put(ARINC_653_Object(obj));
	put("Error_ID_Action: "); put(obj.Error_ID_Action); put ( "; " );
	put("SystemState: "); put(obj.SystemState); put ( "; " );
	put("Description: "); put(obj.Description); put ( "; " );
end Put;
 
procedure Put(obj : in System_State_Entry_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in System_State_Entry_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in System_State_Entry_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.SYSTEM_STATE_ENTRY_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in System_State_Entry_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in System_State_Entry_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.Error_ID_Action, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<error_id_action>" & XML_String(obj.Error_ID_Action, level +  1) & "</error_id_action>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.SystemState, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<systemstate>" & XML_String(obj.SystemState, level +  1) & "</systemstate>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Description, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<description>" & XML_String(obj.Description, level +  1) & "</description>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in System_State_Entry_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<system_state_entry_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</system_state_entry_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in System_State_Entry_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in System_State_Entry_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<system_state_entry_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in System_State_Entry_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= SysHM_Ext_Type =--------

procedure Initialize(obj : in out SysHM_Ext_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in SysHM_Ext_Type ) return ARINC_653_Object_Ptr is
	New_SysHM_Ext_Type : SysHM_Ext_Type_Ptr;
begin
	New_SysHM_Ext_Type := new SysHM_Ext_Type'(obj);
	return ARINC_653_Object_Ptr(New_SysHM_Ext_Type);
end Copy;

function Copy ( obj : in SysHM_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in SysHM_Ext_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in SysHM_Ext_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in SysHM_Ext_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in SysHM_Ext_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.SYSHM_EXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in SysHM_Ext_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in SysHM_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in SysHM_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<syshm_ext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</syshm_ext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in SysHM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in SysHM_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<syshm_ext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in SysHM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= System_HM_TableType =--------

procedure Initialize(obj : in out System_HM_TableType) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in System_HM_TableType ) return ARINC_653_Object_Ptr is
	New_System_HM_TableType : System_HM_TableType_Ptr;
begin
	New_System_HM_TableType := new System_HM_TableType'(obj);
	return ARINC_653_Object_Ptr(New_System_HM_TableType);
end Copy;

function Copy ( obj : in System_HM_TableType_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in System_HM_TableType) is 
begin
	put(ARINC_653_Object(obj));
	put("System_State_Entry: "); put(obj.System_State_Entry); put ( "; " );
	put("SysHM_Ext: "); put(obj.SysHM_Ext); put ( "; " );
end Put;
 
procedure Put(obj : in System_HM_TableType_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in System_HM_TableType_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in System_HM_TableType ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.SYSTEM_HM_TABLETYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in System_HM_TableType_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in System_HM_TableType; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.System_State_Entry, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<system_state_entry>" & XML_String(obj.System_State_Entry, level +  1) & "</system_state_entry>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.SysHM_Ext, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<syshm_ext>" & XML_String(obj.SysHM_Ext, level +  1) & "</syshm_ext>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in System_HM_TableType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<system_hm_tabletype id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</system_hm_tabletype>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in System_HM_TableType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in System_HM_TableType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<system_hm_tabletype ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in System_HM_TableType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Mod_HM_Ext_Type =--------

procedure Initialize(obj : in out Mod_HM_Ext_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in Mod_HM_Ext_Type ) return ARINC_653_Object_Ptr is
	New_Mod_HM_Ext_Type : Mod_HM_Ext_Type_Ptr;
begin
	New_Mod_HM_Ext_Type := new Mod_HM_Ext_Type'(obj);
	return ARINC_653_Object_Ptr(New_Mod_HM_Ext_Type);
end Copy;

function Copy ( obj : in Mod_HM_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Mod_HM_Ext_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in Mod_HM_Ext_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Mod_HM_Ext_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Mod_HM_Ext_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.MOD_HM_EXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Mod_HM_Ext_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Mod_HM_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in Mod_HM_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<mod_hm_ext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</mod_hm_ext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Mod_HM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Mod_HM_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<mod_hm_ext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Mod_HM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Module_HM_Type =--------

procedure Initialize(obj : in out Module_HM_Type) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.ModuleCallback := empty_string;
end Initialize;

function Copy ( obj : in Module_HM_Type ) return ARINC_653_Object_Ptr is
	New_Module_HM_Type : Module_HM_Type_Ptr;
begin
	New_Module_HM_Type := new Module_HM_Type'(obj);
	return ARINC_653_Object_Ptr(New_Module_HM_Type);
end Copy;

function Copy ( obj : in Module_HM_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Module_HM_Type) is 
begin
	put(ARINC_653_Object(obj));
	put("System_State_Entry: "); put(obj.System_State_Entry); put ( "; " );
	put("Mod_HM_Ext: "); put(obj.Mod_HM_Ext); put ( "; " );
	put("ModuleCallback: "); put(obj.ModuleCallback); put ( "; " );
end Put;
 
procedure Put(obj : in Module_HM_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Module_HM_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Module_HM_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.MODULE_HM_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Module_HM_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Module_HM_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.System_State_Entry, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<system_state_entry>" & XML_String(obj.System_State_Entry, level +  1) & "</system_state_entry>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Mod_HM_Ext, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<mod_hm_ext>" & XML_String(obj.Mod_HM_Ext, level +  1) & "</mod_hm_ext>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.ModuleCallback, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<modulecallback>" & XML_String(obj.ModuleCallback, level +  1) & "</modulecallback>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Module_HM_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<module_hm_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</module_hm_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Module_HM_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Module_HM_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<module_hm_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Module_HM_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= PortExt_Type =--------

procedure Initialize(obj : in out PortExt_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in PortExt_Type ) return ARINC_653_Object_Ptr is
	New_PortExt_Type : PortExt_Type_Ptr;
begin
	New_PortExt_Type := new PortExt_Type'(obj);
	return ARINC_653_Object_Ptr(New_PortExt_Type);
end Copy;

function Copy ( obj : in PortExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in PortExt_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in PortExt_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in PortExt_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in PortExt_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTEXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in PortExt_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in PortExt_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in PortExt_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<portext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</portext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in PortExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in PortExt_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<portext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PortExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= PortType =--------

procedure Initialize(obj : in out PortType) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.Name := empty_string;
	obj.MaxMessageSize := empty_string;
	obj.Direction := SOURCE;
end Initialize;

function Copy ( obj : in PortType ) return ARINC_653_Object_Ptr is
	New_PortType : PortType_Ptr;
begin
	New_PortType := new PortType'(obj);
	return ARINC_653_Object_Ptr(New_PortType);
end Copy;

function Copy ( obj : in PortType_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in PortType) is 
begin
	put(ARINC_653_Object(obj));
	put("PortExt: "); put(obj.PortExt); put ( "; " );
	put("Name: "); put(obj.Name); put ( "; " );
	put("MaxMessageSize: "); put(obj.MaxMessageSize); put ( "; " );
	put("Direction: "); put(obj.Direction); put ( "; " );
end Put;
 
procedure Put(obj : in PortType_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in PortType_Ptr) is
begin
	Put ( To_String ( Obj.Name ) );
end Put_Name;

function type_of ( obj : in PortType ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTTYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in PortType_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in PortType; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.PortExt, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<portext>" & XML_String(obj.PortExt, level +  1) & "</portext>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Name, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<name>" & XML_String(obj.Name, level +  1) & "</name>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.MaxMessageSize, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<maxmessagesize>" & XML_String(obj.MaxMessageSize, level +  1) & "</maxmessagesize>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Direction, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<direction>" & XML_String(obj.Direction, level +  1) & "</direction>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in PortType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<porttype id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</porttype>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in PortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in PortType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<porttype ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= SamplingPortType =--------

procedure Initialize(obj : in out SamplingPortType) is 
begin
	initialize(PortType(obj));
	obj.RefreshRateSeconds := 0.0;
end Initialize;

function Copy ( obj : in SamplingPortType ) return ARINC_653_Object_Ptr is
	New_SamplingPortType : SamplingPortType_Ptr;
begin
	New_SamplingPortType := new SamplingPortType'(obj);
	return ARINC_653_Object_Ptr(New_SamplingPortType);
end Copy;

function Copy ( obj : in SamplingPortType_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in SamplingPortType) is 
begin
	put(PortType(obj));
	put("RefreshRateSeconds: "); standards_io.double_io.put(obj.RefreshRateSeconds); put ( "; " );
end Put;
 
procedure Put(obj : in SamplingPortType_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in SamplingPortType_Ptr) is
begin
	Put ( To_String ( Obj.Name ) );
end Put_Name;

function type_of ( obj : in SamplingPortType ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTTYPE");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.SAMPLINGPORTTYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in SamplingPortType_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in SamplingPortType; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(PortType(obj), level, result);
	if (XML_String(obj.RefreshRateSeconds, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<refreshrateseconds>" & XML_String(obj.RefreshRateSeconds, level +  1) & "</refreshrateseconds>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in SamplingPortType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<samplingporttype id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</samplingporttype>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in SamplingPortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in SamplingPortType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<samplingporttype ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in SamplingPortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= ProcExt_Type =--------

procedure Initialize(obj : in out ProcExt_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in ProcExt_Type ) return ARINC_653_Object_Ptr is
	New_ProcExt_Type : ProcExt_Type_Ptr;
begin
	New_ProcExt_Type := new ProcExt_Type'(obj);
	return ARINC_653_Object_Ptr(New_ProcExt_Type);
end Copy;

function Copy ( obj : in ProcExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in ProcExt_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in ProcExt_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in ProcExt_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in ProcExt_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PROCEXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in ProcExt_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in ProcExt_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in ProcExt_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<procext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</procext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in ProcExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in ProcExt_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<procext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in ProcExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= ProcessType =--------

procedure Initialize(obj : in out ProcessType) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.Name := empty_string;
	obj.StackSize := empty_string;
end Initialize;

function Copy ( obj : in ProcessType ) return ARINC_653_Object_Ptr is
	New_ProcessType : ProcessType_Ptr;
begin
	New_ProcessType := new ProcessType'(obj);
	return ARINC_653_Object_Ptr(New_ProcessType);
end Copy;

function Copy ( obj : in ProcessType_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in ProcessType) is 
begin
	put(ARINC_653_Object(obj));
	put("ProcExt: "); put(obj.ProcExt); put ( "; " );
	put("Name: "); put(obj.Name); put ( "; " );
	put("StackSize: "); put(obj.StackSize); put ( "; " );
end Put;
 
procedure Put(obj : in ProcessType_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in ProcessType_Ptr) is
begin
	Put ( To_String ( Obj.Name ) );
end Put_Name;

function type_of ( obj : in ProcessType ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PROCESSTYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in ProcessType_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in ProcessType; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.ProcExt, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<procext>" & XML_String(obj.ProcExt, level +  1) & "</procext>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Name, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<name>" & XML_String(obj.Name, level +  1) & "</name>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.StackSize, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<stacksize>" & XML_String(obj.StackSize, level +  1) & "</stacksize>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in ProcessType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<processtype id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</processtype>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in ProcessType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in ProcessType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<processtype ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in ProcessType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= QueuingPortType =--------

procedure Initialize(obj : in out QueuingPortType) is 
begin
	initialize(PortType(obj));
	obj.MaxNbMessages := 0;
end Initialize;

function Copy ( obj : in QueuingPortType ) return ARINC_653_Object_Ptr is
	New_QueuingPortType : QueuingPortType_Ptr;
begin
	New_QueuingPortType := new QueuingPortType'(obj);
	return ARINC_653_Object_Ptr(New_QueuingPortType);
end Copy;

function Copy ( obj : in QueuingPortType_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in QueuingPortType) is 
begin
	put(PortType(obj));
	put("MaxNbMessages: "); standards_io.natural_io.put(obj.MaxNbMessages); put ( "; " );
end Put;
 
procedure Put(obj : in QueuingPortType_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in QueuingPortType_Ptr) is
begin
	Put ( To_String ( Obj.Name ) );
end Put_Name;

function type_of ( obj : in QueuingPortType ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTTYPE");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.QUEUINGPORTTYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in QueuingPortType_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in QueuingPortType; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(PortType(obj), level, result);
	if (XML_String(obj.MaxNbMessages, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<maxnbmessages>" & XML_String(obj.MaxNbMessages, level +  1) & "</maxnbmessages>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in QueuingPortType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<queuingporttype id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</queuingporttype>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in QueuingPortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in QueuingPortType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<queuingporttype ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in QueuingPortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= PartitionExt_Type =--------

procedure Initialize(obj : in out PartitionExt_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in PartitionExt_Type ) return ARINC_653_Object_Ptr is
	New_PartitionExt_Type : PartitionExt_Type_Ptr;
begin
	New_PartitionExt_Type := new PartitionExt_Type'(obj);
	return ARINC_653_Object_Ptr(New_PartitionExt_Type);
end Copy;

function Copy ( obj : in PartitionExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in PartitionExt_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in PartitionExt_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in PartitionExt_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in PartitionExt_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITIONEXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in PartitionExt_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in PartitionExt_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in PartitionExt_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<partitionext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</partitionext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in PartitionExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in PartitionExt_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<partitionext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PartitionExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= PartitionType =--------

procedure Initialize(obj : in out PartitionType) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.PartitionIdentifier := empty_string;
	obj.PartitionName := empty_string;
	obj.Criticality := LEVEL_A;
	obj.SystemPartition := false;
	obj.EntryPoint := empty_string;
end Initialize;

function Copy ( obj : in PartitionType ) return ARINC_653_Object_Ptr is
	New_PartitionType : PartitionType_Ptr;
begin
	New_PartitionType := new PartitionType'(obj);
	return ARINC_653_Object_Ptr(New_PartitionType);
end Copy;

function Copy ( obj : in PartitionType_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in PartitionType) is 
begin
	put(ARINC_653_Object(obj));
	put("Sampling_Port: "); put(obj.Sampling_Port); put ( "; " );
	put("Queuing_Port: "); put(obj.Queuing_Port); put ( "; " );
	put("Process: "); put(obj.Process); put ( "; " );
	put("PartitionExt: "); put(obj.PartitionExt); put ( "; " );
	put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
	put("PartitionName: "); put(obj.PartitionName); put ( "; " );
	put("Criticality: "); put(obj.Criticality); put ( "; " );
	put("SystemPartition: "); standards_io.boolean_io.put(obj.SystemPartition); put ( "; " );
	put("EntryPoint: "); put(obj.EntryPoint); put ( "; " );
end Put;
 
procedure Put(obj : in PartitionType_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in PartitionType_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in PartitionType ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITIONTYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in PartitionType_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in PartitionType; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.Sampling_Port, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<sampling_port>" & XML_String(obj.Sampling_Port, level +  1) & "</sampling_port>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Queuing_Port, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<queuing_port>" & XML_String(obj.Queuing_Port, level +  1) & "</queuing_port>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Process, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<process>" & XML_String(obj.Process, level +  1) & "</process>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionExt, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionext>" & XML_String(obj.PartitionExt, level +  1) & "</partitionext>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionIdentifier, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionidentifier>" & XML_String(obj.PartitionIdentifier, level +  1) & "</partitionidentifier>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionName, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionname>" & XML_String(obj.PartitionName, level +  1) & "</partitionname>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Criticality, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<criticality>" & XML_String(obj.Criticality, level +  1) & "</criticality>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.SystemPartition, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<systempartition>" & XML_String(obj.SystemPartition, level +  1) & "</systempartition>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.EntryPoint, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<entrypoint>" & XML_String(obj.EntryPoint, level +  1) & "</entrypoint>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in PartitionType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<partitiontype id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</partitiontype>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in PartitionType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in PartitionType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<partitiontype ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PartitionType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Memory_Requirements =--------

procedure Initialize(obj : in out Memory_Requirements) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.regionName := empty_string;
	obj.memory_type := empty_string;
	obj.sizeBytes := empty_string;
	obj.physicalAddress := empty_string;
	obj.memoryAccess := empty_string;
end Initialize;

function Copy ( obj : in Memory_Requirements ) return ARINC_653_Object_Ptr is
	New_Memory_Requirements : Memory_Requirements_Ptr;
begin
	New_Memory_Requirements := new Memory_Requirements'(obj);
	return ARINC_653_Object_Ptr(New_Memory_Requirements);
end Copy;

function Copy ( obj : in Memory_Requirements_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Memory_Requirements) is 
begin
	put(ARINC_653_Object(obj));
	put("regionName: "); put(obj.regionName); put ( "; " );
	put("memory_type: "); put(obj.memory_type); put ( "; " );
	put("sizeBytes: "); put(obj.sizeBytes); put ( "; " );
	put("physicalAddress: "); put(obj.physicalAddress); put ( "; " );
	put("memoryAccess: "); put(obj.memoryAccess); put ( "; " );
end Put;
 
procedure Put(obj : in Memory_Requirements_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Memory_Requirements_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Memory_Requirements ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.MEMORY_REQUIREMENTS");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Memory_Requirements_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Memory_Requirements; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.regionName, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<regionname>" & XML_String(obj.regionName, level +  1) & "</regionname>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.memory_type, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<memory_type>" & XML_String(obj.memory_type, level +  1) & "</memory_type>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.sizeBytes, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<sizebytes>" & XML_String(obj.sizeBytes, level +  1) & "</sizebytes>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.physicalAddress, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<physicaladdress>" & XML_String(obj.physicalAddress, level +  1) & "</physicaladdress>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.memoryAccess, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<memoryaccess>" & XML_String(obj.memoryAccess, level +  1) & "</memoryaccess>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Memory_Requirements; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<memory_requirements id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</memory_requirements>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Memory_Requirements_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Memory_Requirements; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<memory_requirements ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Memory_Requirements_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Memory_Ext_Type =--------

procedure Initialize(obj : in out Memory_Ext_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in Memory_Ext_Type ) return ARINC_653_Object_Ptr is
	New_Memory_Ext_Type : Memory_Ext_Type_Ptr;
begin
	New_Memory_Ext_Type := new Memory_Ext_Type'(obj);
	return ARINC_653_Object_Ptr(New_Memory_Ext_Type);
end Copy;

function Copy ( obj : in Memory_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Memory_Ext_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in Memory_Ext_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Memory_Ext_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Memory_Ext_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.MEMORY_EXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Memory_Ext_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Memory_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in Memory_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<memory_ext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</memory_ext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Memory_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Memory_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<memory_ext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Memory_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Partition_Memory_Element =--------

procedure Initialize(obj : in out Partition_Memory_Element) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.PartitionIdentifier := empty_string;
	obj.PartitionName := empty_string;
end Initialize;

function Copy ( obj : in Partition_Memory_Element ) return ARINC_653_Object_Ptr is
	New_Partition_Memory_Element : Partition_Memory_Element_Ptr;
begin
	New_Partition_Memory_Element := new Partition_Memory_Element'(obj);
	return ARINC_653_Object_Ptr(New_Partition_Memory_Element);
end Copy;

function Copy ( obj : in Partition_Memory_Element_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Partition_Memory_Element) is 
begin
	put(ARINC_653_Object(obj));
	put("Memory_Requirements: "); if obj.Memory_Requirements /= null then put(obj.Memory_Requirements.all); else put("null"); end if;put ( "; " );
	put("Memory_Ext: "); put(obj.Memory_Ext); put ( "; " );
	put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
	put("PartitionName: "); put(obj.PartitionName); put ( "; " );
end Put;
 
procedure Put(obj : in Partition_Memory_Element_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Partition_Memory_Element_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Partition_Memory_Element ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_MEMORY_ELEMENT");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Partition_Memory_Element_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Partition_Memory_Element; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.Memory_Requirements, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<memory_requirements>" & XML_String(obj.Memory_Requirements, level +  1) & "</memory_requirements>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Memory_Ext, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<memory_ext>" & XML_String(obj.Memory_Ext, level +  1) & "</memory_ext>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionIdentifier, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionidentifier>" & XML_String(obj.PartitionIdentifier, level +  1) & "</partitionidentifier>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionName, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionname>" & XML_String(obj.PartitionName, level +  1) & "</partitionname>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Partition_Memory_Element; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<partition_memory_element id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</partition_memory_element>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Partition_Memory_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Partition_Memory_Element; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<partition_memory_element ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Partition_Memory_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Partition_Sched_Ext_Type =--------

procedure Initialize(obj : in out Partition_Sched_Ext_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in Partition_Sched_Ext_Type ) return ARINC_653_Object_Ptr is
	New_Partition_Sched_Ext_Type : Partition_Sched_Ext_Type_Ptr;
begin
	New_Partition_Sched_Ext_Type := new Partition_Sched_Ext_Type'(obj);
	return ARINC_653_Object_Ptr(New_Partition_Sched_Ext_Type);
end Copy;

function Copy ( obj : in Partition_Sched_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Partition_Sched_Ext_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in Partition_Sched_Ext_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Partition_Sched_Ext_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Partition_Sched_Ext_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_SCHED_EXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Partition_Sched_Ext_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Partition_Sched_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in Partition_Sched_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<partition_sched_ext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</partition_sched_ext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Partition_Sched_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Partition_Sched_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<partition_sched_ext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Partition_Sched_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Window_Schedule_Element =--------

procedure Initialize(obj : in out Window_Schedule_Element) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.WindowIdentifier := empty_string;
	obj.WindowStartSeconds := 0.0;
	obj.WindowDurationSeconds := 0.0;
	obj.PartitionPeriodStart := false;
end Initialize;

function Copy ( obj : in Window_Schedule_Element ) return ARINC_653_Object_Ptr is
	New_Window_Schedule_Element : Window_Schedule_Element_Ptr;
begin
	New_Window_Schedule_Element := new Window_Schedule_Element'(obj);
	return ARINC_653_Object_Ptr(New_Window_Schedule_Element);
end Copy;

function Copy ( obj : in Window_Schedule_Element_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Window_Schedule_Element) is 
begin
	put(ARINC_653_Object(obj));
	put("WindowIdentifier: "); put(obj.WindowIdentifier); put ( "; " );
	put("WindowStartSeconds: "); standards_io.double_io.put(obj.WindowStartSeconds); put ( "; " );
	put("WindowDurationSeconds: "); standards_io.double_io.put(obj.WindowDurationSeconds); put ( "; " );
	put("PartitionPeriodStart: "); standards_io.boolean_io.put(obj.PartitionPeriodStart); put ( "; " );
end Put;
 
procedure Put(obj : in Window_Schedule_Element_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Window_Schedule_Element_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Window_Schedule_Element ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.WINDOW_SCHEDULE_ELEMENT");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Window_Schedule_Element_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Window_Schedule_Element; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.WindowIdentifier, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<windowidentifier>" & XML_String(obj.WindowIdentifier, level +  1) & "</windowidentifier>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.WindowStartSeconds, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<windowstartseconds>" & XML_String(obj.WindowStartSeconds, level +  1) & "</windowstartseconds>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.WindowDurationSeconds, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<windowdurationseconds>" & XML_String(obj.WindowDurationSeconds, level +  1) & "</windowdurationseconds>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionPeriodStart, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionperiodstart>" & XML_String(obj.PartitionPeriodStart, level +  1) & "</partitionperiodstart>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Window_Schedule_Element; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<window_schedule_element id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</window_schedule_element>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Window_Schedule_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Window_Schedule_Element; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<window_schedule_element ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Window_Schedule_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Window_Sched_Ext_Type =--------

procedure Initialize(obj : in out Window_Sched_Ext_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in Window_Sched_Ext_Type ) return ARINC_653_Object_Ptr is
	New_Window_Sched_Ext_Type : Window_Sched_Ext_Type_Ptr;
begin
	New_Window_Sched_Ext_Type := new Window_Sched_Ext_Type'(obj);
	return ARINC_653_Object_Ptr(New_Window_Sched_Ext_Type);
end Copy;

function Copy ( obj : in Window_Sched_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Window_Sched_Ext_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in Window_Sched_Ext_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Window_Sched_Ext_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Window_Sched_Ext_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.WINDOW_SCHED_EXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Window_Sched_Ext_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Window_Sched_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in Window_Sched_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<window_sched_ext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</window_sched_ext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Window_Sched_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Window_Sched_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<window_sched_ext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Window_Sched_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Partition_Schedule_Element =--------

procedure Initialize(obj : in out Partition_Schedule_Element) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.PartitionIdentifier := empty_string;
	obj.PartitionName := empty_string;
	obj.PeriodSeconds := 0.0;
	obj.PeriodDurationSeconds := 0.0;
end Initialize;

function Copy ( obj : in Partition_Schedule_Element ) return ARINC_653_Object_Ptr is
	New_Partition_Schedule_Element : Partition_Schedule_Element_Ptr;
begin
	New_Partition_Schedule_Element := new Partition_Schedule_Element'(obj);
	return ARINC_653_Object_Ptr(New_Partition_Schedule_Element);
end Copy;

function Copy ( obj : in Partition_Schedule_Element_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Partition_Schedule_Element) is 
begin
	put(ARINC_653_Object(obj));
	put("Window_Schedule: "); put(obj.Window_Schedule); put ( "; " );
	put("Window_Sched_Ext: "); put(obj.Window_Sched_Ext); put ( "; " );
	put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
	put("PartitionName: "); put(obj.PartitionName); put ( "; " );
	put("PeriodSeconds: "); standards_io.double_io.put(obj.PeriodSeconds); put ( "; " );
	put("PeriodDurationSeconds: "); standards_io.double_io.put(obj.PeriodDurationSeconds); put ( "; " );
end Put;
 
procedure Put(obj : in Partition_Schedule_Element_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Partition_Schedule_Element_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Partition_Schedule_Element ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_SCHEDULE_ELEMENT");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Partition_Schedule_Element_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Partition_Schedule_Element; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.Window_Schedule, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<window_schedule>" & XML_String(obj.Window_Schedule, level +  1) & "</window_schedule>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Window_Sched_Ext, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<window_sched_ext>" & XML_String(obj.Window_Sched_Ext, level +  1) & "</window_sched_ext>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionIdentifier, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionidentifier>" & XML_String(obj.PartitionIdentifier, level +  1) & "</partitionidentifier>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionName, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionname>" & XML_String(obj.PartitionName, level +  1) & "</partitionname>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PeriodSeconds, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<periodseconds>" & XML_String(obj.PeriodSeconds, level +  1) & "</periodseconds>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PeriodDurationSeconds, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<perioddurationseconds>" & XML_String(obj.PeriodDurationSeconds, level +  1) & "</perioddurationseconds>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Partition_Schedule_Element; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<partition_schedule_element id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</partition_schedule_element>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Partition_Schedule_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Partition_Schedule_Element; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<partition_schedule_element ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Partition_Schedule_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Module_Schedule_Type =--------

procedure Initialize(obj : in out Module_Schedule_Type) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.MajorFrameSeconds := 0.0;
end Initialize;

function Copy ( obj : in Module_Schedule_Type ) return ARINC_653_Object_Ptr is
	New_Module_Schedule_Type : Module_Schedule_Type_Ptr;
begin
	New_Module_Schedule_Type := new Module_Schedule_Type'(obj);
	return ARINC_653_Object_Ptr(New_Module_Schedule_Type);
end Copy;

function Copy ( obj : in Module_Schedule_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Module_Schedule_Type) is 
begin
	put(ARINC_653_Object(obj));
	put("Partition_Schedule: "); put(obj.Partition_Schedule); put ( "; " );
	put("Partition_Sched_Ext: "); put(obj.Partition_Sched_Ext); put ( "; " );
	put("MajorFrameSeconds: "); standards_io.double_io.put(obj.MajorFrameSeconds); put ( "; " );
end Put;
 
procedure Put(obj : in Module_Schedule_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Module_Schedule_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Module_Schedule_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.MODULE_SCHEDULE_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Module_Schedule_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Module_Schedule_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.Partition_Schedule, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partition_schedule>" & XML_String(obj.Partition_Schedule, level +  1) & "</partition_schedule>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Partition_Sched_Ext, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partition_sched_ext>" & XML_String(obj.Partition_Sched_Ext, level +  1) & "</partition_sched_ext>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.MajorFrameSeconds, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<majorframeseconds>" & XML_String(obj.MajorFrameSeconds, level +  1) & "</majorframeseconds>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Module_Schedule_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<module_schedule_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</module_schedule_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Module_Schedule_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Module_Schedule_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<module_schedule_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Module_Schedule_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Part_HM_Ext_Type =--------

procedure Initialize(obj : in out Part_HM_Ext_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in Part_HM_Ext_Type ) return ARINC_653_Object_Ptr is
	New_Part_HM_Ext_Type : Part_HM_Ext_Type_Ptr;
begin
	New_Part_HM_Ext_Type := new Part_HM_Ext_Type'(obj);
	return ARINC_653_Object_Ptr(New_Part_HM_Ext_Type);
end Copy;

function Copy ( obj : in Part_HM_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Part_HM_Ext_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in Part_HM_Ext_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Part_HM_Ext_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Part_HM_Ext_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PART_HM_EXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Part_HM_Ext_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Part_HM_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in Part_HM_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<part_hm_ext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</part_hm_ext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Part_HM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Part_HM_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<part_hm_ext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Part_HM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Partition_HM_Type =--------

procedure Initialize(obj : in out Partition_HM_Type) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.PartitionIdentifier := empty_string;
	obj.PartitionName := empty_string;
	obj.PartitionCallback := empty_string;
end Initialize;

function Copy ( obj : in Partition_HM_Type ) return ARINC_653_Object_Ptr is
	New_Partition_HM_Type : Partition_HM_Type_Ptr;
begin
	New_Partition_HM_Type := new Partition_HM_Type'(obj);
	return ARINC_653_Object_Ptr(New_Partition_HM_Type);
end Copy;

function Copy ( obj : in Partition_HM_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Partition_HM_Type) is 
begin
	put(ARINC_653_Object(obj));
	put("System_State_Entry: "); put(obj.System_State_Entry); put ( "; " );
	put("Part_HM_Ext: "); put(obj.Part_HM_Ext); put ( "; " );
	put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
	put("PartitionName: "); put(obj.PartitionName); put ( "; " );
	put("PartitionCallback: "); put(obj.PartitionCallback); put ( "; " );
end Put;
 
procedure Put(obj : in Partition_HM_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Partition_HM_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Partition_HM_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_HM_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Partition_HM_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Partition_HM_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.System_State_Entry, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<system_state_entry>" & XML_String(obj.System_State_Entry, level +  1) & "</system_state_entry>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Part_HM_Ext, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<part_hm_ext>" & XML_String(obj.Part_HM_Ext, level +  1) & "</part_hm_ext>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionIdentifier, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionidentifier>" & XML_String(obj.PartitionIdentifier, level +  1) & "</partitionidentifier>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionName, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionname>" & XML_String(obj.PartitionName, level +  1) & "</partitionname>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionCallback, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitioncallback>" & XML_String(obj.PartitionCallback, level +  1) & "</partitioncallback>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Partition_HM_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<partition_hm_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</partition_hm_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Partition_HM_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Partition_HM_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<partition_hm_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Partition_HM_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Pseudo_Partition =--------

procedure Initialize(obj : in out Pseudo_Partition) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.Name := empty_string;
	obj.PhysicalAddress := empty_string;
	obj.partition_procedure := empty_string;
end Initialize;

function Copy ( obj : in Pseudo_Partition ) return ARINC_653_Object_Ptr is
	New_Pseudo_Partition : Pseudo_Partition_Ptr;
begin
	New_Pseudo_Partition := new Pseudo_Partition'(obj);
	return ARINC_653_Object_Ptr(New_Pseudo_Partition);
end Copy;

function Copy ( obj : in Pseudo_Partition_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Pseudo_Partition) is 
begin
	put(ARINC_653_Object(obj));
	put("Name: "); put(obj.Name); put ( "; " );
	put("PhysicalAddress: "); put(obj.PhysicalAddress); put ( "; " );
	put("partition_procedure: "); put(obj.partition_procedure); put ( "; " );
end Put;
 
procedure Put(obj : in Pseudo_Partition_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Pseudo_Partition_Ptr) is
begin
	Put ( To_String ( Obj.Name ) );
end Put_Name;

function type_of ( obj : in Pseudo_Partition ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PSEUDO_PARTITION");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Pseudo_Partition_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Pseudo_Partition; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.Name, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<name>" & XML_String(obj.Name, level +  1) & "</name>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PhysicalAddress, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<physicaladdress>" & XML_String(obj.PhysicalAddress, level +  1) & "</physicaladdress>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.partition_procedure, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partition_procedure>" & XML_String(obj.partition_procedure, level +  1) & "</partition_procedure>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Pseudo_Partition; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<pseudo_partition id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</pseudo_partition>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Pseudo_Partition_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Pseudo_Partition; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<pseudo_partition ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Pseudo_Partition_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Standard_Partition =--------

procedure Initialize(obj : in out Standard_Partition) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.PartitionIdentifier := empty_string;
	obj.PartitionName := empty_string;
	obj.PortName := empty_string;
	obj.PhysicalAddress := empty_string;
end Initialize;

function Copy ( obj : in Standard_Partition ) return ARINC_653_Object_Ptr is
	New_Standard_Partition : Standard_Partition_Ptr;
begin
	New_Standard_Partition := new Standard_Partition'(obj);
	return ARINC_653_Object_Ptr(New_Standard_Partition);
end Copy;

function Copy ( obj : in Standard_Partition_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Standard_Partition) is 
begin
	put(ARINC_653_Object(obj));
	put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
	put("PartitionName: "); put(obj.PartitionName); put ( "; " );
	put("PortName: "); put(obj.PortName); put ( "; " );
	put("PhysicalAddress: "); put(obj.PhysicalAddress); put ( "; " );
end Put;
 
procedure Put(obj : in Standard_Partition_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Standard_Partition_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Standard_Partition ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.STANDARD_PARTITION");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Standard_Partition_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Standard_Partition; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.PartitionIdentifier, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionidentifier>" & XML_String(obj.PartitionIdentifier, level +  1) & "</partitionidentifier>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PartitionName, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partitionname>" & XML_String(obj.PartitionName, level +  1) & "</partitionname>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PortName, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<portname>" & XML_String(obj.PortName, level +  1) & "</portname>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PhysicalAddress, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<physicaladdress>" & XML_String(obj.PhysicalAddress, level +  1) & "</physicaladdress>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Standard_Partition; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<standard_partition id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</standard_partition>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Standard_Partition_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Standard_Partition; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<standard_partition ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Standard_Partition_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;



procedure Initialize (obj : out PortMappingType_Choice_Ptr) is
begin
	obj := NULL;
end Initialize;
 
procedure Put(obj : in PortMappingType_Choice_Ptr) is
begin
	if (obj /= NULL) then
		put("type_of_PortMappingType_Choice: "); put(obj.type_of_PortMappingType_Choice); put ( "; " );
		put ( "value: " );
		case obj.type_of_PortMappingType_Choice is 
			when pseudo_partition_Choice => 
				put("pseudo_partition: "); if obj.pseudo_partition /= null then put(obj.pseudo_partition.all); else put("null"); end if;put ( "; " );

			when standard_partition_Choice => 
				put("standard_partition: "); if obj.standard_partition /= null then put(obj.standard_partition.all); else put("null"); end if;put ( "; " );

		end case;
	end if;
	New_Line;
end Put;

function Copy ( obj : in PortMappingType_Choice ) return PortMappingType_Choice_Ptr is
	New_PortMappingType_Choice : PortMappingType_Choice_Ptr;
begin
	New_PortMappingType_Choice := new PortMappingType_Choice'(obj);
	return (New_PortMappingType_Choice);
end Copy;

function Copy ( obj : in PortMappingType_Choice_Ptr ) return PortMappingType_Choice_Ptr is
begin
	return copy(obj.all);
end Copy;

function XML_String(obj : in PortMappingType_Choice; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<portmappingtype_choice>" & Unbounded_Lf;
	if (XML_String(obj.type_of_PortMappingType_Choice, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<type_of_portmappingtype_choice>" & XML_String(obj.type_of_PortMappingType_Choice, level +  1) & "</type_of_portmappingtype_choice>" & Unbounded_Lf;
	end if;

	case obj.type_of_PortMappingType_Choice is 
		when pseudo_partition_Choice => 
			if (XML_String(obj.pseudo_partition, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<pseudo_partition>" & XML_String(obj.pseudo_partition, level +  1) & "</pseudo_partition>" & Unbounded_Lf;
	end if;

		when standard_partition_Choice => 
			if (XML_String(obj.standard_partition, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<standard_partition>" & XML_String(obj.standard_partition, level +  1) & "</standard_partition>" & Unbounded_Lf;
	end if;

	end case;
	result := result & "</portmappingtype_choice>" & Unbounded_Lf;
	return (result);
end XML_String;

function XML_String(obj : in PortMappingType_Choice_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_String(obj.all);
end XML_String;

function XML_Ref_String(obj : in PortMappingType_Choice; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	raise xml_ref_string_error;
	return to_unbounded_string("");
end XML_Ref_String;
function XML_Ref_String(obj : in PortMappingType_Choice_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;



-- --------= PortMap_Ext_Type =--------

procedure Initialize(obj : in out PortMap_Ext_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in PortMap_Ext_Type ) return ARINC_653_Object_Ptr is
	New_PortMap_Ext_Type : PortMap_Ext_Type_Ptr;
begin
	New_PortMap_Ext_Type := new PortMap_Ext_Type'(obj);
	return ARINC_653_Object_Ptr(New_PortMap_Ext_Type);
end Copy;

function Copy ( obj : in PortMap_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in PortMap_Ext_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in PortMap_Ext_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in PortMap_Ext_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in PortMap_Ext_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTMAP_EXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in PortMap_Ext_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in PortMap_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in PortMap_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<portmap_ext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</portmap_ext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in PortMap_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in PortMap_Ext_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<portmap_ext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PortMap_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= PortMappingType =--------

procedure Initialize(obj : in out PortMappingType) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in PortMappingType ) return ARINC_653_Object_Ptr is
	New_PortMappingType : PortMappingType_Ptr;
begin
	New_PortMappingType := new PortMappingType'(obj);
	return ARINC_653_Object_Ptr(New_PortMappingType);
end Copy;

function Copy ( obj : in PortMappingType_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in PortMappingType) is 
begin
	put(ARINC_653_Object(obj));
	put("choice: "); put(obj.choice); put ( "; " );
	put("PortMap_Ext: "); put(obj.PortMap_Ext); put ( "; " );
end Put;
 
procedure Put(obj : in PortMappingType_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in PortMappingType_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in PortMappingType ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTMAPPINGTYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in PortMappingType_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in PortMappingType; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.choice, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<choice>" & XML_String(obj.choice, level +  1) & "</choice>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.PortMap_Ext, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<portmap_ext>" & XML_String(obj.PortMap_Ext, level +  1) & "</portmap_ext>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in PortMappingType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<portmappingtype id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</portmappingtype>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in PortMappingType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in PortMappingType; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<portmappingtype ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PortMappingType_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= Channel =--------

procedure Initialize(obj : in out Channel) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.ChannelIdentifier := empty_string;
	obj.ChannelName := empty_string;
end Initialize;

function Copy ( obj : in Channel ) return ARINC_653_Object_Ptr is
	New_Channel : Channel_Ptr;
begin
	New_Channel := new Channel'(obj);
	return ARINC_653_Object_Ptr(New_Channel);
end Copy;

function Copy ( obj : in Channel_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in Channel) is 
begin
	put(ARINC_653_Object(obj));
	put("Source: "); if obj.Source /= null then put(obj.Source.all); else put("null"); end if;put ( "; " );
	put("Destination: "); put(obj.Destination); put ( "; " );
	put("ChannelIdentifier: "); put(obj.ChannelIdentifier); put ( "; " );
	put("ChannelName: "); put(obj.ChannelName); put ( "; " );
end Put;
 
procedure Put(obj : in Channel_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in Channel_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in Channel ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.CHANNEL");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in Channel_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in Channel; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.Source, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<source>" & XML_String(obj.Source, level +  1) & "</source>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Destination, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<destination>" & XML_String(obj.Destination, level +  1) & "</destination>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.ChannelIdentifier, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<channelidentifier>" & XML_String(obj.ChannelIdentifier, level +  1) & "</channelidentifier>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.ChannelName, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<channelname>" & XML_String(obj.ChannelName, level +  1) & "</channelname>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in Channel; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<channel id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</channel>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in Channel_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in Channel; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<channel ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Channel_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= ModExt_Type =--------

procedure Initialize(obj : in out ModExt_Type) is 
begin
	initialize(ARINC_653_Object(obj));
end Initialize;

function Copy ( obj : in ModExt_Type ) return ARINC_653_Object_Ptr is
	New_ModExt_Type : ModExt_Type_Ptr;
begin
	New_ModExt_Type := new ModExt_Type'(obj);
	return ARINC_653_Object_Ptr(New_ModExt_Type);
end Copy;

function Copy ( obj : in ModExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in ModExt_Type) is 
begin
	put(ARINC_653_Object(obj));
end Put;
 
procedure Put(obj : in ModExt_Type_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in ModExt_Type_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in ModExt_Type ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.MODEXT_TYPE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in ModExt_Type_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in ModExt_Type; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;

function XML_String(obj : in ModExt_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<modext_type id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</modext_type>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in ModExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in ModExt_Type; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<modext_type ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in ModExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




-- --------= ARINC_653_Module =--------

procedure Initialize(obj : in out ARINC_653_Module) is 
begin
	initialize(ARINC_653_Object(obj));
	obj.ModuleName := empty_string;
	obj.ModuleVersion := empty_string;
	obj.ModuleId := empty_string;
end Initialize;

function Copy ( obj : in ARINC_653_Module ) return ARINC_653_Object_Ptr is
	New_ARINC_653_Module : ARINC_653_Module_Ptr;
begin
	New_ARINC_653_Module := new ARINC_653_Module'(obj);
	return ARINC_653_Object_Ptr(New_ARINC_653_Module);
end Copy;

function Copy ( obj : in ARINC_653_Module_Ptr ) return ARINC_653_Object_Ptr is
begin
	return copy(obj.all);
end Copy;

procedure Put(obj : in ARINC_653_Module) is 
begin
	put(ARINC_653_Object(obj));
	put("System_HM_List: "); if obj.System_HM_List /= null then put(obj.System_HM_List.all); else put("null"); end if;put ( "; " );
	put("Module_HM_List: "); if obj.Module_HM_List /= null then put(obj.Module_HM_List.all); else put("null"); end if;put ( "; " );
	put("Partition: "); put(obj.Partition); put ( "; " );
	put("Partition_Memory: "); put(obj.Partition_Memory); put ( "; " );
	put("Module_Schedule: "); if obj.Module_Schedule /= null then put(obj.Module_Schedule.all); else put("null"); end if;put ( "; " );
	put("Partition_HM_List: "); put(obj.Partition_HM_List); put ( "; " );
	put("Connection_List: "); put(obj.Connection_List); put ( "; " );
	put("ModExt: "); put(obj.ModExt); put ( "; " );
	put("ModuleName: "); put(obj.ModuleName); put ( "; " );
	put("ModuleVersion: "); put(obj.ModuleVersion); put ( "; " );
	put("ModuleId: "); put(obj.ModuleId); put ( "; " );
end Put;
 
procedure Put(obj : in ARINC_653_Module_Ptr) is
begin
	Put(Obj.All);
end Put;
 
procedure Put_Name ( obj : in ARINC_653_Module_Ptr) is
begin
	Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;

function type_of ( obj : in ARINC_653_Module ) return unbounded_string_list is
	list : unbounded_string_list;
	s : unbounded_string_ptr;
begin
	Initialize(list);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
	Add (list, s);

	s := new unbounded_string;
	s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_MODULE");
	Add (list, s);

	return list;
end type_of;

function type_of ( obj : in ARINC_653_Module_Ptr ) return unbounded_string_list is
begin
	return type_of(obj.all);
end type_of;


procedure Build_Attributes_XML_String(obj : in ARINC_653_Module; level : in natural := 0; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
	if (XML_String(obj.System_HM_List, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<system_hm_list>" & XML_String(obj.System_HM_List, level +  1) & "</system_hm_list>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Module_HM_List, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<module_hm_list>" & XML_String(obj.Module_HM_List, level +  1) & "</module_hm_list>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Partition, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partition>" & XML_String(obj.Partition, level +  1) & "</partition>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Partition_Memory, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partition_memory>" & XML_String(obj.Partition_Memory, level +  1) & "</partition_memory>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Module_Schedule, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<module_schedule>" & XML_String(obj.Module_Schedule, level +  1) & "</module_schedule>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Partition_HM_List, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<partition_hm_list>" & XML_String(obj.Partition_HM_List, level +  1) & "</partition_hm_list>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.Connection_List, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<connection_list>" & XML_String(obj.Connection_List, level +  1) & "</connection_list>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.ModExt, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<modext>" & XML_String(obj.ModExt, level +  1) & "</modext>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.ModuleName, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<modulename>" & XML_String(obj.ModuleName, level +  1) & "</modulename>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.ModuleVersion, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<moduleversion>" & XML_String(obj.ModuleVersion, level +  1) & "</moduleversion>" & Unbounded_Lf;
	end if;
	if (XML_String(obj.ModuleId, level +  1) /= Empty_String) then
		result := result & unbounded_ht(level +  1) & "<moduleid>" & XML_String(obj.ModuleId, level +  1) & "</moduleid>" & Unbounded_Lf;
	end if;
end Build_Attributes_XML_String;

function XML_String(obj : in ARINC_653_Module; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	result := "<arinc_653_module id=""" & obj.cheddar_private_id & """ >" & Unbounded_Lf;
	Build_Attributes_XML_String(obj, level, result);
	result := result & "</arinc_653_module>" & Unbounded_Lf;
  return (result);
end XML_String;

function XML_String(obj : in ARINC_653_Module_Ptr; level : in natural := 0) return Unbounded_String is
begin
	if obj /= null then
		return XML_String(obj.all);
	else
		return Empty_String;
	end if;
end XML_String;

function XML_Ref_String(obj : in ARINC_653_Module; level : in natural := 0) return Unbounded_String is
	result : Unbounded_String;
begin
	 result := "<arinc_653_module ref=""" & obj.cheddar_private_id & """ />" & Unbounded_Lf;
  return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in ARINC_653_Module_Ptr; level : in natural := 0) return Unbounded_String is
begin
	return XML_Ref_String(obj.all);
end XML_Ref_String;




End ARINC_653_Schema;