Commit 0d01ff6e authored by Thanassis Tsiodras's avatar Thanassis Tsiodras

The Demo_ImportedComponents uses the Shared_Components folder.

parent 53ef84c4
--------------------------------------------------------
--! File generated by asn2aadl v1.2055: DO NOT EDIT !
--------------------------------------------------------
package DataView
public
with Data_Model;
with Taste;
with Base_Types;
-- No more private heap required (we use the space certified compiler)
-- Memory_Required: 0
data Stream_Element_Buffer
-- Root type for buffer elements
properties
Data_Model::Data_Representation => Character;
end Stream_Element_Buffer;
DATA T_POS
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("dataview.asn");
TASTE::EncodingDefinitionFile => classifier(DataView::ACN_dataview);
TASTE::Ada_Package_Name => "MY_MODULE";
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 => "T-POS";
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aCHOICE;
END T_POS;
DATA T_POS_Buffer_Max
END T_POS_Buffer_Max;
DATA IMPLEMENTATION T_POS_Buffer_Max.impl
-- Buffer to hold a marshalled data of type T_POS
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (16); -- Size of the buffer
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END T_POS_Buffer_Max.impl;
DATA T_POS_Buffer
END T_POS_Buffer;
DATA IMPLEMENTATION T_POS_Buffer.impl
-- Buffer to hold a marshalled data of type T_POS
SUBCOMPONENTS
Buffer : data T_POS_Buffer_Max.impl;
Length : data Base_Types::Unsigned_16;
PROPERTIES
Data_Model::Data_Representation => Struct;
END T_POS_Buffer.impl;
DATA ACN_dataview
PROPERTIES
Source_Text => ("dataview.acn");
Source_Language => ACN;
END ACN_dataview;
end DataView;
/*
Automatically generated ACN grammar
Date was: 12/10/2010
Time was: 15:48:48
*/
MY-MODULE DEFINITIONS ::= BEGIN
T-POS[] {
first-choice [size 4, encoding pos-int] ,
second-choice [] {
intVal [size 5, encoding twos-complement] ,
boolVal [true-value '1'B]
}
}
END
MY-MODULE DEFINITIONS AUTOMATIC TAGS ::= BEGIN
T-POS ::= CHOICE {
first-choice INTEGER (0..10),
second-choice SEQUENCE {
intVal INTEGER (-10..10),
boolVal BOOLEAN
}
}
END
PACKAGE exportedComponent::IV
PUBLIC
WITH DataView;
WITH exportedComponent::FV;
WITH Taste;
---------------------------------------------------
-- TASTE Function: exportedComponent::IV::B
---------------------------------------------------
SYSTEM B
FEATURES
Hello_obj107 : PROVIDES SUBPROGRAM ACCESS exportedComponent::FV::Hello_obj107.others
{ Taste::Coordinates => "1719 413";
Taste::RCMoperationKind => sporadic;
Taste::RCMperiod => 0 ms;
Taste::Deadline => 0 ms;
Taste::Importance => MEDIUM ;};
PROPERTIES
Source_Language => C;
Source_Text => ("b.zip");
Taste::Instance_Name => "Function1";
END B;
SYSTEM IMPLEMENTATION B.others
SUBCOMPONENTS
Hello_obj107_impl : SUBPROGRAM exportedComponent::FV::Hello_obj107.others
{ Compute_Execution_Time => 0ms..0ms ;};
CONNECTIONS
SUBPROGRAM ACCESS Hello_obj107_impl -> Hello_obj107;
END B.others;
PROPERTIES
Taste::Export_Date => "Fri Dec 10 16:15:16 EST 2010";
Taste::dataView => ("DataView");
Taste::dataViewPath => ("dataview.aadl");
END exportedComponent::IV;
PACKAGE exportedComponent::FV
PUBLIC
WITH DataView;
WITH TASTE;
SUBPROGRAM Hello_obj107
FEATURES
in_param : IN PARAMETER DataView::T_POS
{ Taste::encoding => ACN; };
PROPERTIES
Taste::Associated_Queue_Size => 1;
END Hello_obj107;
SUBPROGRAM IMPLEMENTATION Hello_obj107.others
END Hello_obj107.others;
END exportedComponent::FV;
Repository of shared components used to test the import/export mechanism of the TASTE-IV tool
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