contrib/tcpdump/print-decnet.c

   1 /*
   2  * Copyright (c) 1992, 1993, 1994, 1995, 1996, 1997
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that: (1) source code distributions
   7  * retain the above copyright notice and this paragraph in its entirety, (2)
   8  * distributions including binary code include the above copyright notice and
   9  * this paragraph in its entirety in the documentation or other materials
  10  * provided with the distribution, and (3) all advertising materials mentioning
  11  * features or use of this software display the following acknowledgement:
  12  * ``This product includes software developed by the University of California,
  13  * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
  14  * the University nor the names of its contributors may be used to endorse
  15  * or promote products derived from this software without specific prior
  16  * written permission.
  17  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
  18  * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  19  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  20  */
  21
  22 /* \summary: DECnet printer */
  23
  24 #ifdef HAVE_CONFIG_H
  25 #include "config.h"
  26 #endif
  27
  28 #include <netdissect-stdinc.h>
  29
  30 struct mbuf;
  31 struct rtentry;
  32
  33 #include <stdio.h>
  34 #include <stdlib.h>
  35 #include <string.h>
  36
  37 #include "extract.h"
  38 #include "netdissect.h"
  39 #include "addrtoname.h"
  40
  41 static const char tstr[] = "[|decnet]";
  42
  43 #ifndef _WIN32
  44 typedef uint8_t byte[1];                /* single byte field */
  45 #else
  46 /*
  47  * the keyword 'byte' generates conflicts in Windows
  48  */
  49 typedef unsigned char Byte[1];          /* single byte field */
  50 #define byte Byte
  51 #endif /* _WIN32 */
  52 typedef uint8_t word[2];                /* 2 byte field */
  53 typedef uint8_t longword[4];            /* 4 bytes field */
  54
  55 /*
  56  * Definitions for DECNET Phase IV protocol headers
  57  */
  58 union etheraddress {
  59         uint8_t   dne_addr[6];          /* full ethernet address */
  60         struct {
  61                 uint8_t dne_hiord[4];   /* DECnet HIORD prefix */
  62                 uint8_t dne_nodeaddr[2]; /* DECnet node address */
  63         } dne_remote;
  64 };
  65
  66 typedef union etheraddress etheraddr;   /* Ethernet address */
  67
  68 #define HIORD 0x000400aa                /* high 32-bits of address (swapped) */
  69
  70 #define AREAMASK        0176000         /* mask for area field */
  71 #define AREASHIFT       10              /* bit-offset for area field */
  72 #define NODEMASK        01777           /* mask for node address field */
  73
  74 /*
  75  * Define long and short header formats.
  76  */
  77 struct shorthdr
  78   {
  79     byte        sh_flags;               /* route flags */
  80     word        sh_dst;                 /* destination node address */
  81     word        sh_src;                 /* source node address */
  82     byte        sh_visits;              /* visit count */
  83   };
  84
  85 struct longhdr
  86   {
  87     byte        lg_flags;               /* route flags */
  88     byte        lg_darea;               /* destination area (reserved) */
  89     byte        lg_dsarea;              /* destination subarea (reserved) */
  90     etheraddr   lg_dst;                 /* destination id */
  91     byte        lg_sarea;               /* source area (reserved) */
  92     byte        lg_ssarea;              /* source subarea (reserved) */
  93     etheraddr   lg_src;                 /* source id */
  94     byte        lg_nextl2;              /* next level 2 router (reserved) */
  95     byte        lg_visits;              /* visit count */
  96     byte        lg_service;             /* service class (reserved) */
  97     byte        lg_pt;                  /* protocol type (reserved) */
  98   };
  99
 100 union routehdr
 101   {
 102     struct shorthdr rh_short;           /* short route header */
 103     struct longhdr rh_long;             /* long route header */
 104   };
 105
 106 /*
 107  * Define the values of various fields in the protocol messages.
 108  *
 109  * 1. Data packet formats.
 110  */
 111 #define RMF_MASK        7               /* mask for message type */
 112 #define RMF_SHORT       2               /* short message format */
 113 #define RMF_LONG        6               /* long message format */
 114 #ifndef RMF_RQR
 115 #define RMF_RQR         010             /* request return to sender */
 116 #define RMF_RTS         020             /* returning to sender */
 117 #define RMF_IE          040             /* intra-ethernet packet */
 118 #endif /* RMR_RQR */
 119 #define RMF_FVER        0100            /* future version flag */
 120 #define RMF_PAD         0200            /* pad field */
 121 #define RMF_PADMASK     0177            /* pad field mask */
 122
 123 #define VIS_MASK        077             /* visit field mask */
 124
 125 /*
 126  * 2. Control packet formats.
 127  */
 128 #define RMF_CTLMASK     017             /* mask for message type */
 129 #define RMF_CTLMSG      01              /* control message indicator */
 130 #define RMF_INIT        01              /* initialization message */
 131 #define RMF_VER         03              /* verification message */
 132 #define RMF_TEST        05              /* hello and test message */
 133 #define RMF_L1ROUT      07              /* level 1 routing message */
 134 #define RMF_L2ROUT      011             /* level 2 routing message */
 135 #define RMF_RHELLO      013             /* router hello message */
 136 #define RMF_EHELLO      015             /* endnode hello message */
 137
 138 #define TI_L2ROUT       01              /* level 2 router */
 139 #define TI_L1ROUT       02              /* level 1 router */
 140 #define TI_ENDNODE      03              /* endnode */
 141 #define TI_VERIF        04              /* verification required */
 142 #define TI_BLOCK        010             /* blocking requested */
 143
 144 #define VE_VERS         2               /* version number (2) */
 145 #define VE_ECO          0               /* ECO number */
 146 #define VE_UECO         0               /* user ECO number (0) */
 147
 148 #define P3_VERS         1               /* phase III version number (1) */
 149 #define P3_ECO          3               /* ECO number (3) */
 150 #define P3_UECO         0               /* user ECO number (0) */
 151
 152 #define II_L2ROUT       01              /* level 2 router */
 153 #define II_L1ROUT       02              /* level 1 router */
 154 #define II_ENDNODE      03              /* endnode */
 155 #define II_VERIF        04              /* verification required */
 156 #define II_NOMCAST      040             /* no multicast traffic accepted */
 157 #define II_BLOCK        0100            /* blocking requested */
 158 #define II_TYPEMASK     03              /* mask for node type */
 159
 160 #define TESTDATA        0252            /* test data bytes */
 161 #define TESTLEN         1               /* length of transmitted test data */
 162
 163 /*
 164  * Define control message formats.
 165  */
 166 struct initmsgIII                       /* phase III initialization message */
 167   {
 168     byte        inIII_flags;            /* route flags */
 169     word        inIII_src;              /* source node address */
 170     byte        inIII_info;             /* routing layer information */
 171     word        inIII_blksize;          /* maximum data link block size */
 172     byte        inIII_vers;             /* version number */
 173     byte        inIII_eco;              /* ECO number */
 174     byte        inIII_ueco;             /* user ECO number */
 175     byte        inIII_rsvd;             /* reserved image field */
 176   };
 177
 178 struct initmsg                          /* initialization message */
 179   {
 180     byte        in_flags;               /* route flags */
 181     word        in_src;                 /* source node address */
 182     byte        in_info;                /* routing layer information */
 183     word        in_blksize;             /* maximum data link block size */
 184     byte        in_vers;                /* version number */
 185     byte        in_eco;                 /* ECO number */
 186     byte        in_ueco;                /* user ECO number */
 187     word        in_hello;               /* hello timer */
 188     byte        in_rsvd;                /* reserved image field */
 189   };
 190
 191 struct verifmsg                         /* verification message */
 192   {
 193     byte        ve_flags;               /* route flags */
 194     word        ve_src;                 /* source node address */
 195     byte        ve_fcnval;              /* function value image field */
 196   };
 197
 198 struct testmsg                          /* hello and test message */
 199   {
 200     byte        te_flags;               /* route flags */
 201     word        te_src;                 /* source node address */
 202     byte        te_data;                /* test data image field */
 203   };
 204
 205 struct l1rout                           /* level 1 routing message */
 206   {
 207     byte        r1_flags;               /* route flags */
 208     word        r1_src;                 /* source node address */
 209     byte        r1_rsvd;                /* reserved field */
 210   };
 211
 212 struct l2rout                           /* level 2 routing message */
 213   {
 214     byte        r2_flags;               /* route flags */
 215     word        r2_src;                 /* source node address */
 216     byte        r2_rsvd;                /* reserved field */
 217   };
 218
 219 struct rhellomsg                        /* router hello message */
 220   {
 221     byte        rh_flags;               /* route flags */
 222     byte        rh_vers;                /* version number */
 223     byte        rh_eco;                 /* ECO number */
 224     byte        rh_ueco;                /* user ECO number */
 225     etheraddr   rh_src;                 /* source id */
 226     byte        rh_info;                /* routing layer information */
 227     word        rh_blksize;             /* maximum data link block size */
 228     byte        rh_priority;            /* router's priority */
 229     byte        rh_area;                /* reserved */
 230     word        rh_hello;               /* hello timer */
 231     byte        rh_mpd;                 /* reserved */
 232   };
 233
 234 struct ehellomsg                        /* endnode hello message */
 235   {
 236     byte        eh_flags;               /* route flags */
 237     byte        eh_vers;                /* version number */
 238     byte        eh_eco;                 /* ECO number */
 239     byte        eh_ueco;                /* user ECO number */
 240     etheraddr   eh_src;                 /* source id */
 241     byte        eh_info;                /* routing layer information */
 242     word        eh_blksize;             /* maximum data link block size */
 243     byte        eh_area;                /* area (reserved) */
 244     byte        eh_seed[8];             /* verification seed */
 245     etheraddr   eh_router;              /* designated router */
 246     word        eh_hello;               /* hello timer */
 247     byte        eh_mpd;                 /* (reserved) */
 248     byte        eh_data;                /* test data image field */
 249   };
 250
 251 union controlmsg
 252   {
 253     struct initmsg      cm_init;        /* initialization message */
 254     struct verifmsg     cm_ver;         /* verification message */
 255     struct testmsg      cm_test;        /* hello and test message */
 256     struct l1rout       cm_l1rou;       /* level 1 routing message */
 257     struct l2rout       cm_l2rout;      /* level 2 routing message */
 258     struct rhellomsg    cm_rhello;      /* router hello message */
 259     struct ehellomsg    cm_ehello;      /* endnode hello message */
 260   };
 261
 262 /* Macros for decoding routing-info fields */
 263 #define RI_COST(x)      ((x)&0777)
 264 #define RI_HOPS(x)      (((x)>>10)&037)
 265
 266 /*
 267  * NSP protocol fields and values.
 268  */
 269
 270 #define NSP_TYPEMASK 014                /* mask to isolate type code */
 271 #define NSP_SUBMASK 0160                /* mask to isolate subtype code */
 272 #define NSP_SUBSHFT 4                   /* shift to move subtype code */
 273
 274 #define MFT_DATA 0                      /* data message */
 275 #define MFT_ACK  04                     /* acknowledgement message */
 276 #define MFT_CTL  010                    /* control message */
 277
 278 #define MFS_ILS  020                    /* data or I/LS indicator */
 279 #define MFS_BOM  040                    /* beginning of message (data) */
 280 #define MFS_MOM  0                      /* middle of message (data) */
 281 #define MFS_EOM  0100                   /* end of message (data) */
 282 #define MFS_INT  040                    /* interrupt message */
 283
 284 #define MFS_DACK 0                      /* data acknowledgement */
 285 #define MFS_IACK 020                    /* I/LS acknowledgement */
 286 #define MFS_CACK 040                    /* connect acknowledgement */
 287
 288 #define MFS_NOP  0                      /* no operation */
 289 #define MFS_CI   020                    /* connect initiate */
 290 #define MFS_CC   040                    /* connect confirm */
 291 #define MFS_DI   060                    /* disconnect initiate */
 292 #define MFS_DC   0100                   /* disconnect confirm */
 293 #define MFS_RCI  0140                   /* retransmitted connect initiate */
 294
 295 #define SGQ_ACK  0100000                /* ack */
 296 #define SGQ_NAK  0110000                /* negative ack */
 297 #define SGQ_OACK 0120000                /* other channel ack */
 298 #define SGQ_ONAK 0130000                /* other channel negative ack */
 299 #define SGQ_MASK 07777                  /* mask to isolate seq # */
 300 #define SGQ_OTHER 020000                /* other channel qualifier */
 301 #define SGQ_DELAY 010000                /* ack delay flag */
 302
 303 #define SGQ_EOM  0100000                /* pseudo flag for end-of-message */
 304
 305 #define LSM_MASK 03                     /* mask for modifier field */
 306 #define LSM_NOCHANGE 0                  /* no change */
 307 #define LSM_DONOTSEND 1                 /* do not send data */
 308 #define LSM_SEND 2                      /* send data */
 309
 310 #define LSI_MASK 014                    /* mask for interpretation field */
 311 #define LSI_DATA 0                      /* data segment or message count */
 312 #define LSI_INTR 4                      /* interrupt request count */
 313 #define LSI_INTM 0377                   /* funny marker for int. message */
 314
 315 #define COS_MASK 014                    /* mask for flow control field */
 316 #define COS_NONE 0                      /* no flow control */
 317 #define COS_SEGMENT 04                  /* segment flow control */
 318 #define COS_MESSAGE 010                 /* message flow control */
 319 #define COS_DEFAULT 1                   /* default value for field */
 320
 321 #define COI_MASK 3                      /* mask for version field */
 322 #define COI_32 0                        /* version 3.2 */
 323 #define COI_31 1                        /* version 3.1 */
 324 #define COI_40 2                        /* version 4.0 */
 325 #define COI_41 3                        /* version 4.1 */
 326
 327 #define MNU_MASK 140                    /* mask for session control version */
 328 #define MNU_10 000                              /* session V1.0 */
 329 #define MNU_20 040                              /* session V2.0 */
 330 #define MNU_ACCESS 1                    /* access control present */
 331 #define MNU_USRDATA 2                   /* user data field present */
 332 #define MNU_INVKPROXY 4                 /* invoke proxy field present */
 333 #define MNU_UICPROXY 8                  /* use uic-based proxy */
 334
 335 #define DC_NORESOURCES 1                /* no resource reason code */
 336 #define DC_NOLINK 41                    /* no link terminate reason code */
 337 #define DC_COMPLETE 42                  /* disconnect complete reason code */
 338
 339 #define DI_NOERROR 0                    /* user disconnect */
 340 #define DI_SHUT 3                       /* node is shutting down */
 341 #define DI_NOUSER 4                     /* destination end user does not exist */
 342 #define DI_INVDEST 5                    /* invalid end user destination */
 343 #define DI_REMRESRC 6                   /* insufficient remote resources */
 344 #define DI_TPA 8                        /* third party abort */
 345 #define DI_PROTOCOL 7                   /* protocol error discovered */
 346 #define DI_ABORT 9                      /* user abort */
 347 #define DI_LOCALRESRC 32                /* insufficient local resources */
 348 #define DI_REMUSERRESRC 33              /* insufficient remote user resources */
 349 #define DI_BADACCESS 34                 /* bad access control information */
 350 #define DI_BADACCNT 36                  /* bad ACCOUNT information */
 351 #define DI_CONNECTABORT 38              /* connect request cancelled */
 352 #define DI_TIMEDOUT 38                  /* remote node or user crashed */
 353 #define DI_UNREACHABLE 39               /* local timers expired due to ... */
 354 #define DI_BADIMAGE 43                  /* bad image data in connect */
 355 #define DI_SERVMISMATCH 54              /* cryptographic service mismatch */
 356
 357 #define UC_OBJREJECT 0                  /* object rejected connect */
 358 #define UC_USERDISCONNECT 0             /* user disconnect */
 359 #define UC_RESOURCES 1                  /* insufficient resources (local or remote) */
 360 #define UC_NOSUCHNODE 2                 /* unrecognized node name */
 361 #define UC_REMOTESHUT 3                 /* remote node shutting down */
 362 #define UC_NOSUCHOBJ 4                  /* unrecognized object */
 363 #define UC_INVOBJFORMAT 5               /* invalid object name format */
 364 #define UC_OBJTOOBUSY 6                 /* object too busy */
 365 #define UC_NETWORKABORT 8               /* network abort */
 366 #define UC_USERABORT 9                  /* user abort */
 367 #define UC_INVNODEFORMAT 10             /* invalid node name format */
 368 #define UC_LOCALSHUT 11                 /* local node shutting down */
 369 #define UC_ACCESSREJECT 34              /* invalid access control information */
 370 #define UC_NORESPONSE 38                /* no response from object */
 371 #define UC_UNREACHABLE 39               /* node unreachable */
 372
 373 /*
 374  * NSP message formats.
 375  */
 376 struct nsphdr                           /* general nsp header */
 377   {
 378     byte        nh_flags;               /* message flags */
 379     word        nh_dst;                 /* destination link address */
 380     word        nh_src;                 /* source link address */
 381   };
 382
 383 struct seghdr                           /* data segment header */
 384   {
 385     byte        sh_flags;               /* message flags */
 386     word        sh_dst;                 /* destination link address */
 387     word        sh_src;                 /* source link address */
 388     word        sh_seq[3];              /* sequence numbers */
 389   };
 390
 391 struct minseghdr                        /* minimum data segment header */
 392   {
 393     byte        ms_flags;               /* message flags */
 394     word        ms_dst;                 /* destination link address */
 395     word        ms_src;                 /* source link address */
 396     word        ms_seq;                 /* sequence number */
 397   };
 398
 399 struct lsmsg                            /* link service message (after hdr) */
 400   {
 401     byte        ls_lsflags;             /* link service flags */
 402     byte        ls_fcval;               /* flow control value */
 403   };
 404
 405 struct ackmsg                           /* acknowledgement message */
 406   {
 407     byte        ak_flags;               /* message flags */
 408     word        ak_dst;                 /* destination link address */
 409     word        ak_src;                 /* source link address */
 410     word        ak_acknum[2];           /* acknowledgement numbers */
 411   };
 412
 413 struct minackmsg                        /* minimum acknowledgement message */
 414   {
 415     byte        mk_flags;               /* message flags */
 416     word        mk_dst;                 /* destination link address */
 417     word        mk_src;                 /* source link address */
 418     word        mk_acknum;              /* acknowledgement number */
 419   };
 420
 421 struct ciackmsg                         /* connect acknowledgement message */
 422   {
 423     byte        ck_flags;               /* message flags */
 424     word        ck_dst;                 /* destination link address */
 425   };
 426
 427 struct cimsg                            /* connect initiate message */
 428   {
 429     byte        ci_flags;               /* message flags */
 430     word        ci_dst;                 /* destination link address (0) */
 431     word        ci_src;                 /* source link address */
 432     byte        ci_services;            /* requested services */
 433     byte        ci_info;                /* information */
 434     word        ci_segsize;             /* maximum segment size */
 435   };
 436
 437 struct ccmsg                            /* connect confirm message */
 438   {
 439     byte        cc_flags;               /* message flags */
 440     word        cc_dst;                 /* destination link address */
 441     word        cc_src;                 /* source link address */
 442     byte        cc_services;            /* requested services */
 443     byte        cc_info;                /* information */
 444     word        cc_segsize;             /* maximum segment size */
 445     byte        cc_optlen;              /* optional data length */
 446   };
 447
 448 struct cnmsg                            /* generic connect message */
 449   {
 450     byte        cn_flags;               /* message flags */
 451     word        cn_dst;                 /* destination link address */
 452     word        cn_src;                 /* source link address */
 453     byte        cn_services;            /* requested services */
 454     byte        cn_info;                /* information */
 455     word        cn_segsize;             /* maximum segment size */
 456   };
 457
 458 struct dimsg                            /* disconnect initiate message */
 459   {
 460     byte        di_flags;               /* message flags */
 461     word        di_dst;                 /* destination link address */
 462     word        di_src;                 /* source link address */
 463     word        di_reason;              /* reason code */
 464     byte        di_optlen;              /* optional data length */
 465   };
 466
 467 struct dcmsg                            /* disconnect confirm message */
 468   {
 469     byte        dc_flags;               /* message flags */
 470     word        dc_dst;                 /* destination link address */
 471     word        dc_src;                 /* source link address */
 472     word        dc_reason;              /* reason code */
 473   };
 474
 475 /* Forwards */
 476 static int print_decnet_ctlmsg(netdissect_options *, const union routehdr *, u_int, u_int);
 477 static void print_t_info(netdissect_options *, int);
 478 static int print_l1_routes(netdissect_options *, const char *, u_int);
 479 static int print_l2_routes(netdissect_options *, const char *, u_int);
 480 static void print_i_info(netdissect_options *, int);
 481 static int print_elist(const char *, u_int);
 482 static int print_nsp(netdissect_options *, const u_char *, u_int);
 483 static void print_reason(netdissect_options *, int);
 484
 485 void
 486 decnet_print(netdissect_options *ndo,
 487              register const u_char *ap, register u_int length,
 488              register u_int caplen)
 489 {
 490         register const union routehdr *rhp;
 491         register int mflags;
 492         int dst, src, hops;
 493         u_int nsplen, pktlen;
 494         const u_char *nspp;
 495
 496         if (length < sizeof(struct shorthdr)) {
 497                 ND_PRINT((ndo, "%s", tstr));
 498                 return;
 499         }
 500
 501         ND_TCHECK2(*ap, sizeof(short));
 502         pktlen = EXTRACT_LE_16BITS(ap);
 503         if (pktlen < sizeof(struct shorthdr)) {
 504                 ND_PRINT((ndo, "%s", tstr));
 505                 return;
 506         }
 507         if (pktlen > length) {
 508                 ND_PRINT((ndo, "%s", tstr));
 509                 return;
 510         }
 511         length = pktlen;
 512
 513         rhp = (const union routehdr *)&(ap[sizeof(short)]);
 514         ND_TCHECK(rhp->rh_short.sh_flags);
 515         mflags = EXTRACT_LE_8BITS(rhp->rh_short.sh_flags);
 516
 517         if (mflags & RMF_PAD) {
 518             /* pad bytes of some sort in front of message */
 519             u_int padlen = mflags & RMF_PADMASK;
 520             if (ndo->ndo_vflag)
 521                 ND_PRINT((ndo, "[pad:%d] ", padlen));
 522             if (length < padlen + 2) {
 523                 ND_PRINT((ndo, "%s", tstr));
 524                 return;
 525             }
 526             ND_TCHECK2(ap[sizeof(short)], padlen);
 527             ap += padlen;
 528             length -= padlen;
 529             caplen -= padlen;
 530             rhp = (const union routehdr *)&(ap[sizeof(short)]);
 531             ND_TCHECK(rhp->rh_short.sh_flags);
 532             mflags = EXTRACT_LE_8BITS(rhp->rh_short.sh_flags);
 533         }
 534
 535         if (mflags & RMF_FVER) {
 536                 ND_PRINT((ndo, "future-version-decnet"));
 537                 ND_DEFAULTPRINT(ap, min(length, caplen));
 538                 return;
 539         }
 540
 541         /* is it a control message? */
 542         if (mflags & RMF_CTLMSG) {
 543                 if (!print_decnet_ctlmsg(ndo, rhp, length, caplen))
 544                         goto trunc;
 545                 return;
 546         }
 547
 548         switch (mflags & RMF_MASK) {
 549         case RMF_LONG:
 550             if (length < sizeof(struct longhdr)) {
 551                 ND_PRINT((ndo, "%s", tstr));
 552                 return;
 553             }
 554             ND_TCHECK(rhp->rh_long);
 555             dst =
 556                 EXTRACT_LE_16BITS(rhp->rh_long.lg_dst.dne_remote.dne_nodeaddr);
 557             src =
 558                 EXTRACT_LE_16BITS(rhp->rh_long.lg_src.dne_remote.dne_nodeaddr);
 559             hops = EXTRACT_LE_8BITS(rhp->rh_long.lg_visits);
 560             nspp = &(ap[sizeof(short) + sizeof(struct longhdr)]);
 561             nsplen = length - sizeof(struct longhdr);
 562             break;
 563         case RMF_SHORT:
 564             ND_TCHECK(rhp->rh_short);
 565             dst = EXTRACT_LE_16BITS(rhp->rh_short.sh_dst);
 566             src = EXTRACT_LE_16BITS(rhp->rh_short.sh_src);
 567             hops = (EXTRACT_LE_8BITS(rhp->rh_short.sh_visits) & VIS_MASK)+1;
 568             nspp = &(ap[sizeof(short) + sizeof(struct shorthdr)]);
 569             nsplen = length - sizeof(struct shorthdr);
 570             break;
 571         default:
 572             ND_PRINT((ndo, "unknown message flags under mask"));
 573             ND_DEFAULTPRINT((const u_char *)ap, min(length, caplen));
 574             return;
 575         }
 576
 577         ND_PRINT((ndo, "%s > %s %d ",
 578                         dnaddr_string(ndo, src), dnaddr_string(ndo, dst), pktlen));
 579         if (ndo->ndo_vflag) {
 580             if (mflags & RMF_RQR)
 581                 ND_PRINT((ndo, "RQR "));
 582             if (mflags & RMF_RTS)
 583                 ND_PRINT((ndo, "RTS "));
 584             if (mflags & RMF_IE)
 585                 ND_PRINT((ndo, "IE "));
 586             ND_PRINT((ndo, "%d hops ", hops));
 587         }
 588
 589         if (!print_nsp(ndo, nspp, nsplen))
 590                 goto trunc;
 591         return;
 592
 593 trunc:
 594         ND_PRINT((ndo, "%s", tstr));
 595         return;
 596 }
 597
 598 static int
 599 print_decnet_ctlmsg(netdissect_options *ndo,
 600                     register const union routehdr *rhp, u_int length,
 601                     u_int caplen)
 602 {
 603         /* Our caller has already checked for mflags */
 604         int mflags = EXTRACT_LE_8BITS(rhp->rh_short.sh_flags);
 605         register const union controlmsg *cmp = (const union controlmsg *)rhp;
 606         int src, dst, info, blksize, eco, ueco, hello, other, vers;
 607         etheraddr srcea, rtea;
 608         int priority;
 609         const char *rhpx = (const char *)rhp;
 610         int ret;
 611
 612         switch (mflags & RMF_CTLMASK) {
 613         case RMF_INIT:
 614             ND_PRINT((ndo, "init "));
 615             if (length < sizeof(struct initmsg))
 616                 goto trunc;
 617             ND_TCHECK(cmp->cm_init);
 618             src = EXTRACT_LE_16BITS(cmp->cm_init.in_src);
 619             info = EXTRACT_LE_8BITS(cmp->cm_init.in_info);
 620             blksize = EXTRACT_LE_16BITS(cmp->cm_init.in_blksize);
 621             vers = EXTRACT_LE_8BITS(cmp->cm_init.in_vers);
 622             eco = EXTRACT_LE_8BITS(cmp->cm_init.in_eco);
 623             ueco = EXTRACT_LE_8BITS(cmp->cm_init.in_ueco);
 624             hello = EXTRACT_LE_16BITS(cmp->cm_init.in_hello);
 625             print_t_info(ndo, info);
 626             ND_PRINT((ndo,
 627                 "src %sblksize %d vers %d eco %d ueco %d hello %d",
 628                         dnaddr_string(ndo, src), blksize, vers, eco, ueco,
 629                         hello));
 630             ret = 1;
 631             break;
 632         case RMF_VER:
 633             ND_PRINT((ndo, "verification "));
 634             if (length < sizeof(struct verifmsg))
 635                 goto trunc;
 636             ND_TCHECK(cmp->cm_ver);
 637             src = EXTRACT_LE_16BITS(cmp->cm_ver.ve_src);
 638             other = EXTRACT_LE_8BITS(cmp->cm_ver.ve_fcnval);
 639             ND_PRINT((ndo, "src %s fcnval %o", dnaddr_string(ndo, src), other));
 640             ret = 1;
 641             break;
 642         case RMF_TEST:
 643             ND_PRINT((ndo, "test "));
 644             if (length < sizeof(struct testmsg))
 645                 goto trunc;
 646             ND_TCHECK(cmp->cm_test);
 647             src = EXTRACT_LE_16BITS(cmp->cm_test.te_src);
 648             other = EXTRACT_LE_8BITS(cmp->cm_test.te_data);
 649             ND_PRINT((ndo, "src %s data %o", dnaddr_string(ndo, src), other));
 650             ret = 1;
 651             break;
 652         case RMF_L1ROUT:
 653             ND_PRINT((ndo, "lev-1-routing "));
 654             if (length < sizeof(struct l1rout))
 655                 goto trunc;
 656             ND_TCHECK(cmp->cm_l1rou);
 657             src = EXTRACT_LE_16BITS(cmp->cm_l1rou.r1_src);
 658             ND_PRINT((ndo, "src %s ", dnaddr_string(ndo, src)));
 659             ret = print_l1_routes(ndo, &(rhpx[sizeof(struct l1rout)]),
 660                                 length - sizeof(struct l1rout));
 661             break;
 662         case RMF_L2ROUT:
 663             ND_PRINT((ndo, "lev-2-routing "));
 664             if (length < sizeof(struct l2rout))
 665                 goto trunc;
 666             ND_TCHECK(cmp->cm_l2rout);
 667             src = EXTRACT_LE_16BITS(cmp->cm_l2rout.r2_src);
 668             ND_PRINT((ndo, "src %s ", dnaddr_string(ndo, src)));
 669             ret = print_l2_routes(ndo, &(rhpx[sizeof(struct l2rout)]),
 670                                 length - sizeof(struct l2rout));
 671             break;
 672         case RMF_RHELLO:
 673             ND_PRINT((ndo, "router-hello "));
 674             if (length < sizeof(struct rhellomsg))
 675                 goto trunc;
 676             ND_TCHECK(cmp->cm_rhello);
 677             vers = EXTRACT_LE_8BITS(cmp->cm_rhello.rh_vers);
 678             eco = EXTRACT_LE_8BITS(cmp->cm_rhello.rh_eco);
 679             ueco = EXTRACT_LE_8BITS(cmp->cm_rhello.rh_ueco);
 680             memcpy((char *)&srcea, (const char *)&(cmp->cm_rhello.rh_src),
 681                 sizeof(srcea));
 682             src = EXTRACT_LE_16BITS(srcea.dne_remote.dne_nodeaddr);
 683             info = EXTRACT_LE_8BITS(cmp->cm_rhello.rh_info);
 684             blksize = EXTRACT_LE_16BITS(cmp->cm_rhello.rh_blksize);
 685             priority = EXTRACT_LE_8BITS(cmp->cm_rhello.rh_priority);
 686             hello = EXTRACT_LE_16BITS(cmp->cm_rhello.rh_hello);
 687             print_i_info(ndo, info);
 688             ND_PRINT((ndo,
 689             "vers %d eco %d ueco %d src %s blksize %d pri %d hello %d",
 690                         vers, eco, ueco, dnaddr_string(ndo, src),
 691                         blksize, priority, hello));
 692             ret = print_elist(&(rhpx[sizeof(struct rhellomsg)]),
 693                                 length - sizeof(struct rhellomsg));
 694             break;
 695         case RMF_EHELLO:
 696             ND_PRINT((ndo, "endnode-hello "));
 697             if (length < sizeof(struct ehellomsg))
 698                 goto trunc;
 699             ND_TCHECK(cmp->cm_ehello);
 700             vers = EXTRACT_LE_8BITS(cmp->cm_ehello.eh_vers);
 701             eco = EXTRACT_LE_8BITS(cmp->cm_ehello.eh_eco);
 702             ueco = EXTRACT_LE_8BITS(cmp->cm_ehello.eh_ueco);
 703             memcpy((char *)&srcea, (const char *)&(cmp->cm_ehello.eh_src),
 704                 sizeof(srcea));
 705             src = EXTRACT_LE_16BITS(srcea.dne_remote.dne_nodeaddr);
 706             info = EXTRACT_LE_8BITS(cmp->cm_ehello.eh_info);
 707             blksize = EXTRACT_LE_16BITS(cmp->cm_ehello.eh_blksize);
 708             /*seed*/
 709             memcpy((char *)&rtea, (const char *)&(cmp->cm_ehello.eh_router),
 710                 sizeof(rtea));
 711             dst = EXTRACT_LE_16BITS(rtea.dne_remote.dne_nodeaddr);
 712             hello = EXTRACT_LE_16BITS(cmp->cm_ehello.eh_hello);
 713             other = EXTRACT_LE_8BITS(cmp->cm_ehello.eh_data);
 714             print_i_info(ndo, info);
 715             ND_PRINT((ndo,
 716         "vers %d eco %d ueco %d src %s blksize %d rtr %s hello %d data %o",
 717                         vers, eco, ueco, dnaddr_string(ndo, src),
 718                         blksize, dnaddr_string(ndo, dst), hello, other));
 719             ret = 1;
 720             break;
 721
 722         default:
 723             ND_PRINT((ndo, "unknown control message"));
 724             ND_DEFAULTPRINT((const u_char *)rhp, min(length, caplen));
 725             ret = 1;
 726             break;
 727         }
 728         return (ret);
 729
 730 trunc:
 731         return (0);
 732 }
 733
 734 static void
 735 print_t_info(netdissect_options *ndo,
 736              int info)
 737 {
 738         int ntype = info & 3;
 739         switch (ntype) {
 740         case 0: ND_PRINT((ndo, "reserved-ntype? ")); break;
 741         case TI_L2ROUT: ND_PRINT((ndo, "l2rout ")); break;
 742         case TI_L1ROUT: ND_PRINT((ndo, "l1rout ")); break;
 743         case TI_ENDNODE: ND_PRINT((ndo, "endnode ")); break;
 744         }
 745         if (info & TI_VERIF)
 746             ND_PRINT((ndo, "verif "));
 747         if (info & TI_BLOCK)
 748             ND_PRINT((ndo, "blo "));
 749 }
 750
 751 static int
 752 print_l1_routes(netdissect_options *ndo,
 753                 const char *rp, u_int len)
 754 {
 755         int count;
 756         int id;
 757         int info;
 758
 759         /* The last short is a checksum */
 760         while (len > (3 * sizeof(short))) {
 761             ND_TCHECK2(*rp, 3 * sizeof(short));
 762             count = EXTRACT_LE_16BITS(rp);
 763             if (count > 1024)
 764                 return (1);     /* seems to be bogus from here on */
 765             rp += sizeof(short);
 766             len -= sizeof(short);
 767             id = EXTRACT_LE_16BITS(rp);
 768             rp += sizeof(short);
 769             len -= sizeof(short);
 770             info = EXTRACT_LE_16BITS(rp);
 771             rp += sizeof(short);
 772             len -= sizeof(short);
 773             ND_PRINT((ndo, "{ids %d-%d cost %d hops %d} ", id, id + count,
 774                             RI_COST(info), RI_HOPS(info)));
 775         }
 776         return (1);
 777
 778 trunc:
 779         return (0);
 780 }
 781
 782 static int
 783 print_l2_routes(netdissect_options *ndo,
 784                 const char *rp, u_int len)
 785 {
 786         int count;
 787         int area;
 788         int info;
 789
 790         /* The last short is a checksum */
 791         while (len > (3 * sizeof(short))) {
 792             ND_TCHECK2(*rp, 3 * sizeof(short));
 793             count = EXTRACT_LE_16BITS(rp);
 794             if (count > 1024)
 795                 return (1);     /* seems to be bogus from here on */
 796             rp += sizeof(short);
 797             len -= sizeof(short);
 798             area = EXTRACT_LE_16BITS(rp);
 799             rp += sizeof(short);
 800             len -= sizeof(short);
 801             info = EXTRACT_LE_16BITS(rp);
 802             rp += sizeof(short);
 803             len -= sizeof(short);
 804             ND_PRINT((ndo, "{areas %d-%d cost %d hops %d} ", area, area + count,
 805                             RI_COST(info), RI_HOPS(info)));
 806         }
 807         return (1);
 808
 809 trunc:
 810         return (0);
 811 }
 812
 813 static void
 814 print_i_info(netdissect_options *ndo,
 815              int info)
 816 {
 817         int ntype = info & II_TYPEMASK;
 818         switch (ntype) {
 819         case 0: ND_PRINT((ndo, "reserved-ntype? ")); break;
 820         case II_L2ROUT: ND_PRINT((ndo, "l2rout ")); break;
 821         case II_L1ROUT: ND_PRINT((ndo, "l1rout ")); break;
 822         case II_ENDNODE: ND_PRINT((ndo, "endnode ")); break;
 823         }
 824         if (info & II_VERIF)
 825             ND_PRINT((ndo, "verif "));
 826         if (info & II_NOMCAST)
 827             ND_PRINT((ndo, "nomcast "));
 828         if (info & II_BLOCK)
 829             ND_PRINT((ndo, "blo "));
 830 }
 831
 832 static int
 833 print_elist(const char *elp _U_, u_int len _U_)
 834 {
 835         /* Not enough examples available for me to debug this */
 836         return (1);
 837 }
 838
 839 static int
 840 print_nsp(netdissect_options *ndo,
 841           const u_char *nspp, u_int nsplen)
 842 {
 843         const struct nsphdr *nsphp = (const struct nsphdr *)nspp;
 844         int dst, src, flags;
 845
 846         if (nsplen < sizeof(struct nsphdr))
 847                 goto trunc;
 848         ND_TCHECK(*nsphp);
 849         flags = EXTRACT_LE_8BITS(nsphp->nh_flags);
 850         dst = EXTRACT_LE_16BITS(nsphp->nh_dst);
 851         src = EXTRACT_LE_16BITS(nsphp->nh_src);
 852
 853         switch (flags & NSP_TYPEMASK) {
 854         case MFT_DATA:
 855             switch (flags & NSP_SUBMASK) {
 856             case MFS_BOM:
 857             case MFS_MOM:
 858             case MFS_EOM:
 859             case MFS_BOM+MFS_EOM:
 860                 ND_PRINT((ndo, "data %d>%d ", src, dst));
 861                 {
 862                     const struct seghdr *shp = (const struct seghdr *)nspp;
 863                     int ack;
 864                     u_int data_off = sizeof(struct minseghdr);
 865
 866                     if (nsplen < data_off)
 867                         goto trunc;
 868                     ND_TCHECK(shp->sh_seq[0]);
 869                     ack = EXTRACT_LE_16BITS(shp->sh_seq[0]);
 870                     if (ack & SGQ_ACK) {        /* acknum field */
 871                         if ((ack & SGQ_NAK) == SGQ_NAK)
 872                             ND_PRINT((ndo, "nak %d ", ack & SGQ_MASK));
 873                         else
 874                             ND_PRINT((ndo, "ack %d ", ack & SGQ_MASK));
 875                         data_off += sizeof(short);
 876                         if (nsplen < data_off)
 877                             goto trunc;
 878                         ND_TCHECK(shp->sh_seq[1]);
 879                         ack = EXTRACT_LE_16BITS(shp->sh_seq[1]);
 880                         if (ack & SGQ_OACK) {   /* ackoth field */
 881                             if ((ack & SGQ_ONAK) == SGQ_ONAK)
 882                                 ND_PRINT((ndo, "onak %d ", ack & SGQ_MASK));
 883                             else
 884                                 ND_PRINT((ndo, "oack %d ", ack & SGQ_MASK));
 885                             data_off += sizeof(short);
 886                             if (nsplen < data_off)
 887                                 goto trunc;
 888                             ND_TCHECK(shp->sh_seq[2]);
 889                             ack = EXTRACT_LE_16BITS(shp->sh_seq[2]);
 890                         }
 891                     }
 892                     ND_PRINT((ndo, "seg %d ", ack & SGQ_MASK));
 893                 }
 894                 break;
 895             case MFS_ILS+MFS_INT:
 896                 ND_PRINT((ndo, "intr "));
 897                 {
 898                     const struct seghdr *shp = (const struct seghdr *)nspp;
 899                     int ack;
 900                     u_int data_off = sizeof(struct minseghdr);
 901
 902                     if (nsplen < data_off)
 903                         goto trunc;
 904                     ND_TCHECK(shp->sh_seq[0]);
 905                     ack = EXTRACT_LE_16BITS(shp->sh_seq[0]);
 906                     if (ack & SGQ_ACK) {        /* acknum field */
 907                         if ((ack & SGQ_NAK) == SGQ_NAK)
 908                             ND_PRINT((ndo, "nak %d ", ack & SGQ_MASK));
 909                         else
 910                             ND_PRINT((ndo, "ack %d ", ack & SGQ_MASK));
 911                         data_off += sizeof(short);
 912                         if (nsplen < data_off)
 913                             goto trunc;
 914                         ND_TCHECK(shp->sh_seq[1]);
 915                         ack = EXTRACT_LE_16BITS(shp->sh_seq[1]);
 916                         if (ack & SGQ_OACK) {   /* ackdat field */
 917                             if ((ack & SGQ_ONAK) == SGQ_ONAK)
 918                                 ND_PRINT((ndo, "nakdat %d ", ack & SGQ_MASK));
 919                             else
 920                                 ND_PRINT((ndo, "ackdat %d ", ack & SGQ_MASK));
 921                             data_off += sizeof(short);
 922                             if (nsplen < data_off)
 923                                 goto trunc;
 924                             ND_TCHECK(shp->sh_seq[2]);
 925                             ack = EXTRACT_LE_16BITS(shp->sh_seq[2]);
 926                         }
 927                     }
 928                     ND_PRINT((ndo, "seg %d ", ack & SGQ_MASK));
 929                 }
 930                 break;
 931             case MFS_ILS:
 932                 ND_PRINT((ndo, "link-service %d>%d ", src, dst));
 933                 {
 934                     const struct seghdr *shp = (const struct seghdr *)nspp;
 935                     const struct lsmsg *lsmp =
 936                         (const struct lsmsg *)&(nspp[sizeof(struct seghdr)]);
 937                     int ack;
 938                     int lsflags, fcval;
 939
 940                     if (nsplen < sizeof(struct seghdr) + sizeof(struct lsmsg))
 941                         goto trunc;
 942                     ND_TCHECK(shp->sh_seq[0]);
 943                     ack = EXTRACT_LE_16BITS(shp->sh_seq[0]);
 944                     if (ack & SGQ_ACK) {        /* acknum field */
 945                         if ((ack & SGQ_NAK) == SGQ_NAK)
 946                             ND_PRINT((ndo, "nak %d ", ack & SGQ_MASK));
 947                         else
 948                             ND_PRINT((ndo, "ack %d ", ack & SGQ_MASK));
 949                         ND_TCHECK(shp->sh_seq[1]);
 950                         ack = EXTRACT_LE_16BITS(shp->sh_seq[1]);
 951                         if (ack & SGQ_OACK) {   /* ackdat field */
 952                             if ((ack & SGQ_ONAK) == SGQ_ONAK)
 953                                 ND_PRINT((ndo, "nakdat %d ", ack & SGQ_MASK));
 954                             else
 955                                 ND_PRINT((ndo, "ackdat %d ", ack & SGQ_MASK));
 956                             ND_TCHECK(shp->sh_seq[2]);
 957                             ack = EXTRACT_LE_16BITS(shp->sh_seq[2]);
 958                         }
 959                     }
 960                     ND_PRINT((ndo, "seg %d ", ack & SGQ_MASK));
 961                     ND_TCHECK(*lsmp);
 962                     lsflags = EXTRACT_LE_8BITS(lsmp->ls_lsflags);
 963                     fcval = EXTRACT_LE_8BITS(lsmp->ls_fcval);
 964                     switch (lsflags & LSI_MASK) {
 965                     case LSI_DATA:
 966                         ND_PRINT((ndo, "dat seg count %d ", fcval));
 967                         switch (lsflags & LSM_MASK) {
 968                         case LSM_NOCHANGE:
 969                             break;
 970                         case LSM_DONOTSEND:
 971                             ND_PRINT((ndo, "donotsend-data "));
 972                             break;
 973                         case LSM_SEND:
 974                             ND_PRINT((ndo, "send-data "));
 975                             break;
 976                         default:
 977                             ND_PRINT((ndo, "reserved-fcmod? %x", lsflags));
 978                             break;
 979                         }
 980                         break;
 981                     case LSI_INTR:
 982                         ND_PRINT((ndo, "intr req count %d ", fcval));
 983                         break;
 984                     default:
 985                         ND_PRINT((ndo, "reserved-fcval-int? %x", lsflags));
 986                         break;
 987                     }
 988                 }
 989                 break;
 990             default:
 991                 ND_PRINT((ndo, "reserved-subtype? %x %d > %d", flags, src, dst));
 992                 break;
 993             }
 994             break;
 995         case MFT_ACK:
 996             switch (flags & NSP_SUBMASK) {
 997             case MFS_DACK:
 998                 ND_PRINT((ndo, "data-ack %d>%d ", src, dst));
 999                 {
1000                     const struct ackmsg *amp = (const struct ackmsg *)nspp;
1001                     int ack;
1002
1003                     if (nsplen < sizeof(struct ackmsg))
1004                         goto trunc;
1005                     ND_TCHECK(*amp);
1006                     ack = EXTRACT_LE_16BITS(amp->ak_acknum[0]);
1007                     if (ack & SGQ_ACK) {        /* acknum field */
1008                         if ((ack & SGQ_NAK) == SGQ_NAK)
1009                             ND_PRINT((ndo, "nak %d ", ack & SGQ_MASK));
1010                         else
1011                             ND_PRINT((ndo, "ack %d ", ack & SGQ_MASK));
1012                         ack = EXTRACT_LE_16BITS(amp->ak_acknum[1]);
1013                         if (ack & SGQ_OACK) {   /* ackoth field */
1014                             if ((ack & SGQ_ONAK) == SGQ_ONAK)
1015                                 ND_PRINT((ndo, "onak %d ", ack & SGQ_MASK));
1016                             else
1017                                 ND_PRINT((ndo, "oack %d ", ack & SGQ_MASK));
1018                         }
1019                     }
1020                 }
1021                 break;
1022             case MFS_IACK:
1023                 ND_PRINT((ndo, "ils-ack %d>%d ", src, dst));
1024                 {
1025                     const struct ackmsg *amp = (const struct ackmsg *)nspp;
1026                     int ack;
1027
1028                     if (nsplen < sizeof(struct ackmsg))
1029                         goto trunc;
1030                     ND_TCHECK(*amp);
1031                     ack = EXTRACT_LE_16BITS(amp->ak_acknum[0]);
1032                     if (ack & SGQ_ACK) {        /* acknum field */
1033                         if ((ack & SGQ_NAK) == SGQ_NAK)
1034                             ND_PRINT((ndo, "nak %d ", ack & SGQ_MASK));
1035                         else
1036                             ND_PRINT((ndo, "ack %d ", ack & SGQ_MASK));
1037                         ND_TCHECK(amp->ak_acknum[1]);
1038                         ack = EXTRACT_LE_16BITS(amp->ak_acknum[1]);
1039                         if (ack & SGQ_OACK) {   /* ackdat field */
1040                             if ((ack & SGQ_ONAK) == SGQ_ONAK)
1041                                 ND_PRINT((ndo, "nakdat %d ", ack & SGQ_MASK));
1042                             else
1043                                 ND_PRINT((ndo, "ackdat %d ", ack & SGQ_MASK));
1044                         }
1045                     }
1046                 }
1047                 break;
1048             case MFS_CACK:
1049                 ND_PRINT((ndo, "conn-ack %d", dst));
1050                 break;
1051             default:
1052                 ND_PRINT((ndo, "reserved-acktype? %x %d > %d", flags, src, dst));
1053                 break;
1054             }
1055             break;
1056         case MFT_CTL:
1057             switch (flags & NSP_SUBMASK) {
1058             case MFS_CI:
1059             case MFS_RCI:
1060                 if ((flags & NSP_SUBMASK) == MFS_CI)
1061                     ND_PRINT((ndo, "conn-initiate "));
1062                 else
1063                     ND_PRINT((ndo, "retrans-conn-initiate "));
1064                 ND_PRINT((ndo, "%d>%d ", src, dst));
1065                 {
1066                     const struct cimsg *cimp = (const struct cimsg *)nspp;
1067                     int services, info, segsize;
1068
1069                     if (nsplen < sizeof(struct cimsg))
1070                         goto trunc;
1071                     ND_TCHECK(*cimp);
1072                     services = EXTRACT_LE_8BITS(cimp->ci_services);
1073                     info = EXTRACT_LE_8BITS(cimp->ci_info);
1074                     segsize = EXTRACT_LE_16BITS(cimp->ci_segsize);
1075
1076                     switch (services & COS_MASK) {
1077                     case COS_NONE:
1078                         break;
1079                     case COS_SEGMENT:
1080                         ND_PRINT((ndo, "seg "));
1081                         break;
1082                     case COS_MESSAGE:
1083                         ND_PRINT((ndo, "msg "));
1084                         break;
1085                     }
1086                     switch (info & COI_MASK) {
1087                     case COI_32:
1088                         ND_PRINT((ndo, "ver 3.2 "));
1089                         break;
1090                     case COI_31:
1091                         ND_PRINT((ndo, "ver 3.1 "));
1092                         break;
1093                     case COI_40:
1094                         ND_PRINT((ndo, "ver 4.0 "));
1095                         break;
1096                     case COI_41:
1097                         ND_PRINT((ndo, "ver 4.1 "));
1098                         break;
1099                     }
1100                     ND_PRINT((ndo, "segsize %d ", segsize));
1101                 }
1102                 break;
1103             case MFS_CC:
1104                 ND_PRINT((ndo, "conn-confirm %d>%d ", src, dst));
1105                 {
1106                     const struct ccmsg *ccmp = (const struct ccmsg *)nspp;
1107                     int services, info;
1108                     u_int segsize, optlen;
1109
1110                     if (nsplen < sizeof(struct ccmsg))
1111                         goto trunc;
1112                     ND_TCHECK(*ccmp);
1113                     services = EXTRACT_LE_8BITS(ccmp->cc_services);
1114                     info = EXTRACT_LE_8BITS(ccmp->cc_info);
1115                     segsize = EXTRACT_LE_16BITS(ccmp->cc_segsize);
1116                     optlen = EXTRACT_LE_8BITS(ccmp->cc_optlen);
1117
1118                     switch (services & COS_MASK) {
1119                     case COS_NONE:
1120                         break;
1121                     case COS_SEGMENT:
1122                         ND_PRINT((ndo, "seg "));
1123                         break;
1124                     case COS_MESSAGE:
1125                         ND_PRINT((ndo, "msg "));
1126                         break;
1127                     }
1128                     switch (info & COI_MASK) {
1129                     case COI_32:
1130                         ND_PRINT((ndo, "ver 3.2 "));
1131                         break;
1132                     case COI_31:
1133                         ND_PRINT((ndo, "ver 3.1 "));
1134                         break;
1135                     case COI_40:
1136                         ND_PRINT((ndo, "ver 4.0 "));
1137                         break;
1138                     case COI_41:
1139                         ND_PRINT((ndo, "ver 4.1 "));
1140                         break;
1141                     }
1142                     ND_PRINT((ndo, "segsize %d ", segsize));
1143                     if (optlen) {
1144                         ND_PRINT((ndo, "optlen %d ", optlen));
1145                     }
1146                 }
1147                 break;
1148             case MFS_DI:
1149                 ND_PRINT((ndo, "disconn-initiate %d>%d ", src, dst));
1150                 {
1151                     const struct dimsg *dimp = (const struct dimsg *)nspp;
1152                     int reason;
1153                     u_int optlen;
1154
1155                     if (nsplen < sizeof(struct dimsg))
1156                         goto trunc;
1157                     ND_TCHECK(*dimp);
1158                     reason = EXTRACT_LE_16BITS(dimp->di_reason);
1159                     optlen = EXTRACT_LE_8BITS(dimp->di_optlen);
1160
1161                     print_reason(ndo, reason);
1162                     if (optlen) {
1163                         ND_PRINT((ndo, "optlen %d ", optlen));
1164                     }
1165                 }
1166                 break;
1167             case MFS_DC:
1168                 ND_PRINT((ndo, "disconn-confirm %d>%d ", src, dst));
1169                 {
1170                     const struct dcmsg *dcmp = (const struct dcmsg *)nspp;
1171                     int reason;
1172
1173                     ND_TCHECK(*dcmp);
1174                     reason = EXTRACT_LE_16BITS(dcmp->dc_reason);
1175
1176                     print_reason(ndo, reason);
1177                 }
1178                 break;
1179             default:
1180                 ND_PRINT((ndo, "reserved-ctltype? %x %d > %d", flags, src, dst));
1181                 break;
1182             }
1183             break;
1184         default:
1185             ND_PRINT((ndo, "reserved-type? %x %d > %d", flags, src, dst));
1186             break;
1187         }
1188         return (1);
1189
1190 trunc:
1191         return (0);
1192 }
1193
1194 static const struct tok reason2str[] = {
1195         { UC_OBJREJECT,         "object rejected connect" },
1196         { UC_RESOURCES,         "insufficient resources" },
1197         { UC_NOSUCHNODE,        "unrecognized node name" },
1198         { DI_SHUT,              "node is shutting down" },
1199         { UC_NOSUCHOBJ,         "unrecognized object" },
1200         { UC_INVOBJFORMAT,      "invalid object name format" },
1201         { UC_OBJTOOBUSY,        "object too busy" },
1202         { DI_PROTOCOL,          "protocol error discovered" },
1203         { DI_TPA,               "third party abort" },
1204         { UC_USERABORT,         "user abort" },
1205         { UC_INVNODEFORMAT,     "invalid node name format" },
1206         { UC_LOCALSHUT,         "local node shutting down" },
1207         { DI_LOCALRESRC,        "insufficient local resources" },
1208         { DI_REMUSERRESRC,      "insufficient remote user resources" },
1209         { UC_ACCESSREJECT,      "invalid access control information" },
1210         { DI_BADACCNT,          "bad ACCOUNT information" },
1211         { UC_NORESPONSE,        "no response from object" },
1212         { UC_UNREACHABLE,       "node unreachable" },
1213         { DC_NOLINK,            "no link terminate" },
1214         { DC_COMPLETE,          "disconnect complete" },
1215         { DI_BADIMAGE,          "bad image data in connect" },
1216         { DI_SERVMISMATCH,      "cryptographic service mismatch" },
1217         { 0,                    NULL }
1218 };
1219
1220 static void
1221 print_reason(netdissect_options *ndo,
1222              register int reason)
1223 {
1224         ND_PRINT((ndo, "%s ", tok2str(reason2str, "reason-%d", reason)));
1225 }
1226
1227 const char *
1228 dnnum_string(netdissect_options *ndo, u_short dnaddr)
1229 {
1230         char *str;
1231         size_t siz;
1232         int area = (u_short)(dnaddr & AREAMASK) >> AREASHIFT;
1233         int node = dnaddr & NODEMASK;
1234
1235         str = (char *)malloc(siz = sizeof("00.0000"));
1236         if (str == NULL)
1237                 (*ndo->ndo_error)(ndo, "dnnum_string: malloc");
1238         snprintf(str, siz, "%d.%d", area, node);
1239         return(str);
1240 }