------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- 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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.ErrorIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.Description) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Description) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionAction) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionAction) & to_unbounded_string("");
end if;
if (XML_String(obj.ModuleAction) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModuleAction) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.ErrorLevel) & to_unbounded_string("");
end if;
if (XML_String(obj.ErrorCode) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ErrorCode) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.Error_ID_Action) & to_unbounded_string("");
end if;
if (XML_String(obj.SystemState) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.SystemState) & to_unbounded_string("");
end if;
if (XML_String(obj.Description) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Description) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.System_State_Entry) & to_unbounded_string("");
end if;
if (XML_String(obj.SysHM_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.SysHM_Ext) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.System_State_Entry) & to_unbounded_string("");
end if;
if (XML_String(obj.Mod_HM_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Mod_HM_Ext) & to_unbounded_string("");
end if;
if (XML_String(obj.ModuleCallback) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModuleCallback) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.PortExt) & to_unbounded_string("");
end if;
if (XML_String(obj.Name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Name) & to_unbounded_string("");
end if;
if (XML_String(obj.MaxMessageSize) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.MaxMessageSize) & to_unbounded_string("");
end if;
if (XML_String(obj.Direction) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Direction) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.RefreshRateSeconds) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.ProcExt) & to_unbounded_string("");
end if;
if (XML_String(obj.Name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Name) & to_unbounded_string("");
end if;
if (XML_String(obj.StackSize) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.StackSize) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.MaxNbMessages) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.Sampling_Port) & to_unbounded_string("");
end if;
if (XML_String(obj.Queuing_Port) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Queuing_Port) & to_unbounded_string("");
end if;
if (XML_String(obj.Process) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Process) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionExt) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionExt) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionName) & to_unbounded_string("");
end if;
if (XML_String(obj.Criticality) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Criticality) & to_unbounded_string("");
end if;
if (XML_String(obj.SystemPartition) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.SystemPartition) & to_unbounded_string("");
end if;
if (XML_String(obj.EntryPoint) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.EntryPoint) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.regionName) & to_unbounded_string("");
end if;
if (XML_String(obj.memory_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.memory_type) & to_unbounded_string("");
end if;
if (XML_String(obj.sizeBytes) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.sizeBytes) & to_unbounded_string("");
end if;
if (XML_String(obj.physicalAddress) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.physicalAddress) & to_unbounded_string("");
end if;
if (XML_String(obj.memoryAccess) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.memoryAccess) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.Memory_Requirements) & to_unbounded_string("");
end if;
if (XML_String(obj.Memory_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Memory_Ext) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionName) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.WindowIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.WindowStartSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.WindowStartSeconds) & to_unbounded_string("");
end if;
if (XML_String(obj.WindowDurationSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.WindowDurationSeconds) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionPeriodStart) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionPeriodStart) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.Window_Schedule) & to_unbounded_string("");
end if;
if (XML_String(obj.Window_Sched_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Window_Sched_Ext) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionName) & to_unbounded_string("");
end if;
if (XML_String(obj.PeriodSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PeriodSeconds) & to_unbounded_string("");
end if;
if (XML_String(obj.PeriodDurationSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PeriodDurationSeconds) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.Partition_Schedule) & to_unbounded_string("");
end if;
if (XML_String(obj.Partition_Sched_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Partition_Sched_Ext) & to_unbounded_string("");
end if;
if (XML_String(obj.MajorFrameSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.MajorFrameSeconds) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.System_State_Entry) & to_unbounded_string("");
end if;
if (XML_String(obj.Part_HM_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Part_HM_Ext) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionName) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionCallback) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionCallback) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.Name) & to_unbounded_string("");
end if;
if (XML_String(obj.PhysicalAddress) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PhysicalAddress) & to_unbounded_string("");
end if;
if (XML_String(obj.partition_procedure) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.partition_procedure) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionName) & to_unbounded_string("");
end if;
if (XML_String(obj.PortName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PortName) & to_unbounded_string("");
end if;
if (XML_String(obj.PhysicalAddress) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PhysicalAddress) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
if (XML_String(obj.type_of_PortMappingType_Choice) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.type_of_PortMappingType_Choice) & to_unbounded_string("");
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("") & XML_String(obj.pseudo_partition) & to_unbounded_string("");
end if;
when standard_partition_Choice =>
if (XML_String(obj.standard_partition) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.standard_partition) & to_unbounded_string("");
end if;
end case;
result := result & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.choice) & to_unbounded_string("");
end if;
if (XML_String(obj.PortMap_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PortMap_Ext) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
end if;
if (XML_String(obj.Destination) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Destination) & to_unbounded_string("");
end if;
if (XML_String(obj.ChannelIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ChannelIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.ChannelName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ChannelName) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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("") & XML_String(obj.System_HM_List) & to_unbounded_string("");
end if;
if (XML_String(obj.Module_HM_List) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Module_HM_List) & to_unbounded_string("");
end if;
if (XML_String(obj.Partition) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Partition) & to_unbounded_string("");
end if;
if (XML_String(obj.Partition_Memory) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Partition_Memory) & to_unbounded_string("");
end if;
if (XML_String(obj.Module_Schedule) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Module_Schedule) & to_unbounded_string("");
end if;
if (XML_String(obj.Partition_HM_List) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Partition_HM_List) & to_unbounded_string("");
end if;
if (XML_String(obj.Connection_List) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Connection_List) & to_unbounded_string("");
end if;
if (XML_String(obj.ModExt) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModExt) & to_unbounded_string("");
end if;
if (XML_String(obj.ModuleName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModuleName) & to_unbounded_string("");
end if;
if (XML_String(obj.ModuleVersion) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModuleVersion) & to_unbounded_string("");
end if;
if (XML_String(obj.ModuleId) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModuleId) & to_unbounded_string("");
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("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
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("");
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;