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 ******************************************************************************/
10 import from JsonData all;
12 const integer c_imported_i :=11;
16 type enumerated Days { Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday };
30 type record EmptyRec { }
39 type record of universal charstring RoUCS;
40 type record of charstring RoCS;
41 type record of octetstring RoOS;
42 type record of integer RoI;
44 type record of verdicttype RoV;
45 type record of float RoF;
47 type integer IntArr[3];
48 type float FloatArr[3];
49 type universal charstring StrArr[4];
57 type record of Date Dates;
59 type record PhoneNumber {
60 integer country_prefix,
61 integer network_prefix,
64 variant(country_prefix) "JSON: name as CountryPrefix";
65 variant(network_prefix) "JSON: name as NetworkPrefix";
66 variant(local_number) "JSON : name as LocalNumber"
70 type record Profile0 {
73 charstring email_addr optional,
74 Dates meetings optional
80 charstring email_addr optional,
81 Dates meetings optional
83 //variant(email_addr) "JSON : omit as null";
84 variant(meetings) "JSON:omit as null";
85 variant(phone_no) "JSON: name as phone";
86 variant(email_addr) "JSON: name as email";
95 variant(date_val) "JSON:name as date";
96 variant(i_val) "JSON:name as int";
97 variant(f_val) "JSON:name as float";
98 variant(cs_val) "JSON:name as string";
103 float price optional,
106 variant(price) "JSON:omit as null"
113 enumerated { Tiny, Small, Average, Large, Huge } sizeval,
118 record of charstring rocsval
121 universal charstring ucsval,
123 record of integer roival,
127 hexstring productID optional
130 variant "JSON:as value";
131 variant (prod2val.productID) "JSON:name as code";
132 variant(unival) "JSON:as value";
135 type record of Thing Stuff;
145 universal charstring ucs,
146 enumerated { Tiny, Small, Medium, Large, Huge } size,
149 variant(cs) "JSON : default(empty)";
150 variant(i) "JSON:default(-19)";
151 variant(f) "JSON:default(1.0e6)";
152 variant(size) "JSON:default(Tiny)";
153 variant(os) "JSON : default(1DE7)";
154 variant(ucs) "JSON:default(üres)";
155 variant(bs) "JSON:default (101)";
156 variant(hs) "JSON:default(DEAD)";
157 variant(vt) "JSON:default(fail)";
158 variant(b) "JSON:default(false)";
161 type record HasPardType {
162 ProtocolElem_Field1 pard,