regression_test/ttcn2json/Main.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 Main
  10 {
  11
  12 import from PDU_Definitions all;
  13
  14 type record HasPardType {
  15   ProtocolElem_Field1 pard,
  16   boolean buul,
  17   Price price
  18 }
  19
  20 external function f_enc_hpt(in HasPardType x) return octetstring
  21   with { extension "prototype(convert) encode(JSON) printing(pretty)" }
  22
  23 external function f_dec_hpt(in octetstring x) return HasPardType
  24   with { extension "prototype(convert) decode(JSON)" }
  25
  26 external function f_enc_pard(in ProtocolElem_Field1 x) return octetstring
  27   with { extension "prototype(convert) encode(JSON) printing(pretty)" }
  28
  29 external function f_enc_obj(in Object x) return octetstring
  30   with { extension "prototype(convert) encode(JSON)" }
  31
  32 external function f_dec_obj(in octetstring x) return Object
  33   with { extension "prototype(convert) decode(JSON)" }
  34
  35 } with {
  36   encode "JSON"
  37 }