Commit 9c0c9903 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Add some checks on the model

parent 4c39e52d
with GNAT.OS_Lib, with Ada.Exceptions,
GNAT.OS_Lib,
TASTE, TASTE,
TASTE.AADL_Parser, TASTE.AADL_Parser,
TASTE.Parser_Utils,
TASTE.Model_Transformations, TASTE.Model_Transformations,
TASTE.Dump; TASTE.Dump;
use TASTE.AADL_Parser, use TASTE.AADL_Parser,
TASTE.Parser_Utils,
TASTE.Model_Transformations; TASTE.Model_Transformations;
procedure Kazoo is procedure Kazoo is
...@@ -28,4 +31,7 @@ begin ...@@ -28,4 +31,7 @@ begin
exception exception
when TASTE.Quit_TASTE => when TASTE.Quit_TASTE =>
GNAT.OS_Lib.OS_Exit (1); GNAT.OS_Lib.OS_Exit (1);
when Error : others =>
Put_Error (Ada.Exceptions.Exception_Message (Error));
GNAT.OS_Lib.OS_Exit (1);
end Kazoo; end Kazoo;
...@@ -494,6 +494,15 @@ package body TASTE.AADL_Parser is ...@@ -494,6 +494,15 @@ package body TASTE.AADL_Parser is
-- Find and set protected blocks calling threads -- Find and set protected blocks calling threads
Set_Calling_Threads (Partition); Set_Calling_Threads (Partition);
-- Check that all blocks have a calling thread, otherwise
-- they will never run
for B of Partition.Blocks loop
if B.Calling_Threads.Length = 0 then
raise Concurrency_View_Error with
"Function " & To_String (B.Name) & " has no active caller";
end if;
end loop;
-- Define ports at partition (process) level -- Define ports at partition (process) level
-- (ports are for all interfaces of a function not located -- (ports are for all interfaces of a function not located
-- in the same partition of the system) -- in the same partition of the system)
......
...@@ -72,9 +72,19 @@ package body TASTE.Semantic_Check is ...@@ -72,9 +72,19 @@ package body TASTE.Semantic_Check is
-- 1) interfaces must all have a parameter -- 1) interfaces must all have a parameter
-- 2) interfaces must all be sporadic (TODO) -- 2) interfaces must all be sporadic (TODO)
if Each.Language = "gui" and then if Each.Language = "gui" and then
((for all I of Each.Provided => I.Params.Length /= 1) or else ((Each.Provided.Length > 0 and then
(for all I of Each.Required => I.Params.Length /= 1)) (for all I of Each.Provided => I.Params.Length /= 1))
or else (Each.Required.Length > 0 and then
(for all I of Each.Required => I.Params.Length /= 1)))
then then
for I of Each.Provided loop
Put_Error ("PI " & To_String (I.Name) & " has "
& I.Params.Length'Img & " parameters");
end loop;
for I of Each.Required loop
Put_Error ("RI " & To_String (I.Name) & " has "
& I.Params.Length'Img & " parameters");
end loop;
raise Semantic_Error with raise Semantic_Error with
"Function " & To_String (Each.Name) & "'s interfaces" "Function " & To_String (Each.Name) & "'s interfaces"
& " must all have exactly one parameter"; & " must all have exactly one parameter";
......
...@@ -32,6 +32,7 @@ ...@@ -32,6 +32,7 @@
*/ */
#pragma once #pragma once
@@IF@@ @_List_Of_ASync_PIs'Length_@ > 1 @@-- include "Poll"
typedef enum { typedef enum {
@@INLINE( )(,\n )()@@ @@INLINE( )(,\n )()@@
@@TABLE@@ @@TABLE@@
...@@ -41,7 +42,9 @@ typedef enum { ...@@ -41,7 +42,9 @@ typedef enum {
@@END_TABLE@@ @@END_TABLE@@
@@END_INLINE@@ @@END_INLINE@@
} T_@_Name_@_PI_list; } T_@_Name_@_PI_list;
@@END_IF@@
@@IF@@ @_List_Of_ASync_RIs'Length_@ > 0
typedef enum { typedef enum {
@@INLINE( )(,\n )()@@ @@INLINE( )(,\n )()@@
@@TABLE@@ @@TABLE@@
...@@ -49,3 +52,4 @@ typedef enum { ...@@ -49,3 +52,4 @@ typedef enum {
@@END_TABLE@@ @@END_TABLE@@
@@END_INLINE@@ @@END_INLINE@@
} T_@_Name_@_RI_list; } T_@_Name_@_RI_list;
@@END_IF@@
-------------------------------------------------------- --------------------------------------------------------
--! File generated by asn2aadl v2.1.18: DO NOT EDIT ! --! File generated by asn2aadl v2.1.39: DO NOT EDIT !
-------------------------------------------------------- --------------------------------------------------------
--! InputASN1FileChecksum:6bf664b31ce9ca6fd89af52cea7ea0f2:/home/taste/Desktop/OSRAExpf/DataView.asn: --! InputASN1FileChecksum:00bfee1f07221a65e777197a5a37e561:/home/taste/tool-src/kazoo/test/test-detect-no-active-caller/DataView.asn:
--! InputASN1FileChecksum:ee8a7e01f29874c0d50f437d5abb9599:/home/taste/tool-inst/share/taste-types/taste-types.asn: --! InputASN1FileChecksum:ee8a7e01f29874c0d50f437d5abb9599:/home/taste/tool-inst/share/taste-types/taste-types.asn:
-------------------------------------------------------- --------------------------------------------------------
...@@ -13,7 +13,6 @@ public ...@@ -13,7 +13,6 @@ public
with Taste; with Taste;
with Base_Types; with Base_Types;
with Deployment; with Deployment;
DATA Simulink_Tunable_Parameter DATA Simulink_Tunable_Parameter
PROPERTIES PROPERTIES
TASTE::Ada_Package_Name => "TASTE_Directives"; TASTE::Ada_Package_Name => "TASTE_Directives";
...@@ -21,7 +20,6 @@ PROPERTIES ...@@ -21,7 +20,6 @@ PROPERTIES
Deployment::ASN1_Module_Name => "TASTE-Directives"; Deployment::ASN1_Module_Name => "TASTE-Directives";
TASTE::Forbid_in_PI => true; TASTE::Forbid_in_PI => true;
END Simulink_Tunable_Parameter; END Simulink_Tunable_Parameter;
DATA Timer DATA Timer
PROPERTIES PROPERTIES
TASTE::Ada_Package_Name => "TASTE_Directives"; TASTE::Ada_Package_Name => "TASTE_Directives";
...@@ -29,7 +27,6 @@ PROPERTIES ...@@ -29,7 +27,6 @@ PROPERTIES
Deployment::ASN1_Module_Name => "TASTE-Directives"; Deployment::ASN1_Module_Name => "TASTE-Directives";
TASTE::Forbid_in_PI => true; TASTE::Forbid_in_PI => true;
END Timer; END Timer;
DATA Taste_directive DATA Taste_directive
PROPERTIES PROPERTIES
TASTE::Ada_Package_Name => "TASTE_Directives"; TASTE::Ada_Package_Name => "TASTE_Directives";
...@@ -43,89 +40,320 @@ data Stream_Element_Buffer ...@@ -43,89 +40,320 @@ data Stream_Element_Buffer
properties properties
Data_Model::Data_Representation => Character; Data_Model::Data_Representation => Character;
end Stream_Element_Buffer; end Stream_Element_Buffer;
DATA T_Int32 DATA MyChoice
PROPERTIES PROPERTIES
-- name of the ASN.1 source file: -- name of the ASN.1 source file:
Source_Text => ("/home/taste/tool-inst/share/taste-types/taste-types.asn"); Source_Text => ("/home/taste/tool-src/kazoo/test/test-detect-no-active-caller/DataView.asn");
TASTE::Ada_Package_Name => "TASTE_BasicTypes"; TASTE::Ada_Package_Name => "TASTE_Dataview";
Deployment::ASN1_Module_Name => "TASTE-BasicTypes"; Deployment::ASN1_Module_Name => "TASTE-Dataview";
Source_Language => (ASN1);
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 24; suggested aligned message buffer is...
Source_Data_Size => 24 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "MyChoice";
TASTE::Position_In_File => [ line => 16 ; column => 1 ; ];
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aCHOICE;
END MyChoice;
DATA IMPLEMENTATION MyChoice.impl
END MyChoice.impl;
DATA MyChoice_Buffer_Max
END MyChoice_Buffer_Max;
DATA IMPLEMENTATION MyChoice_Buffer_Max.impl
-- Buffer to hold a marshalled data of type MyChoice
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (24); -- Size of the buffer
Source_Data_Size => 24 Bytes; -- Size of the buffer in bytes
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END MyChoice_Buffer_Max.impl;
DATA MyChoice_Buffer
END MyChoice_Buffer;
DATA IMPLEMENTATION MyChoice_Buffer.impl
-- Buffer to hold a marshalled data of type MyChoice
SUBCOMPONENTS
Buffer : data MyChoice_Buffer_Max.impl;
Length : data Base_Types::Unsigned_32;
PROPERTIES
Data_Model::Data_Representation => Struct;
Source_Data_Size => 40 Bytes; -- Size of the buffer in bytes
END MyChoice_Buffer.impl;
DATA MyEnum
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/taste/tool-src/kazoo/test/test-detect-no-active-caller/DataView.asn");
TASTE::Ada_Package_Name => "TASTE_Dataview";
Deployment::ASN1_Module_Name => "TASTE-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 => "MyEnum";
TASTE::Position_In_File => [ line => 9 ; column => 1 ; ];
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aENUMERATED;
END MyEnum;
DATA IMPLEMENTATION MyEnum.impl
END MyEnum.impl;
DATA MyEnum_Buffer_Max
END MyEnum_Buffer_Max;
DATA IMPLEMENTATION MyEnum_Buffer_Max.impl
-- Buffer to hold a marshalled data of type MyEnum
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer
Source_Data_Size => 8 Bytes; -- Size of the buffer in bytes
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END MyEnum_Buffer_Max.impl;
DATA MyEnum_Buffer
END MyEnum_Buffer;
DATA IMPLEMENTATION MyEnum_Buffer.impl
-- Buffer to hold a marshalled data of type MyEnum
SUBCOMPONENTS
Buffer : data MyEnum_Buffer_Max.impl;
Length : data Base_Types::Unsigned_32;
PROPERTIES
Data_Model::Data_Representation => Struct;
Source_Data_Size => 24 Bytes; -- Size of the buffer in bytes
END MyEnum_Buffer.impl;
DATA MyInteger
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/taste/tool-src/kazoo/test/test-detect-no-active-caller/DataView.asn");
TASTE::Ada_Package_Name => "TASTE_Dataview";
Deployment::ASN1_Module_Name => "TASTE-Dataview";
Source_Language => (ASN1); Source_Language => (ASN1);
-- Size of a buffer to cover all forms of message representation: -- Size of a buffer to cover all forms of message representation:
-- Real message size is 8; suggested aligned message buffer is... -- Real message size is 8; suggested aligned message buffer is...
Source_Data_Size => 8 Bytes; Source_Data_Size => 8 Bytes;
-- name of the corresponding data type in the source file: -- name of the corresponding data type in the source file:
Type_Source_Name => "T-Int32"; Type_Source_Name => "MyInteger";
TASTE::Position_In_File => [ line => 5 ; column => 1 ; ];
-- what kind of type is this? -- what kind of type is this?
TASTE::ASN1_Basic_Type =>aINTEGER; TASTE::ASN1_Basic_Type =>aINTEGER;
END T_Int32; END MyInteger;
DATA IMPLEMENTATION T_Int32.impl DATA IMPLEMENTATION MyInteger.impl
END T_Int32.impl; END MyInteger.impl;
DATA T_Int32_Buffer_Max DATA MyInteger_Buffer_Max
END T_Int32_Buffer_Max; END MyInteger_Buffer_Max;
DATA IMPLEMENTATION T_Int32_Buffer_Max.impl DATA IMPLEMENTATION MyInteger_Buffer_Max.impl
-- Buffer to hold a marshalled data of type T_Int32 -- Buffer to hold a marshalled data of type MyInteger
PROPERTIES PROPERTIES
Data_Model::Data_Representation => array; Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer Data_Model::Dimension => (8); -- Size of the buffer
Source_Data_Size => 8 Bytes; -- Size of the buffer in bytes
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer)); Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END T_Int32_Buffer_Max.impl; END MyInteger_Buffer_Max.impl;
DATA T_Int32_Buffer DATA MyInteger_Buffer
END T_Int32_Buffer; END MyInteger_Buffer;
DATA IMPLEMENTATION T_Int32_Buffer.impl DATA IMPLEMENTATION MyInteger_Buffer.impl
-- Buffer to hold a marshalled data of type T_Int32 -- Buffer to hold a marshalled data of type MyInteger
SUBCOMPONENTS SUBCOMPONENTS
Buffer : data T_Int32_Buffer_Max.impl; Buffer : data MyInteger_Buffer_Max.impl;
Length : data Base_Types::Unsigned_32; Length : data Base_Types::Unsigned_32;
PROPERTIES PROPERTIES
Data_Model::Data_Representation => Struct; Data_Model::Data_Representation => Struct;
END T_Int32_Buffer.impl; Source_Data_Size => 24 Bytes; -- Size of the buffer in bytes
END MyInteger_Buffer.impl;
DATA T_UInt8 DATA MyOctStr
PROPERTIES PROPERTIES
-- name of the ASN.1 source file: -- name of the ASN.1 source file:
Source_Text => ("/home/taste/tool-inst/share/taste-types/taste-types.asn"); Source_Text => ("/home/taste/tool-src/kazoo/test/test-detect-no-active-caller/DataView.asn");
TASTE::Ada_Package_Name => "TASTE_BasicTypes"; TASTE::Ada_Package_Name => "TASTE_Dataview";
Deployment::ASN1_Module_Name => "TASTE-BasicTypes"; Deployment::ASN1_Module_Name => "TASTE-Dataview";
Source_Language => (ASN1);
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 3; suggested aligned message buffer is...
Source_Data_Size => 8 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "MyOctStr";
TASTE::Position_In_File => [ line => 23 ; column => 1 ; ];
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aSTRING;
END MyOctStr;
DATA IMPLEMENTATION MyOctStr.impl
END MyOctStr.impl;
DATA MyOctStr_Buffer_Max
END MyOctStr_Buffer_Max;
DATA IMPLEMENTATION MyOctStr_Buffer_Max.impl
-- Buffer to hold a marshalled data of type MyOctStr
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer
Source_Data_Size => 8 Bytes; -- Size of the buffer in bytes
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END MyOctStr_Buffer_Max.impl;
DATA MyOctStr_Buffer
END MyOctStr_Buffer;
DATA IMPLEMENTATION MyOctStr_Buffer.impl
-- Buffer to hold a marshalled data of type MyOctStr
SUBCOMPONENTS
Buffer : data MyOctStr_Buffer_Max.impl;
Length : data Base_Types::Unsigned_32;
PROPERTIES
Data_Model::Data_Representation => Struct;
Source_Data_Size => 24 Bytes; -- Size of the buffer in bytes
END MyOctStr_Buffer.impl;
DATA MyReal
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/taste/tool-src/kazoo/test/test-detect-no-active-caller/DataView.asn");
TASTE::Ada_Package_Name => "TASTE_Dataview";
Deployment::ASN1_Module_Name => "TASTE-Dataview";
Source_Language => (ASN1);
-- Size of a buffer to cover all forms of message representation:
-- Real message size is 13; suggested aligned message buffer is...
Source_Data_Size => 16 Bytes;
-- name of the corresponding data type in the source file:
Type_Source_Name => "MyReal";
TASTE::Position_In_File => [ line => 7 ; column => 1 ; ];
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aREAL;
END MyReal;
DATA IMPLEMENTATION MyReal.impl
END MyReal.impl;
DATA MyReal_Buffer_Max
END MyReal_Buffer_Max;
DATA IMPLEMENTATION MyReal_Buffer_Max.impl
-- Buffer to hold a marshalled data of type MyReal
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (16); -- Size of the buffer
Source_Data_Size => 16 Bytes; -- Size of the buffer in bytes
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END MyReal_Buffer_Max.impl;
DATA MyReal_Buffer
END MyReal_Buffer;
DATA IMPLEMENTATION MyReal_Buffer.impl
-- Buffer to hold a marshalled data of type MyReal
SUBCOMPONENTS
Buffer : data MyReal_Buffer_Max.impl;
Length : data Base_Types::Unsigned_32;
PROPERTIES
Data_Model::Data_Representation => Struct;
Source_Data_Size => 32 Bytes; -- Size of the buffer in bytes
END MyReal_Buffer.impl;
DATA MySeq
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/taste/tool-src/kazoo/test/test-detect-no-active-caller/DataView.asn");
TASTE::Ada_Package_Name => "TASTE_Dataview";
Deployment::ASN1_Module_Name => "TASTE-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 => "MySeq";
TASTE::Position_In_File => [ line => 11 ; column => 1 ; ];
-- what kind of type is this?
TASTE::ASN1_Basic_Type =>aSEQUENCE;
END MySeq;
DATA IMPLEMENTATION MySeq.impl
END MySeq.impl;
DATA MySeq_Buffer_Max
END MySeq_Buffer_Max;
DATA IMPLEMENTATION MySeq_Buffer_Max.impl
-- Buffer to hold a marshalled data of type MySeq
PROPERTIES
Data_Model::Data_Representation => array;
Data_Model::Dimension => (16); -- Size of the buffer
Source_Data_Size => 16 Bytes; -- Size of the buffer in bytes
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END MySeq_Buffer_Max.impl;
DATA MySeq_Buffer
END MySeq_Buffer;
DATA IMPLEMENTATION MySeq_Buffer.impl
-- Buffer to hold a marshalled data of type MySeq
SUBCOMPONENTS
Buffer : data MySeq_Buffer_Max.impl;
Length : data Base_Types::Unsigned_32;
PROPERTIES
Data_Model::Data_Representation => Struct;
Source_Data_Size => 32 Bytes; -- Size of the buffer in bytes
END MySeq_Buffer.impl;
DATA MySeqOf
PROPERTIES
-- name of the ASN.1 source file:
Source_Text => ("/home/taste/tool-src/kazoo/test/test-detect-no-active-caller/DataView.asn");
TASTE::Ada_Package_Name => "TASTE_Dataview";
Deployment::ASN1_Module_Name => "TASTE-Dataview";
Source_Language => (ASN1); Source_Language => (ASN1);
-- Size of a buffer to cover all forms of message representation: -- Size of a buffer to cover all forms of message representation:
-- Real message size is 8; suggested aligned message buffer is... -- Real message size is 8; suggested aligned message buffer is...
Source_Data_Size => 8 Bytes; Source_Data_Size => 8 Bytes;
-- name of the corresponding data type in the source file: -- name of the corresponding data type in the source file:
Type_Source_Name => "T-UInt8"; Type_Source_Name => "MySeqOf";
TASTE::Position_In_File => [ line => 21 ; column => 1 ; ];
-- what kind of type is this? -- what kind of type is this?
TASTE::ASN1_Basic_Type =>aINTEGER; TASTE::ASN1_Basic_Type =>aSEQUENCEOF;
END T_UInt8; END MySeqOf;
DATA IMPLEMENTATION T_UInt8.impl DATA IMPLEMENTATION MySeqOf.impl
END T_UInt8.impl; END MySeqOf.impl;
DATA T_UInt8_Buffer_Max DATA MySeqOf_Buffer_Max
END T_UInt8_Buffer_Max; END MySeqOf_Buffer_Max;
DATA IMPLEMENTATION T_UInt8_Buffer_Max.impl DATA IMPLEMENTATION MySeqOf_Buffer_Max.impl
-- Buffer to hold a marshalled data of type T_UInt8 -- Buffer to hold a marshalled data of type MySeqOf
PROPERTIES PROPERTIES
Data_Model::Data_Representation => array; Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer Data_Model::Dimension => (8); -- Size of the buffer
Source_Data_Size => 8 Bytes; -- Size of the buffer in bytes
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer)); Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END T_UInt8_Buffer_Max.impl; END MySeqOf_Buffer_Max.impl;
DATA T_UInt8_Buffer DATA MySeqOf_Buffer
END T_UInt8_Buffer; END MySeqOf_Buffer;
DATA IMPLEMENTATION T_UInt8_Buffer.impl DATA IMPLEMENTATION MySeqOf_Buffer.impl
-- Buffer to hold a marshalled data of type T_UInt8 -- Buffer to hold a marshalled data of type MySeqOf
SUBCOMPONENTS SUBCOMPONENTS
Buffer : data T_UInt8_Buffer_Max.impl; Buffer : data MySeqOf_Buffer_Max.impl;
Length : data Base_Types::Unsigned_32; Length : data Base_Types::Unsigned_32;
PROPERTIES PROPERTIES
Data_Model::Data_Representation => Struct; Data_Model::Data_Representation => Struct;
END T_UInt8_Buffer.impl; Source_Data_Size => 24 Bytes; -- Size of the buffer in bytes
END MySeqOf_Buffer.impl;
DATA T_Boolean DATA T_Boolean
PROPERTIES PROPERTIES
...@@ -139,6 +367,7 @@ PROPERTIES ...@@ -139,6 +367,7 @@ PROPERTIES
Source_Data_Size => 8 Bytes; Source_Data_Size => 8 Bytes;
-- name of the corresponding data type in the source file: -- name of the corresponding data type in the source file:
Type_Source_Name => "T-Boolean"; Type_Source_Name => "T-Boolean";
TASTE::Position_In_File => [ line => 14 ; column => 1 ; ];
-- what kind of type is this? -- what kind of type is this?
TASTE::ASN1_Basic_Type =>aBOOLEAN; TASTE::ASN1_Basic_Type =>aBOOLEAN;
END T_Boolean; END T_Boolean;
...@@ -154,6 +383,7 @@ DATA IMPLEMENTATION T_Boolean_Buffer_Max.impl ...@@ -154,6 +383,7 @@ DATA IMPLEMENTATION T_Boolean_Buffer_Max.impl
PROPERTIES PROPERTIES
Data_Model::Data_Representation => array; Data_Model::Data_Representation => array;
Data_Model::Dimension => (8); -- Size of the buffer Data_Model::Dimension => (8); -- Size of the buffer
Source_Data_Size => 8 Bytes; -- Size of the buffer in bytes
Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer)); Data_Model::Base_Type => (classifier (DataView::Stream_Element_Buffer));
END T_Boolean_Buffer_Max.impl; END T_Boolean_Buffer_Max.impl;
...@@ -167,50 +397,53 @@ SUBCOMPONENTS ...@@ -167,50 +397,53 @@ SUBCOMPONENTS
Length : data Base_Types::Unsigned_32; Length : data Base_Types::Unsigned_32;
PROPERTIES PROPERTIES
Data_Model::Data_Representation => Struct; Data_Model::Data_Representation => Struct;
Source_Data_Size => 24 Bytes; -- Size of the buffer in bytes
END T_Boolean_Buffer.impl; END T_Boolean_Buffer.impl;
DATA TASTE_Boolean DATA T_Int32
PROPERTIES PROPERTIES
-- name of the ASN.1 source file: -- name of the ASN.1 source file:
Source_Text => ("DataView.asn"); Source_Text => ("/home/taste/tool-inst/share/taste-types/taste-types.asn");