------------------------------------------------------------------------------
------------------------------------------------------------------------------
--  This source file was automatically generated by 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 GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016   Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by 
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Université de Bretagne Occidentale
-- 
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008. 
-- Since 2008, Ellidiss technologies also contributes to the development of 
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- 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) return Unbounded_String is
begin
	return to_unbounded_string(ModuleActionType'image (obj) );
end XML_String;

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


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

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


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

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


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

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


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

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


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

function XML_Ref_String (obj : in CriticalityType) 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) 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) 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; result : in out Unbounded_String) is 
begin
	null;
end Build_Attributes_XML_String;

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

function XML_String(obj : in ARINC_653_Object_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<arinc_653_object ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in ARINC_653_Object_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.ErrorIdentifier) /= Empty_String) then
		result := result & to_unbounded_string("<erroridentifier>") & XML_String(obj.ErrorIdentifier) & to_unbounded_string("</erroridentifier>");
	end if;
	if (XML_String(obj.Description) /= Empty_String) then
		result := result & to_unbounded_string("<description>") & XML_String(obj.Description) & to_unbounded_string("</description>");
	end if;
	if (XML_String(obj.PartitionAction) /= Empty_String) then
		result := result & to_unbounded_string("<partitionaction>") & XML_String(obj.PartitionAction) & to_unbounded_string("</partitionaction>");
	end if;
	if (XML_String(obj.ModuleAction) /= Empty_String) then
		result := result & to_unbounded_string("<moduleaction>") & XML_String(obj.ModuleAction) & to_unbounded_string("</moduleaction>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Error_ID_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<error_id_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Error_ID_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(Error_ID_Type(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in Error_ID_Action_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<error_id_action_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Error_ID_Action_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(Error_ID_Type(obj), result);
	if (XML_String(obj.ErrorLevel) /= Empty_String) then
		result := result & to_unbounded_string("<errorlevel>") & XML_String(obj.ErrorLevel) & to_unbounded_string("</errorlevel>");
	end if;
	if (XML_String(obj.ErrorCode) /= Empty_String) then
		result := result & to_unbounded_string("<errorcode>") & XML_String(obj.ErrorCode) & to_unbounded_string("</errorcode>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Error_ID_Level_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<error_id_level_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Error_ID_Level_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.Error_ID_Action) /= Empty_String) then
		result := result & to_unbounded_string("<error_id_action>") & XML_String(obj.Error_ID_Action) & to_unbounded_string("</error_id_action>");
	end if;
	if (XML_String(obj.SystemState) /= Empty_String) then
		result := result & to_unbounded_string("<systemstate>") & XML_String(obj.SystemState) & to_unbounded_string("</systemstate>");
	end if;
	if (XML_String(obj.Description) /= Empty_String) then
		result := result & to_unbounded_string("<description>") & XML_String(obj.Description) & to_unbounded_string("</description>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in System_State_Entry_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<system_state_entry_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in System_State_Entry_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in SysHM_Ext_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<syshm_ext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in SysHM_Ext_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.System_State_Entry) /= Empty_String) then
		result := result & to_unbounded_string("<system_state_entry>") & XML_String(obj.System_State_Entry) & to_unbounded_string("</system_state_entry>");
	end if;
	if (XML_String(obj.SysHM_Ext) /= Empty_String) then
		result := result & to_unbounded_string("<syshm_ext>") & XML_String(obj.SysHM_Ext) & to_unbounded_string("</syshm_ext>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in System_HM_TableType_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<system_hm_tabletype ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in System_HM_TableType_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in Mod_HM_Ext_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<mod_hm_ext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Mod_HM_Ext_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.System_State_Entry) /= Empty_String) then
		result := result & to_unbounded_string("<system_state_entry>") & XML_String(obj.System_State_Entry) & to_unbounded_string("</system_state_entry>");
	end if;
	if (XML_String(obj.Mod_HM_Ext) /= Empty_String) then
		result := result & to_unbounded_string("<mod_hm_ext>") & XML_String(obj.Mod_HM_Ext) & to_unbounded_string("</mod_hm_ext>");
	end if;
	if (XML_String(obj.ModuleCallback) /= Empty_String) then
		result := result & to_unbounded_string("<modulecallback>") & XML_String(obj.ModuleCallback) & to_unbounded_string("</modulecallback>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Module_HM_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<module_hm_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Module_HM_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in PortExt_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<portext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PortExt_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.PortExt) /= Empty_String) then
		result := result & to_unbounded_string("<portext>") & XML_String(obj.PortExt) & to_unbounded_string("</portext>");
	end if;
	if (XML_String(obj.Name) /= Empty_String) then
		result := result & to_unbounded_string("<name>") & XML_String(obj.Name) & to_unbounded_string("</name>");
	end if;
	if (XML_String(obj.MaxMessageSize) /= Empty_String) then
		result := result & to_unbounded_string("<maxmessagesize>") & XML_String(obj.MaxMessageSize) & to_unbounded_string("</maxmessagesize>");
	end if;
	if (XML_String(obj.Direction) /= Empty_String) then
		result := result & to_unbounded_string("<direction>") & XML_String(obj.Direction) & to_unbounded_string("</direction>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in PortType_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<porttype ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PortType_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(PortType(obj), result);
	if (XML_String(obj.RefreshRateSeconds) /= Empty_String) then
		result := result & to_unbounded_string("<refreshrateseconds>") & XML_String(obj.RefreshRateSeconds) & to_unbounded_string("</refreshrateseconds>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in SamplingPortType_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<samplingporttype ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in SamplingPortType_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in ProcExt_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<procext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in ProcExt_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.ProcExt) /= Empty_String) then
		result := result & to_unbounded_string("<procext>") & XML_String(obj.ProcExt) & to_unbounded_string("</procext>");
	end if;
	if (XML_String(obj.Name) /= Empty_String) then
		result := result & to_unbounded_string("<name>") & XML_String(obj.Name) & to_unbounded_string("</name>");
	end if;
	if (XML_String(obj.StackSize) /= Empty_String) then
		result := result & to_unbounded_string("<stacksize>") & XML_String(obj.StackSize) & to_unbounded_string("</stacksize>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in ProcessType_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<processtype ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in ProcessType_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(PortType(obj), result);
	if (XML_String(obj.MaxNbMessages) /= Empty_String) then
		result := result & to_unbounded_string("<maxnbmessages>") & XML_String(obj.MaxNbMessages) & to_unbounded_string("</maxnbmessages>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in QueuingPortType_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<queuingporttype ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in QueuingPortType_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in PartitionExt_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<partitionext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PartitionExt_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.Sampling_Port) /= Empty_String) then
		result := result & to_unbounded_string("<sampling_port>") & XML_String(obj.Sampling_Port) & to_unbounded_string("</sampling_port>");
	end if;
	if (XML_String(obj.Queuing_Port) /= Empty_String) then
		result := result & to_unbounded_string("<queuing_port>") & XML_String(obj.Queuing_Port) & to_unbounded_string("</queuing_port>");
	end if;
	if (XML_String(obj.Process) /= Empty_String) then
		result := result & to_unbounded_string("<process>") & XML_String(obj.Process) & to_unbounded_string("</process>");
	end if;
	if (XML_String(obj.PartitionExt) /= Empty_String) then
		result := result & to_unbounded_string("<partitionext>") & XML_String(obj.PartitionExt) & to_unbounded_string("</partitionext>");
	end if;
	if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
		result := result & to_unbounded_string("<partitionidentifier>") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("</partitionidentifier>");
	end if;
	if (XML_String(obj.PartitionName) /= Empty_String) then
		result := result & to_unbounded_string("<partitionname>") & XML_String(obj.PartitionName) & to_unbounded_string("</partitionname>");
	end if;
	if (XML_String(obj.Criticality) /= Empty_String) then
		result := result & to_unbounded_string("<criticality>") & XML_String(obj.Criticality) & to_unbounded_string("</criticality>");
	end if;
	if (XML_String(obj.SystemPartition) /= Empty_String) then
		result := result & to_unbounded_string("<systempartition>") & XML_String(obj.SystemPartition) & to_unbounded_string("</systempartition>");
	end if;
	if (XML_String(obj.EntryPoint) /= Empty_String) then
		result := result & to_unbounded_string("<entrypoint>") & XML_String(obj.EntryPoint) & to_unbounded_string("</entrypoint>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in PartitionType_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<partitiontype ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PartitionType_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.regionName) /= Empty_String) then
		result := result & to_unbounded_string("<regionname>") & XML_String(obj.regionName) & to_unbounded_string("</regionname>");
	end if;
	if (XML_String(obj.memory_type) /= Empty_String) then
		result := result & to_unbounded_string("<memory_type>") & XML_String(obj.memory_type) & to_unbounded_string("</memory_type>");
	end if;
	if (XML_String(obj.sizeBytes) /= Empty_String) then
		result := result & to_unbounded_string("<sizebytes>") & XML_String(obj.sizeBytes) & to_unbounded_string("</sizebytes>");
	end if;
	if (XML_String(obj.physicalAddress) /= Empty_String) then
		result := result & to_unbounded_string("<physicaladdress>") & XML_String(obj.physicalAddress) & to_unbounded_string("</physicaladdress>");
	end if;
	if (XML_String(obj.memoryAccess) /= Empty_String) then
		result := result & to_unbounded_string("<memoryaccess>") & XML_String(obj.memoryAccess) & to_unbounded_string("</memoryaccess>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Memory_Requirements_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<memory_requirements ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Memory_Requirements_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in Memory_Ext_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<memory_ext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Memory_Ext_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.Memory_Requirements) /= Empty_String) then
		result := result & to_unbounded_string("<memory_requirements>") & XML_String(obj.Memory_Requirements) & to_unbounded_string("</memory_requirements>");
	end if;
	if (XML_String(obj.Memory_Ext) /= Empty_String) then
		result := result & to_unbounded_string("<memory_ext>") & XML_String(obj.Memory_Ext) & to_unbounded_string("</memory_ext>");
	end if;
	if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
		result := result & to_unbounded_string("<partitionidentifier>") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("</partitionidentifier>");
	end if;
	if (XML_String(obj.PartitionName) /= Empty_String) then
		result := result & to_unbounded_string("<partitionname>") & XML_String(obj.PartitionName) & to_unbounded_string("</partitionname>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Partition_Memory_Element_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<partition_memory_element ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Partition_Memory_Element_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in Partition_Sched_Ext_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<partition_sched_ext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Partition_Sched_Ext_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.WindowIdentifier) /= Empty_String) then
		result := result & to_unbounded_string("<windowidentifier>") & XML_String(obj.WindowIdentifier) & to_unbounded_string("</windowidentifier>");
	end if;
	if (XML_String(obj.WindowStartSeconds) /= Empty_String) then
		result := result & to_unbounded_string("<windowstartseconds>") & XML_String(obj.WindowStartSeconds) & to_unbounded_string("</windowstartseconds>");
	end if;
	if (XML_String(obj.WindowDurationSeconds) /= Empty_String) then
		result := result & to_unbounded_string("<windowdurationseconds>") & XML_String(obj.WindowDurationSeconds) & to_unbounded_string("</windowdurationseconds>");
	end if;
	if (XML_String(obj.PartitionPeriodStart) /= Empty_String) then
		result := result & to_unbounded_string("<partitionperiodstart>") & XML_String(obj.PartitionPeriodStart) & to_unbounded_string("</partitionperiodstart>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Window_Schedule_Element_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<window_schedule_element ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Window_Schedule_Element_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in Window_Sched_Ext_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<window_sched_ext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Window_Sched_Ext_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.Window_Schedule) /= Empty_String) then
		result := result & to_unbounded_string("<window_schedule>") & XML_String(obj.Window_Schedule) & to_unbounded_string("</window_schedule>");
	end if;
	if (XML_String(obj.Window_Sched_Ext) /= Empty_String) then
		result := result & to_unbounded_string("<window_sched_ext>") & XML_String(obj.Window_Sched_Ext) & to_unbounded_string("</window_sched_ext>");
	end if;
	if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
		result := result & to_unbounded_string("<partitionidentifier>") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("</partitionidentifier>");
	end if;
	if (XML_String(obj.PartitionName) /= Empty_String) then
		result := result & to_unbounded_string("<partitionname>") & XML_String(obj.PartitionName) & to_unbounded_string("</partitionname>");
	end if;
	if (XML_String(obj.PeriodSeconds) /= Empty_String) then
		result := result & to_unbounded_string("<periodseconds>") & XML_String(obj.PeriodSeconds) & to_unbounded_string("</periodseconds>");
	end if;
	if (XML_String(obj.PeriodDurationSeconds) /= Empty_String) then
		result := result & to_unbounded_string("<perioddurationseconds>") & XML_String(obj.PeriodDurationSeconds) & to_unbounded_string("</perioddurationseconds>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Partition_Schedule_Element_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<partition_schedule_element ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Partition_Schedule_Element_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.Partition_Schedule) /= Empty_String) then
		result := result & to_unbounded_string("<partition_schedule>") & XML_String(obj.Partition_Schedule) & to_unbounded_string("</partition_schedule>");
	end if;
	if (XML_String(obj.Partition_Sched_Ext) /= Empty_String) then
		result := result & to_unbounded_string("<partition_sched_ext>") & XML_String(obj.Partition_Sched_Ext) & to_unbounded_string("</partition_sched_ext>");
	end if;
	if (XML_String(obj.MajorFrameSeconds) /= Empty_String) then
		result := result & to_unbounded_string("<majorframeseconds>") & XML_String(obj.MajorFrameSeconds) & to_unbounded_string("</majorframeseconds>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Module_Schedule_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<module_schedule_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Module_Schedule_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in Part_HM_Ext_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<part_hm_ext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Part_HM_Ext_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.System_State_Entry) /= Empty_String) then
		result := result & to_unbounded_string("<system_state_entry>") & XML_String(obj.System_State_Entry) & to_unbounded_string("</system_state_entry>");
	end if;
	if (XML_String(obj.Part_HM_Ext) /= Empty_String) then
		result := result & to_unbounded_string("<part_hm_ext>") & XML_String(obj.Part_HM_Ext) & to_unbounded_string("</part_hm_ext>");
	end if;
	if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
		result := result & to_unbounded_string("<partitionidentifier>") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("</partitionidentifier>");
	end if;
	if (XML_String(obj.PartitionName) /= Empty_String) then
		result := result & to_unbounded_string("<partitionname>") & XML_String(obj.PartitionName) & to_unbounded_string("</partitionname>");
	end if;
	if (XML_String(obj.PartitionCallback) /= Empty_String) then
		result := result & to_unbounded_string("<partitioncallback>") & XML_String(obj.PartitionCallback) & to_unbounded_string("</partitioncallback>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Partition_HM_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<partition_hm_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Partition_HM_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.Name) /= Empty_String) then
		result := result & to_unbounded_string("<name>") & XML_String(obj.Name) & to_unbounded_string("</name>");
	end if;
	if (XML_String(obj.PhysicalAddress) /= Empty_String) then
		result := result & to_unbounded_string("<physicaladdress>") & XML_String(obj.PhysicalAddress) & to_unbounded_string("</physicaladdress>");
	end if;
	if (XML_String(obj.partition_procedure) /= Empty_String) then
		result := result & to_unbounded_string("<partition_procedure>") & XML_String(obj.partition_procedure) & to_unbounded_string("</partition_procedure>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Pseudo_Partition_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<pseudo_partition ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Pseudo_Partition_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
		result := result & to_unbounded_string("<partitionidentifier>") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("</partitionidentifier>");
	end if;
	if (XML_String(obj.PartitionName) /= Empty_String) then
		result := result & to_unbounded_string("<partitionname>") & XML_String(obj.PartitionName) & to_unbounded_string("</partitionname>");
	end if;
	if (XML_String(obj.PortName) /= Empty_String) then
		result := result & to_unbounded_string("<portname>") & XML_String(obj.PortName) & to_unbounded_string("</portname>");
	end if;
	if (XML_String(obj.PhysicalAddress) /= Empty_String) then
		result := result & to_unbounded_string("<physicaladdress>") & XML_String(obj.PhysicalAddress) & to_unbounded_string("</physicaladdress>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Standard_Partition_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<standard_partition ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Standard_Partition_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<portmappingtype_choice>");
	if (XML_String(obj.type_of_PortMappingType_Choice) /= Empty_String) then
		result := result & to_unbounded_string("<type_of_portmappingtype_choice>") & XML_String(obj.type_of_PortMappingType_Choice) & to_unbounded_string("</type_of_portmappingtype_choice>");
	end if;

	case obj.type_of_PortMappingType_Choice is 
		when pseudo_partition_Choice => 
			if (XML_String(obj.pseudo_partition) /= Empty_String) then
		result := result & to_unbounded_string("<pseudo_partition>") & XML_String(obj.pseudo_partition) & to_unbounded_string("</pseudo_partition>");
	end if;

		when standard_partition_Choice => 
			if (XML_String(obj.standard_partition) /= Empty_String) then
		result := result & to_unbounded_string("<standard_partition>") & XML_String(obj.standard_partition) & to_unbounded_string("</standard_partition>");
	end if;

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

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

function XML_Ref_String(obj : in PortMappingType_Choice) 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) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in PortMap_Ext_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<portmap_ext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PortMap_Ext_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.choice) /= Empty_String) then
		result := result & to_unbounded_string("<choice>") & XML_String(obj.choice) & to_unbounded_string("</choice>");
	end if;
	if (XML_String(obj.PortMap_Ext) /= Empty_String) then
		result := result & to_unbounded_string("<portmap_ext>") & XML_String(obj.PortMap_Ext) & to_unbounded_string("</portmap_ext>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in PortMappingType_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<portmappingtype ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in PortMappingType_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.Source) /= Empty_String) then
		result := result & to_unbounded_string("<source>") & XML_String(obj.Source) & to_unbounded_string("</source>");
	end if;
	if (XML_String(obj.Destination) /= Empty_String) then
		result := result & to_unbounded_string("<destination>") & XML_String(obj.Destination) & to_unbounded_string("</destination>");
	end if;
	if (XML_String(obj.ChannelIdentifier) /= Empty_String) then
		result := result & to_unbounded_string("<channelidentifier>") & XML_String(obj.ChannelIdentifier) & to_unbounded_string("</channelidentifier>");
	end if;
	if (XML_String(obj.ChannelName) /= Empty_String) then
		result := result & to_unbounded_string("<channelname>") & XML_String(obj.ChannelName) & to_unbounded_string("</channelname>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in Channel_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<channel ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in Channel_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;

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

function XML_String(obj : in ModExt_Type_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<modext_type ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

function XML_Ref_String(obj : in ModExt_Type_Ptr) 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; result : in out Unbounded_String) is 
begin
	Build_Attributes_XML_String(ARINC_653_Object(obj), result);
	if (XML_String(obj.System_HM_List) /= Empty_String) then
		result := result & to_unbounded_string("<system_hm_list>") & XML_String(obj.System_HM_List) & to_unbounded_string("</system_hm_list>");
	end if;
	if (XML_String(obj.Module_HM_List) /= Empty_String) then
		result := result & to_unbounded_string("<module_hm_list>") & XML_String(obj.Module_HM_List) & to_unbounded_string("</module_hm_list>");
	end if;
	if (XML_String(obj.Partition) /= Empty_String) then
		result := result & to_unbounded_string("<partition>") & XML_String(obj.Partition) & to_unbounded_string("</partition>");
	end if;
	if (XML_String(obj.Partition_Memory) /= Empty_String) then
		result := result & to_unbounded_string("<partition_memory>") & XML_String(obj.Partition_Memory) & to_unbounded_string("</partition_memory>");
	end if;
	if (XML_String(obj.Module_Schedule) /= Empty_String) then
		result := result & to_unbounded_string("<module_schedule>") & XML_String(obj.Module_Schedule) & to_unbounded_string("</module_schedule>");
	end if;
	if (XML_String(obj.Partition_HM_List) /= Empty_String) then
		result := result & to_unbounded_string("<partition_hm_list>") & XML_String(obj.Partition_HM_List) & to_unbounded_string("</partition_hm_list>");
	end if;
	if (XML_String(obj.Connection_List) /= Empty_String) then
		result := result & to_unbounded_string("<connection_list>") & XML_String(obj.Connection_List) & to_unbounded_string("</connection_list>");
	end if;
	if (XML_String(obj.ModExt) /= Empty_String) then
		result := result & to_unbounded_string("<modext>") & XML_String(obj.ModExt) & to_unbounded_string("</modext>");
	end if;
	if (XML_String(obj.ModuleName) /= Empty_String) then
		result := result & to_unbounded_string("<modulename>") & XML_String(obj.ModuleName) & to_unbounded_string("</modulename>");
	end if;
	if (XML_String(obj.ModuleVersion) /= Empty_String) then
		result := result & to_unbounded_string("<moduleversion>") & XML_String(obj.ModuleVersion) & to_unbounded_string("</moduleversion>");
	end if;
	if (XML_String(obj.ModuleId) /= Empty_String) then
		result := result & to_unbounded_string("<moduleid>") & XML_String(obj.ModuleId) & to_unbounded_string("</moduleid>");
	end if;
end Build_Attributes_XML_String;

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

function XML_String(obj : in ARINC_653_Module_Ptr) 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) return Unbounded_String is
	result : Unbounded_String;
begin
	result := to_unbounded_string("<arinc_653_module ref=""") & obj.cheddar_private_id & to_unbounded_string(""" />");
	return (result);
end XML_Ref_String;

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




End ARINC_653_Schema;