Newer
Older
* @author ETSI / STF519
* @version $URL:$
* $Id:$
* @desc This module provides functions used in S1AP.
* @copyright ETSI Copyright Notification
* No part may be reproduced except as authorized by written permission.
* The copyright and the foregoing restriction extend to reproduction in all media.
* All rights reserved.
* @see ETSI TS 136 413 / 3GPP TS 36.413 version 13.4.0 Release 13
import from LibCommon_VerdictControl all;
import from LibCommon_BasicTypesAndValues all;
import from S1AP_PDU_Descriptions language "ASN.1:1997" all;
import from LibS1AP_Interface all;
import from LibS1AP_Pixits all;
import from LibS1AP_Templates all;
/**
* @desc Common functions description
*/
group commonFunctions {
* @desc Indicate if the provided value is greather or equal to 0
* @return true if value of p_int greater than 0
* @param p_int - integer value
*/
function f_gtZero( // FIXME Do we really need a function for <= mathematical operation???
if (p_int > 0){
return true;
}
else{
return false;
}
* @desc Increment the provided value by one
* @return incremented value of p_int 0
* @param p_int - integer value
*/
function f_inc(
inout UInt32 p_int
) return UInt32 {
/**
* @desc Receive functions description
*/
group receivePDU {
*/
function f_S1APPDU_Get(
inout S1AP_PDU p_PDU
) runs on S1APComponent {
vc_recvS1AP_PDU := p_PDU;
if (ischosen(p_PDU.initiatingMessage)) {
//TODO...
}
if (ischosen(p_PDU.successfulOutcome)) {
//TODO...
}
if (ischosen(p_PDU.unsuccessfulOutcome)) {
//TODO...
}
} // End of function f_S1APPDU_Get
/**
* @param p_PDU template of the message to be received
*/
function f_recv_S1AP_PDU(
in template S1AP_PDU p_PDU
) runs on S1APComponent {
[] tc_wait.timeout {
setverdict(inconc,"*** " & __SCOPE__ & ": INCONC: Message was not received in due time. ***");
all timer.stop;
f_componentStop();
}
* @desc Receive S1AP PDU with InitiatingMessage payload from protocol port
* @param p_initiatingMessage Receive template for InitiatingMessage message
} // End of function f_recv_S1AP_initiatingMessage
/**
* @desc Receive S1AP PDU with SuccessfulOutcome payload from protocol port
* @param p_successfulOutcome Receive template for SuccessfulOutcome message
f_recv_S1AP_PDU( {successfulOutcome := p_successfulOutcome})
* @desc Receive S1AP PDU with UnsuccessfulOutcome payload from protocol port
* @param p_unsuccessfulOutcome Receive template for UnsuccessfulOutcome message
template (present) UnsuccessfulOutcome p_unsuccessfulOutcome := ?
f_recv_S1AP_PDU( {unsuccessfulOutcome := p_unsuccessfulOutcome})
/**
* @desc Send functions description
*/
group sendPDU {
*/
function f_S1APPDU_Set(
inout template (value) S1AP_PDU p_PDU
) runs on S1APComponent {
if (ischosen(p_PDU.initiatingMessage)) {
//TODO...
vc_sendS1AP_PDU:=valueof(p_PDU);
}
//TODO...
vc_sendS1AP_PDU:=valueof(p_PDU);
}
//TODO...
vc_sendS1AP_PDU:=valueof(p_PDU);
}
* @desc Send S1AP PDU to protocol port
* @param p_PDU template value message to be send
*/
function f_send_S1AP_PDU(
in template (value) S1AP_PDU p_PDU
) runs on S1APComponent {
f_S1APPDU_Set(p_PDU);
S1_MMEeNB_P.send(p_PDU);
* @desc Send S1AP PDU with InitiatingMessage payload from protocol port
* @param p_initiatingMessage Send value template for InitiatingMessage message
*/
function f_send_S1AP_initiatingMessage(
in template (value) InitiatingMessage p_initiatingMessage
) runs on S1APComponent {
f_send_S1AP_PDU( {initiatingMessage := p_initiatingMessage})
* @desc Send S1AP PDU with SuccessfulOutcome payload from protocol port
* @param p_successfulOutcome Send value template for SuccessfulOutcome message
*/
function f_send_S1AP_successfulOutcome(
in template (value) SuccessfulOutcome p_successfulOutcome
f_send_S1AP_PDU( {successfulOutcome := p_successfulOutcome})
* @desc Send S1AP PDU with UnsuccessfulOutcome payload from protocol port
* @param p_unsuccessfulOutcome Send value template for UnsuccessfulOutcome message
in template (value) UnsuccessfulOutcome p_unsuccessfulOutcome
) runs on S1APComponent {
f_send_S1AP_PDU( {unsuccessfulOutcome := p_unsuccessfulOutcome})
function f_preambleS1AP_MME()
runs on S1APComponent {
//TODO:...
function f_preambleS1AP_eNB()
runs on S1APComponent {
//TODO:...
} // End of function f_preambleS1AP_eNB
} // End of group preamble_S1AP
function f_postambleS1AP_MME()
runs on S1APComponent {
// TODO:...
} // End of function f_postambleS1AP_MME
/**
* @desc
* @verdict
*/
function f_postambleS1AP_eNB()
runs on S1APComponent {
// TODO:...
} // End of function f_postambleS1AP_eNB
} // End of group postamble_S1AP
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
} // End of group postambles
/**
* @desc Global 'altstep' statements description
*/
group globalSteps {
/**
* @desc This is a test step that init S1AP component
*/
function f_S1AP_Init_Component()
runs on S1APComponent {
} // End of function f_S1AP_Init_Component
/**
* @desc Component termination
*/
function f_S1AP_terminate_component()
runs on S1APComponent {
log("component terminated - forced!");
deactivate;
stop;
} // End of function f_S1AP_terminate_component
/**
* @desc Component termination
*/
function f_componentStop()
runs on S1APComponent {
syncPort.send(m_syncClientStop);
S1_MMEeNB_P.clear;
stop;
} // End of function f_componentStop
/**
* @desc Original copied from older LibCommon_VerdictControl
*/
function f_getVerdict() // FIXME Are you sure we really need it???
return FncRetCode {
var FncRetCode v_ret := e_error;
if (getverdict == pass or getverdict == none) {
v_ret := e_success;
}
return v_ret;
} // End of function
/**
*
* @desc Wait for particular time before next expected message
*/
function f_wait(float p_time) // FIXME To be replace by LibCommon.f_sleep!!!
runs on S1APComponent {
tc_wait.start(p_time);
alt {
[] tc_wait.timeout{ }
}
} // End of function f_wait
} // End of group globalSteps
/**
* @desc Default 'altstep' statements description
*/
group defaultsTestStep {
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
runs on S1APComponent {
[] any timer.timeout {
all timer.stop;
if (vc_serverStop==false) {
f_selfOrClientSyncAndVerdict("error", e_timeout);
}
else {
stop;
}
}
[] S1_MMEeNB_P.receive (S1AP_PDU:{initiatingMessage := ?}) -> value vc_recvS1AP_PDUDefault {
repeat;
}
[] S1_MMEeNB_P.receive (S1AP_PDU:{successfulOutcome := ?}) -> value vc_recvS1AP_PDUDefault {
repeat;
}
[] S1_MMEeNB_P.receive (S1AP_PDU:{unsuccessfulOutcome := ?}) -> value vc_recvS1AP_PDUDefault {
repeat;
}
[] S1_MMEeNB_P.receive (S1AP_PDU:?) -> value vc_recvS1AP_PDUDefault {
if (vc_serverStop==false) {
f_selfOrClientSyncAndVerdict("error", e_error);
}
else {
stop;
}
}
[] S1_MMEeNB_P.receive {
if (vc_serverStop==false) {
f_selfOrClientSyncAndVerdict("error", e_error);
}
else {
stop;
}
}
[] a_shutdown() {
// Process temination on error
log("*** a_defaultS1AP() : Process temination on error ***");
// Terminate component execution
stop;
}
runs on S1APComponent {
[] any timer.timeout {
all timer.stop;
if (vc_serverStop==false) {
f_selfOrClientSyncAndVerdict("error", e_timeout);
}
else {
stop;
}
}
//TODO:...
} // End of altstep a_defaultS1AP_MME
runs on S1APComponent {
[] any timer.timeout {
all timer.stop;
if (vc_serverStop==false) {
f_selfOrClientSyncAndVerdict("error", e_timeout);
}
else {
stop;
}
}