------------------------------------------------------------------------------ ------------------------------------------------------------------------------ -- 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-2023, Frank Singhoff, Alain Plantec, Jerome Legrand, -- Hai Nam Tran, Stephane Rubini -- -- The Cheddar project was started in 2002 by -- Frank Singhoff, Lab-STICC UMR 6285, 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 README.md -- -- 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 Ada.IO_Exceptions; use Ada.IO_Exceptions; with GNAT.Current_Exception; use GNAT.Current_Exception; with unbounded_strings; use unbounded_strings; with GNAT.Command_Line; use GNAT.Command_Line; with GNAT.OS_Lib; use GNAT.OS_Lib; with Text_IO; use Text_IO; with version; use version; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; with systems; use systems; with task_set; use task_set; with processor_set; use processor_set; with address_space_set; use address_space_set; with resource_set; use resource_set; with buffer_set; use buffer_set; with call_framework; use call_framework; --with Project; use Project; with graphical_editor; use graphical_editor; with xml_generic_parsers; use xml_generic_parsers; with xml_generic_parsers.architecture; use xml_generic_parsers.architecture; with xml_generic_parsers.event_table; use xml_generic_parsers.event_table; procedure v2tov3eventtable is sys : system; file_name : Unbounded_String; -- Is the command should run in verbose mode ? -- verbose : Boolean := False; procedure usage is begin Put_Line ("old_eventtable2new_eventtable allows you to convert Cheddar 2.1 event table file to Cheddar 2.2 event table file."); New_Line; Put_Line ("Check Cheddar home page for details : http://beru.univ-brest.fr/cheddar "); New_Line; New_Line; Put_Line ("Usage : old_eventtable2new_eventtable xml-event-table-file-name"); Put_Line (" switch can be :"); Put_Line (" -u get this help"); Put_Line (" -v verbose mode "); New_Line; New_Line; end usage; begin copyright ("old_eventtable2new_eventtable"); -- Get arguments -- loop case Getopt ("u v") is when ASCII.NUL => exit; when 'v' => verbose := True; when 'u' => usage; OS_Exit (0); when others => usage; OS_Exit (0); end case; end loop; loop declare s : constant String := Get_Argument (Do_Expansion => True); begin exit when s'length = 0; file_name := file_name & s; end; end loop; call_framework.initialize (False); if (file_name = empty_string) then usage; OS_Exit (0); else initialize (sys); read_from_xml_file (sys, project_file_dir_list, file_name); Put_Line (To_String (xml_string (sys, 0))); end if; exception when GNAT.Command_Line.Invalid_Switch => begin Put_Line ("old_eventtable2new_eventtable.adb : invalid Switch " & Full_Switch); usage; end; when GNAT.Command_Line.Invalid_Parameter => Put_Line ("old_eventtable2new_eventtable.adb : missing parameter for switch " & Full_Switch); when xml_read_error => Put_Line ("v2tov3eventable.adb : Can not read project file ; Xml Fatal Error ; " & Exception_Message); when task_set.invalid_parameter => Put_Line ("v2tov3eventable.adb : invalid task argument ; " & Exception_Message); when address_space_set.invalid_parameter => Put_Line ("v2tov3eventable.adb : invalid addresss space argument ; " & Exception_Message); when processor_set.invalid_parameter => Put_Line ("v2tov3eventable.adb : invalid processor argument ; " & Exception_Message); when buffer_set.invalid_parameter => Put_Line ("v2tov3eventable.adb : invalid buffer argument ; " & Exception_Message); when resource_set.invalid_parameter => Put_Line ("v2tov3eventable.adb : invalid resource argument ; " & Exception_Message); when Ada.IO_Exceptions.Name_Error => Put_Line ("v2tov3eventable.adb : Can not open project files, Name_Error"); when Ada.IO_Exceptions.Status_Error => Put_Line ("v2tov3eventable.adb : Can not open project files, Status_Error"); when Ada.IO_Exceptions.Mode_Error => Put_Line ("v2tov3eventable.adb : Can not open project files, Mode_Error"); when Ada.IO_Exceptions.Use_Error => Put_Line ("v2tov3eventable.adb : Can not open project files, Use_Error"); when Ada.IO_Exceptions.Device_Error => Put_Line ("v2tov3eventable.adb : Can not open project files, Device_Error"); when Ada.IO_Exceptions.End_Error => Put_Line ("v2tov3eventable.adb : Can not open project files, End_Error"); when Ada.IO_Exceptions.Data_Error => Put_Line ("v2tov3eventable.adb : Can not open project files, Data_Error"); when Ada.IO_Exceptions.Layout_Error => Put_Line ("v2tov3eventable.adb : Can not open project files, Layout_Error"); when others => Put_Line ("This is an internal bug ... sorry"); Put_Line ("Exception name : " & Exception_Name); Put_Line ("Exception message : " & Exception_Message); Put_Line ("Please, send a bug report to cheddar@listes.univ-brest.fr"); Put_Line ("Do not forget to join the XML Cheddar project files with your bug report"); end v2tov3eventtable;