/*      $NetBSD: print.c,v 1.10 2021/08/21 23:00:32 andvar Exp $        */

/*
 * Copyright (c) 1993-96 Mats O Jansson.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include "port.h"
#ifndef lint
__RCSID("$NetBSD: print.c,v 1.10 2021/08/21 23:00:32 andvar Exp $");
#endif

#include <sys/types.h>
#include <stdio.h>

#include "os.h"
#include "cmp.h"
#include "get.h"
#include "mopdef.h"
#include "nma.h"
#include "nmadef.h"
#include "print.h"

#define SHORT_PRINT

void
mopPrintHWA(FILE *fd, const u_char *ap)
{
        (void)fprintf(fd, "%x:%x:%x:%x:%x:%x",
                      ap[0],ap[1],ap[2],ap[3],ap[4],ap[5]);
        if (ap[0] < 10) (void)fprintf(fd, " ");
        if (ap[1] < 10) (void)fprintf(fd, " ");
        if (ap[2] < 10) (void)fprintf(fd, " ");
        if (ap[3] < 10) (void)fprintf(fd, " ");
        if (ap[4] < 10) (void)fprintf(fd, " ");
        if (ap[5] < 10) (void)fprintf(fd, " ");
}

void
mopPrintBPTY(FILE *fd, u_char bpty)
{
        switch(bpty) {
        case MOP_K_BPTY_SYS:
                (void)fprintf(fd, "System Processor");
                break;
        case MOP_K_BPTY_COM:
                (void)fprintf(fd, "Communication Processor");
                break;
        default:
                (void)fprintf(fd, "Unknown");
                break;
        };
};

void
mopPrintPGTY(FILE *fd, u_char pgty)
{
        switch(pgty) {
        case MOP_K_PGTY_SECLDR:
                (void)fprintf(fd, "Secondary Loader");
                break;
        case MOP_K_PGTY_TERLDR:
                (void)fprintf(fd, "Tertiary Loader");
                break;
        case MOP_K_PGTY_OPRSYS:
                (void)fprintf(fd, "Operating System");
                break;
        case MOP_K_PGTY_MGNTFL:
                (void)fprintf(fd, "Management File");
                break;
        default:
                (void)fprintf(fd, "Unknown");
                break;
        };
}

void
mopPrintOneline(FILE *fd, const u_char *pkt, int trans)
{
        int      idx = 0;
        const u_char    *dst, *src;
        u_char   code;
        u_short  proto;
        int      len;

        trans = mopGetTrans(pkt, trans);
        mopGetHeader(pkt, &idx, &dst, &src, &proto, &len, trans);
        code = mopGetChar(pkt, &idx);

        switch (proto) {
        case MOP_K_PROTO_DL:
                (void)fprintf(fd, "MOP DL ");
                break;
        case MOP_K_PROTO_RC:
                (void)fprintf(fd, "MOP RC ");
                break;
        case MOP_K_PROTO_LP:
                (void)fprintf(fd, "MOP LP ");
                break;
        default:
                switch((proto % 256)*256 + (proto / 256)) {
                case MOP_K_PROTO_DL:
                        (void)fprintf(fd, "MOP DL ");
                        proto = MOP_K_PROTO_DL;
                        break;
                case MOP_K_PROTO_RC:
                        (void)fprintf(fd, "MOP RC ");
                        proto = MOP_K_PROTO_RC;
                        break;
                case MOP_K_PROTO_LP:
                        (void)fprintf(fd, "MOP LP ");
                        proto = MOP_K_PROTO_LP;
                        break;
                default:
                        (void)fprintf(fd, "MOP ?? ");
                        break;
                }
        }

        if (trans == TRANS_8023) {
                (void)fprintf(fd, "802.3 ");
        }

        mopPrintHWA(fd, src); (void)fprintf(fd," > ");
        mopPrintHWA(fd, dst);
        if (len < 1600) {
                (void)fprintf(fd, " len %4d code %02x ",len,code);
        } else {
                (void)fprintf(fd, " len %4d code %02x ",
                              (len % 256)*256 + (len /256), code);
        }

        switch (proto) {
        case MOP_K_PROTO_DL:
                switch (code) {
                case MOP_K_CODE_MLT:
                        (void)fprintf(fd, "MLT ");
                        break;
                case MOP_K_CODE_DCM:
                        (void)fprintf(fd, "DCM ");
                        break;
                case MOP_K_CODE_MLD:
                        (void)fprintf(fd, "MLD ");
                        break;
                case MOP_K_CODE_ASV:
                        (void)fprintf(fd, "ASV ");
                        break;
                case MOP_K_CODE_RMD:
                        (void)fprintf(fd, "RMD ");
                        break;
                case MOP_K_CODE_RPR:
                        (void)fprintf(fd, "RPR ");
                        break;
                case MOP_K_CODE_RML:
                        (void)fprintf(fd, "RML ");
                        break;
                case MOP_K_CODE_RDS:
                        (void)fprintf(fd, "RDS ");
                        break;
                case MOP_K_CODE_MDD:
                        (void)fprintf(fd, "MDD ");
                        break;
                case MOP_K_CODE_PLT:
                        (void)fprintf(fd, "PLT ");
                        break;
                default:
                        (void)fprintf(fd, "??? ");
                        break;
                }
                break;
        case MOP_K_PROTO_RC:
                switch (code) {
                case MOP_K_CODE_RID:
                        (void)fprintf(fd, "RID ");
                        break;
                case MOP_K_CODE_BOT:
                        (void)fprintf(fd, "BOT ");
                        break;
                case MOP_K_CODE_SID:
                        (void)fprintf(fd, "SID ");
                        break;
                case MOP_K_CODE_RQC:
                        (void)fprintf(fd, "RQC ");
                        break;
                case MOP_K_CODE_CNT:
                        (void)fprintf(fd, "CNT ");
                        break;
                case MOP_K_CODE_RVC:
                        (void)fprintf(fd, "RVC ");
                        break;
                case MOP_K_CODE_RLC:
                        (void)fprintf(fd, "RLC ");
                        break;
                case MOP_K_CODE_CCP:
                        (void)fprintf(fd, "CCP ");
                        break;
                case MOP_K_CODE_CRA:
                        (void)fprintf(fd, "CRA ");
                        break;
                default:
                        (void)fprintf(fd, "??? ");
                        break;
                }
                break;
        case MOP_K_PROTO_LP:
                switch (code) {
                case MOP_K_CODE_ALD:
                        (void)fprintf(fd, "ALD ");
                        break;
                case MOP_K_CODE_PLD:
                        (void)fprintf(fd, "PLD ");
                        break;
                default:
                        (void)fprintf(fd, "??? ");
                        break;
                }
                break;
        default:
                (void)fprintf(fd, "??? ");
                break;
        }
        (void)fprintf(fd, "\n");
}

void
mopPrintHeader(FILE *fd, const u_char *pkt, int trans)
{
        const u_char    *dst, *src;
        u_short  proto;
        int      len, idx = 0;

        trans = mopGetTrans(pkt, trans);
        mopGetHeader(pkt, &idx, &dst, &src, &proto, &len, trans);
        
        (void)fprintf(fd,"\nDst          : ");
        mopPrintHWA(fd, dst);
        if (mopCmpEAddr(dl_mcst,dst) == 0) {
                (void)fprintf(fd," MOP Dump/Load Multicast");
        };
        if (mopCmpEAddr(rc_mcst,dst) == 0) {
                (void)fprintf(fd," MOP Remote Console Multicast");
        };
        (void)fprintf(fd,"\n");

        (void)fprintf(fd,"Src          : ");
        mopPrintHWA(fd, src);
        (void)fprintf(fd,"\n");
        (void)fprintf(fd,"Proto        : %04x ",proto);
        switch (proto) {
        case MOP_K_PROTO_DL:
                switch (trans) {
                case TRANS_8023:
                        (void)fprintf(fd, "MOP Dump/Load (802.3)\n");
                        break;
                default:
                        (void)fprintf(fd, "MOP Dump/Load\n");
                }
                break;
        case MOP_K_PROTO_RC:
                switch (trans) {
                case TRANS_8023:
                        (void)fprintf(fd, "MOP Remote Console (802.3)\n");
                        break;
                default:
                        (void)fprintf(fd, "MOP Remote Console\n");
                }
                break;
        case MOP_K_PROTO_LP:
                switch (trans) {
                case TRANS_8023:
                        (void)fprintf(fd, "MOP Loopback (802.3)\n");
                        break;
                default:
                        (void)fprintf(fd, "MOP Loopback\n");
                }
                break;
        default:
                (void)fprintf(fd, "\n");
                break;
        }

        
        (void)fprintf(fd,"Length       : %04x (%d)\n",len,len);
}

void
mopPrintMopHeader(FILE *fd, const u_char *pkt, int trans)
{
        const u_char    *dst, *src;
        u_short  proto;
        int      len, idx = 0;
        u_char   code;

        trans = mopGetTrans(pkt, trans);
        mopGetHeader(pkt, &idx, &dst, &src, &proto, &len, trans);
        
        code = mopGetChar(pkt, &idx);

        (void)fprintf(fd, "Code         :   %02x ",code);

        switch (proto) {
        case MOP_K_PROTO_DL:
                switch (code) {
                case MOP_K_CODE_MLT:
                        (void)fprintf(fd,
                                      "Memory Load with transfer address\n");
                        break;
                case MOP_K_CODE_DCM:
                        (void)fprintf(fd, "Dump Complete\n");
                        break;
                case MOP_K_CODE_MLD:
                        (void)fprintf(fd, "Memory Load\n");
                        break;
                case MOP_K_CODE_ASV:
                        (void)fprintf(fd, "Assistance volunteer\n");
                        break;
                case MOP_K_CODE_RMD:
                        (void)fprintf(fd, "Request memory dump\n");
                        break;
                case MOP_K_CODE_RPR:
                        (void)fprintf(fd, "Request program\n");
                        break;
                case MOP_K_CODE_RML:
                        (void)fprintf(fd, "Request memory load\n");
                        break;
                case MOP_K_CODE_RDS:
                        (void)fprintf(fd, "Request Dump Service\n");
                        break;
                case MOP_K_CODE_MDD:
                        (void)fprintf(fd, "Memory dump data\n");
                        break;
                case MOP_K_CODE_PLT:
                        (void)fprintf(fd,
                                      "Parameter load with transfer address\n");
                        break;
                default:
                        (void)fprintf(fd, "(unknown)\n");
                        break;
                }
                break;
        case MOP_K_PROTO_RC:
                switch (code) {
                case MOP_K_CODE_RID:
                        (void)fprintf(fd, "Request ID\n");
                        break;
                case MOP_K_CODE_BOT:
                        (void)fprintf(fd, "Boot\n");
                        break;
                case MOP_K_CODE_SID:
                        (void)fprintf(fd, "System ID\n");
                        break;
                case MOP_K_CODE_RQC:
                        (void)fprintf(fd, "Request Counters\n");
                        break;
                case MOP_K_CODE_CNT:
                        (void)fprintf(fd, "Counters\n");
                        break;
                case MOP_K_CODE_RVC:
                        (void)fprintf(fd, "Reserve Console\n");
                        break;
                case MOP_K_CODE_RLC:
                        (void)fprintf(fd, "Release Console\n");
                        break;
                case MOP_K_CODE_CCP:
                        (void)fprintf(fd, "Console Command and Poll\n");
                        break;
                case MOP_K_CODE_CRA:
                        (void)fprintf(fd,
                                      "Console Response and Acknnowledge\n");
                        break;
                default:
                        (void)fprintf(fd, "(unknown)\n");
                        break;
                }
                break;
        case MOP_K_PROTO_LP:
                switch (code) {
                case MOP_K_CODE_ALD:
                        (void)fprintf(fd, "Active loop data\n");
                        break;
                case MOP_K_CODE_PLD:
                        (void)fprintf(fd, "Passive looped data\n");
                        break;
                default:
                        (void)fprintf(fd, "(unknown)\n");
                        break;
                }
                break;
        default:
                (void)fprintf(fd, "(unknown)\n");
                break;
        }
}

void
mopPrintDevice(FILE *fd, u_char device)
{
        const char      *sname, *name;

        sname = nmaGetShort((int) device);
        name  = nmaGetDevice((int) device);
        
        (void)fprintf(fd, "%s '%s'",sname,name);
}

void
mopPrintTime(FILE *fd, const u_char *ap)
{
        (void)fprintf(fd,
                      "%04d-%02d-%02d %02d:%02d:%02d.%02d %d:%02d",
                      ap[0]*100 + ap[1],
                      ap[2],ap[3],ap[4],ap[5],ap[6],ap[7],ap[8],ap[9]);
}

void
mopPrintInfo(FILE *fd, const u_char *pkt, int *idx,
             u_short moplen, u_char mopcode, int trans)
{
        u_short itype,tmps;
        u_char  ilen ,tmpc,device;
        u_char  uc1,uc2,uc3;
        const u_char *ucp;
        int     i;
        
        device = 0;

        switch(trans) {
        case TRANS_ETHER:
                moplen = moplen + 16;
                break;
        case TRANS_8023:
                moplen = moplen + 14;
                break;
        }

        itype = mopGetShort(pkt,idx); 

        while (*idx < (int)(moplen + 2)) {
                ilen  = mopGetChar(pkt,idx);
                switch (itype) {
                case 0:
                        tmpc  = mopGetChar(pkt,idx);
                        *idx = *idx + tmpc;
                        break;
                case MOP_K_INFO_VER:
                        uc1 = mopGetChar(pkt,idx);
                        uc2 = mopGetChar(pkt,idx);
                        uc3 = mopGetChar(pkt,idx);
                        (void)fprintf(fd,"Maint Version: %d.%d.%d\n",
                                      uc1,uc2,uc3);
                        break;
                case MOP_K_INFO_MFCT:
                        tmps = mopGetShort(pkt,idx);
                        (void)fprintf(fd,"Maint Function: %04x ( ",tmps);
                        if (tmps &   1) (void)fprintf(fd, "Loop ");
                        if (tmps &   2) (void)fprintf(fd, "Dump ");
                        if (tmps &   4) (void)fprintf(fd, "Pldr ");
                        if (tmps &   8) (void)fprintf(fd, "MLdr ");
                        if (tmps &  16) (void)fprintf(fd, "Boot ");
                        if (tmps &  32) (void)fprintf(fd, "CC ");
                        if (tmps &  64) (void)fprintf(fd, "DLC ");
                        if (tmps & 128) (void)fprintf(fd, "CCR ");
                        (void)fprintf(fd, ")\n");
                        break;
                case MOP_K_INFO_CNU:
                        ucp = pkt + *idx; *idx = *idx + 6;
                        (void)fprintf(fd,"Console User : ");
                        mopPrintHWA(fd, ucp);
                        (void)fprintf(fd, "\n");
                        break;
                case MOP_K_INFO_RTM:
                        tmps = mopGetShort(pkt,idx);
                        (void)fprintf(fd,"Reserv Timer : %04x (%d)\n",
                                      tmps,tmps); 
                        break;
                case MOP_K_INFO_CSZ:
                        tmps = mopGetShort(pkt,idx);
                        (void)fprintf(fd,"Cons Cmd Size: %04x (%d)\n",
                                      tmps,tmps);
                        break;
                case MOP_K_INFO_RSZ:
                        tmps = mopGetShort(pkt,idx);
                        (void)fprintf(fd,"Cons Res Size: %04x (%d)\n",
                                      tmps,tmps);
                        break;
                case MOP_K_INFO_HWA:
                        ucp = pkt + *idx; *idx = *idx + 6;
                        (void)fprintf(fd,"Hardware Addr: ");
                        mopPrintHWA(fd, ucp);
                        (void)fprintf(fd, "\n");
                        break;
                case MOP_K_INFO_TIME:
                        ucp = pkt + *idx; *idx = *idx + 10;
                        (void)fprintf(fd,"System Time: ");
                        mopPrintTime(fd, ucp);
                        (void)fprintf(fd,"\n");
                        break;
                case MOP_K_INFO_SOFD:
                        device = mopGetChar(pkt,idx);
                        (void)fprintf(fd,"Comm Device  :   %02x ",device);
                        mopPrintDevice(fd, device);
                        (void)fprintf(fd, "\n");
                        break;
                case MOP_K_INFO_SFID:
                        tmpc = mopGetChar(pkt,idx);
                        (void)fprintf(fd,"Software ID  :   %02x ",tmpc);
                        if (tmpc == 0) {
                                (void)fprintf(fd,"No software id");
                        }
                        if (tmpc == 254) {
                                (void)fprintf(fd,"Maintenance system");
                                tmpc = 0;
                        }
                        if (tmpc == 255) {
                                (void)fprintf(fd,"Standard operating system");
                                tmpc = 0;
                        }
                        if (tmpc > 0) {
                                (void)fprintf(fd,"'");
                                for (i = 0; i < ((int) tmpc); i++) {
                                        (void)fprintf(fd,"%c",
                                                     mopGetChar(pkt,idx));
                                }
                                (void)fprintf(fd,"'");
                        }
                        (void)fprintf(fd,"\n");
                        break;
                case MOP_K_INFO_PRTY:
                        tmpc = mopGetChar(pkt,idx);
                        (void)fprintf(fd,"System Proc  :   %02x ",tmpc);
                        switch (tmpc) { 
                        case MOP_K_PRTY_11:
                                (void)fprintf(fd, "PDP-11\n");
                                break;
                        case MOP_K_PRTY_CMSV:
                                (void)fprintf(fd,
                                              "Communication Server\n");
                                break;
                        case MOP_K_PRTY_PRO:
                                (void)fprintf(fd, "Professional\n");
                                break;
                        case MOP_K_PRTY_SCO:
                                (void)fprintf(fd, "Scorpio\n");
                                break;
                        case MOP_K_PRTY_AMB:
                                (void)fprintf(fd, "Amber\n");
                                break;
                        case MOP_K_PRTY_BRI:
                                (void)fprintf(fd, "XLII Bridge\n");
                                break;
                        default:
                                (void)fprintf(fd, "Unknown\n");
                                break;
                        };
                        break;
                case MOP_K_INFO_DLTY:
                        tmpc = mopGetChar(pkt,idx);
                        (void)fprintf(fd,"Data Link Typ:   %02x ",tmpc);
                        switch (tmpc) { 
                        case MOP_K_DLTY_NI:
                                (void)fprintf(fd, "Ethernet\n");
                                break;
                        case MOP_K_DLTY_DDCMP:
                                (void)fprintf(fd, "DDCMP\n");
                                break;
                        case MOP_K_DLTY_LAPB:
                                (void)fprintf(fd, "LAPB (X.25)\n");
                                break;
                        default:
                                (void)fprintf(fd, "Unknown\n");
                                break;
                        };
                        break;
                case MOP_K_INFO_DLBSZ:
                        tmps = mopGetShort(pkt,idx);
                        (void)fprintf(fd,"DL Buff Size : %04x (%d)\n",
                                      tmps,tmps);
                        break;
                default:
                        if (((device = NMA_C_SOFD_LCS) ||   /* DECserver 100 */
                             (device = NMA_C_SOFD_DS2) ||   /* DECserver 200 */
                             (device = NMA_C_SOFD_DP2) ||   /* DECserver 250 */
                             (device = NMA_C_SOFD_DS3)) &&  /* DECserver 300 */
                            ((itype > 101) && (itype < 107)))
                        {
                                switch (itype) {
                                case 102:
                                        ucp = pkt + *idx;
                                        *idx = *idx + ilen;
                                        (void)fprintf(fd,
                                                     "ROM Sftwr Ver:   %02x '",
                                                      ilen);
                                        for (i = 0; i < ilen; i++) {
                                                (void)fprintf(fd,"%c",ucp[i]);
                                        }
                                        (void)fprintf(fd, "'\n");
                                        break;
                                case 103:
                                        ucp = pkt + *idx;
                                        *idx = *idx + ilen;
                                        (void)fprintf(fd,
                                                     "Software Ver :   %02x '",
                                                      ilen);
                                        for (i = 0; i < ilen; i++) {
                                                (void)fprintf(fd, "%c",ucp[i]);
                                        }
                                        (void)fprintf(fd, "'\n");
                                        break;
                                case 104:
                                        tmps = mopGetShort(pkt,idx);
                                        (void)fprintf(fd,
                                                "DECnet Addr  : %d.%d (%d)\n",
                                                      tmps / 1024,
                                                      tmps % 1024,
                                                      tmps);
                                        break;
                                case 105:
                                        ucp = pkt + *idx;
                                        *idx = *idx + ilen;
                                        (void)fprintf(fd,
                                                     "Node Name    :   %02x '",
                                                      ilen);
                                        for (i = 0; i < ilen; i++) {
                                                (void)fprintf(fd, "%c",ucp[i]);
                                        }
                                        (void)fprintf(fd, "'\n");
                                        break;
                                case 106:
                                        ucp = pkt + *idx;
                                        *idx = *idx + ilen;
                                        (void)fprintf(fd,
                                                     "Node Ident   :   %02x '",
                                                      ilen);
                                        for (i = 0; i < ilen; i++) {
                                                (void)fprintf(fd, "%c",ucp[i]);
                                        }
                                        (void)fprintf(fd, "'\n");
                                        break;
                                };
                        } else {
                                ucp = pkt + *idx; *idx = *idx + ilen;
                                (void)fprintf(fd, "Info Type    : %04x (%d)\n",
                                              itype,
                                              itype);
                                (void)fprintf(fd, "Info Data    :   %02x ",
                                              ilen);
                                for (i = 0; i < ilen; i++) {
                                        if ((i % 16) == 0) {
                                                if ((i / 16) == 0) { 
                                                } else { 
                                                        (void)fprintf(fd,
                                                     "\n                    ");
                                                };
                                        };
                                        (void)fprintf(fd, "%02x ",ucp[i]); 
                                }
                                (void)fprintf(fd, "\n");
                        };
                }
                itype = mopGetShort(pkt,idx); 
        }
}