QSIG fully implemented
[obnox/wireshark/wip.git] / asn1 / q932 / packet-q932-template.c
1 /* packet-q932.c
2  * Routines for Q.932 packet dissection
3  * 2007  Tomas Kukosa
4  *
5  * $Id$
6  *
7  * Wireshark - Network traffic analyzer
8  * By Gerald Combs <gerald@wireshark.org>
9  * Copyright 1998 Gerald Combs
10  *
11  * This program is free software; you can redistribute it and/or
12  * modify it under the terms of the GNU General Public License
13  * as published by the Free Software Foundation; either version 2
14  * of the License, or (at your option) any later version.
15  *
16  * This program is distributed in the hope that it will be useful,
17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19  * GNU General Public License for more details.
20  *
21  * You should have received a copy of the GNU General Public License
22  * along with this program; if not, write to the Free Software
23  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
24  */
25
26 #ifdef HAVE_CONFIG_H
27 # include "config.h"
28 #endif
29
30 #include <epan/packet.h>
31 #include <epan/prefs.h>
32 #include <epan/strutil.h>
33 #include <epan/emem.h>
34 #include <epan/asn1.h>
35
36 #include "packet-ber.h"
37 #include "packet-q932.h"
38
39 #define PNAME  "Q.932"
40 #define PSNAME "Q932"
41 #define PFNAME "q932"
42
43 /* Initialize the protocol and registered fields */
44 int proto_q932 = -1;
45 static int hf_q932_ie_type = -1;
46 static int hf_q932_ie_len = -1;
47 static int hf_q932_ie_data = -1;
48 static int hf_q932_pp = -1;
49 static int hf_q932_nd = -1;
50 #include "packet-q932-hf.c"
51
52 /* Initialize the subtree pointers */
53 static gint ett_q932 = -1;
54 static gint ett_q932_ie = -1;
55 #include "packet-q932-ett.c"
56
57 /* Preferences */
58
59 /* ROSE context */
60 static rose_ctx_t q932_rose_ctx;
61
62 /* Subdissectors */
63 static dissector_handle_t data_handle = NULL; 
64 static dissector_handle_t q932_ros_handle = NULL; 
65
66 /* Gloabl variables */
67
68
69 #define Q932_IE_EXTENDED_FACILITY   0x0D
70 #define Q932_IE_FACILITY            0x1C
71 #define Q932_IE_NOTIFICATION_INDICATOR  0x27
72 #define Q932_IE_INFORMATION_REQUEST 0x32
73 #define Q932_IE_FEATURE_ACTIVATION  0x38
74 #define Q932_IE_FEATURE_INDICATION  0x39
75 #define Q932_IE_SERVICE_PROFILE_ID  0x3A
76 #define Q932_IE_ENDPOINT_IDENTIFIER 0x3B
77 static const value_string q932_str_ie_type[] = {
78   { Q932_IE_EXTENDED_FACILITY  , "Extended facility" },
79   { Q932_IE_FACILITY           , "Facility" },
80   { Q932_IE_NOTIFICATION_INDICATOR, "Notification indicator" },
81   { Q932_IE_INFORMATION_REQUEST, "Information request" },
82   { Q932_IE_FEATURE_ACTIVATION , "Feature activation" },
83   { Q932_IE_FEATURE_INDICATION , "Feature indication" },
84   { Q932_IE_SERVICE_PROFILE_ID , "Service profile identification" },
85   { Q932_IE_ENDPOINT_IDENTIFIER, "Endpoint identifier" },
86   { 0, NULL}
87 };
88
89 static const value_string str_pp[] = {
90   { 0x11  , "Remote Operations Protocol" },
91   { 0x12  , "CMIP Protocol" },
92   { 0x13  , "ACSE Protocol" },
93   { 0x1F  , "Networking extensions" },
94   { 0, NULL}
95 };
96
97 static const value_string str_nd[] = {
98   { 0x00  , "User suspended" },
99   { 0x01  , "User resume" },
100   { 0x02  , "Bearer service change" },
101   { 0x04  , "Call completion delay" },
102   { 0x03  , "Discriminator for extension to ASN.1 encoded component" },
103   { 0x40  , "Discriminator for extension to ASN.1 encoded component for ISO" },
104   { 0x42  , "Conference established" },
105   { 0x43  , "Conference disconnected" },
106   { 0x44  , "Other party added" },
107   { 0x45  , "Isolated" },
108   { 0x46  , "Reattached" },
109   { 0x47  , "Other party isolated" },
110   { 0x48  , "Other party reattached" },
111   { 0x49  , "Other party split" },
112   { 0x4A  , "Other party disconnected" },
113   { 0x4B  , "Conference floating" },
114   { 0x4C  , "Conference disconnected, pre-emption" },
115   { 0x4F  , "Conference floating, served user pre-empted" },
116   { 0x60  , "Call is a waiting call" },
117   { 0x68  , "Diversion activated" },
118   { 0x69  , "call transferred, alerting" },
119   { 0x6A  , "call transferred, answered" },
120   { 0x6E  , "reverse charging (whole call)" },
121   { 0x6F  , "reverse charging (for the rest of the call)" },
122   { 0x74  , "service profile update" },
123   { 0x79  , "Remote hold" },
124   { 0x7A  , "Remote retrieval" },
125   { 0x7B  , "Call is diverting" },
126   { 0, NULL}
127 };
128
129 #include "packet-q932-fn.c"
130
131 /*--- dissect_q932_facility_ie -------------------------------------------------------*/
132 /*static*/ void
133 dissect_q932_facility_ie(tvbuff_t *tvb, int offset, packet_info *pinfo, proto_tree *tree, int length) {
134   guint8 class;
135   gboolean pc;
136   guint32 tag;
137   guint32 len;
138   int hoffset, eoffset;
139   int ie_end;
140   tvbuff_t *next_tvb;
141
142   ie_end = offset + length;
143   proto_tree_add_item(tree, hf_q932_pp, tvb, offset, 1, FALSE);
144   offset++;
145   while (offset < ie_end) {
146     hoffset = offset;
147     offset = get_ber_identifier(tvb, offset, &class, &pc, &tag);
148     offset = get_ber_length(tree, tvb, offset, &len, NULL);
149     eoffset = offset + len;
150     next_tvb =  tvb_new_subset(tvb, hoffset, eoffset - hoffset, eoffset - hoffset);
151     switch (class) {
152       case BER_CLASS_CON:
153         switch (tag) {
154           case 10 :  /* Network Facility Extension */
155             dissect_NetworkFacilityExtension_PDU(next_tvb, pinfo, tree);
156             break;
157           case 18 :  /* Network Protocol Profile */
158             dissect_NetworkProtocolProfile_PDU(next_tvb, pinfo, tree);
159             break;
160           case 11 :  /* Interpretation Component */
161             dissect_InterpretationComponent_PDU(next_tvb, pinfo, tree);
162             break;
163           /* ROSE APDU */
164           case  1 :  /* invoke */
165           case  2 :  /* returnResult */
166           case  3 :  /* returnError */
167           case  4 :  /* reject */
168             q932_rose_ctx.apdu_depth = 1;
169             pinfo->private_data = &q932_rose_ctx;
170             call_dissector(q932_ros_handle, next_tvb, pinfo, tree);
171             break;
172           /* DSE APDU */
173           case 12 :  /* begin */
174           case 14 :  /* end */
175           case 15 :  /* continue */
176           case 17 :  /* abort */
177             offset = dissect_ber_identifier(pinfo, tree, tvb, hoffset, NULL, NULL, NULL);
178             offset = dissect_ber_length(pinfo, tree, tvb, offset, NULL, NULL);
179             proto_tree_add_text(tree, tvb, offset, len, "DSE APDU (not supported)");
180             break;
181           default:
182             offset = dissect_ber_identifier(pinfo, tree, tvb, hoffset, NULL, NULL, NULL);
183             offset = dissect_ber_length(pinfo, tree, tvb, offset, NULL, NULL);
184             proto_tree_add_text(tree, tvb, offset, len, "Unknown Component");
185         }
186         break;
187       case BER_CLASS_APP:
188         switch (tag) {
189           /* ACSE APDU */
190           case  0 :  /* aarq */
191           case  1 :  /* aare */
192           case  2 :  /* rlrq */
193           case  3 :  /* rlre */
194           case  4 :  /* abrt */
195             offset = dissect_ber_identifier(pinfo, tree, tvb, hoffset, NULL, NULL, NULL);
196             offset = dissect_ber_length(pinfo, tree, tvb, offset, NULL, NULL);
197             proto_tree_add_text(tree, tvb, offset, len, "ACSE APDU (not supported)");
198             break;
199           default:
200             offset = dissect_ber_identifier(pinfo, tree, tvb, hoffset, NULL, NULL, NULL);
201             offset = dissect_ber_length(pinfo, tree, tvb, offset, NULL, NULL);
202             proto_tree_add_text(tree, tvb, offset, len, "Unknown Component");
203         }
204         break;
205       default:
206         offset = dissect_ber_identifier(pinfo, tree, tvb, hoffset, NULL, NULL, NULL);
207         offset = dissect_ber_length(pinfo, tree, tvb, offset, NULL, NULL);
208         proto_tree_add_text(tree, tvb, offset, len, "Unknown Component");
209     }
210     offset = eoffset;
211   }
212 }
213
214 /*--- dissect_q932_ni_ie -------------------------------------------------------*/
215 static void
216 dissect_q932_ni_ie(tvbuff_t *tvb, int offset, packet_info *pinfo _U_, proto_tree *tree, int length) {
217   int remain = length;
218   guint8 octet = 0;
219   guint32 value = 0;
220
221   while ((remain > 0) && !(octet & 0x80)) {
222     octet = tvb_get_guint8(tvb, offset++);
223     remain--;
224     value <<= 7;
225     value |= octet & 0x7F;
226   }
227   proto_tree_add_uint(tree, hf_q932_nd, tvb, offset - (length - remain), length - remain, value);
228
229   if (remain > 0) {
230     proto_tree_add_text(tree, tvb, offset - remain, remain, "ASN.1 Encoded Data Structure(NOT IMPLEMENTED): %s", tvb_bytes_to_str(tvb, offset - remain, remain));
231   }
232 }
233
234 /*--- dissect_q932_ie -------------------------------------------------------*/
235 static void
236 dissect_q932_ie(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree) {
237   gint offset;
238   proto_item *ti, *ti_ie;
239   proto_tree *ie_tree;
240   guint8 ie_type, ie_len;
241
242   offset = 0;
243
244   ti = proto_tree_add_item_hidden(tree, proto_q932, tvb, offset, -1, FALSE);
245
246   ie_type = tvb_get_guint8(tvb, offset);
247   ie_len = tvb_get_guint8(tvb, offset + 1);
248
249   ti_ie = proto_tree_add_text(tree, tvb, offset, -1, "%s",
250             val_to_str(ie_type, VALS(q932_str_ie_type), "unknown (0x%02X)"));
251   ie_tree = proto_item_add_subtree(ti_ie, ett_q932_ie); 
252   proto_tree_add_item(ie_tree, hf_q932_ie_type, tvb, offset, 1, FALSE);
253   proto_tree_add_item(ie_tree, hf_q932_ie_len, tvb, offset + 1, 1, FALSE);
254   offset += 2;
255   if (tvb_length_remaining(tvb, offset) <= 0)
256     return;
257   switch (ie_type) {
258     case Q932_IE_FACILITY :
259       dissect_q932_facility_ie(tvb, offset, pinfo, ie_tree, ie_len);
260       break;
261     case Q932_IE_NOTIFICATION_INDICATOR :
262       dissect_q932_ni_ie(tvb, offset, pinfo, ie_tree, ie_len);
263       break;
264     default:
265       if (ie_len > 0) {
266         if (tree) proto_tree_add_item(ie_tree, hf_q932_ie_data, tvb, offset, ie_len, FALSE);
267       }
268   }
269 }
270
271 /*--- dissect_q932_apdu -----------------------------------------------------*/
272 static void
273 dissect_q932_apdu(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree) {
274   call_dissector(q932_ros_handle, tvb, pinfo, tree);
275 }
276
277 /*--- proto_register_q932 ---------------------------------------------------*/
278 void proto_register_q932(void) {
279
280   /* List of fields */
281   static hf_register_info hf[] = {
282     { &hf_q932_ie_type, { "Type", "q932.ie.type",
283                           FT_UINT8, BASE_HEX, VALS(q932_str_ie_type), 0x0,
284                           "Information Element Type", HFILL }},
285     { &hf_q932_ie_len,  { "Length", "q932.ie.len",
286                           FT_UINT8, BASE_DEC, NULL, 0x0,
287                           "Information Element Length", HFILL }},
288     { &hf_q932_ie_data, { "Data", "q932.ie.data",
289                           FT_BYTES, BASE_HEX, NULL, 0x0,
290                           "Data", HFILL }},
291     { &hf_q932_pp,      { "Protocol profile", "q932.pp",
292                           FT_UINT8, BASE_HEX, VALS(str_pp), 0x1F,
293                           "Protocol profile", HFILL }},
294     { &hf_q932_nd,      { "Notification description", "q932.nd",
295                           FT_UINT8, BASE_HEX, VALS(str_nd), 0x0,
296                           "Notification description", HFILL }},
297 #include "packet-q932-hfarr.c"
298   };
299
300   /* List of subtrees */
301   static gint *ett[] = {
302     &ett_q932,
303     &ett_q932_ie,
304 #include "packet-q932-ettarr.c"
305   };
306
307   /* Register protocol and dissector */
308   proto_q932 = proto_register_protocol(PNAME, PSNAME, PFNAME);
309   register_dissector("q932.apdu", dissect_q932_apdu, proto_q932);
310
311   /* Register fields and subtrees */
312   proto_register_field_array(proto_q932, hf, array_length(hf));
313   proto_register_subtree_array(ett, array_length(ett));
314
315   rose_ctx_init(&q932_rose_ctx);
316
317   /* Register dissector tables */
318   q932_rose_ctx.arg_global_dissector_table = register_dissector_table("q932.ros.global.arg", "Q.932 Operation Argument (global opcode)", FT_STRING, BASE_NONE);
319   q932_rose_ctx.res_global_dissector_table = register_dissector_table("q932.ros.global.res", "Q.932 Operation Result (global opcode)", FT_STRING, BASE_NONE);
320   q932_rose_ctx.arg_local_dissector_table = register_dissector_table("q932.ros.local.arg", "Q.932 Operation Argument (local opcode)", FT_UINT32, BASE_HEX); 
321   q932_rose_ctx.res_local_dissector_table = register_dissector_table("q932.ros.local.res", "Q.932 Operation Result (local opcode)", FT_UINT32, BASE_HEX); 
322   q932_rose_ctx.err_global_dissector_table = register_dissector_table("q932.ros.global.err", "Q.932 Error (global opcode)", FT_STRING, BASE_NONE);
323   q932_rose_ctx.err_local_dissector_table = register_dissector_table("q932.ros.local.err", "Q.932 Error (local opcode)", FT_UINT32, BASE_HEX); 
324 }
325
326 /*--- proto_reg_handoff_q932 ------------------------------------------------*/
327 void proto_reg_handoff_q932(void) {
328   dissector_handle_t q932_ie_handle;
329
330   q932_ie_handle = create_dissector_handle(dissect_q932_ie, proto_q932);
331   /* Facility */
332   dissector_add("q931.ie", (0x00 << 8) | Q932_IE_FACILITY, q932_ie_handle); 
333   /* Notification indicator */
334   dissector_add("q931.ie", (0x00 << 8) | Q932_IE_NOTIFICATION_INDICATOR, q932_ie_handle); 
335
336   q932_ros_handle = find_dissector("q932.ros");
337   data_handle = find_dissector("data");
338 }
339
340 /*---------------------------------------------------------------------------*/