From Joe Eykholt:

Attached is a patch file and a new dissector for FCoE.   This protocol
is described at http://fcoe.com and has been submitted to T11. It is an encapsulation protocol that can be used to transport FC frames over raw Ethernet when the link is loss-free due to pause.  The Ethertype 0x8906 has been reserved through IEEE for this protocol.

svn path=/trunk/; revision=21967

1 files changed, 338 insertions, 0 deletions

diff --git a/epan/dissectors/packet-fcoe.c b/epan/dissectors/packet-fcoe.c
new file mode 100644
index 0000000000..bd8384585d
--- /dev/null
+++ b/epan/dissectors/packet-fcoe.c
@@ -0,0 +1,338 @@
+/*
+ * packet-fcoe.c
+ * Routines for FCoE dissection - Fibre Channel over Ethernet
+ * Copyright (c) 2006 Nuova Systems, Inc. (jre@nuovasystems.com)
+ *
+ * $Id$
+ *
+ * Wireshark - Network traffic analyzer
+ * By Gerald Combs <gerald@ethereal.com>
+ * Copyright 1998 Gerald Combs
+ *
+ * Based on packet-fcip.c, Copyright 2001, Dinesh G Dutt (ddutt@cisco.com)
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+/*
+ * For FCoE protocol details, see http://fcoe.com.
+ */
+
+#ifdef HAVE_CONFIG_H
+# include "config.h"
+#endif
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <glib.h>
+
+#include <epan/packet.h>
+#include <epan/prefs.h>
+#include <epan/crc32.h>
+#include <epan/etypes.h>
+#include <epan/expert.h>
+
+#define FCOE_ENCAP_HEADER_LEN   2
+
+typedef enum {
+    FCOE_EOFn    = 0x41,
+    FCOE_EOFt    = 0x42,
+    FCOE_EOFrt   = 0x44,
+    FCOE_EOFdt   = 0x46,
+    FCOE_EOFni   = 0x49,
+    FCOE_EOFdti  = 0x4E,
+    FCOE_EOFrti  = 0x4F,
+    FCOE_EOFa    = 0x50
+} fcoe_eof_t;
+
+typedef enum {
+    FCOE_SOFf    = 0x8,
+    FCOE_SOFi4   = 0x9,
+    FCOE_SOFi2   = 0xD,
+    FCOE_SOFi3   = 0xE,
+    FCOE_SOFn4   = 0x1,
+    FCOE_SOFn2   = 0x5,
+    FCOE_SOFn3   = 0x6,
+    FCOE_SOFc4   = 0x9
+} fcoe_sof_t;
+
+static const value_string fcoe_eof_vals[] = {
+    {FCOE_EOFn, "EOFn" },
+    {FCOE_EOFt, "EOFt" },
+    {FCOE_EOFrt, "EOFrt" },
+    {FCOE_EOFdt, "EOFdt" },
+    {FCOE_EOFni, "EOFni" },
+    {FCOE_EOFdti, "EOFdti" },
+    {FCOE_EOFrti, "EOFrti" },
+    {FCOE_EOFa, "EOFa" },
+    {0, NULL}
+};
+
+static const value_string fcoe_sof_vals[] = {
+    {FCOE_SOFf, "SOFf" },
+    {FCOE_SOFi4, "SOFi4" },
+    {FCOE_SOFi2, "SOFi2" },
+    {FCOE_SOFi3, "SOFi3" },
+    {FCOE_SOFn4, "SOFn4" },
+    {FCOE_SOFn2, "SOFn2" },
+    {FCOE_SOFn3, "SOFn3" },
+    {FCOE_SOFc4, "SOFc4" },
+    {0, NULL}
+};
+
+static int proto_fcoe          = -1;
+static int hf_fcoe_ver         = -1;
+static int hf_fcoe_len         = -1;
+static int hf_fcoe_sof         = -1;
+static int hf_fcoe_eof         = -1;
+static int hf_fcoe_crc         = -1;
+static int hf_fcoe_crc_bad     = -1;
+static int hf_fcoe_crc_good    = -1;
+
+static int ett_fcoe            = -1;
+static int ett_fcoe_crc        = -1;
+
+static guint fcoe_ethertype    = ETHERTYPE_FCOE;
+
+static dissector_handle_t data_handle;
+static dissector_handle_t fc_handle;
+static void fcoe_apply_prefs(void);
+
+static void
+dissect_fcoe(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
+{
+    gint eof_offset = 0;
+    gint frame_len = 0;
+    guint version;
+    char *ver;
+    guint16  len_sof;
+    gint bytes_remaining = tvb_length_remaining(tvb, 0);
+    guint8 sof = 0;
+    guint8 eof = 0;
+    const char *eof_str;
+    char *crc_msg;
+    proto_item *ti;
+    proto_item *item;
+    proto_tree *fcoe_tree = NULL;
+    proto_tree *crc_tree;
+    tvbuff_t *next_tvb;
+    gboolean crc_exists;
+    guint32 crc_computed = 0;
+    guint32 crc = 0;
+    
+    if (bytes_remaining < FCOE_ENCAP_HEADER_LEN) {
+        return;
+    }
+
+    if (check_col(pinfo->cinfo, COL_PROTOCOL)) 
+        col_set_str(pinfo->cinfo, COL_PROTOCOL, "FCOE");
+
+    len_sof = tvb_get_ntohs(tvb, 0);
+    frame_len = (len_sof & 0x3ff0) >> 2;
+    sof = len_sof & 0xf;
+    version = len_sof >> 14;
+    next_tvb = tvb_new_subset(tvb, FCOE_ENCAP_HEADER_LEN, -1, frame_len - 4);
+    
+    if (tree) {
+
+        /*
+         * Only version 0 is defined at this point.
+         * Don't print the version in the short summary if it is zero.
+         */
+        ver = "";
+        if (version != 0) {
+            int ver_buf_len = 16;
+            ver = ep_alloc(ver_buf_len);
+            g_snprintf(ver, ver_buf_len, "ver %d ", version);
+        }
+        eof_offset = FCOE_ENCAP_HEADER_LEN + frame_len;
+        eof_str = "none";
+        if (tvb_bytes_exist(tvb, eof_offset, 1)) {
+            eof = tvb_get_guint8(tvb, eof_offset);
+            eof_str = val_to_str(eof, fcoe_eof_vals, "0x%x");
+        }
+
+        /*
+         * Check the CRC.
+         */
+        crc_msg = "";
+        crc_exists = tvb_bytes_exist(tvb, eof_offset - 4, 4);
+        if (crc_exists) {
+            crc = tvb_get_ntohl(tvb, eof_offset - 4);
+            crc_computed = crc32_802_tvb(next_tvb, frame_len - 4);
+            if (crc != crc_computed) {
+                crc_msg = " [bad FC CRC]";
+            }
+        }
+
+        ti = proto_tree_add_protocol_format(tree, proto_fcoe, tvb, 0,
+                                            FCOE_ENCAP_HEADER_LEN,
+                                            "FCoE %s(%s/%s) %d bytes%s", ver,
+                                            val_to_str(sof, fcoe_sof_vals,
+                                                       "0x%x"),
+                                            eof_str, frame_len, crc_msg);
+
+        /* Dissect the FCoE header */
+
+        fcoe_tree = proto_item_add_subtree(ti, ett_fcoe);
+        proto_tree_add_uint(fcoe_tree, hf_fcoe_sof, tvb, 1, 1, sof);
+        proto_tree_add_uint(fcoe_tree, hf_fcoe_ver, tvb, 0, 1, version);
+        proto_tree_add_uint(fcoe_tree, hf_fcoe_len, tvb, 0, 2, frame_len);
+
+        /*
+         * Create the CRC information.
+         */
+        item = ti;
+        if (crc_exists) {
+            if (crc == crc_computed) {
+                item = proto_tree_add_uint_format(fcoe_tree, hf_fcoe_crc, tvb,
+                                           eof_offset - 4, 4, crc,
+                                           "CRC: %8.8x [valid]", crc);
+            } else {
+                item = proto_tree_add_uint_format(fcoe_tree, hf_fcoe_crc, tvb,
+                                           eof_offset - 4, 4, crc,
+                                           "CRC: %8.8x "
+                                           "[error: should be %8.8x]",
+                                           crc, crc_computed);
+                expert_add_info_format(pinfo, item, PI_CHECKSUM, PI_ERROR,
+                                       "Bad FC CRC %8.8x %8.x",
+                                       crc, crc_computed);
+            }
+        }
+        crc_tree = proto_item_add_subtree(item, ett_fcoe_crc);
+        ti = proto_tree_add_boolean(crc_tree, hf_fcoe_crc_bad, tvb,
+                                    eof_offset - 4, 4,
+                                    crc_exists && crc != crc_computed);
+        PROTO_ITEM_SET_GENERATED(ti);
+        ti = proto_tree_add_boolean(crc_tree, hf_fcoe_crc_good, tvb,
+                                    eof_offset - 4, 4,
+                                    crc_exists && crc == crc_computed);
+        PROTO_ITEM_SET_GENERATED(ti);
+
+        /*
+         * Interpret the EOF.
+         */
+        if (tvb_bytes_exist(tvb, eof_offset, 1)) {
+            proto_tree_add_item(fcoe_tree, hf_fcoe_eof, tvb, eof_offset, 1, 0);
+        }
+    }
+
+    /* Set the SOF/EOF flags in the packet_info header */
+    pinfo->sof_eof = 0;
+    if (sof == FCOE_SOFi3 || sof == FCOE_SOFi2 || sof == FCOE_SOFi4) {
+        pinfo->sof_eof = PINFO_SOF_FIRST_FRAME;
+    } else if (sof == FCOE_SOFf) {
+        pinfo->sof_eof = PINFO_SOF_SOFF;
+    }
+
+    if (eof != FCOE_EOFn) {
+        pinfo->sof_eof |= PINFO_EOF_LAST_FRAME;
+    } else if (eof != FCOE_EOFt) {
+        pinfo->sof_eof |= PINFO_EOF_INVALID;
+    }
+
+    /* Call the FC Dissector if this is carrying an FC frame */
+    
+    if (fc_handle) {
+        call_dissector(fc_handle, next_tvb, pinfo, tree);
+    } else if (data_handle) {
+        call_dissector(data_handle, next_tvb, pinfo, tree);
+    }
+}
+
+void
+proto_register_fcoe(void)
+{
+    /* Setup list of header fields  See Section 1.6.1 for details*/
+    static hf_register_info hf[] = {
+        { &hf_fcoe_sof,
+          {"SOF", "fcoe.sof", FT_UINT8, BASE_HEX, VALS(&fcoe_sof_vals), 0,
+           "", HFILL}},
+        { &hf_fcoe_eof,
+          {"EOF", "fcoe.eof", FT_UINT8, BASE_HEX, VALS(&fcoe_eof_vals), 0,
+           "", HFILL}},
+        { &hf_fcoe_ver,
+          {"Version", "fcoe.ver", FT_UINT32, BASE_DEC, NULL, 0, "", HFILL}},
+        { &hf_fcoe_len,
+          {"Frame length", "fcoe.len", FT_UINT32, 
+            BASE_DEC, NULL, 0, "", HFILL}},
+        { &hf_fcoe_crc,
+          {"CRC", "fcoe.crc", FT_UINT32, BASE_HEX, NULL, 0, "", HFILL}},
+        { &hf_fcoe_crc_good,
+          {"CRC good", "fcoe.crc_good", FT_BOOLEAN, BASE_NONE, NULL, 0,
+            "True: CRC matches packet content; "
+            "False: doesn't match or not checked.", HFILL }},
+        { &hf_fcoe_crc_bad,
+          {"CRC bad", "fcoe.crc_bad", FT_BOOLEAN, BASE_NONE, NULL, 0,
+            "True: CRC doesn't match packet content; "
+            "False: matches or not checked.", HFILL }}
+    };
+    static gint *ett[] = {
+        &ett_fcoe,
+        &ett_fcoe_crc
+    };
+    module_t *fcoe_module;
+
+    /* Register the protocol name and description */
+    proto_fcoe = proto_register_protocol("Fibre Channel over Ethernet",
+        "FCoE", "fcoe");
+
+    /* Required function calls to register the header fields and
+     * subtrees used */
+    proto_register_field_array(proto_fcoe, hf, array_length(hf));
+    proto_register_subtree_array(ett, array_length(ett));
+
+    fcoe_module = prefs_register_protocol(proto_fcoe, fcoe_apply_prefs);
+    prefs_register_uint_preference(fcoe_module,
+                                   "ethertype",
+                                   "Ether Type",
+                                   "ethernet type number used for FCOE",
+                                   16,
+                                   &fcoe_ethertype);
+}
+
+static void
+fcoe_apply_prefs(void)
+{
+    static guint active_ethertype = 0;
+    static dissector_handle_t fcoe_handle;
+    
+    if (fcoe_handle == 0) {
+        fcoe_handle = create_dissector_handle(dissect_fcoe, proto_fcoe);
+    }
+    if (active_ethertype != fcoe_ethertype) {
+        if (active_ethertype != 0) {
+            dissector_delete("ethertype", active_ethertype, fcoe_handle);
+        }
+        if (fcoe_handle != 0) {
+            dissector_add("ethertype", fcoe_ethertype, fcoe_handle);
+            active_ethertype = fcoe_ethertype;
+        }
+    }
+    data_handle = find_dissector("data");
+    fc_handle = find_dissector("fc");
+}
+
+/*
+ * This format is required because a script is used to find these
+ * routines and create the code that calls these routines.
+ */
+void
+proto_reg_handoff_fcoe(void)
+{
+    fcoe_apply_prefs();
+}