regression_test/ttcn2json/two.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2015 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 with { variant "JSON:extend(alias):(RoRoI)"; };
  17
  18   type record of bitstring Bits;
  19
  20   type record of hexstring Hexes;
  21
  22   type set of octetstring Octets with { variant "JSON: extend(comment):(set of octetstrings)"; };
  23
  24   type charstring Two__Strings[2];
  25
  26   type record of verdicttype Verdicts with { variant([-]) "JSON: extend (comment) : (verdict type)"; };
  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 }