------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This Ada package was automatically generated by the software engineering tool Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a free real time scheduling tool.
-- This program provides services to automatically check temporal constraints
-- of real time tasks.
--
-- Copyright (C) 2002-2009 Frank Singhoff
-- Cheddar is developed by the LAB-STICC Team, University of Brest
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with framework;
use framework;
with id_generators;
use id_generators;
Package Body ARINC_653_Schema is
function XML_String(obj : in ModuleActionType; level : in natural := 0) return Unbounded_String is
begin
return to_unbounded_string(ModuleActionType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in ModuleActionType; level : in natural := 0) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in PartitionActionType; level : in natural := 0) return Unbounded_String is
begin
return to_unbounded_string(PartitionActionType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in PartitionActionType; level : in natural := 0) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in ErrorLevelType; level : in natural := 0) return Unbounded_String is
begin
return to_unbounded_string(ErrorLevelType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in ErrorLevelType; level : in natural := 0) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in ErrorCodeType; level : in natural := 0) return Unbounded_String is
begin
return to_unbounded_string(ErrorCodeType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in ErrorCodeType; level : in natural := 0) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in DirectionType; level : in natural := 0) return Unbounded_String is
begin
return to_unbounded_string(DirectionType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in DirectionType; level : in natural := 0) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in CriticalityType; level : in natural := 0) return Unbounded_String is
begin
return to_unbounded_string(CriticalityType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in CriticalityType; level : in natural := 0) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in PortMappingType_Choice_Type; level : in natural := 0) return Unbounded_String is
begin
return to_unbounded_string(PortMappingType_Choice_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in PortMappingType_Choice_Type; level : in natural := 0) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= ARINC_653_Object =--------
procedure Initialize(obj : in out ARINC_653_Object) is
begin
generate_id( framework_id, obj.cheddar_private_id );
end Initialize;
function Copy ( obj : in ARINC_653_Object ) return ARINC_653_Object_Ptr is
New_ARINC_653_Object : ARINC_653_Object_Ptr;
begin
New_ARINC_653_Object := new ARINC_653_Object'(obj);
return (New_ARINC_653_Object);
end Copy;
function Copy ( obj : in ARINC_653_Object_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in ARINC_653_Object) is
begin
put("cheddar_private_id: "); put(obj.cheddar_private_id); put ( "; " );
end Put;
procedure Put(obj : in ARINC_653_Object_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in ARINC_653_Object_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in ARINC_653_Object ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in ARINC_653_Object_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in ARINC_653_Object; level : in natural := 0; result : in out Unbounded_String) is
begin
null;
end Build_Attributes_XML_String;
function XML_String(obj : in ARINC_653_Object; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in ARINC_653_Object_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in ARINC_653_Object; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in ARINC_653_Object_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Error_ID_Type =--------
procedure Initialize(obj : in out Error_ID_Type) is
begin
initialize(ARINC_653_Object(obj));
obj.ErrorIdentifier := empty_string;
obj.Description := empty_string;
obj.PartitionAction := IGNORE;
obj.ModuleAction := IGNORE;
end Initialize;
function Copy ( obj : in Error_ID_Type ) return ARINC_653_Object_Ptr is
New_Error_ID_Type : Error_ID_Type_Ptr;
begin
New_Error_ID_Type := new Error_ID_Type'(obj);
return ARINC_653_Object_Ptr(New_Error_ID_Type);
end Copy;
function Copy ( obj : in Error_ID_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Error_ID_Type) is
begin
put(ARINC_653_Object(obj));
put("ErrorIdentifier: "); put(obj.ErrorIdentifier); put ( "; " );
put("Description: "); put(obj.Description); put ( "; " );
put("PartitionAction: "); put(obj.PartitionAction); put ( "; " );
put("ModuleAction: "); put(obj.ModuleAction); put ( "; " );
end Put;
procedure Put(obj : in Error_ID_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Error_ID_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Error_ID_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Error_ID_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Error_ID_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.ErrorIdentifier, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ErrorIdentifier, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Description, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Description, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionAction, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionAction, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.ModuleAction, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ModuleAction, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Error_ID_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Error_ID_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Error_ID_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Error_ID_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Error_ID_Action_Type =--------
procedure Initialize(obj : in out Error_ID_Action_Type) is
begin
initialize(Error_ID_Type(obj));
end Initialize;
function Copy ( obj : in Error_ID_Action_Type ) return ARINC_653_Object_Ptr is
New_Error_ID_Action_Type : Error_ID_Action_Type_Ptr;
begin
New_Error_ID_Action_Type := new Error_ID_Action_Type'(obj);
return ARINC_653_Object_Ptr(New_Error_ID_Action_Type);
end Copy;
function Copy ( obj : in Error_ID_Action_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Error_ID_Action_Type) is
begin
put(Error_ID_Type(obj));
end Put;
procedure Put(obj : in Error_ID_Action_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Error_ID_Action_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Error_ID_Action_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_TYPE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_ACTION_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Error_ID_Action_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Error_ID_Action_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Error_ID_Type(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in Error_ID_Action_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Error_ID_Action_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Error_ID_Action_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Error_ID_Action_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Error_ID_Level_Type =--------
procedure Initialize(obj : in out Error_ID_Level_Type) is
begin
initialize(Error_ID_Type(obj));
obj.ErrorLevel := MODULE;
obj.ErrorCode := DEADLINE_MISSED;
end Initialize;
function Copy ( obj : in Error_ID_Level_Type ) return ARINC_653_Object_Ptr is
New_Error_ID_Level_Type : Error_ID_Level_Type_Ptr;
begin
New_Error_ID_Level_Type := new Error_ID_Level_Type'(obj);
return ARINC_653_Object_Ptr(New_Error_ID_Level_Type);
end Copy;
function Copy ( obj : in Error_ID_Level_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Error_ID_Level_Type) is
begin
put(Error_ID_Type(obj));
put("ErrorLevel: "); put(obj.ErrorLevel); put ( "; " );
put("ErrorCode: "); put(obj.ErrorCode); put ( "; " );
end Put;
procedure Put(obj : in Error_ID_Level_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Error_ID_Level_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Error_ID_Level_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_TYPE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_LEVEL_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Error_ID_Level_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Error_ID_Level_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Error_ID_Type(obj), level, result);
if (XML_String(obj.ErrorLevel, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ErrorLevel, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.ErrorCode, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ErrorCode, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Error_ID_Level_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Error_ID_Level_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Error_ID_Level_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Error_ID_Level_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= System_State_Entry_Type =--------
procedure Initialize(obj : in out System_State_Entry_Type) is
begin
initialize(ARINC_653_Object(obj));
obj.SystemState := empty_string;
obj.Description := empty_string;
end Initialize;
function Copy ( obj : in System_State_Entry_Type ) return ARINC_653_Object_Ptr is
New_System_State_Entry_Type : System_State_Entry_Type_Ptr;
begin
New_System_State_Entry_Type := new System_State_Entry_Type'(obj);
return ARINC_653_Object_Ptr(New_System_State_Entry_Type);
end Copy;
function Copy ( obj : in System_State_Entry_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in System_State_Entry_Type) is
begin
put(ARINC_653_Object(obj));
put("Error_ID_Action: "); put(obj.Error_ID_Action); put ( "; " );
put("SystemState: "); put(obj.SystemState); put ( "; " );
put("Description: "); put(obj.Description); put ( "; " );
end Put;
procedure Put(obj : in System_State_Entry_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in System_State_Entry_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in System_State_Entry_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.SYSTEM_STATE_ENTRY_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in System_State_Entry_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in System_State_Entry_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.Error_ID_Action, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Error_ID_Action, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.SystemState, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.SystemState, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Description, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Description, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in System_State_Entry_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in System_State_Entry_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in System_State_Entry_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in System_State_Entry_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= SysHM_Ext_Type =--------
procedure Initialize(obj : in out SysHM_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in SysHM_Ext_Type ) return ARINC_653_Object_Ptr is
New_SysHM_Ext_Type : SysHM_Ext_Type_Ptr;
begin
New_SysHM_Ext_Type := new SysHM_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_SysHM_Ext_Type);
end Copy;
function Copy ( obj : in SysHM_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in SysHM_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in SysHM_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in SysHM_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in SysHM_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.SYSHM_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in SysHM_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in SysHM_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in SysHM_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in SysHM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in SysHM_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in SysHM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= System_HM_TableType =--------
procedure Initialize(obj : in out System_HM_TableType) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in System_HM_TableType ) return ARINC_653_Object_Ptr is
New_System_HM_TableType : System_HM_TableType_Ptr;
begin
New_System_HM_TableType := new System_HM_TableType'(obj);
return ARINC_653_Object_Ptr(New_System_HM_TableType);
end Copy;
function Copy ( obj : in System_HM_TableType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in System_HM_TableType) is
begin
put(ARINC_653_Object(obj));
put("System_State_Entry: "); put(obj.System_State_Entry); put ( "; " );
put("SysHM_Ext: "); put(obj.SysHM_Ext); put ( "; " );
end Put;
procedure Put(obj : in System_HM_TableType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in System_HM_TableType_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in System_HM_TableType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.SYSTEM_HM_TABLETYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in System_HM_TableType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in System_HM_TableType; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.System_State_Entry, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.System_State_Entry, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.SysHM_Ext, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.SysHM_Ext, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in System_HM_TableType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in System_HM_TableType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in System_HM_TableType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in System_HM_TableType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Mod_HM_Ext_Type =--------
procedure Initialize(obj : in out Mod_HM_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in Mod_HM_Ext_Type ) return ARINC_653_Object_Ptr is
New_Mod_HM_Ext_Type : Mod_HM_Ext_Type_Ptr;
begin
New_Mod_HM_Ext_Type := new Mod_HM_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_Mod_HM_Ext_Type);
end Copy;
function Copy ( obj : in Mod_HM_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Mod_HM_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in Mod_HM_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Mod_HM_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Mod_HM_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MOD_HM_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Mod_HM_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Mod_HM_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in Mod_HM_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Mod_HM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Mod_HM_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Mod_HM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Module_HM_Type =--------
procedure Initialize(obj : in out Module_HM_Type) is
begin
initialize(ARINC_653_Object(obj));
obj.ModuleCallback := empty_string;
end Initialize;
function Copy ( obj : in Module_HM_Type ) return ARINC_653_Object_Ptr is
New_Module_HM_Type : Module_HM_Type_Ptr;
begin
New_Module_HM_Type := new Module_HM_Type'(obj);
return ARINC_653_Object_Ptr(New_Module_HM_Type);
end Copy;
function Copy ( obj : in Module_HM_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Module_HM_Type) is
begin
put(ARINC_653_Object(obj));
put("System_State_Entry: "); put(obj.System_State_Entry); put ( "; " );
put("Mod_HM_Ext: "); put(obj.Mod_HM_Ext); put ( "; " );
put("ModuleCallback: "); put(obj.ModuleCallback); put ( "; " );
end Put;
procedure Put(obj : in Module_HM_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Module_HM_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Module_HM_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MODULE_HM_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Module_HM_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Module_HM_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.System_State_Entry, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.System_State_Entry, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Mod_HM_Ext, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Mod_HM_Ext, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.ModuleCallback, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ModuleCallback, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Module_HM_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Module_HM_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Module_HM_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Module_HM_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PortExt_Type =--------
procedure Initialize(obj : in out PortExt_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in PortExt_Type ) return ARINC_653_Object_Ptr is
New_PortExt_Type : PortExt_Type_Ptr;
begin
New_PortExt_Type := new PortExt_Type'(obj);
return ARINC_653_Object_Ptr(New_PortExt_Type);
end Copy;
function Copy ( obj : in PortExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PortExt_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in PortExt_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PortExt_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in PortExt_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTEXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PortExt_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PortExt_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in PortExt_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in PortExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in PortExt_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PortExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PortType =--------
procedure Initialize(obj : in out PortType) is
begin
initialize(ARINC_653_Object(obj));
obj.Name := empty_string;
obj.MaxMessageSize := empty_string;
obj.Direction := SOURCE;
end Initialize;
function Copy ( obj : in PortType ) return ARINC_653_Object_Ptr is
New_PortType : PortType_Ptr;
begin
New_PortType := new PortType'(obj);
return ARINC_653_Object_Ptr(New_PortType);
end Copy;
function Copy ( obj : in PortType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PortType) is
begin
put(ARINC_653_Object(obj));
put("PortExt: "); put(obj.PortExt); put ( "; " );
put("Name: "); put(obj.Name); put ( "; " );
put("MaxMessageSize: "); put(obj.MaxMessageSize); put ( "; " );
put("Direction: "); put(obj.Direction); put ( "; " );
end Put;
procedure Put(obj : in PortType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PortType_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function type_of ( obj : in PortType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PortType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PortType; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.PortExt, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PortExt, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Name, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Name, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.MaxMessageSize, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.MaxMessageSize, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Direction, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Direction, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in PortType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in PortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in PortType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= SamplingPortType =--------
procedure Initialize(obj : in out SamplingPortType) is
begin
initialize(PortType(obj));
obj.RefreshRateSeconds := 0.0;
end Initialize;
function Copy ( obj : in SamplingPortType ) return ARINC_653_Object_Ptr is
New_SamplingPortType : SamplingPortType_Ptr;
begin
New_SamplingPortType := new SamplingPortType'(obj);
return ARINC_653_Object_Ptr(New_SamplingPortType);
end Copy;
function Copy ( obj : in SamplingPortType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in SamplingPortType) is
begin
put(PortType(obj));
put("RefreshRateSeconds: "); standards_io.double_io.put(obj.RefreshRateSeconds); put ( "; " );
end Put;
procedure Put(obj : in SamplingPortType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in SamplingPortType_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function type_of ( obj : in SamplingPortType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTTYPE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.SAMPLINGPORTTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in SamplingPortType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in SamplingPortType; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(PortType(obj), level, result);
if (XML_String(obj.RefreshRateSeconds, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.RefreshRateSeconds, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in SamplingPortType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in SamplingPortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in SamplingPortType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in SamplingPortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= ProcExt_Type =--------
procedure Initialize(obj : in out ProcExt_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in ProcExt_Type ) return ARINC_653_Object_Ptr is
New_ProcExt_Type : ProcExt_Type_Ptr;
begin
New_ProcExt_Type := new ProcExt_Type'(obj);
return ARINC_653_Object_Ptr(New_ProcExt_Type);
end Copy;
function Copy ( obj : in ProcExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in ProcExt_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in ProcExt_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in ProcExt_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in ProcExt_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PROCEXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in ProcExt_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in ProcExt_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in ProcExt_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in ProcExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in ProcExt_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in ProcExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= ProcessType =--------
procedure Initialize(obj : in out ProcessType) is
begin
initialize(ARINC_653_Object(obj));
obj.Name := empty_string;
obj.StackSize := empty_string;
end Initialize;
function Copy ( obj : in ProcessType ) return ARINC_653_Object_Ptr is
New_ProcessType : ProcessType_Ptr;
begin
New_ProcessType := new ProcessType'(obj);
return ARINC_653_Object_Ptr(New_ProcessType);
end Copy;
function Copy ( obj : in ProcessType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in ProcessType) is
begin
put(ARINC_653_Object(obj));
put("ProcExt: "); put(obj.ProcExt); put ( "; " );
put("Name: "); put(obj.Name); put ( "; " );
put("StackSize: "); put(obj.StackSize); put ( "; " );
end Put;
procedure Put(obj : in ProcessType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in ProcessType_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function type_of ( obj : in ProcessType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PROCESSTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in ProcessType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in ProcessType; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.ProcExt, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ProcExt, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Name, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Name, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.StackSize, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.StackSize, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in ProcessType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in ProcessType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in ProcessType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in ProcessType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= QueuingPortType =--------
procedure Initialize(obj : in out QueuingPortType) is
begin
initialize(PortType(obj));
obj.MaxNbMessages := 0;
end Initialize;
function Copy ( obj : in QueuingPortType ) return ARINC_653_Object_Ptr is
New_QueuingPortType : QueuingPortType_Ptr;
begin
New_QueuingPortType := new QueuingPortType'(obj);
return ARINC_653_Object_Ptr(New_QueuingPortType);
end Copy;
function Copy ( obj : in QueuingPortType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in QueuingPortType) is
begin
put(PortType(obj));
put("MaxNbMessages: "); standards_io.natural_io.put(obj.MaxNbMessages); put ( "; " );
end Put;
procedure Put(obj : in QueuingPortType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in QueuingPortType_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function type_of ( obj : in QueuingPortType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTTYPE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.QUEUINGPORTTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in QueuingPortType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in QueuingPortType; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(PortType(obj), level, result);
if (XML_String(obj.MaxNbMessages, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.MaxNbMessages, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in QueuingPortType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in QueuingPortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in QueuingPortType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in QueuingPortType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PartitionExt_Type =--------
procedure Initialize(obj : in out PartitionExt_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in PartitionExt_Type ) return ARINC_653_Object_Ptr is
New_PartitionExt_Type : PartitionExt_Type_Ptr;
begin
New_PartitionExt_Type := new PartitionExt_Type'(obj);
return ARINC_653_Object_Ptr(New_PartitionExt_Type);
end Copy;
function Copy ( obj : in PartitionExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PartitionExt_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in PartitionExt_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PartitionExt_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in PartitionExt_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITIONEXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PartitionExt_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PartitionExt_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in PartitionExt_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in PartitionExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in PartitionExt_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PartitionExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PartitionType =--------
procedure Initialize(obj : in out PartitionType) is
begin
initialize(ARINC_653_Object(obj));
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.Criticality := LEVEL_A;
obj.SystemPartition := false;
obj.EntryPoint := empty_string;
end Initialize;
function Copy ( obj : in PartitionType ) return ARINC_653_Object_Ptr is
New_PartitionType : PartitionType_Ptr;
begin
New_PartitionType := new PartitionType'(obj);
return ARINC_653_Object_Ptr(New_PartitionType);
end Copy;
function Copy ( obj : in PartitionType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PartitionType) is
begin
put(ARINC_653_Object(obj));
put("Sampling_Port: "); put(obj.Sampling_Port); put ( "; " );
put("Queuing_Port: "); put(obj.Queuing_Port); put ( "; " );
put("Process: "); put(obj.Process); put ( "; " );
put("PartitionExt: "); put(obj.PartitionExt); put ( "; " );
put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
put("PartitionName: "); put(obj.PartitionName); put ( "; " );
put("Criticality: "); put(obj.Criticality); put ( "; " );
put("SystemPartition: "); standards_io.boolean_io.put(obj.SystemPartition); put ( "; " );
put("EntryPoint: "); put(obj.EntryPoint); put ( "; " );
end Put;
procedure Put(obj : in PartitionType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PartitionType_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in PartitionType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITIONTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PartitionType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PartitionType; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.Sampling_Port, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Sampling_Port, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Queuing_Port, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Queuing_Port, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Process, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Process, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionExt, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionExt, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionIdentifier, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionIdentifier, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionName, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionName, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Criticality, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Criticality, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.SystemPartition, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.SystemPartition, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.EntryPoint, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.EntryPoint, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in PartitionType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in PartitionType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in PartitionType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PartitionType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Memory_Requirements =--------
procedure Initialize(obj : in out Memory_Requirements) is
begin
initialize(ARINC_653_Object(obj));
obj.regionName := empty_string;
obj.memory_type := empty_string;
obj.sizeBytes := empty_string;
obj.physicalAddress := empty_string;
obj.memoryAccess := empty_string;
end Initialize;
function Copy ( obj : in Memory_Requirements ) return ARINC_653_Object_Ptr is
New_Memory_Requirements : Memory_Requirements_Ptr;
begin
New_Memory_Requirements := new Memory_Requirements'(obj);
return ARINC_653_Object_Ptr(New_Memory_Requirements);
end Copy;
function Copy ( obj : in Memory_Requirements_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Memory_Requirements) is
begin
put(ARINC_653_Object(obj));
put("regionName: "); put(obj.regionName); put ( "; " );
put("memory_type: "); put(obj.memory_type); put ( "; " );
put("sizeBytes: "); put(obj.sizeBytes); put ( "; " );
put("physicalAddress: "); put(obj.physicalAddress); put ( "; " );
put("memoryAccess: "); put(obj.memoryAccess); put ( "; " );
end Put;
procedure Put(obj : in Memory_Requirements_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Memory_Requirements_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Memory_Requirements ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MEMORY_REQUIREMENTS");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Memory_Requirements_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Memory_Requirements; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.regionName, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.regionName, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.memory_type, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.memory_type, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.sizeBytes, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.sizeBytes, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.physicalAddress, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.physicalAddress, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.memoryAccess, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.memoryAccess, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Memory_Requirements; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Memory_Requirements_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Memory_Requirements; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Memory_Requirements_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Memory_Ext_Type =--------
procedure Initialize(obj : in out Memory_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in Memory_Ext_Type ) return ARINC_653_Object_Ptr is
New_Memory_Ext_Type : Memory_Ext_Type_Ptr;
begin
New_Memory_Ext_Type := new Memory_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_Memory_Ext_Type);
end Copy;
function Copy ( obj : in Memory_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Memory_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in Memory_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Memory_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Memory_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MEMORY_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Memory_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Memory_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in Memory_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Memory_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Memory_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Memory_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Partition_Memory_Element =--------
procedure Initialize(obj : in out Partition_Memory_Element) is
begin
initialize(ARINC_653_Object(obj));
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
end Initialize;
function Copy ( obj : in Partition_Memory_Element ) return ARINC_653_Object_Ptr is
New_Partition_Memory_Element : Partition_Memory_Element_Ptr;
begin
New_Partition_Memory_Element := new Partition_Memory_Element'(obj);
return ARINC_653_Object_Ptr(New_Partition_Memory_Element);
end Copy;
function Copy ( obj : in Partition_Memory_Element_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Partition_Memory_Element) is
begin
put(ARINC_653_Object(obj));
put("Memory_Requirements: "); if obj.Memory_Requirements /= null then put(obj.Memory_Requirements.all); else put("null"); end if;put ( "; " );
put("Memory_Ext: "); put(obj.Memory_Ext); put ( "; " );
put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
put("PartitionName: "); put(obj.PartitionName); put ( "; " );
end Put;
procedure Put(obj : in Partition_Memory_Element_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Partition_Memory_Element_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Partition_Memory_Element ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_MEMORY_ELEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Partition_Memory_Element_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Partition_Memory_Element; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.Memory_Requirements, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Memory_Requirements, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Memory_Ext, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Memory_Ext, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionIdentifier, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionIdentifier, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionName, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionName, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Partition_Memory_Element; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Partition_Memory_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Partition_Memory_Element; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Partition_Memory_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Partition_Sched_Ext_Type =--------
procedure Initialize(obj : in out Partition_Sched_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in Partition_Sched_Ext_Type ) return ARINC_653_Object_Ptr is
New_Partition_Sched_Ext_Type : Partition_Sched_Ext_Type_Ptr;
begin
New_Partition_Sched_Ext_Type := new Partition_Sched_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_Partition_Sched_Ext_Type);
end Copy;
function Copy ( obj : in Partition_Sched_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Partition_Sched_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in Partition_Sched_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Partition_Sched_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Partition_Sched_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_SCHED_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Partition_Sched_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Partition_Sched_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in Partition_Sched_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Partition_Sched_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Partition_Sched_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Partition_Sched_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Window_Schedule_Element =--------
procedure Initialize(obj : in out Window_Schedule_Element) is
begin
initialize(ARINC_653_Object(obj));
obj.WindowIdentifier := empty_string;
obj.WindowStartSeconds := 0.0;
obj.WindowDurationSeconds := 0.0;
obj.PartitionPeriodStart := false;
end Initialize;
function Copy ( obj : in Window_Schedule_Element ) return ARINC_653_Object_Ptr is
New_Window_Schedule_Element : Window_Schedule_Element_Ptr;
begin
New_Window_Schedule_Element := new Window_Schedule_Element'(obj);
return ARINC_653_Object_Ptr(New_Window_Schedule_Element);
end Copy;
function Copy ( obj : in Window_Schedule_Element_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Window_Schedule_Element) is
begin
put(ARINC_653_Object(obj));
put("WindowIdentifier: "); put(obj.WindowIdentifier); put ( "; " );
put("WindowStartSeconds: "); standards_io.double_io.put(obj.WindowStartSeconds); put ( "; " );
put("WindowDurationSeconds: "); standards_io.double_io.put(obj.WindowDurationSeconds); put ( "; " );
put("PartitionPeriodStart: "); standards_io.boolean_io.put(obj.PartitionPeriodStart); put ( "; " );
end Put;
procedure Put(obj : in Window_Schedule_Element_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Window_Schedule_Element_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Window_Schedule_Element ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.WINDOW_SCHEDULE_ELEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Window_Schedule_Element_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Window_Schedule_Element; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.WindowIdentifier, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.WindowIdentifier, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.WindowStartSeconds, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.WindowStartSeconds, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.WindowDurationSeconds, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.WindowDurationSeconds, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionPeriodStart, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionPeriodStart, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Window_Schedule_Element; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Window_Schedule_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Window_Schedule_Element; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Window_Schedule_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Window_Sched_Ext_Type =--------
procedure Initialize(obj : in out Window_Sched_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in Window_Sched_Ext_Type ) return ARINC_653_Object_Ptr is
New_Window_Sched_Ext_Type : Window_Sched_Ext_Type_Ptr;
begin
New_Window_Sched_Ext_Type := new Window_Sched_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_Window_Sched_Ext_Type);
end Copy;
function Copy ( obj : in Window_Sched_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Window_Sched_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in Window_Sched_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Window_Sched_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Window_Sched_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.WINDOW_SCHED_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Window_Sched_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Window_Sched_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in Window_Sched_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Window_Sched_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Window_Sched_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Window_Sched_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Partition_Schedule_Element =--------
procedure Initialize(obj : in out Partition_Schedule_Element) is
begin
initialize(ARINC_653_Object(obj));
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.PeriodSeconds := 0.0;
obj.PeriodDurationSeconds := 0.0;
end Initialize;
function Copy ( obj : in Partition_Schedule_Element ) return ARINC_653_Object_Ptr is
New_Partition_Schedule_Element : Partition_Schedule_Element_Ptr;
begin
New_Partition_Schedule_Element := new Partition_Schedule_Element'(obj);
return ARINC_653_Object_Ptr(New_Partition_Schedule_Element);
end Copy;
function Copy ( obj : in Partition_Schedule_Element_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Partition_Schedule_Element) is
begin
put(ARINC_653_Object(obj));
put("Window_Schedule: "); put(obj.Window_Schedule); put ( "; " );
put("Window_Sched_Ext: "); put(obj.Window_Sched_Ext); put ( "; " );
put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
put("PartitionName: "); put(obj.PartitionName); put ( "; " );
put("PeriodSeconds: "); standards_io.double_io.put(obj.PeriodSeconds); put ( "; " );
put("PeriodDurationSeconds: "); standards_io.double_io.put(obj.PeriodDurationSeconds); put ( "; " );
end Put;
procedure Put(obj : in Partition_Schedule_Element_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Partition_Schedule_Element_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Partition_Schedule_Element ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_SCHEDULE_ELEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Partition_Schedule_Element_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Partition_Schedule_Element; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.Window_Schedule, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Window_Schedule, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Window_Sched_Ext, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Window_Sched_Ext, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionIdentifier, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionIdentifier, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionName, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionName, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PeriodSeconds, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PeriodSeconds, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PeriodDurationSeconds, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PeriodDurationSeconds, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Partition_Schedule_Element; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Partition_Schedule_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Partition_Schedule_Element; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Partition_Schedule_Element_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Module_Schedule_Type =--------
procedure Initialize(obj : in out Module_Schedule_Type) is
begin
initialize(ARINC_653_Object(obj));
obj.MajorFrameSeconds := 0.0;
end Initialize;
function Copy ( obj : in Module_Schedule_Type ) return ARINC_653_Object_Ptr is
New_Module_Schedule_Type : Module_Schedule_Type_Ptr;
begin
New_Module_Schedule_Type := new Module_Schedule_Type'(obj);
return ARINC_653_Object_Ptr(New_Module_Schedule_Type);
end Copy;
function Copy ( obj : in Module_Schedule_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Module_Schedule_Type) is
begin
put(ARINC_653_Object(obj));
put("Partition_Schedule: "); put(obj.Partition_Schedule); put ( "; " );
put("Partition_Sched_Ext: "); put(obj.Partition_Sched_Ext); put ( "; " );
put("MajorFrameSeconds: "); standards_io.double_io.put(obj.MajorFrameSeconds); put ( "; " );
end Put;
procedure Put(obj : in Module_Schedule_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Module_Schedule_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Module_Schedule_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MODULE_SCHEDULE_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Module_Schedule_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Module_Schedule_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.Partition_Schedule, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Partition_Schedule, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Partition_Sched_Ext, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Partition_Sched_Ext, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.MajorFrameSeconds, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.MajorFrameSeconds, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Module_Schedule_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Module_Schedule_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Module_Schedule_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Module_Schedule_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Part_HM_Ext_Type =--------
procedure Initialize(obj : in out Part_HM_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in Part_HM_Ext_Type ) return ARINC_653_Object_Ptr is
New_Part_HM_Ext_Type : Part_HM_Ext_Type_Ptr;
begin
New_Part_HM_Ext_Type := new Part_HM_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_Part_HM_Ext_Type);
end Copy;
function Copy ( obj : in Part_HM_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Part_HM_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in Part_HM_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Part_HM_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Part_HM_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PART_HM_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Part_HM_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Part_HM_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in Part_HM_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Part_HM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Part_HM_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Part_HM_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Partition_HM_Type =--------
procedure Initialize(obj : in out Partition_HM_Type) is
begin
initialize(ARINC_653_Object(obj));
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.PartitionCallback := empty_string;
end Initialize;
function Copy ( obj : in Partition_HM_Type ) return ARINC_653_Object_Ptr is
New_Partition_HM_Type : Partition_HM_Type_Ptr;
begin
New_Partition_HM_Type := new Partition_HM_Type'(obj);
return ARINC_653_Object_Ptr(New_Partition_HM_Type);
end Copy;
function Copy ( obj : in Partition_HM_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Partition_HM_Type) is
begin
put(ARINC_653_Object(obj));
put("System_State_Entry: "); put(obj.System_State_Entry); put ( "; " );
put("Part_HM_Ext: "); put(obj.Part_HM_Ext); put ( "; " );
put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
put("PartitionName: "); put(obj.PartitionName); put ( "; " );
put("PartitionCallback: "); put(obj.PartitionCallback); put ( "; " );
end Put;
procedure Put(obj : in Partition_HM_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Partition_HM_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Partition_HM_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_HM_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Partition_HM_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Partition_HM_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.System_State_Entry, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.System_State_Entry, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Part_HM_Ext, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Part_HM_Ext, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionIdentifier, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionIdentifier, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionName, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionName, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionCallback, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionCallback, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Partition_HM_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Partition_HM_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Partition_HM_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Partition_HM_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Pseudo_Partition =--------
procedure Initialize(obj : in out Pseudo_Partition) is
begin
initialize(ARINC_653_Object(obj));
obj.Name := empty_string;
obj.PhysicalAddress := empty_string;
obj.partition_procedure := empty_string;
end Initialize;
function Copy ( obj : in Pseudo_Partition ) return ARINC_653_Object_Ptr is
New_Pseudo_Partition : Pseudo_Partition_Ptr;
begin
New_Pseudo_Partition := new Pseudo_Partition'(obj);
return ARINC_653_Object_Ptr(New_Pseudo_Partition);
end Copy;
function Copy ( obj : in Pseudo_Partition_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Pseudo_Partition) is
begin
put(ARINC_653_Object(obj));
put("Name: "); put(obj.Name); put ( "; " );
put("PhysicalAddress: "); put(obj.PhysicalAddress); put ( "; " );
put("partition_procedure: "); put(obj.partition_procedure); put ( "; " );
end Put;
procedure Put(obj : in Pseudo_Partition_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Pseudo_Partition_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function type_of ( obj : in Pseudo_Partition ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PSEUDO_PARTITION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Pseudo_Partition_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Pseudo_Partition; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.Name, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Name, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PhysicalAddress, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PhysicalAddress, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.partition_procedure, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.partition_procedure, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Pseudo_Partition; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Pseudo_Partition_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Pseudo_Partition; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Pseudo_Partition_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Standard_Partition =--------
procedure Initialize(obj : in out Standard_Partition) is
begin
initialize(ARINC_653_Object(obj));
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.PortName := empty_string;
obj.PhysicalAddress := empty_string;
end Initialize;
function Copy ( obj : in Standard_Partition ) return ARINC_653_Object_Ptr is
New_Standard_Partition : Standard_Partition_Ptr;
begin
New_Standard_Partition := new Standard_Partition'(obj);
return ARINC_653_Object_Ptr(New_Standard_Partition);
end Copy;
function Copy ( obj : in Standard_Partition_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Standard_Partition) is
begin
put(ARINC_653_Object(obj));
put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
put("PartitionName: "); put(obj.PartitionName); put ( "; " );
put("PortName: "); put(obj.PortName); put ( "; " );
put("PhysicalAddress: "); put(obj.PhysicalAddress); put ( "; " );
end Put;
procedure Put(obj : in Standard_Partition_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Standard_Partition_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Standard_Partition ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.STANDARD_PARTITION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Standard_Partition_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Standard_Partition; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.PartitionIdentifier, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionIdentifier, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PartitionName, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PartitionName, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PortName, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PortName, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PhysicalAddress, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PhysicalAddress, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Standard_Partition; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Standard_Partition_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Standard_Partition; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Standard_Partition_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
procedure Initialize (obj : out PortMappingType_Choice_Ptr) is
begin
obj := NULL;
end Initialize;
procedure Put(obj : in PortMappingType_Choice_Ptr) is
begin
if (obj /= NULL) then
put("discriminant: "); put(obj.discriminant); put ( "; " );
put ( "value: " );
case obj.discriminant is
when pseudo_partition_Choice =>
put("pseudo_partition: "); if obj.pseudo_partition /= null then put(obj.pseudo_partition.all); else put("null"); end if;put ( "; " );
when standard_partition_Choice =>
put("standard_partition: "); if obj.standard_partition /= null then put(obj.standard_partition.all); else put("null"); end if;put ( "; " );
end case;
end if;
New_Line;
end Put;
function Copy ( obj : in PortMappingType_Choice ) return PortMappingType_Choice_Ptr is
New_PortMappingType_Choice : PortMappingType_Choice_Ptr;
begin
New_PortMappingType_Choice := new PortMappingType_Choice'(obj);
return (New_PortMappingType_Choice);
end Copy;
function Copy ( obj : in PortMappingType_Choice_Ptr ) return PortMappingType_Choice_Ptr is
begin
return copy(obj.all);
end Copy;
function XML_String(obj : in PortMappingType_Choice; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
if (XML_String(obj.discriminant, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.discriminant, level + 1) & "" & Unbounded_Lf;
end if;
case obj.discriminant is
when pseudo_partition_Choice =>
if (XML_String(obj.pseudo_partition, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.pseudo_partition, level + 1) & "" & Unbounded_Lf;
end if;
when standard_partition_Choice =>
if (XML_String(obj.standard_partition, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.standard_partition, level + 1) & "" & Unbounded_Lf;
end if;
end case;
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in PortMappingType_Choice_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in PortMappingType_Choice; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_Ref_String(obj : in PortMappingType_Choice_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PortMap_Ext_Type =--------
procedure Initialize(obj : in out PortMap_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in PortMap_Ext_Type ) return ARINC_653_Object_Ptr is
New_PortMap_Ext_Type : PortMap_Ext_Type_Ptr;
begin
New_PortMap_Ext_Type := new PortMap_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_PortMap_Ext_Type);
end Copy;
function Copy ( obj : in PortMap_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PortMap_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in PortMap_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PortMap_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in PortMap_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTMAP_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PortMap_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PortMap_Ext_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in PortMap_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in PortMap_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in PortMap_Ext_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PortMap_Ext_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PortMappingType =--------
procedure Initialize(obj : in out PortMappingType) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in PortMappingType ) return ARINC_653_Object_Ptr is
New_PortMappingType : PortMappingType_Ptr;
begin
New_PortMappingType := new PortMappingType'(obj);
return ARINC_653_Object_Ptr(New_PortMappingType);
end Copy;
function Copy ( obj : in PortMappingType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PortMappingType) is
begin
put(ARINC_653_Object(obj));
put("choice: "); put(obj.choice); put ( "; " );
put("PortMap_Ext: "); put(obj.PortMap_Ext); put ( "; " );
end Put;
procedure Put(obj : in PortMappingType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PortMappingType_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in PortMappingType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTMAPPINGTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PortMappingType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PortMappingType; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.choice, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.choice, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.PortMap_Ext, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.PortMap_Ext, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in PortMappingType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in PortMappingType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in PortMappingType; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PortMappingType_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Channel =--------
procedure Initialize(obj : in out Channel) is
begin
initialize(ARINC_653_Object(obj));
obj.ChannelIdentifier := empty_string;
obj.ChannelName := empty_string;
end Initialize;
function Copy ( obj : in Channel ) return ARINC_653_Object_Ptr is
New_Channel : Channel_Ptr;
begin
New_Channel := new Channel'(obj);
return ARINC_653_Object_Ptr(New_Channel);
end Copy;
function Copy ( obj : in Channel_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Channel) is
begin
put(ARINC_653_Object(obj));
put("Source: "); if obj.Source /= null then put(obj.Source.all); else put("null"); end if;put ( "; " );
put("Destination: "); put(obj.Destination); put ( "; " );
put("ChannelIdentifier: "); put(obj.ChannelIdentifier); put ( "; " );
put("ChannelName: "); put(obj.ChannelName); put ( "; " );
end Put;
procedure Put(obj : in Channel_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Channel_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Channel ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.CHANNEL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Channel_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Channel; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.Source, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Source, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Destination, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Destination, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.ChannelIdentifier, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ChannelIdentifier, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.ChannelName, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ChannelName, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Channel; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in Channel_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Channel; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Channel_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= ModExt_Type =--------
procedure Initialize(obj : in out ModExt_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in ModExt_Type ) return ARINC_653_Object_Ptr is
New_ModExt_Type : ModExt_Type_Ptr;
begin
New_ModExt_Type := new ModExt_Type'(obj);
return ARINC_653_Object_Ptr(New_ModExt_Type);
end Copy;
function Copy ( obj : in ModExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in ModExt_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in ModExt_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in ModExt_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in ModExt_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MODEXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in ModExt_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in ModExt_Type; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
end Build_Attributes_XML_String;
function XML_String(obj : in ModExt_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in ModExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in ModExt_Type; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in ModExt_Type_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= ARINC_653_Module =--------
procedure Initialize(obj : in out ARINC_653_Module) is
begin
initialize(ARINC_653_Object(obj));
obj.ModuleName := empty_string;
obj.ModuleVersion := empty_string;
obj.ModuleId := empty_string;
end Initialize;
function Copy ( obj : in ARINC_653_Module ) return ARINC_653_Object_Ptr is
New_ARINC_653_Module : ARINC_653_Module_Ptr;
begin
New_ARINC_653_Module := new ARINC_653_Module'(obj);
return ARINC_653_Object_Ptr(New_ARINC_653_Module);
end Copy;
function Copy ( obj : in ARINC_653_Module_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in ARINC_653_Module) is
begin
put(ARINC_653_Object(obj));
put("System_HM_List: "); if obj.System_HM_List /= null then put(obj.System_HM_List.all); else put("null"); end if;put ( "; " );
put("Module_HM_List: "); if obj.Module_HM_List /= null then put(obj.Module_HM_List.all); else put("null"); end if;put ( "; " );
put("Partition: "); put(obj.Partition); put ( "; " );
put("Partition_Memory: "); put(obj.Partition_Memory); put ( "; " );
put("Module_Schedule: "); if obj.Module_Schedule /= null then put(obj.Module_Schedule.all); else put("null"); end if;put ( "; " );
put("Partition_HM_List: "); put(obj.Partition_HM_List); put ( "; " );
put("Connection_List: "); put(obj.Connection_List); put ( "; " );
put("ModExt: "); put(obj.ModExt); put ( "; " );
put("ModuleName: "); put(obj.ModuleName); put ( "; " );
put("ModuleVersion: "); put(obj.ModuleVersion); put ( "; " );
put("ModuleId: "); put(obj.ModuleId); put ( "; " );
end Put;
procedure Put(obj : in ARINC_653_Module_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in ARINC_653_Module_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in ARINC_653_Module ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_MODULE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in ARINC_653_Module_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in ARINC_653_Module; level : in natural := 0; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), level, result);
if (XML_String(obj.System_HM_List, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.System_HM_List, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Module_HM_List, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Module_HM_List, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Partition, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Partition, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Partition_Memory, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Partition_Memory, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Module_Schedule, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Module_Schedule, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Partition_HM_List, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Partition_HM_List, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.Connection_List, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.Connection_List, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.ModExt, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ModExt, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.ModuleName, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ModuleName, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.ModuleVersion, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ModuleVersion, level + 1) & "" & Unbounded_Lf;
end if;
if (XML_String(obj.ModuleId, level + 1) /= Empty_String) then
result := result & unbounded_ht(level + 1) & "" & XML_String(obj.ModuleId, level + 1) & "" & Unbounded_Lf;
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in ARINC_653_Module; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
Build_Attributes_XML_String(obj, level, result);
result := result & "" & Unbounded_Lf;
return (result);
end XML_String;
function XML_String(obj : in ARINC_653_Module_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in ARINC_653_Module; level : in natural := 0) return Unbounded_String is
result : Unbounded_String;
begin
result := "" & Unbounded_Lf;
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in ARINC_653_Module_Ptr; level : in natural := 0) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End ARINC_653_Schema;