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.

Demo_Ada/DataView.aadl

+--------------------------------------------------------
+--! 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;

Demo_Ada/DataView.asn

+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
+

Demo_Ada/DeploymentView.aadl

+---------------------------------------------------
+-- 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;
+

Demo_Ada/InterfaceView.aadl

+---------------------------------------------------
+-- 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;
+