Commit 08f5fd45 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

minor cleanup

parent 87ee57b1
......@@ -9,7 +9,7 @@ procedure Kazoo is
begin
declare
Model : constant TASTE_Model := Parse_Project;
Transformed : TASTE_Model := Transform (Model);
Transformed : TASTE_Model := Transform (Model);
begin
if Transformed.Configuration.Glue then
Transformed.Add_Concurrency_View;
......
......@@ -27,29 +27,4 @@ package TASTE.Backend is
elsif Func.Language = "vhdl_brave" then "VHDL_BRAVE"
elsif Func.Language = "micropython" then "MicroPython"
else "None");
-- (case Func.Language is
-- when Language_Ada_95 => "Ada",
-- when Language_ASN1 => "ASN1",
-- when Language_C => "C",
-- when Language_Esterel => "Esterel", -- Not supported
-- when Language_Device => "Blackbox_C",
-- when Language_Gui => "GUI",
-- when Language_Lua => "Lua", -- Not supported
-- when Language_Lustre => "SCADE", -- Not supported
-- when Language_Rhapsody => "CPP",
-- when Language_SDL_RTDS => "RTDS", -- Pragmadev Studio
-- when Language_CPP => "CPP",
-- when Language_SDL_OpenGEODE => "SDL",
-- when Language_RTSJ => "RTSJ", -- Not supported
-- when Language_Scade => "SCADE", -- Not supported
-- when Language_SDL => "SDL",
-- when Language_Simulink => "SIMULINK",
-- when Language_QGenC => "QGenC",
-- when Language_QGenAda => "QGenAda",
-- when Language_System_C => "System_C", -- Not supported
-- when Language_VDM => "VDM", -- Partial support
-- when Language_VHDL => "VHDL",
-- when Language_VHDL_BRAVE => "VHDL_BRAVE",
-- when Language_MicroPython => "MicroPython",
-- when Language_None => "None");
end TASTE.Backend;
-- *************************** taste aadl parser *********************** --
-- (c) 2018 European Space Agency - maxime.perrotin@esa.int
-- (c) 2019 European Space Agency - maxime.perrotin@esa.int
-- LGPL license, see LICENSE file
-- Concurrency View
with Ada.Directories,
Ada.IO_Exceptions,
Ada.Exceptions;
......
-- *************************** taste aadl parser *********************** --
-- (c) 2018 European Space Agency - maxime.perrotin@esa.int
-- (c) 2019 European Space Agency - maxime.perrotin@esa.int
-- LGPL license, see LICENSE file
-- Model of the Concurrency View
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment