LibItsDenm_Functions.ttcn 11.6 KB
Newer Older
tepelmann's avatar
tepelmann committed
 *	@author 	ETSI / STF449
berge's avatar
berge committed
 *  @version 	$URL$
 *				$Id$
 *	@desc		Module containing functions for DENM
 *
 */
module LibItsDenm_Functions {
    // LibCommon
    import from LibCommon_Sync all;
    import from LibCommon_VerdictControl all;
garciay's avatar
garciay committed
    import from LibCommon_Time {
        modulepar PX_TNOAC;
        function f_sleep
    };
reinaortega's avatar
reinaortega committed
        
    // LibIts
    import from LibItsCommon_Functions all;
    import from LibItsDenm_TestSystem all;
tepelmann's avatar
tepelmann committed
    import from LibItsDenm_TypesAndValues all; 
    import from LibItsDenm_Templates all; 
tepelmann's avatar
tepelmann committed
    import from LibItsDenm_Pics all; 
tepelmann's avatar
tepelmann committed
    import from DENM_PDU_Descriptions language "ASN.1:1997" all;
tepelmann's avatar
tepelmann committed
    import from ITS_Container language "ASN.1:1997" all;
reinaortega's avatar
reinaortega committed

    group utFuntions { 
            
        /**
         * @desc    Requests to bring the IUT in an initial state
         * @param   p_init The initialisation to trigger.
         */
        function f_utInitializeIut(template (value) UtInitialize p_init) runs on ItsDenm {
            
            utPort.send(p_init);
            tc_wait.start;
            alt {
tepelmann's avatar
tepelmann committed
                [] utPort.receive(UtInitializeResult:true) {
reinaortega's avatar
reinaortega committed
                    tc_wait.stop;
berge's avatar
berge committed
                    log("*** " & __SCOPE__ & ": INFO: IUT initialized ***");
reinaortega's avatar
reinaortega committed
                }
tepelmann's avatar
tepelmann committed
                [] a_utDefault();
tepelmann's avatar
tepelmann committed
         * @desc    Triggers an event from the application layer
reinaortega's avatar
reinaortega committed
         * @param   p_event The event to trigger.
         */
tepelmann's avatar
tepelmann committed
        function f_utTriggerEvent(template (value) UtTrigger p_event) runs on ItsDenm return ActionID {
            var ActionID v_actionId;
reinaortega's avatar
reinaortega committed
            
tepelmann's avatar
tepelmann committed
            utPort.send(p_event);
reinaortega's avatar
reinaortega committed
            alt {
tepelmann's avatar
tepelmann committed
                [] utPort.receive(UtTriggerResult:?) -> value v_actionId {
reinaortega's avatar
reinaortega committed
                    tc_wait.stop;
                }
tepelmann's avatar
tepelmann committed
                [] a_utDefault();
reinaortega's avatar
reinaortega committed
            }
tepelmann's avatar
tepelmann committed
            
            return v_actionId;
reinaortega's avatar
reinaortega committed
        }
        
        /**
tepelmann's avatar
tepelmann committed
         * @desc    Updates an event at the application layer
         * @param   p_event The event to update.
reinaortega's avatar
reinaortega committed
         */
tepelmann's avatar
tepelmann committed
        function f_utUpdateEvent(template (value) UtUpdate p_event) runs on ItsDenm return ActionID {
            var ActionID v_actionId;
reinaortega's avatar
reinaortega committed
            
tepelmann's avatar
tepelmann committed
            utPort.send(p_event);
reinaortega's avatar
reinaortega committed
            alt {
tepelmann's avatar
tepelmann committed
                [] utPort.receive(UtUpdateResult:?) -> value v_actionId {
reinaortega's avatar
reinaortega committed
                    tc_wait.stop;
                }
tepelmann's avatar
tepelmann committed
                [] a_utDefault();
            }
            
            return v_actionId;
        }
        
        /**
         * @desc    Terminates an event at the application layer
         * @param   p_event The event to terminate.
         */
        function f_utTerminateEvent(template (value) UtTermination p_event) runs on ItsDenm {
            
            utPort.send(p_event);
            alt {
                [] utPort.receive(UtTerminationResult:?) {
reinaortega's avatar
reinaortega committed
                    tc_wait.stop;
                }
tepelmann's avatar
tepelmann committed
                [] a_utDefault();
reinaortega's avatar
reinaortega committed
            }
        }
berge's avatar
berge committed
        /**
         * @desc    Changes the position of the IUT
         * @param   p_latitude
         * @param   p_longitude
         * @param   p_elevation 
         */
        function f_utChangePosition(template (value) UtChangePosition p_position) runs on ItsDenm {
            
            utPort.send(p_position);
            alt {
                [] utPort.receive(UtChangePositionResult:?) {
                    tc_wait.stop;
                }
                [] a_utDefault();
            }
        }
        
reinaortega's avatar
reinaortega committed
    } // End of group utFunctions
tepelmann's avatar
tepelmann committed

tepelmann's avatar
tepelmann committed
    group denmConfigurationFunctions {
berge's avatar
berge committed
        
        /**
         * @desc    Setups default configuration   
         */
reinaortega's avatar
reinaortega committed
        function f_cfUp() runs on ItsDenm {
            
            map(self:utPort, system:utPort);
            map(self:denmPort, system:denmPort);
            f_connect4SelfOrClientSync();
            
        } // end f_cfUp
berge's avatar
berge committed
        
        /**
         * @desc    Deletes default configuration 
         */
reinaortega's avatar
reinaortega committed
        function f_cfDown() runs on ItsDenm {
            
            unmap(self:utPort, system:utPort);
garciay's avatar
garciay committed
            unmap(self:denmPort, system:denmPort);
            f_disconnect4SelfOrClientSync();
            
        } // end f_cfDown
berge's avatar
berge committed
        
tepelmann's avatar
tepelmann committed
    } //end denmConfigurationFunctions
tepelmann's avatar
tepelmann committed
    group altsteps {
        
        /**
         * @desc The base default.
         */
reinaortega's avatar
reinaortega committed
        altstep a_default() runs on ItsDenm {
tepelmann's avatar
tepelmann committed
            [] denmPort.receive(mw_denmInd(mw_denmPdu(mw_anyDenm))) { 
berge's avatar
berge committed
                log("*** " & __SCOPE__ & ": INFO: DENM message received in default ***");
berge's avatar
berge committed
                vc_denmReceived := true;
                repeat;
            }
tepelmann's avatar
tepelmann committed
            [] denmPort.receive {
berge's avatar
berge committed
                log("*** " & __SCOPE__ & ": ERROR: Received an unexpected message ***");
berge's avatar
berge committed
                f_selfOrClientSyncAndVerdict("error", e_error);
tepelmann's avatar
tepelmann committed
            }
            [] tc_wait.timeout {
berge's avatar
berge committed
                log("*** " & __SCOPE__ & ": INCONC: Timeout while awaiting reaction of the IUT prior to Upper Tester action ***");
berge's avatar
berge committed
                f_selfOrClientSyncAndVerdict("error", e_timeout);
tepelmann's avatar
tepelmann committed
            }
            [] tc_ac.timeout {
berge's avatar
berge committed
                log("*** " & __SCOPE__ & ": INCONC: Timeout while awaiting the reception of a message ***");
berge's avatar
berge committed
                f_selfOrClientSyncAndVerdict("error", e_timeout);
tepelmann's avatar
tepelmann committed
            }
tepelmann's avatar
tepelmann committed
            [] a_shutdown() {
                f_poDefault();
                f_cfDown();
berge's avatar
berge committed
                log("*** " & __SCOPE__ & ": INFO: TEST COMPONENT NOW STOPPING ITSELF! ***");
tepelmann's avatar
tepelmann committed
                stop;   
            }
        }
        
        /**
         * @desc Default handling the cancellation of an event.
         * @param p_trigger Indicates if the cancellation have to be raised by the test system(e_ets) 
         *                  or at the application layer of the IUT(e_iut).
         * @param p_actionId The action ID of the event to be cancelled
tepelmann's avatar
tepelmann committed
         */
tepelmann's avatar
tepelmann committed
        altstep a_cancelEvent(in template (value) Trigger p_trigger, in template (value) ActionID p_actionId) 
reinaortega's avatar
reinaortega committed
        runs on ItsDenm {
tepelmann's avatar
tepelmann committed
            [] a_shutdown() {
tepelmann's avatar
tepelmann committed
                f_poCancelEvent(p_trigger, p_actionId);
tepelmann's avatar
tepelmann committed
                f_cfDown();
berge's avatar
berge committed
                log("*** " & __SCOPE__ & ": INFO: TEST COMPONENT NOW STOPPING ITSELF! ***");
tepelmann's avatar
tepelmann committed
                stop;   
            }
tepelmann's avatar
tepelmann committed
        }
        
tepelmann's avatar
tepelmann committed
        /**
         * TODO
         * @desc 
         */
        altstep a_utDefault() runs on ItsDenm {
            var UtEventInd v_event;
            [] utPort.receive(UtEventInd:?) -> value v_event {
                vc_utEvents[sizeof(vc_utEvents)] := v_event;
                repeat;
            }
            [] utPort.receive {
                tc_wait.stop;
berge's avatar
berge committed
                log("*** " & __SCOPE__ & ": INFO: Received unexpected UT message from IUT ***");
tepelmann's avatar
tepelmann committed
                f_selfOrClientSyncAndVerdict("error", e_error);
            }
            [] tc_wait.timeout {
berge's avatar
berge committed
                log("*** " & __SCOPE__ & ": INFO: Could not receive expected UT message from IUT in time ***");
tepelmann's avatar
tepelmann committed
                f_selfOrClientSyncAndVerdict("error", e_timeout);
            }
            [else] { // Shortcut defaults
                repeat; 
            }
        }
        
tepelmann's avatar
tepelmann committed
    } // end group altsteps
    
    group preambles {
        
        /**
         * @desc The default preamble.
         */
reinaortega's avatar
reinaortega committed
        function f_prDefault() runs on ItsDenm {
tepelmann's avatar
tepelmann committed
            vc_default := activate(a_default());
        }
        
        /**
         * @desc Brings the IUT into an initial state.
         * @return FncRetCode 
tepelmann's avatar
tepelmann committed
         */
reinaortega's avatar
reinaortega committed
        function f_prInitialState() runs on ItsDenm return FncRetCode {
tepelmann's avatar
tepelmann committed
            var FncRetCode v_ret := e_success;
            
            f_utInitializeIut(m_denmInitialize);
tepelmann's avatar
tepelmann committed
            
            f_prDefault();
tepelmann's avatar
tepelmann committed
            
            return v_ret;
        }
        
    } // end group preambles
    
    group postambles {
        
        /**
         * @desc The default postamble.
         */
reinaortega's avatar
reinaortega committed
        function f_poDefault() runs on ItsDenm {
tepelmann's avatar
tepelmann committed
            var FncRetCode v_ret := e_success;
            //empty
        }
        
        /**
         * @desc Postamble including cancellation of an event.
         * @param p_trigger Indicates if the cancellation have to be raised by the test system(e_ets) 
         *                  or at the application layer of the IUT(e_iut).
         * @param p_actionId The action ID of the event to be cancelled
tepelmann's avatar
tepelmann committed
         */
tepelmann's avatar
tepelmann committed
        function f_poCancelEvent(template (value) Trigger p_trigger, template (value) ActionID p_actionId) 
reinaortega's avatar
reinaortega committed
        runs on ItsDenm {
tepelmann's avatar
tepelmann committed
            var FncRetCode v_ret := e_success;
            
berge's avatar
berge committed
            if (valueof(p_trigger) == e_ets) {
                f_sendDenMessage(
berge's avatar
berge committed
                     m_denmCancellation(p_actionId)
tepelmann's avatar
tepelmann committed
                );
garciay's avatar
garciay committed
                f_sleep(PX_TNOAC);
tepelmann's avatar
tepelmann committed
            }
            else {
tepelmann's avatar
tepelmann committed
                f_utTerminateEvent(m_utEventCancellation(p_actionId));
tepelmann's avatar
tepelmann committed
            }
            
            f_poDefault();
        }
        
    } // end group postambles
    
    group sendFunctions {
        
        /**
         * @desc Sends a DEN message
         * @param p_sendMsg The DEN message to send.
         */
berge's avatar
berge committed
        function f_sendDenMessage(template (value) DecentralizedEnvironmentalNotificationMessage p_denm) runs on ItsDenm return ActionID {

            p_denm.management.actionID.sequenceNumber := vc_sequenceNo;

            denmPort.send(
                m_denmReq(
                    m_denmPdu(
                        p_denm
                    )
                )
            );
berge's avatar
berge committed
                        
berge's avatar
berge committed
            return p_denm.management.actionID;
tepelmann's avatar
tepelmann committed
        }
        
    } // end sendFunctions
    
    group receiveFunctions {
        
        /**
         * @desc Awaits a DEN message and returns it
tepelmann's avatar
tepelmann committed
         * @param p_rcvMsg The expected message to be received.
         * @param p_rcvdMsg The received message - OUT.
         */
reinaortega's avatar
reinaortega committed
        function f_awaitDenMessage(in template (present) DenmInd p_rcvMsg, out DenmInd p_rcvdMsg) runs on ItsDenm {
tepelmann's avatar
tepelmann committed
            
berge's avatar
berge committed
            tc_ac.start;
tepelmann's avatar
tepelmann committed
            alt {
                [] denmPort.receive(p_rcvMsg) -> value p_rcvdMsg {
berge's avatar
berge committed
                    tc_ac.stop;
tepelmann's avatar
tepelmann committed
                }
berge's avatar
berge committed
                [] tc_ac.timeout {
berge's avatar
berge committed
                    log("*** " & __SCOPE__ & ": INFO: Timeout while awaiting the reception of a message ***");
berge's avatar
berge committed
                    f_selfOrClientSyncAndVerdict("error", e_timeout);
tepelmann's avatar
tepelmann committed
            }
            
        }
        
    } // end receiveFunctions
    
    group getFunctions {
        
        group iutGetFunctions {
            
            /**
berge's avatar
berge committed
             * @desc Gets IUT's default event duration
             * @return Default expiry time of DENM events
tepelmann's avatar
tepelmann committed
            function f_getIutDefaultEventDuration() return TimestampIts {
tepelmann's avatar
tepelmann committed
                return PICS_DEFAULT_EXPIRY_TIME;
berge's avatar
berge committed
        } // end iutGetFunctions
tepelmann's avatar
tepelmann committed
    } // end group getFunctions
    
tepelmann's avatar
tepelmann committed
    group miscellaneousFunctions {
        
        function f_increaseSequenceNumber(in SequenceNumber p_sequenceNumber) return SequenceNumber {
            // if maximum number of 65535 reached, reset it to 0
            return ((p_sequenceNumber + 1) mod 65536);
        }
        
        function f_increaseDataVersion(in DataVersion p_dataVersion) return DataVersion {
            // if maximum number of 254 reached, reset it to 0
            return ((p_dataVersion + 1) mod 255);
        }
        
    } // end group miscellaneousFunctions
    
} // end LibItsDenm_Functions