------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2016, Frank Singhoff, Alain Plantec, Jerome Legrand
--
-- The Cheddar project was started in 2002 by 
-- Frank Singhoff, Lab-STICC UMR 6285 laboratory, Université de Bretagne Occidentale
-- 
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008. 
-- Since 2008, Ellidiss technologies also contributes to the development of 
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in AUTHORS.txt and SPONSORS.txt
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
--           
------------------------------------------------------------------------------
-- Last update : 
--    $Rev: 1249 $
--    $Date: 2014-08-28 07:02:15 +0200 (Fri, 28 Aug 2014) $
--    $Author: singhoff $
------------------------------------------------------------------------------
------------------------------------------------------------------------------

-- this package should be automatically generated.
--
--
-- we provide functions to converted the attributes of entity, in order 
-- to have a lisible presentation on Man Machine Interface: this include 
-- the label written with underscore, with lowercas and/or uppercase characters

-- we consider by example the entity Scheduling_Parameters of the meta model.
-- the attributes scheduler_type and preemptive_type have a list of parameters 
-- with undescores

-- In accordance with meta model, scheduler_type may be Compiled_User_Defined_Protocol,
-- Automata_User_Defined_Protocol, Pipeline_User_Defined_Protocol, .... 

-- In Man Machine Interface, scheduler_type should be Compiled User Defined Protocol,
-- Automata User Defined Protocol, Pipeline User Defined Protocol, .... 

-- This package provide two functions, to_label and to_type to manage this kind of attributes 

with Gtkada.Builder; use Gtkada.Builder;
with Gtk.Tree_Model;  use Gtk.Tree_Model;
with graphical_editor.generic_callbacks; 
with graphical_editor.generic_package_widget; use graphical_editor.generic_package_widget;
with Glib;      use Glib;
with Glib.Object; use Glib.Object;
with Glib.Values; use Glib.Values;
with Scheduler_Interface;   use Scheduler_Interface;
with processor_interface;	use processor_interface;
with Queueing_Systems; use Queueing_Systems;
with buffers; use buffers;
with dependencies; use dependencies;
with messages; use messages;
with Networks; use Networks;
with Resources; use Resources;
with tasks; use tasks;
with parameters; use parameters;
with caches; use caches;
with deployments; use deployments;
with task_groups; use task_groups;



package graphical_editor.convert_text is

	type all_enumeration_type is (
	Schedulers,
        Preemptives,
	Processors_enum, 
	Queueings,
	Roles,
	Trigerres, 
	Dependencies_enum,
	Orientations, 
	Messages_enum,
	Migrations,
	multiprocessors_type_enum,
	Networks_architecture_enum,
	Networks_delay_enum,
	switching_type_enum,
	routing_enum,
	Protocols,
	Assignments,
	Predictables,
	Policies_enum,
	Tasks_enum,
	Parameters_enum,
        cache_replacement_policy_enum,
        cache_coherence_protocol_enum,
	deployment_enum,
	task_group_types_enum
	);

	type t_all_enumeration_type (enum_type : all_enumeration_type := Preemptives) is record
        case enum_type is 
		when deployment_enum=> 
 			deployment_value : deployments_Type;

		when cache_coherence_protocol_enum=> 
 			cache_coherence_protocol_value : Cache_Coherence_Protocol_Type;

		when cache_replacement_policy_enum => 
 			cache_replacement_policy_value : Cache_Replacement_Policy_Type;

		when Preemptives => 
 			preemptives_value : Preemptives_Type;

		when Schedulers  => 
 			schedulers_value : Schedulers_Type;

		when Processors_enum  => 
 			processors_value : Processors_Type;

		when Queueings =>
			queueings_value : Queueing_Systems_Type;

		when Roles =>
			roles_value : Buffer_Role_Type;

		when Trigerres =>
			trigerres_value : Time_Triggered_Communication_Timing_Property_Type;

		when Dependencies_enum =>
			dependencies_value : dependency_type;

		when Orientations =>
			orientations_value : Orientation_Dependency_Type;

		when Messages_enum =>
			messages_value : Messages_type;

		when Migrations =>
			migrations_value : migrations_type;

		when multiprocessors_type_enum =>
			multiprocessors_type_value : multiprocessors_type;

		when Networks_architecture_enum =>
			networks_architecture_value : networks_architecture_type;

		when Networks_delay_enum =>
			networks_delay_value : networks_delay_type;

		when Switching_Type_enum =>
			Switching_Type_value : Switching_Type;

		when routing_enum =>
			routing_value : routing_type;

		when Protocols =>
			protocols_value : resources_type;

		when Assignments =>
			assignments_value : Priority_Assignment_Type;

		when Predictables =>
			predictables_value : Boolean;

		when Policies_enum =>
			policies_value : Policies;

		when Tasks_enum =>
			tasks_value : Tasks_Type;

		when Parameters_enum =>
			params_value : parameters.Parameter_Type;

		when task_group_types_enum =>
			task_group_types_value : Task_Groups_type;
	end case;
	end record;

	type all_enumeration_type_ptr is access t_all_enumeration_type;

	function to_label(my_type: all_enumeration_type_ptr) return unbounded_string;

	function to_type(my_gvalue: GValue) return all_enumeration_type_ptr;

	function to_type(my_label: Unbounded_String) return all_enumeration_type_ptr; 

end graphical_editor.convert_text;