packet-tns源码

 原帖地址：https://summersoft.fay.ar.us/repos/ethereal/branches/redhat-9/ethereal-0.10.3-1/ethereal-0.10.3/packet-tns.h

https://summersoft.fay.ar.us/repos/ethereal/branches/redhat-9/ethereal-0.10.3-1/ethereal-0.10.3/packet-tns.c

 

/**/ /* packet-tns.h
*
* $Id: packet-tns.h,v 1.5 2002/08/28 21:00:36 jmayer Exp $
*
* Ethereal - Network traffic analyzer
* By Gerald Combs <gerald@zing.org>
* Copyright 1998 Gerald Combs
*
*
* 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.
*/

#ifndef PACKET_TNS_H
#define  PACKET_TNS_H

/**/ /* Packet Types */
#define  TNS_TYPE_CONNECT 1
#define  TNS_TYPE_ACCEPT 2
#define  TNS_TYPE_ACK 3
#define  TNS_TYPE_REFUSE 4
#define  TNS_TYPE_REDIRECT 5
#define  TNS_TYPE_DATA 6
#define  TNS_TYPE_NULL 7
#define  TNS_TYPE_ABORT 9
#define  TNS_TYPE_RESEND 11
#define  TNS_TYPE_MARKER 12
#define  TNS_TYPE_ATTENTION 13
#define  TNS_TYPE_CONTROL 14
#define  TNS_TYPE_MAX 19

#endif


 

/**/ /* packet-tns.c
 * Routines for Oracle TNS packet dissection
 *
 * $Id: packet-tns.c,v 1.39 2003/02/05 08:06:40 guy Exp $
 *
 * Ethereal - Network traffic analyzer
 * By Gerald Combs <gerald@ethereal.com>
 * Copyright 1998 Gerald Combs
 *
 * Copied from packet-tftp.c
 *
 * 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.
 */

#ifdef HAVE_CONFIG_H
# include  " config.h "
#endif

#include  < stdio.h >

#include  < string .h >
#include  < glib.h >
#include  < epan / packet.h >
#include  " packet-tcp.h "
#include  " packet-tns.h "

#include  " prefs.h "

/**/ /* desegmentation of TNS over TCP */
static  gboolean tns_desegment  =  TRUE;

static   int  proto_tns  =   - 1 ;
static   int  hf_tns_request  =   - 1 ;
static   int  hf_tns_response  =   - 1 ;
static   int  hf_tns_length  =   - 1 ;
static   int  hf_tns_packet_checksum  =   - 1 ;
static   int  hf_tns_header_checksum  =   - 1 ;
static   int  hf_tns_packet_type  =   - 1 ;
static   int  hf_tns_reserved_byte  =   - 1 ;
static   int  hf_tns_connect  =   - 1 ;
static   int  hf_tns_version  =   - 1 ;
static   int  hf_tns_compat_version  =   - 1 ;

static   int  hf_tns_service_options  =   - 1 ;
static   int  hf_tns_sopt_flag_bconn  =   - 1 ;
static   int  hf_tns_sopt_flag_pc  =   - 1 ;
static   int  hf_tns_sopt_flag_hc  =   - 1 ;
static   int  hf_tns_sopt_flag_fd  =   - 1 ;
static   int  hf_tns_sopt_flag_hd  =   - 1 ;
static   int  hf_tns_sopt_flag_dc1  =   - 1 ;
static   int  hf_tns_sopt_flag_dc2  =   - 1 ;
static   int  hf_tns_sopt_flag_dio  =   - 1 ;
static   int  hf_tns_sopt_flag_ap  =   - 1 ;
static   int  hf_tns_sopt_flag_ra  =   - 1 ;
static   int  hf_tns_sopt_flag_sa  =   - 1 ;

static   int  hf_tns_sdu_size  =   - 1 ;
static   int  hf_tns_max_tdu_size  =   - 1 ;

static   int  hf_tns_nt_proto_characteristics  =   - 1 ;
static   int  hf_tns_ntp_flag_hangon  =   - 1 ;
static   int  hf_tns_ntp_flag_crel  =   - 1 ;
static   int  hf_tns_ntp_flag_tduio  =   - 1 ;
static   int  hf_tns_ntp_flag_srun  =   - 1 ;
static   int  hf_tns_ntp_flag_dtest  =   - 1 ;
static   int  hf_tns_ntp_flag_cbio  =   - 1 ;
static   int  hf_tns_ntp_flag_asio  =   - 1 ;
static   int  hf_tns_ntp_flag_pio  =   - 1 ;
static   int  hf_tns_ntp_flag_grant  =   - 1 ;
static   int  hf_tns_ntp_flag_handoff  =   - 1 ;
static   int  hf_tns_ntp_flag_sigio  =   - 1 ;
static   int  hf_tns_ntp_flag_sigpipe  =   - 1 ;
static   int  hf_tns_ntp_flag_sigurg  =   - 1 ;
static   int  hf_tns_ntp_flag_urgentio  =   - 1 ;
static   int  hf_tns_ntp_flag_fdio  =   - 1 ;
static   int  hf_tns_ntp_flag_testop  =   - 1 ;

static   int  hf_tns_line_turnaround  =   - 1 ;
static   int  hf_tns_value_of_one  =   - 1 ;
static   int  hf_tns_connect_data_length  =   - 1 ;
static   int  hf_tns_connect_data_offset  =   - 1 ;
static   int  hf_tns_connect_data_max  =   - 1 ;

static   int  hf_tns_connect_flags0  =   - 1 ;
static   int  hf_tns_connect_flags1  =   - 1 ;
static   int  hf_tns_conn_flag_nareq  =   - 1 ;
static   int  hf_tns_conn_flag_nalink  =   - 1 ;
static   int  hf_tns_conn_flag_enablena  =   - 1 ;
static   int  hf_tns_conn_flag_ichg  =   - 1 ;
static   int  hf_tns_conn_flag_wantna  =   - 1 ;

static   int  hf_tns_connect_data  =   - 1 ;
static   int  hf_tns_trace_cf1  =   - 1 ;
static   int  hf_tns_trace_cf2  =   - 1 ;
static   int  hf_tns_trace_cid  =   - 1 ;

static   int  hf_tns_accept  =   - 1 ;
static   int  hf_tns_accept_data_length  =   - 1 ;
static   int  hf_tns_accept_data_offset  =   - 1 ;
static   int  hf_tns_accept_data  =   - 1 ;

static   int  hf_tns_refuse  =   - 1 ;
static   int  hf_tns_refuse_reason_user  =   - 1 ;
static   int  hf_tns_refuse_reason_system  =   - 1 ;
static   int  hf_tns_refuse_data_length  =   - 1 ;
static   int  hf_tns_refuse_data  =   - 1 ;

static   int  hf_tns_abort  =   - 1 ;
static   int  hf_tns_abort_reason_user  =   - 1 ;
static   int  hf_tns_abort_reason_system  =   - 1 ;
static   int  hf_tns_abort_data  =   - 1 ;

static   int  hf_tns_marker  =   - 1 ;
static   int  hf_tns_marker_type  =   - 1 ;
static   int  hf_tns_marker_data_byte  =   - 1 ;
static   int  hf_tns_marker_data  =   - 1 ;

static   int  hf_tns_redirect  =   - 1 ;
static   int  hf_tns_redirect_data_length  =   - 1 ;
static   int  hf_tns_redirect_data  =   - 1 ;

static   int  hf_tns_control  =   - 1 ;
static   int  hf_tns_control_cmd  =   - 1 ;
static   int  hf_tns_control_data  =   - 1 ;

static   int  hf_tns_data_flag  =   - 1 ;
static   int  hf_tns_data_flag_send  =   - 1 ;
static   int  hf_tns_data_flag_rc  =   - 1 ;
static   int  hf_tns_data_flag_c  =   - 1 ;
static   int  hf_tns_data_flag_reserved  =   - 1 ;
static   int  hf_tns_data_flag_more  =   - 1 ;
static   int  hf_tns_data_flag_eof  =   - 1 ;
static   int  hf_tns_data_flag_dic  =   - 1 ;
static   int  hf_tns_data_flag_rts  =   - 1 ;
static   int  hf_tns_data_flag_sntt  =   - 1 ;
static   int  hf_tns_data  =   - 1 ;

static  gint ett_tns  =   - 1 ;
static  gint ett_tns_connect  =   - 1 ;
static  gint ett_tns_accept  =   - 1 ;
static  gint ett_tns_refuse  =   - 1 ;
static  gint ett_tns_abort  =   - 1 ;
static  gint ett_tns_redirect  =   - 1 ;
static  gint ett_tns_marker  =   - 1 ;
static  gint ett_tns_attention  =   - 1 ;
static  gint ett_tns_control  =   - 1 ;
static  gint ett_tns_data  =   - 1 ;
static  gint ett_tns_data_flag  =   - 1 ;
static  gint ett_tns_sopt_flag  =   - 1 ;
static  gint ett_tns_ntp_flag  =   - 1 ;
static  gint ett_tns_conn_flag  =   - 1 ;
static  gint ett_sql  =   - 1 ;

static  dissector_handle_t data_handle;

#define  TCP_PORT_TNS            1521

static   const  value_string tns_type_vals[]  =   ... {
    ...{TNS_TYPE_CONNECT,   "Connect" },
    ...{TNS_TYPE_ACCEPT,    "Accept" },
    ...{TNS_TYPE_ACK,       "Acknowledge" },
    ...{TNS_TYPE_REFUSE,    "Refuse" },
    ...{TNS_TYPE_REDIRECT,  "Redirect" },
    ...{TNS_TYPE_DATA,      "Data" },
    ...{TNS_TYPE_NULL,      "Null" },
    ...{TNS_TYPE_ABORT,     "Abort" },
    ...{TNS_TYPE_RESEND,    "Resend"},
    ...{TNS_TYPE_MARKER,    "Marker"},
    ...{TNS_TYPE_ATTENTION, "Attention"},
    ...{TNS_TYPE_CONTROL,   "Control"},
    ...{0, NULL}
} ;

static   const  value_string tns_marker_types[]  =   ... {
    ...{0, "Data Marker - 0 Data Bytes"},
    ...{1, "Data Marker - 1 Data Bytes"},
    ...{2, "Attention Marker"},
    ...{0, NULL}
} ;

static   const  value_string tns_control_cmds[]  =   ... {
    ...{1, "Oracle Trace Command"},
    ...{0, NULL}
} ;

void  proto_reg_handoff_tns( void );
static  guint get_tns_pdu_len(tvbuff_t  * tvb,  int  offset);
static   void  dissect_tns_pdu(tvbuff_t  * tvb, packet_info  * pinfo, proto_tree  * tree);

static   void  dissect_tns_service_options(tvbuff_t  * tvb,  int  offset,
    proto_tree  * sopt_tree)
... {

    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_bconn, tvb,
            offset, 2, FALSE);
    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_pc, tvb,
            offset, 2, FALSE);
    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_hc, tvb,
            offset, 2, FALSE);
    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_fd, tvb,
            offset, 2, FALSE);
    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_hd, tvb,
            offset, 2, FALSE);
    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_dc1, tvb,
            offset, 2, FALSE);
    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_dc2, tvb,
            offset, 2, FALSE);
    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_dio, tvb,
            offset, 2, FALSE);
    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_ap, tvb,
            offset, 2, FALSE);
    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_ra, tvb,
            offset, 2, FALSE);
    proto_tree_add_item(sopt_tree, hf_tns_sopt_flag_sa, tvb,
            offset, 2, FALSE);

}

static   void  dissect_tns_connect_flag(tvbuff_t  * tvb,  int  offset,
    proto_tree  * cflag_tree)
... {

    proto_tree_add_item(cflag_tree, hf_tns_conn_flag_nareq, tvb, offset, 1, FALSE);
    proto_tree_add_item(cflag_tree, hf_tns_conn_flag_nalink, tvb, offset, 1, FALSE);
    proto_tree_add_item(cflag_tree, hf_tns_conn_flag_enablena, tvb, offset, 1, FALSE);
    proto_tree_add_item(cflag_tree, hf_tns_conn_flag_ichg, tvb, offset, 1, FALSE);
    proto_tree_add_item(cflag_tree, hf_tns_conn_flag_wantna, tvb, offset, 1, FALSE);
}

static   void  dissect_tns_data(tvbuff_t  * tvb,  int  offset, packet_info  * pinfo,
    proto_tree  * tree, proto_tree  * tns_tree)
... {
    proto_tree *data_tree = NULL, *ti;
    int is_sns = 0;

    if ( tvb_bytes_exist(tvb, offset+2, 4) )
    ...{
        if ( tvb_get_guint8(tvb, offset+2) == 0xDE &&
             tvb_get_guint8(tvb, offset+3) == 0xAD &&
             tvb_get_guint8(tvb, offset+4) == 0xBE &&
             tvb_get_guint8(tvb, offset+5) == 0xEF )
        ...{
            is_sns = 1;
        }
    }

    if ( tree )
    ...{
        if ( is_sns )
        ...{
            ti = proto_tree_add_text(tns_tree, tvb, offset, -1,
                "Secure Network Services");
        }
        else
        ...{
            ti = proto_tree_add_text(tns_tree, tvb, offset, -1,
                "Data");
        }
        data_tree = proto_item_add_subtree(ti, ett_tns_data);

        proto_tree_add_boolean_hidden(tns_tree, hf_tns_data, tvb, 0, 0,
                TRUE);
    }

    if ( tree )
    ...{
        proto_tree *df_tree = NULL;

        ti = proto_tree_add_item(data_tree, hf_tns_data_flag, tvb, offset, 2, FALSE);

        df_tree = proto_item_add_subtree(ti, ett_tns_data_flag);
        proto_tree_add_item(df_tree, hf_tns_data_flag_send, tvb, offset, 2, FALSE);
        proto_tree_add_item(df_tree, hf_tns_data_flag_rc, tvb, offset, 2, FALSE);
        proto_tree_add_item(df_tree, hf_tns_data_flag_c, tvb, offset, 2, FALSE);
        proto_tree_add_item(df_tree, hf_tns_data_flag_reserved, tvb, offset, 2, FALSE);
        proto_tree_add_item(df_tree, hf_tns_data_flag_more, tvb, offset, 2, FALSE);
        proto_tree_add_item(df_tree, hf_tns_data_flag_eof, tvb, offset, 2, FALSE);
        proto_tree_add_item(df_tree, hf_tns_data_flag_dic, tvb, offset, 2, FALSE);
        proto_tree_add_item(df_tree, hf_tns_data_flag_rts, tvb, offset, 2, FALSE);
        proto_tree_add_item(df_tree, hf_tns_data_flag_sntt, tvb, offset, 2, FALSE);
    }
    offset += 2;

    if ( check_col(pinfo->cinfo, COL_INFO) )
    ...{
        if ( is_sns )
        ...{
            col_append_fstr(pinfo->cinfo, COL_INFO, ", SNS");
        }
        else
        ...{
            col_append_fstr(pinfo->cinfo, COL_INFO, ", Data");
        }
    }

    if ( data_tree )
    ...{
        call_dissector(data_handle,
            tvb_new_subset(tvb, offset, -1, -1), pinfo, data_tree);
    }

    return;
}

static   void  dissect_tns_connect(tvbuff_t  * tvb,  int  offset, packet_info  * pinfo,
    proto_tree  * tree, proto_tree  * tns_tree)
... {
    proto_tree *connect_tree = NULL, *ti;
    int cd_offset;
    int cd_len;
    int tns_offset = offset-8;

    if ( tree )
    ...{
        ti = proto_tree_add_text(tns_tree, tvb, offset, -1,
            "Connect");
        connect_tree = proto_item_add_subtree(ti, ett_tns_connect);

        proto_tree_add_boolean_hidden(tns_tree, hf_tns_connect, tvb,
            0, 0, TRUE);
    }

    if ( check_col(pinfo->cinfo, COL_INFO) )
    ...{
        col_append_str(pinfo->cinfo, COL_INFO, ", Connect");
    }

    if ( connect_tree )
    ...{
        proto_tree_add_item(connect_tree, hf_tns_version, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( connect_tree )
    ...{
        proto_tree_add_item(connect_tree, hf_tns_compat_version, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( connect_tree )
    ...{
        proto_tree *sopt_tree = NULL;

        ti = proto_tree_add_item(connect_tree, hf_tns_service_options, tvb,
            offset, 2, FALSE);

        sopt_tree = proto_item_add_subtree(ti, ett_tns_sopt_flag);

        dissect_tns_service_options(tvb, offset, sopt_tree);


    }
    offset += 2;

    if ( connect_tree )
    ...{
        proto_tree_add_item(connect_tree, hf_tns_sdu_size, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( connect_tree )
    ...{
        proto_tree_add_item(connect_tree, hf_tns_max_tdu_size, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( connect_tree )
    ...{
        proto_tree *ntp_tree = NULL;

        ti = proto_tree_add_item(connect_tree, hf_tns_nt_proto_characteristics, tvb,
            offset, 2, FALSE);

        ntp_tree = proto_item_add_subtree(ti, ett_tns_ntp_flag);

        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_hangon, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_crel, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_tduio, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_srun, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_dtest, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_cbio, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_asio, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_pio, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_grant, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_handoff, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_sigio, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_sigpipe, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_sigurg, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_urgentio, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_fdio, tvb, offset, 2, FALSE);
        proto_tree_add_item(ntp_tree, hf_tns_ntp_flag_testop, tvb, offset, 2, FALSE);
    }
    offset += 2;

    if ( connect_tree )
    ...{
        proto_tree_add_item(connect_tree, hf_tns_line_turnaround, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( connect_tree )
    ...{
        proto_tree_add_item(connect_tree, hf_tns_value_of_one, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    cd_len = tvb_get_ntohs(tvb, offset);
    if ( connect_tree )
    ...{
        proto_tree_add_uint(connect_tree, hf_tns_connect_data_length, tvb,
            offset, 2, cd_len);
    }
    offset += 2;

    cd_offset = tvb_get_ntohs(tvb, offset);
    if ( connect_tree )
    ...{
        proto_tree_add_uint(connect_tree, hf_tns_connect_data_offset, tvb,
            offset, 2, cd_offset);
    }
    offset += 2;

    if ( connect_tree )
    ...{
        proto_tree_add_item(connect_tree, hf_tns_connect_data_max, tvb,
            offset, 4, FALSE);
    }
    offset += 4;

    if ( connect_tree )
    ...{
        proto_tree *cflag_tree = NULL;

        ti = proto_tree_add_item(connect_tree, hf_tns_connect_flags0, tvb,
            offset, 1, FALSE);

        cflag_tree = proto_item_add_subtree(ti, ett_tns_conn_flag);

        dissect_tns_connect_flag(tvb, offset, cflag_tree);
    }
    offset += 1;

    if ( connect_tree )
    ...{
        proto_tree *cflag_tree = NULL;

        ti = proto_tree_add_item(connect_tree, hf_tns_connect_flags1, tvb,
            offset, 1, FALSE);

        cflag_tree = proto_item_add_subtree(ti, ett_tns_conn_flag);

        dissect_tns_connect_flag(tvb, offset, cflag_tree);
    }
    offset += 1;

    /**//*
     * XXX - sometimes it appears that this stuff isn't present
     * in the packet.
     */
    if (offset + 16 <= tns_offset+cd_offset)
    ...{
        if ( connect_tree )
        ...{
            proto_tree_add_item(connect_tree, hf_tns_trace_cf1, tvb,
                offset, 4, FALSE);
        }
        offset += 4;

        if ( connect_tree )
        ...{
            proto_tree_add_item(connect_tree, hf_tns_trace_cf2, tvb,
                offset, 4, FALSE);
        }
        offset += 4;

        if ( connect_tree )
        ...{
            proto_tree_add_item(connect_tree, hf_tns_trace_cid, tvb,
                offset, 8, FALSE);
        }
        offset += 8;
    }

    if ( connect_tree && cd_len > 0)
    ...{
        proto_tree_add_item(connect_tree, hf_tns_connect_data, tvb,
            tns_offset+cd_offset, -1, FALSE);
    }
    return;
}

static   void  dissect_tns_accept(tvbuff_t  * tvb,  int  offset, packet_info  * pinfo,
    proto_tree  * tree, proto_tree  * tns_tree)
... {
    proto_tree *accept_tree = NULL, *ti;
    int accept_offset;
    int accept_len;
    int tns_offset = offset-8;

    if ( tree )
    ...{
        ti = proto_tree_add_text(tns_tree, tvb, offset, -1,
            "Accept");
        accept_tree = proto_item_add_subtree(ti, ett_tns_accept);

        proto_tree_add_boolean_hidden(tns_tree, hf_tns_accept, tvb,
            0, 0, TRUE);
    }

    if ( check_col(pinfo->cinfo, COL_INFO) )
    ...{
        col_append_str(pinfo->cinfo, COL_INFO, ", Accept");
    }

    if ( accept_tree )
    ...{
        proto_tree_add_item(accept_tree, hf_tns_version, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( accept_tree )
    ...{
        proto_tree *sopt_tree = NULL;

        ti = proto_tree_add_item(accept_tree, hf_tns_service_options,
            tvb, offset, 2, FALSE);

        sopt_tree = proto_item_add_subtree(ti, ett_tns_sopt_flag);

        dissect_tns_service_options(tvb, offset, sopt_tree);

    }
    offset += 2;

    if ( accept_tree )
    ...{
        proto_tree_add_item(accept_tree, hf_tns_sdu_size, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( accept_tree )
    ...{
        proto_tree_add_item(accept_tree, hf_tns_max_tdu_size, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( accept_tree )
    ...{
        proto_tree_add_item(accept_tree, hf_tns_value_of_one, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    accept_len = tvb_get_ntohs(tvb, offset);
    if ( accept_tree )
    ...{
        proto_tree_add_uint(accept_tree, hf_tns_accept_data_length, tvb,
            offset, 2, accept_len);
    }
    offset += 2;

    accept_offset = tvb_get_ntohs(tvb, offset);
    if ( accept_tree )
    ...{
        proto_tree_add_uint(accept_tree, hf_tns_accept_data_offset, tvb,
            offset, 2, accept_offset);
    }
    offset += 2;

    if ( accept_tree )
    ...{
        proto_tree *cflag_tree = NULL;

        ti = proto_tree_add_item(accept_tree, hf_tns_connect_flags0, tvb,
            offset, 1, FALSE);

        cflag_tree = proto_item_add_subtree(ti, ett_tns_conn_flag);

        dissect_tns_connect_flag(tvb, offset, cflag_tree);

    }
    offset += 1;

    if ( accept_tree )
    ...{
        proto_tree *cflag_tree = NULL;

        ti = proto_tree_add_item(accept_tree, hf_tns_connect_flags1, tvb,
            offset, 1, FALSE);

        cflag_tree = proto_item_add_subtree(ti, ett_tns_conn_flag);

        dissect_tns_connect_flag(tvb, offset, cflag_tree);

    }
    offset += 1;

    if ( accept_tree && accept_len > 0)
    ...{
        proto_tree_add_item(accept_tree, hf_tns_accept_data, tvb,
            tns_offset+accept_offset, -1, FALSE);
    }
    return;
}


static   void  dissect_tns_refuse(tvbuff_t  * tvb,  int  offset, packet_info  * pinfo,
    proto_tree  * tree, proto_tree  * tns_tree)
... {
    proto_tree *refuse_tree = NULL, *ti;

    if ( tree )
    ...{
        ti = proto_tree_add_text(tns_tree, tvb, offset, -1,
            "Refuse");
        refuse_tree = proto_item_add_subtree(ti, ett_tns_refuse);

        proto_tree_add_boolean_hidden(tns_tree, hf_tns_refuse, tvb,
            0, 0, TRUE);
    }

    if ( check_col(pinfo->cinfo, COL_INFO) )
    ...{
        col_append_str(pinfo->cinfo, COL_INFO, ", Refuse");
    }

    if ( refuse_tree )
    ...{
        proto_tree_add_item(refuse_tree, hf_tns_refuse_reason_user, tvb,
            offset, 1, FALSE);
    }
    offset += 1;

    if ( refuse_tree )
    ...{
        proto_tree_add_item(refuse_tree, hf_tns_refuse_reason_system, tvb,
            offset, 1, FALSE);
    }
    offset += 1;

    if ( refuse_tree )
    ...{
        proto_tree_add_item(refuse_tree, hf_tns_refuse_data_length, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( refuse_tree )
    ...{
        proto_tree_add_item(refuse_tree, hf_tns_refuse_data, tvb,
            offset, -1, FALSE);
    }
    return;
}


static   void  dissect_tns_abort(tvbuff_t  * tvb,  int  offset, packet_info  * pinfo,
    proto_tree  * tree, proto_tree  * tns_tree)
... {
    proto_tree *abort_tree = NULL, *ti;

    if ( tree )
    ...{
        ti = proto_tree_add_text(tns_tree, tvb, offset, -1,
            "Abort");
        abort_tree = proto_item_add_subtree(ti, ett_tns_abort);

        proto_tree_add_boolean_hidden(tns_tree, hf_tns_abort, tvb,
            0, 0, TRUE);
    }

    if ( check_col(pinfo->cinfo, COL_INFO) )
    ...{
        col_append_str(pinfo->cinfo, COL_INFO, ", Abort");
    }

    if ( abort_tree )
    ...{
        proto_tree_add_item(abort_tree, hf_tns_abort_reason_user, tvb,
            offset, 1, FALSE);
    }
    offset += 1;

    if ( abort_tree )
    ...{
        proto_tree_add_item(abort_tree, hf_tns_abort_reason_system, tvb,
            offset, 1, FALSE);
    }
    offset += 1;

    if ( abort_tree )
    ...{
        proto_tree_add_item(abort_tree, hf_tns_abort_data, tvb,
            offset, -1, FALSE);
    }
    return;
}


static   void  dissect_tns_marker(tvbuff_t  * tvb,  int  offset, packet_info  * pinfo,
    proto_tree  * tree, proto_tree  * tns_tree,  int  is_attention)
... {
    proto_tree *marker_tree = NULL, *ti;

    if ( tree )
    ...{
        if ( is_attention )
        ...{
            ti = proto_tree_add_text(tns_tree, tvb, offset, -1,
                "Marker");
        }
        else
        ...{
            ti = proto_tree_add_text(tns_tree, tvb, offset, -1,
                "Attention");
        }

        marker_tree = proto_item_add_subtree(ti, ett_tns_marker);
        proto_tree_add_boolean_hidden(tns_tree, hf_tns_marker, tvb,
            0, 0, TRUE);
    }

    if ( check_col(pinfo->cinfo, COL_INFO) )
    ...{
        if ( is_attention )
        ...{
            col_append_str(pinfo->cinfo, COL_INFO, ", Marker");
        }
        else
        ...{
            col_append_str(pinfo->cinfo, COL_INFO, ", Attention");
        }
    }

    if ( marker_tree )
    ...{
        proto_tree_add_item(marker_tree, hf_tns_marker_type, tvb,
            offset, 1, FALSE);
    }
    offset += 1;

    if ( marker_tree )
    ...{
        proto_tree_add_item(marker_tree, hf_tns_marker_data_byte, tvb,
            offset, 1, FALSE);
    }
    offset += 1;

    if ( marker_tree )
    ...{
        proto_tree_add_item(marker_tree, hf_tns_marker_data_byte, tvb,
            offset, 1, FALSE);
    }
    offset += 1;

    return;
}

static   void  dissect_tns_redirect(tvbuff_t  * tvb,  int  offset, packet_info  * pinfo,
    proto_tree  * tree, proto_tree  * tns_tree)
... {
    proto_tree *redirect_tree = NULL, *ti;

    if ( tree )
    ...{
        ti = proto_tree_add_text(tns_tree, tvb, offset, -1,
            "Redirect");
        redirect_tree = proto_item_add_subtree(ti, ett_tns_redirect);

        proto_tree_add_boolean_hidden(tns_tree, hf_tns_redirect, tvb,
            0, 0, TRUE);
    }

    if ( check_col(pinfo->cinfo, COL_INFO) )
    ...{
        col_append_str(pinfo->cinfo, COL_INFO, ", Redirect");
    }

    if ( redirect_tree )
    ...{
        proto_tree_add_item(redirect_tree, hf_tns_redirect_data_length, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( redirect_tree )
    ...{
        proto_tree_add_item(redirect_tree, hf_tns_redirect_data, tvb,
            offset, -1, FALSE);
    }
    return;
}

static   void  dissect_tns_control(tvbuff_t  * tvb,  int  offset, packet_info  * pinfo,
    proto_tree  * tree, proto_tree  * tns_tree)
... {
    proto_tree *control_tree = NULL, *ti;

    if ( tree )
    ...{
        ti = proto_tree_add_text(tns_tree, tvb, offset, -1,
            "Control");
        control_tree = proto_item_add_subtree(ti, ett_tns_control);

        proto_tree_add_boolean_hidden(tns_tree, hf_tns_control, tvb,
            0, 0, TRUE);
    }

    if ( check_col(pinfo->cinfo, COL_INFO) )
    ...{
        col_append_str(pinfo->cinfo, COL_INFO, ", Control");
    }

    if ( control_tree )
    ...{
        proto_tree_add_item(control_tree, hf_tns_control_cmd, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    if ( control_tree )
    ...{
        proto_tree_add_item(control_tree, hf_tns_control_data, tvb,
            offset, -1, FALSE);
    }
    return;
}

static  guint
get_tns_pdu_len(tvbuff_t  * tvb,  int  offset)
... {
        /**//*
         * Get the length of the TNS message, including header
         */
        return tvb_get_ntohs(tvb, offset);
}

static   int
dissect_tns(tvbuff_t  * tvb, packet_info  * pinfo, proto_tree  * tree)
... {
    guint8 type;

    /**//*
     * First, do a sanity check to make sure what we have
     * starts with a TNS PDU.
     */
    if (tvb_bytes_exist(tvb, 4, 1)) ...{
        /**//*
         * Well, we have the packet type; let's make sure
         * it's a known type.
         */
        type = tvb_get_guint8(tvb, 4);
        if (type < TNS_TYPE_CONNECT || type > TNS_TYPE_MAX)
            return 0;    /**//* it's not a known type */
    }

    tcp_dissect_pdus(tvb, pinfo, tree, tns_desegment, 2,
        get_tns_pdu_len, dissect_tns_pdu);
    return tvb_length(tvb);
}

static   void
dissect_tns_pdu(tvbuff_t  * tvb, packet_info  * pinfo, proto_tree  * tree)
... {
    proto_tree      *tns_tree = NULL, *ti;
    int offset = 0;
    guint16 length;
    guint16 type;

    if (check_col(pinfo->cinfo, COL_PROTOCOL))
        col_set_str(pinfo->cinfo, COL_PROTOCOL, "TNS");

    if (check_col(pinfo->cinfo, COL_INFO))
    ...{
        col_add_str(pinfo->cinfo, COL_INFO,
            (pinfo->match_port == pinfo->destport) ? "Request" : "Response");
    }

    if (tree)
    ...{
        ti = proto_tree_add_item(tree, proto_tns, tvb, 0, -1, FALSE);
        tns_tree = proto_item_add_subtree(ti, ett_tns);

        if (pinfo->match_port == pinfo->destport)
        ...{
            proto_tree_add_boolean_hidden(tns_tree, hf_tns_request,
               tvb, offset, 0, TRUE);
        }
        else
        ...{
            proto_tree_add_boolean_hidden(tns_tree, hf_tns_response,
                tvb, offset, 0, TRUE);
        }
    }

    length = tvb_get_ntohs(tvb, offset);
    if (tree)
    ...{
        proto_tree_add_uint(tns_tree, hf_tns_length, tvb,
            offset, 2, length);
    }
    offset += 2;

    if ( tree )
    ...{
        proto_tree_add_item(tns_tree, hf_tns_packet_checksum, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    type = tvb_get_guint8(tvb, offset);
    if ( tree )
    ...{
        proto_tree_add_uint(tns_tree, hf_tns_packet_type, tvb,
            offset, 1, type);
    }
    offset += 1;

    if ( check_col(pinfo->cinfo, COL_INFO))
    ...{
        col_append_fstr(pinfo->cinfo, COL_INFO, ", %s (%u)",
            val_to_str(type, tns_type_vals, "Unknown"), type);
    }

    if ( tree )
    ...{
        proto_tree_add_item(tns_tree, hf_tns_reserved_byte, tvb,
            offset, 1, FALSE);
    }
    offset += 1;

    if ( tree )
    ...{
        proto_tree_add_item(tns_tree, hf_tns_header_checksum, tvb,
            offset, 2, FALSE);
    }
    offset += 2;

    switch (type)
    ...{
        case TNS_TYPE_CONNECT:
            dissect_tns_connect(tvb,offset,pinfo,tree,tns_tree);
            break;
        case TNS_TYPE_ACCEPT:
            dissect_tns_accept(tvb,offset,pinfo,tree,tns_tree);
            break;
        case TNS_TYPE_REFUSE:
            dissect_tns_refuse(tvb,offset,pinfo,tree,tns_tree);
            break;
        case TNS_TYPE_REDIRECT:
            dissect_tns_redirect(tvb,offset,pinfo,tree,tns_tree);
            break;
        case TNS_TYPE_ABORT:
            dissect_tns_abort(tvb,offset,pinfo,tree,tns_tree);
            break;
        case TNS_TYPE_MARKER:
            dissect_tns_marker(tvb,offset,pinfo,tree,tns_tree, 0);
            break;
        case TNS_TYPE_ATTENTION:
            dissect_tns_marker(tvb,offset,pinfo,tree,tns_tree, 1);
            break;
        case TNS_TYPE_CONTROL:
            dissect_tns_control(tvb,offset,pinfo,tree,tns_tree);
            break;
        case TNS_TYPE_DATA:
            dissect_tns_data(tvb,offset,pinfo,tree,tns_tree);
            break;
        default:
            call_dissector(data_handle,
                tvb_new_subset(tvb, offset, -1, -1), pinfo,
                tns_tree);
            break;
    }
}

void  proto_register_tns( void )
... {
    static hf_register_info hf[] = ...{
        ...{ &hf_tns_response, ...{
            "Response", "tns.response", FT_BOOLEAN, BASE_NONE,
            NULL, 0x0, "TRUE if TNS response", HFILL }},
        ...{ &hf_tns_request, ...{
            "Request", "tns.request", FT_BOOLEAN, BASE_NONE,
            NULL, 0x0, "TRUE if TNS request", HFILL }},
        ...{ &hf_tns_length, ...{
            "Packet Length", "tns.length", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Length of TNS packet", HFILL }},
        ...{ &hf_tns_packet_checksum, ...{
            "Packet Checksum", "tns.packet_checksum", FT_UINT16, BASE_HEX,
            NULL, 0x0, "Checksum of Packet Data", HFILL }},
        ...{ &hf_tns_header_checksum, ...{
            "Header Checksum", "tns.header_checksum", FT_UINT16, BASE_HEX,
            NULL, 0x0, "Checksum of Header Data", HFILL }},

        ...{ &hf_tns_version, ...{
            "Version", "tns.version", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Version", HFILL }},
        ...{ &hf_tns_compat_version, ...{
            "Version (Compatible)", "tns.compat_version", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Version (Compatible)", HFILL }},

        ...{ &hf_tns_service_options, ...{
            "Service Options", "tns.service_options", FT_UINT16, BASE_HEX,
            NULL, 0x0, "Service Options", HFILL }},

        ...{ &hf_tns_sopt_flag_bconn, ...{
            "Broken Connect Notify", "tns.so_flag.bconn", FT_BOOLEAN, 16,
            NULL, 0x2000, "Broken Connect Notify", HFILL }},
        ...{ &hf_tns_sopt_flag_pc, ...{
            "Packet Checksum", "tns.so_flag.pc", FT_BOOLEAN, 16,
            NULL, 0x1000, "Packet Checksum", HFILL }},
        ...{ &hf_tns_sopt_flag_hc, ...{
            "Header Checksum", "tns.so_flag.hc", FT_BOOLEAN, 16,
            NULL, 0x0800, "Header Checksum", HFILL }},
        ...{ &hf_tns_sopt_flag_fd, ...{
            "Full Duplex", "tns.so_flag.fd", FT_BOOLEAN, 16,
            NULL, 0x0400, "Full Duplex", HFILL }},
        ...{ &hf_tns_sopt_flag_hd, ...{
            "Half Duplex", "tns.so_flag.hd", FT_BOOLEAN, 16,
            NULL, 0x0200, "Half Duplex", HFILL }},
        ...{ &hf_tns_sopt_flag_dc1, ...{
            "Don't Care", "tns.so_flag.dc1", FT_BOOLEAN, 16,
            NULL, 0x0100, "Don't Care", HFILL }},
        ...{ &hf_tns_sopt_flag_dc2, ...{
            "Don't Care", "tns.so_flag.dc2", FT_BOOLEAN, 16,
            NULL, 0x0080, "Don't Care", HFILL }},
        ...{ &hf_tns_sopt_flag_dio, ...{
            "Direct IO to Transport", "tns.so_flag.dio", FT_BOOLEAN, 16,
            NULL, 0x0010, "Direct IO to Transport", HFILL }},
        ...{ &hf_tns_sopt_flag_ap, ...{
            "Attention Processing", "tns.so_flag.ap", FT_BOOLEAN, 16,
            NULL, 0x0008, "Attention Processing", HFILL }},
        ...{ &hf_tns_sopt_flag_ra, ...{
            "Can Receive Attention", "tns.so_flag.ra", FT_BOOLEAN, 16,
            NULL, 0x0004, "Can Receive Attention", HFILL }},
        ...{ &hf_tns_sopt_flag_sa, ...{
            "Can Send Attention", "tns.so_flag.sa", FT_BOOLEAN, 16,
            NULL, 0x0002, "Can Send Attention", HFILL }},


        ...{ &hf_tns_sdu_size, ...{
            "Session Data Unit Size", "tns.sdu_size", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Session Data Unit Size", HFILL }},
        ...{ &hf_tns_max_tdu_size, ...{
            "Maximum Transmission Data Unit Size", "tns.max_tdu_size", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Maximum Transmission Data Unit Size", HFILL }},

        ...{ &hf_tns_nt_proto_characteristics, ...{
            "NT Protocol Characteristics", "tns.nt_proto_characteristics", FT_UINT16, BASE_HEX,
            NULL, 0x0, "NT Protocol Characteristics", HFILL }},
        ...{ &hf_tns_ntp_flag_hangon, ...{
            "Hangon to listener connect", "tns.ntp_flag.hangon", FT_BOOLEAN, 16,
            NULL, 0x8000, "Hangon to listener connect", HFILL }},
        ...{ &hf_tns_ntp_flag_crel, ...{
            "Confirmed release", "tns.ntp_flag.crel", FT_BOOLEAN, 16,
            NULL, 0x4000, "Confirmed release", HFILL }},
        ...{ &hf_tns_ntp_flag_tduio, ...{
            "TDU based IO", "tns.ntp_flag.tduio", FT_BOOLEAN, 16,
            NULL, 0x2000, "TDU based IO", HFILL }},
        ...{ &hf_tns_ntp_flag_srun, ...{
            "Spawner running", "tns.ntp_flag.srun", FT_BOOLEAN, 16,
            NULL, 0x1000, "Spawner running", HFILL }},
        ...{ &hf_tns_ntp_flag_dtest, ...{
            "Data test", "tns.ntp_flag.dtest", FT_BOOLEAN, 16,
            NULL, 0x0800, "Data Test", HFILL }},
        ...{ &hf_tns_ntp_flag_cbio, ...{
            "Callback IO supported", "tns.ntp_flag.cbio", FT_BOOLEAN, 16,
            NULL, 0x0400, "Callback IO supported", HFILL }},
        ...{ &hf_tns_ntp_flag_asio, ...{
            "ASync IO Supported", "tns.ntp_flag.asio", FT_BOOLEAN, 16,
            NULL, 0x0200, "ASync IO Supported", HFILL }},
        ...{ &hf_tns_ntp_flag_pio, ...{
            "Packet oriented IO", "tns.ntp_flag.pio", FT_BOOLEAN, 16,
            NULL, 0x0100, "Packet oriented IO", HFILL }},
        ...{ &hf_tns_ntp_flag_grant, ...{
            "Can grant connection to another", "tns.ntp_flag.grant", FT_BOOLEAN, 16,
            NULL, 0x0080, "Can grant connection to another", HFILL }},
        ...{ &hf_tns_ntp_flag_handoff, ...{
            "Can handoff connection to another", "tns.ntp_flag.handoff", FT_BOOLEAN, 16,
            NULL, 0x0040, "Can handoff connection to another", HFILL }},
        ...{ &hf_tns_ntp_flag_sigio, ...{
            "Generate SIGIO signal", "tns.ntp_flag.sigio", FT_BOOLEAN, 16,
            NULL, 0x0020, "Generate SIGIO signal", HFILL }},
        ...{ &hf_tns_ntp_flag_sigpipe, ...{
            "Generate SIGPIPE signal", "tns.ntp_flag.sigpipe", FT_BOOLEAN, 16,
            NULL, 0x0010, "Generate SIGPIPE signal", HFILL }},
        ...{ &hf_tns_ntp_flag_sigurg, ...{
            "Generate SIGURG signal", "tns.ntp_flag.sigurg", FT_BOOLEAN, 16,
            NULL, 0x0008, "Generate SIGURG signal", HFILL }},
        ...{ &hf_tns_ntp_flag_urgentio, ...{
            "Urgent IO supported", "tns.ntp_flag.urgentio", FT_BOOLEAN, 16,
            NULL, 0x0004, "Urgent IO supported", HFILL }},
        ...{ &hf_tns_ntp_flag_fdio, ...{
            "Full duplex IO supported", "tns.ntp_flag.dfio", FT_BOOLEAN, 16,
            NULL, 0x0002, "Full duplex IO supported", HFILL }},
        ...{ &hf_tns_ntp_flag_testop, ...{
            "Test operation", "tns.ntp_flag.testop", FT_BOOLEAN, 16,
            NULL, 0x0001, "Test operation", HFILL }},




        ...{ &hf_tns_line_turnaround, ...{
            "Line Turnaround Value", "tns.line_turnaround", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Line Turnaround Value", HFILL }},
        ...{ &hf_tns_value_of_one, ...{
            "Value of 1 in Hardware", "tns.value_of_one", FT_BYTES, BASE_NONE,
            NULL, 0x0, "Value of 1 in Hardware", HFILL }},

        ...{ &hf_tns_connect, ...{
            "Connect", "tns.connect", FT_BOOLEAN, BASE_NONE,
            NULL, 0x0, "Connect", HFILL }},
        ...{ &hf_tns_connect_data_length, ...{
            "Length of Connect Data", "tns.connect_data_length", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Length of Connect Data", HFILL }},
        ...{ &hf_tns_connect_data_offset, ...{
            "Offset to Connect Data", "tns.connect_data_offset", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Offset to Connect Data", HFILL }},
        ...{ &hf_tns_connect_data_max, ...{
            "Maximum Receivable Connect Data", "tns.connect_data_max", FT_UINT32, BASE_DEC,
            NULL, 0x0, "Maximum Receivable Connect Data", HFILL }},

        ...{ &hf_tns_connect_flags0, ...{
            "Connect Flags 0", "tns.connect_flags0", FT_UINT8, BASE_HEX,
            NULL, 0x0, "Connect Flags 0", HFILL }},
        ...{ &hf_tns_connect_flags1, ...{
            "Connect Flags 1", "tns.connect_flags1", FT_UINT8, BASE_HEX,
            NULL, 0x0, "Connect Flags 1", HFILL }},

        ...{ &hf_tns_conn_flag_nareq, ...{
            "NA services required", "tns.connect_flags.nareq", FT_BOOLEAN, 8,
            NULL, 0x10, "NA services required", HFILL }},
        ...{ &hf_tns_conn_flag_nalink, ...{
            "NA services linked in", "tns.connect_flags.nalink", FT_BOOLEAN, 8,
            NULL, 0x08, "NA services linked in", HFILL }},
        ...{ &hf_tns_conn_flag_enablena, ...{
            "NA services enabled", "tns.connect_flags.enablena", FT_BOOLEAN, 8,
            NULL, 0x04, "NA services enabled", HFILL }},
        ...{ &hf_tns_conn_flag_ichg, ...{
            "Interchange is involved", "tns.connect_flags.ichg", FT_BOOLEAN, 8,
            NULL, 0x02, "Interchange is involved", HFILL }},
        ...{ &hf_tns_conn_flag_wantna, ...{
            "NA services wanted", "tns.connect_flags.wantna", FT_BOOLEAN, 8,
            NULL, 0x01, "NA services wanted", HFILL }},


        ...{ &hf_tns_trace_cf1, ...{
            "Trace Cross Facility Item 1", "tns.trace_cf1", FT_UINT32, BASE_HEX,
            NULL, 0x0, "Trace Cross Facility Item 1", HFILL }},
        ...{ &hf_tns_trace_cf2, ...{
            "Trace Cross Facility Item 2", "tns.trace_cf2", FT_UINT32, BASE_HEX,
            NULL, 0x0, "Trace Cross Facility Item 2", HFILL }},
        ...{ &hf_tns_trace_cid, ...{
            "Trace Unique Connection ID", "tns.trace_cid", FT_UINT64, BASE_HEX,
            NULL, 0x0, "Trace Unique Connection ID", HFILL }},
        ...{ &hf_tns_connect_data, ...{
            "Connect Data", "tns.connect_data", FT_STRING, BASE_NONE,
            NULL, 0x0, "Connect Data", HFILL }},

        ...{ &hf_tns_accept, ...{
            "Accept", "tns.accept", FT_BOOLEAN, BASE_NONE,
            NULL, 0x0, "Accept", HFILL }},
        ...{ &hf_tns_accept_data_length, ...{
            "Accept Data Length", "tns.accept_data_length", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Length of Accept Data", HFILL }},
        ...{ &hf_tns_accept_data, ...{
            "Accept Data", "tns.accept_data", FT_STRING, BASE_NONE,
            NULL, 0x0, "Accept Data", HFILL }},
        ...{ &hf_tns_accept_data_offset, ...{
            "Offset to Accept Data", "tns.accept_data_offset", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Offset to Accept Data", HFILL }},


        ...{ &hf_tns_refuse, ...{
            "Refuse", "tns.refuse", FT_BOOLEAN, BASE_NONE,
            NULL, 0x0, "Refuse", HFILL }},
        ...{ &hf_tns_refuse_reason_user, ...{
            "Refuse Reason (User)", "tns.refuse_reason_user", FT_UINT8, BASE_HEX,
            NULL, 0x0, "Refuse Reason from Application", HFILL }},
        ...{ &hf_tns_refuse_reason_system, ...{
            "Refuse Reason (System)", "tns.refuse_reason_system", FT_UINT8, BASE_HEX,
            NULL, 0x0, "Refuse Reason from System", HFILL }},
        ...{ &hf_tns_refuse_data_length, ...{
            "Refuse Data Length", "tns.refuse_data_length", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Length of Refuse Data", HFILL }},
        ...{ &hf_tns_refuse_data, ...{
            "Refuse Data", "tns.refuse_data", FT_STRING, BASE_NONE,
            NULL, 0x0, "Refuse Data", HFILL }},

        ...{ &hf_tns_abort, ...{
            "Abort", "tns.abort", FT_BOOLEAN, BASE_NONE,
            NULL, 0x0, "Abort", HFILL }},
        ...{ &hf_tns_abort_reason_user, ...{
            "Abort Reason (User)", "tns.abort_reason_user", FT_UINT8, BASE_HEX,
            NULL, 0x0, "Abort Reason from Application", HFILL }},
        ...{ &hf_tns_abort_reason_system, ...{
            "Abort Reason (User)", "tns.abort_reason_system", FT_UINT8, BASE_HEX,
            NULL, 0x0, "Abort Reason from System", HFILL }},
        ...{ &hf_tns_abort_data, ...{
            "Abort Data", "tns.abort_data", FT_STRING, BASE_NONE,
            NULL, 0x0, "Abort Data", HFILL }},

        ...{ &hf_tns_marker, ...{
            "Marker", "tns.marker", FT_BOOLEAN, BASE_NONE,
            NULL, 0x0, "Marker", HFILL }},
        ...{ &hf_tns_marker_type, ...{
            "Marker Type", "tns.marker.type", FT_UINT8, BASE_HEX,
            VALS(tns_marker_types), 0x0, "Marker Type", HFILL }},
        ...{ &hf_tns_marker_data_byte, ...{
            "Marker Data Byte", "tns.marker.databyte", FT_UINT8, BASE_HEX,
            NULL, 0x0, "Marker Data Byte", HFILL }},
        ...{ &hf_tns_marker_data, ...{
            "Marker Data", "tns.marker.data", FT_UINT16, BASE_HEX,
            NULL, 0x0, "Marker Data", HFILL }},

        ...{ &hf_tns_control, ...{
            "Control", "tns.control", FT_BOOLEAN, BASE_NONE,
            NULL, 0x0, "Control", HFILL }},
        ...{ &hf_tns_control_cmd, ...{
            "Control Command", "tns.control.cmd", FT_UINT16, BASE_HEX,
            VALS(tns_control_cmds), 0x0, "Control Command", HFILL }},
        ...{ &hf_tns_control_data, ...{
            "Control Data", "tns.control.data", FT_BYTES, BASE_HEX,
            NULL, 0x0, "Control Data", HFILL }},

        ...{ &hf_tns_redirect, ...{
            "Redirect", "tns.redirect", FT_BOOLEAN, BASE_NONE,
            NULL, 0x0, "Redirect", HFILL }},
        ...{ &hf_tns_redirect_data_length, ...{
            "Redirect Data Length", "tns.redirect_data_length", FT_UINT16, BASE_DEC,
            NULL, 0x0, "Length of Redirect Data", HFILL }},
        ...{ &hf_tns_redirect_data, ...{
            "Redirect Data", "tns.redirect_data", FT_STRING, BASE_NONE,
            NULL, 0x0, "Redirect Data", HFILL }},

        ...{ &hf_tns_data, ...{
            "Data", "tns.data", FT_BOOLEAN, BASE_NONE,
            NULL, 0x0, "Data", HFILL }},

        ...{ &hf_tns_data_flag, ...{
            "Data Flag", "tns.data_flag", FT_UINT16, BASE_HEX,
            NULL, 0x0, "Data Flag", HFILL }},
        ...{ &hf_tns_data_flag_send, ...{
            "Send Token", "tns.data_flag.send", FT_BOOLEAN, 16,
            NULL, 0x1, "Send Token", HFILL }},
        ...{ &hf_tns_data_flag_rc, ...{
            "Request Confirmation", "tns.data_flag.rc", FT_BOOLEAN, 16,
            NULL, 0x2, "Request Confirmation", HFILL }},
        ...{ &hf_tns_data_flag_c, ...{
            "Confirmation", "tns.data_flag.c", FT_BOOLEAN, 16,
            NULL, 0x4, "Confirmation", HFILL }},
        ...{ &hf_tns_data_flag_reserved, ...{
            "Reserved", "tns.data_flag.reserved", FT_BOOLEAN, 16,
            NULL, 0x8, "Reserved", HFILL }},
        ...{ &hf_tns_data_flag_more, ...{
            "More Data to Come", "tns.data_flag.more", FT_BOOLEAN, 16,
            NULL, 0x20, "More Data to Come", HFILL }},
        ...{ &hf_tns_data_flag_eof, ...{
            "End of File", "tns.data_flag.eof", FT_BOOLEAN, 16,
            NULL, 0x40, "End of File", HFILL }},
        ...{ &hf_tns_data_flag_dic, ...{
            "Do Immediate Confirmation", "tns.data_flag.dic", FT_BOOLEAN, 16,
            NULL, 0x80, "Do Immediate Confirmation", HFILL }},
        ...{ &hf_tns_data_flag_rts, ...{
            "Request To Send", "tns.data_flag.rts", FT_BOOLEAN, 16,
            NULL, 0x100, "Request To Send", HFILL }},
        ...{ &hf_tns_data_flag_sntt, ...{
            "Send NT Trailer", "tns.data_flag.sntt", FT_BOOLEAN, 16,
            NULL, 0x200, "Send NT Trailer", HFILL }},


        ...{ &hf_tns_reserved_byte, ...{
            "Reserved Byte", "tns.reserved_byte", FT_BYTES, BASE_HEX,
            NULL, 0x0, "Reserved Byte", HFILL }},
        ...{ &hf_tns_packet_type, ...{
            "Packet Type", "tns.type", FT_UINT8, BASE_DEC,
            VALS(tns_type_vals), 0x0, "Type of TNS packet", HFILL }}

    };

    static gint *ett[] = ...{
        &ett_tns,
        &ett_tns_connect,
        &ett_tns_accept,
        &ett_tns_refuse,
        &ett_tns_abort,
        &ett_tns_redirect,
        &ett_tns_marker,
        &ett_tns_attention,
        &ett_tns_control,
        &ett_tns_data,
        &ett_tns_data_flag,
        &ett_tns_sopt_flag,
        &ett_tns_ntp_flag,
        &ett_tns_conn_flag,
        &ett_sql
    };
    module_t *tns_module;

    proto_tns = proto_register_protocol(
        "Transparent Network Substrate Protocol", "TNS", "tns");
    proto_register_field_array(proto_tns, hf, array_length(hf));
    proto_register_subtree_array(ett, array_length(ett));

    tns_module = prefs_register_protocol(proto_tns, NULL);
    prefs_register_bool_preference(tns_module, "desegment_tns_messages",
      "Desegment all TNS messages spanning multiple TCP segments",
      "Whether the TNS dissector should desegment all messages spanning multiple TCP segments",
      &tns_desegment);
}

void
proto_reg_handoff_tns( void )
... {
    dissector_handle_t tns_handle;

    tns_handle = new_create_dissector_handle(dissect_tns, proto_tns);
    dissector_add("tcp.port", TCP_PORT_TNS, tns_handle);
    data_handle = find_dissector("data");
}