packet-lapb.c

   1 /* packet-lapb.c
   2  * Routines for lapb frame disassembly
   3  * Olivier Abad <oabad@noos.fr>
   4  *
   5  * $Id: packet-lapb.c,v 1.40 2003/09/26 08:19:55 guy Exp $
   6  *
   7  * Ethereal - Network traffic analyzer
   8  * By Gerald Combs <gerald@ethereal.com>
   9  * Copyright 1998
  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 <stdio.h>
  31 #include <glib.h>
  32 #include <string.h>
  33 #include <epan/packet.h>
  34 #include "xdlc.h"
  35
  36 static int proto_lapb = -1;
  37 static int hf_lapb_address = -1;
  38 static int hf_lapb_control = -1;
  39
  40 static gint ett_lapb = -1;
  41 static gint ett_lapb_control = -1;
  42
  43 static dissector_handle_t x25_dir_handle;
  44 static dissector_handle_t x25_handle;
  45
  46 static void
  47 dissect_lapb(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
  48 {
  49     proto_tree          *lapb_tree, *ti;
  50     int                 is_response;
  51     guint8              byte0;
  52     tvbuff_t            *next_tvb;
  53
  54     if (check_col(pinfo->cinfo, COL_PROTOCOL))
  55         col_set_str(pinfo->cinfo, COL_PROTOCOL, "LAPB");
  56     if (check_col(pinfo->cinfo, COL_INFO))
  57         col_clear(pinfo->cinfo, COL_INFO);
  58
  59     switch (pinfo->p2p_dir) {
  60
  61     case P2P_DIR_SENT:
  62         if(check_col(pinfo->cinfo, COL_RES_DL_SRC))
  63             col_set_str(pinfo->cinfo, COL_RES_DL_SRC, "DTE");
  64         if(check_col(pinfo->cinfo, COL_RES_DL_DST))
  65             col_set_str(pinfo->cinfo, COL_RES_DL_DST, "DCE");
  66         break;
  67
  68     case P2P_DIR_RECV:
  69         if(check_col(pinfo->cinfo, COL_RES_DL_SRC))
  70             col_set_str(pinfo->cinfo, COL_RES_DL_SRC, "DCE");
  71         if(check_col(pinfo->cinfo, COL_RES_DL_DST))
  72             col_set_str(pinfo->cinfo, COL_RES_DL_DST, "DTE");
  73         break;
  74
  75     default:
  76         if(check_col(pinfo->cinfo, COL_RES_DL_SRC))
  77             col_set_str(pinfo->cinfo, COL_RES_DL_SRC, "N/A");
  78         if(check_col(pinfo->cinfo, COL_RES_DL_DST))
  79             col_set_str(pinfo->cinfo, COL_RES_DL_DST, "N/A");
  80         break;
  81     }
  82
  83     byte0 = tvb_get_guint8(tvb, 0);
  84
  85     if (byte0 != 0x01 && byte0 != 0x03) /* invalid LAPB frame */
  86     {
  87         if (check_col(pinfo->cinfo, COL_INFO))
  88             col_set_str(pinfo->cinfo, COL_INFO, "Invalid LAPB frame");
  89         if (tree)
  90             ti = proto_tree_add_protocol_format(tree, proto_lapb, tvb, 0, -1,
  91                             "Invalid LAPB frame");
  92         return;
  93     }
  94
  95     switch (pinfo->p2p_dir) {
  96
  97     case P2P_DIR_SENT:
  98         if (byte0 == 0x03)
  99             is_response = TRUE;
 100         else
 101             is_response = FALSE;
 102         break;
 103
 104     case P2P_DIR_RECV:
 105         if (byte0 == 0x01)
 106             is_response = TRUE;
 107         else
 108             is_response = FALSE;
 109         break;
 110
 111     default:
 112         /*
 113          * XXX - should we base this on the source and destination
 114          * addresses?  The problem is that we can tell one direction
 115          * from another with that, but we can't say which is DTE->DCE
 116          * and which is DCE->DTE.
 117          */
 118         is_response = FALSE;
 119         break;
 120     }
 121
 122     if (tree) {
 123         ti = proto_tree_add_protocol_format(tree, proto_lapb, tvb, 0, 2,
 124                                             "LAPB");
 125         lapb_tree = proto_item_add_subtree(ti, ett_lapb);
 126         proto_tree_add_uint_format(lapb_tree, hf_lapb_address, tvb, 0, 1, byte0,
 127                                        "Address: 0x%02X", byte0);
 128     }
 129     else
 130         lapb_tree = NULL;
 131
 132     dissect_xdlc_control(tvb, 1, pinfo, lapb_tree, hf_lapb_control,
 133             ett_lapb_control, is_response, FALSE, FALSE);
 134
 135     /* not end of frame ==> X.25 */
 136     if (tvb_reported_length(tvb) > 2) {
 137         next_tvb = tvb_new_subset(tvb, 2, -1, -1);
 138         switch (pinfo->p2p_dir) {
 139
 140         case P2P_DIR_SENT:
 141         case P2P_DIR_RECV:
 142             call_dissector(x25_dir_handle, next_tvb, pinfo, tree);
 143             break;
 144
 145         default:
 146             call_dissector(x25_handle, next_tvb, pinfo, tree);
 147             break;
 148         }
 149     }
 150 }
 151
 152 void
 153 proto_register_lapb(void)
 154 {
 155     static hf_register_info hf[] = {
 156         { &hf_lapb_address,
 157           { "Address Field", "lapb.address", FT_UINT8, BASE_HEX, NULL, 0x0,
 158                 "Address", HFILL }},
 159
 160         { &hf_lapb_control,
 161           { "Control Field", "lapb.control", FT_UINT8, BASE_HEX, NULL, 0x0,
 162                 "Control field", HFILL }},
 163     };
 164     static gint *ett[] = {
 165         &ett_lapb,
 166         &ett_lapb_control,
 167     };
 168
 169     proto_lapb = proto_register_protocol("Link Access Procedure Balanced (LAPB)",
 170                                          "LAPB", "lapb");
 171     proto_register_field_array (proto_lapb, hf, array_length(hf));
 172     proto_register_subtree_array(ett, array_length(ett));
 173
 174     register_dissector("lapb", dissect_lapb, proto_lapb);
 175 }
 176
 177 void
 178 proto_reg_handoff_lapb(void)
 179 {
 180     dissector_handle_t lapb_handle;
 181
 182     /*
 183      * Get handles for the X.25 dissectors; we don't get an X.25
 184      * pseudo-header for LAPB-over-Ethernet, but we do get it
 185      * for raw LAPB.
 186      */
 187     x25_dir_handle = find_dissector("x.25_dir");
 188     x25_handle = find_dissector("x.25");
 189
 190     lapb_handle = find_dissector("lapb");
 191     dissector_add("wtap_encap", WTAP_ENCAP_LAPB, lapb_handle);
 192 }