af710487 |
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 | } |