Commit 9cc9f56e authored by Thanassis Tsiodras's avatar Thanassis Tsiodras
Browse files

Adding Demo_Ada to the testsuites.

This is one of our best tests, because it exercices a lot of paths
in the code - including the message queues used in the GUIs.
parent a94945c6
--------------------------------------------------------
--! File generated by asn2aadl v1.2359: DO NOT EDIT !
--------------------------------------------------------
package DataView
public
with Data_Model;
with Taste;
with Base_Types;
with Deployment;
-- No more private heap required (we use the space certified compiler)
-- Memory_Required: 0
DATA Simulink_Tunable_Parameter
PROPERTIES
TASTE::Ada_Package_Name => "TASTE-Directives";
Type_Source_Name => "Simulink-Tunable-Parameter";
Deployment::ASN1_Module_Name => "TASTE-Directives";
END Simulink_Tunable_Parameter;
DATA Timer
PROPERTIES
TASTE::Ada_Package_Name => "TASTE-Directives";
Type_Source_Name => "Timer";
Deployment::ASN1_Module_Name => "TASTE-Directives";
END Timer;
DATA TASTE_Directive
PROPERTIES
TASTE::Ada_Package_Name => "TASTE-Directives";
Type_Source_Name => "Taste-directive";
Deployment::ASN1_Module_Name => "TASTE-Directives";
END TASTE_Directive;
data Stream_Element_Buffer
-- Root type for buffer elements
properties
Data_Model::Data_Representation => Character;
end Stream_Element_Buffer;
DATA TC_T
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-src/testSuites/Regression_AADLv2/Demo_Ada_GUI/DataView.asn");
TASTE::Ada_Package_Name => "DataView";
Deployment::ASN1_Module_Name => "DataView";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 280; suggested aligned message buffer is...
Source_Data_Size => 280 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "TC-T";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aSEQUENCE;
END TC_T;
DATA TC_T_Buffer_Max
END TC_T_Buffer_Max;
DATA IMPLEMENTATION TC_T_Buffer_Max.impl
-- Buffer to hold a marshalled data of type TC_T
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (280); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END TC_T_Buffer_Max.impl;
DATA TC_T_Buffer
END TC_T_Buffer;
DATA IMPLEMENTATION TC_T_Buffer.impl
-- Buffer to hold a marshalled data of type TC_T
SUBCOMPONENTS
Buffer : data TC_T_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END TC_T_Buffer.impl;
DATA T_UInt8
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-inst/share/taste-types/taste-types.asn");
TASTE::Ada_Package_Name => "TASTE_BasicTypes";
Deployment::ASN1_Module_Name => "TASTE-BasicTypes";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 8; suggested aligned message buffer is...
Source_Data_Size => 8 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "T-UInt8";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aINTEGER;
END T_UInt8;
DATA T_UInt8_Buffer_Max
END T_UInt8_Buffer_Max;
DATA IMPLEMENTATION T_UInt8_Buffer_Max.impl
-- Buffer to hold a marshalled data of type T_UInt8
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END T_UInt8_Buffer_Max.impl;
DATA T_UInt8_Buffer
END T_UInt8_Buffer;
DATA IMPLEMENTATION T_UInt8_Buffer.impl
-- Buffer to hold a marshalled data of type T_UInt8
SUBCOMPONENTS
Buffer : data T_UInt8_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END T_UInt8_Buffer.impl;
DATA T_Boolean
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-inst/share/taste-types/taste-types.asn");
TASTE::Ada_Package_Name => "TASTE_BasicTypes";
Deployment::ASN1_Module_Name => "TASTE-BasicTypes";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 1; suggested aligned message buffer is...
Source_Data_Size => 8 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "T-Boolean";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aBOOLEAN;
END T_Boolean;
DATA T_Boolean_Buffer_Max
END T_Boolean_Buffer_Max;
DATA IMPLEMENTATION T_Boolean_Buffer_Max.impl
-- Buffer to hold a marshalled data of type T_Boolean
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END T_Boolean_Buffer_Max.impl;
DATA T_Boolean_Buffer
END T_Boolean_Buffer;
DATA IMPLEMENTATION T_Boolean_Buffer.impl
-- Buffer to hold a marshalled data of type T_Boolean
SUBCOMPONENTS
Buffer : data T_Boolean_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END T_Boolean_Buffer.impl;
DATA TM_T
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-src/testSuites/Regression_AADLv2/Demo_Ada_GUI/DataView.asn");
TASTE::Ada_Package_Name => "DataView";
Deployment::ASN1_Module_Name => "DataView";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 260; suggested aligned message buffer is...
Source_Data_Size => 264 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "TM-T";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aSTRING;
END TM_T;
DATA TM_T_Buffer_Max
END TM_T_Buffer_Max;
DATA IMPLEMENTATION TM_T_Buffer_Max.impl
-- Buffer to hold a marshalled data of type TM_T
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (264); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END TM_T_Buffer_Max.impl;
DATA TM_T_Buffer
END TM_T_Buffer;
DATA IMPLEMENTATION TM_T_Buffer.impl
-- Buffer to hold a marshalled data of type TM_T
SUBCOMPONENTS
Buffer : data TM_T_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END TM_T_Buffer.impl;
DATA HK_T
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-src/testSuites/Regression_AADLv2/Demo_Ada_GUI/DataView.asn");
TASTE::Ada_Package_Name => "DataView";
Deployment::ASN1_Module_Name => "DataView";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 16; suggested aligned message buffer is...
Source_Data_Size => 16 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "HK-T";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aSEQUENCE;
END HK_T;
DATA HK_T_Buffer_Max
END HK_T_Buffer_Max;
DATA IMPLEMENTATION HK_T_Buffer_Max.impl
-- Buffer to hold a marshalled data of type HK_T
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (16); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END HK_T_Buffer_Max.impl;
DATA HK_T_Buffer
END HK_T_Buffer;
DATA IMPLEMENTATION HK_T_Buffer.impl
-- Buffer to hold a marshalled data of type HK_T
SUBCOMPONENTS
Buffer : data HK_T_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END HK_T_Buffer.impl;
DATA T_UInt32
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-inst/share/taste-types/taste-types.asn");
TASTE::Ada_Package_Name => "TASTE_BasicTypes";
Deployment::ASN1_Module_Name => "TASTE-BasicTypes";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 8; suggested aligned message buffer is...
Source_Data_Size => 8 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "T-UInt32";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aINTEGER;
END T_UInt32;
DATA T_UInt32_Buffer_Max
END T_UInt32_Buffer_Max;
DATA IMPLEMENTATION T_UInt32_Buffer_Max.impl
-- Buffer to hold a marshalled data of type T_UInt32
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END T_UInt32_Buffer_Max.impl;
DATA T_UInt32_Buffer
END T_UInt32_Buffer;
DATA IMPLEMENTATION T_UInt32_Buffer.impl
-- Buffer to hold a marshalled data of type T_UInt32
SUBCOMPONENTS
Buffer : data T_UInt32_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END T_UInt32_Buffer.impl;
DATA Display_T
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-src/testSuites/Regression_AADLv2/Demo_Ada_GUI/DataView.asn");
TASTE::Ada_Package_Name => "DataView";
Deployment::ASN1_Module_Name => "DataView";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 260; suggested aligned message buffer is...
Source_Data_Size => 264 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "Display-T";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aSTRING;
END Display_T;
DATA Display_T_Buffer_Max
END Display_T_Buffer_Max;
DATA IMPLEMENTATION Display_T_Buffer_Max.impl
-- Buffer to hold a marshalled data of type Display_T
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (264); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END Display_T_Buffer_Max.impl;
DATA Display_T_Buffer
END Display_T_Buffer;
DATA IMPLEMENTATION Display_T_Buffer.impl
-- Buffer to hold a marshalled data of type Display_T
SUBCOMPONENTS
Buffer : data Display_T_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END Display_T_Buffer.impl;
DATA T_Int8
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-inst/share/taste-types/taste-types.asn");
TASTE::Ada_Package_Name => "TASTE_BasicTypes";
Deployment::ASN1_Module_Name => "TASTE-BasicTypes";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 8; suggested aligned message buffer is...
Source_Data_Size => 8 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "T-Int8";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aINTEGER;
END T_Int8;
DATA T_Int8_Buffer_Max
END T_Int8_Buffer_Max;
DATA IMPLEMENTATION T_Int8_Buffer_Max.impl
-- Buffer to hold a marshalled data of type T_Int8
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END T_Int8_Buffer_Max.impl;
DATA T_Int8_Buffer
END T_Int8_Buffer;
DATA IMPLEMENTATION T_Int8_Buffer.impl
-- Buffer to hold a marshalled data of type T_Int8
SUBCOMPONENTS
Buffer : data T_Int8_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END T_Int8_Buffer.impl;
DATA T_Int32
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-inst/share/taste-types/taste-types.asn");
TASTE::Ada_Package_Name => "TASTE_BasicTypes";
Deployment::ASN1_Module_Name => "TASTE-BasicTypes";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 8; suggested aligned message buffer is...
Source_Data_Size => 8 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "T-Int32";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aINTEGER;
END T_Int32;
DATA T_Int32_Buffer_Max
END T_Int32_Buffer_Max;
DATA IMPLEMENTATION T_Int32_Buffer_Max.impl
-- Buffer to hold a marshalled data of type T_Int32
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END T_Int32_Buffer_Max.impl;
DATA T_Int32_Buffer
END T_Int32_Buffer;
DATA IMPLEMENTATION T_Int32_Buffer.impl
-- Buffer to hold a marshalled data of type T_Int32
SUBCOMPONENTS
Buffer : data T_Int32_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END T_Int32_Buffer.impl;
DATA Action_T
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-src/testSuites/Regression_AADLv2/Demo_Ada_GUI/DataView.asn");
TASTE::Ada_Package_Name => "DataView";
Deployment::ASN1_Module_Name => "DataView";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 272; suggested aligned message buffer is...
Source_Data_Size => 272 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "Action-T";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aCHOICE;
END Action_T;
DATA Action_T_Buffer_Max
END Action_T_Buffer_Max;
DATA IMPLEMENTATION Action_T_Buffer_Max.impl
-- Buffer to hold a marshalled data of type Action_T
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (272); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END Action_T_Buffer_Max.impl;
DATA Action_T_Buffer
END Action_T_Buffer;
DATA IMPLEMENTATION Action_T_Buffer.impl
-- Buffer to hold a marshalled data of type Action_T
SUBCOMPONENTS
Buffer : data Action_T_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END Action_T_Buffer.impl;
DATA Destination_T
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/assert/tool-src/testSuites/Regression_AADLv2/Demo_Ada_GUI/DataView.asn");
TASTE::Ada_Package_Name => "DataView";
Deployment::ASN1_Module_Name => "DataView";
Source_Language => ASN1;
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 4; suggested aligned message buffer is...
Source_Data_Size => 8 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "Destination-T";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aENUMERATED;
END Destination_T;
DATA Destination_T_Buffer_Max
END Destination_T_Buffer_Max;
DATA IMPLEMENTATION Destination_T_Buffer_Max.impl
-- Buffer to hold a marshalled data of type Destination_T
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END Destination_T_Buffer_Max.impl;
DATA Destination_T_Buffer
END Destination_T_Buffer;
DATA IMPLEMENTATION Destination_T_Buffer.impl
-- Buffer to hold a marshalled data of type Destination_T
SUBCOMPONENTS
Buffer : data Destination_T_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END Destination_T_Buffer.impl;
end DataView;
DataView DEFINITIONS AUTOMATIC TAGS ::= BEGIN
Display-T ::= OCTET STRING (SIZE (1..255))
Action-T ::= CHOICE
{
--display INTEGER (0..255),
display Display-T,
other-action INTEGER (0..1),
housekeeping Destination-T
}
Destination-T ::= ENUMERATED { displayer(0), other-dest(1) }
TC-T ::= SEQUENCE
{
destination Destination-T,
action Action-T
}
TM-T ::= Display-T
HK-T ::= SEQUENCE {
value-to-plot INTEGER (0..16535),
destination Destination-T
}
END
---------------------------------------------------
-- AADL2.0
-- TASTE
-- (c)Ellidiss Technologies
--
---------------------------------------------------
PACKAGE deploymentview::DV::Node1
PUBLIC
WITH Taste;
WITH Deployment;
WITH TASTE_DV_Properties;
PROCESS mypartition
END mypartition;
PROCESS IMPLEMENTATION mypartition.others
END mypartition.others;
END deploymentview::DV::Node1;
PACKAGE deploymentview::DV
PUBLIC
WITH ocarina_processors_x86;
WITH deploymentview::DV::Node1;
WITH Taste;
WITH Deployment;
WITH interfaceview::IV;
WITH TASTE_DV_Properties;
SYSTEM Node1
END Node1;
SYSTEM IMPLEMENTATION Node1.others
SUBCOMPONENTS
IV_mygui : SYSTEM interfaceview::IV::mygui.others {
Taste::coordinates => "1036 964 1318 1257";
Taste::FunctionName => "mygui";
};
IV_router : SYSTEM interfaceview::IV::router.others {
Taste::coordinates => "1462 985 1842 1257";
Taste::FunctionName => "router";
};
IV_displayer : SYSTEM interfaceview::IV::displayer.others {
Taste::coordinates => "1621 1323 2057 1498";
Taste::FunctionName => "displayer";
};
mypartition : PROCESS deploymentview::DV::Node1::mypartition.others {
Taste::coordinates => "849 755 2208 1562";
Deployment::Port_Number => 0;
};
x86_linux32 : PROCESSOR ocarina_processors_x86::x86.linux32 {
Taste::coordinates => "679 524 2378 1677";
};
PROPERTIES
Taste::APLC_Binding => (reference (mypartition)) APPLIES TO IV_mygui;
Taste::APLC_Binding => (reference (mypartition)) APPLIES TO IV_router;
Taste::APLC_Binding => (reference (mypartition)) APPLIES TO IV_displayer;
Actual_Processor_Binding => (reference (x86_linux32)) APPLIES TO mypartition;
END Node1.others;
SYSTEM deploymentview
END deploymentview;
SYSTEM IMPLEMENTATION deploymentview.others
SUBCOMPONENTS
Node1 : SYSTEM Node1.others {
Taste::coordinates => "467 195 2590 1842";
};
interfaceview : SYSTEM interfaceview::IV::interfaceview.others;
END deploymentview.others;
PROPERTIES
Taste::coordinates => "0 0 2970 2100";
Taste::version => "1.3.17";
Taste::interfaceView => "InterfaceView.aadl";
Taste::HWLibraries => ("../../../../tool-inst/share/ocarina/AADLv2/ocarina_components.aadl");
END deploymentview::DV;
---------------------------------------------------
-- AADL2.0
-- TASTE
-- (c)Ellidiss Technologies
--
---------------------------------------------------
PACKAGE interfaceview::FV::mygui
PUBLIC
WITH Taste;
WITH DataView;
WITH TASTE_IV_Properties;
SUBPROGRAM PI_gui_send_tm
FEATURES
tm : IN PARAMETER DataView::TM_T {
Taste::encoding => NATIVE;
};
PROPERTIES
Taste::Associated_Queue_Size => 1;
END PI_gui_send_tm;
SUBPROGRAM IMPLEMENTATION PI_gui_send_tm.others
END PI_gui_send_tm.others;
SUBPROGRAM RI_router_put_tc
FEATURES
tc : IN PARAMETER DataView::TC_T {
Taste::encoding => NATIVE;
};
END RI_router_put_tc;
SUBPROGRAM IMPLEMENTATION RI_router_put_tc.others
END RI_router_put_tc.others;
SUBPROGRAM PI_HousekeepingTM