regression_test/ttcn2json/two.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2014 Ericsson Telecom AB
   3  * All rights reserved. This program and the accompanying materials
   4  * are made available under the terms of the Eclipse Public License v1.0
   5  * which accompanies this distribution, and is available at
   6  * http://www.eclipse.org/legal/epl-v10.html
   7  ******************************************************************************/
   8
   9 module two {
  10   type record of integer Ints with { encode "JSON" };
  11
  12   type set of universal charstring Strings;
  13
  14   type float Floats[6];
  15
  16   type record of Ints Intses;
  17
  18   type record of bitstring Bits;
  19
  20   type record of hexstring Hexes;
  21
  22   type set of octetstring Octets;
  23
  24   type charstring Two__Strings[2];
  25
  26   type record of verdicttype Verdicts;
  27
  28   type integer PosInt (0..infinity);
  29
  30   type record of PosInt PosInts;
  31
  32   external function f_dec_ints(in octetstring os, out Ints x)
  33   with { extension "prototype(fast) decode(JSON)" }
  34
  35   //type record of integer Rec;
  36
  37 }