------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- 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-2020, Frank Singhoff, Alain Plantec, Jerome Legrand,
--                          Hai Nam Tran, Stephane Rubini
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR CNRS 6285, Universite 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$
--    $Date$
--    $Author: singhoff $
------------------------------------------------------------------------------
------------------------------------------------------------------------------

with unbounded_strings; use unbounded_strings;

package body xml_tag is

   procedure set_tag is

   begin
      start_result                := To_Unbounded_String ("<results>");
      end_result                  := To_Unbounded_String ("</results>");
      start_line                  := To_Unbounded_String ("<line>");
      end_line                    := To_Unbounded_String ("</line>");
      start_sched_feas := To_Unbounded_String ("<scheduling_feasibility>");
      end_sched_feas := To_Unbounded_String ("</scheduling_feasibility>");
      end_sched_sim := To_Unbounded_String ("</scheduling_simulation>");
      start_sched_sim := To_Unbounded_String ("<scheduling_simulation>");
      start_probability           := To_Unbounded_String ("<probability>");
      end_probability             := To_Unbounded_String ("</probability>");
      start_response_time_density :=
        To_Unbounded_String ("<response_time_density>");
      end_response_time_density :=
        To_Unbounded_String ("</response_time_density>");
      start_task                  := To_Unbounded_String ("<task>");
      end_task                    := To_Unbounded_String ("</task>");
      start_block                 := To_Unbounded_String ("<blocking_time>");
      end_block                   := To_Unbounded_String ("</blocking_time>");
      start_buf_bound             := To_Unbounded_String ("<buffer_bound>");
      end_buf_bound               := To_Unbounded_String ("</buffer_bound>");
      start_response_time         := To_Unbounded_String ("<response_time>");
      end_response_time           := To_Unbounded_String ("</response_time>");
      start_title                 := To_Unbounded_String ("<title>");
      end_title                   := To_Unbounded_String ("</title>");
      start_set_prio              := To_Unbounded_String ("<set_priorities>");
      end_set_prio                := To_Unbounded_String ("</set_priorities>");
      start_end_to_end := To_Unbounded_String ("<end_to_end_response_time>");
      end_end_to_end := To_Unbounded_String ("</end_to_end_response_time>");
      start_proc                  := To_Unbounded_String ("<processor>");
      end_proc                    := To_Unbounded_String ("</processor>");
      start_num_of_preemp := To_Unbounded_String ("<number_of_preemption>");
      end_num_of_preemp := To_Unbounded_String ("</number_of_preemption>");
      start_num_of_context_switch :=
        To_Unbounded_String ("<number_of_context_switch>");
      end_num_of_context_switch :=
        To_Unbounded_String ("</number_of_context_switch>");
      start_unit       := To_Unbounded_String ("<unit>");
      end_unit         := To_Unbounded_String ("</unit>");
      start_ref        := To_Unbounded_String ("<reference>");
      end_ref          := To_Unbounded_String ("</reference>");
      start_fact_bound := To_Unbounded_String ("<factor_bound>");
      end_fact_bound   := To_Unbounded_String ("</factor_bound>");
      start_bas_per    := To_Unbounded_String ("<base_period>");
      end_bas_per      := To_Unbounded_String ("</base_period>");
      start_per_fact   := To_Unbounded_String ("<period_factor>");
      end_per_fact     := To_Unbounded_String ("</period_factor>");
      start_deadl_fact := To_Unbounded_String ("<deadline_factor>");
      end_deadl_fact   := To_Unbounded_String ("</deadline_factor>");
      start_jit        := To_Unbounded_String ("<jitter>");
      end_jit          := To_Unbounded_String ("</jitter>");

   end set_tag;

   procedure set_empty is

   begin

      start_result                := empty_string;
      end_result                  := empty_string;
      start_title                 := empty_string;
      end_title                   := empty_string;
      start_line                  := empty_string;
      end_line                    := empty_string;
      start_sched_feas            := empty_string;
      end_sched_feas              := empty_string;
      end_sched_sim               := empty_string;
      start_sched_sim             := empty_string;
      start_task                  := empty_string;
      end_task                    := empty_string;
      start_block                 := empty_string;
      end_block                   := empty_string;
      start_buf_bound             := empty_string;
      end_buf_bound               := empty_string;
      start_title                 := empty_string;
      end_title                   := empty_string;
      start_set_prio              := empty_string;
      end_set_prio                := empty_string;
      start_end_to_end            := empty_string;
      end_end_to_end              := empty_string;
      start_proc                  := empty_string;
      end_proc                    := empty_string;
      start_num_of_preemp         := empty_string;
      end_num_of_preemp           := empty_string;
      start_unit                  := empty_string;
      end_unit                    := empty_string;
      start_ref                   := empty_string;
      end_ref                     := empty_string;
      start_fact_bound            := empty_string;
      end_fact_bound              := empty_string;
      start_bas_per               := empty_string;
      end_bas_per                 := empty_string;
      start_per_fact              := empty_string;
      end_per_fact                := empty_string;
      start_deadl_fact            := empty_string;
      end_deadl_fact              := empty_string;
      start_jit                   := empty_string;
      end_jit                     := empty_string;
      start_probability           := empty_string;
      end_probability             := empty_string;
      start_response_time_density := empty_string;
      end_response_time_density   := empty_string;
      start_response_time         := empty_string;
      end_response_time           := empty_string;

   end set_empty;

end xml_tag;