------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with framework;
use framework;
with id_generators;
use id_generators;
Package Body Objects is
function XML_String(obj : in Objects_Type) return Unbounded_String is
begin
return to_unbounded_string(Objects_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Objects_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Generic_Object =--------
procedure Initialize(obj : in out Generic_Object) is
begin
generate_id( framework_id, obj.cheddar_private_id );
obj.object_type := Buffer_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Object ) return Generic_Object_Ptr is
New_Generic_Object : Generic_Object_Ptr;
begin
New_Generic_Object := new Generic_Object'(obj);
return (New_Generic_Object);
end Copy;
function Copy ( obj : in Generic_Object_Ptr ) return Generic_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Object) is
begin
put("cheddar_private_id: "); put(obj.cheddar_private_id); put ( "; " );
put("object_type: "); put(obj.object_type); put ( "; " );
end Put;
procedure Put(obj : in Generic_Object_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Object_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Generic_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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Object_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Object; result : in out Unbounded_String) is
begin
if (XML_String(obj.object_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.object_type) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Object) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Object_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Object) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Object_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Named_Object =--------
procedure Initialize(obj : in out Named_Object) is
begin
initialize(Generic_Object(obj));
obj.name := empty_string;
end Initialize;
function Copy ( obj : in Named_Object ) return Generic_Object_Ptr is
New_Named_Object : Named_Object_Ptr;
begin
New_Named_Object := new Named_Object'(obj);
return Generic_Object_Ptr(New_Named_Object);
end Copy;
function Copy ( obj : in Named_Object_Ptr ) return Generic_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Named_Object) is
begin
put(Generic_Object(obj));
put("name: "); put(obj.name); put ( "; " );
end Put;
procedure Put(obj : in Named_Object_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Named_Object_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Named_Object) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Named_Object_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Named_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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Named_Object_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Named_Object; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Object(obj), result);
if (XML_String(obj.name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.name) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Named_Object) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Named_Object_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Named_Object) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Named_Object_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Objects;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Queueing_Systems is
function XML_String(obj : in Queueing_Systems_Type) return Unbounded_String is
begin
return to_unbounded_string(Queueing_Systems_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Queueing_Systems_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
End Queueing_Systems;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body CFG_Edges is
-- --------= CFG_Edge =--------
procedure Initialize(obj : in out CFG_Edge) is
begin
initialize(Named_Object(obj));
obj.node := empty_string;
obj.next_node := empty_string;
obj.object_type := CFG_Edge_Object_Type;
end Initialize;
function Copy ( obj : in CFG_Edge ) return CFG_Edge_Ptr is
New_CFG_Edge : CFG_Edge_Ptr;
begin
New_CFG_Edge := new CFG_Edge'(obj);
return (New_CFG_Edge);
end Copy;
function Copy ( obj : in CFG_Edge_Ptr ) return CFG_Edge_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in CFG_Edge) is
begin
put(Named_Object(obj));
put("node: "); put(obj.node); put ( "; " );
put("next_node: "); put(obj.next_node); put ( "; " );
end Put;
procedure Put(obj : in CFG_Edge_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in CFG_Edge_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in CFG_Edge) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in CFG_Edge_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in CFG_Edge ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CFG_EDGES.CFG_EDGE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in CFG_Edge_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in CFG_Edge; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.node) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.node) & to_unbounded_string("");
end if;
if (XML_String(obj.next_node) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.next_node) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in CFG_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in CFG_Edge_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in CFG_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in CFG_Edge_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End CFG_Edges;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Editor_Config is
function XML_String(obj : in Data_From_Simulation) return Unbounded_String is
begin
return to_unbounded_string(Data_From_Simulation'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Data_From_Simulation) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
End Editor_Config;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Resources is
function XML_String(obj : in Resources_Type) return Unbounded_String is
begin
return to_unbounded_string(Resources_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Resources_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Resources_Synchronization_Type) return Unbounded_String is
begin
return to_unbounded_string(Resources_Synchronization_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Resources_Synchronization_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Priority_Assignment_Type) return Unbounded_String is
begin
return to_unbounded_string(Priority_Assignment_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Priority_Assignment_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Critical_Section =--------
procedure Initialize(obj : out Critical_Section) is
begin
obj.task_synchronization := Mutex;
obj.task_begin := 0;
obj.task_end := 0;
end Initialize;
procedure Put(obj : in Critical_Section) is
begin
put("task_synchronization: "); put(obj.task_synchronization); put ( "; " );
put("task_begin: "); standards_io.natural_io.put(obj.task_begin); put ( "; " );
put("task_end: "); standards_io.natural_io.put(obj.task_end); put ( "; " );
end Put;
procedure Put(obj : in Critical_Section_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Critical_Section; result : in out Unbounded_String) is
begin
if (XML_String(obj.task_synchronization) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.task_synchronization) & to_unbounded_string("");
end if;
if (XML_String(obj.task_begin) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.task_begin) & to_unbounded_string("");
end if;
if (XML_String(obj.task_end) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.task_end) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Critical_Section) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Critical_Section_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Critical_Section) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Critical_Section ) return Critical_Section_Ptr is
New_Critical_Section : Critical_Section_Ptr;
begin
New_Critical_Section := new Critical_Section'(obj);
return (New_Critical_Section);
end Copy;
function Copy ( obj : in Critical_Section_Ptr ) return Critical_Section_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Generic_Resource =--------
procedure Initialize(obj : in out Generic_Resource) is
begin
initialize(Named_Object(obj));
obj.state := 0;
obj.size := 0;
obj.address := 0;
obj.protocol := No_Protocol;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.priority := 0;
obj.priority_assignment := Automatic_Assignment;
obj.object_type := Resource_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Resource ) return Generic_Resource_Ptr is
New_Generic_Resource : Generic_Resource_Ptr;
begin
New_Generic_Resource := new Generic_Resource'(obj);
return (New_Generic_Resource);
end Copy;
function Copy ( obj : in Generic_Resource_Ptr ) return Generic_Resource_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Resource) is
begin
put(Named_Object(obj));
put("state: "); standards_io.natural_io.put(obj.state); put ( "; " );
put("size: "); standards_io.natural_io.put(obj.size); put ( "; " );
put("address: "); standards_io.natural_io.put(obj.address); put ( "; " );
put("protocol: "); put(obj.protocol); put ( "; " );
put("critical_sections: "); put(obj.critical_sections); put ( "; " );
put("cpu_name: "); put(obj.cpu_name); put ( "; " );
put("address_space_name: "); put(obj.address_space_name); put ( "; " );
put("priority: "); put(obj.priority); put ( "; " );
put("priority_assignment: "); put(obj.priority_assignment); put ( "; " );
end Put;
procedure Put(obj : in Generic_Resource_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Resource_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Generic_Resource) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Generic_Resource_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Generic_Resource ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.GENERIC_RESOURCE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Resource_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Resource; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.state) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.state) & to_unbounded_string("");
end if;
if (XML_String(obj.size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.size) & to_unbounded_string("");
end if;
if (XML_String(obj.address) /= Empty_String) then
result := result & to_unbounded_string("
") & XML_String(obj.address) & to_unbounded_string("");
end if;
if (XML_String(obj.protocol) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.protocol) & to_unbounded_string("");
end if;
if (XML_String(obj.critical_sections) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.critical_sections) & to_unbounded_string("");
end if;
if (XML_String(obj.cpu_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cpu_name) & to_unbounded_string("");
end if;
if (XML_String(obj.address_space_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.address_space_name) & to_unbounded_string("");
end if;
if (XML_String(obj.priority) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.priority) & to_unbounded_string("");
end if;
if (XML_String(obj.priority_assignment) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.priority_assignment) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Resource_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Resource_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Np_Resource =--------
procedure Initialize(obj : in out Np_Resource) is
begin
initialize(Generic_Resource(obj));
end Initialize;
function Copy ( obj : in Np_Resource ) return Generic_Resource_Ptr is
New_Np_Resource : Np_Resource_Ptr;
begin
New_Np_Resource := new Np_Resource'(obj);
return Generic_Resource_Ptr(New_Np_Resource);
end Copy;
function Copy ( obj : in Np_Resource_Ptr ) return Generic_Resource_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Np_Resource) is
begin
put(Generic_Resource(obj));
end Put;
procedure Put(obj : in Np_Resource_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Np_Resource_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Np_Resource) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Np_Resource_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Np_Resource ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.GENERIC_RESOURCE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.NP_RESOURCE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Np_Resource_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Np_Resource; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Resource(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Np_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Np_Resource_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Np_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Np_Resource_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Pip_Resource =--------
procedure Initialize(obj : in out Pip_Resource) is
begin
initialize(Generic_Resource(obj));
obj.protocol := Priority_Inheritance_Protocol;
end Initialize;
function Copy ( obj : in Pip_Resource ) return Generic_Resource_Ptr is
New_Pip_Resource : Pip_Resource_Ptr;
begin
New_Pip_Resource := new Pip_Resource'(obj);
return Generic_Resource_Ptr(New_Pip_Resource);
end Copy;
function Copy ( obj : in Pip_Resource_Ptr ) return Generic_Resource_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Pip_Resource) is
begin
put(Generic_Resource(obj));
end Put;
procedure Put(obj : in Pip_Resource_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Pip_Resource_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Pip_Resource) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Pip_Resource_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Pip_Resource ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.GENERIC_RESOURCE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.PIP_RESOURCE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Pip_Resource_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Pip_Resource; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Resource(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Pip_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Pip_Resource_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Pip_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Pip_Resource_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Pcp_Resource =--------
procedure Initialize(obj : in out Pcp_Resource) is
begin
initialize(Generic_Resource(obj));
obj.protocol := Priority_Ceiling_Protocol;
end Initialize;
function Copy ( obj : in Pcp_Resource ) return Generic_Resource_Ptr is
New_Pcp_Resource : Pcp_Resource_Ptr;
begin
New_Pcp_Resource := new Pcp_Resource'(obj);
return Generic_Resource_Ptr(New_Pcp_Resource);
end Copy;
function Copy ( obj : in Pcp_Resource_Ptr ) return Generic_Resource_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Pcp_Resource) is
begin
put(Generic_Resource(obj));
end Put;
procedure Put(obj : in Pcp_Resource_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Pcp_Resource_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Pcp_Resource) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Pcp_Resource_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Pcp_Resource ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.GENERIC_RESOURCE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.PCP_RESOURCE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Pcp_Resource_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Pcp_Resource; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Resource(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Pcp_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Pcp_Resource_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Pcp_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Pcp_Resource_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PPcp_Resource =--------
procedure Initialize(obj : in out PPcp_Resource) is
begin
initialize(Generic_Resource(obj));
obj.protocol := Pool_Based_Priority_Ceiling_Protocol;
end Initialize;
function Copy ( obj : in PPcp_Resource ) return Generic_Resource_Ptr is
New_PPcp_Resource : PPcp_Resource_Ptr;
begin
New_PPcp_Resource := new PPcp_Resource'(obj);
return Generic_Resource_Ptr(New_PPcp_Resource);
end Copy;
function Copy ( obj : in PPcp_Resource_Ptr ) return Generic_Resource_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PPcp_Resource) is
begin
put(Generic_Resource(obj));
end Put;
procedure Put(obj : in PPcp_Resource_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PPcp_Resource_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in PPcp_Resource) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in PPcp_Resource_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in PPcp_Resource ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.GENERIC_RESOURCE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.PPCP_RESOURCE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PPcp_Resource_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PPcp_Resource; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Resource(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in PPcp_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in PPcp_Resource_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in PPcp_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PPcp_Resource_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= IPcp_Resource =--------
procedure Initialize(obj : in out IPcp_Resource) is
begin
initialize(Generic_Resource(obj));
obj.protocol := Immediate_Priority_Ceiling_Protocol;
end Initialize;
function Copy ( obj : in IPcp_Resource ) return Generic_Resource_Ptr is
New_IPcp_Resource : IPcp_Resource_Ptr;
begin
New_IPcp_Resource := new IPcp_Resource'(obj);
return Generic_Resource_Ptr(New_IPcp_Resource);
end Copy;
function Copy ( obj : in IPcp_Resource_Ptr ) return Generic_Resource_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in IPcp_Resource) is
begin
put(Generic_Resource(obj));
end Put;
procedure Put(obj : in IPcp_Resource_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in IPcp_Resource_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in IPcp_Resource) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in IPcp_Resource_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in IPcp_Resource ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.GENERIC_RESOURCE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("RESOURCES.IPCP_RESOURCE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in IPcp_Resource_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in IPcp_Resource; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Resource(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in IPcp_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in IPcp_Resource_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in IPcp_Resource) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in IPcp_Resource_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Resources;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Parameters is
function XML_String(obj : in Parameter_Type) return Unbounded_String is
begin
return to_unbounded_string(Parameter_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Parameter_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
procedure Initialize (obj : out Parameter_Ptr) is
begin
obj := NULL;
end Initialize;
procedure Put(obj : in Parameter_Ptr) is
begin
if (obj /= NULL) then
put("parameter_name: "); put(obj.parameter_name); put ( "; " );
put("type_of_parameter: "); put(obj.type_of_parameter); put ( "; " );
put ( "value: " );
case obj.type_of_parameter is
when boolean_parameter =>
put("boolean_value: "); standards_io.boolean_io.put(obj.boolean_value); put ( "; " );
when integer_parameter =>
put("integer_value: "); standards_io.natural_io.put(obj.integer_value); put ( "; " );
when double_parameter =>
put("double_value: "); standards_io.double_io.put(obj.double_value); put ( "; " );
when string_parameter =>
put("string_value: "); put(obj.string_value); put ( "; " );
end case;
end if;
New_Line;
end Put;
function Copy ( obj : in Parameter ) return Parameter_Ptr is
New_Parameter : Parameter_Ptr;
begin
New_Parameter := new Parameter'(obj);
return (New_Parameter);
end Copy;
function Copy ( obj : in Parameter_Ptr ) return Parameter_Ptr is
begin
return copy(obj.all);
end Copy;
function XML_String(obj : in Parameter) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
if (XML_String(obj.parameter_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.parameter_name) & to_unbounded_string("");
end if;
if (XML_String(obj.type_of_parameter) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.type_of_parameter) & to_unbounded_string("");
end if;
case obj.type_of_parameter is
when boolean_parameter =>
if (XML_String(obj.boolean_value) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.boolean_value) & to_unbounded_string("");
end if;
when integer_parameter =>
if (XML_String(obj.integer_value) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.integer_value) & to_unbounded_string("");
end if;
when double_parameter =>
if (XML_String(obj.double_value) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.double_value) & to_unbounded_string("");
end if;
when string_parameter =>
if (XML_String(obj.string_value) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.string_value) & to_unbounded_string("");
end if;
end case;
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Parameter_Ptr) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Parameter) 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 Parameter_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Parameters;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Data_Accesses is
function XML_String(obj : in Data_Access_Type) return Unbounded_String is
begin
return to_unbounded_string(Data_Access_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Data_Access_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Data_Access =--------
procedure Initialize(obj : in out Data_Access) is
begin
initialize(Named_Object(obj));
obj.Access_Type := Read_Data;
obj.Memory_Address := 0;
obj.Time_Constraint_Name := empty_string;
obj.Size := 0;
obj.object_type := Data_Access_Object_Type;
end Initialize;
function Copy ( obj : in Data_Access ) return Data_Access_Ptr is
New_Data_Access : Data_Access_Ptr;
begin
New_Data_Access := new Data_Access'(obj);
return (New_Data_Access);
end Copy;
function Copy ( obj : in Data_Access_Ptr ) return Data_Access_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Data_Access) is
begin
put(Named_Object(obj));
put("Access_Type: "); put(obj.Access_Type); put ( "; " );
put("Memory_Address: "); standards_io.natural_io.put(obj.Memory_Address); put ( "; " );
put("Time_Constraint_Name: "); put(obj.Time_Constraint_Name); put ( "; " );
put("Size: "); standards_io.natural_io.put(obj.Size); put ( "; " );
end Put;
procedure Put(obj : in Data_Access_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Data_Access_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Data_Access) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Data_Access_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Data_Access ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("DATA_ACCESSES.DATA_ACCESS");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Data_Access_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Data_Access; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.Access_Type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Access_Type) & to_unbounded_string("");
end if;
if (XML_String(obj.Memory_Address) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Memory_Address) & to_unbounded_string("");
end if;
if (XML_String(obj.Time_Constraint_Name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Time_Constraint_Name) & to_unbounded_string("");
end if;
if (XML_String(obj.Size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Size) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Data_Access) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Data_Access_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Data_Access) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Data_Access_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Data_Access_Record =--------
procedure Initialize(obj : out Data_Access_Record) is
begin
obj.Access_Type := Read_Data;
obj.Memory_Address := 0;
obj.Time_Constraint_Name := empty_string;
obj.Size := 0;
end Initialize;
procedure Put(obj : in Data_Access_Record) is
begin
put("Access_Type: "); put(obj.Access_Type); put ( "; " );
put("Memory_Address: "); standards_io.natural_io.put(obj.Memory_Address); put ( "; " );
put("Time_Constraint_Name: "); put(obj.Time_Constraint_Name); put ( "; " );
put("Size: "); standards_io.natural_io.put(obj.Size); put ( "; " );
end Put;
procedure Put(obj : in Data_Access_Record_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Data_Access_Record; result : in out Unbounded_String) is
begin
if (XML_String(obj.Access_Type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Access_Type) & to_unbounded_string("");
end if;
if (XML_String(obj.Memory_Address) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Memory_Address) & to_unbounded_string("");
end if;
if (XML_String(obj.Time_Constraint_Name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Time_Constraint_Name) & to_unbounded_string("");
end if;
if (XML_String(obj.Size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Size) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Data_Access_Record) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Data_Access_Record_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Data_Access_Record) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Data_Access_Record ) return Data_Access_Record_Ptr is
New_Data_Access_Record : Data_Access_Record_Ptr;
begin
New_Data_Access_Record := new Data_Access_Record'(obj);
return (New_Data_Access_Record);
end Copy;
function Copy ( obj : in Data_Access_Record_Ptr ) return Data_Access_Record_Ptr is
begin
return copy(obj.all);
end Copy;
End Data_Accesses;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Automaton is
function XML_String(obj : in Synchronizations_Type) return Unbounded_String is
begin
return to_unbounded_string(Synchronizations_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Synchronizations_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Status_Type) return Unbounded_String is
begin
return to_unbounded_string(Status_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Status_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= State =--------
procedure Initialize(obj : in out State) is
begin
initialize(Named_Object(obj));
obj.is_initial := false;
obj.object_type := State_Object_Type;
end Initialize;
function Copy ( obj : in State ) return State_Ptr is
New_State : State_Ptr;
begin
New_State := new State'(obj);
return (New_State);
end Copy;
function Copy ( obj : in State_Ptr ) return State_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in State) is
begin
put(Named_Object(obj));
put("is_initial: "); standards_io.boolean_io.put(obj.is_initial); put ( "; " );
end Put;
procedure Put(obj : in State_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in State_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in State) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in State_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in State ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("AUTOMATON.STATE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in State_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in State; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.is_initial) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.is_initial) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in State) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in State_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in State) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in State_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Synchronization =--------
procedure Initialize(obj : in out Synchronization) is
begin
initialize(Named_Object(obj));
obj.synchronization_type := Send;
obj.object_type := Synchronization_Object_Type;
end Initialize;
function Copy ( obj : in Synchronization ) return Synchronization_Ptr is
New_Synchronization : Synchronization_Ptr;
begin
New_Synchronization := new Synchronization'(obj);
return (New_Synchronization);
end Copy;
function Copy ( obj : in Synchronization_Ptr ) return Synchronization_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Synchronization) is
begin
put(Named_Object(obj));
put("synchronization_type: "); put(obj.synchronization_type); put ( "; " );
end Put;
procedure Put(obj : in Synchronization_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Synchronization_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Synchronization) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Synchronization_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Synchronization ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("AUTOMATON.SYNCHRONIZATION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Synchronization_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Synchronization; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.synchronization_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.synchronization_type) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Synchronization) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Synchronization_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Synchronization) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Synchronization_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Transition =--------
procedure Initialize(obj : in out Transition) is
begin
initialize(Named_Object(obj));
obj.object_type := Transition_Object_Type;
end Initialize;
function Copy ( obj : in Transition ) return Transition_Ptr is
New_Transition : Transition_Ptr;
begin
New_Transition := new Transition'(obj);
return (New_Transition);
end Copy;
function Copy ( obj : in Transition_Ptr ) return Transition_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Transition) is
begin
put(Named_Object(obj));
put("from_state: "); if obj.from_state /= null then put(obj.from_state.all); else put("null"); end if;put ( "; " );
put("to_state: "); if obj.to_state /= null then put(obj.to_state.all); else put("null"); end if;put ( "; " );
put("guards: "); if obj.guards /= null then put(obj.guards.all); else put("null"); end if;put ( "; " );
put("clocks: "); if obj.clocks /= null then put(obj.clocks.all); else put("null"); end if;put ( "; " );
put("synchronization: "); if obj.synchronization /= null then put(obj.synchronization.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Transition_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Transition_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Transition) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Transition_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Transition ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("AUTOMATON.TRANSITION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Transition_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Transition; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Transition) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Transition_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Transition) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Transition_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Automaton_Status =--------
procedure Initialize(obj : out Automaton_Status) is
begin
null;
end Initialize;
procedure Put(obj : in Automaton_Status) is
begin
put("current_state: "); if obj.current_state /= null then put(obj.current_state.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Automaton_Status_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Automaton_Status; result : in out Unbounded_String) is
begin
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Automaton_Status) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Automaton_Status_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Automaton_Status) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Automaton_Status ) return Automaton_Status_Ptr is
New_Automaton_Status : Automaton_Status_Ptr;
begin
New_Automaton_Status := new Automaton_Status'(obj);
return (New_Automaton_Status);
end Copy;
function Copy ( obj : in Automaton_Status_Ptr ) return Automaton_Status_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Transition_Status =--------
procedure Initialize(obj : out Transition_Status) is
begin
obj.status := Ready;
obj.wakeup_time := 0;
end Initialize;
procedure Put(obj : in Transition_Status) is
begin
put("code: "); if obj.code /= null then put(obj.code.all); else put("null"); end if;put ( "; " );
put("status: "); put(obj.status); put ( "; " );
put("wakeup_time: "); standards_io.natural_io.put(obj.wakeup_time); put ( "; " );
end Put;
procedure Put(obj : in Transition_Status_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Transition_Status; result : in out Unbounded_String) is
begin
result := result & to_unbounded_string("");
if (XML_String(obj.status) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.status) & to_unbounded_string("");
end if;
if (XML_String(obj.wakeup_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.wakeup_time) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Transition_Status) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Transition_Status_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Transition_Status) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Transition_Status ) return Transition_Status_Ptr is
New_Transition_Status : Transition_Status_Ptr;
begin
New_Transition_Status := new Transition_Status'(obj);
return (New_Transition_Status);
end Copy;
function Copy ( obj : in Transition_Status_Ptr ) return Transition_Status_Ptr is
begin
return copy(obj.all);
end Copy;
End Automaton;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body AADL_Parser_Interface is
-- --------= Binding_Record_Type =--------
procedure Initialize(obj : out Binding_Record_Type) is
begin
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
end Initialize;
procedure Put(obj : in Binding_Record_Type) is
begin
put("cpu_name: "); put(obj.cpu_name); put ( "; " );
put("address_space_name: "); put(obj.address_space_name); put ( "; " );
end Put;
procedure Put(obj : in Binding_Record_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Binding_Record_Type; result : in out Unbounded_String) is
begin
if (XML_String(obj.cpu_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cpu_name) & to_unbounded_string("");
end if;
if (XML_String(obj.address_space_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.address_space_name) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Binding_Record_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Binding_Record_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Binding_Record_Type) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Binding_Record_Type ) return Binding_Record_Type_Ptr is
New_Binding_Record_Type : Binding_Record_Type_Ptr;
begin
New_Binding_Record_Type := new Binding_Record_Type'(obj);
return (New_Binding_Record_Type);
end Copy;
function Copy ( obj : in Binding_Record_Type_Ptr ) return Binding_Record_Type_Ptr is
begin
return copy(obj.all);
end Copy;
End AADL_Parser_Interface;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Networks is
function XML_String(obj : in Networks_Delay_Type) return Unbounded_String is
begin
return to_unbounded_string(Networks_Delay_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Networks_Delay_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Networks_Architecture_Type) return Unbounded_String is
begin
return to_unbounded_string(Networks_Architecture_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Networks_Architecture_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Topology_Type) return Unbounded_String is
begin
return to_unbounded_string(Topology_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Topology_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Arbitration_Type) return Unbounded_String is
begin
return to_unbounded_string(Arbitration_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Arbitration_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Routing_Type) return Unbounded_String is
begin
return to_unbounded_string(Routing_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Routing_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in NoC_Preemption_Level_Type) return Unbounded_String is
begin
return to_unbounded_string(NoC_Preemption_Level_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in NoC_Preemption_Level_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Switching_Type) return Unbounded_String is
begin
return to_unbounded_string(Switching_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Switching_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Data_Memorisation_Type) return Unbounded_String is
begin
return to_unbounded_string(Data_Memorisation_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Data_Memorisation_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Generic_Network =--------
procedure Initialize(obj : in out Generic_Network) is
begin
initialize(Named_Object(obj));
obj.network_delay := Bounded_Delay;
obj.network_architecture_type := Shared_Bus;
obj.network_arbitration := TDMA;
obj.object_type := Network_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Network ) return Generic_Network_Ptr is
New_Generic_Network : Generic_Network_Ptr;
begin
New_Generic_Network := new Generic_Network'(obj);
return (New_Generic_Network);
end Copy;
function Copy ( obj : in Generic_Network_Ptr ) return Generic_Network_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Network) is
begin
put(Named_Object(obj));
put("network_delay: "); put(obj.network_delay); put ( "; " );
put("network_architecture_type: "); put(obj.network_architecture_type); put ( "; " );
put("network_arbitration: "); put(obj.network_arbitration); put ( "; " );
end Put;
procedure Put(obj : in Generic_Network_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Network_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Generic_Network) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Generic_Network_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Generic_Network ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("NETWORKS.GENERIC_NETWORK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Network_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Network; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.network_delay) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.network_delay) & to_unbounded_string("");
end if;
if (XML_String(obj.network_architecture_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.network_architecture_type) & to_unbounded_string("");
end if;
if (XML_String(obj.network_arbitration) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.network_arbitration) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Network) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Network_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Network) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Network_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Position =--------
procedure Initialize(obj : out Position) is
begin
obj.X := 0;
obj.Y := 0;
end Initialize;
procedure Put(obj : in Position) is
begin
put("X: "); standards_io.natural_io.put(obj.X); put ( "; " );
put("Y: "); standards_io.natural_io.put(obj.Y); put ( "; " );
end Put;
procedure Put(obj : in Position_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Position; result : in out Unbounded_String) is
begin
if (XML_String(obj.X) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.X) & to_unbounded_string("");
end if;
if (XML_String(obj.Y) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Y) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Position) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Position_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Position) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Position ) return Position_Ptr is
New_Position : Position_Ptr;
begin
New_Position := new Position'(obj);
return (New_Position);
end Copy;
function Copy ( obj : in Position_Ptr ) return Position_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= NOC_Network =--------
procedure Initialize(obj : in out NOC_Network) is
begin
initialize(Generic_Network(obj));
obj.topology := Mesh_Topology;
obj.number_of_processor := 0;
obj.link_delay := 0;
obj.dimension := 0;
obj.number_of_virtual_channel := 0;
obj.routing_protocol := XY;
obj.switching_protocol := Wormwole;
obj.network_architecture_type := NOC;
end Initialize;
function Copy ( obj : in NOC_Network ) return Generic_Network_Ptr is
New_NOC_Network : NOC_Network_Ptr;
begin
New_NOC_Network := new NOC_Network'(obj);
return Generic_Network_Ptr(New_NOC_Network);
end Copy;
function Copy ( obj : in NOC_Network_Ptr ) return Generic_Network_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in NOC_Network) is
begin
put(Generic_Network(obj));
put("topology: "); put(obj.topology); put ( "; " );
put("number_of_processor: "); standards_io.natural_io.put(obj.number_of_processor); put ( "; " );
put("link_delay: "); standards_io.natural_io.put(obj.link_delay); put ( "; " );
put("dimension: "); standards_io.natural_io.put(obj.dimension); put ( "; " );
put("number_of_virtual_channel: "); standards_io.natural_io.put(obj.number_of_virtual_channel); put ( "; " );
put("routing_protocol: "); put(obj.routing_protocol); put ( "; " );
put("switching_protocol: "); put(obj.switching_protocol); put ( "; " );
put("processor_positions: "); put(obj.processor_positions); put ( "; " );
end Put;
procedure Put(obj : in NOC_Network_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in NOC_Network_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in NOC_Network) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in NOC_Network_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in NOC_Network ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("NETWORKS.GENERIC_NETWORK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("NETWORKS.NOC_NETWORK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in NOC_Network_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in NOC_Network; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Network(obj), result);
if (XML_String(obj.topology) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.topology) & to_unbounded_string("");
end if;
if (XML_String(obj.number_of_processor) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.number_of_processor) & to_unbounded_string("");
end if;
if (XML_String(obj.link_delay) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.link_delay) & to_unbounded_string("");
end if;
if (XML_String(obj.dimension) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.dimension) & to_unbounded_string("");
end if;
if (XML_String(obj.number_of_virtual_channel) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.number_of_virtual_channel) & to_unbounded_string("");
end if;
if (XML_String(obj.routing_protocol) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.routing_protocol) & to_unbounded_string("");
end if;
if (XML_String(obj.switching_protocol) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.switching_protocol) & to_unbounded_string("");
end if;
if (XML_String(obj.processor_positions) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.processor_positions) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in NOC_Network) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in NOC_Network_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in NOC_Network) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in NOC_Network_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Spacewire_Network =--------
procedure Initialize(obj : in out Spacewire_Network) is
begin
initialize(Generic_Network(obj));
obj.number_of_processor := 0;
obj.link_delay := 0;
obj.Xdimension := 0;
obj.Ydimension := 0;
obj.routing_protocol := XY;
obj.TDMA_synchronization_frame := empty_string;
end Initialize;
function Copy ( obj : in Spacewire_Network ) return Generic_Network_Ptr is
New_Spacewire_Network : Spacewire_Network_Ptr;
begin
New_Spacewire_Network := new Spacewire_Network'(obj);
return Generic_Network_Ptr(New_Spacewire_Network);
end Copy;
function Copy ( obj : in Spacewire_Network_Ptr ) return Generic_Network_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Spacewire_Network) is
begin
put(Generic_Network(obj));
put("number_of_processor: "); standards_io.natural_io.put(obj.number_of_processor); put ( "; " );
put("link_delay: "); standards_io.natural_io.put(obj.link_delay); put ( "; " );
put("Xdimension: "); standards_io.natural_io.put(obj.Xdimension); put ( "; " );
put("Ydimension: "); standards_io.natural_io.put(obj.Ydimension); put ( "; " );
put("routing_protocol: "); put(obj.routing_protocol); put ( "; " );
put("TDMA_synchronization_frame: "); put(obj.TDMA_synchronization_frame); put ( "; " );
put("processor_positions: "); put(obj.processor_positions); put ( "; " );
end Put;
procedure Put(obj : in Spacewire_Network_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Spacewire_Network_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Spacewire_Network) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Spacewire_Network_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Spacewire_Network ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("NETWORKS.GENERIC_NETWORK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("NETWORKS.SPACEWIRE_NETWORK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Spacewire_Network_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Spacewire_Network; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Network(obj), result);
if (XML_String(obj.number_of_processor) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.number_of_processor) & to_unbounded_string("");
end if;
if (XML_String(obj.link_delay) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.link_delay) & to_unbounded_string("");
end if;
if (XML_String(obj.Xdimension) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Xdimension) & to_unbounded_string("");
end if;
if (XML_String(obj.Ydimension) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Ydimension) & to_unbounded_string("");
end if;
if (XML_String(obj.routing_protocol) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.routing_protocol) & to_unbounded_string("");
end if;
if (XML_String(obj.TDMA_synchronization_frame) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.TDMA_synchronization_frame) & to_unbounded_string("");
end if;
if (XML_String(obj.processor_positions) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.processor_positions) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Spacewire_Network) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Spacewire_Network_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Spacewire_Network) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Spacewire_Network_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Bus_Network =--------
procedure Initialize(obj : in out Bus_Network) is
begin
initialize(Generic_Network(obj));
obj.memory_word_access_time := 0;
obj.maximum_interbank_interferences_memory_delay := 0;
obj.network_architecture_type := Shared_Bus;
end Initialize;
function Copy ( obj : in Bus_Network ) return Generic_Network_Ptr is
New_Bus_Network : Bus_Network_Ptr;
begin
New_Bus_Network := new Bus_Network'(obj);
return Generic_Network_Ptr(New_Bus_Network);
end Copy;
function Copy ( obj : in Bus_Network_Ptr ) return Generic_Network_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Bus_Network) is
begin
put(Generic_Network(obj));
put("processor_list: "); put(obj.processor_list); put ( "; " );
put("memory_list: "); put(obj.memory_list); put ( "; " );
put("memory_word_access_time: "); standards_io.natural_io.put(obj.memory_word_access_time); put ( "; " );
put("maximum_interbank_interferences_memory_delay: "); standards_io.natural_io.put(obj.maximum_interbank_interferences_memory_delay); put ( "; " );
end Put;
procedure Put(obj : in Bus_Network_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Bus_Network_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Bus_Network) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Bus_Network_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Bus_Network ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("NETWORKS.GENERIC_NETWORK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("NETWORKS.BUS_NETWORK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Bus_Network_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Bus_Network; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Network(obj), result);
if (XML_String(obj.processor_list) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.processor_list) & to_unbounded_string("");
end if;
if (XML_String(obj.memory_list) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.memory_list) & to_unbounded_string("");
end if;
if (XML_String(obj.memory_word_access_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.memory_word_access_time) & to_unbounded_string("");
end if;
if (XML_String(obj.maximum_interbank_interferences_memory_delay) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.maximum_interbank_interferences_memory_delay) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Bus_Network) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Bus_Network_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Bus_Network) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Bus_Network_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Networks;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
Package Body Interpreter is
End Interpreter;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Xml_Architecture_Parser_Interface is
function XML_String(obj : in XML_Units) return Unbounded_String is
begin
return to_unbounded_string(XML_Units'image (obj) );
end XML_String;
function XML_Ref_String (obj : in XML_Units) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
End Xml_Architecture_Parser_Interface;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
Package Body AADL_Config is
End AADL_Config;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Scheduler_Interface is
function XML_String(obj : in Preemptives_Type) return Unbounded_String is
begin
return to_unbounded_string(Preemptives_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Preemptives_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Schedulers_Type) return Unbounded_String is
begin
return to_unbounded_string(Schedulers_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Schedulers_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Scheduling_Parameters =--------
procedure Initialize(obj : out Scheduling_Parameters) is
begin
obj.scheduler_type := No_Scheduling_Protocol;
obj.quantum := 0;
obj.preemptive_type := Preemptive;
obj.automaton_name := empty_string;
obj.capacity := 0;
obj.period := 0;
obj.threshold := 0;
obj.priority := 0;
obj.user_defined_scheduler_source := empty_string;
obj.user_defined_scheduler_source_file_name := empty_string;
obj.user_defined_scheduler_protocol_name := empty_string;
obj.start_time := 0;
end Initialize;
procedure Put(obj : in Scheduling_Parameters) is
begin
put("scheduler_type: "); put(obj.scheduler_type); put ( "; " );
put("quantum: "); standards_io.natural_io.put(obj.quantum); put ( "; " );
put("preemptive_type: "); put(obj.preemptive_type); put ( "; " );
put("automaton_name: "); put(obj.automaton_name); put ( "; " );
put("capacity: "); standards_io.natural_io.put(obj.capacity); put ( "; " );
put("period: "); standards_io.natural_io.put(obj.period); put ( "; " );
put("threshold: "); standards_io.natural_io.put(obj.threshold); put ( "; " );
put("priority: "); put(obj.priority); put ( "; " );
put("user_defined_scheduler_source: "); put(obj.user_defined_scheduler_source); put ( "; " );
put("user_defined_scheduler_source_file_name: "); put(obj.user_defined_scheduler_source_file_name); put ( "; " );
put("user_defined_scheduler_protocol_name: "); put(obj.user_defined_scheduler_protocol_name); put ( "; " );
put("start_time: "); standards_io.natural_io.put(obj.start_time); put ( "; " );
end Put;
procedure Put(obj : in Scheduling_Parameters_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Scheduling_Parameters; result : in out Unbounded_String) is
begin
if (XML_String(obj.scheduler_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.scheduler_type) & to_unbounded_string("");
end if;
if (XML_String(obj.quantum) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.quantum) & to_unbounded_string("");
end if;
if (XML_String(obj.preemptive_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.preemptive_type) & to_unbounded_string("");
end if;
if (XML_String(obj.automaton_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.automaton_name) & to_unbounded_string("");
end if;
if (XML_String(obj.capacity) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.capacity) & to_unbounded_string("");
end if;
if (XML_String(obj.period) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.period) & to_unbounded_string("");
end if;
if (XML_String(obj.threshold) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.threshold) & to_unbounded_string("");
end if;
if (XML_String(obj.priority) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.priority) & to_unbounded_string("");
end if;
if (XML_String(obj.user_defined_scheduler_source) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.user_defined_scheduler_source) & to_unbounded_string("");
end if;
if (XML_String(obj.user_defined_scheduler_source_file_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.user_defined_scheduler_source_file_name) & to_unbounded_string("");
end if;
if (XML_String(obj.user_defined_scheduler_protocol_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.user_defined_scheduler_protocol_name) & to_unbounded_string("");
end if;
if (XML_String(obj.start_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.start_time) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Scheduling_Parameters) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Scheduling_Parameters_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Scheduling_Parameters) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Scheduling_Parameters ) return Scheduling_Parameters_Ptr is
New_Scheduling_Parameters : Scheduling_Parameters_Ptr;
begin
New_Scheduling_Parameters := new Scheduling_Parameters'(obj);
return (New_Scheduling_Parameters);
end Copy;
function Copy ( obj : in Scheduling_Parameters_Ptr ) return Scheduling_Parameters_Ptr is
begin
return copy(obj.all);
end Copy;
End Scheduler_Interface;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
Package Body Scheduler is
-- --------= Generic_Scheduler =--------
procedure Initialize(obj : in out Generic_Scheduler) is
begin
initialize(Generic_Object(obj));
end Initialize;
function Copy ( obj : in Generic_Scheduler ) return Generic_Scheduler_Ptr is
New_Generic_Scheduler : Generic_Scheduler_Ptr;
begin
New_Generic_Scheduler := new Generic_Scheduler'(obj);
return (New_Generic_Scheduler);
end Copy;
function Copy ( obj : in Generic_Scheduler_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Scheduler) is
begin
put(Generic_Object(obj));
put("parameters: "); put(obj.parameters); put ( "; " );
end Put;
procedure Put(obj : in Generic_Scheduler_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Scheduler_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Generic_Scheduler ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Scheduler_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Scheduler; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Object(obj), result);
if (XML_String(obj.parameters) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.parameters) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Scheduler) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Scheduler_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Scheduler) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Scheduler_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Aperiodic_Task_Server_Protocol =--------
procedure Initialize(obj : in out Aperiodic_Task_Server_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in Aperiodic_Task_Server_Protocol ) return Generic_Scheduler_Ptr is
New_Aperiodic_Task_Server_Protocol : Aperiodic_Task_Server_Protocol_Ptr;
begin
New_Aperiodic_Task_Server_Protocol := new Aperiodic_Task_Server_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Aperiodic_Task_Server_Protocol);
end Copy;
function Copy ( obj : in Aperiodic_Task_Server_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Aperiodic_Task_Server_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in Aperiodic_Task_Server_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Aperiodic_Task_Server_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Aperiodic_Task_Server_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.APERIODIC_TASK_SERVER_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Aperiodic_Task_Server_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Aperiodic_Task_Server_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Aperiodic_Task_Server_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Aperiodic_Task_Server_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Aperiodic_Task_Server_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Aperiodic_Task_Server_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Polling_Server_Protocol =--------
procedure Initialize(obj : in out Polling_Server_Protocol) is
begin
initialize(Aperiodic_Task_Server_Protocol(obj));
end Initialize;
function Copy ( obj : in Polling_Server_Protocol ) return Generic_Scheduler_Ptr is
New_Polling_Server_Protocol : Polling_Server_Protocol_Ptr;
begin
New_Polling_Server_Protocol := new Polling_Server_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Polling_Server_Protocol);
end Copy;
function Copy ( obj : in Polling_Server_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Polling_Server_Protocol) is
begin
put(Aperiodic_Task_Server_Protocol(obj));
end Put;
procedure Put(obj : in Polling_Server_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Polling_Server_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Polling_Server_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.APERIODIC_TASK_SERVER_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.POLLING_SERVER_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Polling_Server_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Polling_Server_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Aperiodic_Task_Server_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Polling_Server_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Polling_Server_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Polling_Server_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Polling_Server_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Deferred_Server_Protocol =--------
procedure Initialize(obj : in out Deferred_Server_Protocol) is
begin
initialize(Aperiodic_Task_Server_Protocol(obj));
end Initialize;
function Copy ( obj : in Deferred_Server_Protocol ) return Generic_Scheduler_Ptr is
New_Deferred_Server_Protocol : Deferred_Server_Protocol_Ptr;
begin
New_Deferred_Server_Protocol := new Deferred_Server_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Deferred_Server_Protocol);
end Copy;
function Copy ( obj : in Deferred_Server_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Deferred_Server_Protocol) is
begin
put(Aperiodic_Task_Server_Protocol(obj));
end Put;
procedure Put(obj : in Deferred_Server_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Deferred_Server_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Deferred_Server_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.APERIODIC_TASK_SERVER_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.DEFERRED_SERVER_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Deferred_Server_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Deferred_Server_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Aperiodic_Task_Server_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Deferred_Server_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Deferred_Server_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Deferred_Server_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Deferred_Server_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Sporadic_Server_Protocol =--------
procedure Initialize(obj : in out Sporadic_Server_Protocol) is
begin
initialize(Aperiodic_Task_Server_Protocol(obj));
end Initialize;
function Copy ( obj : in Sporadic_Server_Protocol ) return Generic_Scheduler_Ptr is
New_Sporadic_Server_Protocol : Sporadic_Server_Protocol_Ptr;
begin
New_Sporadic_Server_Protocol := new Sporadic_Server_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Sporadic_Server_Protocol);
end Copy;
function Copy ( obj : in Sporadic_Server_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Sporadic_Server_Protocol) is
begin
put(Aperiodic_Task_Server_Protocol(obj));
end Put;
procedure Put(obj : in Sporadic_Server_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Sporadic_Server_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Sporadic_Server_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.APERIODIC_TASK_SERVER_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.SPORADIC_SERVER_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Sporadic_Server_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Sporadic_Server_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Aperiodic_Task_Server_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Sporadic_Server_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Sporadic_Server_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Sporadic_Server_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Sporadic_Server_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Hierarchical_Protocol =--------
procedure Initialize(obj : in out Hierarchical_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in Hierarchical_Protocol ) return Generic_Scheduler_Ptr is
New_Hierarchical_Protocol : Hierarchical_Protocol_Ptr;
begin
New_Hierarchical_Protocol := new Hierarchical_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Hierarchical_Protocol);
end Copy;
function Copy ( obj : in Hierarchical_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Hierarchical_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in Hierarchical_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Hierarchical_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Hierarchical_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.HIERARCHICAL_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Hierarchical_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Hierarchical_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Hierarchical_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Hierarchical_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Hierarchical_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Hierarchical_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Compiled_User_Defined_Protocol =--------
procedure Initialize(obj : in out Compiled_User_Defined_Protocol) is
begin
initialize(User_Defined_Protocol(obj));
end Initialize;
function Copy ( obj : in Compiled_User_Defined_Protocol ) return Generic_Scheduler_Ptr is
New_Compiled_User_Defined_Protocol : Compiled_User_Defined_Protocol_Ptr;
begin
New_Compiled_User_Defined_Protocol := new Compiled_User_Defined_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Compiled_User_Defined_Protocol);
end Copy;
function Copy ( obj : in Compiled_User_Defined_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Compiled_User_Defined_Protocol) is
begin
put(User_Defined_Protocol(obj));
end Put;
procedure Put(obj : in Compiled_User_Defined_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Compiled_User_Defined_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Compiled_User_Defined_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.USER_DEFINED_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.COMPILED_USER_DEFINED_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Compiled_User_Defined_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Compiled_User_Defined_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(User_Defined_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Compiled_User_Defined_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Compiled_User_Defined_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Compiled_User_Defined_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Compiled_User_Defined_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Automata_User_Defined_Protocol =--------
procedure Initialize(obj : in out Automata_User_Defined_Protocol) is
begin
initialize(User_Defined_Protocol(obj));
end Initialize;
function Copy ( obj : in Automata_User_Defined_Protocol ) return Generic_Scheduler_Ptr is
New_Automata_User_Defined_Protocol : Automata_User_Defined_Protocol_Ptr;
begin
New_Automata_User_Defined_Protocol := new Automata_User_Defined_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Automata_User_Defined_Protocol);
end Copy;
function Copy ( obj : in Automata_User_Defined_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Automata_User_Defined_Protocol) is
begin
put(User_Defined_Protocol(obj));
end Put;
procedure Put(obj : in Automata_User_Defined_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Automata_User_Defined_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Automata_User_Defined_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.USER_DEFINED_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.AUTOMATA_USER_DEFINED_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Automata_User_Defined_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Automata_User_Defined_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(User_Defined_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Automata_User_Defined_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Automata_User_Defined_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Automata_User_Defined_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Automata_User_Defined_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Pipeline_User_Defined_Protocol =--------
procedure Initialize(obj : in out Pipeline_User_Defined_Protocol) is
begin
initialize(User_Defined_Protocol(obj));
end Initialize;
function Copy ( obj : in Pipeline_User_Defined_Protocol ) return Generic_Scheduler_Ptr is
New_Pipeline_User_Defined_Protocol : Pipeline_User_Defined_Protocol_Ptr;
begin
New_Pipeline_User_Defined_Protocol := new Pipeline_User_Defined_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Pipeline_User_Defined_Protocol);
end Copy;
function Copy ( obj : in Pipeline_User_Defined_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Pipeline_User_Defined_Protocol) is
begin
put(User_Defined_Protocol(obj));
end Put;
procedure Put(obj : in Pipeline_User_Defined_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Pipeline_User_Defined_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Pipeline_User_Defined_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.USER_DEFINED_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.PIPELINE_USER_DEFINED_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Pipeline_User_Defined_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Pipeline_User_Defined_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(User_Defined_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Pipeline_User_Defined_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Pipeline_User_Defined_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Pipeline_User_Defined_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Pipeline_User_Defined_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= User_Defined_Protocol =--------
procedure Initialize(obj : in out User_Defined_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in User_Defined_Protocol ) return Generic_Scheduler_Ptr is
New_User_Defined_Protocol : User_Defined_Protocol_Ptr;
begin
New_User_Defined_Protocol := new User_Defined_Protocol'(obj);
return Generic_Scheduler_Ptr(New_User_Defined_Protocol);
end Copy;
function Copy ( obj : in User_Defined_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in User_Defined_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in User_Defined_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in User_Defined_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in User_Defined_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.USER_DEFINED_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in User_Defined_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in User_Defined_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in User_Defined_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in User_Defined_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in User_Defined_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in User_Defined_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Earliest_Deadline_First_Protocol =--------
procedure Initialize(obj : in out Earliest_Deadline_First_Protocol) is
begin
initialize(Dynamic_Priority_Protocol(obj));
end Initialize;
function Copy ( obj : in Earliest_Deadline_First_Protocol ) return Generic_Scheduler_Ptr is
New_Earliest_Deadline_First_Protocol : Earliest_Deadline_First_Protocol_Ptr;
begin
New_Earliest_Deadline_First_Protocol := new Earliest_Deadline_First_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Earliest_Deadline_First_Protocol);
end Copy;
function Copy ( obj : in Earliest_Deadline_First_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Earliest_Deadline_First_Protocol) is
begin
put(Dynamic_Priority_Protocol(obj));
end Put;
procedure Put(obj : in Earliest_Deadline_First_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Earliest_Deadline_First_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Earliest_Deadline_First_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.DYNAMIC_PRIORITY_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.EARLIEST_DEADLINE_FIRST_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Earliest_Deadline_First_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Earliest_Deadline_First_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Dynamic_Priority_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Earliest_Deadline_First_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Earliest_Deadline_First_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Earliest_Deadline_First_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Earliest_Deadline_First_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Least_Laxity_First_Protocol =--------
procedure Initialize(obj : in out Least_Laxity_First_Protocol) is
begin
initialize(Dynamic_Priority_Protocol(obj));
end Initialize;
function Copy ( obj : in Least_Laxity_First_Protocol ) return Generic_Scheduler_Ptr is
New_Least_Laxity_First_Protocol : Least_Laxity_First_Protocol_Ptr;
begin
New_Least_Laxity_First_Protocol := new Least_Laxity_First_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Least_Laxity_First_Protocol);
end Copy;
function Copy ( obj : in Least_Laxity_First_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Least_Laxity_First_Protocol) is
begin
put(Dynamic_Priority_Protocol(obj));
end Put;
procedure Put(obj : in Least_Laxity_First_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Least_Laxity_First_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Least_Laxity_First_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.DYNAMIC_PRIORITY_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.LEAST_LAXITY_FIRST_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Least_Laxity_First_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Least_Laxity_First_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Dynamic_Priority_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Least_Laxity_First_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Least_Laxity_First_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Least_Laxity_First_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Least_Laxity_First_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Least_Runtime_Laxity_First_Protocol =--------
procedure Initialize(obj : in out Least_Runtime_Laxity_First_Protocol) is
begin
initialize(Dynamic_Priority_Protocol(obj));
end Initialize;
function Copy ( obj : in Least_Runtime_Laxity_First_Protocol ) return Generic_Scheduler_Ptr is
New_Least_Runtime_Laxity_First_Protocol : Least_Runtime_Laxity_First_Protocol_Ptr;
begin
New_Least_Runtime_Laxity_First_Protocol := new Least_Runtime_Laxity_First_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Least_Runtime_Laxity_First_Protocol);
end Copy;
function Copy ( obj : in Least_Runtime_Laxity_First_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Least_Runtime_Laxity_First_Protocol) is
begin
put(Dynamic_Priority_Protocol(obj));
end Put;
procedure Put(obj : in Least_Runtime_Laxity_First_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Least_Runtime_Laxity_First_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Least_Runtime_Laxity_First_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.DYNAMIC_PRIORITY_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.LEAST_RUNTIME_LAXITY_FIRST_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Least_Runtime_Laxity_First_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Least_Runtime_Laxity_First_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Dynamic_Priority_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Least_Runtime_Laxity_First_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Least_Runtime_Laxity_First_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Least_Runtime_Laxity_First_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Least_Runtime_Laxity_First_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Rate_Monotonic_Protocol =--------
procedure Initialize(obj : in out Rate_Monotonic_Protocol) is
begin
initialize(Fixed_Priority_Protocol(obj));
end Initialize;
function Copy ( obj : in Rate_Monotonic_Protocol ) return Generic_Scheduler_Ptr is
New_Rate_Monotonic_Protocol : Rate_Monotonic_Protocol_Ptr;
begin
New_Rate_Monotonic_Protocol := new Rate_Monotonic_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Rate_Monotonic_Protocol);
end Copy;
function Copy ( obj : in Rate_Monotonic_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Rate_Monotonic_Protocol) is
begin
put(Fixed_Priority_Protocol(obj));
end Put;
procedure Put(obj : in Rate_Monotonic_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Rate_Monotonic_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Rate_Monotonic_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.FIXED_PRIORITY_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.RATE_MONOTONIC_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Rate_Monotonic_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Rate_Monotonic_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Fixed_Priority_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Rate_Monotonic_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Rate_Monotonic_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Rate_Monotonic_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Rate_Monotonic_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Deadline_Monotonic_Protocol =--------
procedure Initialize(obj : in out Deadline_Monotonic_Protocol) is
begin
initialize(Fixed_Priority_Protocol(obj));
end Initialize;
function Copy ( obj : in Deadline_Monotonic_Protocol ) return Generic_Scheduler_Ptr is
New_Deadline_Monotonic_Protocol : Deadline_Monotonic_Protocol_Ptr;
begin
New_Deadline_Monotonic_Protocol := new Deadline_Monotonic_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Deadline_Monotonic_Protocol);
end Copy;
function Copy ( obj : in Deadline_Monotonic_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Deadline_Monotonic_Protocol) is
begin
put(Fixed_Priority_Protocol(obj));
end Put;
procedure Put(obj : in Deadline_Monotonic_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Deadline_Monotonic_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Deadline_Monotonic_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.FIXED_PRIORITY_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.DEADLINE_MONOTONIC_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Deadline_Monotonic_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Deadline_Monotonic_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Fixed_Priority_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Deadline_Monotonic_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Deadline_Monotonic_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Deadline_Monotonic_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Deadline_Monotonic_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Round_Robin_Protocol =--------
procedure Initialize(obj : in out Round_Robin_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in Round_Robin_Protocol ) return Generic_Scheduler_Ptr is
New_Round_Robin_Protocol : Round_Robin_Protocol_Ptr;
begin
New_Round_Robin_Protocol := new Round_Robin_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Round_Robin_Protocol);
end Copy;
function Copy ( obj : in Round_Robin_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Round_Robin_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in Round_Robin_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Round_Robin_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Round_Robin_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.ROUND_ROBIN_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Round_Robin_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Round_Robin_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Round_Robin_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Round_Robin_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Round_Robin_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Round_Robin_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Time_Sharing_Based_On_Wait_Time_Protocol =--------
procedure Initialize(obj : in out Time_Sharing_Based_On_Wait_Time_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in Time_Sharing_Based_On_Wait_Time_Protocol ) return Generic_Scheduler_Ptr is
New_Time_Sharing_Based_On_Wait_Time_Protocol : Time_Sharing_Based_On_Wait_Time_Protocol_Ptr;
begin
New_Time_Sharing_Based_On_Wait_Time_Protocol := new Time_Sharing_Based_On_Wait_Time_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Time_Sharing_Based_On_Wait_Time_Protocol);
end Copy;
function Copy ( obj : in Time_Sharing_Based_On_Wait_Time_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Time_Sharing_Based_On_Wait_Time_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in Time_Sharing_Based_On_Wait_Time_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Time_Sharing_Based_On_Wait_Time_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Time_Sharing_Based_On_Wait_Time_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.TIME_SHARING_BASED_ON_WAIT_TIME_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Time_Sharing_Based_On_Wait_Time_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Time_Sharing_Based_On_Wait_Time_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Time_Sharing_Based_On_Wait_Time_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Time_Sharing_Based_On_Wait_Time_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Time_Sharing_Based_On_Wait_Time_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Time_Sharing_Based_On_Wait_Time_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Posix_1003_Highest_Priority_First_Protocol =--------
procedure Initialize(obj : in out Posix_1003_Highest_Priority_First_Protocol) is
begin
initialize(Fixed_Priority_Protocol(obj));
end Initialize;
function Copy ( obj : in Posix_1003_Highest_Priority_First_Protocol ) return Generic_Scheduler_Ptr is
New_Posix_1003_Highest_Priority_First_Protocol : Posix_1003_Highest_Priority_First_Protocol_Ptr;
begin
New_Posix_1003_Highest_Priority_First_Protocol := new Posix_1003_Highest_Priority_First_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Posix_1003_Highest_Priority_First_Protocol);
end Copy;
function Copy ( obj : in Posix_1003_Highest_Priority_First_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Posix_1003_Highest_Priority_First_Protocol) is
begin
put(Fixed_Priority_Protocol(obj));
end Put;
procedure Put(obj : in Posix_1003_Highest_Priority_First_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Posix_1003_Highest_Priority_First_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Posix_1003_Highest_Priority_First_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.FIXED_PRIORITY_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.POSIX_1003_HIGHEST_PRIORITY_FIRST_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Posix_1003_Highest_Priority_First_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Posix_1003_Highest_Priority_First_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Fixed_Priority_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Posix_1003_Highest_Priority_First_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Posix_1003_Highest_Priority_First_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Posix_1003_Highest_Priority_First_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Posix_1003_Highest_Priority_First_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= D_Over_Protocol =--------
procedure Initialize(obj : in out D_Over_Protocol) is
begin
initialize(Dynamic_Priority_Protocol(obj));
end Initialize;
function Copy ( obj : in D_Over_Protocol ) return Generic_Scheduler_Ptr is
New_D_Over_Protocol : D_Over_Protocol_Ptr;
begin
New_D_Over_Protocol := new D_Over_Protocol'(obj);
return Generic_Scheduler_Ptr(New_D_Over_Protocol);
end Copy;
function Copy ( obj : in D_Over_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in D_Over_Protocol) is
begin
put(Dynamic_Priority_Protocol(obj));
end Put;
procedure Put(obj : in D_Over_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in D_Over_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in D_Over_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.DYNAMIC_PRIORITY_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.D_OVER_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in D_Over_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in D_Over_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Dynamic_Priority_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in D_Over_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in D_Over_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in D_Over_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in D_Over_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Maximum_Urgency_First_Based_On_Laxity_Protocol =--------
procedure Initialize(obj : in out Maximum_Urgency_First_Based_On_Laxity_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol ) return Generic_Scheduler_Ptr is
New_Maximum_Urgency_First_Based_On_Laxity_Protocol : Maximum_Urgency_First_Based_On_Laxity_Protocol_Ptr;
begin
New_Maximum_Urgency_First_Based_On_Laxity_Protocol := new Maximum_Urgency_First_Based_On_Laxity_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Maximum_Urgency_First_Based_On_Laxity_Protocol);
end Copy;
function Copy ( obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.MAXIMUM_URGENCY_FIRST_BASED_ON_LAXITY_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Maximum_Urgency_First_Based_On_Laxity_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Maximum_Urgency_First_Based_On_Deadline_Protocol =--------
procedure Initialize(obj : in out Maximum_Urgency_First_Based_On_Deadline_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol ) return Generic_Scheduler_Ptr is
New_Maximum_Urgency_First_Based_On_Deadline_Protocol : Maximum_Urgency_First_Based_On_Deadline_Protocol_Ptr;
begin
New_Maximum_Urgency_First_Based_On_Deadline_Protocol := new Maximum_Urgency_First_Based_On_Deadline_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Maximum_Urgency_First_Based_On_Deadline_Protocol);
end Copy;
function Copy ( obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.MAXIMUM_URGENCY_FIRST_BASED_ON_DEADLINE_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Maximum_Urgency_First_Based_On_Deadline_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Time_Sharing_Based_On_Cpu_Usage_Protocol =--------
procedure Initialize(obj : in out Time_Sharing_Based_On_Cpu_Usage_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol ) return Generic_Scheduler_Ptr is
New_Time_Sharing_Based_On_Cpu_Usage_Protocol : Time_Sharing_Based_On_Cpu_Usage_Protocol_Ptr;
begin
New_Time_Sharing_Based_On_Cpu_Usage_Protocol := new Time_Sharing_Based_On_Cpu_Usage_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Time_Sharing_Based_On_Cpu_Usage_Protocol);
end Copy;
function Copy ( obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.TIME_SHARING_BASED_ON_CPU_USAGE_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Time_Sharing_Based_On_Cpu_Usage_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= No_Scheduling_Protocol =--------
procedure Initialize(obj : in out No_Scheduling_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in No_Scheduling_Protocol ) return Generic_Scheduler_Ptr is
New_No_Scheduling_Protocol : No_Scheduling_Protocol_Ptr;
begin
New_No_Scheduling_Protocol := new No_Scheduling_Protocol'(obj);
return Generic_Scheduler_Ptr(New_No_Scheduling_Protocol);
end Copy;
function Copy ( obj : in No_Scheduling_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in No_Scheduling_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in No_Scheduling_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in No_Scheduling_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in No_Scheduling_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.NO_SCHEDULING_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in No_Scheduling_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in No_Scheduling_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in No_Scheduling_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in No_Scheduling_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in No_Scheduling_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in No_Scheduling_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Hierarchical_Cyclic_Protocol =--------
procedure Initialize(obj : in out Hierarchical_Cyclic_Protocol) is
begin
initialize(Hierarchical_Protocol(obj));
end Initialize;
function Copy ( obj : in Hierarchical_Cyclic_Protocol ) return Generic_Scheduler_Ptr is
New_Hierarchical_Cyclic_Protocol : Hierarchical_Cyclic_Protocol_Ptr;
begin
New_Hierarchical_Cyclic_Protocol := new Hierarchical_Cyclic_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Hierarchical_Cyclic_Protocol);
end Copy;
function Copy ( obj : in Hierarchical_Cyclic_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Hierarchical_Cyclic_Protocol) is
begin
put(Hierarchical_Protocol(obj));
end Put;
procedure Put(obj : in Hierarchical_Cyclic_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Hierarchical_Cyclic_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Hierarchical_Cyclic_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.HIERARCHICAL_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.HIERARCHICAL_CYCLIC_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Hierarchical_Cyclic_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Hierarchical_Cyclic_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Hierarchical_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Hierarchical_Cyclic_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Hierarchical_Cyclic_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Hierarchical_Cyclic_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Hierarchical_Cyclic_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Hierarchical_Round_Robin_Protocol =--------
procedure Initialize(obj : in out Hierarchical_Round_Robin_Protocol) is
begin
initialize(Hierarchical_Protocol(obj));
end Initialize;
function Copy ( obj : in Hierarchical_Round_Robin_Protocol ) return Generic_Scheduler_Ptr is
New_Hierarchical_Round_Robin_Protocol : Hierarchical_Round_Robin_Protocol_Ptr;
begin
New_Hierarchical_Round_Robin_Protocol := new Hierarchical_Round_Robin_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Hierarchical_Round_Robin_Protocol);
end Copy;
function Copy ( obj : in Hierarchical_Round_Robin_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Hierarchical_Round_Robin_Protocol) is
begin
put(Hierarchical_Protocol(obj));
end Put;
procedure Put(obj : in Hierarchical_Round_Robin_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Hierarchical_Round_Robin_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Hierarchical_Round_Robin_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.HIERARCHICAL_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.HIERARCHICAL_ROUND_ROBIN_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Hierarchical_Round_Robin_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Hierarchical_Round_Robin_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Hierarchical_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Hierarchical_Round_Robin_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Hierarchical_Round_Robin_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Hierarchical_Round_Robin_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Hierarchical_Round_Robin_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Hierarchical_Fixed_Priority_Protocol =--------
procedure Initialize(obj : in out Hierarchical_Fixed_Priority_Protocol) is
begin
initialize(Hierarchical_Protocol(obj));
end Initialize;
function Copy ( obj : in Hierarchical_Fixed_Priority_Protocol ) return Generic_Scheduler_Ptr is
New_Hierarchical_Fixed_Priority_Protocol : Hierarchical_Fixed_Priority_Protocol_Ptr;
begin
New_Hierarchical_Fixed_Priority_Protocol := new Hierarchical_Fixed_Priority_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Hierarchical_Fixed_Priority_Protocol);
end Copy;
function Copy ( obj : in Hierarchical_Fixed_Priority_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Hierarchical_Fixed_Priority_Protocol) is
begin
put(Hierarchical_Protocol(obj));
end Put;
procedure Put(obj : in Hierarchical_Fixed_Priority_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Hierarchical_Fixed_Priority_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Hierarchical_Fixed_Priority_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.HIERARCHICAL_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.HIERARCHICAL_FIXED_PRIORITY_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Hierarchical_Fixed_Priority_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Hierarchical_Fixed_Priority_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Hierarchical_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Hierarchical_Fixed_Priority_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Hierarchical_Fixed_Priority_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Hierarchical_Fixed_Priority_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Hierarchical_Fixed_Priority_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Hierarchical_Offline_Protocol =--------
procedure Initialize(obj : in out Hierarchical_Offline_Protocol) is
begin
initialize(Hierarchical_Protocol(obj));
end Initialize;
function Copy ( obj : in Hierarchical_Offline_Protocol ) return Generic_Scheduler_Ptr is
New_Hierarchical_Offline_Protocol : Hierarchical_Offline_Protocol_Ptr;
begin
New_Hierarchical_Offline_Protocol := new Hierarchical_Offline_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Hierarchical_Offline_Protocol);
end Copy;
function Copy ( obj : in Hierarchical_Offline_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Hierarchical_Offline_Protocol) is
begin
put(Hierarchical_Protocol(obj));
end Put;
procedure Put(obj : in Hierarchical_Offline_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Hierarchical_Offline_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Hierarchical_Offline_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.HIERARCHICAL_PROTOCOL");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.HIERARCHICAL_OFFLINE_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Hierarchical_Offline_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Hierarchical_Offline_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Hierarchical_Protocol(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Hierarchical_Offline_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Hierarchical_Offline_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Hierarchical_Offline_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Hierarchical_Offline_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Fixed_Priority_Protocol =--------
procedure Initialize(obj : in out Fixed_Priority_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in Fixed_Priority_Protocol ) return Generic_Scheduler_Ptr is
New_Fixed_Priority_Protocol : Fixed_Priority_Protocol_Ptr;
begin
New_Fixed_Priority_Protocol := new Fixed_Priority_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Fixed_Priority_Protocol);
end Copy;
function Copy ( obj : in Fixed_Priority_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Fixed_Priority_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in Fixed_Priority_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Fixed_Priority_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Fixed_Priority_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.FIXED_PRIORITY_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Fixed_Priority_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Fixed_Priority_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Fixed_Priority_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Fixed_Priority_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Fixed_Priority_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Fixed_Priority_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Dynamic_Priority_Protocol =--------
procedure Initialize(obj : in out Dynamic_Priority_Protocol) is
begin
initialize(Generic_Scheduler(obj));
end Initialize;
function Copy ( obj : in Dynamic_Priority_Protocol ) return Generic_Scheduler_Ptr is
New_Dynamic_Priority_Protocol : Dynamic_Priority_Protocol_Ptr;
begin
New_Dynamic_Priority_Protocol := new Dynamic_Priority_Protocol'(obj);
return Generic_Scheduler_Ptr(New_Dynamic_Priority_Protocol);
end Copy;
function Copy ( obj : in Dynamic_Priority_Protocol_Ptr ) return Generic_Scheduler_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Dynamic_Priority_Protocol) is
begin
put(Generic_Scheduler(obj));
end Put;
procedure Put(obj : in Dynamic_Priority_Protocol_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Dynamic_Priority_Protocol_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Dynamic_Priority_Protocol ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.GENERIC_SCHEDULER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULER.DYNAMIC_PRIORITY_PROTOCOL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Dynamic_Priority_Protocol_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Dynamic_Priority_Protocol; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Scheduler(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Dynamic_Priority_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Dynamic_Priority_Protocol_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Dynamic_Priority_Protocol) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Dynamic_Priority_Protocol_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Scheduler;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Laws is
function XML_String(obj : in Laws_Type) return Unbounded_String is
begin
return to_unbounded_string(Laws_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Laws_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
End Laws;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Caches is
function XML_String(obj : in Cache_Addressing_Type) return Unbounded_String is
begin
return to_unbounded_string(Cache_Addressing_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Cache_Addressing_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Cache_Type) return Unbounded_String is
begin
return to_unbounded_string(Cache_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Cache_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Cache_Coherence_Protocol_Type) return Unbounded_String is
begin
return to_unbounded_string(Cache_Coherence_Protocol_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Cache_Coherence_Protocol_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Cache_Replacement_Policy_Type) return Unbounded_String is
begin
return to_unbounded_string(Cache_Replacement_Policy_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Cache_Replacement_Policy_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Write_Policy_Type) return Unbounded_String is
begin
return to_unbounded_string(Write_Policy_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Write_Policy_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Cache_Block =--------
procedure Initialize(obj : in out Cache_Block) is
begin
initialize(Named_Object(obj));
obj.cache_block_number := 0;
obj.object_type := Cache_Block_Object_Type;
end Initialize;
function Copy ( obj : in Cache_Block ) return Cache_Block_Ptr is
New_Cache_Block : Cache_Block_Ptr;
begin
New_Cache_Block := new Cache_Block'(obj);
return (New_Cache_Block);
end Copy;
function Copy ( obj : in Cache_Block_Ptr ) return Cache_Block_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Cache_Block) is
begin
put(Named_Object(obj));
put("cache_block_number: "); standards_io.natural_io.put(obj.cache_block_number); put ( "; " );
end Put;
procedure Put(obj : in Cache_Block_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Cache_Block_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Cache_Block) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Cache_Block_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Cache_Block ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CACHES.CACHE_BLOCK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Cache_Block_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Cache_Block; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.cache_block_number) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cache_block_number) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Cache_Block) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Cache_Block_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Cache_Block) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Cache_Block_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Cache_Access_Profile =--------
procedure Initialize(obj : in out Cache_Access_Profile) is
begin
initialize(Named_Object(obj));
obj.object_type := Cache_Access_Profile_Object_Type;
end Initialize;
function Copy ( obj : in Cache_Access_Profile ) return Cache_Access_Profile_Ptr is
New_Cache_Access_Profile : Cache_Access_Profile_Ptr;
begin
New_Cache_Access_Profile := new Cache_Access_Profile'(obj);
return (New_Cache_Access_Profile);
end Copy;
function Copy ( obj : in Cache_Access_Profile_Ptr ) return Cache_Access_Profile_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Cache_Access_Profile) is
begin
put(Named_Object(obj));
put("UCBs: "); put(obj.UCBs); put ( "; " );
put("ECBs: "); put(obj.ECBs); put ( "; " );
end Put;
procedure Put(obj : in Cache_Access_Profile_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Cache_Access_Profile_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Cache_Access_Profile) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Cache_Access_Profile_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Cache_Access_Profile ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CACHES.CACHE_ACCESS_PROFILE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Cache_Access_Profile_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Cache_Access_Profile; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.UCBs) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.UCBs) & to_unbounded_string("");
end if;
if (XML_String(obj.ECBs) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ECBs) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Cache_Access_Profile) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Cache_Access_Profile_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Cache_Access_Profile) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Cache_Access_Profile_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Generic_Cache =--------
procedure Initialize(obj : in out Generic_Cache) is
begin
initialize(Named_Object(obj));
obj.cache_size := 0;
obj.line_size := 0;
obj.associativity := 0;
obj.block_reload_time := 0;
obj.replacement_policy := Random;
obj.coherence_protocol := Private_Cache_Protocol;
obj.cache_category := Data_Cache_Type;
obj.object_type := Cache_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Cache ) return Generic_Cache_Ptr is
New_Generic_Cache : Generic_Cache_Ptr;
begin
New_Generic_Cache := new Generic_Cache'(obj);
return (New_Generic_Cache);
end Copy;
function Copy ( obj : in Generic_Cache_Ptr ) return Generic_Cache_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Cache) is
begin
put(Named_Object(obj));
put("cache_size: "); standards_io.natural_io.put(obj.cache_size); put ( "; " );
put("line_size: "); standards_io.natural_io.put(obj.line_size); put ( "; " );
put("associativity: "); standards_io.natural_io.put(obj.associativity); put ( "; " );
put("block_reload_time: "); standards_io.natural_io.put(obj.block_reload_time); put ( "; " );
put("replacement_policy: "); put(obj.replacement_policy); put ( "; " );
put("coherence_protocol: "); put(obj.coherence_protocol); put ( "; " );
put("cache_category: "); put(obj.cache_category); put ( "; " );
put("cache_blocks: "); put(obj.cache_blocks); put ( "; " );
end Put;
procedure Put(obj : in Generic_Cache_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Cache_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Generic_Cache) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Generic_Cache_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Generic_Cache ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CACHES.GENERIC_CACHE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Cache_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Cache; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.cache_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cache_size) & to_unbounded_string("");
end if;
if (XML_String(obj.line_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.line_size) & to_unbounded_string("");
end if;
if (XML_String(obj.associativity) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.associativity) & to_unbounded_string("");
end if;
if (XML_String(obj.block_reload_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.block_reload_time) & to_unbounded_string("");
end if;
if (XML_String(obj.replacement_policy) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.replacement_policy) & to_unbounded_string("");
end if;
if (XML_String(obj.coherence_protocol) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.coherence_protocol) & to_unbounded_string("");
end if;
if (XML_String(obj.cache_category) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cache_category) & to_unbounded_string("");
end if;
if (XML_String(obj.cache_blocks) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cache_blocks) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Cache) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Cache_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Cache) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Cache_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Data_Cache =--------
procedure Initialize(obj : in out Data_Cache) is
begin
initialize(Generic_Cache(obj));
obj.write_policy := Copy_Back;
obj.cache_category := Data_Cache_Type;
end Initialize;
function Copy ( obj : in Data_Cache ) return Generic_Cache_Ptr is
New_Data_Cache : Data_Cache_Ptr;
begin
New_Data_Cache := new Data_Cache'(obj);
return Generic_Cache_Ptr(New_Data_Cache);
end Copy;
function Copy ( obj : in Data_Cache_Ptr ) return Generic_Cache_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Data_Cache) is
begin
put(Generic_Cache(obj));
put("write_policy: "); put(obj.write_policy); put ( "; " );
end Put;
procedure Put(obj : in Data_Cache_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Data_Cache_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Data_Cache) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Data_Cache_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Data_Cache ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CACHES.GENERIC_CACHE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CACHES.DATA_CACHE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Data_Cache_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Data_Cache; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Cache(obj), result);
if (XML_String(obj.write_policy) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.write_policy) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Data_Cache) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Data_Cache_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Data_Cache) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Data_Cache_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Instruction_Cache =--------
procedure Initialize(obj : in out Instruction_Cache) is
begin
initialize(Generic_Cache(obj));
obj.cache_category := Instruction_Cache_Type;
end Initialize;
function Copy ( obj : in Instruction_Cache ) return Generic_Cache_Ptr is
New_Instruction_Cache : Instruction_Cache_Ptr;
begin
New_Instruction_Cache := new Instruction_Cache'(obj);
return Generic_Cache_Ptr(New_Instruction_Cache);
end Copy;
function Copy ( obj : in Instruction_Cache_Ptr ) return Generic_Cache_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Instruction_Cache) is
begin
put(Generic_Cache(obj));
end Put;
procedure Put(obj : in Instruction_Cache_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Instruction_Cache_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Instruction_Cache) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Instruction_Cache_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Instruction_Cache ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CACHES.GENERIC_CACHE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CACHES.INSTRUCTION_CACHE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Instruction_Cache_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Instruction_Cache; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Cache(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Instruction_Cache) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Instruction_Cache_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Instruction_Cache) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Instruction_Cache_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Data_Instruction_Cache =--------
procedure Initialize(obj : in out Data_Instruction_Cache) is
begin
initialize(Generic_Cache(obj));
obj.write_policy := Copy_Back;
obj.cache_category := Data_Instruction_Cache_Type;
end Initialize;
function Copy ( obj : in Data_Instruction_Cache ) return Generic_Cache_Ptr is
New_Data_Instruction_Cache : Data_Instruction_Cache_Ptr;
begin
New_Data_Instruction_Cache := new Data_Instruction_Cache'(obj);
return Generic_Cache_Ptr(New_Data_Instruction_Cache);
end Copy;
function Copy ( obj : in Data_Instruction_Cache_Ptr ) return Generic_Cache_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Data_Instruction_Cache) is
begin
put(Generic_Cache(obj));
put("write_policy: "); put(obj.write_policy); put ( "; " );
end Put;
procedure Put(obj : in Data_Instruction_Cache_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Data_Instruction_Cache_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Data_Instruction_Cache) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Data_Instruction_Cache_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Data_Instruction_Cache ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CACHES.GENERIC_CACHE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CACHES.DATA_INSTRUCTION_CACHE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Data_Instruction_Cache_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Data_Instruction_Cache; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Cache(obj), result);
if (XML_String(obj.write_policy) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.write_policy) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Data_Instruction_Cache) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Data_Instruction_Cache_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Data_Instruction_Cache) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Data_Instruction_Cache_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Cache_System =--------
procedure Initialize(obj : in out Cache_System) is
begin
initialize(Named_Object(obj));
end Initialize;
function Copy ( obj : in Cache_System ) return Cache_System_Ptr is
New_Cache_System : Cache_System_Ptr;
begin
New_Cache_System := new Cache_System'(obj);
return (New_Cache_System);
end Copy;
function Copy ( obj : in Cache_System_Ptr ) return Cache_System_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Cache_System) is
begin
put(Named_Object(obj));
put("caches: "); put(obj.caches); put ( "; " );
end Put;
procedure Put(obj : in Cache_System_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Cache_System_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Cache_System) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Cache_System_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Cache_System ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CACHES.CACHE_SYSTEM");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Cache_System_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Cache_System; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.caches) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.caches) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Cache_System) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Cache_System_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Cache_System) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Cache_System_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Caches;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Framework_Config is
function XML_String(obj : in Debug_Level) return Unbounded_String is
begin
return to_unbounded_string(Debug_Level'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Debug_Level) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Languages) return Unbounded_String is
begin
return to_unbounded_string(Languages'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Languages) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
End Framework_Config;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with MILS_Security;
use MILS_Security.MILS_Confidentiality_Level_Type_io;
use MILS_Security.MILS_Integrity_Level_Type_io;
use MILS_Security.MILS_Component_Type_io;
use MILS_Security.MILS_Partition_Type_io;
Package Body Address_Spaces is
-- --------= Address_Space =--------
procedure Initialize(obj : in out Address_Space) is
begin
initialize(Named_Object(obj));
obj.cpu_name := empty_string;
obj.text_memory_size := 0;
obj.stack_memory_size := 0;
obj.data_memory_size := 0;
obj.heap_memory_size := 0;
obj.mils_confidentiality_level := UnClassified;
obj.mils_integrity_level := Low;
obj.mils_component := SLS;
obj.mils_partition := Device;
obj.mils_compliant := false;
obj.object_type := Address_Space_Object_Type;
end Initialize;
function Copy ( obj : in Address_Space ) return Address_Space_Ptr is
New_Address_Space : Address_Space_Ptr;
begin
New_Address_Space := new Address_Space'(obj);
return (New_Address_Space);
end Copy;
function Copy ( obj : in Address_Space_Ptr ) return Address_Space_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Address_Space) is
begin
put(Named_Object(obj));
put("cpu_name: "); put(obj.cpu_name); put ( "; " );
put("text_memory_size: "); standards_io.natural_io.put(obj.text_memory_size); put ( "; " );
put("stack_memory_size: "); standards_io.natural_io.put(obj.stack_memory_size); put ( "; " );
put("data_memory_size: "); standards_io.natural_io.put(obj.data_memory_size); put ( "; " );
put("heap_memory_size: "); standards_io.natural_io.put(obj.heap_memory_size); put ( "; " );
put("scheduling: "); put(obj.scheduling); put ( "; " );
put("mils_confidentiality_level: "); put(obj.mils_confidentiality_level); put ( "; " );
put("mils_integrity_level: "); put(obj.mils_integrity_level); put ( "; " );
put("mils_component: "); put(obj.mils_component); put ( "; " );
put("mils_partition: "); put(obj.mils_partition); put ( "; " );
put("mils_compliant: "); standards_io.boolean_io.put(obj.mils_compliant); put ( "; " );
end Put;
procedure Put(obj : in Address_Space_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Address_Space_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Address_Space) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Address_Space_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Address_Space ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ADDRESS_SPACES.ADDRESS_SPACE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Address_Space_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Address_Space; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.cpu_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cpu_name) & to_unbounded_string("");
end if;
if (XML_String(obj.text_memory_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.text_memory_size) & to_unbounded_string("");
end if;
if (XML_String(obj.stack_memory_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.stack_memory_size) & to_unbounded_string("");
end if;
if (XML_String(obj.data_memory_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.data_memory_size) & to_unbounded_string("");
end if;
if (XML_String(obj.heap_memory_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.heap_memory_size) & to_unbounded_string("");
end if;
if (XML_String(obj.scheduling) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.scheduling) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_confidentiality_level) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_confidentiality_level) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_integrity_level) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_integrity_level) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_component) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_component) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_partition) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_partition) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_compliant) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_compliant) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Address_Space) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Address_Space_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Address_Space) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Address_Space_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Address_Spaces;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with framework;
use framework;
with id_generators;
use id_generators;
Package Body Generic_Graph is
-- --------= Generic_Node =--------
procedure Initialize(obj : in out Generic_Node) is
begin
generate_id( framework_id, obj.cheddar_private_id );
obj.Id := empty_string;
end Initialize;
function Copy ( obj : in Generic_Node ) return Generic_Node_Ptr is
New_Generic_Node : Generic_Node_Ptr;
begin
New_Generic_Node := new Generic_Node'(obj);
return (New_Generic_Node);
end Copy;
function Copy ( obj : in Generic_Node_Ptr ) return Generic_Node_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Node) is
begin
put("cheddar_private_id: "); put(obj.cheddar_private_id); put ( "; " );
put("Id: "); put(obj.Id); put ( "; " );
end Put;
procedure Put(obj : in Generic_Node_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Node_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Generic_Node ) 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("GENERIC_GRAPH.GENERIC_NODE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Node_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Node; result : in out Unbounded_String) is
begin
if (XML_String(obj.Id) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Id) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Node) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Node_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Node) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Node_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Generic_Edge =--------
procedure Initialize(obj : in out Generic_Edge) is
begin
generate_id( framework_id, obj.cheddar_private_id );
obj.Id := empty_string;
obj.Node_1 := empty_string;
obj.Node_2 := empty_string;
end Initialize;
function Copy ( obj : in Generic_Edge ) return Generic_Edge_Ptr is
New_Generic_Edge : Generic_Edge_Ptr;
begin
New_Generic_Edge := new Generic_Edge'(obj);
return (New_Generic_Edge);
end Copy;
function Copy ( obj : in Generic_Edge_Ptr ) return Generic_Edge_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Edge) is
begin
put("cheddar_private_id: "); put(obj.cheddar_private_id); put ( "; " );
put("Id: "); put(obj.Id); put ( "; " );
put("Node_1: "); put(obj.Node_1); put ( "; " );
put("Node_2: "); put(obj.Node_2); put ( "; " );
end Put;
procedure Put(obj : in Generic_Edge_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Edge_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Generic_Edge ) 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("GENERIC_GRAPH.GENERIC_EDGE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Edge_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Edge; result : in out Unbounded_String) is
begin
if (XML_String(obj.Id) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Id) & to_unbounded_string("");
end if;
if (XML_String(obj.Node_1) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Node_1) & to_unbounded_string("");
end if;
if (XML_String(obj.Node_2) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Node_2) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Edge_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Edge_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Graph =--------
procedure Initialize(obj : in out Graph) is
begin
generate_id( framework_id, obj.cheddar_private_id );
end Initialize;
function Copy ( obj : in Graph ) return Graph_Ptr is
New_Graph : Graph_Ptr;
begin
New_Graph := new Graph'(obj);
return (New_Graph);
end Copy;
function Copy ( obj : in Graph_Ptr ) return Graph_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Graph) is
begin
put("cheddar_private_id: "); put(obj.cheddar_private_id); put ( "; " );
put("Nodes: "); put(obj.Nodes); put ( "; " );
put("Edges: "); put(obj.Edges); put ( "; " );
end Put;
procedure Put(obj : in Graph_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Graph_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Graph ) 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("GENERIC_GRAPH.GRAPH");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Graph_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Graph; result : in out Unbounded_String) is
begin
if (XML_String(obj.Nodes) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Nodes) & to_unbounded_string("");
end if;
if (XML_String(obj.Edges) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Edges) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Graph) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Graph_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Graph) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Graph_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Generic_Graph;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Execution_Units is
function XML_String(obj : in Execution_Unit_Model_Type) return Unbounded_String is
begin
return to_unbounded_string(Execution_Unit_Model_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Execution_Unit_Model_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Execution_Unit_Type) return Unbounded_String is
begin
return to_unbounded_string(Execution_Unit_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Execution_Unit_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Execution_Unit =--------
procedure Initialize(obj : in out Execution_Unit) is
begin
initialize(Named_Object(obj));
obj.Type_eu := Execute_phase;
obj.values_eu := 0;
obj.object_type := Execution_Unit_Object_Type;
end Initialize;
function Copy ( obj : in Execution_Unit ) return Execution_Unit_Ptr is
New_Execution_Unit : Execution_Unit_Ptr;
begin
New_Execution_Unit := new Execution_Unit'(obj);
return (New_Execution_Unit);
end Copy;
function Copy ( obj : in Execution_Unit_Ptr ) return Execution_Unit_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Execution_Unit) is
begin
put(Named_Object(obj));
put("Type_eu: "); put(obj.Type_eu); put ( "; " );
put("values_eu: "); standards_io.natural_io.put(obj.values_eu); put ( "; " );
end Put;
procedure Put(obj : in Execution_Unit_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Execution_Unit_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Execution_Unit) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Execution_Unit_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Execution_Unit ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXECUTION_UNITS.EXECUTION_UNIT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Execution_Unit_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Execution_Unit; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.Type_eu) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Type_eu) & to_unbounded_string("");
end if;
if (XML_String(obj.values_eu) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.values_eu) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Execution_Unit) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Execution_Unit_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Execution_Unit) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Execution_Unit_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Execution_Units;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Scheduler_Interface;
use Scheduler_Interface.Preemptives_Type_io;
with Parameters;
use Parameters;
use parameters.User_Defined_Parameters_Table_Package;
with MILS_Security;
use MILS_Security.MILS_Confidentiality_Level_Type_io;
use MILS_Security.MILS_Integrity_Level_Type_io;
Package Body Messages is
function XML_String(obj : in Messages_Type) return Unbounded_String is
begin
return to_unbounded_string(Messages_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Messages_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Generic_Message =--------
procedure Initialize(obj : in out Generic_Message) is
begin
initialize(Named_Object(obj));
obj.message_type := Periodic_Type;
obj.preemptive_type := Preemptive;
obj.deadline := 0;
obj.size := 0;
obj.response_time := 0;
obj.communication_time := 0;
obj.mils_confidentiality_level := UnClassified;
obj.mils_integrity_level := Low;
obj.object_type := Message_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Message ) return Generic_Message_Ptr is
New_Generic_Message : Generic_Message_Ptr;
begin
New_Generic_Message := new Generic_Message'(obj);
return (New_Generic_Message);
end Copy;
function Copy ( obj : in Generic_Message_Ptr ) return Generic_Message_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Message) is
begin
put(Named_Object(obj));
put("message_type: "); put(obj.message_type); put ( "; " );
put("preemptive_type: "); put(obj.preemptive_type); put ( "; " );
put("parameters: "); put(obj.parameters); put ( "; " );
put("deadline: "); standards_io.natural_io.put(obj.deadline); put ( "; " );
put("size: "); standards_io.natural_io.put(obj.size); put ( "; " );
put("response_time: "); standards_io.natural_io.put(obj.response_time); put ( "; " );
put("communication_time: "); standards_io.natural_io.put(obj.communication_time); put ( "; " );
put("mils_confidentiality_level: "); put(obj.mils_confidentiality_level); put ( "; " );
put("mils_integrity_level: "); put(obj.mils_integrity_level); put ( "; " );
end Put;
procedure Put(obj : in Generic_Message_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Message_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Generic_Message) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Generic_Message_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Generic_Message ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MESSAGES.GENERIC_MESSAGE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Message_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Message; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.message_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.message_type) & to_unbounded_string("");
end if;
if (XML_String(obj.preemptive_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.preemptive_type) & to_unbounded_string("");
end if;
if (XML_String(obj.parameters) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.parameters) & to_unbounded_string("");
end if;
if (XML_String(obj.deadline) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.deadline) & to_unbounded_string("");
end if;
if (XML_String(obj.size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.size) & to_unbounded_string("");
end if;
if (XML_String(obj.response_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.response_time) & to_unbounded_string("");
end if;
if (XML_String(obj.communication_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.communication_time) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_confidentiality_level) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_confidentiality_level) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_integrity_level) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_integrity_level) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Message) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Message_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Message) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Message_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Periodic_Message =--------
procedure Initialize(obj : in out Periodic_Message) is
begin
initialize(Generic_Message(obj));
obj.period := 0;
obj.jitter := 0;
obj.message_type := Periodic_Type;
end Initialize;
function Copy ( obj : in Periodic_Message ) return Generic_Message_Ptr is
New_Periodic_Message : Periodic_Message_Ptr;
begin
New_Periodic_Message := new Periodic_Message'(obj);
return Generic_Message_Ptr(New_Periodic_Message);
end Copy;
function Copy ( obj : in Periodic_Message_Ptr ) return Generic_Message_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Periodic_Message) is
begin
put(Generic_Message(obj));
put("period: "); standards_io.natural_io.put(obj.period); put ( "; " );
put("jitter: "); standards_io.natural_io.put(obj.jitter); put ( "; " );
end Put;
procedure Put(obj : in Periodic_Message_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Periodic_Message_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Periodic_Message) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Periodic_Message_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Periodic_Message ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MESSAGES.GENERIC_MESSAGE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MESSAGES.PERIODIC_MESSAGE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Periodic_Message_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Periodic_Message; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Message(obj), result);
if (XML_String(obj.period) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.period) & to_unbounded_string("");
end if;
if (XML_String(obj.jitter) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.jitter) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Periodic_Message) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Periodic_Message_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Periodic_Message) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Periodic_Message_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Aperiodic_Message =--------
procedure Initialize(obj : in out Aperiodic_Message) is
begin
initialize(Generic_Message(obj));
obj.message_type := Aperiodic_Type;
end Initialize;
function Copy ( obj : in Aperiodic_Message ) return Generic_Message_Ptr is
New_Aperiodic_Message : Aperiodic_Message_Ptr;
begin
New_Aperiodic_Message := new Aperiodic_Message'(obj);
return Generic_Message_Ptr(New_Aperiodic_Message);
end Copy;
function Copy ( obj : in Aperiodic_Message_Ptr ) return Generic_Message_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Aperiodic_Message) is
begin
put(Generic_Message(obj));
end Put;
procedure Put(obj : in Aperiodic_Message_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Aperiodic_Message_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Aperiodic_Message) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Aperiodic_Message_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Aperiodic_Message ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MESSAGES.GENERIC_MESSAGE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MESSAGES.APERIODIC_MESSAGE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Aperiodic_Message_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Aperiodic_Message; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Message(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Aperiodic_Message) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Aperiodic_Message_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Aperiodic_Message) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Aperiodic_Message_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Messages;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Processor_Interface;
use Processor_Interface.Processors_type_io;
use Processor_Interface.Migrations_Type_io;
with Core_Units;
use Core_Units;
use Core_Units.Core_Units_Table_Package;
Package Body Processors is
-- --------= Generic_Processor =--------
procedure Initialize(obj : in out Generic_Processor) is
begin
initialize(Named_Object(obj));
obj.processor_type := Monocore_type;
obj.migration_type := No_Migration_Type;
obj.object_type := Processor_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Processor ) return Generic_Processor_Ptr is
New_Generic_Processor : Generic_Processor_Ptr;
begin
New_Generic_Processor := new Generic_Processor'(obj);
return (New_Generic_Processor);
end Copy;
function Copy ( obj : in Generic_Processor_Ptr ) return Generic_Processor_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Processor) is
begin
put(Named_Object(obj));
put("processor_type: "); put(obj.processor_type); put ( "; " );
put("migration_type: "); put(obj.migration_type); put ( "; " );
end Put;
procedure Put(obj : in Generic_Processor_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Processor_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Generic_Processor) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Generic_Processor_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Generic_Processor ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("PROCESSORS.GENERIC_PROCESSOR");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Processor_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Processor; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.processor_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.processor_type) & to_unbounded_string("");
end if;
if (XML_String(obj.migration_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.migration_type) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Processor) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Processor_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Processor) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Processor_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Mono_Core_Processor =--------
procedure Initialize(obj : in out Mono_Core_Processor) is
begin
initialize(Generic_Processor(obj));
end Initialize;
function Copy ( obj : in Mono_Core_Processor ) return Generic_Processor_Ptr is
New_Mono_Core_Processor : Mono_Core_Processor_Ptr;
begin
New_Mono_Core_Processor := new Mono_Core_Processor'(obj);
return Generic_Processor_Ptr(New_Mono_Core_Processor);
end Copy;
function Copy ( obj : in Mono_Core_Processor_Ptr ) return Generic_Processor_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Mono_Core_Processor) is
begin
put(Generic_Processor(obj));
put("core: "); if obj.core /= null then put(obj.core.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Mono_Core_Processor_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Mono_Core_Processor_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Mono_Core_Processor) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Mono_Core_Processor_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Mono_Core_Processor ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("PROCESSORS.GENERIC_PROCESSOR");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("PROCESSORS.MONO_CORE_PROCESSOR");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Mono_Core_Processor_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Mono_Core_Processor; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Processor(obj), result);
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Mono_Core_Processor) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Mono_Core_Processor_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Mono_Core_Processor) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Mono_Core_Processor_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Multi_Cores_Processor =--------
procedure Initialize(obj : in out Multi_Cores_Processor) is
begin
initialize(Generic_Processor(obj));
obj.l2_cache_system_name := empty_string;
end Initialize;
function Copy ( obj : in Multi_Cores_Processor ) return Generic_Processor_Ptr is
New_Multi_Cores_Processor : Multi_Cores_Processor_Ptr;
begin
New_Multi_Cores_Processor := new Multi_Cores_Processor'(obj);
return Generic_Processor_Ptr(New_Multi_Cores_Processor);
end Copy;
function Copy ( obj : in Multi_Cores_Processor_Ptr ) return Generic_Processor_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Multi_Cores_Processor) is
begin
put(Generic_Processor(obj));
put("cores: "); put(obj.cores); put ( "; " );
put("l2_cache_system_name: "); put(obj.l2_cache_system_name); put ( "; " );
end Put;
procedure Put(obj : in Multi_Cores_Processor_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Multi_Cores_Processor_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Multi_Cores_Processor) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Multi_Cores_Processor_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Multi_Cores_Processor ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("PROCESSORS.GENERIC_PROCESSOR");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("PROCESSORS.MULTI_CORES_PROCESSOR");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Multi_Cores_Processor_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Multi_Cores_Processor; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Processor(obj), result);
if (XML_String(obj.cores) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cores) & to_unbounded_string("");
end if;
if (XML_String(obj.l2_cache_system_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l2_cache_system_name) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Multi_Cores_Processor) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Multi_Cores_Processor_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Multi_Cores_Processor) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Multi_Cores_Processor_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Processors;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with framework;
use framework;
with id_generators;
use id_generators;
Package Body ARINC_653_Schema is
function XML_String(obj : in ModuleActionType) return Unbounded_String is
begin
return to_unbounded_string(ModuleActionType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in ModuleActionType) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in PartitionActionType) return Unbounded_String is
begin
return to_unbounded_string(PartitionActionType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in PartitionActionType) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in ErrorLevelType) return Unbounded_String is
begin
return to_unbounded_string(ErrorLevelType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in ErrorLevelType) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in ErrorCodeType) return Unbounded_String is
begin
return to_unbounded_string(ErrorCodeType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in ErrorCodeType) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in DirectionType) return Unbounded_String is
begin
return to_unbounded_string(DirectionType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in DirectionType) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in CriticalityType) return Unbounded_String is
begin
return to_unbounded_string(CriticalityType'image (obj) );
end XML_String;
function XML_Ref_String (obj : in CriticalityType) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in PortMappingType_Choice_Type) return Unbounded_String is
begin
return to_unbounded_string(PortMappingType_Choice_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in PortMappingType_Choice_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= ARINC_653_Object =--------
procedure Initialize(obj : in out ARINC_653_Object) is
begin
generate_id( framework_id, obj.cheddar_private_id );
end Initialize;
function Copy ( obj : in ARINC_653_Object ) return ARINC_653_Object_Ptr is
New_ARINC_653_Object : ARINC_653_Object_Ptr;
begin
New_ARINC_653_Object := new ARINC_653_Object'(obj);
return (New_ARINC_653_Object);
end Copy;
function Copy ( obj : in ARINC_653_Object_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in ARINC_653_Object) is
begin
put("cheddar_private_id: "); put(obj.cheddar_private_id); put ( "; " );
end Put;
procedure Put(obj : in ARINC_653_Object_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in ARINC_653_Object_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in ARINC_653_Object ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in ARINC_653_Object_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in ARINC_653_Object; result : in out Unbounded_String) is
begin
null;
end Build_Attributes_XML_String;
function XML_String(obj : in ARINC_653_Object) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in ARINC_653_Object_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in ARINC_653_Object) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in ARINC_653_Object_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Error_ID_Type =--------
procedure Initialize(obj : in out Error_ID_Type) is
begin
initialize(ARINC_653_Object(obj));
obj.ErrorIdentifier := empty_string;
obj.Description := empty_string;
obj.PartitionAction := IGNORE;
obj.ModuleAction := IGNORE;
end Initialize;
function Copy ( obj : in Error_ID_Type ) return ARINC_653_Object_Ptr is
New_Error_ID_Type : Error_ID_Type_Ptr;
begin
New_Error_ID_Type := new Error_ID_Type'(obj);
return ARINC_653_Object_Ptr(New_Error_ID_Type);
end Copy;
function Copy ( obj : in Error_ID_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Error_ID_Type) is
begin
put(ARINC_653_Object(obj));
put("ErrorIdentifier: "); put(obj.ErrorIdentifier); put ( "; " );
put("Description: "); put(obj.Description); put ( "; " );
put("PartitionAction: "); put(obj.PartitionAction); put ( "; " );
put("ModuleAction: "); put(obj.ModuleAction); put ( "; " );
end Put;
procedure Put(obj : in Error_ID_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Error_ID_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Error_ID_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Error_ID_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Error_ID_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.ErrorIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ErrorIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.Description) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Description) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionAction) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionAction) & to_unbounded_string("");
end if;
if (XML_String(obj.ModuleAction) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModuleAction) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Error_ID_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Error_ID_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Error_ID_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Error_ID_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Error_ID_Action_Type =--------
procedure Initialize(obj : in out Error_ID_Action_Type) is
begin
initialize(Error_ID_Type(obj));
end Initialize;
function Copy ( obj : in Error_ID_Action_Type ) return ARINC_653_Object_Ptr is
New_Error_ID_Action_Type : Error_ID_Action_Type_Ptr;
begin
New_Error_ID_Action_Type := new Error_ID_Action_Type'(obj);
return ARINC_653_Object_Ptr(New_Error_ID_Action_Type);
end Copy;
function Copy ( obj : in Error_ID_Action_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Error_ID_Action_Type) is
begin
put(Error_ID_Type(obj));
end Put;
procedure Put(obj : in Error_ID_Action_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Error_ID_Action_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Error_ID_Action_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_TYPE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_ACTION_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Error_ID_Action_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Error_ID_Action_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Error_ID_Type(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Error_ID_Action_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Error_ID_Action_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Error_ID_Action_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Error_ID_Action_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Error_ID_Level_Type =--------
procedure Initialize(obj : in out Error_ID_Level_Type) is
begin
initialize(Error_ID_Type(obj));
obj.ErrorLevel := MODULE;
obj.ErrorCode := DEADLINE_MISSED;
end Initialize;
function Copy ( obj : in Error_ID_Level_Type ) return ARINC_653_Object_Ptr is
New_Error_ID_Level_Type : Error_ID_Level_Type_Ptr;
begin
New_Error_ID_Level_Type := new Error_ID_Level_Type'(obj);
return ARINC_653_Object_Ptr(New_Error_ID_Level_Type);
end Copy;
function Copy ( obj : in Error_ID_Level_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Error_ID_Level_Type) is
begin
put(Error_ID_Type(obj));
put("ErrorLevel: "); put(obj.ErrorLevel); put ( "; " );
put("ErrorCode: "); put(obj.ErrorCode); put ( "; " );
end Put;
procedure Put(obj : in Error_ID_Level_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Error_ID_Level_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Error_ID_Level_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_TYPE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ERROR_ID_LEVEL_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Error_ID_Level_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Error_ID_Level_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Error_ID_Type(obj), result);
if (XML_String(obj.ErrorLevel) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ErrorLevel) & to_unbounded_string("");
end if;
if (XML_String(obj.ErrorCode) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ErrorCode) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Error_ID_Level_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Error_ID_Level_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Error_ID_Level_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Error_ID_Level_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= System_State_Entry_Type =--------
procedure Initialize(obj : in out System_State_Entry_Type) is
begin
initialize(ARINC_653_Object(obj));
obj.SystemState := empty_string;
obj.Description := empty_string;
end Initialize;
function Copy ( obj : in System_State_Entry_Type ) return ARINC_653_Object_Ptr is
New_System_State_Entry_Type : System_State_Entry_Type_Ptr;
begin
New_System_State_Entry_Type := new System_State_Entry_Type'(obj);
return ARINC_653_Object_Ptr(New_System_State_Entry_Type);
end Copy;
function Copy ( obj : in System_State_Entry_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in System_State_Entry_Type) is
begin
put(ARINC_653_Object(obj));
put("Error_ID_Action: "); put(obj.Error_ID_Action); put ( "; " );
put("SystemState: "); put(obj.SystemState); put ( "; " );
put("Description: "); put(obj.Description); put ( "; " );
end Put;
procedure Put(obj : in System_State_Entry_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in System_State_Entry_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in System_State_Entry_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.SYSTEM_STATE_ENTRY_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in System_State_Entry_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in System_State_Entry_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.Error_ID_Action) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Error_ID_Action) & to_unbounded_string("");
end if;
if (XML_String(obj.SystemState) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.SystemState) & to_unbounded_string("");
end if;
if (XML_String(obj.Description) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Description) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in System_State_Entry_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in System_State_Entry_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in System_State_Entry_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in System_State_Entry_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= SysHM_Ext_Type =--------
procedure Initialize(obj : in out SysHM_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in SysHM_Ext_Type ) return ARINC_653_Object_Ptr is
New_SysHM_Ext_Type : SysHM_Ext_Type_Ptr;
begin
New_SysHM_Ext_Type := new SysHM_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_SysHM_Ext_Type);
end Copy;
function Copy ( obj : in SysHM_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in SysHM_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in SysHM_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in SysHM_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in SysHM_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.SYSHM_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in SysHM_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in SysHM_Ext_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in SysHM_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in SysHM_Ext_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in SysHM_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in SysHM_Ext_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= System_HM_TableType =--------
procedure Initialize(obj : in out System_HM_TableType) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in System_HM_TableType ) return ARINC_653_Object_Ptr is
New_System_HM_TableType : System_HM_TableType_Ptr;
begin
New_System_HM_TableType := new System_HM_TableType'(obj);
return ARINC_653_Object_Ptr(New_System_HM_TableType);
end Copy;
function Copy ( obj : in System_HM_TableType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in System_HM_TableType) is
begin
put(ARINC_653_Object(obj));
put("System_State_Entry: "); put(obj.System_State_Entry); put ( "; " );
put("SysHM_Ext: "); put(obj.SysHM_Ext); put ( "; " );
end Put;
procedure Put(obj : in System_HM_TableType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in System_HM_TableType_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in System_HM_TableType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.SYSTEM_HM_TABLETYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in System_HM_TableType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in System_HM_TableType; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.System_State_Entry) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.System_State_Entry) & to_unbounded_string("");
end if;
if (XML_String(obj.SysHM_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.SysHM_Ext) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in System_HM_TableType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in System_HM_TableType_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in System_HM_TableType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in System_HM_TableType_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Mod_HM_Ext_Type =--------
procedure Initialize(obj : in out Mod_HM_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in Mod_HM_Ext_Type ) return ARINC_653_Object_Ptr is
New_Mod_HM_Ext_Type : Mod_HM_Ext_Type_Ptr;
begin
New_Mod_HM_Ext_Type := new Mod_HM_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_Mod_HM_Ext_Type);
end Copy;
function Copy ( obj : in Mod_HM_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Mod_HM_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in Mod_HM_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Mod_HM_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Mod_HM_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MOD_HM_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Mod_HM_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Mod_HM_Ext_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Mod_HM_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Mod_HM_Ext_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Mod_HM_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Mod_HM_Ext_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Module_HM_Type =--------
procedure Initialize(obj : in out Module_HM_Type) is
begin
initialize(ARINC_653_Object(obj));
obj.ModuleCallback := empty_string;
end Initialize;
function Copy ( obj : in Module_HM_Type ) return ARINC_653_Object_Ptr is
New_Module_HM_Type : Module_HM_Type_Ptr;
begin
New_Module_HM_Type := new Module_HM_Type'(obj);
return ARINC_653_Object_Ptr(New_Module_HM_Type);
end Copy;
function Copy ( obj : in Module_HM_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Module_HM_Type) is
begin
put(ARINC_653_Object(obj));
put("System_State_Entry: "); put(obj.System_State_Entry); put ( "; " );
put("Mod_HM_Ext: "); put(obj.Mod_HM_Ext); put ( "; " );
put("ModuleCallback: "); put(obj.ModuleCallback); put ( "; " );
end Put;
procedure Put(obj : in Module_HM_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Module_HM_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Module_HM_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MODULE_HM_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Module_HM_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Module_HM_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.System_State_Entry) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.System_State_Entry) & to_unbounded_string("");
end if;
if (XML_String(obj.Mod_HM_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Mod_HM_Ext) & to_unbounded_string("");
end if;
if (XML_String(obj.ModuleCallback) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModuleCallback) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Module_HM_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Module_HM_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Module_HM_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Module_HM_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PortExt_Type =--------
procedure Initialize(obj : in out PortExt_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in PortExt_Type ) return ARINC_653_Object_Ptr is
New_PortExt_Type : PortExt_Type_Ptr;
begin
New_PortExt_Type := new PortExt_Type'(obj);
return ARINC_653_Object_Ptr(New_PortExt_Type);
end Copy;
function Copy ( obj : in PortExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PortExt_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in PortExt_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PortExt_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in PortExt_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTEXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PortExt_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PortExt_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in PortExt_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in PortExt_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in PortExt_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PortExt_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PortType =--------
procedure Initialize(obj : in out PortType) is
begin
initialize(ARINC_653_Object(obj));
obj.Name := empty_string;
obj.MaxMessageSize := empty_string;
obj.Direction := SOURCE;
end Initialize;
function Copy ( obj : in PortType ) return ARINC_653_Object_Ptr is
New_PortType : PortType_Ptr;
begin
New_PortType := new PortType'(obj);
return ARINC_653_Object_Ptr(New_PortType);
end Copy;
function Copy ( obj : in PortType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PortType) is
begin
put(ARINC_653_Object(obj));
put("PortExt: "); put(obj.PortExt); put ( "; " );
put("Name: "); put(obj.Name); put ( "; " );
put("MaxMessageSize: "); put(obj.MaxMessageSize); put ( "; " );
put("Direction: "); put(obj.Direction); put ( "; " );
end Put;
procedure Put(obj : in PortType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PortType_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function type_of ( obj : in PortType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PortType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PortType; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.PortExt) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PortExt) & to_unbounded_string("");
end if;
if (XML_String(obj.Name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Name) & to_unbounded_string("");
end if;
if (XML_String(obj.MaxMessageSize) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.MaxMessageSize) & to_unbounded_string("");
end if;
if (XML_String(obj.Direction) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Direction) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in PortType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in PortType_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in PortType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PortType_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= SamplingPortType =--------
procedure Initialize(obj : in out SamplingPortType) is
begin
initialize(PortType(obj));
obj.RefreshRateSeconds := 0.0;
end Initialize;
function Copy ( obj : in SamplingPortType ) return ARINC_653_Object_Ptr is
New_SamplingPortType : SamplingPortType_Ptr;
begin
New_SamplingPortType := new SamplingPortType'(obj);
return ARINC_653_Object_Ptr(New_SamplingPortType);
end Copy;
function Copy ( obj : in SamplingPortType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in SamplingPortType) is
begin
put(PortType(obj));
put("RefreshRateSeconds: "); standards_io.double_io.put(obj.RefreshRateSeconds); put ( "; " );
end Put;
procedure Put(obj : in SamplingPortType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in SamplingPortType_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function type_of ( obj : in SamplingPortType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTTYPE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.SAMPLINGPORTTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in SamplingPortType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in SamplingPortType; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(PortType(obj), result);
if (XML_String(obj.RefreshRateSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.RefreshRateSeconds) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in SamplingPortType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in SamplingPortType_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in SamplingPortType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in SamplingPortType_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= ProcExt_Type =--------
procedure Initialize(obj : in out ProcExt_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in ProcExt_Type ) return ARINC_653_Object_Ptr is
New_ProcExt_Type : ProcExt_Type_Ptr;
begin
New_ProcExt_Type := new ProcExt_Type'(obj);
return ARINC_653_Object_Ptr(New_ProcExt_Type);
end Copy;
function Copy ( obj : in ProcExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in ProcExt_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in ProcExt_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in ProcExt_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in ProcExt_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PROCEXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in ProcExt_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in ProcExt_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in ProcExt_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in ProcExt_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in ProcExt_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in ProcExt_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= ProcessType =--------
procedure Initialize(obj : in out ProcessType) is
begin
initialize(ARINC_653_Object(obj));
obj.Name := empty_string;
obj.StackSize := empty_string;
end Initialize;
function Copy ( obj : in ProcessType ) return ARINC_653_Object_Ptr is
New_ProcessType : ProcessType_Ptr;
begin
New_ProcessType := new ProcessType'(obj);
return ARINC_653_Object_Ptr(New_ProcessType);
end Copy;
function Copy ( obj : in ProcessType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in ProcessType) is
begin
put(ARINC_653_Object(obj));
put("ProcExt: "); put(obj.ProcExt); put ( "; " );
put("Name: "); put(obj.Name); put ( "; " );
put("StackSize: "); put(obj.StackSize); put ( "; " );
end Put;
procedure Put(obj : in ProcessType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in ProcessType_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function type_of ( obj : in ProcessType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PROCESSTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in ProcessType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in ProcessType; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.ProcExt) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ProcExt) & to_unbounded_string("");
end if;
if (XML_String(obj.Name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Name) & to_unbounded_string("");
end if;
if (XML_String(obj.StackSize) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.StackSize) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in ProcessType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in ProcessType_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in ProcessType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in ProcessType_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= QueuingPortType =--------
procedure Initialize(obj : in out QueuingPortType) is
begin
initialize(PortType(obj));
obj.MaxNbMessages := 0;
end Initialize;
function Copy ( obj : in QueuingPortType ) return ARINC_653_Object_Ptr is
New_QueuingPortType : QueuingPortType_Ptr;
begin
New_QueuingPortType := new QueuingPortType'(obj);
return ARINC_653_Object_Ptr(New_QueuingPortType);
end Copy;
function Copy ( obj : in QueuingPortType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in QueuingPortType) is
begin
put(PortType(obj));
put("MaxNbMessages: "); standards_io.natural_io.put(obj.MaxNbMessages); put ( "; " );
end Put;
procedure Put(obj : in QueuingPortType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in QueuingPortType_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function type_of ( obj : in QueuingPortType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTTYPE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.QUEUINGPORTTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in QueuingPortType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in QueuingPortType; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(PortType(obj), result);
if (XML_String(obj.MaxNbMessages) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.MaxNbMessages) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in QueuingPortType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in QueuingPortType_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in QueuingPortType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in QueuingPortType_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PartitionExt_Type =--------
procedure Initialize(obj : in out PartitionExt_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in PartitionExt_Type ) return ARINC_653_Object_Ptr is
New_PartitionExt_Type : PartitionExt_Type_Ptr;
begin
New_PartitionExt_Type := new PartitionExt_Type'(obj);
return ARINC_653_Object_Ptr(New_PartitionExt_Type);
end Copy;
function Copy ( obj : in PartitionExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PartitionExt_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in PartitionExt_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PartitionExt_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in PartitionExt_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITIONEXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PartitionExt_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PartitionExt_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in PartitionExt_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in PartitionExt_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in PartitionExt_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PartitionExt_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PartitionType =--------
procedure Initialize(obj : in out PartitionType) is
begin
initialize(ARINC_653_Object(obj));
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.Criticality := LEVEL_A;
obj.SystemPartition := false;
obj.EntryPoint := empty_string;
end Initialize;
function Copy ( obj : in PartitionType ) return ARINC_653_Object_Ptr is
New_PartitionType : PartitionType_Ptr;
begin
New_PartitionType := new PartitionType'(obj);
return ARINC_653_Object_Ptr(New_PartitionType);
end Copy;
function Copy ( obj : in PartitionType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PartitionType) is
begin
put(ARINC_653_Object(obj));
put("Sampling_Port: "); put(obj.Sampling_Port); put ( "; " );
put("Queuing_Port: "); put(obj.Queuing_Port); put ( "; " );
put("Process: "); put(obj.Process); put ( "; " );
put("PartitionExt: "); put(obj.PartitionExt); put ( "; " );
put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
put("PartitionName: "); put(obj.PartitionName); put ( "; " );
put("Criticality: "); put(obj.Criticality); put ( "; " );
put("SystemPartition: "); standards_io.boolean_io.put(obj.SystemPartition); put ( "; " );
put("EntryPoint: "); put(obj.EntryPoint); put ( "; " );
end Put;
procedure Put(obj : in PartitionType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PartitionType_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in PartitionType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITIONTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PartitionType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PartitionType; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.Sampling_Port) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Sampling_Port) & to_unbounded_string("");
end if;
if (XML_String(obj.Queuing_Port) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Queuing_Port) & to_unbounded_string("");
end if;
if (XML_String(obj.Process) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Process) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionExt) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionExt) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionName) & to_unbounded_string("");
end if;
if (XML_String(obj.Criticality) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Criticality) & to_unbounded_string("");
end if;
if (XML_String(obj.SystemPartition) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.SystemPartition) & to_unbounded_string("");
end if;
if (XML_String(obj.EntryPoint) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.EntryPoint) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in PartitionType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in PartitionType_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in PartitionType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PartitionType_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Memory_Requirements =--------
procedure Initialize(obj : in out Memory_Requirements) is
begin
initialize(ARINC_653_Object(obj));
obj.regionName := empty_string;
obj.memory_type := empty_string;
obj.sizeBytes := empty_string;
obj.physicalAddress := empty_string;
obj.memoryAccess := empty_string;
end Initialize;
function Copy ( obj : in Memory_Requirements ) return ARINC_653_Object_Ptr is
New_Memory_Requirements : Memory_Requirements_Ptr;
begin
New_Memory_Requirements := new Memory_Requirements'(obj);
return ARINC_653_Object_Ptr(New_Memory_Requirements);
end Copy;
function Copy ( obj : in Memory_Requirements_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Memory_Requirements) is
begin
put(ARINC_653_Object(obj));
put("regionName: "); put(obj.regionName); put ( "; " );
put("memory_type: "); put(obj.memory_type); put ( "; " );
put("sizeBytes: "); put(obj.sizeBytes); put ( "; " );
put("physicalAddress: "); put(obj.physicalAddress); put ( "; " );
put("memoryAccess: "); put(obj.memoryAccess); put ( "; " );
end Put;
procedure Put(obj : in Memory_Requirements_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Memory_Requirements_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Memory_Requirements ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MEMORY_REQUIREMENTS");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Memory_Requirements_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Memory_Requirements; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.regionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.regionName) & to_unbounded_string("");
end if;
if (XML_String(obj.memory_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.memory_type) & to_unbounded_string("");
end if;
if (XML_String(obj.sizeBytes) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.sizeBytes) & to_unbounded_string("");
end if;
if (XML_String(obj.physicalAddress) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.physicalAddress) & to_unbounded_string("");
end if;
if (XML_String(obj.memoryAccess) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.memoryAccess) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Memory_Requirements) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Memory_Requirements_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Memory_Requirements) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Memory_Requirements_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Memory_Ext_Type =--------
procedure Initialize(obj : in out Memory_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in Memory_Ext_Type ) return ARINC_653_Object_Ptr is
New_Memory_Ext_Type : Memory_Ext_Type_Ptr;
begin
New_Memory_Ext_Type := new Memory_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_Memory_Ext_Type);
end Copy;
function Copy ( obj : in Memory_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Memory_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in Memory_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Memory_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Memory_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MEMORY_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Memory_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Memory_Ext_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Memory_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Memory_Ext_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Memory_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Memory_Ext_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Partition_Memory_Element =--------
procedure Initialize(obj : in out Partition_Memory_Element) is
begin
initialize(ARINC_653_Object(obj));
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
end Initialize;
function Copy ( obj : in Partition_Memory_Element ) return ARINC_653_Object_Ptr is
New_Partition_Memory_Element : Partition_Memory_Element_Ptr;
begin
New_Partition_Memory_Element := new Partition_Memory_Element'(obj);
return ARINC_653_Object_Ptr(New_Partition_Memory_Element);
end Copy;
function Copy ( obj : in Partition_Memory_Element_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Partition_Memory_Element) is
begin
put(ARINC_653_Object(obj));
put("Memory_Requirements: "); if obj.Memory_Requirements /= null then put(obj.Memory_Requirements.all); else put("null"); end if;put ( "; " );
put("Memory_Ext: "); put(obj.Memory_Ext); put ( "; " );
put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
put("PartitionName: "); put(obj.PartitionName); put ( "; " );
end Put;
procedure Put(obj : in Partition_Memory_Element_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Partition_Memory_Element_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Partition_Memory_Element ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_MEMORY_ELEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Partition_Memory_Element_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Partition_Memory_Element; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.Memory_Requirements) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Memory_Requirements) & to_unbounded_string("");
end if;
if (XML_String(obj.Memory_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Memory_Ext) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionName) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Partition_Memory_Element) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Partition_Memory_Element_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Partition_Memory_Element) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Partition_Memory_Element_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Partition_Sched_Ext_Type =--------
procedure Initialize(obj : in out Partition_Sched_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in Partition_Sched_Ext_Type ) return ARINC_653_Object_Ptr is
New_Partition_Sched_Ext_Type : Partition_Sched_Ext_Type_Ptr;
begin
New_Partition_Sched_Ext_Type := new Partition_Sched_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_Partition_Sched_Ext_Type);
end Copy;
function Copy ( obj : in Partition_Sched_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Partition_Sched_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in Partition_Sched_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Partition_Sched_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Partition_Sched_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_SCHED_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Partition_Sched_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Partition_Sched_Ext_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Partition_Sched_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Partition_Sched_Ext_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Partition_Sched_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Partition_Sched_Ext_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Window_Schedule_Element =--------
procedure Initialize(obj : in out Window_Schedule_Element) is
begin
initialize(ARINC_653_Object(obj));
obj.WindowIdentifier := empty_string;
obj.WindowStartSeconds := 0.0;
obj.WindowDurationSeconds := 0.0;
obj.PartitionPeriodStart := false;
end Initialize;
function Copy ( obj : in Window_Schedule_Element ) return ARINC_653_Object_Ptr is
New_Window_Schedule_Element : Window_Schedule_Element_Ptr;
begin
New_Window_Schedule_Element := new Window_Schedule_Element'(obj);
return ARINC_653_Object_Ptr(New_Window_Schedule_Element);
end Copy;
function Copy ( obj : in Window_Schedule_Element_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Window_Schedule_Element) is
begin
put(ARINC_653_Object(obj));
put("WindowIdentifier: "); put(obj.WindowIdentifier); put ( "; " );
put("WindowStartSeconds: "); standards_io.double_io.put(obj.WindowStartSeconds); put ( "; " );
put("WindowDurationSeconds: "); standards_io.double_io.put(obj.WindowDurationSeconds); put ( "; " );
put("PartitionPeriodStart: "); standards_io.boolean_io.put(obj.PartitionPeriodStart); put ( "; " );
end Put;
procedure Put(obj : in Window_Schedule_Element_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Window_Schedule_Element_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Window_Schedule_Element ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.WINDOW_SCHEDULE_ELEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Window_Schedule_Element_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Window_Schedule_Element; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.WindowIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.WindowIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.WindowStartSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.WindowStartSeconds) & to_unbounded_string("");
end if;
if (XML_String(obj.WindowDurationSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.WindowDurationSeconds) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionPeriodStart) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionPeriodStart) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Window_Schedule_Element) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Window_Schedule_Element_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Window_Schedule_Element) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Window_Schedule_Element_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Window_Sched_Ext_Type =--------
procedure Initialize(obj : in out Window_Sched_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in Window_Sched_Ext_Type ) return ARINC_653_Object_Ptr is
New_Window_Sched_Ext_Type : Window_Sched_Ext_Type_Ptr;
begin
New_Window_Sched_Ext_Type := new Window_Sched_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_Window_Sched_Ext_Type);
end Copy;
function Copy ( obj : in Window_Sched_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Window_Sched_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in Window_Sched_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Window_Sched_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Window_Sched_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.WINDOW_SCHED_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Window_Sched_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Window_Sched_Ext_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Window_Sched_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Window_Sched_Ext_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Window_Sched_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Window_Sched_Ext_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Partition_Schedule_Element =--------
procedure Initialize(obj : in out Partition_Schedule_Element) is
begin
initialize(ARINC_653_Object(obj));
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.PeriodSeconds := 0.0;
obj.PeriodDurationSeconds := 0.0;
end Initialize;
function Copy ( obj : in Partition_Schedule_Element ) return ARINC_653_Object_Ptr is
New_Partition_Schedule_Element : Partition_Schedule_Element_Ptr;
begin
New_Partition_Schedule_Element := new Partition_Schedule_Element'(obj);
return ARINC_653_Object_Ptr(New_Partition_Schedule_Element);
end Copy;
function Copy ( obj : in Partition_Schedule_Element_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Partition_Schedule_Element) is
begin
put(ARINC_653_Object(obj));
put("Window_Schedule: "); put(obj.Window_Schedule); put ( "; " );
put("Window_Sched_Ext: "); put(obj.Window_Sched_Ext); put ( "; " );
put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
put("PartitionName: "); put(obj.PartitionName); put ( "; " );
put("PeriodSeconds: "); standards_io.double_io.put(obj.PeriodSeconds); put ( "; " );
put("PeriodDurationSeconds: "); standards_io.double_io.put(obj.PeriodDurationSeconds); put ( "; " );
end Put;
procedure Put(obj : in Partition_Schedule_Element_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Partition_Schedule_Element_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Partition_Schedule_Element ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_SCHEDULE_ELEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Partition_Schedule_Element_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Partition_Schedule_Element; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.Window_Schedule) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Window_Schedule) & to_unbounded_string("");
end if;
if (XML_String(obj.Window_Sched_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Window_Sched_Ext) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionName) & to_unbounded_string("");
end if;
if (XML_String(obj.PeriodSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PeriodSeconds) & to_unbounded_string("");
end if;
if (XML_String(obj.PeriodDurationSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PeriodDurationSeconds) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Partition_Schedule_Element) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Partition_Schedule_Element_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Partition_Schedule_Element) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Partition_Schedule_Element_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Module_Schedule_Type =--------
procedure Initialize(obj : in out Module_Schedule_Type) is
begin
initialize(ARINC_653_Object(obj));
obj.MajorFrameSeconds := 0.0;
end Initialize;
function Copy ( obj : in Module_Schedule_Type ) return ARINC_653_Object_Ptr is
New_Module_Schedule_Type : Module_Schedule_Type_Ptr;
begin
New_Module_Schedule_Type := new Module_Schedule_Type'(obj);
return ARINC_653_Object_Ptr(New_Module_Schedule_Type);
end Copy;
function Copy ( obj : in Module_Schedule_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Module_Schedule_Type) is
begin
put(ARINC_653_Object(obj));
put("Partition_Schedule: "); put(obj.Partition_Schedule); put ( "; " );
put("Partition_Sched_Ext: "); put(obj.Partition_Sched_Ext); put ( "; " );
put("MajorFrameSeconds: "); standards_io.double_io.put(obj.MajorFrameSeconds); put ( "; " );
end Put;
procedure Put(obj : in Module_Schedule_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Module_Schedule_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Module_Schedule_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MODULE_SCHEDULE_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Module_Schedule_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Module_Schedule_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.Partition_Schedule) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Partition_Schedule) & to_unbounded_string("");
end if;
if (XML_String(obj.Partition_Sched_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Partition_Sched_Ext) & to_unbounded_string("");
end if;
if (XML_String(obj.MajorFrameSeconds) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.MajorFrameSeconds) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Module_Schedule_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Module_Schedule_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Module_Schedule_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Module_Schedule_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Part_HM_Ext_Type =--------
procedure Initialize(obj : in out Part_HM_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in Part_HM_Ext_Type ) return ARINC_653_Object_Ptr is
New_Part_HM_Ext_Type : Part_HM_Ext_Type_Ptr;
begin
New_Part_HM_Ext_Type := new Part_HM_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_Part_HM_Ext_Type);
end Copy;
function Copy ( obj : in Part_HM_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Part_HM_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in Part_HM_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Part_HM_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Part_HM_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PART_HM_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Part_HM_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Part_HM_Ext_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Part_HM_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Part_HM_Ext_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Part_HM_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Part_HM_Ext_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Partition_HM_Type =--------
procedure Initialize(obj : in out Partition_HM_Type) is
begin
initialize(ARINC_653_Object(obj));
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.PartitionCallback := empty_string;
end Initialize;
function Copy ( obj : in Partition_HM_Type ) return ARINC_653_Object_Ptr is
New_Partition_HM_Type : Partition_HM_Type_Ptr;
begin
New_Partition_HM_Type := new Partition_HM_Type'(obj);
return ARINC_653_Object_Ptr(New_Partition_HM_Type);
end Copy;
function Copy ( obj : in Partition_HM_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Partition_HM_Type) is
begin
put(ARINC_653_Object(obj));
put("System_State_Entry: "); put(obj.System_State_Entry); put ( "; " );
put("Part_HM_Ext: "); put(obj.Part_HM_Ext); put ( "; " );
put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
put("PartitionName: "); put(obj.PartitionName); put ( "; " );
put("PartitionCallback: "); put(obj.PartitionCallback); put ( "; " );
end Put;
procedure Put(obj : in Partition_HM_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Partition_HM_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Partition_HM_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PARTITION_HM_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Partition_HM_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Partition_HM_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.System_State_Entry) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.System_State_Entry) & to_unbounded_string("");
end if;
if (XML_String(obj.Part_HM_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Part_HM_Ext) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionName) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionCallback) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionCallback) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Partition_HM_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Partition_HM_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Partition_HM_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Partition_HM_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Pseudo_Partition =--------
procedure Initialize(obj : in out Pseudo_Partition) is
begin
initialize(ARINC_653_Object(obj));
obj.Name := empty_string;
obj.PhysicalAddress := empty_string;
obj.partition_procedure := empty_string;
end Initialize;
function Copy ( obj : in Pseudo_Partition ) return ARINC_653_Object_Ptr is
New_Pseudo_Partition : Pseudo_Partition_Ptr;
begin
New_Pseudo_Partition := new Pseudo_Partition'(obj);
return ARINC_653_Object_Ptr(New_Pseudo_Partition);
end Copy;
function Copy ( obj : in Pseudo_Partition_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Pseudo_Partition) is
begin
put(ARINC_653_Object(obj));
put("Name: "); put(obj.Name); put ( "; " );
put("PhysicalAddress: "); put(obj.PhysicalAddress); put ( "; " );
put("partition_procedure: "); put(obj.partition_procedure); put ( "; " );
end Put;
procedure Put(obj : in Pseudo_Partition_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Pseudo_Partition_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function type_of ( obj : in Pseudo_Partition ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PSEUDO_PARTITION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Pseudo_Partition_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Pseudo_Partition; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.Name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Name) & to_unbounded_string("");
end if;
if (XML_String(obj.PhysicalAddress) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PhysicalAddress) & to_unbounded_string("");
end if;
if (XML_String(obj.partition_procedure) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.partition_procedure) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Pseudo_Partition) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Pseudo_Partition_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Pseudo_Partition) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Pseudo_Partition_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Standard_Partition =--------
procedure Initialize(obj : in out Standard_Partition) is
begin
initialize(ARINC_653_Object(obj));
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.PortName := empty_string;
obj.PhysicalAddress := empty_string;
end Initialize;
function Copy ( obj : in Standard_Partition ) return ARINC_653_Object_Ptr is
New_Standard_Partition : Standard_Partition_Ptr;
begin
New_Standard_Partition := new Standard_Partition'(obj);
return ARINC_653_Object_Ptr(New_Standard_Partition);
end Copy;
function Copy ( obj : in Standard_Partition_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Standard_Partition) is
begin
put(ARINC_653_Object(obj));
put("PartitionIdentifier: "); put(obj.PartitionIdentifier); put ( "; " );
put("PartitionName: "); put(obj.PartitionName); put ( "; " );
put("PortName: "); put(obj.PortName); put ( "; " );
put("PhysicalAddress: "); put(obj.PhysicalAddress); put ( "; " );
end Put;
procedure Put(obj : in Standard_Partition_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Standard_Partition_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Standard_Partition ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.STANDARD_PARTITION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Standard_Partition_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Standard_Partition; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.PartitionIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.PartitionName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PartitionName) & to_unbounded_string("");
end if;
if (XML_String(obj.PortName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PortName) & to_unbounded_string("");
end if;
if (XML_String(obj.PhysicalAddress) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PhysicalAddress) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Standard_Partition) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Standard_Partition_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Standard_Partition) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Standard_Partition_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
procedure Initialize (obj : out PortMappingType_Choice_Ptr) is
begin
obj := NULL;
end Initialize;
procedure Put(obj : in PortMappingType_Choice_Ptr) is
begin
if (obj /= NULL) then
put("type_of_PortMappingType_Choice: "); put(obj.type_of_PortMappingType_Choice); put ( "; " );
put ( "value: " );
case obj.type_of_PortMappingType_Choice is
when pseudo_partition_Choice =>
put("pseudo_partition: "); if obj.pseudo_partition /= null then put(obj.pseudo_partition.all); else put("null"); end if;put ( "; " );
when standard_partition_Choice =>
put("standard_partition: "); if obj.standard_partition /= null then put(obj.standard_partition.all); else put("null"); end if;put ( "; " );
end case;
end if;
New_Line;
end Put;
function Copy ( obj : in PortMappingType_Choice ) return PortMappingType_Choice_Ptr is
New_PortMappingType_Choice : PortMappingType_Choice_Ptr;
begin
New_PortMappingType_Choice := new PortMappingType_Choice'(obj);
return (New_PortMappingType_Choice);
end Copy;
function Copy ( obj : in PortMappingType_Choice_Ptr ) return PortMappingType_Choice_Ptr is
begin
return copy(obj.all);
end Copy;
function XML_String(obj : in PortMappingType_Choice) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
if (XML_String(obj.type_of_PortMappingType_Choice) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.type_of_PortMappingType_Choice) & to_unbounded_string("");
end if;
case obj.type_of_PortMappingType_Choice is
when pseudo_partition_Choice =>
if (XML_String(obj.pseudo_partition) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.pseudo_partition) & to_unbounded_string("");
end if;
when standard_partition_Choice =>
if (XML_String(obj.standard_partition) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.standard_partition) & to_unbounded_string("");
end if;
end case;
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in PortMappingType_Choice_Ptr) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in PortMappingType_Choice) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_Ref_String(obj : in PortMappingType_Choice_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PortMap_Ext_Type =--------
procedure Initialize(obj : in out PortMap_Ext_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in PortMap_Ext_Type ) return ARINC_653_Object_Ptr is
New_PortMap_Ext_Type : PortMap_Ext_Type_Ptr;
begin
New_PortMap_Ext_Type := new PortMap_Ext_Type'(obj);
return ARINC_653_Object_Ptr(New_PortMap_Ext_Type);
end Copy;
function Copy ( obj : in PortMap_Ext_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PortMap_Ext_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in PortMap_Ext_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PortMap_Ext_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in PortMap_Ext_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTMAP_EXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PortMap_Ext_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PortMap_Ext_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in PortMap_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in PortMap_Ext_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in PortMap_Ext_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PortMap_Ext_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= PortMappingType =--------
procedure Initialize(obj : in out PortMappingType) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in PortMappingType ) return ARINC_653_Object_Ptr is
New_PortMappingType : PortMappingType_Ptr;
begin
New_PortMappingType := new PortMappingType'(obj);
return ARINC_653_Object_Ptr(New_PortMappingType);
end Copy;
function Copy ( obj : in PortMappingType_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in PortMappingType) is
begin
put(ARINC_653_Object(obj));
put("choice: "); put(obj.choice); put ( "; " );
put("PortMap_Ext: "); put(obj.PortMap_Ext); put ( "; " );
end Put;
procedure Put(obj : in PortMappingType_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in PortMappingType_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in PortMappingType ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.PORTMAPPINGTYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in PortMappingType_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in PortMappingType; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.choice) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.choice) & to_unbounded_string("");
end if;
if (XML_String(obj.PortMap_Ext) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.PortMap_Ext) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in PortMappingType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in PortMappingType_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in PortMappingType) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in PortMappingType_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Channel =--------
procedure Initialize(obj : in out Channel) is
begin
initialize(ARINC_653_Object(obj));
obj.ChannelIdentifier := empty_string;
obj.ChannelName := empty_string;
end Initialize;
function Copy ( obj : in Channel ) return ARINC_653_Object_Ptr is
New_Channel : Channel_Ptr;
begin
New_Channel := new Channel'(obj);
return ARINC_653_Object_Ptr(New_Channel);
end Copy;
function Copy ( obj : in Channel_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Channel) is
begin
put(ARINC_653_Object(obj));
put("Source: "); if obj.Source /= null then put(obj.Source.all); else put("null"); end if;put ( "; " );
put("Destination: "); put(obj.Destination); put ( "; " );
put("ChannelIdentifier: "); put(obj.ChannelIdentifier); put ( "; " );
put("ChannelName: "); put(obj.ChannelName); put ( "; " );
end Put;
procedure Put(obj : in Channel_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Channel_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Channel ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.CHANNEL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Channel_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Channel; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.Source) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Source) & to_unbounded_string("");
end if;
if (XML_String(obj.Destination) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Destination) & to_unbounded_string("");
end if;
if (XML_String(obj.ChannelIdentifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ChannelIdentifier) & to_unbounded_string("");
end if;
if (XML_String(obj.ChannelName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ChannelName) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Channel) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Channel_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Channel) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Channel_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= ModExt_Type =--------
procedure Initialize(obj : in out ModExt_Type) is
begin
initialize(ARINC_653_Object(obj));
end Initialize;
function Copy ( obj : in ModExt_Type ) return ARINC_653_Object_Ptr is
New_ModExt_Type : ModExt_Type_Ptr;
begin
New_ModExt_Type := new ModExt_Type'(obj);
return ARINC_653_Object_Ptr(New_ModExt_Type);
end Copy;
function Copy ( obj : in ModExt_Type_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in ModExt_Type) is
begin
put(ARINC_653_Object(obj));
end Put;
procedure Put(obj : in ModExt_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in ModExt_Type_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in ModExt_Type ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.MODEXT_TYPE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in ModExt_Type_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in ModExt_Type; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in ModExt_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in ModExt_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in ModExt_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in ModExt_Type_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= ARINC_653_Module =--------
procedure Initialize(obj : in out ARINC_653_Module) is
begin
initialize(ARINC_653_Object(obj));
obj.ModuleName := empty_string;
obj.ModuleVersion := empty_string;
obj.ModuleId := empty_string;
end Initialize;
function Copy ( obj : in ARINC_653_Module ) return ARINC_653_Object_Ptr is
New_ARINC_653_Module : ARINC_653_Module_Ptr;
begin
New_ARINC_653_Module := new ARINC_653_Module'(obj);
return ARINC_653_Object_Ptr(New_ARINC_653_Module);
end Copy;
function Copy ( obj : in ARINC_653_Module_Ptr ) return ARINC_653_Object_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in ARINC_653_Module) is
begin
put(ARINC_653_Object(obj));
put("System_HM_List: "); if obj.System_HM_List /= null then put(obj.System_HM_List.all); else put("null"); end if;put ( "; " );
put("Module_HM_List: "); if obj.Module_HM_List /= null then put(obj.Module_HM_List.all); else put("null"); end if;put ( "; " );
put("Partition: "); put(obj.Partition); put ( "; " );
put("Partition_Memory: "); put(obj.Partition_Memory); put ( "; " );
put("Module_Schedule: "); if obj.Module_Schedule /= null then put(obj.Module_Schedule.all); else put("null"); end if;put ( "; " );
put("Partition_HM_List: "); put(obj.Partition_HM_List); put ( "; " );
put("Connection_List: "); put(obj.Connection_List); put ( "; " );
put("ModExt: "); put(obj.ModExt); put ( "; " );
put("ModuleName: "); put(obj.ModuleName); put ( "; " );
put("ModuleVersion: "); put(obj.ModuleVersion); put ( "; " );
put("ModuleId: "); put(obj.ModuleId); put ( "; " );
end Put;
procedure Put(obj : in ARINC_653_Module_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in ARINC_653_Module_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in ARINC_653_Module ) return unbounded_string_list is
list : unbounded_string_list;
s : unbounded_string_ptr;
begin
Initialize(list);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("ARINC_653_SCHEMA.ARINC_653_MODULE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in ARINC_653_Module_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in ARINC_653_Module; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(ARINC_653_Object(obj), result);
if (XML_String(obj.System_HM_List) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.System_HM_List) & to_unbounded_string("");
end if;
if (XML_String(obj.Module_HM_List) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Module_HM_List) & to_unbounded_string("");
end if;
if (XML_String(obj.Partition) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Partition) & to_unbounded_string("");
end if;
if (XML_String(obj.Partition_Memory) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Partition_Memory) & to_unbounded_string("");
end if;
if (XML_String(obj.Module_Schedule) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Module_Schedule) & to_unbounded_string("");
end if;
if (XML_String(obj.Partition_HM_List) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Partition_HM_List) & to_unbounded_string("");
end if;
if (XML_String(obj.Connection_List) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Connection_List) & to_unbounded_string("");
end if;
if (XML_String(obj.ModExt) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModExt) & to_unbounded_string("");
end if;
if (XML_String(obj.ModuleName) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModuleName) & to_unbounded_string("");
end if;
if (XML_String(obj.ModuleVersion) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModuleVersion) & to_unbounded_string("");
end if;
if (XML_String(obj.ModuleId) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ModuleId) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in ARINC_653_Module) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in ARINC_653_Module_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in ARINC_653_Module) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in ARINC_653_Module_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End ARINC_653_Schema;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Dependencies is
function XML_String(obj : in Dependency_Type) return Unbounded_String is
begin
return to_unbounded_string(Dependency_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Dependency_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Time_Triggered_Communication_Timing_Property_Type) return Unbounded_String is
begin
return to_unbounded_string(Time_Triggered_Communication_Timing_Property_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Time_Triggered_Communication_Timing_Property_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Orientation_Dependency_Type) return Unbounded_String is
begin
return to_unbounded_string(Orientation_Dependency_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Orientation_Dependency_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Asynchronous_Communication_Protocol_Property_Type) return Unbounded_String is
begin
return to_unbounded_string(Asynchronous_Communication_Protocol_Property_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Asynchronous_Communication_Protocol_Property_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
procedure Initialize (obj : out Dependency_Ptr) is
begin
obj := NULL;
end Initialize;
procedure Put(obj : in Dependency_Ptr) is
begin
if (obj /= NULL) then
put("type_of_dependency: "); put(obj.type_of_dependency); put ( "; " );
put ( "value: " );
case obj.type_of_dependency is
when precedence_dependency =>
put("precedence_sink: "); if obj.precedence_sink /= null then put(obj.precedence_sink.all); else put("null"); end if;put ( "; " );
put("precedence_source: "); if obj.precedence_source /= null then put(obj.precedence_source.all); else put("null"); end if;put ( "; " );
when queueing_buffer_dependency =>
put("buffer_dependent_task: "); if obj.buffer_dependent_task /= null then put(obj.buffer_dependent_task.all); else put("null"); end if;put ( "; " );
put("buffer_orientation: "); put(obj.buffer_orientation); put ( "; " );
put("buffer_dependency_object: "); if obj.buffer_dependency_object /= null then put(obj.buffer_dependency_object.all); else put("null"); end if;put ( "; " );
when asynchronous_communication_dependency =>
put("asynchronous_communication_dependent_task: "); if obj.asynchronous_communication_dependent_task /= null then put(obj.asynchronous_communication_dependent_task.all); else put("null"); end if;put ( "; " );
put("asynchronous_communication_orientation: "); put(obj.asynchronous_communication_orientation); put ( "; " );
put("asynchronous_communication_dependency_object: "); if obj.asynchronous_communication_dependency_object /= null then put(obj.asynchronous_communication_dependency_object.all); else put("null"); end if;put ( "; " );
put("asynchronous_communication_protocol_property: "); put(obj.asynchronous_communication_protocol_property); put ( "; " );
when time_triggered_communication_dependency =>
put("time_triggered_communication_sink: "); if obj.time_triggered_communication_sink /= null then put(obj.time_triggered_communication_sink.all); else put("null"); end if;put ( "; " );
put("time_triggered_communication_source: "); if obj.time_triggered_communication_source /= null then put(obj.time_triggered_communication_source.all); else put("null"); end if;put ( "; " );
put("time_triggered_timing_property: "); put(obj.time_triggered_timing_property); put ( "; " );
when resource_dependency =>
put("resource_dependency_resource: "); if obj.resource_dependency_resource /= null then put(obj.resource_dependency_resource.all); else put("null"); end if;put ( "; " );
put("resource_dependency_task: "); if obj.resource_dependency_task /= null then put(obj.resource_dependency_task.all); else put("null"); end if;put ( "; " );
when remote_procedure_call_dependency =>
put("remote_procedure_call_client: "); if obj.remote_procedure_call_client /= null then put(obj.remote_procedure_call_client.all); else put("null"); end if;put ( "; " );
put("remote_procedure_call_server: "); if obj.remote_procedure_call_server /= null then put(obj.remote_procedure_call_server.all); else put("null"); end if;put ( "; " );
when black_board_Buffer_dependency =>
put("black_board_dependent_task: "); if obj.black_board_dependent_task /= null then put(obj.black_board_dependent_task.all); else put("null"); end if;put ( "; " );
put("black_board_orientation: "); put(obj.black_board_orientation); put ( "; " );
put("black_board_dependency_object: "); if obj.black_board_dependency_object /= null then put(obj.black_board_dependency_object.all); else put("null"); end if;put ( "; " );
end case;
end if;
New_Line;
end Put;
function Copy ( obj : in Dependency ) return Dependency_Ptr is
New_Dependency : Dependency_Ptr;
begin
New_Dependency := new Dependency'(obj);
return (New_Dependency);
end Copy;
function Copy ( obj : in Dependency_Ptr ) return Dependency_Ptr is
begin
return copy(obj.all);
end Copy;
function XML_String(obj : in Dependency) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
if (XML_String(obj.type_of_dependency) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.type_of_dependency) & to_unbounded_string("");
end if;
case obj.type_of_dependency is
when precedence_dependency =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
when queueing_buffer_dependency =>
result := result & to_unbounded_string("");
if (XML_String(obj.buffer_orientation) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.buffer_orientation) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
when asynchronous_communication_dependency =>
result := result & to_unbounded_string("");
if (XML_String(obj.asynchronous_communication_orientation) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.asynchronous_communication_orientation) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
if (XML_String(obj.asynchronous_communication_protocol_property) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.asynchronous_communication_protocol_property) & to_unbounded_string("");
end if;
when time_triggered_communication_dependency =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
if (XML_String(obj.time_triggered_timing_property) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.time_triggered_timing_property) & to_unbounded_string("");
end if;
when resource_dependency =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
when remote_procedure_call_dependency =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
when black_board_Buffer_dependency =>
result := result & to_unbounded_string("");
if (XML_String(obj.black_board_orientation) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.black_board_orientation) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
end case;
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Dependency_Ptr) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Dependency) 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 Dependency_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Dependencies;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body MILS_Security is
function XML_String(obj : in MILS_Confidentiality_Level_Type) return Unbounded_String is
begin
return to_unbounded_string(MILS_Confidentiality_Level_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in MILS_Confidentiality_Level_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in MILS_Integrity_Level_Type) return Unbounded_String is
begin
return to_unbounded_string(MILS_Integrity_Level_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in MILS_Integrity_Level_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in MILS_Component_Type) return Unbounded_String is
begin
return to_unbounded_string(MILS_Component_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in MILS_Component_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in MILS_Partition_Type) return Unbounded_String is
begin
return to_unbounded_string(MILS_Partition_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in MILS_Partition_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in MILS_Task_Type) return Unbounded_String is
begin
return to_unbounded_string(MILS_Task_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in MILS_Task_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
End MILS_Security;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Laws;
use Laws.Laws_Type_io;
Package Body Statements is
function XML_String(obj : in Statements_Type) return Unbounded_String is
begin
return to_unbounded_string(Statements_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Statements_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Table_Types) return Unbounded_String is
begin
return to_unbounded_string(Table_Types'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Table_Types) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Generic_Statement =--------
procedure Initialize(obj : in out Generic_Statement) is
begin
initialize(Generic_Object(obj));
obj.statement_type := Put_Statement_Type;
obj.line_number := 0;
obj.file_name := empty_string;
obj.object_type := Statement_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Statement ) return Generic_Statement_Ptr is
New_Generic_Statement : Generic_Statement_Ptr;
begin
New_Generic_Statement := new Generic_Statement'(obj);
return (New_Generic_Statement);
end Copy;
function Copy ( obj : in Generic_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Statement) is
begin
put(Generic_Object(obj));
put("statement_type: "); put(obj.statement_type); put ( "; " );
put("line_number: "); standards_io.natural_io.put(obj.line_number); put ( "; " );
put("file_name: "); put(obj.file_name); put ( "; " );
put("next_statement: "); if obj.next_statement /= null then put(obj.next_statement.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Generic_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Generic_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Object(obj), result);
if (XML_String(obj.statement_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.statement_type) & to_unbounded_string("");
end if;
if (XML_String(obj.line_number) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.line_number) & to_unbounded_string("");
end if;
if (XML_String(obj.file_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.file_name) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Nop_Statement =--------
procedure Initialize(obj : in out Nop_Statement) is
begin
initialize(Generic_Statement(obj));
obj.statement_type := Nop_Statement_Type;
end Initialize;
function Copy ( obj : in Nop_Statement ) return Generic_Statement_Ptr is
New_Nop_Statement : Nop_Statement_Ptr;
begin
New_Nop_Statement := new Nop_Statement'(obj);
return Generic_Statement_Ptr(New_Nop_Statement);
end Copy;
function Copy ( obj : in Nop_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Nop_Statement) is
begin
put(Generic_Statement(obj));
end Put;
procedure Put(obj : in Nop_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Nop_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Nop_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.NOP_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Nop_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Nop_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Nop_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Nop_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Nop_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Nop_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Exit_Statement =--------
procedure Initialize(obj : in out Exit_Statement) is
begin
initialize(Generic_Statement(obj));
obj.statement_type := Exit_Statement_Type;
end Initialize;
function Copy ( obj : in Exit_Statement ) return Generic_Statement_Ptr is
New_Exit_Statement : Exit_Statement_Ptr;
begin
New_Exit_Statement := new Exit_Statement'(obj);
return Generic_Statement_Ptr(New_Exit_Statement);
end Copy;
function Copy ( obj : in Exit_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Exit_Statement) is
begin
put(Generic_Statement(obj));
end Put;
procedure Put(obj : in Exit_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Exit_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Exit_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.EXIT_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Exit_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Exit_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Exit_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Exit_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Exit_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Exit_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Put_Statement =--------
procedure Initialize(obj : in out Put_Statement) is
begin
initialize(Generic_Statement(obj));
obj.statement_type := Put_Statement_Type;
end Initialize;
function Copy ( obj : in Put_Statement ) return Generic_Statement_Ptr is
New_Put_Statement : Put_Statement_Ptr;
begin
New_Put_Statement := new Put_Statement'(obj);
return Generic_Statement_Ptr(New_Put_Statement);
end Copy;
function Copy ( obj : in Put_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Put_Statement) is
begin
put(Generic_Statement(obj));
put("put_from: "); if obj.put_from /= null then put(obj.put_from.all); else put("null"); end if;put ( "; " );
put("put_to: "); if obj.put_to /= null then put(obj.put_to.all); else put("null"); end if;put ( "; " );
put("expression_to_be_displayed: "); if obj.expression_to_be_displayed /= null then put(obj.expression_to_be_displayed.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Put_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Put_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Put_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.PUT_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Put_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Put_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Put_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Put_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Put_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Put_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= If_Statement =--------
procedure Initialize(obj : in out If_Statement) is
begin
initialize(Generic_Statement(obj));
obj.statement_type := If_Statement_Type;
end Initialize;
function Copy ( obj : in If_Statement ) return Generic_Statement_Ptr is
New_If_Statement : If_Statement_Ptr;
begin
New_If_Statement := new If_Statement'(obj);
return Generic_Statement_Ptr(New_If_Statement);
end Copy;
function Copy ( obj : in If_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in If_Statement) is
begin
put(Generic_Statement(obj));
put("bool_expression: "); if obj.bool_expression /= null then put(obj.bool_expression.all); else put("null"); end if;put ( "; " );
put("else_statement: "); if obj.else_statement /= null then put(obj.else_statement.all); else put("null"); end if;put ( "; " );
put("then_statement: "); if obj.then_statement /= null then put(obj.then_statement.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in If_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in If_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in If_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.IF_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in If_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in If_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in If_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in If_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in If_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in If_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Assign_Statement =--------
procedure Initialize(obj : in out Assign_Statement) is
begin
initialize(Generic_Statement(obj));
obj.statement_type := Assign_Statement_Type;
end Initialize;
function Copy ( obj : in Assign_Statement ) return Generic_Statement_Ptr is
New_Assign_Statement : Assign_Statement_Ptr;
begin
New_Assign_Statement := new Assign_Statement'(obj);
return Generic_Statement_Ptr(New_Assign_Statement);
end Copy;
function Copy ( obj : in Assign_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Assign_Statement) is
begin
put(Generic_Statement(obj));
put("lvalue: "); if obj.lvalue /= null then put(obj.lvalue.all); else put("null"); end if;put ( "; " );
put("rvalue: "); if obj.rvalue /= null then put(obj.rvalue.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Assign_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Assign_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Assign_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.ASSIGN_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Assign_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Assign_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Assign_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Assign_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Assign_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Assign_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Clock_Statement =--------
procedure Initialize(obj : in out Clock_Statement) is
begin
initialize(Assign_Statement(obj));
obj.statement_type := Clock_Statement_Type;
end Initialize;
function Copy ( obj : in Clock_Statement ) return Generic_Statement_Ptr is
New_Clock_Statement : Clock_Statement_Ptr;
begin
New_Clock_Statement := new Clock_Statement'(obj);
return Generic_Statement_Ptr(New_Clock_Statement);
end Copy;
function Copy ( obj : in Clock_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Clock_Statement) is
begin
put(Assign_Statement(obj));
end Put;
procedure Put(obj : in Clock_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Clock_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Clock_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.ASSIGN_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.CLOCK_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Clock_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Clock_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Assign_Statement(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Clock_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Clock_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Clock_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Clock_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Delete_Precedence_Statement =--------
procedure Initialize(obj : in out Delete_Precedence_Statement) is
begin
initialize(Generic_Statement(obj));
obj.Delete_Source := empty_string;
obj.Delete_Sink := empty_string;
obj.statement_type := Delete_Precedence_Statement_Type;
end Initialize;
function Copy ( obj : in Delete_Precedence_Statement ) return Generic_Statement_Ptr is
New_Delete_Precedence_Statement : Delete_Precedence_Statement_Ptr;
begin
New_Delete_Precedence_Statement := new Delete_Precedence_Statement'(obj);
return Generic_Statement_Ptr(New_Delete_Precedence_Statement);
end Copy;
function Copy ( obj : in Delete_Precedence_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Delete_Precedence_Statement) is
begin
put(Generic_Statement(obj));
put("Delete_Source: "); put(obj.Delete_Source); put ( "; " );
put("Delete_Sink: "); put(obj.Delete_Sink); put ( "; " );
end Put;
procedure Put(obj : in Delete_Precedence_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Delete_Precedence_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Delete_Precedence_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.DELETE_PRECEDENCE_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Delete_Precedence_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Delete_Precedence_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
if (XML_String(obj.Delete_Source) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Delete_Source) & to_unbounded_string("");
end if;
if (XML_String(obj.Delete_Sink) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Delete_Sink) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Delete_Precedence_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Delete_Precedence_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Delete_Precedence_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Delete_Precedence_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Add_Precedence_Statement =--------
procedure Initialize(obj : in out Add_Precedence_Statement) is
begin
initialize(Generic_Statement(obj));
obj.Add_Source := empty_string;
obj.Add_Sink := empty_string;
obj.statement_type := Add_Precedence_Statement_Type;
end Initialize;
function Copy ( obj : in Add_Precedence_Statement ) return Generic_Statement_Ptr is
New_Add_Precedence_Statement : Add_Precedence_Statement_Ptr;
begin
New_Add_Precedence_Statement := new Add_Precedence_Statement'(obj);
return Generic_Statement_Ptr(New_Add_Precedence_Statement);
end Copy;
function Copy ( obj : in Add_Precedence_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Add_Precedence_Statement) is
begin
put(Generic_Statement(obj));
put("Add_Source: "); put(obj.Add_Source); put ( "; " );
put("Add_Sink: "); put(obj.Add_Sink); put ( "; " );
end Put;
procedure Put(obj : in Add_Precedence_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Add_Precedence_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Add_Precedence_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.ADD_PRECEDENCE_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Add_Precedence_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Add_Precedence_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
if (XML_String(obj.Add_Source) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Add_Source) & to_unbounded_string("");
end if;
if (XML_String(obj.Add_Sink) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Add_Sink) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Add_Precedence_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Add_Precedence_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Add_Precedence_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Add_Precedence_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= For_Statement =--------
procedure Initialize(obj : in out For_Statement) is
begin
initialize(Generic_Statement(obj));
obj.for_type := Task_Table_Type;
obj.statement_type := For_Statement_Type;
end Initialize;
function Copy ( obj : in For_Statement ) return Generic_Statement_Ptr is
New_For_Statement : For_Statement_Ptr;
begin
New_For_Statement := new For_Statement'(obj);
return Generic_Statement_Ptr(New_For_Statement);
end Copy;
function Copy ( obj : in For_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in For_Statement) is
begin
put(Generic_Statement(obj));
put("for_type: "); put(obj.for_type); put ( "; " );
put("included_statement: "); if obj.included_statement /= null then put(obj.included_statement.all); else put("null"); end if;put ( "; " );
put("for_index: "); if obj.for_index /= null then put(obj.for_index.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in For_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in For_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in For_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.FOR_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in For_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in For_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
if (XML_String(obj.for_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.for_type) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in For_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in For_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in For_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in For_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Return_Statement =--------
procedure Initialize(obj : in out Return_Statement) is
begin
initialize(Generic_Statement(obj));
obj.statement_type := Return_Statement_Type;
end Initialize;
function Copy ( obj : in Return_Statement ) return Generic_Statement_Ptr is
New_Return_Statement : Return_Statement_Ptr;
begin
New_Return_Statement := new Return_Statement'(obj);
return Generic_Statement_Ptr(New_Return_Statement);
end Copy;
function Copy ( obj : in Return_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Return_Statement) is
begin
put(Generic_Statement(obj));
put("return_value: "); if obj.return_value /= null then put(obj.return_value.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Return_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Return_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Return_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.RETURN_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Return_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Return_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Return_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Return_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Return_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Return_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= While_Statement =--------
procedure Initialize(obj : in out While_Statement) is
begin
initialize(Generic_Statement(obj));
obj.statement_type := While_Statement_Type;
end Initialize;
function Copy ( obj : in While_Statement ) return Generic_Statement_Ptr is
New_While_Statement : While_Statement_Ptr;
begin
New_While_Statement := new While_Statement'(obj);
return Generic_Statement_Ptr(New_While_Statement);
end Copy;
function Copy ( obj : in While_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in While_Statement) is
begin
put(Generic_Statement(obj));
put("included_statement: "); if obj.included_statement /= null then put(obj.included_statement.all); else put("null"); end if;put ( "; " );
put("condition: "); if obj.condition /= null then put(obj.condition.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in While_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in While_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in While_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.WHILE_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in While_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in While_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in While_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in While_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in While_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in While_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Random_Initialize_Statement =--------
procedure Initialize(obj : in out Random_Initialize_Statement) is
begin
initialize(Generic_Statement(obj));
obj.lvalue := empty_string;
obj.law := Uniform_Law_Type;
obj.statement_type := Random_Initialize_Statement_Type;
end Initialize;
function Copy ( obj : in Random_Initialize_Statement ) return Generic_Statement_Ptr is
New_Random_Initialize_Statement : Random_Initialize_Statement_Ptr;
begin
New_Random_Initialize_Statement := new Random_Initialize_Statement'(obj);
return Generic_Statement_Ptr(New_Random_Initialize_Statement);
end Copy;
function Copy ( obj : in Random_Initialize_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Random_Initialize_Statement) is
begin
put(Generic_Statement(obj));
put("lvalue: "); put(obj.lvalue); put ( "; " );
put("law: "); put(obj.law); put ( "; " );
put("parameter1: "); if obj.parameter1 /= null then put(obj.parameter1.all); else put("null"); end if;put ( "; " );
put("parameter2: "); if obj.parameter2 /= null then put(obj.parameter2.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Random_Initialize_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Random_Initialize_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Random_Initialize_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.RANDOM_INITIALIZE_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Random_Initialize_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Random_Initialize_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
if (XML_String(obj.lvalue) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.lvalue) & to_unbounded_string("");
end if;
if (XML_String(obj.law) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.law) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Random_Initialize_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Random_Initialize_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Random_Initialize_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Random_Initialize_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Set_Statement =--------
procedure Initialize(obj : in out Set_Statement) is
begin
initialize(Generic_Statement(obj));
obj.set_id := empty_string;
obj.statement_type := Set_Statement_Type;
end Initialize;
function Copy ( obj : in Set_Statement ) return Generic_Statement_Ptr is
New_Set_Statement : Set_Statement_Ptr;
begin
New_Set_Statement := new Set_Statement'(obj);
return Generic_Statement_Ptr(New_Set_Statement);
end Copy;
function Copy ( obj : in Set_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Set_Statement) is
begin
put(Generic_Statement(obj));
put("set_id: "); put(obj.set_id); put ( "; " );
put("set_value: "); if obj.set_value /= null then put(obj.set_value.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Set_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Set_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Set_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.SET_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Set_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Set_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
if (XML_String(obj.set_id) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.set_id) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Set_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Set_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Set_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Set_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Subprogram_Statement =--------
procedure Initialize(obj : in out Subprogram_Statement) is
begin
initialize(Generic_Statement(obj));
obj.is_a_function := false;
obj.subprogram_name := empty_string;
obj.statement_type := Subprogram_Statement_Type;
end Initialize;
function Copy ( obj : in Subprogram_Statement ) return Generic_Statement_Ptr is
New_Subprogram_Statement : Subprogram_Statement_Ptr;
begin
New_Subprogram_Statement := new Subprogram_Statement'(obj);
return Generic_Statement_Ptr(New_Subprogram_Statement);
end Copy;
function Copy ( obj : in Subprogram_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Subprogram_Statement) is
begin
put(Generic_Statement(obj));
put("included_statement: "); if obj.included_statement /= null then put(obj.included_statement.all); else put("null"); end if;put ( "; " );
put("is_a_function: "); standards_io.boolean_io.put(obj.is_a_function); put ( "; " );
put("subprogram_name: "); put(obj.subprogram_name); put ( "; " );
end Put;
procedure Put(obj : in Subprogram_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Subprogram_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Subprogram_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.SUBPROGRAM_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Subprogram_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Subprogram_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
result := result & to_unbounded_string("");
if (XML_String(obj.is_a_function) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.is_a_function) & to_unbounded_string("");
end if;
if (XML_String(obj.subprogram_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.subprogram_name) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Subprogram_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Subprogram_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Subprogram_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Subprogram_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Subprogram_Call_Statement =--------
procedure Initialize(obj : in out Subprogram_Call_Statement) is
begin
initialize(Generic_Statement(obj));
obj.is_a_function := false;
obj.statement_type := Subprogram_Call_Statement_Type;
end Initialize;
function Copy ( obj : in Subprogram_Call_Statement ) return Generic_Statement_Ptr is
New_Subprogram_Call_Statement : Subprogram_Call_Statement_Ptr;
begin
New_Subprogram_Call_Statement := new Subprogram_Call_Statement'(obj);
return Generic_Statement_Ptr(New_Subprogram_Call_Statement);
end Copy;
function Copy ( obj : in Subprogram_Call_Statement_Ptr ) return Generic_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Subprogram_Call_Statement) is
begin
put(Generic_Statement(obj));
put("is_a_function: "); standards_io.boolean_io.put(obj.is_a_function); put ( "; " );
put("called_subprogram: "); if obj.called_subprogram /= null then put(obj.called_subprogram.all); else put("null"); end if;put ( "; " );
put("return_value: "); if obj.return_value /= null then put(obj.return_value.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Subprogram_Call_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Subprogram_Call_Statement_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Subprogram_Call_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.GENERIC_STATEMENT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("STATEMENTS.SUBPROGRAM_CALL_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Subprogram_Call_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Subprogram_Call_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Statement(obj), result);
if (XML_String(obj.is_a_function) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.is_a_function) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Subprogram_Call_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Subprogram_Call_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Subprogram_Call_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Subprogram_Call_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Statements;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Memories is
function XML_String(obj : in Memory_Type) return Unbounded_String is
begin
return to_unbounded_string(Memory_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Memory_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Generic_Memory =--------
procedure Initialize(obj : in out Generic_Memory) is
begin
initialize(Named_Object(obj));
obj.size := 0;
obj.access_latency := 0;
obj.memory_category := Generic_Memory_Type;
obj.object_type := Memory_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Memory ) return Generic_Memory_Ptr is
New_Generic_Memory : Generic_Memory_Ptr;
begin
New_Generic_Memory := new Generic_Memory'(obj);
return (New_Generic_Memory);
end Copy;
function Copy ( obj : in Generic_Memory_Ptr ) return Generic_Memory_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Memory) is
begin
put(Named_Object(obj));
put("size: "); standards_io.natural_io.put(obj.size); put ( "; " );
put("access_latency: "); standards_io.natural_io.put(obj.access_latency); put ( "; " );
put("memory_category: "); put(obj.memory_category); put ( "; " );
end Put;
procedure Put(obj : in Generic_Memory_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Memory_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Generic_Memory) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Generic_Memory_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Generic_Memory ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MEMORIES.GENERIC_MEMORY");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Memory_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Memory; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.size) & to_unbounded_string("");
end if;
if (XML_String(obj.access_latency) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.access_latency) & to_unbounded_string("");
end if;
if (XML_String(obj.memory_category) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.memory_category) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Memory) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Memory_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Memory) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Memory_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= DRAM_Memory =--------
procedure Initialize(obj : in out DRAM_Memory) is
begin
initialize(Generic_Memory(obj));
obj.shared_access_latency := 0;
obj.private_access_latency := 0;
obj.l_rw_inter := 0;
obj.l_act_inter := 0;
obj.l_pre_inter := 0;
obj.n_reorder := 0;
obj.l_conhit := 0;
obj.l_conf := 0;
obj.memory_category := DRAM_Type;
end Initialize;
function Copy ( obj : in DRAM_Memory ) return Generic_Memory_Ptr is
New_DRAM_Memory : DRAM_Memory_Ptr;
begin
New_DRAM_Memory := new DRAM_Memory'(obj);
return Generic_Memory_Ptr(New_DRAM_Memory);
end Copy;
function Copy ( obj : in DRAM_Memory_Ptr ) return Generic_Memory_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in DRAM_Memory) is
begin
put(Generic_Memory(obj));
put("shared_access_latency: "); standards_io.natural_io.put(obj.shared_access_latency); put ( "; " );
put("private_access_latency: "); standards_io.natural_io.put(obj.private_access_latency); put ( "; " );
put("l_rw_inter: "); standards_io.natural_io.put(obj.l_rw_inter); put ( "; " );
put("l_act_inter: "); standards_io.natural_io.put(obj.l_act_inter); put ( "; " );
put("l_pre_inter: "); standards_io.natural_io.put(obj.l_pre_inter); put ( "; " );
put("n_reorder: "); standards_io.natural_io.put(obj.n_reorder); put ( "; " );
put("l_conhit: "); standards_io.natural_io.put(obj.l_conhit); put ( "; " );
put("l_conf: "); standards_io.natural_io.put(obj.l_conf); put ( "; " );
end Put;
procedure Put(obj : in DRAM_Memory_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in DRAM_Memory_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in DRAM_Memory) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in DRAM_Memory_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in DRAM_Memory ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MEMORIES.GENERIC_MEMORY");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MEMORIES.DRAM_MEMORY");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in DRAM_Memory_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in DRAM_Memory; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Memory(obj), result);
if (XML_String(obj.shared_access_latency) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.shared_access_latency) & to_unbounded_string("");
end if;
if (XML_String(obj.private_access_latency) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.private_access_latency) & to_unbounded_string("");
end if;
if (XML_String(obj.l_rw_inter) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l_rw_inter) & to_unbounded_string("");
end if;
if (XML_String(obj.l_act_inter) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l_act_inter) & to_unbounded_string("");
end if;
if (XML_String(obj.l_pre_inter) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l_pre_inter) & to_unbounded_string("");
end if;
if (XML_String(obj.n_reorder) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.n_reorder) & to_unbounded_string("");
end if;
if (XML_String(obj.l_conhit) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l_conhit) & to_unbounded_string("");
end if;
if (XML_String(obj.l_conf) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l_conf) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in DRAM_Memory) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in DRAM_Memory_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in DRAM_Memory) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in DRAM_Memory_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Kalray_Memory =--------
procedure Initialize(obj : in out Kalray_Memory) is
begin
initialize(Generic_Memory(obj));
obj.nb_bank := 0;
obj.partition_mode := false;
obj.memory_category := Kalray_Type;
end Initialize;
function Copy ( obj : in Kalray_Memory ) return Generic_Memory_Ptr is
New_Kalray_Memory : Kalray_Memory_Ptr;
begin
New_Kalray_Memory := new Kalray_Memory'(obj);
return Generic_Memory_Ptr(New_Kalray_Memory);
end Copy;
function Copy ( obj : in Kalray_Memory_Ptr ) return Generic_Memory_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Kalray_Memory) is
begin
put(Generic_Memory(obj));
put("nb_bank: "); standards_io.natural_io.put(obj.nb_bank); put ( "; " );
put("partition_mode: "); standards_io.boolean_io.put(obj.partition_mode); put ( "; " );
end Put;
procedure Put(obj : in Kalray_Memory_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Kalray_Memory_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Kalray_Memory) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Kalray_Memory_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Kalray_Memory ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MEMORIES.GENERIC_MEMORY");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MEMORIES.KALRAY_MEMORY");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Kalray_Memory_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Kalray_Memory; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Memory(obj), result);
if (XML_String(obj.nb_bank) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.nb_bank) & to_unbounded_string("");
end if;
if (XML_String(obj.partition_mode) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.partition_mode) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Kalray_Memory) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Kalray_Memory_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Kalray_Memory) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Kalray_Memory_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Memory_Record =--------
procedure Initialize(obj : out Memory_Record) is
begin
obj.size := 0;
obj.access_latency := 0;
obj.memory_category := Generic_Memory_Type;
obj.shared_access_latency := 0;
obj.private_access_latency := 0;
obj.l_rw_inter := 0;
obj.l_act_inter := 0;
obj.l_pre_inter := 0;
obj.n_reorder := 0;
obj.l_conhit := 0;
obj.l_conf := 0;
obj.nb_bank := 0;
obj.partition_mode := false;
end Initialize;
procedure Put(obj : in Memory_Record) is
begin
put("size: "); standards_io.natural_io.put(obj.size); put ( "; " );
put("access_latency: "); standards_io.natural_io.put(obj.access_latency); put ( "; " );
put("memory_category: "); put(obj.memory_category); put ( "; " );
put("shared_access_latency: "); standards_io.natural_io.put(obj.shared_access_latency); put ( "; " );
put("private_access_latency: "); standards_io.natural_io.put(obj.private_access_latency); put ( "; " );
put("l_rw_inter: "); standards_io.natural_io.put(obj.l_rw_inter); put ( "; " );
put("l_act_inter: "); standards_io.natural_io.put(obj.l_act_inter); put ( "; " );
put("l_pre_inter: "); standards_io.natural_io.put(obj.l_pre_inter); put ( "; " );
put("n_reorder: "); standards_io.natural_io.put(obj.n_reorder); put ( "; " );
put("l_conhit: "); standards_io.natural_io.put(obj.l_conhit); put ( "; " );
put("l_conf: "); standards_io.natural_io.put(obj.l_conf); put ( "; " );
put("nb_bank: "); standards_io.natural_io.put(obj.nb_bank); put ( "; " );
put("partition_mode: "); standards_io.boolean_io.put(obj.partition_mode); put ( "; " );
end Put;
procedure Put(obj : in Memory_Record_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Memory_Record; result : in out Unbounded_String) is
begin
if (XML_String(obj.size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.size) & to_unbounded_string("");
end if;
if (XML_String(obj.access_latency) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.access_latency) & to_unbounded_string("");
end if;
if (XML_String(obj.memory_category) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.memory_category) & to_unbounded_string("");
end if;
if (XML_String(obj.shared_access_latency) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.shared_access_latency) & to_unbounded_string("");
end if;
if (XML_String(obj.private_access_latency) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.private_access_latency) & to_unbounded_string("");
end if;
if (XML_String(obj.l_rw_inter) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l_rw_inter) & to_unbounded_string("");
end if;
if (XML_String(obj.l_act_inter) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l_act_inter) & to_unbounded_string("");
end if;
if (XML_String(obj.l_pre_inter) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l_pre_inter) & to_unbounded_string("");
end if;
if (XML_String(obj.n_reorder) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.n_reorder) & to_unbounded_string("");
end if;
if (XML_String(obj.l_conhit) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l_conhit) & to_unbounded_string("");
end if;
if (XML_String(obj.l_conf) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l_conf) & to_unbounded_string("");
end if;
if (XML_String(obj.nb_bank) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.nb_bank) & to_unbounded_string("");
end if;
if (XML_String(obj.partition_mode) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.partition_mode) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Memory_Record) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Memory_Record_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Memory_Record) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Memory_Record ) return Memory_Record_Ptr is
New_Memory_Record : Memory_Record_Ptr;
begin
New_Memory_Record := new Memory_Record'(obj);
return (New_Memory_Record);
end Copy;
function Copy ( obj : in Memory_Record_Ptr ) return Memory_Record_Ptr is
begin
return copy(obj.all);
end Copy;
End Memories;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Simulations;
use Simulations.Simulation_Type_io;
Package Body Expressions is
function XML_String(obj : in Operator_Type) return Unbounded_String is
begin
return to_unbounded_string(Operator_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Operator_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Expressions_Type) return Unbounded_String is
begin
return to_unbounded_string(Expressions_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Expressions_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Generic_Expression =--------
procedure Initialize(obj : in out Generic_Expression) is
begin
initialize(Named_Object(obj));
obj.expression_type := Constant_Type;
obj.object_type := Expression_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Expression ) return Generic_Expression_Ptr is
New_Generic_Expression : Generic_Expression_Ptr;
begin
New_Generic_Expression := new Generic_Expression'(obj);
return (New_Generic_Expression);
end Copy;
function Copy ( obj : in Generic_Expression_Ptr ) return Generic_Expression_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Expression) is
begin
put(Named_Object(obj));
put("expression_type: "); put(obj.expression_type); put ( "; " );
end Put;
procedure Put(obj : in Generic_Expression_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Expression_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Generic_Expression) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Generic_Expression_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Generic_Expression ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.GENERIC_EXPRESSION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Expression_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Expression; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.expression_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.expression_type) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Expression_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Expression_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Constant_Expression =--------
procedure Initialize(obj : in out Constant_Expression) is
begin
initialize(Generic_Expression(obj));
initialize( obj.VALUE);
obj.expression_type := Constant_Type;
end Initialize;
function Copy ( obj : in Constant_Expression ) return Generic_Expression_Ptr is
New_Constant_Expression : Constant_Expression_Ptr;
begin
New_Constant_Expression := new Constant_Expression'(obj);
return Generic_Expression_Ptr(New_Constant_Expression);
end Copy;
function Copy ( obj : in Constant_Expression_Ptr ) return Generic_Expression_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Constant_Expression) is
begin
put(Generic_Expression(obj));
put("VALUE: "); put(obj.VALUE); put ( "; " );
end Put;
procedure Put(obj : in Constant_Expression_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Constant_Expression_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Constant_Expression) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Constant_Expression_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Constant_Expression ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.GENERIC_EXPRESSION");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.CONSTANT_EXPRESSION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Constant_Expression_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Constant_Expression; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Expression(obj), result);
if (XML_String(obj.VALUE) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.VALUE) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Constant_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Constant_Expression_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Constant_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Constant_Expression_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Variable_Expression =--------
procedure Initialize(obj : in out Variable_Expression) is
begin
initialize(Generic_Expression(obj));
obj.identifier := empty_string;
obj.variable_type := Simulation_Boolean;
obj.expression_type := Variable_Type;
end Initialize;
function Copy ( obj : in Variable_Expression ) return Generic_Expression_Ptr is
New_Variable_Expression : Variable_Expression_Ptr;
begin
New_Variable_Expression := new Variable_Expression'(obj);
return Generic_Expression_Ptr(New_Variable_Expression);
end Copy;
function Copy ( obj : in Variable_Expression_Ptr ) return Generic_Expression_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Variable_Expression) is
begin
put(Generic_Expression(obj));
put("identifier: "); put(obj.identifier); put ( "; " );
put("variable_type: "); put(obj.variable_type); put ( "; " );
end Put;
procedure Put(obj : in Variable_Expression_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Variable_Expression_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Variable_Expression) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Variable_Expression_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Variable_Expression ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.GENERIC_EXPRESSION");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.VARIABLE_EXPRESSION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Variable_Expression_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Variable_Expression; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Expression(obj), result);
if (XML_String(obj.identifier) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.identifier) & to_unbounded_string("");
end if;
if (XML_String(obj.variable_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.variable_type) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Variable_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Variable_Expression_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Variable_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Variable_Expression_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Array_Variable_Expression =--------
procedure Initialize(obj : in out Array_Variable_Expression) is
begin
initialize(Variable_Expression(obj));
obj.expression_type := Array_Variable_Type;
end Initialize;
function Copy ( obj : in Array_Variable_Expression ) return Generic_Expression_Ptr is
New_Array_Variable_Expression : Array_Variable_Expression_Ptr;
begin
New_Array_Variable_Expression := new Array_Variable_Expression'(obj);
return Generic_Expression_Ptr(New_Array_Variable_Expression);
end Copy;
function Copy ( obj : in Array_Variable_Expression_Ptr ) return Generic_Expression_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Array_Variable_Expression) is
begin
put(Variable_Expression(obj));
put("array_index: "); if obj.array_index /= null then put(obj.array_index.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Array_Variable_Expression_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Array_Variable_Expression_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Array_Variable_Expression) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Array_Variable_Expression_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Array_Variable_Expression ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.GENERIC_EXPRESSION");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.VARIABLE_EXPRESSION");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.ARRAY_VARIABLE_EXPRESSION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Array_Variable_Expression_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Array_Variable_Expression; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Variable_Expression(obj), result);
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Array_Variable_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Array_Variable_Expression_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Array_Variable_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Array_Variable_Expression_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Binary_Expression =--------
procedure Initialize(obj : in out Binary_Expression) is
begin
initialize(Variable_Expression(obj));
obj.operator := Plus_Type;
obj.expression_type := Binary_Type;
end Initialize;
function Copy ( obj : in Binary_Expression ) return Generic_Expression_Ptr is
New_Binary_Expression : Binary_Expression_Ptr;
begin
New_Binary_Expression := new Binary_Expression'(obj);
return Generic_Expression_Ptr(New_Binary_Expression);
end Copy;
function Copy ( obj : in Binary_Expression_Ptr ) return Generic_Expression_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Binary_Expression) is
begin
put(Variable_Expression(obj));
put("rvalue: "); if obj.rvalue /= null then put(obj.rvalue.all); else put("null"); end if;put ( "; " );
put("lvalue: "); if obj.lvalue /= null then put(obj.lvalue.all); else put("null"); end if;put ( "; " );
put("operator: "); put(obj.operator); put ( "; " );
end Put;
procedure Put(obj : in Binary_Expression_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Binary_Expression_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Binary_Expression) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Binary_Expression_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Binary_Expression ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.GENERIC_EXPRESSION");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.VARIABLE_EXPRESSION");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.BINARY_EXPRESSION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Binary_Expression_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Binary_Expression; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Variable_Expression(obj), result);
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
if (XML_String(obj.operator) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.operator) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Binary_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Binary_Expression_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Binary_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Binary_Expression_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Unary_Expression =--------
procedure Initialize(obj : in out Unary_Expression) is
begin
initialize(Variable_Expression(obj));
obj.operator := Plus_Type;
obj.expression_type := Unary_Type;
end Initialize;
function Copy ( obj : in Unary_Expression ) return Generic_Expression_Ptr is
New_Unary_Expression : Unary_Expression_Ptr;
begin
New_Unary_Expression := new Unary_Expression'(obj);
return Generic_Expression_Ptr(New_Unary_Expression);
end Copy;
function Copy ( obj : in Unary_Expression_Ptr ) return Generic_Expression_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Unary_Expression) is
begin
put(Variable_Expression(obj));
put("operator: "); put(obj.operator); put ( "; " );
put("VALUE: "); if obj.VALUE /= null then put(obj.VALUE.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Unary_Expression_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Unary_Expression_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Unary_Expression) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Unary_Expression_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Unary_Expression ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.GENERIC_EXPRESSION");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.VARIABLE_EXPRESSION");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EXPRESSIONS.UNARY_EXPRESSION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Unary_Expression_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Unary_Expression; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Variable_Expression(obj), result);
if (XML_String(obj.operator) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.operator) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Unary_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Unary_Expression_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Unary_Expression) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Unary_Expression_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Expressions;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Task_Groups is
function XML_String(obj : in Task_Groups_Type) return Unbounded_String is
begin
return to_unbounded_string(Task_Groups_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Task_Groups_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Generic_Task_Group =--------
procedure Initialize(obj : in out Generic_Task_Group) is
begin
initialize(Named_Object(obj));
obj.task_group_type := Transaction_Type;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.criticality := 0;
obj.period := 0;
obj.jitter := 0;
obj.object_type := Task_Group_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Task_Group ) return Generic_Task_Group_Ptr is
New_Generic_Task_Group : Generic_Task_Group_Ptr;
begin
New_Generic_Task_Group := new Generic_Task_Group'(obj);
return (New_Generic_Task_Group);
end Copy;
function Copy ( obj : in Generic_Task_Group_Ptr ) return Generic_Task_Group_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Task_Group) is
begin
put(Named_Object(obj));
put("task_list: "); put(obj.task_list); put ( "; " );
put("task_group_type: "); put(obj.task_group_type); put ( "; " );
put("deadline: "); standards_io.natural_io.put(obj.deadline); put ( "; " );
put("start_time: "); standards_io.natural_io.put(obj.start_time); put ( "; " );
put("priority: "); put(obj.priority); put ( "; " );
put("criticality: "); standards_io.natural_io.put(obj.criticality); put ( "; " );
put("period: "); standards_io.natural_io.put(obj.period); put ( "; " );
put("jitter: "); standards_io.natural_io.put(obj.jitter); put ( "; " );
end Put;
procedure Put(obj : in Generic_Task_Group_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Task_Group_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Generic_Task_Group) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Generic_Task_Group_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Generic_Task_Group ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASK_GROUPS.GENERIC_TASK_GROUP");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Task_Group_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Task_Group; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.task_list) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.task_list) & to_unbounded_string("");
end if;
if (XML_String(obj.task_group_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.task_group_type) & to_unbounded_string("");
end if;
if (XML_String(obj.deadline) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.deadline) & to_unbounded_string("");
end if;
if (XML_String(obj.start_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.start_time) & to_unbounded_string("");
end if;
if (XML_String(obj.priority) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.priority) & to_unbounded_string("");
end if;
if (XML_String(obj.criticality) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.criticality) & to_unbounded_string("");
end if;
if (XML_String(obj.period) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.period) & to_unbounded_string("");
end if;
if (XML_String(obj.jitter) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.jitter) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Task_Group) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Task_Group_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Task_Group) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Task_Group_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Transaction_Task_Group =--------
procedure Initialize(obj : in out Transaction_Task_Group) is
begin
initialize(Generic_Task_Group(obj));
obj.task_group_type := Transaction_Type;
end Initialize;
function Copy ( obj : in Transaction_Task_Group ) return Generic_Task_Group_Ptr is
New_Transaction_Task_Group : Transaction_Task_Group_Ptr;
begin
New_Transaction_Task_Group := new Transaction_Task_Group'(obj);
return Generic_Task_Group_Ptr(New_Transaction_Task_Group);
end Copy;
function Copy ( obj : in Transaction_Task_Group_Ptr ) return Generic_Task_Group_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Transaction_Task_Group) is
begin
put(Generic_Task_Group(obj));
end Put;
procedure Put(obj : in Transaction_Task_Group_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Transaction_Task_Group_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Transaction_Task_Group) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Transaction_Task_Group_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Transaction_Task_Group ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASK_GROUPS.GENERIC_TASK_GROUP");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASK_GROUPS.TRANSACTION_TASK_GROUP");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Transaction_Task_Group_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Transaction_Task_Group; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Task_Group(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Transaction_Task_Group) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Transaction_Task_Group_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Transaction_Task_Group) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Transaction_Task_Group_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Multiframe_Task_Group =--------
procedure Initialize(obj : in out Multiframe_Task_Group) is
begin
initialize(Generic_Task_Group(obj));
obj.task_group_type := Multiframe_Type;
end Initialize;
function Copy ( obj : in Multiframe_Task_Group ) return Generic_Task_Group_Ptr is
New_Multiframe_Task_Group : Multiframe_Task_Group_Ptr;
begin
New_Multiframe_Task_Group := new Multiframe_Task_Group'(obj);
return Generic_Task_Group_Ptr(New_Multiframe_Task_Group);
end Copy;
function Copy ( obj : in Multiframe_Task_Group_Ptr ) return Generic_Task_Group_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Multiframe_Task_Group) is
begin
put(Generic_Task_Group(obj));
end Put;
procedure Put(obj : in Multiframe_Task_Group_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Multiframe_Task_Group_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Multiframe_Task_Group) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Multiframe_Task_Group_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Multiframe_Task_Group ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASK_GROUPS.GENERIC_TASK_GROUP");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASK_GROUPS.MULTIFRAME_TASK_GROUP");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Multiframe_Task_Group_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Multiframe_Task_Group; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Task_Group(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Multiframe_Task_Group) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Multiframe_Task_Group_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Multiframe_Task_Group) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Multiframe_Task_Group_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Task_Groups;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Scheduling_Errors is
function XML_String(obj : in Error_Type_Type) return Unbounded_String is
begin
return to_unbounded_string(Error_Type_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Error_Type_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Error_Action_Type) return Unbounded_String is
begin
return to_unbounded_string(Error_Action_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Error_Action_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Scheduling_Error =--------
procedure Initialize(obj : in out Scheduling_Error) is
begin
initialize(Named_Object(obj));
obj.error_type := Early_Service_Start;
obj.time := 0;
obj.error_action := Reschedule;
obj.user_defined_action := empty_string;
obj.object_type := Scheduling_Error_Object_Type;
end Initialize;
function Copy ( obj : in Scheduling_Error ) return Scheduling_Error_Ptr is
New_Scheduling_Error : Scheduling_Error_Ptr;
begin
New_Scheduling_Error := new Scheduling_Error'(obj);
return (New_Scheduling_Error);
end Copy;
function Copy ( obj : in Scheduling_Error_Ptr ) return Scheduling_Error_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Scheduling_Error) is
begin
put(Named_Object(obj));
put("error_type: "); put(obj.error_type); put ( "; " );
put("time: "); standards_io.natural_io.put(obj.time); put ( "; " );
put("error_action: "); put(obj.error_action); put ( "; " );
put("user_defined_action: "); put(obj.user_defined_action); put ( "; " );
end Put;
procedure Put(obj : in Scheduling_Error_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Scheduling_Error_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Scheduling_Error) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Scheduling_Error_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Scheduling_Error ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SCHEDULING_ERRORS.SCHEDULING_ERROR");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Scheduling_Error_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Scheduling_Error; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.error_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.error_type) & to_unbounded_string("");
end if;
if (XML_String(obj.time) /= Empty_String) then
result := result & to_unbounded_string("");
end if;
if (XML_String(obj.error_action) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.error_action) & to_unbounded_string("");
end if;
if (XML_String(obj.user_defined_action) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.user_defined_action) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Scheduling_Error) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Scheduling_Error_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Scheduling_Error) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Scheduling_Error_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Scheduling_Error_Record =--------
procedure Initialize(obj : out Scheduling_Error_Record) is
begin
obj.error_type := Early_Service_Start;
obj.time := 0;
obj.error_action := Reschedule;
obj.user_defined_action := empty_string;
end Initialize;
procedure Put(obj : in Scheduling_Error_Record) is
begin
put("error_type: "); put(obj.error_type); put ( "; " );
put("time: "); standards_io.natural_io.put(obj.time); put ( "; " );
put("error_action: "); put(obj.error_action); put ( "; " );
put("user_defined_action: "); put(obj.user_defined_action); put ( "; " );
end Put;
procedure Put(obj : in Scheduling_Error_Record_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Scheduling_Error_Record; result : in out Unbounded_String) is
begin
if (XML_String(obj.error_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.error_type) & to_unbounded_string("");
end if;
if (XML_String(obj.time) /= Empty_String) then
result := result & to_unbounded_string("");
end if;
if (XML_String(obj.error_action) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.error_action) & to_unbounded_string("");
end if;
if (XML_String(obj.user_defined_action) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.user_defined_action) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Scheduling_Error_Record) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Scheduling_Error_Record_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Scheduling_Error_Record) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Scheduling_Error_Record ) return Scheduling_Error_Record_Ptr is
New_Scheduling_Error_Record : Scheduling_Error_Record_Ptr;
begin
New_Scheduling_Error_Record := new Scheduling_Error_Record'(obj);
return (New_Scheduling_Error_Record);
end Copy;
function Copy ( obj : in Scheduling_Error_Record_Ptr ) return Scheduling_Error_Record_Ptr is
begin
return copy(obj.all);
end Copy;
End Scheduling_Errors;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Partitioning_Algorithms is
function XML_String(obj : in Processor_Sort_Type) return Unbounded_String is
begin
return to_unbounded_string(Processor_Sort_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Processor_Sort_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Task_Sort_Type) return Unbounded_String is
begin
return to_unbounded_string(Task_Sort_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Task_Sort_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Feasibility_Test_Type) return Unbounded_String is
begin
return to_unbounded_string(Feasibility_Test_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Feasibility_Test_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Loop_Operation_Type) return Unbounded_String is
begin
return to_unbounded_string(Loop_Operation_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Loop_Operation_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
End Partitioning_Algorithms;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Basic_Blocks is
-- --------= Basic_Block =--------
procedure Initialize(obj : in out Basic_Block) is
begin
initialize(CFG_Node(obj));
obj.instruction_offset := 0;
obj.instruction_capacity := 0;
obj.number_of_memory_access := 0;
obj.execution_time := 0;
obj.data_offset := 0;
obj.data_capacity := 0;
obj.loop_bound := 0;
obj.graph_type := CFG_Basic_Block;
end Initialize;
function Copy ( obj : in Basic_Block ) return Basic_Block_Ptr is
New_Basic_Block : Basic_Block_Ptr;
begin
New_Basic_Block := new Basic_Block'(obj);
return (New_Basic_Block);
end Copy;
function Copy ( obj : in Basic_Block_Ptr ) return Basic_Block_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Basic_Block) is
begin
put(CFG_Node(obj));
put("instruction_offset: "); standards_io.natural_io.put(obj.instruction_offset); put ( "; " );
put("instruction_capacity: "); standards_io.natural_io.put(obj.instruction_capacity); put ( "; " );
put("number_of_memory_access: "); standards_io.natural_io.put(obj.number_of_memory_access); put ( "; " );
put("execution_time: "); standards_io.natural_io.put(obj.execution_time); put ( "; " );
put("data_offset: "); standards_io.natural_io.put(obj.data_offset); put ( "; " );
put("data_capacity: "); standards_io.natural_io.put(obj.data_capacity); put ( "; " );
put("loop_bound: "); standards_io.natural_io.put(obj.loop_bound); put ( "; " );
end Put;
procedure Put(obj : in Basic_Block_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Basic_Block_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Basic_Block) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Basic_Block_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Basic_Block ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CFG_NODES.CFG_NODE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("BASIC_BLOCKS.BASIC_BLOCK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Basic_Block_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Basic_Block; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(CFG_Node(obj), result);
if (XML_String(obj.instruction_offset) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.instruction_offset) & to_unbounded_string("");
end if;
if (XML_String(obj.instruction_capacity) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.instruction_capacity) & to_unbounded_string("");
end if;
if (XML_String(obj.number_of_memory_access) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.number_of_memory_access) & to_unbounded_string("");
end if;
if (XML_String(obj.execution_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.execution_time) & to_unbounded_string("");
end if;
if (XML_String(obj.data_offset) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.data_offset) & to_unbounded_string("");
end if;
if (XML_String(obj.data_capacity) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.data_capacity) & to_unbounded_string("");
end if;
if (XML_String(obj.loop_bound) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.loop_bound) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Basic_Block) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Basic_Block_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Basic_Block) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Basic_Block_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Basic_Blocks;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Tasks;
use Tasks.Tasks_Type_io;
with Dependencies;
use Dependencies.Time_Triggered_Communication_Timing_Property_Type_io;
Package Body DP_Graph is
-- --------= Task_Node =--------
procedure Initialize(obj : in out Task_Node) is
begin
initialize(Generic_Node(obj));
obj.Kind := Periodic_Type;
end Initialize;
function Copy ( obj : in Task_Node ) return Task_Node_Ptr is
New_Task_Node : Task_Node_Ptr;
begin
New_Task_Node := new Task_Node'(obj);
return (New_Task_Node);
end Copy;
function Copy ( obj : in Task_Node_Ptr ) return Task_Node_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Task_Node) is
begin
put(Generic_Node(obj));
put("TaskRef: "); if obj.TaskRef /= null then put(obj.TaskRef.all); else put("null"); end if;put ( "; " );
put("Kind: "); put(obj.Kind); put ( "; " );
put("Proc: "); if obj.Proc /= null then put(obj.Proc.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Task_Node_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Task_Node_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Task_Node ) 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("GENERIC_GRAPH.GENERIC_NODE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("DP_GRAPH.TASK_NODE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Task_Node_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Task_Node; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Node(obj), result);
result := result & to_unbounded_string("");
if (XML_String(obj.Kind) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Kind) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Task_Node) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Task_Node_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Task_Node) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Task_Node_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Time_Triggered_Communication_Edge =--------
procedure Initialize(obj : in out Time_Triggered_Communication_Edge) is
begin
initialize(Generic_Edge(obj));
obj.Timing_Property := Sampled_Timing;
end Initialize;
function Copy ( obj : in Time_Triggered_Communication_Edge ) return Time_Triggered_Communication_Edge_Ptr is
New_Time_Triggered_Communication_Edge : Time_Triggered_Communication_Edge_Ptr;
begin
New_Time_Triggered_Communication_Edge := new Time_Triggered_Communication_Edge'(obj);
return (New_Time_Triggered_Communication_Edge);
end Copy;
function Copy ( obj : in Time_Triggered_Communication_Edge_Ptr ) return Time_Triggered_Communication_Edge_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Time_Triggered_Communication_Edge) is
begin
put(Generic_Edge(obj));
put("Timing_Property: "); put(obj.Timing_Property); put ( "; " );
put("Time_Triggered_Communication_Sink: "); if obj.Time_Triggered_Communication_Sink /= null then put(obj.Time_Triggered_Communication_Sink.all); else put("null"); end if;put ( "; " );
put("Time_Triggered_Communication_Source: "); if obj.Time_Triggered_Communication_Source /= null then put(obj.Time_Triggered_Communication_Source.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Time_Triggered_Communication_Edge_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Time_Triggered_Communication_Edge_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Time_Triggered_Communication_Edge ) 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("GENERIC_GRAPH.GENERIC_EDGE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("DP_GRAPH.TIME_TRIGGERED_COMMUNICATION_EDGE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Time_Triggered_Communication_Edge_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Time_Triggered_Communication_Edge; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Edge(obj), result);
if (XML_String(obj.Timing_Property) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Timing_Property) & to_unbounded_string("");
end if;
if (XML_String(obj.Time_Triggered_Communication_Sink) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Time_Triggered_Communication_Sink) & to_unbounded_string("");
end if;
if (XML_String(obj.Time_Triggered_Communication_Source) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Time_Triggered_Communication_Source) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Time_Triggered_Communication_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Time_Triggered_Communication_Edge_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Time_Triggered_Communication_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Time_Triggered_Communication_Edge_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Resource_Edge =--------
procedure Initialize(obj : in out Resource_Edge) is
begin
initialize(Generic_Edge(obj));
end Initialize;
function Copy ( obj : in Resource_Edge ) return Resource_Edge_Ptr is
New_Resource_Edge : Resource_Edge_Ptr;
begin
New_Resource_Edge := new Resource_Edge'(obj);
return (New_Resource_Edge);
end Copy;
function Copy ( obj : in Resource_Edge_Ptr ) return Resource_Edge_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Resource_Edge) is
begin
put(Generic_Edge(obj));
put("Resource_Dependency_Resource: "); if obj.Resource_Dependency_Resource /= null then put(obj.Resource_Dependency_Resource.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Resource_Edge_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Resource_Edge_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Resource_Edge ) 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("GENERIC_GRAPH.GENERIC_EDGE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("DP_GRAPH.RESOURCE_EDGE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Resource_Edge_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Resource_Edge; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Edge(obj), result);
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Resource_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Resource_Edge_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Resource_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Resource_Edge_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Precedence_Edge =--------
procedure Initialize(obj : in out Precedence_Edge) is
begin
initialize(Generic_Edge(obj));
end Initialize;
function Copy ( obj : in Precedence_Edge ) return Precedence_Edge_Ptr is
New_Precedence_Edge : Precedence_Edge_Ptr;
begin
New_Precedence_Edge := new Precedence_Edge'(obj);
return (New_Precedence_Edge);
end Copy;
function Copy ( obj : in Precedence_Edge_Ptr ) return Precedence_Edge_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Precedence_Edge) is
begin
put(Generic_Edge(obj));
end Put;
procedure Put(obj : in Precedence_Edge_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Precedence_Edge_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Precedence_Edge ) 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("GENERIC_GRAPH.GENERIC_EDGE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("DP_GRAPH.PRECEDENCE_EDGE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Precedence_Edge_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Precedence_Edge; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Edge(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Precedence_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Precedence_Edge_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Precedence_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Precedence_Edge_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Communication_Edge =--------
procedure Initialize(obj : in out Communication_Edge) is
begin
initialize(Generic_Edge(obj));
end Initialize;
function Copy ( obj : in Communication_Edge ) return Communication_Edge_Ptr is
New_Communication_Edge : Communication_Edge_Ptr;
begin
New_Communication_Edge := new Communication_Edge'(obj);
return (New_Communication_Edge);
end Copy;
function Copy ( obj : in Communication_Edge_Ptr ) return Communication_Edge_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Communication_Edge) is
begin
put(Generic_Edge(obj));
put("Communication_Dependency_Object: "); if obj.Communication_Dependency_Object /= null then put(obj.Communication_Dependency_Object.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Communication_Edge_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Communication_Edge_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Communication_Edge ) 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("GENERIC_GRAPH.GENERIC_EDGE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("DP_GRAPH.COMMUNICATION_EDGE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Communication_Edge_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Communication_Edge; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Edge(obj), result);
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Communication_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Communication_Edge_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Communication_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Communication_Edge_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Buffer_Edge =--------
procedure Initialize(obj : in out Buffer_Edge) is
begin
initialize(Generic_Edge(obj));
end Initialize;
function Copy ( obj : in Buffer_Edge ) return Buffer_Edge_Ptr is
New_Buffer_Edge : Buffer_Edge_Ptr;
begin
New_Buffer_Edge := new Buffer_Edge'(obj);
return (New_Buffer_Edge);
end Copy;
function Copy ( obj : in Buffer_Edge_Ptr ) return Buffer_Edge_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Buffer_Edge) is
begin
put(Generic_Edge(obj));
put("Buffer_Dependency_Object: "); if obj.Buffer_Dependency_Object /= null then put(obj.Buffer_Dependency_Object.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Buffer_Edge_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Buffer_Edge_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Buffer_Edge ) 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("GENERIC_GRAPH.GENERIC_EDGE");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("DP_GRAPH.BUFFER_EDGE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Buffer_Edge_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Buffer_Edge; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Edge(obj), result);
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Buffer_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Buffer_Edge_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Buffer_Edge) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Buffer_Edge_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End DP_Graph;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Processor_Interface is
function XML_String(obj : in Processors_type) return Unbounded_String is
begin
return to_unbounded_string(Processors_type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Processors_type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Migrations_Type) return Unbounded_String is
begin
return to_unbounded_string(Migrations_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Migrations_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Multiprocessors_Type) return Unbounded_String is
begin
return to_unbounded_string(Multiprocessors_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Multiprocessors_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
End Processor_Interface;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Scheduling_Analysis;
use Scheduling_Analysis;
with Time_Unit_Events;
use Time_Unit_Events;
use Time_Unit_Events.Time_Unit_Package;
Package Body Multiprocessor_Services_Interface is
-- --------= Scheduling_Result =--------
procedure Initialize(obj : out Scheduling_Result) is
begin
obj.scheduling_msg := empty_string;
obj.has_error := false;
obj.error_msg := empty_string;
if obj.result /= null then
Free (obj.result );
end if;
obj.result := new Scheduling_Sequence;
Initialize(obj.result.all);
end Initialize;
procedure Put(obj : in Scheduling_Result) is
begin
put("scheduling_msg: "); put(obj.scheduling_msg); put ( "; " );
put("has_error: "); standards_io.boolean_io.put(obj.has_error); put ( "; " );
put("error_msg: "); put(obj.error_msg); put ( "; " );
put("result: "); if obj.result /= null then put(obj.result.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Scheduling_Result_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Scheduling_Result; result : in out Unbounded_String) is
begin
if (XML_String(obj.scheduling_msg) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.scheduling_msg) & to_unbounded_string("");
end if;
if (XML_String(obj.has_error) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.has_error) & to_unbounded_string("");
end if;
if (XML_String(obj.error_msg) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.error_msg) & to_unbounded_string("");
end if;
if (XML_String(obj.result) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.result) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Scheduling_Result) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Scheduling_Result_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Scheduling_Result) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Scheduling_Result ) return Scheduling_Result_Ptr is
New_Scheduling_Result : Scheduling_Result_Ptr;
begin
New_Scheduling_Result := new Scheduling_Result'(obj);
return (New_Scheduling_Result);
end Copy;
function Copy ( obj : in Scheduling_Result_Ptr ) return Scheduling_Result_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Run_Server =--------
procedure Initialize(obj : in out Run_Server) is
begin
initialize(Periodic_Task(obj));
obj.rate := 0.0;
obj.core := empty_string;
obj.executing := false;
obj.job_capacity := 0;
obj.job_duration := 0;
obj.job_release := 0;
obj.job_deadline := 0;
end Initialize;
function Copy ( obj : in Run_Server ) return Run_Server_Ptr is
New_Run_Server : Run_Server_Ptr;
begin
New_Run_Server := new Run_Server'(obj);
return (New_Run_Server);
end Copy;
function Copy ( obj : in Run_Server_Ptr ) return Run_Server_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Run_Server) is
begin
put(Periodic_Task(obj));
put("rate: "); standards_io.double_io.put(obj.rate); put ( "; " );
put("core: "); put(obj.core); put ( "; " );
put("executing: "); standards_io.boolean_io.put(obj.executing); put ( "; " );
put("deadlines: "); put(obj.deadlines); put ( "; " );
put("periods: "); put(obj.periods); put ( "; " );
put("job: "); put(obj.job); put ( "; " );
put("job_capacity: "); standards_io.natural_io.put(obj.job_capacity); put ( "; " );
put("job_duration: "); standards_io.natural_io.put(obj.job_duration); put ( "; " );
put("job_release: "); standards_io.natural_io.put(obj.job_release); put ( "; " );
put("job_deadline: "); standards_io.natural_io.put(obj.job_deadline); put ( "; " );
end Put;
procedure Put(obj : in Run_Server_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Run_Server_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Run_Server) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Run_Server_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Run_Server ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MULTIPROCESSOR_SERVICES_INTERFACE.RUN_SERVER");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Run_Server_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Run_Server; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Periodic_Task(obj), result);
if (XML_String(obj.rate) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.rate) & to_unbounded_string("");
end if;
if (XML_String(obj.core) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.core) & to_unbounded_string("");
end if;
if (XML_String(obj.executing) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.executing) & to_unbounded_string("");
end if;
if (XML_String(obj.deadlines) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.deadlines) & to_unbounded_string("");
end if;
if (XML_String(obj.periods) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.periods) & to_unbounded_string("");
end if;
if (XML_String(obj.job) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.job) & to_unbounded_string("");
end if;
if (XML_String(obj.job_capacity) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.job_capacity) & to_unbounded_string("");
end if;
if (XML_String(obj.job_duration) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.job_duration) & to_unbounded_string("");
end if;
if (XML_String(obj.job_release) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.job_release) & to_unbounded_string("");
end if;
if (XML_String(obj.job_deadline) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.job_deadline) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Run_Server) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Run_Server_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Run_Server) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Run_Server_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Run_Server_Primal =--------
procedure Initialize(obj : in out Run_Server_Primal) is
begin
initialize(Run_Server(obj));
end Initialize;
function Copy ( obj : in Run_Server_Primal ) return Run_Server_Ptr is
New_Run_Server_Primal : Run_Server_Primal_Ptr;
begin
New_Run_Server_Primal := new Run_Server_Primal'(obj);
return Run_Server_Ptr(New_Run_Server_Primal);
end Copy;
function Copy ( obj : in Run_Server_Primal_Ptr ) return Run_Server_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Run_Server_Primal) is
begin
put(Run_Server(obj));
put("packed_servers: "); put(obj.packed_servers); put ( "; " );
end Put;
procedure Put(obj : in Run_Server_Primal_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Run_Server_Primal_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Run_Server_Primal) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Run_Server_Primal_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Run_Server_Primal ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MULTIPROCESSOR_SERVICES_INTERFACE.RUN_SERVER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MULTIPROCESSOR_SERVICES_INTERFACE.RUN_SERVER_PRIMAL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Run_Server_Primal_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Run_Server_Primal; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Run_Server(obj), result);
if (XML_String(obj.packed_servers) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.packed_servers) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Run_Server_Primal) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Run_Server_Primal_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Run_Server_Primal) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Run_Server_Primal_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Run_Server_Dual =--------
procedure Initialize(obj : in out Run_Server_Dual) is
begin
initialize(Run_Server(obj));
end Initialize;
function Copy ( obj : in Run_Server_Dual ) return Run_Server_Ptr is
New_Run_Server_Dual : Run_Server_Dual_Ptr;
begin
New_Run_Server_Dual := new Run_Server_Dual'(obj);
return Run_Server_Ptr(New_Run_Server_Dual);
end Copy;
function Copy ( obj : in Run_Server_Dual_Ptr ) return Run_Server_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Run_Server_Dual) is
begin
put(Run_Server(obj));
put("primal_server: "); if obj.primal_server /= null then put(obj.primal_server.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Run_Server_Dual_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Run_Server_Dual_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Run_Server_Dual) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Run_Server_Dual_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Run_Server_Dual ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MULTIPROCESSOR_SERVICES_INTERFACE.RUN_SERVER");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("MULTIPROCESSOR_SERVICES_INTERFACE.RUN_SERVER_DUAL");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Run_Server_Dual_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Run_Server_Dual; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Run_Server(obj), result);
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Run_Server_Dual) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Run_Server_Dual_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Run_Server_Dual) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Run_Server_Dual_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Multiprocessor_Services_Interface;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Applicability_Constraints_Main_Structure is
-- --------= Applicability_Constraint =--------
procedure Initialize(obj : out Applicability_Constraint) is
begin
obj.Name := empty_string;
obj.Result := false;
end Initialize;
procedure Put(obj : in Applicability_Constraint) is
begin
put("Name: "); put(obj.Name); put ( "; " );
put("Result: "); standards_io.boolean_io.put(obj.Result); put ( "; " );
end Put;
procedure Put(obj : in Applicability_Constraint_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Applicability_Constraint; result : in out Unbounded_String) is
begin
if (XML_String(obj.Name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Name) & to_unbounded_string("");
end if;
if (XML_String(obj.Result) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Result) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Applicability_Constraint) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Applicability_Constraint_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Applicability_Constraint) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Applicability_Constraint ) return Applicability_Constraint_Ptr is
New_Applicability_Constraint : Applicability_Constraint_Ptr;
begin
New_Applicability_Constraint := new Applicability_Constraint'(obj);
return (New_Applicability_Constraint);
end Copy;
function Copy ( obj : in Applicability_Constraint_Ptr ) return Applicability_Constraint_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Applicability_Constraint_Case =--------
procedure Initialize(obj : out Applicability_Constraint_Case) is
begin
obj.Name := empty_string;
obj.Feasibility_Test_Names := empty_string;
end Initialize;
procedure Put(obj : in Applicability_Constraint_Case) is
begin
put("Name: "); put(obj.Name); put ( "; " );
put("Feasibility_Test_Names: "); put(obj.Feasibility_Test_Names); put ( "; " );
put("Applicability_Constraints: "); put(obj.Applicability_Constraints); put ( "; " );
end Put;
procedure Put(obj : in Applicability_Constraint_Case_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Applicability_Constraint_Case; result : in out Unbounded_String) is
begin
if (XML_String(obj.Name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Name) & to_unbounded_string("");
end if;
if (XML_String(obj.Feasibility_Test_Names) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Feasibility_Test_Names) & to_unbounded_string("");
end if;
if (XML_String(obj.Applicability_Constraints) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Applicability_Constraints) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Applicability_Constraint_Case) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Applicability_Constraint_Case_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Applicability_Constraint_Case) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Applicability_Constraint_Case ) return Applicability_Constraint_Case_Ptr is
New_Applicability_Constraint_Case : Applicability_Constraint_Case_Ptr;
begin
New_Applicability_Constraint_Case := new Applicability_Constraint_Case'(obj);
return (New_Applicability_Constraint_Case);
end Copy;
function Copy ( obj : in Applicability_Constraint_Case_Ptr ) return Applicability_Constraint_Case_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= All_Cases_Structure =--------
procedure Initialize(obj : out All_Cases_Structure) is
begin
null;
end Initialize;
procedure Put(obj : in All_Cases_Structure) is
begin
put("Cases: "); put(obj.Cases); put ( "; " );
end Put;
procedure Put(obj : in All_Cases_Structure_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in All_Cases_Structure; result : in out Unbounded_String) is
begin
if (XML_String(obj.Cases) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Cases) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in All_Cases_Structure) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in All_Cases_Structure_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in All_Cases_Structure) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in All_Cases_Structure ) return All_Cases_Structure_Ptr is
New_All_Cases_Structure : All_Cases_Structure_Ptr;
begin
New_All_Cases_Structure := new All_Cases_Structure'(obj);
return (New_All_Cases_Structure);
end Copy;
function Copy ( obj : in All_Cases_Structure_Ptr ) return All_Cases_Structure_Ptr is
begin
return copy(obj.all);
end Copy;
End Applicability_Constraints_Main_Structure;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with framework;
use framework;
with id_generators;
use id_generators;
with Tasks.Extended;
use Tasks.Extended;
Package Body Scheduling_Analysis is
-- --------= Buffer_Size_Item =--------
procedure Initialize(obj : out Buffer_Size_Item) is
begin
obj.time := 0;
obj.size := 0;
end Initialize;
procedure Put(obj : in Buffer_Size_Item) is
begin
put("time: "); standards_io.natural_io.put(obj.time); put ( "; " );
put("size: "); standards_io.natural_io.put(obj.size); put ( "; " );
end Put;
procedure Put(obj : in Buffer_Size_Item_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Buffer_Size_Item; result : in out Unbounded_String) is
begin
if (XML_String(obj.time) /= Empty_String) then
result := result & to_unbounded_string("");
end if;
if (XML_String(obj.size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.size) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Buffer_Size_Item) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Buffer_Size_Item_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Buffer_Size_Item) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Buffer_Size_Item ) return Buffer_Size_Item_Ptr is
New_Buffer_Size_Item : Buffer_Size_Item_Ptr;
begin
New_Buffer_Size_Item := new Buffer_Size_Item'(obj);
return (New_Buffer_Size_Item);
end Copy;
function Copy ( obj : in Buffer_Size_Item_Ptr ) return Buffer_Size_Item_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Density_Item =--------
procedure Initialize(obj : out Density_Item) is
begin
obj.response_time := 0;
obj.probability := 0.0;
end Initialize;
procedure Put(obj : in Density_Item) is
begin
put("response_time: "); standards_io.natural_io.put(obj.response_time); put ( "; " );
put("probability: "); standards_io.double_io.put(obj.probability); put ( "; " );
end Put;
procedure Put(obj : in Density_Item_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Density_Item; result : in out Unbounded_String) is
begin
if (XML_String(obj.response_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.response_time) & to_unbounded_string("");
end if;
if (XML_String(obj.probability) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.probability) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Density_Item) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Density_Item_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Density_Item) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Density_Item ) return Density_Item_Ptr is
New_Density_Item : Density_Item_Ptr;
begin
New_Density_Item := new Density_Item'(obj);
return (New_Density_Item);
end Copy;
function Copy ( obj : in Density_Item_Ptr ) return Density_Item_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Deadlock_Item =--------
procedure Initialize(obj : out Deadlock_Item) is
begin
obj.time := 0;
obj.task_name := empty_string;
obj.resource_name := empty_string;
end Initialize;
procedure Put(obj : in Deadlock_Item) is
begin
put("time: "); standards_io.natural_io.put(obj.time); put ( "; " );
put("task_name: "); put(obj.task_name); put ( "; " );
put("resource_name: "); put(obj.resource_name); put ( "; " );
end Put;
procedure Put(obj : in Deadlock_Item_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Deadlock_Item; result : in out Unbounded_String) is
begin
if (XML_String(obj.time) /= Empty_String) then
result := result & to_unbounded_string("");
end if;
if (XML_String(obj.task_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.task_name) & to_unbounded_string("");
end if;
if (XML_String(obj.resource_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.resource_name) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Deadlock_Item) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Deadlock_Item_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Deadlock_Item) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Deadlock_Item ) return Deadlock_Item_Ptr is
New_Deadlock_Item : Deadlock_Item_Ptr;
begin
New_Deadlock_Item := new Deadlock_Item'(obj);
return (New_Deadlock_Item);
end Copy;
function Copy ( obj : in Deadlock_Item_Ptr ) return Deadlock_Item_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Priority_Inversion_Item =--------
procedure Initialize(obj : out Priority_Inversion_Item) is
begin
obj.start_time := 0;
obj.end_time := 0;
obj.task_name := empty_string;
obj.resource_name := empty_string;
end Initialize;
procedure Put(obj : in Priority_Inversion_Item) is
begin
put("start_time: "); standards_io.natural_io.put(obj.start_time); put ( "; " );
put("end_time: "); standards_io.natural_io.put(obj.end_time); put ( "; " );
put("task_name: "); put(obj.task_name); put ( "; " );
put("resource_name: "); put(obj.resource_name); put ( "; " );
end Put;
procedure Put(obj : in Priority_Inversion_Item_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Priority_Inversion_Item; result : in out Unbounded_String) is
begin
if (XML_String(obj.start_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.start_time) & to_unbounded_string("");
end if;
if (XML_String(obj.end_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.end_time) & to_unbounded_string("");
end if;
if (XML_String(obj.task_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.task_name) & to_unbounded_string("");
end if;
if (XML_String(obj.resource_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.resource_name) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Priority_Inversion_Item) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Priority_Inversion_Item_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Priority_Inversion_Item) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Priority_Inversion_Item ) return Priority_Inversion_Item_Ptr is
New_Priority_Inversion_Item : Priority_Inversion_Item_Ptr;
begin
New_Priority_Inversion_Item := new Priority_Inversion_Item'(obj);
return (New_Priority_Inversion_Item);
end Copy;
function Copy ( obj : in Priority_Inversion_Item_Ptr ) return Priority_Inversion_Item_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Task_Release_Record =--------
procedure Initialize(obj : in out Task_Release_Record) is
begin
generate_id( framework_id, obj.cheddar_private_id );
obj.task_name := empty_string;
obj.task_index := 0;
obj.capacity := 0;
obj.release_time := 0;
obj.finish_time := 0;
obj.deadline := 0;
obj.completed := false;
end Initialize;
function Copy ( obj : in Task_Release_Record ) return Task_Release_Record_Ptr is
New_Task_Release_Record : Task_Release_Record_Ptr;
begin
New_Task_Release_Record := new Task_Release_Record'(obj);
return (New_Task_Release_Record);
end Copy;
function Copy ( obj : in Task_Release_Record_Ptr ) return Task_Release_Record_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Task_Release_Record) is
begin
put("cheddar_private_id: "); put(obj.cheddar_private_id); put ( "; " );
put("task_name: "); put(obj.task_name); put ( "; " );
put("task_index: "); standards_io.natural_io.put(obj.task_index); put ( "; " );
put("capacity: "); standards_io.natural_io.put(obj.capacity); put ( "; " );
put("release_time: "); standards_io.natural_io.put(obj.release_time); put ( "; " );
put("finish_time: "); standards_io.natural_io.put(obj.finish_time); put ( "; " );
put("deadline: "); standards_io.natural_io.put(obj.deadline); put ( "; " );
put("completed: "); standards_io.boolean_io.put(obj.completed); put ( "; " );
end Put;
procedure Put(obj : in Task_Release_Record_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Task_Release_Record_Ptr) is
begin
Put ( To_String ( Obj.cheddar_private_id ) );
end Put_Name;
function type_of ( obj : in Task_Release_Record ) 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("SCHEDULING_ANALYSIS.TASK_RELEASE_RECORD");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Task_Release_Record_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Task_Release_Record; result : in out Unbounded_String) is
begin
if (XML_String(obj.task_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.task_name) & to_unbounded_string("");
end if;
if (XML_String(obj.task_index) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.task_index) & to_unbounded_string("");
end if;
if (XML_String(obj.capacity) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.capacity) & to_unbounded_string("");
end if;
if (XML_String(obj.release_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.release_time) & to_unbounded_string("");
end if;
if (XML_String(obj.finish_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.finish_time) & to_unbounded_string("");
end if;
if (XML_String(obj.deadline) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.deadline) & to_unbounded_string("");
end if;
if (XML_String(obj.completed) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.completed) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Task_Release_Record) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Task_Release_Record_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Task_Release_Record) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Task_Release_Record_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Relative_Priority_Record =--------
procedure Initialize(obj : out Relative_Priority_Record) is
begin
obj.higher_priority_task := empty_string;
obj.hpt_index := 0;
obj.lower_priority_task := empty_string;
obj.lpt_index := 0;
end Initialize;
procedure Put(obj : in Relative_Priority_Record) is
begin
put("higher_priority_task: "); put(obj.higher_priority_task); put ( "; " );
put("hpt_index: "); standards_io.natural_io.put(obj.hpt_index); put ( "; " );
put("lower_priority_task: "); put(obj.lower_priority_task); put ( "; " );
put("lpt_index: "); standards_io.natural_io.put(obj.lpt_index); put ( "; " );
end Put;
procedure Put(obj : in Relative_Priority_Record_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Relative_Priority_Record; result : in out Unbounded_String) is
begin
if (XML_String(obj.higher_priority_task) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.higher_priority_task) & to_unbounded_string("");
end if;
if (XML_String(obj.hpt_index) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.hpt_index) & to_unbounded_string("");
end if;
if (XML_String(obj.lower_priority_task) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.lower_priority_task) & to_unbounded_string("");
end if;
if (XML_String(obj.lpt_index) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.lpt_index) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Relative_Priority_Record) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Relative_Priority_Record_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Relative_Priority_Record) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Relative_Priority_Record ) return Relative_Priority_Record_Ptr is
New_Relative_Priority_Record : Relative_Priority_Record_Ptr;
begin
New_Relative_Priority_Record := new Relative_Priority_Record'(obj);
return (New_Relative_Priority_Record);
end Copy;
function Copy ( obj : in Relative_Priority_Record_Ptr ) return Relative_Priority_Record_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Ceiling_Priority_Record =--------
procedure Initialize(obj : out Ceiling_Priority_Record) is
begin
obj.resource_name := empty_string;
obj.ceiling_priority := 0;
end Initialize;
procedure Put(obj : in Ceiling_Priority_Record) is
begin
put("resource_name: "); put(obj.resource_name); put ( "; " );
put("ceiling_priority: "); put(obj.ceiling_priority); put ( "; " );
end Put;
procedure Put(obj : in Ceiling_Priority_Record_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Ceiling_Priority_Record; result : in out Unbounded_String) is
begin
if (XML_String(obj.resource_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.resource_name) & to_unbounded_string("");
end if;
if (XML_String(obj.ceiling_priority) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.ceiling_priority) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Ceiling_Priority_Record) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Ceiling_Priority_Record_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Ceiling_Priority_Record) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Ceiling_Priority_Record ) return Ceiling_Priority_Record_Ptr is
New_Ceiling_Priority_Record : Ceiling_Priority_Record_Ptr;
begin
New_Ceiling_Priority_Record := new Ceiling_Priority_Record'(obj);
return (New_Ceiling_Priority_Record);
end Copy;
function Copy ( obj : in Ceiling_Priority_Record_Ptr ) return Ceiling_Priority_Record_Ptr is
begin
return copy(obj.all);
end Copy;
End Scheduling_Analysis;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Time_Unit_Events is
function XML_String(obj : in Time_Unit_Event_Type) return Unbounded_String is
begin
return to_unbounded_string(Time_Unit_Event_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Time_Unit_Event_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
procedure Initialize (obj : out Time_Unit_Event_Ptr) is
begin
obj := NULL;
end Initialize;
procedure Put(obj : in Time_Unit_Event_Ptr) is
begin
if (obj /= NULL) then
put("type_of_event: "); put(obj.type_of_event); put ( "; " );
put ( "value: " );
case obj.type_of_event is
when start_of_task_capacity =>
put("start_task: "); if obj.start_task /= null then put(obj.start_task.all); else put("null"); end if;put ( "; " );
when end_of_task_capacity =>
put("end_task: "); if obj.end_task /= null then put(obj.end_task.all); else put("null"); end if;put ( "; " );
when write_to_buffer =>
put("write_buffer: "); if obj.write_buffer /= null then put(obj.write_buffer.all); else put("null"); end if;put ( "; " );
put("write_task: "); if obj.write_task /= null then put(obj.write_task.all); else put("null"); end if;put ( "; " );
put("write_size: "); standards_io.natural_io.put(obj.write_size); put ( "; " );
put("write_buffer_current_data_size: "); standards_io.natural_io.put(obj.write_buffer_current_data_size); put ( "; " );
when read_from_buffer =>
put("read_buffer: "); if obj.read_buffer /= null then put(obj.read_buffer.all); else put("null"); end if;put ( "; " );
put("read_task: "); if obj.read_task /= null then put(obj.read_task.all); else put("null"); end if;put ( "; " );
put("read_size: "); standards_io.natural_io.put(obj.read_size); put ( "; " );
put("read_buffer_current_data_size: "); standards_io.natural_io.put(obj.read_buffer_current_data_size); put ( "; " );
when buffer_overflow =>
put("overflow_buffer: "); if obj.overflow_buffer /= null then put(obj.overflow_buffer.all); else put("null"); end if;put ( "; " );
put("overflow_task: "); if obj.overflow_task /= null then put(obj.overflow_task.all); else put("null"); end if;put ( "; " );
put("overflow_write_size: "); standards_io.natural_io.put(obj.overflow_write_size); put ( "; " );
put("overflow_buffer_current_data_size: "); standards_io.natural_io.put(obj.overflow_buffer_current_data_size); put ( "; " );
when buffer_underflow =>
put("underflow_buffer: "); if obj.underflow_buffer /= null then put(obj.underflow_buffer.all); else put("null"); end if;put ( "; " );
put("underflow_task: "); if obj.underflow_task /= null then put(obj.underflow_task.all); else put("null"); end if;put ( "; " );
put("underflow_read_size: "); standards_io.natural_io.put(obj.underflow_read_size); put ( "; " );
put("underflow_buffer_current_data_size: "); standards_io.natural_io.put(obj.underflow_buffer_current_data_size); put ( "; " );
when context_switch_overhead =>
put("switched_task: "); if obj.switched_task /= null then put(obj.switched_task.all); else put("null"); end if;put ( "; " );
when running_task =>
put("running_core: "); put(obj.running_core); put ( "; " );
put("running_task: "); if obj.running_task /= null then put(obj.running_task.all); else put("null"); end if;put ( "; " );
put("current_priority: "); put(obj.current_priority); put ( "; " );
put("CRPD: "); standards_io.natural_io.put(obj.CRPD); put ( "; " );
put("cache_state: "); put(obj.cache_state); put ( "; " );
when task_activation =>
put("activation_task: "); if obj.activation_task /= null then put(obj.activation_task.all); else put("null"); end if;put ( "; " );
when allocate_resource =>
put("allocate_task: "); if obj.allocate_task /= null then put(obj.allocate_task.all); else put("null"); end if;put ( "; " );
put("allocate_resource: "); if obj.allocate_resource /= null then put(obj.allocate_resource.all); else put("null"); end if;put ( "; " );
when release_resource =>
put("release_task: "); if obj.release_task /= null then put(obj.release_task.all); else put("null"); end if;put ( "; " );
put("release_resource: "); if obj.release_resource /= null then put(obj.release_resource.all); else put("null"); end if;put ( "; " );
when wait_for_resource =>
put("wait_for_resource_task: "); if obj.wait_for_resource_task /= null then put(obj.wait_for_resource_task.all); else put("null"); end if;put ( "; " );
put("wait_for_resource: "); if obj.wait_for_resource /= null then put(obj.wait_for_resource.all); else put("null"); end if;put ( "; " );
when send_message =>
put("send_task: "); if obj.send_task /= null then put(obj.send_task.all); else put("null"); end if;put ( "; " );
put("send_message: "); if obj.send_message /= null then put(obj.send_message.all); else put("null"); end if;put ( "; " );
when receive_message =>
put("receive_task: "); if obj.receive_task /= null then put(obj.receive_task.all); else put("null"); end if;put ( "; " );
put("receive_message: "); if obj.receive_message /= null then put(obj.receive_message.all); else put("null"); end if;put ( "; " );
when wait_for_memory =>
put("wait_for_memory_task: "); if obj.wait_for_memory_task /= null then put(obj.wait_for_memory_task.all); else put("null"); end if;put ( "; " );
put("wait_for_cache: "); if obj.wait_for_cache /= null then put(obj.wait_for_cache.all); else put("null"); end if;put ( "; " );
when address_space_activation =>
put("activation_address_space: "); put(obj.activation_address_space); put ( "; " );
put("duration: "); standards_io.natural_io.put(obj.duration); put ( "; " );
when preemption =>
put("preempted_task: "); if obj.preempted_task /= null then put(obj.preempted_task.all); else put("null"); end if;put ( "; " );
put("preempting_task: "); if obj.preempting_task /= null then put(obj.preempting_task.all); else put("null"); end if;put ( "; " );
put("evicted_ucbs: "); standards_io.natural_io.put(obj.evicted_ucbs); put ( "; " );
when discard_missed_deadline =>
put("missed_deadline_task: "); if obj.missed_deadline_task /= null then put(obj.missed_deadline_task.all); else put("null"); end if;put ( "; " );
when energy =>
put("energy_battery: "); if obj.energy_battery /= null then put(obj.energy_battery.all); else put("null"); end if;put ( "; " );
put("energy_level: "); standards_io.natural_io.put(obj.energy_level); put ( "; " );
when tdma_slot =>
put("slot_duration: "); standards_io.natural_io.put(obj.slot_duration); put ( "; " );
put("slot_message: "); if obj.slot_message /= null then put(obj.slot_message.all); else put("null"); end if;put ( "; " );
when mode_change =>
put("from_mode: "); standards_io.natural_io.put(obj.from_mode); put ( "; " );
put("to_mode: "); standards_io.natural_io.put(obj.to_mode); put ( "; " );
end case;
end if;
New_Line;
end Put;
function Copy ( obj : in Time_Unit_Event ) return Time_Unit_Event_Ptr is
New_Time_Unit_Event : Time_Unit_Event_Ptr;
begin
New_Time_Unit_Event := new Time_Unit_Event'(obj);
return (New_Time_Unit_Event);
end Copy;
function Copy ( obj : in Time_Unit_Event_Ptr ) return Time_Unit_Event_Ptr is
begin
return copy(obj.all);
end Copy;
function XML_String(obj : in Time_Unit_Event) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
if (XML_String(obj.type_of_event) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.type_of_event) & to_unbounded_string("");
end if;
case obj.type_of_event is
when start_of_task_capacity =>
result := result & to_unbounded_string("");
when end_of_task_capacity =>
result := result & to_unbounded_string("");
when write_to_buffer =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
if (XML_String(obj.write_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.write_size) & to_unbounded_string("");
end if;
if (XML_String(obj.write_buffer_current_data_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.write_buffer_current_data_size) & to_unbounded_string("");
end if;
when read_from_buffer =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
if (XML_String(obj.read_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.read_size) & to_unbounded_string("");
end if;
if (XML_String(obj.read_buffer_current_data_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.read_buffer_current_data_size) & to_unbounded_string("");
end if;
when buffer_overflow =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
if (XML_String(obj.overflow_write_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.overflow_write_size) & to_unbounded_string("");
end if;
if (XML_String(obj.overflow_buffer_current_data_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.overflow_buffer_current_data_size) & to_unbounded_string("");
end if;
when buffer_underflow =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
if (XML_String(obj.underflow_read_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.underflow_read_size) & to_unbounded_string("");
end if;
if (XML_String(obj.underflow_buffer_current_data_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.underflow_buffer_current_data_size) & to_unbounded_string("");
end if;
when context_switch_overhead =>
result := result & to_unbounded_string("");
when running_task =>
if (XML_String(obj.running_core) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.running_core) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
if (XML_String(obj.current_priority) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.current_priority) & to_unbounded_string("");
end if;
if (XML_String(obj.CRPD) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.CRPD) & to_unbounded_string("");
end if;
if (XML_String(obj.cache_state) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cache_state) & to_unbounded_string("");
end if;
when task_activation =>
result := result & to_unbounded_string("");
when allocate_resource =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
when release_resource =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
when wait_for_resource =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
when send_message =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
when receive_message =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
when wait_for_memory =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
when address_space_activation =>
if (XML_String(obj.activation_address_space) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.activation_address_space) & to_unbounded_string("");
end if;
if (XML_String(obj.duration) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.duration) & to_unbounded_string("");
end if;
when preemption =>
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
if (XML_String(obj.evicted_ucbs) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.evicted_ucbs) & to_unbounded_string("");
end if;
when discard_missed_deadline =>
result := result & to_unbounded_string("");
when energy =>
result := result & to_unbounded_string("");
if (XML_String(obj.energy_level) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.energy_level) & to_unbounded_string("");
end if;
when tdma_slot =>
if (XML_String(obj.slot_duration) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.slot_duration) & to_unbounded_string("");
end if;
result := result & to_unbounded_string("");
when mode_change =>
if (XML_String(obj.from_mode) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.from_mode) & to_unbounded_string("");
end if;
if (XML_String(obj.to_mode) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.to_mode) & to_unbounded_string("");
end if;
end case;
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Time_Unit_Event_Ptr) return Unbounded_String is
begin
return XML_String(obj.all);
end XML_String;
function XML_Ref_String(obj : in Time_Unit_Event) 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 Time_Unit_Event_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Time_Unit_Events;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Offsets is
-- --------= Offset_Type =--------
procedure Initialize(obj : out Offset_Type) is
begin
obj.offset_value := 0;
obj.activation := 0;
end Initialize;
procedure Put(obj : in Offset_Type) is
begin
put("offset_value: "); standards_io.natural_io.put(obj.offset_value); put ( "; " );
put("activation: "); standards_io.natural_io.put(obj.activation); put ( "; " );
end Put;
procedure Put(obj : in Offset_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Offset_Type; result : in out Unbounded_String) is
begin
if (XML_String(obj.offset_value) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.offset_value) & to_unbounded_string("");
end if;
if (XML_String(obj.activation) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.activation) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Offset_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Offset_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Offset_Type) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Offset_Type ) return Offset_Type_Ptr is
New_Offset_Type : Offset_Type_Ptr;
begin
New_Offset_Type := new Offset_Type'(obj);
return (New_Offset_Type);
end Copy;
function Copy ( obj : in Offset_Type_Ptr ) return Offset_Type_Ptr is
begin
return copy(obj.all);
end Copy;
End Offsets;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body CFG_Nodes is
function XML_String(obj : in CFG_Graph_Type) return Unbounded_String is
begin
return to_unbounded_string(CFG_Graph_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in CFG_Graph_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in CFG_Node_Type) return Unbounded_String is
begin
return to_unbounded_string(CFG_Node_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in CFG_Node_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= CFG_Node =--------
procedure Initialize(obj : in out CFG_Node) is
begin
initialize(Named_Object(obj));
obj.graph_type := CFG_Basic_Block;
obj.node_type := Start_Node;
obj.object_type := CFG_Node_Object_Type;
end Initialize;
function Copy ( obj : in CFG_Node ) return CFG_Node_Ptr is
New_CFG_Node : CFG_Node_Ptr;
begin
New_CFG_Node := new CFG_Node'(obj);
return (New_CFG_Node);
end Copy;
function Copy ( obj : in CFG_Node_Ptr ) return CFG_Node_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in CFG_Node) is
begin
put(Named_Object(obj));
put("graph_type: "); put(obj.graph_type); put ( "; " );
put("node_type: "); put(obj.node_type); put ( "; " );
end Put;
procedure Put(obj : in CFG_Node_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in CFG_Node_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in CFG_Node) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in CFG_Node_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in CFG_Node ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CFG_NODES.CFG_NODE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in CFG_Node_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in CFG_Node; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.graph_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.graph_type) & to_unbounded_string("");
end if;
if (XML_String(obj.node_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.node_type) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in CFG_Node) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in CFG_Node_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in CFG_Node) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in CFG_Node_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End CFG_Nodes;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Execution_Units;
use Execution_Units.Execution_Units_Table_Package;
use Execution_Units.Execution_Unit_Model_Type_io;
with Offsets;
use Offsets;
use offsets.Offsets_Table_Package;
with Parameters;
use Parameters;
use parameters.User_Defined_Parameters_Table_Package;
with MILS_Security;
use MILS_Security.MILS_Confidentiality_Level_Type_io;
use MILS_Security.MILS_Integrity_Level_Type_io;
use MILS_Security.MILS_Component_Type_io;
use MILS_Security.MILS_Task_Type_io;
Package Body Tasks is
function XML_String(obj : in Tasks_Type) return Unbounded_String is
begin
return to_unbounded_string(Tasks_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Tasks_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Policies) return Unbounded_String is
begin
return to_unbounded_string(Policies'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Policies) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Generic_Task =--------
procedure Initialize(obj : in out Generic_Task) is
begin
initialize(Named_Object(obj));
obj.task_type := Periodic_Type;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := LiuLayland_Execution_Unit;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Sched_Fifo;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := UnClassified;
obj.mils_integrity_level := Low;
obj.mils_component := SLS;
obj.mils_task := Application;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.object_type := Task_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Task ) return Generic_Task_Ptr is
New_Generic_Task : Generic_Task_Ptr;
begin
New_Generic_Task := new Generic_Task'(obj);
return (New_Generic_Task);
end Copy;
function Copy ( obj : in Generic_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Task) is
begin
put(Named_Object(obj));
put("task_type: "); put(obj.task_type); put ( "; " );
put("cpu_name: "); put(obj.cpu_name); put ( "; " );
put("address_space_name: "); put(obj.address_space_name); put ( "; " );
put("core_name: "); put(obj.core_name); put ( "; " );
put("capacity_model: "); put(obj.capacity_model); put ( "; " );
put("capacity: "); standards_io.natural_io.put(obj.capacity); put ( "; " );
put("capacities: "); put(obj.capacities); put ( "; " );
put("qualities: "); put(obj.qualities); put ( "; " );
put("energy_consumption: "); standards_io.natural_io.put(obj.energy_consumption); put ( "; " );
put("deadline: "); standards_io.natural_io.put(obj.deadline); put ( "; " );
put("start_time: "); standards_io.natural_io.put(obj.start_time); put ( "; " );
put("priority: "); put(obj.priority); put ( "; " );
put("blocking_time: "); standards_io.natural_io.put(obj.blocking_time); put ( "; " );
put("policy: "); put(obj.policy); put ( "; " );
put("offsets: "); put(obj.offsets); put ( "; " );
put("text_memory_size: "); standards_io.natural_io.put(obj.text_memory_size); put ( "; " );
put("text_memory_start_address: "); standards_io.natural_io.put(obj.text_memory_start_address); put ( "; " );
put("stack_memory_size: "); standards_io.natural_io.put(obj.stack_memory_size); put ( "; " );
put("parameters: "); put(obj.parameters); put ( "; " );
put("criticality: "); standards_io.natural_io.put(obj.criticality); put ( "; " );
put("context_switch_overhead: "); standards_io.natural_io.put(obj.context_switch_overhead); put ( "; " );
put("cfg_name: "); put(obj.cfg_name); put ( "; " );
put("cfg_relocatable: "); standards_io.boolean_io.put(obj.cfg_relocatable); put ( "; " );
put("cache_access_profile_name: "); put(obj.cache_access_profile_name); put ( "; " );
put("mils_confidentiality_level: "); put(obj.mils_confidentiality_level); put ( "; " );
put("mils_integrity_level: "); put(obj.mils_integrity_level); put ( "; " );
put("mils_component: "); put(obj.mils_component); put ( "; " );
put("mils_task: "); put(obj.mils_task); put ( "; " );
put("mils_compliant: "); standards_io.boolean_io.put(obj.mils_compliant); put ( "; " );
put("access_memory_number: "); standards_io.natural_io.put(obj.access_memory_number); put ( "; " );
put("maximum_number_of_memory_request_per_job: "); standards_io.natural_io.put(obj.maximum_number_of_memory_request_per_job); put ( "; " );
put("seed: "); standards_io.natural_io.put(obj.seed); put ( "; " );
put("predictable: "); standards_io.boolean_io.put(obj.predictable); put ( "; " );
end Put;
procedure Put(obj : in Generic_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Generic_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Generic_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Generic_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.task_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.task_type) & to_unbounded_string("");
end if;
if (XML_String(obj.cpu_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cpu_name) & to_unbounded_string("");
end if;
if (XML_String(obj.address_space_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.address_space_name) & to_unbounded_string("");
end if;
if (XML_String(obj.core_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.core_name) & to_unbounded_string("");
end if;
if (XML_String(obj.capacity_model) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.capacity_model) & to_unbounded_string("");
end if;
if (XML_String(obj.capacity) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.capacity) & to_unbounded_string("");
end if;
if (XML_String(obj.capacities) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.capacities) & to_unbounded_string("");
end if;
if (XML_String(obj.qualities) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.qualities) & to_unbounded_string("");
end if;
if (XML_String(obj.energy_consumption) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.energy_consumption) & to_unbounded_string("");
end if;
if (XML_String(obj.deadline) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.deadline) & to_unbounded_string("");
end if;
if (XML_String(obj.start_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.start_time) & to_unbounded_string("");
end if;
if (XML_String(obj.priority) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.priority) & to_unbounded_string("");
end if;
if (XML_String(obj.blocking_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.blocking_time) & to_unbounded_string("");
end if;
if (XML_String(obj.policy) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.policy) & to_unbounded_string("");
end if;
if (XML_String(obj.offsets) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.offsets) & to_unbounded_string("");
end if;
if (XML_String(obj.text_memory_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.text_memory_size) & to_unbounded_string("");
end if;
if (XML_String(obj.text_memory_start_address) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.text_memory_start_address) & to_unbounded_string("");
end if;
if (XML_String(obj.stack_memory_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.stack_memory_size) & to_unbounded_string("");
end if;
if (XML_String(obj.parameters) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.parameters) & to_unbounded_string("");
end if;
if (XML_String(obj.criticality) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.criticality) & to_unbounded_string("");
end if;
if (XML_String(obj.context_switch_overhead) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.context_switch_overhead) & to_unbounded_string("");
end if;
if (XML_String(obj.cfg_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cfg_name) & to_unbounded_string("");
end if;
if (XML_String(obj.cfg_relocatable) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cfg_relocatable) & to_unbounded_string("");
end if;
if (XML_String(obj.cache_access_profile_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cache_access_profile_name) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_confidentiality_level) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_confidentiality_level) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_integrity_level) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_integrity_level) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_component) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_component) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_task) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_task) & to_unbounded_string("");
end if;
if (XML_String(obj.mils_compliant) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.mils_compliant) & to_unbounded_string("");
end if;
if (XML_String(obj.access_memory_number) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.access_memory_number) & to_unbounded_string("");
end if;
if (XML_String(obj.maximum_number_of_memory_request_per_job) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.maximum_number_of_memory_request_per_job) & to_unbounded_string("");
end if;
if (XML_String(obj.seed) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.seed) & to_unbounded_string("");
end if;
if (XML_String(obj.predictable) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.predictable) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Periodic_Task =--------
procedure Initialize(obj : in out Periodic_Task) is
begin
initialize(Generic_Task(obj));
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
obj.task_type := Periodic_Type;
end Initialize;
function Copy ( obj : in Periodic_Task ) return Generic_Task_Ptr is
New_Periodic_Task : Periodic_Task_Ptr;
begin
New_Periodic_Task := new Periodic_Task'(obj);
return Generic_Task_Ptr(New_Periodic_Task);
end Copy;
function Copy ( obj : in Periodic_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Periodic_Task) is
begin
put(Generic_Task(obj));
put("period: "); standards_io.natural_io.put(obj.period); put ( "; " );
put("jitter: "); standards_io.natural_io.put(obj.jitter); put ( "; " );
put("every: "); standards_io.natural_io.put(obj.every); put ( "; " );
put("completion_time: "); standards_io.natural_io.put(obj.completion_time); put ( "; " );
end Put;
procedure Put(obj : in Periodic_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Periodic_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Periodic_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Periodic_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Periodic_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Periodic_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Periodic_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Task(obj), result);
if (XML_String(obj.period) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.period) & to_unbounded_string("");
end if;
if (XML_String(obj.jitter) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.jitter) & to_unbounded_string("");
end if;
if (XML_String(obj.every) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.every) & to_unbounded_string("");
end if;
if (XML_String(obj.completion_time) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.completion_time) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Periodic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Periodic_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Periodic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Periodic_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Aperiodic_Task =--------
procedure Initialize(obj : in out Aperiodic_Task) is
begin
initialize(Generic_Task(obj));
obj.task_type := Aperiodic_Type;
end Initialize;
function Copy ( obj : in Aperiodic_Task ) return Generic_Task_Ptr is
New_Aperiodic_Task : Aperiodic_Task_Ptr;
begin
New_Aperiodic_Task := new Aperiodic_Task'(obj);
return Generic_Task_Ptr(New_Aperiodic_Task);
end Copy;
function Copy ( obj : in Aperiodic_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Aperiodic_Task) is
begin
put(Generic_Task(obj));
end Put;
procedure Put(obj : in Aperiodic_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Aperiodic_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Aperiodic_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Aperiodic_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Aperiodic_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.APERIODIC_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Aperiodic_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Aperiodic_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Task(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Aperiodic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Aperiodic_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Aperiodic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Aperiodic_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Poisson_Task =--------
procedure Initialize(obj : in out Poisson_Task) is
begin
initialize(Periodic_Task(obj));
obj.task_type := Poisson_Type;
end Initialize;
function Copy ( obj : in Poisson_Task ) return Generic_Task_Ptr is
New_Poisson_Task : Poisson_Task_Ptr;
begin
New_Poisson_Task := new Poisson_Task'(obj);
return Generic_Task_Ptr(New_Poisson_Task);
end Copy;
function Copy ( obj : in Poisson_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Poisson_Task) is
begin
put(Periodic_Task(obj));
end Put;
procedure Put(obj : in Poisson_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Poisson_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Poisson_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Poisson_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Poisson_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.POISSON_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Poisson_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Poisson_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Periodic_Task(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Poisson_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Poisson_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Poisson_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Poisson_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Timed_Task =--------
procedure Initialize(obj : in out Timed_Task) is
begin
initialize(Periodic_Task(obj));
obj.task_type := Timed_Type;
end Initialize;
function Copy ( obj : in Timed_Task ) return Generic_Task_Ptr is
New_Timed_Task : Timed_Task_Ptr;
begin
New_Timed_Task := new Timed_Task'(obj);
return Generic_Task_Ptr(New_Timed_Task);
end Copy;
function Copy ( obj : in Timed_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Timed_Task) is
begin
put(Periodic_Task(obj));
end Put;
procedure Put(obj : in Timed_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Timed_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Timed_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Timed_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Timed_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.TIMED_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Timed_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Timed_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Periodic_Task(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Timed_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Timed_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Timed_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Timed_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Sporadic_Task =--------
procedure Initialize(obj : in out Sporadic_Task) is
begin
initialize(Poisson_Task(obj));
obj.task_type := Sporadic_Type;
end Initialize;
function Copy ( obj : in Sporadic_Task ) return Generic_Task_Ptr is
New_Sporadic_Task : Sporadic_Task_Ptr;
begin
New_Sporadic_Task := new Sporadic_Task'(obj);
return Generic_Task_Ptr(New_Sporadic_Task);
end Copy;
function Copy ( obj : in Sporadic_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Sporadic_Task) is
begin
put(Poisson_Task(obj));
end Put;
procedure Put(obj : in Sporadic_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Sporadic_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Sporadic_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Sporadic_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Sporadic_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.POISSON_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.SPORADIC_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Sporadic_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Sporadic_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Poisson_Task(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Sporadic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Sporadic_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Sporadic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Sporadic_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Parametric_Task =--------
procedure Initialize(obj : in out Parametric_Task) is
begin
initialize(Poisson_Task(obj));
obj.activation_rule := empty_string;
obj.task_type := Parametric_Type;
end Initialize;
function Copy ( obj : in Parametric_Task ) return Generic_Task_Ptr is
New_Parametric_Task : Parametric_Task_Ptr;
begin
New_Parametric_Task := new Parametric_Task'(obj);
return Generic_Task_Ptr(New_Parametric_Task);
end Copy;
function Copy ( obj : in Parametric_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Parametric_Task) is
begin
put(Poisson_Task(obj));
put("activation_rule: "); put(obj.activation_rule); put ( "; " );
end Put;
procedure Put(obj : in Parametric_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Parametric_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Parametric_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Parametric_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Parametric_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.POISSON_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PARAMETRIC_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Parametric_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Parametric_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Poisson_Task(obj), result);
if (XML_String(obj.activation_rule) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.activation_rule) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Parametric_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Parametric_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Parametric_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Parametric_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Scheduling_Task =--------
procedure Initialize(obj : in out Scheduling_Task) is
begin
initialize(Poisson_Task(obj));
obj.task_type := Scheduling_Task_type;
end Initialize;
function Copy ( obj : in Scheduling_Task ) return Generic_Task_Ptr is
New_Scheduling_Task : Scheduling_Task_Ptr;
begin
New_Scheduling_Task := new Scheduling_Task'(obj);
return Generic_Task_Ptr(New_Scheduling_Task);
end Copy;
function Copy ( obj : in Scheduling_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Scheduling_Task) is
begin
put(Poisson_Task(obj));
end Put;
procedure Put(obj : in Scheduling_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Scheduling_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Scheduling_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Scheduling_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Scheduling_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.POISSON_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.SCHEDULING_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Scheduling_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Scheduling_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Poisson_Task(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Scheduling_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Scheduling_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Scheduling_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Scheduling_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Frame_Task =--------
procedure Initialize(obj : in out Frame_Task) is
begin
initialize(Periodic_Task(obj));
obj.interarrival := 0;
obj.task_type := Frame_Task_type;
end Initialize;
function Copy ( obj : in Frame_Task ) return Generic_Task_Ptr is
New_Frame_Task : Frame_Task_Ptr;
begin
New_Frame_Task := new Frame_Task'(obj);
return Generic_Task_Ptr(New_Frame_Task);
end Copy;
function Copy ( obj : in Frame_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Frame_Task) is
begin
put(Periodic_Task(obj));
put("interarrival: "); standards_io.natural_io.put(obj.interarrival); put ( "; " );
end Put;
procedure Put(obj : in Frame_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Frame_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Frame_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Frame_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Frame_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.FRAME_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Frame_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Frame_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Periodic_Task(obj), result);
if (XML_String(obj.interarrival) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.interarrival) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Frame_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Frame_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Frame_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Frame_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Sporadic_Inner_Periodic_Task =--------
procedure Initialize(obj : in out Sporadic_Inner_Periodic_Task) is
begin
initialize(Parametric_Task(obj));
obj.outer_period := 0;
obj.outer_duration := 0;
end Initialize;
function Copy ( obj : in Sporadic_Inner_Periodic_Task ) return Generic_Task_Ptr is
New_Sporadic_Inner_Periodic_Task : Sporadic_Inner_Periodic_Task_Ptr;
begin
New_Sporadic_Inner_Periodic_Task := new Sporadic_Inner_Periodic_Task'(obj);
return Generic_Task_Ptr(New_Sporadic_Inner_Periodic_Task);
end Copy;
function Copy ( obj : in Sporadic_Inner_Periodic_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Sporadic_Inner_Periodic_Task) is
begin
put(Parametric_Task(obj));
put("outer_period: "); standards_io.natural_io.put(obj.outer_period); put ( "; " );
put("outer_duration: "); standards_io.natural_io.put(obj.outer_duration); put ( "; " );
end Put;
procedure Put(obj : in Sporadic_Inner_Periodic_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Sporadic_Inner_Periodic_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Sporadic_Inner_Periodic_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Sporadic_Inner_Periodic_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Sporadic_Inner_Periodic_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.POISSON_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PARAMETRIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.SPORADIC_INNER_PERIODIC_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Sporadic_Inner_Periodic_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Sporadic_Inner_Periodic_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Parametric_Task(obj), result);
if (XML_String(obj.outer_period) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.outer_period) & to_unbounded_string("");
end if;
if (XML_String(obj.outer_duration) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.outer_duration) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Sporadic_Inner_Periodic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Sporadic_Inner_Periodic_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Sporadic_Inner_Periodic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Sporadic_Inner_Periodic_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Periodic_Inner_Periodic_Task =--------
procedure Initialize(obj : in out Periodic_Inner_Periodic_Task) is
begin
initialize(Sporadic_Inner_Periodic_Task(obj));
end Initialize;
function Copy ( obj : in Periodic_Inner_Periodic_Task ) return Generic_Task_Ptr is
New_Periodic_Inner_Periodic_Task : Periodic_Inner_Periodic_Task_Ptr;
begin
New_Periodic_Inner_Periodic_Task := new Periodic_Inner_Periodic_Task'(obj);
return Generic_Task_Ptr(New_Periodic_Inner_Periodic_Task);
end Copy;
function Copy ( obj : in Periodic_Inner_Periodic_Task_Ptr ) return Generic_Task_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Periodic_Inner_Periodic_Task) is
begin
put(Sporadic_Inner_Periodic_Task(obj));
end Put;
procedure Put(obj : in Periodic_Inner_Periodic_Task_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Periodic_Inner_Periodic_Task_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Periodic_Inner_Periodic_Task) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Periodic_Inner_Periodic_Task_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Periodic_Inner_Periodic_Task ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.GENERIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.POISSON_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PARAMETRIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.SPORADIC_INNER_PERIODIC_TASK");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("TASKS.PERIODIC_INNER_PERIODIC_TASK");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Periodic_Inner_Periodic_Task_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Periodic_Inner_Periodic_Task; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Sporadic_Inner_Periodic_Task(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in Periodic_Inner_Periodic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Periodic_Inner_Periodic_Task_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Periodic_Inner_Periodic_Task) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Periodic_Inner_Periodic_Task_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Tasks;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with CFG_Nodes;
use CFG_Nodes;
use CFG_Nodes.CFG_Nodes_Table_Package;
with CFG_Edges;
use CFG_Edges;
use CFG_Edges.CFG_Edges_Table_Package;
Package Body CFGs is
-- --------= CFG =--------
procedure Initialize(obj : in out CFG) is
begin
initialize(Named_Object(obj));
obj.object_type := CFG_Object_Type;
end Initialize;
function Copy ( obj : in CFG ) return CFG_Ptr is
New_CFG : CFG_Ptr;
begin
New_CFG := new CFG'(obj);
return (New_CFG);
end Copy;
function Copy ( obj : in CFG_Ptr ) return CFG_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in CFG) is
begin
put(Named_Object(obj));
put("nodes: "); put(obj.nodes); put ( "; " );
put("edges: "); put(obj.edges); put ( "; " );
end Put;
procedure Put(obj : in CFG_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in CFG_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in CFG) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in CFG_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in CFG ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CFGS.CFG");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in CFG_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in CFG; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.nodes) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.nodes) & to_unbounded_string("");
end if;
if (XML_String(obj.edges) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.edges) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in CFG) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in CFG_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in CFG) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in CFG_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End CFGs;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with CFG_Nodes;
use CFG_Nodes;
use CFG_Nodes.CFG_Nodes_Table_Package;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body DFG_Nodes is
-- --------= DFG_Variable =--------
procedure Initialize(obj : in out DFG_Variable) is
begin
initialize(Named_Object(obj));
end Initialize;
function Copy ( obj : in DFG_Variable ) return DFG_Variable_Ptr is
New_DFG_Variable : DFG_Variable_Ptr;
begin
New_DFG_Variable := new DFG_Variable'(obj);
return (New_DFG_Variable);
end Copy;
function Copy ( obj : in DFG_Variable_Ptr ) return DFG_Variable_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in DFG_Variable) is
begin
put(Named_Object(obj));
end Put;
procedure Put(obj : in DFG_Variable_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in DFG_Variable_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in DFG_Variable) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in DFG_Variable_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in DFG_Variable ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("DFG_NODES.DFG_VARIABLE");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in DFG_Variable_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in DFG_Variable; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
end Build_Attributes_XML_String;
function XML_String(obj : in DFG_Variable) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in DFG_Variable_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in DFG_Variable) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in DFG_Variable_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= DFG_Statement =--------
procedure Initialize(obj : in out DFG_Statement) is
begin
initialize(Named_Object(obj));
end Initialize;
function Copy ( obj : in DFG_Statement ) return DFG_Statement_Ptr is
New_DFG_Statement : DFG_Statement_Ptr;
begin
New_DFG_Statement := new DFG_Statement'(obj);
return (New_DFG_Statement);
end Copy;
function Copy ( obj : in DFG_Statement_Ptr ) return DFG_Statement_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in DFG_Statement) is
begin
put(Named_Object(obj));
put("Defined_Variable: "); if obj.Defined_Variable /= null then put(obj.Defined_Variable.all); else put("null"); end if;put ( "; " );
put("Used_Variables: "); put(obj.Used_Variables); put ( "; " );
end Put;
procedure Put(obj : in DFG_Statement_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in DFG_Statement_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in DFG_Statement) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in DFG_Statement_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in DFG_Statement ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("DFG_NODES.DFG_STATEMENT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in DFG_Statement_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in DFG_Statement; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
result := result & to_unbounded_string("");
if (XML_String(obj.Used_Variables) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Used_Variables) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in DFG_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in DFG_Statement_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in DFG_Statement) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in DFG_Statement_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= DFG_Cfg_Type =--------
procedure Initialize(obj : out DFG_Cfg_Type) is
begin
obj.Nb_Blocks := 0;
end Initialize;
procedure Put(obj : in DFG_Cfg_Type) is
begin
put("Blocks: "); put(obj.Blocks); put ( "; " );
put("Nb_Blocks: "); standards_io.natural_io.put(obj.Nb_Blocks); put ( "; " );
end Put;
procedure Put(obj : in DFG_Cfg_Type_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in DFG_Cfg_Type; result : in out Unbounded_String) is
begin
if (XML_String(obj.Blocks) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Blocks) & to_unbounded_string("");
end if;
if (XML_String(obj.Nb_Blocks) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Nb_Blocks) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in DFG_Cfg_Type) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in DFG_Cfg_Type_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in DFG_Cfg_Type) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in DFG_Cfg_Type ) return DFG_Cfg_Type_Ptr is
New_DFG_Cfg_Type : DFG_Cfg_Type_Ptr;
begin
New_DFG_Cfg_Type := new DFG_Cfg_Type'(obj);
return (New_DFG_Cfg_Type);
end Copy;
function Copy ( obj : in DFG_Cfg_Type_Ptr ) return DFG_Cfg_Type_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= DFG_Def_Use_Association =--------
procedure Initialize(obj : out DFG_Def_Use_Association) is
begin
null;
end Initialize;
procedure Put(obj : in DFG_Def_Use_Association) is
begin
put("Def_Variable: "); if obj.Def_Variable /= null then put(obj.Def_Variable.all); else put("null"); end if;put ( "; " );
put("Def_Statement: "); if obj.Def_Statement /= null then put(obj.Def_Statement.all); else put("null"); end if;put ( "; " );
put("Use_Statement: "); if obj.Use_Statement /= null then put(obj.Use_Statement.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in DFG_Def_Use_Association_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in DFG_Def_Use_Association; result : in out Unbounded_String) is
begin
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in DFG_Def_Use_Association) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in DFG_Def_Use_Association_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in DFG_Def_Use_Association) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in DFG_Def_Use_Association ) return DFG_Def_Use_Association_Ptr is
New_DFG_Def_Use_Association : DFG_Def_Use_Association_Ptr;
begin
New_DFG_Def_Use_Association := new DFG_Def_Use_Association'(obj);
return (New_DFG_Def_Use_Association);
end Copy;
function Copy ( obj : in DFG_Def_Use_Association_Ptr ) return DFG_Def_Use_Association_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= DFG_Var_Association =--------
procedure Initialize(obj : out DFG_Var_Association) is
begin
null;
end Initialize;
procedure Put(obj : in DFG_Var_Association) is
begin
put("Def_Variable: "); if obj.Def_Variable /= null then put(obj.Def_Variable.all); else put("null"); end if;put ( "; " );
put("Statement: "); if obj.Statement /= null then put(obj.Statement.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in DFG_Var_Association_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in DFG_Var_Association; result : in out Unbounded_String) is
begin
result := result & to_unbounded_string("");
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in DFG_Var_Association) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in DFG_Var_Association_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in DFG_Var_Association) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in DFG_Var_Association ) return DFG_Var_Association_Ptr is
New_DFG_Var_Association : DFG_Var_Association_Ptr;
begin
New_DFG_Var_Association := new DFG_Var_Association'(obj);
return (New_DFG_Var_Association);
end Copy;
function Copy ( obj : in DFG_Var_Association_Ptr ) return DFG_Var_Association_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= DFG_Def_Use_Info =--------
procedure Initialize(obj : out DFG_Def_Use_Info) is
begin
null;
end Initialize;
procedure Put(obj : in DFG_Def_Use_Info) is
begin
put("Def_In: "); put(obj.Def_In); put ( "; " );
put("Def_Out: "); put(obj.Def_Out); put ( "; " );
put("Use_Out: "); put(obj.Use_Out); put ( "; " );
put("Def_Use_Asso: "); put(obj.Def_Use_Asso); put ( "; " );
end Put;
procedure Put(obj : in DFG_Def_Use_Info_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in DFG_Def_Use_Info; result : in out Unbounded_String) is
begin
if (XML_String(obj.Def_In) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Def_In) & to_unbounded_string("");
end if;
if (XML_String(obj.Def_Out) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Def_Out) & to_unbounded_string("");
end if;
if (XML_String(obj.Use_Out) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Use_Out) & to_unbounded_string("");
end if;
if (XML_String(obj.Def_Use_Asso) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.Def_Use_Asso) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in DFG_Def_Use_Info) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in DFG_Def_Use_Info_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in DFG_Def_Use_Info) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in DFG_Def_Use_Info ) return DFG_Def_Use_Info_Ptr is
New_DFG_Def_Use_Info : DFG_Def_Use_Info_Ptr;
begin
New_DFG_Def_Use_Info := new DFG_Def_Use_Info'(obj);
return (New_DFG_Def_Use_Info);
end Copy;
function Copy ( obj : in DFG_Def_Use_Info_Ptr ) return DFG_Def_Use_Info_Ptr is
begin
return copy(obj.all);
end Copy;
End DFG_Nodes;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Parameters;
use Parameters;
use Parameters.Framework_Parameters_Table_Package;
Package Body Call_Framework_Interface is
function XML_String(obj : in Framework_Statement_Type) return Unbounded_String is
begin
return to_unbounded_string(Framework_Statement_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Framework_Statement_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Partioning_Type) return Unbounded_String is
begin
return to_unbounded_string(Partioning_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Partioning_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Output_Format) return Unbounded_String is
begin
return to_unbounded_string(Output_Format'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Output_Format) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Transaction_Wcrt_Type) return Unbounded_String is
begin
return to_unbounded_string(Transaction_Wcrt_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Transaction_Wcrt_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in CRPD_Computation_Approach_Type) return Unbounded_String is
begin
return to_unbounded_string(CRPD_Computation_Approach_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in CRPD_Computation_Approach_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Memory_Interference_Computation_Approach_Type) return Unbounded_String is
begin
return to_unbounded_string(Memory_Interference_Computation_Approach_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Memory_Interference_Computation_Approach_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function XML_String(obj : in Perform_Order) return Unbounded_String is
begin
return to_unbounded_string(Perform_Order'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Perform_Order) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Framework_Request =--------
procedure Initialize(obj : out Framework_Request) is
begin
obj.statement := Scheduling_Simulation_Basics;
obj.target := empty_string;
end Initialize;
procedure Put(obj : in Framework_Request) is
begin
put("statement: "); put(obj.statement); put ( "; " );
put("param: "); put(obj.param); put ( "; " );
put("target: "); put(obj.target); put ( "; " );
end Put;
procedure Put(obj : in Framework_Request_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Framework_Request; result : in out Unbounded_String) is
begin
if (XML_String(obj.statement) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.statement) & to_unbounded_string("");
end if;
if (XML_String(obj.param) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.param) & to_unbounded_string("");
end if;
if (XML_String(obj.target) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.target) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Framework_Request) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Framework_Request_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Framework_Request) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Framework_Request ) return Framework_Request_Ptr is
New_Framework_Request : Framework_Request_Ptr;
begin
New_Framework_Request := new Framework_Request'(obj);
return (New_Framework_Request);
end Copy;
function Copy ( obj : in Framework_Request_Ptr ) return Framework_Request_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Framework_Response =--------
procedure Initialize(obj : out Framework_Response) is
begin
obj.title := empty_string;
obj.text := empty_string;
end Initialize;
procedure Put(obj : in Framework_Response) is
begin
put("title: "); put(obj.title); put ( "; " );
put("text: "); put(obj.text); put ( "; " );
end Put;
procedure Put(obj : in Framework_Response_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Framework_Response; result : in out Unbounded_String) is
begin
if (XML_String(obj.title) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.title) & to_unbounded_string("");
end if;
if (XML_String(obj.text) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.text) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Framework_Response) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Framework_Response_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Framework_Response) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Framework_Response ) return Framework_Response_Ptr is
New_Framework_Response : Framework_Response_Ptr;
begin
New_Framework_Response := new Framework_Response'(obj);
return (New_Framework_Response);
end Copy;
function Copy ( obj : in Framework_Response_Ptr ) return Framework_Response_Ptr is
begin
return copy(obj.all);
end Copy;
End Call_Framework_Interface;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Simulations is
function XML_String(obj : in Simulation_Type) return Unbounded_String is
begin
return to_unbounded_string(Simulation_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Simulation_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
End Simulations;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Queueing_Systems;
use Queueing_Systems.Queueing_Systems_Type_io;
Package Body Buffers is
function XML_String(obj : in Buffer_Role_Type) return Unbounded_String is
begin
return to_unbounded_string(Buffer_Role_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Buffer_Role_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Buffer_Role =--------
procedure Initialize(obj : out Buffer_Role) is
begin
obj.the_role := Queuing_Producer;
obj.size := 0;
obj.time := 0;
obj.timeout := 0;
obj.amplitude_function := empty_string;
end Initialize;
procedure Put(obj : in Buffer_Role) is
begin
put("the_role: "); put(obj.the_role); put ( "; " );
put("size: "); standards_io.natural_io.put(obj.size); put ( "; " );
put("time: "); standards_io.natural_io.put(obj.time); put ( "; " );
put("timeout: "); standards_io.natural_io.put(obj.timeout); put ( "; " );
put("amplitude_function: "); put(obj.amplitude_function); put ( "; " );
end Put;
procedure Put(obj : in Buffer_Role_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Build_Attributes_XML_String(obj : in Buffer_Role; result : in out Unbounded_String) is
begin
if (XML_String(obj.the_role) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.the_role) & to_unbounded_string("");
end if;
if (XML_String(obj.size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.size) & to_unbounded_string("");
end if;
if (XML_String(obj.time) /= Empty_String) then
result := result & to_unbounded_string("");
end if;
if (XML_String(obj.timeout) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.timeout) & to_unbounded_string("");
end if;
if (XML_String(obj.amplitude_function) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.amplitude_function) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Buffer_Role) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Buffer_Role_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Buffer_Role) return Unbounded_String is
result : Unbounded_String;
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
function Copy ( obj : in Buffer_Role ) return Buffer_Role_Ptr is
New_Buffer_Role : Buffer_Role_Ptr;
begin
New_Buffer_Role := new Buffer_Role'(obj);
return (New_Buffer_Role);
end Copy;
function Copy ( obj : in Buffer_Role_Ptr ) return Buffer_Role_Ptr is
begin
return copy(obj.all);
end Copy;
-- --------= Buffer =--------
procedure Initialize(obj : in out Buffer) is
begin
initialize(Named_Object(obj));
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.queueing_system_type := Qs_Mm1;
obj.buffer_size := 0;
obj.buffer_initial_data_size := 0;
obj.object_type := Buffer_Object_Type;
end Initialize;
function Copy ( obj : in Buffer ) return Buffer_Ptr is
New_Buffer : Buffer_Ptr;
begin
New_Buffer := new Buffer'(obj);
return (New_Buffer);
end Copy;
function Copy ( obj : in Buffer_Ptr ) return Buffer_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Buffer) is
begin
put(Named_Object(obj));
put("cpu_name: "); put(obj.cpu_name); put ( "; " );
put("address_space_name: "); put(obj.address_space_name); put ( "; " );
put("queueing_system_type: "); put(obj.queueing_system_type); put ( "; " );
put("buffer_size: "); standards_io.natural_io.put(obj.buffer_size); put ( "; " );
put("buffer_initial_data_size: "); standards_io.natural_io.put(obj.buffer_initial_data_size); put ( "; " );
put("roles: "); put(obj.roles); put ( "; " );
end Put;
procedure Put(obj : in Buffer_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Buffer_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Buffer) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Buffer_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Buffer ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("BUFFERS.BUFFER");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Buffer_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Buffer; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.cpu_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cpu_name) & to_unbounded_string("");
end if;
if (XML_String(obj.address_space_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.address_space_name) & to_unbounded_string("");
end if;
if (XML_String(obj.queueing_system_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.queueing_system_type) & to_unbounded_string("");
end if;
if (XML_String(obj.buffer_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.buffer_size) & to_unbounded_string("");
end if;
if (XML_String(obj.buffer_initial_data_size) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.buffer_initial_data_size) & to_unbounded_string("");
end if;
if (XML_String(obj.roles) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.roles) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Buffer) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Buffer_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Buffer) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Buffer_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Buffers;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Automaton;
use Automaton;
use automaton.Transition_Lists_Package;
use automaton.State_Lists_Package;
Package Body Sections is
function XML_String(obj : in Sections_Type) return Unbounded_String is
begin
return to_unbounded_string(Sections_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Sections_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Generic_Section =--------
procedure Initialize(obj : in out Generic_Section) is
begin
initialize(Named_Object(obj));
obj.section_type := Automaton_Type;
obj.file_name := empty_string;
obj.object_type := Section_Object_Type;
end Initialize;
function Copy ( obj : in Generic_Section ) return Generic_Section_Ptr is
New_Generic_Section : Generic_Section_Ptr;
begin
New_Generic_Section := new Generic_Section'(obj);
return (New_Generic_Section);
end Copy;
function Copy ( obj : in Generic_Section_Ptr ) return Generic_Section_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Generic_Section) is
begin
put(Named_Object(obj));
put("section_type: "); put(obj.section_type); put ( "; " );
put("file_name: "); put(obj.file_name); put ( "; " );
end Put;
procedure Put(obj : in Generic_Section_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Generic_Section_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Generic_Section) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Generic_Section_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Generic_Section ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SECTIONS.GENERIC_SECTION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Generic_Section_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Generic_Section; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.section_type) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.section_type) & to_unbounded_string("");
end if;
if (XML_String(obj.file_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.file_name) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Generic_Section) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Generic_Section_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Generic_Section) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Generic_Section_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Computation_Section =--------
procedure Initialize(obj : in out Computation_Section) is
begin
initialize(Generic_Section(obj));
end Initialize;
function Copy ( obj : in Computation_Section ) return Generic_Section_Ptr is
New_Computation_Section : Computation_Section_Ptr;
begin
New_Computation_Section := new Computation_Section'(obj);
return Generic_Section_Ptr(New_Computation_Section);
end Copy;
function Copy ( obj : in Computation_Section_Ptr ) return Generic_Section_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Computation_Section) is
begin
put(Generic_Section(obj));
put("first_statement: "); if obj.first_statement /= null then put(obj.first_statement.all); else put("null"); end if;put ( "; " );
end Put;
procedure Put(obj : in Computation_Section_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Computation_Section_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Computation_Section) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Computation_Section_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Computation_Section ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SECTIONS.GENERIC_SECTION");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SECTIONS.COMPUTATION_SECTION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Computation_Section_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Computation_Section; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Section(obj), result);
result := result & to_unbounded_string("");
end Build_Attributes_XML_String;
function XML_String(obj : in Computation_Section) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Computation_Section_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Computation_Section) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Computation_Section_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
-- --------= Synchronization_Section =--------
procedure Initialize(obj : in out Synchronization_Section) is
begin
initialize(Generic_Section(obj));
end Initialize;
function Copy ( obj : in Synchronization_Section ) return Generic_Section_Ptr is
New_Synchronization_Section : Synchronization_Section_Ptr;
begin
New_Synchronization_Section := new Synchronization_Section'(obj);
return Generic_Section_Ptr(New_Synchronization_Section);
end Copy;
function Copy ( obj : in Synchronization_Section_Ptr ) return Generic_Section_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Synchronization_Section) is
begin
put(Generic_Section(obj));
put("state_list: "); put(obj.state_list); put ( "; " );
put("transition_list: "); put(obj.transition_list); put ( "; " );
end Put;
procedure Put(obj : in Synchronization_Section_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Synchronization_Section_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Synchronization_Section) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Synchronization_Section_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Synchronization_Section ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SECTIONS.GENERIC_SECTION");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("SECTIONS.SYNCHRONIZATION_SECTION");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Synchronization_Section_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Synchronization_Section; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Generic_Section(obj), result);
if (XML_String(obj.state_list) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.state_list) & to_unbounded_string("");
end if;
if (XML_String(obj.transition_list) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.transition_list) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Synchronization_Section) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Synchronization_Section_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Synchronization_Section) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Synchronization_Section_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Sections;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
with Memories;
use Memories;
use Memories.Memories_Table_Package;
Package Body Core_Units is
function XML_String(obj : in Isa_Type) return Unbounded_String is
begin
return to_unbounded_string(Isa_Type'image (obj) );
end XML_String;
function XML_Ref_String (obj : in Isa_Type) return Unbounded_String is
begin
raise xml_ref_string_error;
return to_unbounded_string("");
end XML_Ref_String;
-- --------= Core_Unit =--------
procedure Initialize(obj : in out Core_Unit) is
begin
initialize(Named_Object(obj));
obj.speed := 0;
obj.l1_cache_system_name := empty_string;
obj.worstcase_perequest_intrabank_memory_interference := 0;
obj.worstcase_perequest_interbank_memory_interference := 0;
obj.isa := i386;
obj.object_type := Core_Object_Type;
end Initialize;
function Copy ( obj : in Core_Unit ) return Core_Unit_Ptr is
New_Core_Unit : Core_Unit_Ptr;
begin
New_Core_Unit := new Core_Unit'(obj);
return (New_Core_Unit);
end Copy;
function Copy ( obj : in Core_Unit_Ptr ) return Core_Unit_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Core_Unit) is
begin
put(Named_Object(obj));
put("scheduling: "); put(obj.scheduling); put ( "; " );
put("speed: "); standards_io.natural_io.put(obj.speed); put ( "; " );
put("l1_cache_system_name: "); put(obj.l1_cache_system_name); put ( "; " );
put("worstcase_perequest_intrabank_memory_interference: "); standards_io.natural_io.put(obj.worstcase_perequest_intrabank_memory_interference); put ( "; " );
put("worstcase_perequest_interbank_memory_interference: "); standards_io.natural_io.put(obj.worstcase_perequest_interbank_memory_interference); put ( "; " );
put("memory_partitions: "); put(obj.memory_partitions); put ( "; " );
put("isa: "); put(obj.isa); put ( "; " );
end Put;
procedure Put(obj : in Core_Unit_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Core_Unit_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Core_Unit) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Core_Unit_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Core_Unit ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("CORE_UNITS.CORE_UNIT");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Core_Unit_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Core_Unit; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.scheduling) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.scheduling) & to_unbounded_string("");
end if;
if (XML_String(obj.speed) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.speed) & to_unbounded_string("");
end if;
if (XML_String(obj.l1_cache_system_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.l1_cache_system_name) & to_unbounded_string("");
end if;
if (XML_String(obj.worstcase_perequest_intrabank_memory_interference) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.worstcase_perequest_intrabank_memory_interference) & to_unbounded_string("");
end if;
if (XML_String(obj.worstcase_perequest_interbank_memory_interference) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.worstcase_perequest_interbank_memory_interference) & to_unbounded_string("");
end if;
if (XML_String(obj.memory_partitions) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.memory_partitions) & to_unbounded_string("");
end if;
if (XML_String(obj.isa) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.isa) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Core_Unit) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Core_Unit_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Core_Unit) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Core_Unit_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Core_Units;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Batteries is
-- --------= Battery =--------
procedure Initialize(obj : in out Battery) is
begin
initialize(Named_Object(obj));
obj.capacity := 0;
obj.rechargeable_power := 0;
obj.cpu_name := empty_string;
obj.e_max := 0;
obj.e_min := 0;
obj.initial_energy := 0;
obj.object_type := Battery_Object_Type;
end Initialize;
function Copy ( obj : in Battery ) return Battery_Ptr is
New_Battery : Battery_Ptr;
begin
New_Battery := new Battery'(obj);
return (New_Battery);
end Copy;
function Copy ( obj : in Battery_Ptr ) return Battery_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Battery) is
begin
put(Named_Object(obj));
put("capacity: "); standards_io.natural_io.put(obj.capacity); put ( "; " );
put("rechargeable_power: "); standards_io.natural_io.put(obj.rechargeable_power); put ( "; " );
put("cpu_name: "); put(obj.cpu_name); put ( "; " );
put("e_max: "); standards_io.natural_io.put(obj.e_max); put ( "; " );
put("e_min: "); standards_io.natural_io.put(obj.e_min); put ( "; " );
put("initial_energy: "); standards_io.natural_io.put(obj.initial_energy); put ( "; " );
end Put;
procedure Put(obj : in Battery_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Battery_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Battery) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Battery_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Battery ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("BATTERIES.BATTERY");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Battery_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Battery; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.capacity) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.capacity) & to_unbounded_string("");
end if;
if (XML_String(obj.rechargeable_power) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.rechargeable_power) & to_unbounded_string("");
end if;
if (XML_String(obj.cpu_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.cpu_name) & to_unbounded_string("");
end if;
if (XML_String(obj.e_max) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.e_max) & to_unbounded_string("");
end if;
if (XML_String(obj.e_min) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.e_min) & to_unbounded_string("");
end if;
if (XML_String(obj.initial_energy) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.initial_energy) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Battery) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Battery_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Battery) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Battery_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Batteries;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
with Text_io;
use Text_io;
with unbounded_strings;
use unbounded_strings;
with primitive_xml_strings;
use primitive_xml_strings;
Package Body Event_Analyzers is
-- --------= Event_Analyzer =--------
procedure Initialize(obj : in out Event_Analyzer) is
begin
initialize(Named_Object(obj));
obj.event_analyzer_source_file_name := empty_string;
obj.object_type := Event_Analyzer_Type;
end Initialize;
function Copy ( obj : in Event_Analyzer ) return Event_Analyzer_Ptr is
New_Event_Analyzer : Event_Analyzer_Ptr;
begin
New_Event_Analyzer := new Event_Analyzer'(obj);
return (New_Event_Analyzer);
end Copy;
function Copy ( obj : in Event_Analyzer_Ptr ) return Event_Analyzer_Ptr is
begin
return copy(obj.all);
end Copy;
procedure Put(obj : in Event_Analyzer) is
begin
put(Named_Object(obj));
put("event_analyzer_source_file_name: "); put(obj.event_analyzer_source_file_name); put ( "; " );
end Put;
procedure Put(obj : in Event_Analyzer_Ptr) is
begin
Put(Obj.All);
end Put;
procedure Put_Name ( obj : in Event_Analyzer_Ptr) is
begin
Put ( To_String ( Obj.Name ) );
end Put_Name;
function Get_Name (obj : in Event_Analyzer) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function Get_Name (obj : in Event_Analyzer_ptr) return Unbounded_String is
begin
return obj.name;
end Get_Name;
function type_of ( obj : in Event_Analyzer ) 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("OBJECTS.GENERIC_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("OBJECTS.NAMED_OBJECT");
Add (list, s);
s := new unbounded_string;
s.all := to_unbounded_string("EVENT_ANALYZERS.EVENT_ANALYZER");
Add (list, s);
return list;
end type_of;
function type_of ( obj : in Event_Analyzer_Ptr ) return unbounded_string_list is
begin
return type_of(obj.all);
end type_of;
procedure Build_Attributes_XML_String(obj : in Event_Analyzer; result : in out Unbounded_String) is
begin
Build_Attributes_XML_String(Named_Object(obj), result);
if (XML_String(obj.event_analyzer_source_file_name) /= Empty_String) then
result := result & to_unbounded_string("") & XML_String(obj.event_analyzer_source_file_name) & to_unbounded_string("");
end if;
end Build_Attributes_XML_String;
function XML_String(obj : in Event_Analyzer) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
Build_Attributes_XML_String(obj, result);
result := result & to_unbounded_string("");
return (result);
end XML_String;
function XML_String(obj : in Event_Analyzer_Ptr) return Unbounded_String is
begin
if obj /= null then
return XML_String(obj.all);
else
return Empty_String;
end if;
end XML_String;
function XML_Ref_String(obj : in Event_Analyzer) return Unbounded_String is
result : Unbounded_String;
begin
result := to_unbounded_string("");
return (result);
end XML_Ref_String;
function XML_Ref_String(obj : in Event_Analyzer_Ptr) return Unbounded_String is
begin
return XML_Ref_String(obj.all);
end XML_Ref_String;
End Event_Analyzers;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- This source file was automatically generated by Platypus
-- see http://dossen.univ-brest.fr/apl
--
-- Any modification of this file will be lost.
-- Please see the "platypus" directory instead : it contains the Cheddar's
-- model and its meta-model.
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016 Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Universit e Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
-- To post to this mailing list, you must be subscribed
-- (see http//beru.univ-brest.fr/~singhoff/cheddar for details)
--
------------------------------------------------------------------------------
------------------------------------------------------------------------------
package body xml_architecture_io is
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
ref : in out unbounded_string;
id : in out unbounded_string;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if (To_String (To_Lower (Qname)) = "generic_object")
OR (To_String (To_Lower (Qname)) = "named_object")
OR (To_String (To_Lower (Qname)) = "cfg_edge")
OR (To_String (To_Lower (Qname)) = "generic_resource")
OR (To_String (To_Lower (Qname)) = "np_resource")
OR (To_String (To_Lower (Qname)) = "pip_resource")
OR (To_String (To_Lower (Qname)) = "pcp_resource")
OR (To_String (To_Lower (Qname)) = "ppcp_resource")
OR (To_String (To_Lower (Qname)) = "ipcp_resource")
OR (To_String (To_Lower (Qname)) = "data_access")
OR (To_String (To_Lower (Qname)) = "state")
OR (To_String (To_Lower (Qname)) = "synchronization")
OR (To_String (To_Lower (Qname)) = "transition")
OR (To_String (To_Lower (Qname)) = "generic_network")
OR (To_String (To_Lower (Qname)) = "noc_network")
OR (To_String (To_Lower (Qname)) = "spacewire_network")
OR (To_String (To_Lower (Qname)) = "bus_network")
OR (To_String (To_Lower (Qname)) = "generic_scheduler")
OR (To_String (To_Lower (Qname)) = "aperiodic_task_server_protocol")
OR (To_String (To_Lower (Qname)) = "polling_server_protocol")
OR (To_String (To_Lower (Qname)) = "deferred_server_protocol")
OR (To_String (To_Lower (Qname)) = "sporadic_server_protocol")
OR (To_String (To_Lower (Qname)) = "hierarchical_protocol")
OR (To_String (To_Lower (Qname)) = "compiled_user_defined_protocol")
OR (To_String (To_Lower (Qname)) = "automata_user_defined_protocol")
OR (To_String (To_Lower (Qname)) = "pipeline_user_defined_protocol")
OR (To_String (To_Lower (Qname)) = "user_defined_protocol")
OR (To_String (To_Lower (Qname)) = "earliest_deadline_first_protocol")
OR (To_String (To_Lower (Qname)) = "least_laxity_first_protocol")
OR (To_String (To_Lower (Qname)) = "least_runtime_laxity_first_protocol")
OR (To_String (To_Lower (Qname)) = "rate_monotonic_protocol")
OR (To_String (To_Lower (Qname)) = "deadline_monotonic_protocol")
OR (To_String (To_Lower (Qname)) = "round_robin_protocol")
OR (To_String (To_Lower (Qname)) = "time_sharing_based_on_wait_time_protocol")
OR (To_String (To_Lower (Qname)) = "posix_1003_highest_priority_first_protocol")
OR (To_String (To_Lower (Qname)) = "d_over_protocol")
OR (To_String (To_Lower (Qname)) = "maximum_urgency_first_based_on_laxity_protocol")
OR (To_String (To_Lower (Qname)) = "maximum_urgency_first_based_on_deadline_protocol")
OR (To_String (To_Lower (Qname)) = "time_sharing_based_on_cpu_usage_protocol")
OR (To_String (To_Lower (Qname)) = "no_scheduling_protocol")
OR (To_String (To_Lower (Qname)) = "hierarchical_cyclic_protocol")
OR (To_String (To_Lower (Qname)) = "hierarchical_round_robin_protocol")
OR (To_String (To_Lower (Qname)) = "hierarchical_fixed_priority_protocol")
OR (To_String (To_Lower (Qname)) = "hierarchical_offline_protocol")
OR (To_String (To_Lower (Qname)) = "fixed_priority_protocol")
OR (To_String (To_Lower (Qname)) = "dynamic_priority_protocol")
OR (To_String (To_Lower (Qname)) = "cache_block")
OR (To_String (To_Lower (Qname)) = "cache_access_profile")
OR (To_String (To_Lower (Qname)) = "generic_cache")
OR (To_String (To_Lower (Qname)) = "data_cache")
OR (To_String (To_Lower (Qname)) = "instruction_cache")
OR (To_String (To_Lower (Qname)) = "data_instruction_cache")
OR (To_String (To_Lower (Qname)) = "cache_system")
OR (To_String (To_Lower (Qname)) = "address_space")
OR (To_String (To_Lower (Qname)) = "generic_node")
OR (To_String (To_Lower (Qname)) = "generic_edge")
OR (To_String (To_Lower (Qname)) = "graph")
OR (To_String (To_Lower (Qname)) = "execution_unit")
OR (To_String (To_Lower (Qname)) = "generic_message")
OR (To_String (To_Lower (Qname)) = "periodic_message")
OR (To_String (To_Lower (Qname)) = "aperiodic_message")
OR (To_String (To_Lower (Qname)) = "generic_processor")
OR (To_String (To_Lower (Qname)) = "mono_core_processor")
OR (To_String (To_Lower (Qname)) = "multi_cores_processor")
OR (To_String (To_Lower (Qname)) = "arinc_653_object")
OR (To_String (To_Lower (Qname)) = "error_id_type")
OR (To_String (To_Lower (Qname)) = "error_id_action_type")
OR (To_String (To_Lower (Qname)) = "error_id_level_type")
OR (To_String (To_Lower (Qname)) = "system_state_entry_type")
OR (To_String (To_Lower (Qname)) = "syshm_ext_type")
OR (To_String (To_Lower (Qname)) = "system_hm_tabletype")
OR (To_String (To_Lower (Qname)) = "mod_hm_ext_type")
OR (To_String (To_Lower (Qname)) = "module_hm_type")
OR (To_String (To_Lower (Qname)) = "portext_type")
OR (To_String (To_Lower (Qname)) = "porttype")
OR (To_String (To_Lower (Qname)) = "samplingporttype")
OR (To_String (To_Lower (Qname)) = "procext_type")
OR (To_String (To_Lower (Qname)) = "processtype")
OR (To_String (To_Lower (Qname)) = "queuingporttype")
OR (To_String (To_Lower (Qname)) = "partitionext_type")
OR (To_String (To_Lower (Qname)) = "partitiontype")
OR (To_String (To_Lower (Qname)) = "memory_requirements")
OR (To_String (To_Lower (Qname)) = "memory_ext_type")
OR (To_String (To_Lower (Qname)) = "partition_memory_element")
OR (To_String (To_Lower (Qname)) = "partition_sched_ext_type")
OR (To_String (To_Lower (Qname)) = "window_schedule_element")
OR (To_String (To_Lower (Qname)) = "window_sched_ext_type")
OR (To_String (To_Lower (Qname)) = "partition_schedule_element")
OR (To_String (To_Lower (Qname)) = "module_schedule_type")
OR (To_String (To_Lower (Qname)) = "part_hm_ext_type")
OR (To_String (To_Lower (Qname)) = "partition_hm_type")
OR (To_String (To_Lower (Qname)) = "pseudo_partition")
OR (To_String (To_Lower (Qname)) = "standard_partition")
OR (To_String (To_Lower (Qname)) = "portmap_ext_type")
OR (To_String (To_Lower (Qname)) = "portmappingtype")
OR (To_String (To_Lower (Qname)) = "channel")
OR (To_String (To_Lower (Qname)) = "modext_type")
OR (To_String (To_Lower (Qname)) = "arinc_653_module")
OR (To_String (To_Lower (Qname)) = "generic_statement")
OR (To_String (To_Lower (Qname)) = "nop_statement")
OR (To_String (To_Lower (Qname)) = "exit_statement")
OR (To_String (To_Lower (Qname)) = "put_statement")
OR (To_String (To_Lower (Qname)) = "if_statement")
OR (To_String (To_Lower (Qname)) = "assign_statement")
OR (To_String (To_Lower (Qname)) = "clock_statement")
OR (To_String (To_Lower (Qname)) = "delete_precedence_statement")
OR (To_String (To_Lower (Qname)) = "add_precedence_statement")
OR (To_String (To_Lower (Qname)) = "for_statement")
OR (To_String (To_Lower (Qname)) = "return_statement")
OR (To_String (To_Lower (Qname)) = "while_statement")
OR (To_String (To_Lower (Qname)) = "random_initialize_statement")
OR (To_String (To_Lower (Qname)) = "set_statement")
OR (To_String (To_Lower (Qname)) = "subprogram_statement")
OR (To_String (To_Lower (Qname)) = "subprogram_call_statement")
OR (To_String (To_Lower (Qname)) = "generic_memory")
OR (To_String (To_Lower (Qname)) = "dram_memory")
OR (To_String (To_Lower (Qname)) = "kalray_memory")
OR (To_String (To_Lower (Qname)) = "generic_expression")
OR (To_String (To_Lower (Qname)) = "constant_expression")
OR (To_String (To_Lower (Qname)) = "variable_expression")
OR (To_String (To_Lower (Qname)) = "array_variable_expression")
OR (To_String (To_Lower (Qname)) = "binary_expression")
OR (To_String (To_Lower (Qname)) = "unary_expression")
OR (To_String (To_Lower (Qname)) = "generic_task_group")
OR (To_String (To_Lower (Qname)) = "transaction_task_group")
OR (To_String (To_Lower (Qname)) = "multiframe_task_group")
OR (To_String (To_Lower (Qname)) = "scheduling_error")
OR (To_String (To_Lower (Qname)) = "basic_block")
OR (To_String (To_Lower (Qname)) = "task_node")
OR (To_String (To_Lower (Qname)) = "time_triggered_communication_edge")
OR (To_String (To_Lower (Qname)) = "resource_edge")
OR (To_String (To_Lower (Qname)) = "precedence_edge")
OR (To_String (To_Lower (Qname)) = "communication_edge")
OR (To_String (To_Lower (Qname)) = "buffer_edge")
OR (To_String (To_Lower (Qname)) = "run_server")
OR (To_String (To_Lower (Qname)) = "run_server_primal")
OR (To_String (To_Lower (Qname)) = "run_server_dual")
OR (To_String (To_Lower (Qname)) = "task_release_record")
OR (To_String (To_Lower (Qname)) = "cfg_node")
OR (To_String (To_Lower (Qname)) = "generic_task")
OR (To_String (To_Lower (Qname)) = "periodic_task")
OR (To_String (To_Lower (Qname)) = "aperiodic_task")
OR (To_String (To_Lower (Qname)) = "poisson_task")
OR (To_String (To_Lower (Qname)) = "timed_task")
OR (To_String (To_Lower (Qname)) = "sporadic_task")
OR (To_String (To_Lower (Qname)) = "parametric_task")
OR (To_String (To_Lower (Qname)) = "scheduling_task")
OR (To_String (To_Lower (Qname)) = "frame_task")
OR (To_String (To_Lower (Qname)) = "sporadic_inner_periodic_task")
OR (To_String (To_Lower (Qname)) = "periodic_inner_periodic_task")
OR (To_String (To_Lower (Qname)) = "cfg")
OR (To_String (To_Lower (Qname)) = "dfg_variable")
OR (To_String (To_Lower (Qname)) = "dfg_statement")
OR (To_String (To_Lower (Qname)) = "buffer")
OR (To_String (To_Lower (Qname)) = "generic_section")
OR (To_String (To_Lower (Qname)) = "computation_section")
OR (To_String (To_Lower (Qname)) = "synchronization_section")
OR (To_String (To_Lower (Qname)) = "core_unit")
OR (To_String (To_Lower (Qname)) = "battery")
OR (To_String (To_Lower (Qname)) = "event_analyzer")
OR (To_String (To_Lower (Qname)) = "critical_section")
OR (To_String (To_Lower (Qname)) = "data_access_record")
OR (To_String (To_Lower (Qname)) = "automaton_status")
OR (To_String (To_Lower (Qname)) = "transition_status")
OR (To_String (To_Lower (Qname)) = "binding_record_type")
OR (To_String (To_Lower (Qname)) = "position")
OR (To_String (To_Lower (Qname)) = "scheduling_parameters")
OR (To_String (To_Lower (Qname)) = "memory_record")
OR (To_String (To_Lower (Qname)) = "scheduling_error_record")
OR (To_String (To_Lower (Qname)) = "scheduling_result")
OR (To_String (To_Lower (Qname)) = "applicability_constraint")
OR (To_String (To_Lower (Qname)) = "applicability_constraint_case")
OR (To_String (To_Lower (Qname)) = "all_cases_structure")
OR (To_String (To_Lower (Qname)) = "buffer_size_item")
OR (To_String (To_Lower (Qname)) = "density_item")
OR (To_String (To_Lower (Qname)) = "deadlock_item")
OR (To_String (To_Lower (Qname)) = "priority_inversion_item")
OR (To_String (To_Lower (Qname)) = "relative_priority_record")
OR (To_String (To_Lower (Qname)) = "ceiling_priority_record")
OR (To_String (To_Lower (Qname)) = "offset_type")
OR (To_String (To_Lower (Qname)) = "dfg_cfg_type")
OR (To_String (To_Lower (Qname)) = "dfg_def_use_association")
OR (To_String (To_Lower (Qname)) = "dfg_var_association")
OR (To_String (To_Lower (Qname)) = "dfg_def_use_info")
OR (To_String (To_Lower (Qname)) = "framework_request")
OR (To_String (To_Lower (Qname)) = "framework_response")
OR (To_String (To_Lower (Qname)) = "buffer_role") then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "id" then
id := To_Unbounded_String (Get_Value (Atts, J));
end if;
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
ref := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure Initialize(obj : out Parameter_io) is
begin obj.type_of_parameter := Parameter_Type'first;
obj.boolean_value := false;
obj.integer_value := 0;
obj.double_value := 0.0;
obj.string_value := empty_string;
obj.parameter_name := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Parameter_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "type_of_parameter" then
To_Parameter_Type (handler.Parameter_List (1), obj.type_of_parameter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "boolean_value" then
To_Boolean (handler.Parameter_List (1), obj.boolean_value, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "integer_value" then
To_Integer (handler.Parameter_List (1), obj.integer_value, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "double_value" then
To_Double (handler.Parameter_List (1), obj.double_value, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "string_value" then
obj.string_value := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "parameter_name" then
obj.parameter_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out PortMappingType_Choice_io) is
begin obj.type_of_PortMappingType_Choice := PortMappingType_Choice_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out PortMappingType_Choice_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "type_of_portmappingtype_choice" then
To_PortMappingType_Choice_Type (handler.Parameter_List (1), obj.type_of_PortMappingType_Choice, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Dependency_io) is
begin obj.type_of_dependency := Dependency_Type'first;
obj.precedence_sink := empty_string;
obj.precedence_source := empty_string;
obj.buffer_dependent_task := empty_string;
obj.buffer_orientation := Orientation_Dependency_Type'first;
obj.buffer_dependency_object := empty_string;
obj.asynchronous_communication_dependent_task := empty_string;
obj.asynchronous_communication_orientation := Orientation_Dependency_Type'first;
obj.asynchronous_communication_dependency_object := empty_string;
obj.asynchronous_communication_protocol_property := Asynchronous_Communication_Protocol_Property_Type'first;
obj.time_triggered_communication_sink := empty_string;
obj.time_triggered_communication_source := empty_string;
obj.time_triggered_timing_property := Time_Triggered_Communication_Timing_Property_Type'first;
obj.resource_dependency_resource := empty_string;
obj.resource_dependency_task := empty_string;
obj.remote_procedure_call_client := empty_string;
obj.remote_procedure_call_server := empty_string;
obj.black_board_dependent_task := empty_string;
obj.black_board_orientation := Orientation_Dependency_Type'first;
obj.black_board_dependency_object := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Dependency_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "precedence_sink" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.precedence_sink := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "precedence_source" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.precedence_source := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "buffer_dependent_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.buffer_dependent_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "buffer_dependency_object" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.buffer_dependency_object := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "asynchronous_communication_dependent_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.asynchronous_communication_dependent_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "asynchronous_communication_dependency_object" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.asynchronous_communication_dependency_object := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "time_triggered_communication_sink" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.time_triggered_communication_sink := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "time_triggered_communication_source" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.time_triggered_communication_source := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "resource_dependency_resource" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.resource_dependency_resource := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "resource_dependency_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.resource_dependency_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "remote_procedure_call_client" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.remote_procedure_call_client := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "remote_procedure_call_server" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.remote_procedure_call_server := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "black_board_dependent_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.black_board_dependent_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "black_board_dependency_object" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.black_board_dependency_object := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Dependency_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "type_of_dependency" then
To_Dependency_Type (handler.Parameter_List (1), obj.type_of_dependency, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "buffer_orientation" then
To_Orientation_Dependency_Type (handler.Parameter_List (1), obj.buffer_orientation, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "asynchronous_communication_orientation" then
To_Orientation_Dependency_Type (handler.Parameter_List (1), obj.asynchronous_communication_orientation, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "asynchronous_communication_protocol_property" then
To_Asynchronous_Communication_Protocol_Property_Type (handler.Parameter_List (1), obj.asynchronous_communication_protocol_property, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "time_triggered_timing_property" then
To_Time_Triggered_Communication_Timing_Property_Type (handler.Parameter_List (1), obj.time_triggered_timing_property, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "black_board_orientation" then
To_Orientation_Dependency_Type (handler.Parameter_List (1), obj.black_board_orientation, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Time_Unit_Event_io) is
begin obj.type_of_event := Time_Unit_Event_Type'first;
obj.start_task := empty_string;
obj.end_task := empty_string;
obj.write_buffer := empty_string;
obj.write_task := empty_string;
obj.write_size := 0;
obj.write_buffer_current_data_size := 0;
obj.read_buffer := empty_string;
obj.read_task := empty_string;
obj.read_size := 0;
obj.read_buffer_current_data_size := 0;
obj.overflow_buffer := empty_string;
obj.overflow_task := empty_string;
obj.overflow_write_size := 0;
obj.overflow_buffer_current_data_size := 0;
obj.underflow_buffer := empty_string;
obj.underflow_task := empty_string;
obj.underflow_read_size := 0;
obj.underflow_buffer_current_data_size := 0;
obj.switched_task := empty_string;
obj.running_core := empty_string;
obj.running_task := empty_string;
obj.current_priority := 0;
obj.CRPD := 0;
obj.cache_state := empty_string;
obj.activation_task := empty_string;
obj.allocate_task := empty_string;
obj.allocate_resource := empty_string;
obj.release_task := empty_string;
obj.release_resource := empty_string;
obj.wait_for_resource_task := empty_string;
obj.wait_for_resource := empty_string;
obj.send_task := empty_string;
obj.send_message := empty_string;
obj.receive_task := empty_string;
obj.receive_message := empty_string;
obj.wait_for_memory_task := empty_string;
obj.wait_for_cache := empty_string;
obj.activation_address_space := empty_string;
obj.duration := 0;
obj.preempted_task := empty_string;
obj.preempting_task := empty_string;
obj.evicted_ucbs := 0;
obj.missed_deadline_task := empty_string;
obj.energy_battery := empty_string;
obj.energy_level := 0;
obj.slot_duration := 0;
obj.slot_message := empty_string;
obj.from_mode := 0;
obj.to_mode := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Time_Unit_Event_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "start_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.start_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "end_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.end_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "write_buffer" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.write_buffer := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "write_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.write_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "read_buffer" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.read_buffer := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "read_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.read_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "overflow_buffer" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.overflow_buffer := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "overflow_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.overflow_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "underflow_buffer" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.underflow_buffer := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "underflow_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.underflow_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "switched_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.switched_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "running_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.running_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "activation_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.activation_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "allocate_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.allocate_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "allocate_resource" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.allocate_resource := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "release_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.release_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "release_resource" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.release_resource := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "wait_for_resource_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.wait_for_resource_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "wait_for_resource" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.wait_for_resource := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "send_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.send_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "send_message" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.send_message := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "receive_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.receive_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "receive_message" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.receive_message := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "wait_for_memory_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.wait_for_memory_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "wait_for_cache" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.wait_for_cache := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "preempted_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.preempted_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "preempting_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.preempting_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "missed_deadline_task" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.missed_deadline_task := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "energy_battery" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.energy_battery := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "slot_message" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.slot_message := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Time_Unit_Event_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "type_of_event" then
To_Time_Unit_Event_Type (handler.Parameter_List (1), obj.type_of_event, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "write_size" then
To_Integer (handler.Parameter_List (1), obj.write_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "write_buffer_current_data_size" then
To_Integer (handler.Parameter_List (1), obj.write_buffer_current_data_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "read_size" then
To_Integer (handler.Parameter_List (1), obj.read_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "read_buffer_current_data_size" then
To_Integer (handler.Parameter_List (1), obj.read_buffer_current_data_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "overflow_write_size" then
To_Integer (handler.Parameter_List (1), obj.overflow_write_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "overflow_buffer_current_data_size" then
To_Integer (handler.Parameter_List (1), obj.overflow_buffer_current_data_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "underflow_read_size" then
To_Integer (handler.Parameter_List (1), obj.underflow_read_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "underflow_buffer_current_data_size" then
To_Integer (handler.Parameter_List (1), obj.underflow_buffer_current_data_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "running_core" then
obj.running_core := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "current_priority" then
To_Integer (handler.Parameter_List (1), obj.current_priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "crpd" then
To_Integer (handler.Parameter_List (1), obj.CRPD, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_state" then
obj.cache_state := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "activation_address_space" then
obj.activation_address_space := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "duration" then
To_Integer (handler.Parameter_List (1), obj.duration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "evicted_ucbs" then
To_Integer (handler.Parameter_List (1), obj.evicted_ucbs, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_level" then
To_Integer (handler.Parameter_List (1), obj.energy_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "slot_duration" then
To_Integer (handler.Parameter_List (1), obj.slot_duration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "from_mode" then
To_Integer (handler.Parameter_List (1), obj.from_mode, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "to_mode" then
To_Integer (handler.Parameter_List (1), obj.to_mode, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Critical_Section_io) is
begin
obj.task_synchronization := Resources_Synchronization_Type'first;
obj.task_begin := 0;
obj.task_end := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Critical_Section_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "critical_section" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Critical_Section_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "task_synchronization" then
To_Resources_Synchronization_Type (handler.Parameter_List (1), obj.task_synchronization, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "task_begin" then
To_Integer (handler.Parameter_List (1), obj.task_begin, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "task_end" then
To_Integer (handler.Parameter_List (1), obj.task_end, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Data_Access_Record_io) is
begin
obj.Access_Type := Data_Access_Type'first;
obj.Memory_Address := 0;
obj.Time_Constraint_Name := empty_string;
obj.Size := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Data_Access_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "data_access_record" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Data_Access_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "access_type" then
To_Data_Access_Type (handler.Parameter_List (1), obj.Access_Type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "memory_address" then
To_Integer (handler.Parameter_List (1), obj.Memory_Address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "time_constraint_name" then
obj.Time_Constraint_Name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.Size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Automaton_Status_io) is
begin
obj.current_state := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Automaton_Status_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "automaton_status" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Automaton_Status_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
null;
end End_Element;
procedure Initialize(obj : out Transition_Status_io) is
begin
obj.code := empty_string;
obj.status := Status_Type'first;
obj.wakeup_time := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Transition_Status_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "transition_status" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Transition_Status_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "status" then
To_Status_Type (handler.Parameter_List (1), obj.status, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "wakeup_time" then
To_Integer (handler.Parameter_List (1), obj.wakeup_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Binding_Record_Type_io) is
begin
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Binding_Record_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "binding_record_type" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Binding_Record_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Position_io) is
begin
obj.X := 0;
obj.Y := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Position_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "position" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Position_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "x" then
To_Integer (handler.Parameter_List (1), obj.X, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "y" then
To_Integer (handler.Parameter_List (1), obj.Y, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Scheduling_Parameters_io) is
begin
obj.scheduler_type := Schedulers_Type'first;
obj.quantum := 0;
obj.preemptive_type := Preemptives_Type'first;
obj.automaton_name := empty_string;
obj.capacity := 0;
obj.period := 0;
obj.threshold := 0;
obj.priority := 0;
obj.user_defined_scheduler_source := empty_string;
obj.user_defined_scheduler_source_file_name := empty_string;
obj.user_defined_scheduler_protocol_name := empty_string;
obj.start_time := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Scheduling_Parameters_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "scheduling_parameters" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Scheduling_Parameters_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "scheduler_type" then
To_Schedulers_Type (handler.Parameter_List (1), obj.scheduler_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "quantum" then
To_Integer (handler.Parameter_List (1), obj.quantum, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "preemptive_type" then
To_Preemptives_Type (handler.Parameter_List (1), obj.preemptive_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "automaton_name" then
obj.automaton_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "threshold" then
To_Integer (handler.Parameter_List (1), obj.threshold, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "user_defined_scheduler_source" then
obj.user_defined_scheduler_source := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "user_defined_scheduler_source_file_name" then
obj.user_defined_scheduler_source_file_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "user_defined_scheduler_protocol_name" then
obj.user_defined_scheduler_protocol_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Memory_Record_io) is
begin
obj.size := 0;
obj.access_latency := 0;
obj.memory_category := Memory_Type'first;
obj.shared_access_latency := 0;
obj.private_access_latency := 0;
obj.l_rw_inter := 0;
obj.l_act_inter := 0;
obj.l_pre_inter := 0;
obj.n_reorder := 0;
obj.l_conhit := 0;
obj.l_conf := 0;
obj.nb_bank := 0;
obj.partition_mode := false;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Memory_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "memory_record" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Memory_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_latency" then
To_Integer (handler.Parameter_List (1), obj.access_latency, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "memory_category" then
To_Memory_Type (handler.Parameter_List (1), obj.memory_category, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "shared_access_latency" then
To_Integer (handler.Parameter_List (1), obj.shared_access_latency, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "private_access_latency" then
To_Integer (handler.Parameter_List (1), obj.private_access_latency, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l_rw_inter" then
To_Integer (handler.Parameter_List (1), obj.l_rw_inter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l_act_inter" then
To_Integer (handler.Parameter_List (1), obj.l_act_inter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l_pre_inter" then
To_Integer (handler.Parameter_List (1), obj.l_pre_inter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "n_reorder" then
To_Integer (handler.Parameter_List (1), obj.n_reorder, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l_conhit" then
To_Integer (handler.Parameter_List (1), obj.l_conhit, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l_conf" then
To_Integer (handler.Parameter_List (1), obj.l_conf, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "nb_bank" then
To_Integer (handler.Parameter_List (1), obj.nb_bank, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "partition_mode" then
To_Boolean (handler.Parameter_List (1), obj.partition_mode, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Scheduling_Error_Record_io) is
begin
obj.error_type := Error_Type_Type'first;
obj.time := 0;
obj.error_action := Error_Action_Type'first;
obj.user_defined_action := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Scheduling_Error_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "scheduling_error_record" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Scheduling_Error_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "error_type" then
To_Error_Type_Type (handler.Parameter_List (1), obj.error_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "time" then
To_Integer (handler.Parameter_List (1), obj.time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "error_action" then
To_Error_Action_Type (handler.Parameter_List (1), obj.error_action, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "user_defined_action" then
obj.user_defined_action := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Scheduling_Result_io) is
begin
obj.scheduling_msg := empty_string;
obj.has_error := false;
obj.error_msg := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Scheduling_Result_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "scheduling_result" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Scheduling_Result_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "scheduling_msg" then
obj.scheduling_msg := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "has_error" then
To_Boolean (handler.Parameter_List (1), obj.has_error, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "error_msg" then
obj.error_msg := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Applicability_Constraint_io) is
begin
obj.Name := empty_string;
obj.Result := false;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Applicability_Constraint_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "applicability_constraint" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Applicability_Constraint_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "name" then
obj.Name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "result" then
To_Boolean (handler.Parameter_List (1), obj.Result, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Applicability_Constraint_Case_io) is
begin
obj.Name := empty_string;
obj.Feasibility_Test_Names := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Applicability_Constraint_Case_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "applicability_constraint_case" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Applicability_Constraint_Case_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "name" then
obj.Name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "feasibility_test_names" then
obj.Feasibility_Test_Names := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out All_Cases_Structure_io) is
begin null;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out All_Cases_Structure_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "all_cases_structure" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out All_Cases_Structure_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
null;
end End_Element;
procedure Initialize(obj : out Buffer_Size_Item_io) is
begin
obj.time := 0;
obj.size := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Buffer_Size_Item_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "buffer_size_item" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Buffer_Size_Item_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "time" then
To_Integer (handler.Parameter_List (1), obj.time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Density_Item_io) is
begin
obj.response_time := 0;
obj.probability := 0.0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Density_Item_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "density_item" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Density_Item_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "response_time" then
To_Integer (handler.Parameter_List (1), obj.response_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "probability" then
To_Double (handler.Parameter_List (1), obj.probability, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Deadlock_Item_io) is
begin
obj.time := 0;
obj.task_name := empty_string;
obj.resource_name := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Deadlock_Item_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "deadlock_item" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Deadlock_Item_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "time" then
To_Integer (handler.Parameter_List (1), obj.time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "task_name" then
obj.task_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "resource_name" then
obj.resource_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Priority_Inversion_Item_io) is
begin
obj.start_time := 0;
obj.end_time := 0;
obj.task_name := empty_string;
obj.resource_name := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Priority_Inversion_Item_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "priority_inversion_item" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Priority_Inversion_Item_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "end_time" then
To_Integer (handler.Parameter_List (1), obj.end_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "task_name" then
obj.task_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "resource_name" then
obj.resource_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Relative_Priority_Record_io) is
begin
obj.higher_priority_task := empty_string;
obj.hpt_index := 0;
obj.lower_priority_task := empty_string;
obj.lpt_index := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Relative_Priority_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "relative_priority_record" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Relative_Priority_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "higher_priority_task" then
obj.higher_priority_task := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "hpt_index" then
To_Integer (handler.Parameter_List (1), obj.hpt_index, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "lower_priority_task" then
obj.lower_priority_task := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "lpt_index" then
To_Integer (handler.Parameter_List (1), obj.lpt_index, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Ceiling_Priority_Record_io) is
begin
obj.resource_name := empty_string;
obj.ceiling_priority := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Ceiling_Priority_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "ceiling_priority_record" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Ceiling_Priority_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "resource_name" then
obj.resource_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "ceiling_priority" then
To_Integer (handler.Parameter_List (1), obj.ceiling_priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Offset_Type_io) is
begin
obj.offset_value := 0;
obj.activation := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Offset_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "offset_type" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Offset_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "offset_value" then
To_Integer (handler.Parameter_List (1), obj.offset_value, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "activation" then
To_Integer (handler.Parameter_List (1), obj.activation, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out DFG_Cfg_Type_io) is
begin
obj.Nb_Blocks := 0;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out DFG_Cfg_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "dfg_cfg_type" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out DFG_Cfg_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "nb_blocks" then
To_Integer (handler.Parameter_List (1), obj.Nb_Blocks, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out DFG_Def_Use_Association_io) is
begin
obj.Def_Variable := empty_string;
obj.Def_Statement := empty_string;
obj.Use_Statement := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out DFG_Def_Use_Association_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "dfg_def_use_association" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out DFG_Def_Use_Association_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
null;
end End_Element;
procedure Initialize(obj : out DFG_Var_Association_io) is
begin
obj.Def_Variable := empty_string;
obj.Statement := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out DFG_Var_Association_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "dfg_var_association" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out DFG_Var_Association_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
null;
end End_Element;
procedure Initialize(obj : out DFG_Def_Use_Info_io) is
begin null;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out DFG_Def_Use_Info_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "dfg_def_use_info" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out DFG_Def_Use_Info_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
null;
end End_Element;
procedure Initialize(obj : out Framework_Request_io) is
begin
obj.statement := Framework_Statement_Type'first;
obj.target := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Framework_Request_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "framework_request" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Framework_Request_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "statement" then
To_Framework_Statement_Type (handler.Parameter_List (1), obj.statement, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "target" then
obj.target := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Framework_Response_io) is
begin
obj.title := empty_string;
obj.text := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Framework_Response_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "framework_response" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Framework_Response_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "title" then
obj.title := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "text" then
obj.text := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Buffer_Role_io) is
begin
obj.the_role := Buffer_Role_Type'first;
obj.size := 0;
obj.time := 0;
obj.timeout := 0;
obj.amplitude_function := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Buffer_Role_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if To_String (To_Lower (Qname)) = "buffer_role" then
initialize(obj);
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Buffer_Role_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "the_role" then
To_Buffer_Role_Type (handler.Parameter_List (1), obj.the_role, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "time" then
To_Integer (handler.Parameter_List (1), obj.time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "timeout" then
To_Integer (handler.Parameter_List (1), obj.timeout, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "amplitude_function" then
obj.amplitude_function := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Generic_Object_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Object_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Named_Object_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Named_Object_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out CFG_Edge_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.node := empty_string;
obj.next_node := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out CFG_Edge_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node" then
obj.node := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "next_node" then
obj.next_node := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Generic_Resource_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.state := 0;
obj.size := 0;
obj.address := 0;
obj.protocol := Resources_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.priority := 0;
obj.priority_assignment := Priority_Assignment_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Resource_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "state" then
To_Integer (handler.Parameter_List (1), obj.state, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "address" then
To_Integer (handler.Parameter_List (1), obj.address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "protocol" then
To_Resources_Type (handler.Parameter_List (1), obj.protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority_assignment" then
To_Priority_Assignment_Type (handler.Parameter_List (1), obj.priority_assignment, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Np_Resource_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.state := 0;
obj.size := 0;
obj.address := 0;
obj.protocol := Resources_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.priority := 0;
obj.priority_assignment := Priority_Assignment_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Np_Resource_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "state" then
To_Integer (handler.Parameter_List (1), obj.state, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "address" then
To_Integer (handler.Parameter_List (1), obj.address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "protocol" then
To_Resources_Type (handler.Parameter_List (1), obj.protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority_assignment" then
To_Priority_Assignment_Type (handler.Parameter_List (1), obj.priority_assignment, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Pip_Resource_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.state := 0;
obj.size := 0;
obj.address := 0;
obj.protocol := Resources_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.priority := 0;
obj.priority_assignment := Priority_Assignment_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Pip_Resource_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "state" then
To_Integer (handler.Parameter_List (1), obj.state, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "address" then
To_Integer (handler.Parameter_List (1), obj.address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "protocol" then
To_Resources_Type (handler.Parameter_List (1), obj.protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority_assignment" then
To_Priority_Assignment_Type (handler.Parameter_List (1), obj.priority_assignment, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Pcp_Resource_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.state := 0;
obj.size := 0;
obj.address := 0;
obj.protocol := Resources_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.priority := 0;
obj.priority_assignment := Priority_Assignment_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Pcp_Resource_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "state" then
To_Integer (handler.Parameter_List (1), obj.state, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "address" then
To_Integer (handler.Parameter_List (1), obj.address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "protocol" then
To_Resources_Type (handler.Parameter_List (1), obj.protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority_assignment" then
To_Priority_Assignment_Type (handler.Parameter_List (1), obj.priority_assignment, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out PPcp_Resource_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.state := 0;
obj.size := 0;
obj.address := 0;
obj.protocol := Resources_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.priority := 0;
obj.priority_assignment := Priority_Assignment_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out PPcp_Resource_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "state" then
To_Integer (handler.Parameter_List (1), obj.state, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "address" then
To_Integer (handler.Parameter_List (1), obj.address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "protocol" then
To_Resources_Type (handler.Parameter_List (1), obj.protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority_assignment" then
To_Priority_Assignment_Type (handler.Parameter_List (1), obj.priority_assignment, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out IPcp_Resource_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.state := 0;
obj.size := 0;
obj.address := 0;
obj.protocol := Resources_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.priority := 0;
obj.priority_assignment := Priority_Assignment_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out IPcp_Resource_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "state" then
To_Integer (handler.Parameter_List (1), obj.state, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "address" then
To_Integer (handler.Parameter_List (1), obj.address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "protocol" then
To_Resources_Type (handler.Parameter_List (1), obj.protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority_assignment" then
To_Priority_Assignment_Type (handler.Parameter_List (1), obj.priority_assignment, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Data_Access_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.Access_Type := Data_Access_Type'first;
obj.Memory_Address := 0;
obj.Time_Constraint_Name := empty_string;
obj.Size := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Data_Access_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "access_type" then
To_Data_Access_Type (handler.Parameter_List (1), obj.Access_Type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "memory_address" then
To_Integer (handler.Parameter_List (1), obj.Memory_Address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "time_constraint_name" then
obj.Time_Constraint_Name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.Size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out State_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.is_initial := false;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out State_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "is_initial" then
To_Boolean (handler.Parameter_List (1), obj.is_initial, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Synchronization_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.synchronization_type := Synchronizations_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Synchronization_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "synchronization_type" then
To_Synchronizations_Type (handler.Parameter_List (1), obj.synchronization_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Transition_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.from_state := empty_string;
obj.to_state := empty_string;
obj.guards := empty_string;
obj.clocks := empty_string;
obj.synchronization := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Transition_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "from_state" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.from_state := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "to_state" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.to_state := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "guards" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.guards := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "clocks" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.clocks := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "synchronization" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.synchronization := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Transition_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Generic_Network_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.network_delay := Networks_Delay_Type'first;
obj.network_architecture_type := Networks_Architecture_Type'first;
obj.network_arbitration := Arbitration_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Network_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "network_delay" then
To_Networks_Delay_Type (handler.Parameter_List (1), obj.network_delay, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "network_architecture_type" then
To_Networks_Architecture_Type (handler.Parameter_List (1), obj.network_architecture_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "network_arbitration" then
To_Arbitration_Type (handler.Parameter_List (1), obj.network_arbitration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out NOC_Network_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.network_delay := Networks_Delay_Type'first;
obj.network_architecture_type := Networks_Architecture_Type'first;
obj.network_arbitration := Arbitration_Type'first;
obj.topology := Topology_Type'first;
obj.number_of_processor := 0;
obj.link_delay := 0;
obj.dimension := 0;
obj.number_of_virtual_channel := 0;
obj.routing_protocol := Routing_Type'first;
obj.switching_protocol := Switching_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out NOC_Network_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "network_delay" then
To_Networks_Delay_Type (handler.Parameter_List (1), obj.network_delay, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "network_architecture_type" then
To_Networks_Architecture_Type (handler.Parameter_List (1), obj.network_architecture_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "network_arbitration" then
To_Arbitration_Type (handler.Parameter_List (1), obj.network_arbitration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "topology" then
To_Topology_Type (handler.Parameter_List (1), obj.topology, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "number_of_processor" then
To_Integer (handler.Parameter_List (1), obj.number_of_processor, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "link_delay" then
To_Integer (handler.Parameter_List (1), obj.link_delay, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "dimension" then
To_Integer (handler.Parameter_List (1), obj.dimension, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "number_of_virtual_channel" then
To_Integer (handler.Parameter_List (1), obj.number_of_virtual_channel, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "routing_protocol" then
To_Routing_Type (handler.Parameter_List (1), obj.routing_protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "switching_protocol" then
To_Switching_Type (handler.Parameter_List (1), obj.switching_protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Spacewire_Network_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.network_delay := Networks_Delay_Type'first;
obj.network_architecture_type := Networks_Architecture_Type'first;
obj.network_arbitration := Arbitration_Type'first;
obj.number_of_processor := 0;
obj.link_delay := 0;
obj.Xdimension := 0;
obj.Ydimension := 0;
obj.routing_protocol := Routing_Type'first;
obj.TDMA_synchronization_frame := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Spacewire_Network_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "network_delay" then
To_Networks_Delay_Type (handler.Parameter_List (1), obj.network_delay, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "network_architecture_type" then
To_Networks_Architecture_Type (handler.Parameter_List (1), obj.network_architecture_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "network_arbitration" then
To_Arbitration_Type (handler.Parameter_List (1), obj.network_arbitration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "number_of_processor" then
To_Integer (handler.Parameter_List (1), obj.number_of_processor, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "link_delay" then
To_Integer (handler.Parameter_List (1), obj.link_delay, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "xdimension" then
To_Integer (handler.Parameter_List (1), obj.Xdimension, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "ydimension" then
To_Integer (handler.Parameter_List (1), obj.Ydimension, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "routing_protocol" then
To_Routing_Type (handler.Parameter_List (1), obj.routing_protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "tdma_synchronization_frame" then
obj.TDMA_synchronization_frame := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Bus_Network_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.network_delay := Networks_Delay_Type'first;
obj.network_architecture_type := Networks_Architecture_Type'first;
obj.network_arbitration := Arbitration_Type'first;
obj.memory_word_access_time := 0;
obj.maximum_interbank_interferences_memory_delay := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Bus_Network_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "network_delay" then
To_Networks_Delay_Type (handler.Parameter_List (1), obj.network_delay, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "network_architecture_type" then
To_Networks_Architecture_Type (handler.Parameter_List (1), obj.network_architecture_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "network_arbitration" then
To_Arbitration_Type (handler.Parameter_List (1), obj.network_arbitration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "memory_word_access_time" then
To_Integer (handler.Parameter_List (1), obj.memory_word_access_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_interbank_interferences_memory_delay" then
To_Integer (handler.Parameter_List (1), obj.maximum_interbank_interferences_memory_delay, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Generic_Scheduler_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Scheduler_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Aperiodic_Task_Server_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Aperiodic_Task_Server_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Polling_Server_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Polling_Server_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Deferred_Server_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Deferred_Server_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Sporadic_Server_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Sporadic_Server_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Hierarchical_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Hierarchical_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Compiled_User_Defined_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Compiled_User_Defined_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Automata_User_Defined_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Automata_User_Defined_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Pipeline_User_Defined_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Pipeline_User_Defined_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out User_Defined_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out User_Defined_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Earliest_Deadline_First_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Earliest_Deadline_First_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Least_Laxity_First_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Least_Laxity_First_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Least_Runtime_Laxity_First_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Least_Runtime_Laxity_First_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Rate_Monotonic_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Rate_Monotonic_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Deadline_Monotonic_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Deadline_Monotonic_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Round_Robin_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Round_Robin_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Time_Sharing_Based_On_Wait_Time_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Time_Sharing_Based_On_Wait_Time_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Posix_1003_Highest_Priority_First_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Posix_1003_Highest_Priority_First_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out D_Over_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out D_Over_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Maximum_Urgency_First_Based_On_Laxity_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Maximum_Urgency_First_Based_On_Laxity_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Maximum_Urgency_First_Based_On_Deadline_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Maximum_Urgency_First_Based_On_Deadline_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Time_Sharing_Based_On_Cpu_Usage_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Time_Sharing_Based_On_Cpu_Usage_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out No_Scheduling_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out No_Scheduling_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Hierarchical_Cyclic_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Hierarchical_Cyclic_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Hierarchical_Round_Robin_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Hierarchical_Round_Robin_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Hierarchical_Fixed_Priority_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Hierarchical_Fixed_Priority_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Hierarchical_Offline_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Hierarchical_Offline_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Fixed_Priority_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Fixed_Priority_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Dynamic_Priority_Protocol_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Dynamic_Priority_Protocol_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Cache_Block_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.cache_block_number := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Cache_Block_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cache_block_number" then
To_Integer (handler.Parameter_List (1), obj.cache_block_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Cache_Access_Profile_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Cache_Access_Profile_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Generic_Cache_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.cache_size := 0;
obj.line_size := 0;
obj.associativity := 0;
obj.block_reload_time := 0;
obj.replacement_policy := Cache_Replacement_Policy_Type'first;
obj.coherence_protocol := Cache_Coherence_Protocol_Type'first;
obj.cache_category := Cache_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Cache_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cache_size" then
To_Integer (handler.Parameter_List (1), obj.cache_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_size" then
To_Integer (handler.Parameter_List (1), obj.line_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "associativity" then
To_Integer (handler.Parameter_List (1), obj.associativity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "block_reload_time" then
To_Integer (handler.Parameter_List (1), obj.block_reload_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "replacement_policy" then
To_Cache_Replacement_Policy_Type (handler.Parameter_List (1), obj.replacement_policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "coherence_protocol" then
To_Cache_Coherence_Protocol_Type (handler.Parameter_List (1), obj.coherence_protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_category" then
To_Cache_Type (handler.Parameter_List (1), obj.cache_category, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Data_Cache_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.cache_size := 0;
obj.line_size := 0;
obj.associativity := 0;
obj.block_reload_time := 0;
obj.replacement_policy := Cache_Replacement_Policy_Type'first;
obj.coherence_protocol := Cache_Coherence_Protocol_Type'first;
obj.cache_category := Cache_Type'first;
obj.write_policy := Write_Policy_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Data_Cache_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cache_size" then
To_Integer (handler.Parameter_List (1), obj.cache_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_size" then
To_Integer (handler.Parameter_List (1), obj.line_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "associativity" then
To_Integer (handler.Parameter_List (1), obj.associativity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "block_reload_time" then
To_Integer (handler.Parameter_List (1), obj.block_reload_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "replacement_policy" then
To_Cache_Replacement_Policy_Type (handler.Parameter_List (1), obj.replacement_policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "coherence_protocol" then
To_Cache_Coherence_Protocol_Type (handler.Parameter_List (1), obj.coherence_protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_category" then
To_Cache_Type (handler.Parameter_List (1), obj.cache_category, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "write_policy" then
To_Write_Policy_Type (handler.Parameter_List (1), obj.write_policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Instruction_Cache_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.cache_size := 0;
obj.line_size := 0;
obj.associativity := 0;
obj.block_reload_time := 0;
obj.replacement_policy := Cache_Replacement_Policy_Type'first;
obj.coherence_protocol := Cache_Coherence_Protocol_Type'first;
obj.cache_category := Cache_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Instruction_Cache_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cache_size" then
To_Integer (handler.Parameter_List (1), obj.cache_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_size" then
To_Integer (handler.Parameter_List (1), obj.line_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "associativity" then
To_Integer (handler.Parameter_List (1), obj.associativity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "block_reload_time" then
To_Integer (handler.Parameter_List (1), obj.block_reload_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "replacement_policy" then
To_Cache_Replacement_Policy_Type (handler.Parameter_List (1), obj.replacement_policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "coherence_protocol" then
To_Cache_Coherence_Protocol_Type (handler.Parameter_List (1), obj.coherence_protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_category" then
To_Cache_Type (handler.Parameter_List (1), obj.cache_category, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Data_Instruction_Cache_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.cache_size := 0;
obj.line_size := 0;
obj.associativity := 0;
obj.block_reload_time := 0;
obj.replacement_policy := Cache_Replacement_Policy_Type'first;
obj.coherence_protocol := Cache_Coherence_Protocol_Type'first;
obj.cache_category := Cache_Type'first;
obj.write_policy := Write_Policy_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Data_Instruction_Cache_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cache_size" then
To_Integer (handler.Parameter_List (1), obj.cache_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_size" then
To_Integer (handler.Parameter_List (1), obj.line_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "associativity" then
To_Integer (handler.Parameter_List (1), obj.associativity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "block_reload_time" then
To_Integer (handler.Parameter_List (1), obj.block_reload_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "replacement_policy" then
To_Cache_Replacement_Policy_Type (handler.Parameter_List (1), obj.replacement_policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "coherence_protocol" then
To_Cache_Coherence_Protocol_Type (handler.Parameter_List (1), obj.coherence_protocol, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_category" then
To_Cache_Type (handler.Parameter_List (1), obj.cache_category, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "write_policy" then
To_Write_Policy_Type (handler.Parameter_List (1), obj.write_policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Cache_System_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Cache_System_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Address_Space_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.cpu_name := empty_string;
obj.text_memory_size := 0;
obj.stack_memory_size := 0;
obj.data_memory_size := 0;
obj.heap_memory_size := 0;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_partition := MILS_Partition_Type'first;
obj.mils_compliant := false;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Address_Space_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "data_memory_size" then
To_Integer (handler.Parameter_List (1), obj.data_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "heap_memory_size" then
To_Integer (handler.Parameter_List (1), obj.heap_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_partition" then
To_MILS_Partition_Type (handler.Parameter_List (1), obj.mils_partition, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Generic_Node_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Node_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "id" then
obj.Id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Generic_Edge_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Id := empty_string;
obj.Node_1 := empty_string;
obj.Node_2 := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Edge_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "id" then
obj.Id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_1" then
obj.Node_1 := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_2" then
obj.Node_2 := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Graph_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Graph_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Execution_Unit_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.Type_eu := Execution_Unit_Type'first;
obj.values_eu := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Execution_Unit_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "type_eu" then
To_Execution_Unit_Type (handler.Parameter_List (1), obj.Type_eu, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "values_eu" then
To_Integer (handler.Parameter_List (1), obj.values_eu, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Generic_Message_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.message_type := Messages_Type'first;
obj.preemptive_type := Preemptives_Type'first;
obj.deadline := 0;
obj.size := 0;
obj.response_time := 0;
obj.communication_time := 0;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Message_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "message_type" then
To_Messages_Type (handler.Parameter_List (1), obj.message_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "preemptive_type" then
To_Preemptives_Type (handler.Parameter_List (1), obj.preemptive_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "response_time" then
To_Integer (handler.Parameter_List (1), obj.response_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "communication_time" then
To_Integer (handler.Parameter_List (1), obj.communication_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Periodic_Message_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.message_type := Messages_Type'first;
obj.preemptive_type := Preemptives_Type'first;
obj.deadline := 0;
obj.size := 0;
obj.response_time := 0;
obj.communication_time := 0;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.period := 0;
obj.jitter := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Periodic_Message_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "message_type" then
To_Messages_Type (handler.Parameter_List (1), obj.message_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "preemptive_type" then
To_Preemptives_Type (handler.Parameter_List (1), obj.preemptive_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "response_time" then
To_Integer (handler.Parameter_List (1), obj.response_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "communication_time" then
To_Integer (handler.Parameter_List (1), obj.communication_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Aperiodic_Message_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.message_type := Messages_Type'first;
obj.preemptive_type := Preemptives_Type'first;
obj.deadline := 0;
obj.size := 0;
obj.response_time := 0;
obj.communication_time := 0;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Aperiodic_Message_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "message_type" then
To_Messages_Type (handler.Parameter_List (1), obj.message_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "preemptive_type" then
To_Preemptives_Type (handler.Parameter_List (1), obj.preemptive_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "response_time" then
To_Integer (handler.Parameter_List (1), obj.response_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "communication_time" then
To_Integer (handler.Parameter_List (1), obj.communication_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Generic_Processor_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.processor_type := Processors_type'first;
obj.migration_type := Migrations_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Processor_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "processor_type" then
To_Processors_type (handler.Parameter_List (1), obj.processor_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "migration_type" then
To_Migrations_Type (handler.Parameter_List (1), obj.migration_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Mono_Core_Processor_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.processor_type := Processors_type'first;
obj.migration_type := Migrations_Type'first;
obj.core := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Mono_Core_Processor_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "core" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.core := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Mono_Core_Processor_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "processor_type" then
To_Processors_type (handler.Parameter_List (1), obj.processor_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "migration_type" then
To_Migrations_Type (handler.Parameter_List (1), obj.migration_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Multi_Cores_Processor_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.processor_type := Processors_type'first;
obj.migration_type := Migrations_Type'first;
obj.l2_cache_system_name := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Multi_Cores_Processor_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "processor_type" then
To_Processors_type (handler.Parameter_List (1), obj.processor_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "migration_type" then
To_Migrations_Type (handler.Parameter_List (1), obj.migration_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l2_cache_system_name" then
obj.l2_cache_system_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out ARINC_653_Object_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out ARINC_653_Object_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Error_ID_Type_io) is
begin
obj.cheddar_private_id := empty_string;
obj.ErrorIdentifier := empty_string;
obj.Description := empty_string;
obj.PartitionAction := PartitionActionType'first;
obj.ModuleAction := ModuleActionType'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Error_ID_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "erroridentifier" then
obj.ErrorIdentifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "description" then
obj.Description := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionaction" then
To_PartitionActionType (handler.Parameter_List (1), obj.PartitionAction, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "moduleaction" then
To_ModuleActionType (handler.Parameter_List (1), obj.ModuleAction, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Error_ID_Action_Type_io) is
begin
obj.cheddar_private_id := empty_string;
obj.ErrorIdentifier := empty_string;
obj.Description := empty_string;
obj.PartitionAction := PartitionActionType'first;
obj.ModuleAction := ModuleActionType'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Error_ID_Action_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "erroridentifier" then
obj.ErrorIdentifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "description" then
obj.Description := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionaction" then
To_PartitionActionType (handler.Parameter_List (1), obj.PartitionAction, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "moduleaction" then
To_ModuleActionType (handler.Parameter_List (1), obj.ModuleAction, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Error_ID_Level_Type_io) is
begin
obj.cheddar_private_id := empty_string;
obj.ErrorIdentifier := empty_string;
obj.Description := empty_string;
obj.PartitionAction := PartitionActionType'first;
obj.ModuleAction := ModuleActionType'first;
obj.ErrorLevel := ErrorLevelType'first;
obj.ErrorCode := ErrorCodeType'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Error_ID_Level_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "erroridentifier" then
obj.ErrorIdentifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "description" then
obj.Description := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionaction" then
To_PartitionActionType (handler.Parameter_List (1), obj.PartitionAction, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "moduleaction" then
To_ModuleActionType (handler.Parameter_List (1), obj.ModuleAction, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "errorlevel" then
To_ErrorLevelType (handler.Parameter_List (1), obj.ErrorLevel, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "errorcode" then
To_ErrorCodeType (handler.Parameter_List (1), obj.ErrorCode, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out System_State_Entry_Type_io) is
begin
obj.cheddar_private_id := empty_string;
obj.SystemState := empty_string;
obj.Description := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out System_State_Entry_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "systemstate" then
obj.SystemState := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "description" then
obj.Description := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out SysHM_Ext_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out SysHM_Ext_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out System_HM_TableType_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out System_HM_TableType_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Mod_HM_Ext_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Mod_HM_Ext_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Module_HM_Type_io) is
begin
obj.cheddar_private_id := empty_string;
obj.ModuleCallback := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Module_HM_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "modulecallback" then
obj.ModuleCallback := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out PortExt_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out PortExt_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out PortType_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Name := empty_string;
obj.MaxMessageSize := empty_string;
obj.Direction := DirectionType'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out PortType_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.Name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "maxmessagesize" then
obj.MaxMessageSize := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "direction" then
To_DirectionType (handler.Parameter_List (1), obj.Direction, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out SamplingPortType_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Name := empty_string;
obj.MaxMessageSize := empty_string;
obj.Direction := DirectionType'first;
obj.RefreshRateSeconds := 0.0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out SamplingPortType_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.Name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "maxmessagesize" then
obj.MaxMessageSize := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "direction" then
To_DirectionType (handler.Parameter_List (1), obj.Direction, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "refreshrateseconds" then
To_Double (handler.Parameter_List (1), obj.RefreshRateSeconds, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out ProcExt_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out ProcExt_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out ProcessType_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Name := empty_string;
obj.StackSize := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out ProcessType_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.Name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "stacksize" then
obj.StackSize := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out QueuingPortType_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Name := empty_string;
obj.MaxMessageSize := empty_string;
obj.Direction := DirectionType'first;
obj.MaxNbMessages := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out QueuingPortType_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.Name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "maxmessagesize" then
obj.MaxMessageSize := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "direction" then
To_DirectionType (handler.Parameter_List (1), obj.Direction, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maxnbmessages" then
To_Integer (handler.Parameter_List (1), obj.MaxNbMessages, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out PartitionExt_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out PartitionExt_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out PartitionType_io) is
begin
obj.cheddar_private_id := empty_string;
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.Criticality := CriticalityType'first;
obj.SystemPartition := false;
obj.EntryPoint := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out PartitionType_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionidentifier" then
obj.PartitionIdentifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionname" then
obj.PartitionName := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_CriticalityType (handler.Parameter_List (1), obj.Criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "systempartition" then
To_Boolean (handler.Parameter_List (1), obj.SystemPartition, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "entrypoint" then
obj.EntryPoint := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Memory_Requirements_io) is
begin
obj.cheddar_private_id := empty_string;
obj.regionName := empty_string;
obj.memory_type := empty_string;
obj.sizeBytes := empty_string;
obj.physicalAddress := empty_string;
obj.memoryAccess := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Memory_Requirements_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "regionname" then
obj.regionName := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "memory_type" then
obj.memory_type := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "sizebytes" then
obj.sizeBytes := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "physicaladdress" then
obj.physicalAddress := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "memoryaccess" then
obj.memoryAccess := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Memory_Ext_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Memory_Ext_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Partition_Memory_Element_io) is
begin
obj.cheddar_private_id := empty_string;
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Partition_Memory_Element_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionidentifier" then
obj.PartitionIdentifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionname" then
obj.PartitionName := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Partition_Sched_Ext_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Partition_Sched_Ext_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Window_Schedule_Element_io) is
begin
obj.cheddar_private_id := empty_string;
obj.WindowIdentifier := empty_string;
obj.WindowStartSeconds := 0.0;
obj.WindowDurationSeconds := 0.0;
obj.PartitionPeriodStart := false;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Window_Schedule_Element_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "windowidentifier" then
obj.WindowIdentifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "windowstartseconds" then
To_Double (handler.Parameter_List (1), obj.WindowStartSeconds, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "windowdurationseconds" then
To_Double (handler.Parameter_List (1), obj.WindowDurationSeconds, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "partitionperiodstart" then
To_Boolean (handler.Parameter_List (1), obj.PartitionPeriodStart, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Window_Sched_Ext_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Window_Sched_Ext_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Partition_Schedule_Element_io) is
begin
obj.cheddar_private_id := empty_string;
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.PeriodSeconds := 0.0;
obj.PeriodDurationSeconds := 0.0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Partition_Schedule_Element_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionidentifier" then
obj.PartitionIdentifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionname" then
obj.PartitionName := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "periodseconds" then
To_Double (handler.Parameter_List (1), obj.PeriodSeconds, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "perioddurationseconds" then
To_Double (handler.Parameter_List (1), obj.PeriodDurationSeconds, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Module_Schedule_Type_io) is
begin
obj.cheddar_private_id := empty_string;
obj.MajorFrameSeconds := 0.0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Module_Schedule_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "majorframeseconds" then
To_Double (handler.Parameter_List (1), obj.MajorFrameSeconds, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Part_HM_Ext_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Part_HM_Ext_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Partition_HM_Type_io) is
begin
obj.cheddar_private_id := empty_string;
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.PartitionCallback := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Partition_HM_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionidentifier" then
obj.PartitionIdentifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionname" then
obj.PartitionName := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitioncallback" then
obj.PartitionCallback := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Pseudo_Partition_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Name := empty_string;
obj.PhysicalAddress := empty_string;
obj.partition_procedure := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Pseudo_Partition_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.Name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "physicaladdress" then
obj.PhysicalAddress := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partition_procedure" then
obj.partition_procedure := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Standard_Partition_io) is
begin
obj.cheddar_private_id := empty_string;
obj.PartitionIdentifier := empty_string;
obj.PartitionName := empty_string;
obj.PortName := empty_string;
obj.PhysicalAddress := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Standard_Partition_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionidentifier" then
obj.PartitionIdentifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "partitionname" then
obj.PartitionName := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "portname" then
obj.PortName := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "physicaladdress" then
obj.PhysicalAddress := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out PortMap_Ext_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out PortMap_Ext_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out PortMappingType_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out PortMappingType_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Channel_io) is
begin
obj.cheddar_private_id := empty_string;
obj.ChannelIdentifier := empty_string;
obj.ChannelName := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Channel_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "channelidentifier" then
obj.ChannelIdentifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "channelname" then
obj.ChannelName := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out ModExt_Type_io) is
begin
obj.cheddar_private_id := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out ModExt_Type_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out ARINC_653_Module_io) is
begin
obj.cheddar_private_id := empty_string;
obj.ModuleName := empty_string;
obj.ModuleVersion := empty_string;
obj.ModuleId := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out ARINC_653_Module_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "modulename" then
obj.ModuleName := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "moduleversion" then
obj.ModuleVersion := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "moduleid" then
obj.ModuleId := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Generic_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Generic_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Nop_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Nop_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Nop_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Exit_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Exit_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Exit_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Put_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.put_from := empty_string;
obj.put_to := empty_string;
obj.expression_to_be_displayed := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Put_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "put_from" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.put_from := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "put_to" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.put_to := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "expression_to_be_displayed" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.expression_to_be_displayed := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Put_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out If_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.bool_expression := empty_string;
obj.else_statement := empty_string;
obj.then_statement := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out If_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "bool_expression" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.bool_expression := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "else_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.else_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "then_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.then_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out If_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Assign_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.lvalue := empty_string;
obj.rvalue := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Assign_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "lvalue" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.lvalue := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "rvalue" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.rvalue := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Assign_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Clock_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.lvalue := empty_string;
obj.rvalue := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Clock_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "lvalue" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.lvalue := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "rvalue" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.rvalue := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Clock_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Delete_Precedence_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.Delete_Source := empty_string;
obj.Delete_Sink := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Delete_Precedence_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Delete_Precedence_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "delete_source" then
obj.Delete_Source := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "delete_sink" then
obj.Delete_Sink := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Add_Precedence_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.Add_Source := empty_string;
obj.Add_Sink := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Add_Precedence_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Add_Precedence_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "add_source" then
obj.Add_Source := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "add_sink" then
obj.Add_Sink := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out For_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.for_type := Table_Types'first;
obj.included_statement := empty_string;
obj.for_index := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out For_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "included_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.included_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "for_index" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.for_index := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out For_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "for_type" then
To_Table_Types (handler.Parameter_List (1), obj.for_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Return_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.return_value := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Return_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "return_value" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.return_value := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Return_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out While_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.included_statement := empty_string;
obj.condition := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out While_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "included_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.included_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "condition" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.condition := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out While_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Random_Initialize_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.lvalue := empty_string;
obj.law := Laws_Type'first;
obj.parameter1 := empty_string;
obj.parameter2 := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Random_Initialize_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "parameter1" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.parameter1 := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "parameter2" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.parameter2 := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Random_Initialize_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "lvalue" then
obj.lvalue := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "law" then
To_Laws_Type (handler.Parameter_List (1), obj.law, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Set_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.set_id := empty_string;
obj.set_value := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Set_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "set_value" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.set_value := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Set_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "set_id" then
obj.set_id := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Subprogram_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.included_statement := empty_string;
obj.is_a_function := false;
obj.subprogram_name := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Subprogram_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "included_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.included_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Subprogram_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "is_a_function" then
To_Boolean (handler.Parameter_List (1), obj.is_a_function, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "subprogram_name" then
obj.subprogram_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Subprogram_Call_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.statement_type := Statements_Type'first;
obj.line_number := 0;
obj.file_name := empty_string;
obj.next_statement := empty_string;
obj.is_a_function := false;
obj.called_subprogram := empty_string;
obj.return_value := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Subprogram_Call_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "next_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.next_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "called_subprogram" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.called_subprogram := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "return_value" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.return_value := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Subprogram_Call_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "statement_type" then
To_Statements_Type (handler.Parameter_List (1), obj.statement_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "line_number" then
To_Integer (handler.Parameter_List (1), obj.line_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "is_a_function" then
To_Boolean (handler.Parameter_List (1), obj.is_a_function, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Generic_Memory_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.size := 0;
obj.access_latency := 0;
obj.memory_category := Memory_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Memory_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_latency" then
To_Integer (handler.Parameter_List (1), obj.access_latency, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "memory_category" then
To_Memory_Type (handler.Parameter_List (1), obj.memory_category, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out DRAM_Memory_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.size := 0;
obj.access_latency := 0;
obj.memory_category := Memory_Type'first;
obj.shared_access_latency := 0;
obj.private_access_latency := 0;
obj.l_rw_inter := 0;
obj.l_act_inter := 0;
obj.l_pre_inter := 0;
obj.n_reorder := 0;
obj.l_conhit := 0;
obj.l_conf := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out DRAM_Memory_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_latency" then
To_Integer (handler.Parameter_List (1), obj.access_latency, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "memory_category" then
To_Memory_Type (handler.Parameter_List (1), obj.memory_category, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "shared_access_latency" then
To_Integer (handler.Parameter_List (1), obj.shared_access_latency, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "private_access_latency" then
To_Integer (handler.Parameter_List (1), obj.private_access_latency, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l_rw_inter" then
To_Integer (handler.Parameter_List (1), obj.l_rw_inter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l_act_inter" then
To_Integer (handler.Parameter_List (1), obj.l_act_inter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l_pre_inter" then
To_Integer (handler.Parameter_List (1), obj.l_pre_inter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "n_reorder" then
To_Integer (handler.Parameter_List (1), obj.n_reorder, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l_conhit" then
To_Integer (handler.Parameter_List (1), obj.l_conhit, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l_conf" then
To_Integer (handler.Parameter_List (1), obj.l_conf, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Kalray_Memory_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.size := 0;
obj.access_latency := 0;
obj.memory_category := Memory_Type'first;
obj.nb_bank := 0;
obj.partition_mode := false;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Kalray_Memory_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "size" then
To_Integer (handler.Parameter_List (1), obj.size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_latency" then
To_Integer (handler.Parameter_List (1), obj.access_latency, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "memory_category" then
To_Memory_Type (handler.Parameter_List (1), obj.memory_category, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "nb_bank" then
To_Integer (handler.Parameter_List (1), obj.nb_bank, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "partition_mode" then
To_Boolean (handler.Parameter_List (1), obj.partition_mode, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Generic_Expression_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.expression_type := Expressions_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Expression_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "expression_type" then
To_Expressions_Type (handler.Parameter_List (1), obj.expression_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Constant_Expression_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.expression_type := Expressions_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Constant_Expression_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "expression_type" then
To_Expressions_Type (handler.Parameter_List (1), obj.expression_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Variable_Expression_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.expression_type := Expressions_Type'first;
obj.identifier := empty_string;
obj.variable_type := Simulation_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Variable_Expression_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "expression_type" then
To_Expressions_Type (handler.Parameter_List (1), obj.expression_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "identifier" then
obj.identifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "variable_type" then
To_Simulation_Type (handler.Parameter_List (1), obj.variable_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Array_Variable_Expression_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.expression_type := Expressions_Type'first;
obj.identifier := empty_string;
obj.variable_type := Simulation_Type'first;
obj.array_index := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Array_Variable_Expression_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "array_index" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.array_index := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Array_Variable_Expression_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "expression_type" then
To_Expressions_Type (handler.Parameter_List (1), obj.expression_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "identifier" then
obj.identifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "variable_type" then
To_Simulation_Type (handler.Parameter_List (1), obj.variable_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Binary_Expression_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.expression_type := Expressions_Type'first;
obj.identifier := empty_string;
obj.variable_type := Simulation_Type'first;
obj.rvalue := empty_string;
obj.lvalue := empty_string;
obj.operator := Operator_Type'first;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Binary_Expression_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "rvalue" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.rvalue := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "lvalue" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.lvalue := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Binary_Expression_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "expression_type" then
To_Expressions_Type (handler.Parameter_List (1), obj.expression_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "identifier" then
obj.identifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "variable_type" then
To_Simulation_Type (handler.Parameter_List (1), obj.variable_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "operator" then
To_Operator_Type (handler.Parameter_List (1), obj.operator, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Unary_Expression_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.expression_type := Expressions_Type'first;
obj.identifier := empty_string;
obj.variable_type := Simulation_Type'first;
obj.operator := Operator_Type'first;
obj.VALUE := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Unary_Expression_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "value" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.VALUE := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Unary_Expression_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "expression_type" then
To_Expressions_Type (handler.Parameter_List (1), obj.expression_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "identifier" then
obj.identifier := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "variable_type" then
To_Simulation_Type (handler.Parameter_List (1), obj.variable_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "operator" then
To_Operator_Type (handler.Parameter_List (1), obj.operator, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Generic_Task_Group_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_group_type := Task_Groups_Type'first;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.criticality := 0;
obj.period := 0;
obj.jitter := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Task_Group_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_group_type" then
To_Task_Groups_Type (handler.Parameter_List (1), obj.task_group_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Transaction_Task_Group_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_group_type := Task_Groups_Type'first;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.criticality := 0;
obj.period := 0;
obj.jitter := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Transaction_Task_Group_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_group_type" then
To_Task_Groups_Type (handler.Parameter_List (1), obj.task_group_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Multiframe_Task_Group_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_group_type := Task_Groups_Type'first;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.criticality := 0;
obj.period := 0;
obj.jitter := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Multiframe_Task_Group_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_group_type" then
To_Task_Groups_Type (handler.Parameter_List (1), obj.task_group_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Scheduling_Error_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.error_type := Error_Type_Type'first;
obj.time := 0;
obj.error_action := Error_Action_Type'first;
obj.user_defined_action := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Scheduling_Error_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "error_type" then
To_Error_Type_Type (handler.Parameter_List (1), obj.error_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "time" then
To_Integer (handler.Parameter_List (1), obj.time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "error_action" then
To_Error_Action_Type (handler.Parameter_List (1), obj.error_action, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "user_defined_action" then
obj.user_defined_action := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Basic_Block_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.graph_type := CFG_Graph_Type'first;
obj.node_type := CFG_Node_Type'first;
obj.instruction_offset := 0;
obj.instruction_capacity := 0;
obj.number_of_memory_access := 0;
obj.execution_time := 0;
obj.data_offset := 0;
obj.data_capacity := 0;
obj.loop_bound := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Basic_Block_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "graph_type" then
To_CFG_Graph_Type (handler.Parameter_List (1), obj.graph_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "node_type" then
To_CFG_Node_Type (handler.Parameter_List (1), obj.node_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "instruction_offset" then
To_Integer (handler.Parameter_List (1), obj.instruction_offset, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "instruction_capacity" then
To_Integer (handler.Parameter_List (1), obj.instruction_capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "number_of_memory_access" then
To_Integer (handler.Parameter_List (1), obj.number_of_memory_access, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "execution_time" then
To_Integer (handler.Parameter_List (1), obj.execution_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "data_offset" then
To_Integer (handler.Parameter_List (1), obj.data_offset, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "data_capacity" then
To_Integer (handler.Parameter_List (1), obj.data_capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "loop_bound" then
To_Integer (handler.Parameter_List (1), obj.loop_bound, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Task_Node_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Id := empty_string;
obj.TaskRef := empty_string;
obj.Kind := Tasks_Type'first;
obj.Proc := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Task_Node_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "taskref" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.TaskRef := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
if To_String (To_Lower (Qname)) = "proc" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.Proc := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Task_Node_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "id" then
obj.Id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "kind" then
To_Tasks_Type (handler.Parameter_List (1), obj.Kind, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Time_Triggered_Communication_Edge_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Id := empty_string;
obj.Node_1 := empty_string;
obj.Node_2 := empty_string;
obj.Timing_Property := Time_Triggered_Communication_Timing_Property_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Time_Triggered_Communication_Edge_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "id" then
obj.Id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_1" then
obj.Node_1 := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_2" then
obj.Node_2 := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "timing_property" then
To_Time_Triggered_Communication_Timing_Property_Type (handler.Parameter_List (1), obj.Timing_Property, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Resource_Edge_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Id := empty_string;
obj.Node_1 := empty_string;
obj.Node_2 := empty_string;
obj.Resource_Dependency_Resource := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Resource_Edge_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "resource_dependency_resource" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.Resource_Dependency_Resource := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Resource_Edge_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "id" then
obj.Id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_1" then
obj.Node_1 := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_2" then
obj.Node_2 := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Precedence_Edge_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Id := empty_string;
obj.Node_1 := empty_string;
obj.Node_2 := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Precedence_Edge_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "id" then
obj.Id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_1" then
obj.Node_1 := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_2" then
obj.Node_2 := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Communication_Edge_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Id := empty_string;
obj.Node_1 := empty_string;
obj.Node_2 := empty_string;
obj.Communication_Dependency_Object := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Communication_Edge_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "communication_dependency_object" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.Communication_Dependency_Object := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Communication_Edge_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "id" then
obj.Id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_1" then
obj.Node_1 := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_2" then
obj.Node_2 := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Buffer_Edge_io) is
begin
obj.cheddar_private_id := empty_string;
obj.Id := empty_string;
obj.Node_1 := empty_string;
obj.Node_2 := empty_string;
obj.Buffer_Dependency_Object := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Buffer_Edge_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "buffer_dependency_object" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.Buffer_Dependency_Object := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Buffer_Edge_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "id" then
obj.Id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_1" then
obj.Node_1 := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "node_2" then
obj.Node_2 := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Run_Server_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
obj.rate := 0.0;
obj.core := empty_string;
obj.executing := false;
obj.job_capacity := 0;
obj.job_duration := 0;
obj.job_release := 0;
obj.job_deadline := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Run_Server_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "rate" then
To_Double (handler.Parameter_List (1), obj.rate, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "core" then
obj.core := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "executing" then
To_Boolean (handler.Parameter_List (1), obj.executing, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_capacity" then
To_Integer (handler.Parameter_List (1), obj.job_capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_duration" then
To_Integer (handler.Parameter_List (1), obj.job_duration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_release" then
To_Integer (handler.Parameter_List (1), obj.job_release, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_deadline" then
To_Integer (handler.Parameter_List (1), obj.job_deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Run_Server_Primal_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
obj.rate := 0.0;
obj.core := empty_string;
obj.executing := false;
obj.job_capacity := 0;
obj.job_duration := 0;
obj.job_release := 0;
obj.job_deadline := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Run_Server_Primal_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "rate" then
To_Double (handler.Parameter_List (1), obj.rate, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "core" then
obj.core := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "executing" then
To_Boolean (handler.Parameter_List (1), obj.executing, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_capacity" then
To_Integer (handler.Parameter_List (1), obj.job_capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_duration" then
To_Integer (handler.Parameter_List (1), obj.job_duration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_release" then
To_Integer (handler.Parameter_List (1), obj.job_release, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_deadline" then
To_Integer (handler.Parameter_List (1), obj.job_deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Run_Server_Dual_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
obj.rate := 0.0;
obj.core := empty_string;
obj.executing := false;
obj.job_capacity := 0;
obj.job_duration := 0;
obj.job_release := 0;
obj.job_deadline := 0;
obj.primal_server := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Run_Server_Dual_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "primal_server" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.primal_server := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Run_Server_Dual_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "rate" then
To_Double (handler.Parameter_List (1), obj.rate, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "core" then
obj.core := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "executing" then
To_Boolean (handler.Parameter_List (1), obj.executing, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_capacity" then
To_Integer (handler.Parameter_List (1), obj.job_capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_duration" then
To_Integer (handler.Parameter_List (1), obj.job_duration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_release" then
To_Integer (handler.Parameter_List (1), obj.job_release, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "job_deadline" then
To_Integer (handler.Parameter_List (1), obj.job_deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Task_Release_Record_io) is
begin
obj.cheddar_private_id := empty_string;
obj.task_name := empty_string;
obj.task_index := 0;
obj.capacity := 0;
obj.release_time := 0;
obj.finish_time := 0;
obj.deadline := 0;
obj.completed := false;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Task_Release_Record_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_name" then
obj.task_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_index" then
To_Integer (handler.Parameter_List (1), obj.task_index, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "release_time" then
To_Integer (handler.Parameter_List (1), obj.release_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "finish_time" then
To_Integer (handler.Parameter_List (1), obj.finish_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completed" then
To_Boolean (handler.Parameter_List (1), obj.completed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out CFG_Node_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.graph_type := CFG_Graph_Type'first;
obj.node_type := CFG_Node_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out CFG_Node_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "graph_type" then
To_CFG_Graph_Type (handler.Parameter_List (1), obj.graph_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "node_type" then
To_CFG_Node_Type (handler.Parameter_List (1), obj.node_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Generic_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Periodic_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Periodic_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Aperiodic_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Aperiodic_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Poisson_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Poisson_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Timed_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Timed_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Sporadic_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Sporadic_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Parametric_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
obj.activation_rule := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Parametric_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "activation_rule" then
obj.activation_rule := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Scheduling_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Scheduling_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Frame_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
obj.interarrival := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Frame_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "interarrival" then
To_Integer (handler.Parameter_List (1), obj.interarrival, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Sporadic_Inner_Periodic_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
obj.activation_rule := empty_string;
obj.outer_period := 0;
obj.outer_duration := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Sporadic_Inner_Periodic_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "activation_rule" then
obj.activation_rule := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "outer_period" then
To_Integer (handler.Parameter_List (1), obj.outer_period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "outer_duration" then
To_Integer (handler.Parameter_List (1), obj.outer_duration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Periodic_Inner_Periodic_Task_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.task_type := Tasks_Type'first;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.core_name := empty_string;
obj.capacity_model := Execution_Unit_Model_Type'first;
obj.capacity := 0;
obj.energy_consumption := 0;
obj.deadline := 0;
obj.start_time := 0;
obj.priority := 0;
obj.blocking_time := 0;
obj.policy := Policies'first;
obj.text_memory_size := 0;
obj.text_memory_start_address := 0;
obj.stack_memory_size := 0;
obj.criticality := 0;
obj.context_switch_overhead := 0;
obj.cfg_name := empty_string;
obj.cfg_relocatable := false;
obj.cache_access_profile_name := empty_string;
obj.mils_confidentiality_level := MILS_Confidentiality_Level_Type'first;
obj.mils_integrity_level := MILS_Integrity_Level_Type'first;
obj.mils_component := MILS_Component_Type'first;
obj.mils_task := MILS_Task_Type'first;
obj.mils_compliant := false;
obj.access_memory_number := 0;
obj.maximum_number_of_memory_request_per_job := 0;
obj.seed := 0;
obj.predictable := false;
obj.period := 0;
obj.jitter := 0;
obj.every := 0;
obj.completion_time := 0;
obj.activation_rule := empty_string;
obj.outer_period := 0;
obj.outer_duration := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Periodic_Inner_Periodic_Task_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "task_type" then
To_Tasks_Type (handler.Parameter_List (1), obj.task_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "core_name" then
obj.core_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity_model" then
To_Execution_Unit_Model_Type (handler.Parameter_List (1), obj.capacity_model, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "energy_consumption" then
To_Integer (handler.Parameter_List (1), obj.energy_consumption, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "deadline" then
To_Integer (handler.Parameter_List (1), obj.deadline, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "start_time" then
To_Integer (handler.Parameter_List (1), obj.start_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "priority" then
To_Integer (handler.Parameter_List (1), obj.priority, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "blocking_time" then
To_Integer (handler.Parameter_List (1), obj.blocking_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "policy" then
To_Policies (handler.Parameter_List (1), obj.policy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_size" then
To_Integer (handler.Parameter_List (1), obj.text_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "text_memory_start_address" then
To_Integer (handler.Parameter_List (1), obj.text_memory_start_address, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "stack_memory_size" then
To_Integer (handler.Parameter_List (1), obj.stack_memory_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "criticality" then
To_Integer (handler.Parameter_List (1), obj.criticality, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "context_switch_overhead" then
To_Integer (handler.Parameter_List (1), obj.context_switch_overhead, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cfg_name" then
obj.cfg_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cfg_relocatable" then
To_Boolean (handler.Parameter_List (1), obj.cfg_relocatable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cache_access_profile_name" then
obj.cache_access_profile_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "mils_confidentiality_level" then
To_MILS_Confidentiality_Level_Type (handler.Parameter_List (1), obj.mils_confidentiality_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_integrity_level" then
To_MILS_Integrity_Level_Type (handler.Parameter_List (1), obj.mils_integrity_level, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_component" then
To_MILS_Component_Type (handler.Parameter_List (1), obj.mils_component, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_task" then
To_MILS_Task_Type (handler.Parameter_List (1), obj.mils_task, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "mils_compliant" then
To_Boolean (handler.Parameter_List (1), obj.mils_compliant, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "access_memory_number" then
To_Integer (handler.Parameter_List (1), obj.access_memory_number, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "maximum_number_of_memory_request_per_job" then
To_Integer (handler.Parameter_List (1), obj.maximum_number_of_memory_request_per_job, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "seed" then
To_Integer (handler.Parameter_List (1), obj.seed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "predictable" then
To_Boolean (handler.Parameter_List (1), obj.predictable, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "period" then
To_Integer (handler.Parameter_List (1), obj.period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "jitter" then
To_Integer (handler.Parameter_List (1), obj.jitter, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "every" then
To_Integer (handler.Parameter_List (1), obj.every, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "completion_time" then
To_Integer (handler.Parameter_List (1), obj.completion_time, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "activation_rule" then
obj.activation_rule := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "outer_period" then
To_Integer (handler.Parameter_List (1), obj.outer_period, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "outer_duration" then
To_Integer (handler.Parameter_List (1), obj.outer_duration, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out CFG_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out CFG_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out DFG_Variable_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out DFG_Variable_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out DFG_Statement_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.Defined_Variable := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out DFG_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "defined_variable" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.Defined_Variable := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out DFG_Statement_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Buffer_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.cpu_name := empty_string;
obj.address_space_name := empty_string;
obj.queueing_system_type := Queueing_Systems_Type'first;
obj.buffer_size := 0;
obj.buffer_initial_data_size := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Buffer_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "address_space_name" then
obj.address_space_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "queueing_system_type" then
To_Queueing_Systems_Type (handler.Parameter_List (1), obj.queueing_system_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "buffer_size" then
To_Integer (handler.Parameter_List (1), obj.buffer_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "buffer_initial_data_size" then
To_Integer (handler.Parameter_List (1), obj.buffer_initial_data_size, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Generic_Section_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.section_type := Sections_Type'first;
obj.file_name := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Generic_Section_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "section_type" then
To_Sections_Type (handler.Parameter_List (1), obj.section_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Computation_Section_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.section_type := Sections_Type'first;
obj.file_name := empty_string;
obj.first_statement := empty_string;
end Initialize;
procedure Start_Element(
Handler: in out Xml_Generic_Parser;
obj : in out Computation_Section_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "";
Atts : Sax.Attributes.Attributes'Class) is
begin
if Get_Length (Atts) > 0 then
if To_String (To_Lower (Qname)) = "first_statement" then
for J in 0 .. Get_Length (Atts) - 1 loop
if To_String (To_Lower (Get_Qname (Atts, J))) = "ref" then
obj.first_statement := To_Unbounded_String (Get_Value (Atts, J));
end if;
end loop;
end if;
end if;
end Start_Element;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Computation_Section_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "section_type" then
To_Sections_Type (handler.Parameter_List (1), obj.section_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Synchronization_Section_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.section_type := Sections_Type'first;
obj.file_name := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Synchronization_Section_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "section_type" then
To_Sections_Type (handler.Parameter_List (1), obj.section_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "file_name" then
obj.file_name := handler.Parameter_List (1);
end if;
end End_Element;
procedure Initialize(obj : out Core_Unit_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.speed := 0;
obj.l1_cache_system_name := empty_string;
obj.worstcase_perequest_intrabank_memory_interference := 0;
obj.worstcase_perequest_interbank_memory_interference := 0;
obj.isa := Isa_Type'first;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Core_Unit_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "speed" then
To_Integer (handler.Parameter_List (1), obj.speed, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "l1_cache_system_name" then
obj.l1_cache_system_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "worstcase_perequest_intrabank_memory_interference" then
To_Integer (handler.Parameter_List (1), obj.worstcase_perequest_intrabank_memory_interference, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "worstcase_perequest_interbank_memory_interference" then
To_Integer (handler.Parameter_List (1), obj.worstcase_perequest_interbank_memory_interference, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "isa" then
To_Isa_Type (handler.Parameter_List (1), obj.isa, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Battery_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.capacity := 0;
obj.rechargeable_power := 0;
obj.cpu_name := empty_string;
obj.e_max := 0;
obj.e_min := 0;
obj.initial_energy := 0;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Battery_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "capacity" then
To_Integer (handler.Parameter_List (1), obj.capacity, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "rechargeable_power" then
To_Integer (handler.Parameter_List (1), obj.rechargeable_power, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "cpu_name" then
obj.cpu_name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "e_max" then
To_Integer (handler.Parameter_List (1), obj.e_max, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "e_min" then
To_Integer (handler.Parameter_List (1), obj.e_min, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "initial_energy" then
To_Integer (handler.Parameter_List (1), obj.initial_energy, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
end End_Element;
procedure Initialize(obj : out Event_Analyzer_io) is
begin
obj.cheddar_private_id := empty_string;
obj.object_type := Objects_Type'first;
obj.name := empty_string;
obj.event_analyzer_source_file_name := empty_string;
end Initialize;
procedure End_Element(
Handler : in out Xml_generic_parser;
obj : in out Event_Analyzer_io;
Namespace_Uri : Unicode.CES.Byte_Sequence := "";
Local_Name : Unicode.CES.Byte_Sequence := "";
Qname : Unicode.CES.Byte_Sequence := "") is
begin
if To_String (To_Lower (Qname)) = "cheddar_private_id" then
obj.cheddar_private_id := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "object_type" then
To_Objects_Type (handler.Parameter_List (1), obj.object_type, Handler.Ok);
if not Handler.Ok then
Put_Line ("Warning : Error on data type From " & To_String (Handler.Locator));
end if;
end if;
if To_String (To_Lower (Qname)) = "name" then
obj.name := handler.Parameter_List (1);
end if;
if To_String (To_Lower (Qname)) = "event_analyzer_source_file_name" then
obj.event_analyzer_source_file_name := handler.Parameter_List (1);
end if;
end End_Element;
end xml_architecture_io;