commit (41b85070) · Commits · TTCN-3 Libraries / LibIts

ttcn/CAM/LibItsCam_Functions.ttcn

+47 −7

Original line number	Original line	Diff line number	Diff line
	@@ -55,7 +55,7 @@ module LibItsCam_Functions {
	// basic default altstep		// basic default altstep
	activate(a_basicDefault());		activate(a_basicDefault());

	} // end f_ptcCamUp		} // end f_initialState

	} // end of preambles		} // end of preambles

	@@ -128,6 +128,49 @@ group configuration {

	} // end of configuration		} // end of configuration

			group otherFunctions {

			/** @desc function to generate integer random values
			*
			* @see ttcn-3 - rnd()
			* @param p_lowerbound lowest number in range<br>
			* @param p_upperbound highest number in range<br>
			* @return integer<br>
			*
			*/
			function f_random( in integer p_lowerbound,
			in integer p_upperbound )
			return integer {
			//Variables
			var integer v_random := 0;
			v_random := float2int(int2float(p_upperbound - p_lowerbound +1)*rnd()) + p_lowerbound;
			// Here, upperbound and lowerbound denote highest and lowest number in range.
			log("** f_random: INFO: OK - random value = " & int2str(v_random) & " **");
			return v_random;

			} // end function f_random

			/** @desc function to generate a random bitstring value
			* corrzesponding to 1 bit position set to 1 (eg '00010000', '01000000', ...)
			*
			* @see f_random
			* @param p_length bitstring length - max 15<br>
			* @return bitstring<br>
			*
			*/
			function f_bitPositionRandom( in integer p_length )
			return bitstring {
			//Variables
			var bitstring v_random := '00000000'B;

			v_random := '000000000000001'B << f_random (0, p_length);
			log("** f_random: INFO: OK - random value = " & bit2str(v_random) & " **");
			return v_random;

			} // end function f_random

			} // end of otherFunctions

	group externalFunctions {		group externalFunctions {

	/**		/**
	@@ -137,8 +180,7 @@ group externalFunctions {
	external function fx_generateTime()		external function fx_generateTime()
	return TimeStamp;		return TimeStamp;

	/* @desc Wrapper function for fx_generateTime		/** @desc Wrapper function for fx_generateTime
	* If external function returns FncRetCode "e_error" Test execution stops
	*		*
	* @see xf_generateTime		* @see xf_generateTime
	* @see FncRetCode		* @see FncRetCode
	@@ -158,12 +200,10 @@ group externalFunctions {
	else {		else {
	log("** f_generateTime: ERROR: timestamp could not be generated **");		log("** f_generateTime: ERROR: timestamp could not be generated **");
	setverdict( inconc ) ;		setverdict( inconc ) ;
			return v_generationTime ;
	stop;		stop;
	f_postamble();
	}		}
			} // end function f_generateTime
	} // end function f_triggerMsDsaReq_sf


	} // end of externalFunctions		} // end of externalFunctions

Admin message