/* packet-sdh.c

 * Routines for SDH/SONET encapsulation dissection

 *

 * Wireshark - Network traffic analyzer

 * By Gerald Combs <gerald@wireshark.org>

 * Copyright 1998 - 2012 Gerald Combs

 *

 * SPDX-License-Identifier: GPL-2.0-or-later

 */

#include "config.h"

#include <epan/packet.h>

#include <epan/prefs.h>

#include <wiretap/wtap.h>

#include "packet-erf.h"

#define COLUMNS 270

#define EXT_HDR_TYPE_RAW_LINK        5

void proto_register_sdh(void);

void proto_reg_handoff_sdh(void);

static int proto_sdh;

static int ett_sdh;

static int hf_sdh_a1;

static int hf_sdh_a2;

static int hf_sdh_j0;

static int hf_sdh_b1;

static int hf_sdh_e1;

static int hf_sdh_f1;

static int hf_sdh_d1;

static int hf_sdh_d2;

static int hf_sdh_d3;

static int hf_sdh_au;

static int hf_sdh_b2;

static int hf_sdh_k1;

static int hf_sdh_k2;

static int hf_sdh_d4;

static int hf_sdh_d5;

static int hf_sdh_d6;

static int hf_sdh_d7;

static int hf_sdh_d8;

static int hf_sdh_d9;

static int hf_sdh_d10;

static int hf_sdh_d11;

static int hf_sdh_d12;

static int hf_sdh_s1;

static int hf_sdh_m1;

static int hf_sdh_e2;

static int hf_sdh_h1;

static int hf_sdh_h2;

static int hf_sdh_j1;

static dissector_handle_t sdh_handle;

static int sdh_data_rate = 1;

static const enum_val_t data_rates[] = {

  {"Guess", "Attempt to guess", -1},

  {"OC-3",  "OC-3",   1},

  {"OC-12", "OC-12",  4},

  {"OC-24", "OC-24",  8},

  {"OC-48", "OC-48", 16},

  {NULL, NULL, -1}

};

static const value_string sdh_s1_vals[] = {

  { 0, "Quality unknown" },

  { 1, "Reserved" },

  { 2, "Rec G.811" },

  { 3, "Reserved" },

  { 4, "SSU-A" },

  { 5, "Reserved" },

  { 6, "Reserved" },

  { 7, "Reserved" },

  { 8, "SSU-B" },

  { 9, "Reserved" },

  { 10, "Reserved" },

  { 11, "SDH Equipment Source" },

  { 12, "Reserved" },

  { 13, "Reserved" },

  { 14, "Reserved" },

  { 15, "do not use for sync" },

  { 0, NULL }

};

static int

get_sdh_level(tvbuff_t *tvb, packet_info *pinfo)

{

  uint64_t *hdr = NULL;

  /*data rate has been set in the SDH options*/

  if(sdh_data_rate != -1) return sdh_data_rate;

  /*ERF specifies data rate*/

  hdr = erf_get_ehdr(pinfo, EXT_HDR_TYPE_RAW_LINK, NULL);

  if (hdr != NULL){

    switch((*hdr & 0xff00) >> 8){

      case 1: /*OC-3*/

        return 1;

      case 2: /*OC-12*/

        return 4;

      case 3: /*OC-48*/

        return 16;

      default:  /*drop through and try the next method*/

        ;

    }

  }

  /*returns the multiplier for each data level*/

  switch(tvb_reported_length(tvb)){

    case 2430:  /*OC-3*/

      return 1;

    case 9720:  /*OC-12*/

      return 4;

    case 19440: /*OC-24*/

      return 8;

    case 38880: /*OC-48*/

      return 16;

  }

  return 1;

}

static int

dissect_sdh(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void* data _U_)

{

  col_set_str(pinfo->cinfo, COL_PROTOCOL, "SDH");

  col_clear(pinfo->cinfo,COL_INFO);

  if (tree) {

    proto_tree *sdh_tree;

    proto_item *sdh_item;

    int     level = get_sdh_level(tvb, pinfo);

    uint8_t h1;

    uint8_t h2;

    uint16_t au;

    int auoffset;

    sdh_item = proto_tree_add_protocol_format(tree, proto_sdh, tvb, 0, -1, "SDH");

    sdh_tree = proto_item_add_subtree(sdh_item, ett_sdh);

    h1  = tvb_get_uint8(tvb, 0*level+(3*level*COLUMNS));

    h2  = tvb_get_uint8(tvb, 3*level+(3*level*COLUMNS));

    au  = (h2 | ((0x03 & h1) << 8));

    proto_tree_add_item(sdh_tree, hf_sdh_a1, tvb, 0*level, 3*level, ENC_NA);

    proto_tree_add_item(sdh_tree, hf_sdh_a2, tvb, 3*level, 3*level, ENC_NA);

    proto_tree_add_item(sdh_tree, hf_sdh_j0, tvb, 6*level, 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_b1, tvb, 0*level+(1*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_e1, tvb, 3*level+(1*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_f1, tvb, 6*level+(1*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d1, tvb, 0*level+(2*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d2, tvb, 3*level+(2*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d3, tvb, 6*level+(2*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_h1, tvb, 0*level+(3*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_h2, tvb, 3*level+(3*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_uint(sdh_tree, hf_sdh_au, tvb, 0*level+(3*level*COLUMNS), 3*level+1, au);

    proto_tree_add_item(sdh_tree, hf_sdh_b2, tvb, 0*level+(4*level*COLUMNS), 3*level, ENC_NA);

    proto_tree_add_item(sdh_tree, hf_sdh_k1, tvb, 3*level+(4*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_k2, tvb, 6*level+(4*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d4, tvb, 0*level+(5*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d5, tvb, 3*level+(5*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d6, tvb, 6*level+(5*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d7, tvb, 0*level+(6*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d8, tvb, 3*level+(6*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d9, tvb, 6*level+(6*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d10, tvb, 0*level+(7*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d11, tvb, 3*level+(7*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_d12, tvb, 6*level+(7*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_s1, tvb, 0*level+(8*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_m1, tvb, 3*level+2+(8*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    proto_tree_add_item(sdh_tree, hf_sdh_e2, tvb, 6*level+(8*level*COLUMNS), 1, ENC_BIG_ENDIAN);

    /*XXX: POH that au points to may not be in the same frame. Also wrong on pointer justification*/

    /*calculate start of SPE by wrapping AU pointer*/

    auoffset = (((9 + 3*COLUMNS) /*start after H3*/ + au*3 + 9*(au/87) /*add extra SOH rows to offset*/) * level) % (COLUMNS*9*level);

    proto_tree_add_item(sdh_tree, hf_sdh_j1, tvb, auoffset, 1, ENC_BIG_ENDIAN);

  }

  return tvb_captured_length(tvb);

}

void

proto_register_sdh(void)

{

  static hf_register_info hf[] = {

    { &hf_sdh_a1,

    { "A1", "sdh.a1", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_a2,

    { "A2", "sdh.a2", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_j0,

    { "J0", "sdh.j0", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_b1,

    { "B1", "sdh.b1", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_e1,

    { "E1", "sdh.e1", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_f1,

    { "F1", "sdh.f1", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d1,

    { "D1", "sdh.d1", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d2,

    { "D2", "sdh.d2", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d3,

    { "D3", "sdh.d3", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_au,

    { "AU", "sdh.au", FT_UINT16, BASE_DEC, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_b2,

    { "B2", "sdh.b2", FT_BYTES, BASE_NONE, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_k1,

    { "K1", "sdh.k1", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_k2,

    { "K2", "sdh.k2", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d4,

    { "D4", "sdh.d4", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d5,

    { "D5", "sdh.d5", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d6,

    { "D6", "sdh.d6", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d7,

    { "D7", "sdh.d7", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d8,

    { "D8", "sdh.d8", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d9,

    { "D9", "sdh.d9", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d10,

    { "D10", "sdh.d10", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d11,

    { "D11", "sdh.d11", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_d12,

    { "D12", "sdh.d12", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_s1,

    { "S1", "sdh.s1", FT_UINT8, BASE_HEX, VALS(sdh_s1_vals), 0x0, NULL, HFILL }},

    { &hf_sdh_m1,

    { "M1", "sdh.m1", FT_UINT8, BASE_DEC, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_e2,

    { "E2", "sdh.e2", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_j1,

    { "J1", "sdh.j1", FT_UINT8, BASE_DEC, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_h1,

    { "H1", "sdh.h1", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

    { &hf_sdh_h2,

    { "H2", "sdh.h2", FT_UINT8, BASE_HEX, NULL, 0x0, NULL, HFILL }},

  };

  static int *ett[] = {

    &ett_sdh,

  };

  module_t *sdh_module;

  proto_sdh = proto_register_protocol("SDH/SONET Protocol", "SDH", "sdh");

  proto_register_field_array(proto_sdh, hf, array_length(hf));

  proto_register_subtree_array(ett, array_length(ett));

  sdh_module = prefs_register_protocol(proto_sdh, NULL);

  prefs_register_enum_preference(sdh_module, "data.rate",

    "Data rate",

    "Data rate",

    &sdh_data_rate, data_rates, ENC_BIG_ENDIAN);

  sdh_handle = register_dissector("sdh", dissect_sdh, proto_sdh);

}

void

proto_reg_handoff_sdh(void)

{

  dissector_add_uint("wtap_encap", WTAP_ENCAP_SDH, sdh_handle);

}

/*

 * Editor modelines  -  https://www.wireshark.org/tools/modelines.html

 *

 * Local Variables:

 * c-basic-offset: 2

 * tab-width: 8

 * indent-tabs-mode: nil

 * End:

 *

 * ex: set shiftwidth=2 tabstop=8 expandtab:

 * :indentSize=2:tabSize=8:noTabs=true:

 */