Commit fa4d0847 authored by schulzs's avatar schulzs
Browse files

First version of the common modules. A synthesis of these files from IPv6,... 

First version of the common modules. A synthesis of these files from IPv6, WiMax and DMR test suites
parent 139cf5ba

ttcn/Common_AbstractData.ttcn

0 → 100644
+131 −0
Original line number Original line Diff line number Diff line 
/*

 *  @author   ETSI STF 276

 *  @version  $Id$

 *  @desc     A collection of functions for abstract data types which may be

 *            useful in the implementation of any TTCN-3 test suite.

 *  @remark   End users should be aware that any changes made to the  in

 *            definitions this module may be overwritten in future releases.

 *            End users are encouraged to contact the distributers of this

 *            module regarding their modifications or additions so that future

 *            updates will include your changes.

 */

 module Common_AbstractData {



  import from Common_BasicTypesAndValues { type UInt } ;



  group stringStack {



    type record StringStack {

      UInt        stackSize,

      StringItems stringItems

    }



    type record of charstring StringItems;



    /*

     * @desc    Constant which can be used to initialize a

     *          string stack. A string stack can be intialized by

     *          assigning this value in the variable declariation.

     *          An alternative is to call the initlialization function.

     * @see     Common_AbstractData.f_initStringStack

     * @remark  Note that an initlialized stack stack is not

     *          necessarily the same as an empty string stack.

     *          An empty tring stack as 0 zero elements but may

     *          have a non empty list of (empty) items.

     */

    const StringStack c_initStringStack := { 0, {} }



    /*

     * @desc    The invocation of this function will initialize

     *          a string stack to an empty string stack.

     *          An alternative is to initlialize a stack using a

     *          constant value.

     * @see     Common_AbstractData.c_initStringStack

     * @param   p_stack String stack to be initialized.

     */

    function f_initStringStack ( inout StringStack p_stack ) {

      p_stack := c_initStringStack

    }



    /*

     * @desc    This function checks if a string stack is empty.

     * @param   p_stack String stack to be checked.

     * @return  true if empty, false if not empty

     */

    function f_isStringStackEmpty ( inout StringStack p_stack )

    return boolean {

      if ( p_stack.stackSize == 0 ) {return true}

      else {return false}

    }



    /*

     * @desc    This function checks if a given string is on the

     *          string stack.

     * @param   p_stack String stack where the string item

     *          is to be looked for.

     * @param   p_item  String to be checked for.

     * @return  true if found, false if not found

     */

    function f_isItemOnStringStack ( inout StringStack p_stack,

                       in    charstring  p_item )

    return boolean {

      var integer i;

      for (i := 0; i < p_stack.stackSize; i := i+1 ) {

        if ( p_stack.stringItems[i] == p_item ) {

          return true;

        }

      }

      return false;

    }



    /*

     * @desc    This function checks if a given string is on the

     *          string stack.

     * @param   p_stack String stack where the string item

     *          is to be looked for.

     * @param   p_item  String item on top of the stack.

     * @return  false if stack is empty, true otherwise

     */

    function f_peekStringStackTop ( inout StringStack p_stack,

                    out   charstring  p_item)

    return boolean {

      if (p_stack.stackSize == 0) {

        p_item := "f_peekTopStringStack: String stack is empty!";

        return false;

      }

      p_item := p_stack.stringItems[p_stack.stackSize-1];

      return true;

    }





    /*

     * @desc    This function puts a string to the top of a

     *          string stack.

     * @param   p_stack String stack to which the string item

     *          is to be added.

     * @param   p_item  String to be added.

     */

    function f_pushStringStack ( inout StringStack p_stack,

                   in    charstring  p_item ) {

      p_stack.stringItems[p_stack.stackSize] := p_item;

      p_stack.stackSize := p_stack.stackSize + 1;

    }



    /*

     * @desc    This function removes the string from the top of a

     *          string stack. If the stack is empty nothing is done

     * @param   p_stack String stack from which the top string item

     *          is to be removed.

     */

    function f_popStringStack ( inout StringStack p_stack ) {

            if ( p_stack.stackSize > 0 ) {

        p_stack.stackSize := p_stack.stackSize-1;

        // "delete" top stack item to be safe

        // Note: due to record of index the "old top" is size-1!

        p_stack.stringItems[p_stack.stackSize] := "";

      }

    }



  } // end group stringStack



} // end module Common_AbstractData

ttcn/Common_BasicTypesAndValues.ttcn

0 → 100644
+228 −0
Original line number Original line Diff line number Diff line 
/*

 *  @author   ETSI STF 276

 *  @version  $Id$

 *  @desc     A collection of basic type and value definitions which may be 

 *            useful in the implementation of any TTCN-3 test suite. <br><br>

 *  @remark   End users should be aware that any changes made to the  in

 *            definitions this module may be overwritten in future releases.

 *            End users are encouraged to contact the distributers of this  

 *            module regarding their modifications or additions so that future 

 *            updates will include your changes.

 */

 module Common_BasicTypesAndValues {

  

  /* 

   *  @remark Number in subtype name always indicates encoding length 

   *          in _bits_

   */

  group unsignedIntegerDefintions {



    const integer c_uInt1Max := 1;

    const integer c_uInt2Max := 3;

    const integer c_uInt3Max := 7;

    const integer c_uInt4Max := 15;

    const integer c_uInt5Max := 31;

    const integer c_uInt6Max := 63;

    const integer c_uInt7Max := 127;

    const integer c_uInt8Max := 255;

    const integer c_uInt9Max := 511;

    const integer c_uInt10Max := 1023;

    const integer c_uInt11Max := 2047;

    const integer c_uInt12Max := 4095;

    const integer c_uInt13Max := 8191;

    const integer c_uInt14Max := 16383;

    const integer c_uInt15Max := 32767;

    const integer c_uInt16Max := 65535;

    const integer c_uInt17Max := 131071;

    const integer c_uInt18Max := 262143;

    const integer c_uInt19Max := 524287;

    const integer c_uInt20Max := 1048575;

    const integer c_uInt21Max := 2097151;

    const integer c_uInt22Max := 4194303;

    const integer c_uInt23Max := 8388607;

    const integer c_uInt24Max := 16777215;

    const integer c_uInt25Max := 33554431;

    const integer c_uInt26Max := 67108863;

    const integer c_uInt27Max := 134217727;

    const integer c_uInt28Max := 268435456;

    const integer c_uInt29Max := 536870911;

    const integer c_uInt30Max := 1073741823;

    const integer c_uInt31Max := 2147483647;

    const integer c_uInt32Max := 4294967295;

    const integer c_uInt48Max := 281474976710655;

    const integer c_uInt64Max := 281474976710655;



    type integer  UInt  (0 .. infinity);

    type integer  UInt1 (0 .. c_uInt1Max) with {variant "unsigned 1 bit"};

    type integer  UInt2 (0 .. c_uInt2Max) with {variant "unsigned 2 bit"};

    type integer  UInt3 (0 .. c_uInt3Max) with {variant "unsigned 3 bit"};

    type integer  UInt4 (0 .. c_uInt4Max) with {variant "unsigned 4 bit"};

    type integer  UInt5 (0 .. c_uInt5Max) with {variant "unsigned 5 bit"};

    type integer  UInt6 (0 .. c_uInt6Max) with {variant "unsigned 6 bit"};

    type integer  UInt7 (0 .. c_uInt7Max) with {variant "unsigned 7 bit"};

    type integer  UInt8 (0 .. c_uInt8Max) with {variant "unsigned 8 bit"};

    type integer  UInt9 (0 .. c_uInt9Max) with {variant "unsigned 9 bit"};

    type integer  UInt10 (0 .. c_uInt10Max) with {variant "unsigned 10 bit"};

    type integer  UInt11 (0 .. c_uInt11Max) with {variant "unsigned 11 bit"};

    type integer  UInt12 (0 .. c_uInt12Max) with {variant "unsigned 12 bit"};

    type integer  UInt13 (0 .. c_uInt13Max) with {variant "unsigned 13 bit"};

    type integer  UInt14 (0 .. c_uInt14Max) with {variant "unsigned 14 bit"};

    type integer  UInt15 (0 .. c_uInt15Max) with {variant "unsigned 15 bit"};

    type integer  UInt16 (0 .. c_uInt16Max) with {variant "unsigned 16 bit"};

    type integer  UInt17 (0 .. c_uInt17Max) with {variant "unsigned 17 bit"};

    type integer  UInt18 (0 .. c_uInt18Max) with {variant "unsigned 18 bit"};

    type integer  UInt19 (0 .. c_uInt19Max) with {variant "unsigned 19 bit"};

    type integer  UInt20 (0 .. c_uInt20Max) with {variant "unsigned 20 bit"};

    type integer  UInt21 (0 .. c_uInt21Max) with {variant "unsigned 21 bit"};

    type integer  UInt22 (0 .. c_uInt22Max) with {variant "unsigned 22 bit"};

    type integer  UInt23 (0 .. c_uInt23Max) with {variant "unsigned 23 bit"};

    type integer  UInt24 (0 .. c_uInt24Max) with {variant "unsigned 24 bit"};

    type integer  UInt25 (0 .. c_uInt25Max) with {variant "unsigned 25 bit"};

    type integer  UInt26 (0 .. c_uInt26Max) with {variant "unsigned 26 bit"};

    type integer  UInt27 (0 .. c_uInt27Max) with {variant "unsigned 27 bit"};

    type integer  UInt28 (0 .. c_uInt28Max) with {variant "unsigned 28 bit"};

    type integer  UInt29 (0 .. c_uInt29Max) with {variant "unsigned 29 bit"};

    type integer  UInt30 (0 .. c_uInt30Max) with {variant "unsigned 30 bit"};

    type integer  UInt31 (0 .. c_uInt31Max) with {variant "unsigned 31 bit"};

    type integer  UInt32 (0 .. c_uInt32Max) with {variant "unsigned 32 bit"};

    type integer  UInt48 (0 .. c_uInt48Max) with {variant "unsigned 48 bit"};

    type integer  UInt64 (0 .. c_uInt64Max) with {variant "unsigned 64 bit"};

  } // end group unsignedIntegerDefintions

    

  /* 

   * @remark Number in subtype name always indicates encoding length 

   *         in _bits_

   */

  group signedIntegerDefintions {



    const integer c_int1Min := -1;

    const integer c_int1Max := 0;

    const integer c_int2Min := -2;

    const integer c_int2Max := 1;

    const integer c_int3Min := -4;

    const integer c_int3Max := 3;

    const integer c_int4Min := -8;

    const integer c_int4Max := 7;

    const integer c_int5Min := -16;

    const integer c_int5Max := 15;

    const integer c_int6Min := -32;

    const integer c_int6Max := 31;

    const integer c_int7Min := -64;

    const integer c_int7Max := 63;

    const integer c_int8Min := -128;

    const integer c_int8Max := 127;

    const integer c_int9Min := -256;

    const integer c_int9Max := 255;

    const integer c_int10Min := -512;

    const integer c_int10Max := 511;

    const integer c_int11Min := -1024;

    const integer c_int11Max := 1023;

    const integer c_int12Min := -2048;

    const integer c_int12Max := 2047;

    const integer c_int13Min := -4096;

    const integer c_int13Max := 4095;

    const integer c_int14Min := -8192;

    const integer c_int14Max := 8191;

    const integer c_int15Min := -16384;

    const integer c_int15Max := 16383;

    const integer c_int16Min := -32768;

    const integer c_int16Max := 32767;

    const integer c_int17Min := -65536;

    const integer c_int17Max := 65535;

    const integer c_int18Min := -131072;

    const integer c_int18Max := 131071;

    const integer c_int19Min := -262144;

    const integer c_int19Max := 262143;

    const integer c_int20Min := -524288;

    const integer c_int20Max := 524287;

    const integer c_int21Min := -1048576;

    const integer c_int21Max := 1048575;

    const integer c_int22Min := -2097152;

    const integer c_int22Max := 2097151;

    const integer c_int23Min := -4194304;

    const integer c_int23Max := 4194303;

    const integer c_int24Min := -8388608;

    const integer c_int24Max := 8388607;

    const integer c_int25Min := -16777216;

    const integer c_int25Max := 16777215;

    const integer c_int26Min := -33554432;

    const integer c_int26Max := 33554431;

    const integer c_int27Min := -67108864;

    const integer c_int27Max := 67108863;

    const integer c_int28Min := -134217728;

    const integer c_int28Max := 134217727;

    const integer c_int29Min := -268435456;

    const integer c_int29Max := 268435456;

    const integer c_int30Min := -536870912;

    const integer c_int30Max := 536870911;

    const integer c_int31Min := -1073741824;

    const integer c_int31Max := 1073741823;

    const integer c_int32Min := -2147483648;

    const integer c_int32Max := 2147483647;



    type integer  Int;

    type integer  Int1  (c_int1Min .. c_int1Max) with { variant "1 bit"};

    type integer  Int2  (c_int2Min .. c_int2Max) with { variant "2 bit"};

    type integer  Int3  (c_int3Min .. c_int3Max) with { variant "3 bit"};

    type integer  Int4  (c_int4Min .. c_int4Max) with { variant "4 bit"};

    type integer  Int5  (c_int5Min .. c_int5Max) with { variant "5 bit"};

    type integer  Int6  (c_int6Min .. c_int6Max) with { variant "6 bit"};

    type integer  Int7  (c_int7Min .. c_int7Max) with { variant "7 bit"};

    type integer  Int8  (c_int8Min .. c_int8Max) with { variant "8 bit"};

    type integer  Int9  (c_int9Min .. c_int9Max) with { variant "9 bit"};

    type integer  Int10  (c_int10Min .. c_int10Max) with { variant "10 bit"};

    type integer  Int11  (c_int11Min .. c_int11Max) with { variant "11 bit"};

    type integer  Int12  (c_int12Min .. c_int12Max) with { variant "12 bit"};

    type integer  Int13  (c_int13Min .. c_int13Max) with { variant "13 bit"};

    type integer  Int14  (c_int14Min .. c_int14Max) with { variant "14 bit"};

    type integer  Int15  (c_int15Min .. c_int15Max) with { variant "15 bit"};

    type integer  Int16  (c_int16Min .. c_int16Max) with { variant "16 bit"};

    type integer  Int17  (c_int17Min .. c_int17Max) with { variant "17 bit"};

    type integer  Int18  (c_int18Min .. c_int18Max) with { variant "18 bit"};

    type integer  Int19  (c_int19Min .. c_int19Max) with { variant "19 bit"};

    type integer  Int20  (c_int20Min .. c_int20Max) with { variant "20 bit"};

    type integer  Int21  (c_int21Min .. c_int21Max) with { variant "21 bit"};

    type integer  Int22  (c_int22Min .. c_int22Max) with { variant "22 bit"};

    type integer  Int23  (c_int23Min .. c_int23Max) with { variant "23 bit"};

    type integer  Int24  (c_int24Min .. c_int24Max) with { variant "24 bit"};

    type integer  Int25  (c_int25Min .. c_int25Max) with { variant "25 bit"};

    type integer  Int26  (c_int26Min .. c_int26Max) with { variant "26 bit"};

    type integer  Int27  (c_int27Min .. c_int27Max) with { variant "27 bit"};

    type integer  Int28  (c_int28Min .. c_int28Max) with { variant "28 bit"};

    type integer  Int29  (c_int29Min .. c_int29Max) with { variant "29 bit"};

    type integer  Int30  (c_int30Min .. c_int30Max) with { variant "30 bit"};

    type integer  Int31  (c_int31Min .. c_int31Max) with { variant "31 bit"};

    type integer  Int32  (c_int32Min .. c_int32Max) with { variant "32 bit"};



  } // end group signedIntegerDefintions



  group zeroedIntegers {



    const UInt2   c_uInt2Zero := 0;

    const UInt7   c_uInt7Zero := 0;

    const UInt8   c_uInt8Zero := 0;

    const UInt12  c_uInt12Zero := 0;

    const UInt14  c_uInt14Zero := 0;

    const UInt16  c_uInt16Zero := 0;

    const UInt32  c_uInt32Zero := 0;

    

  }//end group zeroedInt



  /* 

   * @remark Number in subtype name always indicates encoding length 

   *       in _bits_

   */

  group booleanDefintions {



    type boolean  Bool1 with { variant "1 bit" };

    type boolean  Bool2 with { variant "2 bit" };

    type boolean  Bool3 with { variant "3 bit" };

    type boolean  Bool4 with { variant "4 bit" };

    type boolean  Bool5 with { variant "5 bit" };

    type boolean  Bool6 with { variant "6 bit" };

    type boolean  Bool7 with { variant "7 bit" };

    type boolean  Bool8 with { variant "8 bit" };

  

  } // end group booleanDefintions



} // end module Common_BasicTypesAndValues

ttcn/Common_DataStrings.ttcn

0 → 100644
+146 −0
Original line number Original line Diff line number Diff line 
/*

 *  @author   ETSI STF 276

 *  @version  $Id$

 *  @desc     A collection of data string type and value definitions which

 *            may be useful in the implementation of any TTCN-3 test

 *            suite. "Data string" refers to TTCN-3 hexstring, octetstring

 *            and bitstring types.

 *  @remark   End users should be aware that any changes made to the  in

 *            definitions this module may be overwritten in future releases.

 *            End users are encouraged to contact the distributers of this

 *            module regarding their modifications or additions so that future

 *            updates will include your changes.

 */

 module Common_DataStrings {



  /*

   * @remark Number in name indicates string length in number of

   *         _bits_

   */

  group bitStringSubTypes {



    type bitstring  Bit1  length(1) with {encode "length(1)"};

    type bitstring  Bit2  length(2) with {encode "length(2)"};

    type bitstring  Bit3  length(3) with {encode "length(3)"};

    type bitstring  Bit4  length(4) with {encode "length(4)"};

    type bitstring  Bit5  length(5) with {encode "length(5)"};

    type bitstring  Bit6  length(6) with {encode "length(6)"};

    type bitstring  Bit7  length(7) with {encode "length(7)"};

    type bitstring  Bit8  length(8) with {encode "length(8)"};

    type bitstring  Bit9  length(9) with {encode "length(9)"};

    type bitstring  Bit10   length(10) with {encode "length(10)"};

    type bitstring  Bit11   length(11) with {encode "length(11)"};

    type bitstring  Bit12   length(12) with {encode "length(12)"};

    type bitstring  Bit13   length(13) with {encode "length(13)"};

    type bitstring  Bit14   length(14) with {encode "length(14)"};

    type bitstring  Bit15   length(15) with {encode "length(15)"};

    type bitstring  Bit16   length(16) with {encode "length(16)"};

    type bitstring  Bit17   length(17) with {encode "length(17)"};

    type bitstring  Bit18   length(18) with {encode "length(18)"};

    type bitstring  Bit19   length(19) with {encode "length(19)"};

    type bitstring  Bit20   length(20) with {encode "length(20)"};

    type bitstring  Bit21   length(21) with {encode "length(21)"};

    type bitstring  Bit22   length(22) with {encode "length(22)"};

    type bitstring  Bit23   length(23) with {encode "length(23)"};

    type bitstring  Bit24   length(24) with {encode "length(24)"};

    type bitstring  Bit25   length(25) with {encode "length(25)"};

    type bitstring  Bit26   length(26) with {encode "length(26)"};

    type bitstring  Bit27   length(27) with {encode "length(27)"};

    type bitstring  Bit28   length(28) with {encode "length(28)"};

    type bitstring  Bit29   length(29) with {encode "length(29)"};

    type bitstring  Bit30   length(30) with {encode "length(30)"};

    type bitstring  Bit31   length(31) with {encode "length(31)"};

    type bitstring  Bit32   length(32) with {encode "length(32)"};



    type bitstring  Bit48   length(48) with {encode "length(48)"};

    type bitstring  Bit64   length(64) with {encode "length(64)"};

    type bitstring  Bit128  length(128) with {encode "length(128)"};

    type bitstring  Bit144  length(144) with {encode "length(144)"};



  } // end group bitStringSubTypes



  group zeroedBits {



    const Bit1 c_1ZeroBit := int2bit(0,1);

    const Bit2 c_2ZeroBits := int2bit(0,2);

    const Bit4 c_4ZeroBits := int2bit(0,4);

    const Bit5 c_5ZeroBits := int2bit(0,5);

    const Bit6 c_6ZeroBits := int2bit(0,6);

    const Bit8 c_8ZeroBits := int2bit(0,8);

    const Bit14 c_14ZeroBits := int2bit(0,14);

    const Bit64 c_64ZeroBits := int2bit(0,64);



  }//end group zeroedBits



  /*

   * @remark Number in name indicates string length in number of

   *         _octets_

   */

  group octetStringSubTypes {



    type octetstring  Oct1  length(1) with {encode "length(1)"};

    type octetstring  Oct2  length(2) with {encode "length(2)"};

    type octetstring  Oct3  length(3) with {encode "length(3)"};

    type octetstring  Oct4  length(4) with {encode "length(4)"};

    type octetstring  Oct5  length(5) with {encode "length(5)"};

    type octetstring  Oct6  length(6) with {encode "length(6)"};

    type octetstring  Oct7  length(7) with {encode "length(7)"};

    type octetstring  Oct8  length(8) with {encode "length(8)"};

    type octetstring  Oct9  length(9) with {encode "length(9)"};

    type octetstring  Oct10 length(10) with {encode "length(10)"};

    type octetstring  Oct11 length(11) with {encode "length(11)"};

    type octetstring  Oct12   length(12) with {encode "length(12)"};

    type octetstring  Oct13   length(13) with {encode "length(13)"};

    type octetstring  Oct14   length(14) with {encode "length(14)"};

    type octetstring  Oct15   length(15) with {encode "length(15)"};

    type octetstring  Oct16   length(16) with {encode "length(16)"};

    

    type octetstring  Oct20   length(20) with {encode "length(20)"};

    type octetstring  Oct80 length(80) with {encode "length(80)"};

    type octetstring  Oct128 length(128) with {encode "length(128)"};

    type octetstring  Oct160 length(160) with {encode "length(160)"};

    type octetstring  Oct320 length(320) with {encode "length(320)"};

    type octetstring  Oct640 length(640) with {encode "length(640)"};

    type octetstring  Oct1280 length(1280) with {encode "length(1280)"};

    type octetstring  Oct1380 length(1380) with {encode "length(1380)"};



    type octetstring  Oct0to16  length(0..16) with {encode "length(0..16)"};

    type octetstring  Oct0to127   length(0..127) with {encode "length(0..127)"};

    type octetstring  Oct0to255   length(0..255) with {encode "length(0..255)"};



    type octetstring  Oct1to15  length(1..15) with {encode "length(1..15)"};

    type octetstring  Oct1to128   length(1..128) with {encode "length(1..128)"};

    type octetstring  Oct1to254   length(1..254) with {encode "length(1..254)"};

    type octetstring  Oct1to255   length(1..255) with {encode "length(1..255)"};



    type octetstring  Oct4to16  length(4..16) with {encode "length(4..16)"};

    type octetstring  Oct6to15  length(6..15) with {encode "length(6..15)"};



  } // end group octetStringSubTypes



  group zeroedBytes {

    const Oct1    c_1ZeroByte := int2oct(0,1);

    const Oct2    c_2ZeroBytes := int2oct(0,2);

    const Oct4    c_4ZeroBytes := int2oct(0,4);

    const Oct6    c_6ZeroBytes := int2oct(0,6);

    const Oct8    c_8ZeroBytes := int2oct(0,8);

    const Oct12   c_12ZeroBytes := int2oct(0,12);

    const Oct16   c_16ZeroBytes := int2oct(0,16);

    const Oct20   c_20ZeroBytes := int2oct(0,20);



    const Oct80   c_80ZeroBytes := int2oct(0,80);

    const Oct160  c_160ZeroBytes := int2oct(0,160);

    const Oct320  c_320ZeroBytes := int2oct(0,320);

    const Oct640  c_640ZeroBytes := int2oct(0,640);

    const Oct1280 c_1280ZeroBytes := int2oct(0,1280);

    const Oct1380 c_1380ZeroBytes := int2oct(0,1380);

    const octetstring c_256ZeroBytes := int2oct(0,256);

    const octetstring c_1KZeroBytes := int2oct(0,1024);

    const octetstring c_4KZeroBytes := int2oct(0,4096);

    const octetstring c_16KZeroBytes := int2oct(0,16384);

    const octetstring c_64KZeroBytes := int2oct(0,65536);

    const octetstring c_128KZeroBytes := int2oct(0,131072);



  }//end group zeroedBytes



} // end module Common_DataStrings

ttcn/Common_Sync.ttcn

0 → 100644
+1057 −0

File added.

Preview size limit exceeded, changes collapsed.

ttcn/Common_TextStrings.ttcn

0 → 100644
+106 −0

File added.

Preview size limit exceeded, changes collapsed.