regression_test/ttcn2json/two.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2016 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  * Contributors:
   9  *   Balasko, Jeno
  10  *   Baranyi, Botond
  11  *
  12  ******************************************************************************/
  13
  14 module two {
  15   type record of integer Ints with { encode "JSON" };
  16
  17   type set of universal charstring Strings;
  18
  19   type float Floats[6];
  20
  21   type record of Ints Intses with { variant "JSON:extend(alias):(RoRoI)"; };
  22
  23   type record of bitstring Bits;
  24
  25   type record of hexstring Hexes;
  26
  27   type set of octetstring Octets with { variant "JSON: extend(comment):(set of octetstrings)"; };
  28
  29   type charstring Two__Strings[2];
  30
  31   type record of verdicttype Verdicts with { variant([-]) "JSON: extend (comment) : (verdict type)"; };
  32
  33   type integer PosInt (0..infinity);
  34
  35   type record of PosInt PosInts;
  36
  37   external function f_dec_ints(in octetstring os, out Ints x)
  38   with { extension "prototype(fast) decode(JSON)" }
  39 }