/*      $NetBSD: rc.c,v 1.8 2016/06/08 01:11:49 christos Exp $  */

/*
 * Copyright (c) 1993-95 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: rc.c,v 1.8 2016/06/08 01:11:49 christos Exp $");
#endif

#include "os.h"
#include "get.h"
#include "mopdef.h"
#include "print.h"
#include "rc.h"

void
mopDumpRC(FILE *fd, const u_char *pkt, int trans)
{
        int     i,idx = 0;
        int32_t tmpl;
        u_char  tmpc,code,control;
        u_short len,tmps,moplen;

        len = mopGetLength(pkt, trans);

        switch (trans) {
        case TRANS_8023:
                idx = 22;
                moplen = len - 8;
                break;
        default:
                idx = 16;
                moplen = len;
        }
        code = mopGetChar(pkt,&idx);
        
        switch (code) {
        case MOP_K_CODE_RID:
                
                tmpc = mopGetChar(pkt,&idx);
                (void)fprintf(fd,"Reserved     :   %02x\n",tmpc);
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Receipt Nbr  : %04x\n",tmps);
                
                break;
        case MOP_K_CODE_BOT:
                
                if (moplen == 5) {
                        tmps = mopGetShort(pkt,&idx);
                        (void)fprintf(fd,"Verification : %04x\n",tmps);
                } else {
                        
                        tmpl = mopGetLong(pkt,&idx);
                        (void)fprintf(fd,"Verification : %08x\n",tmpl);

                        tmpc = mopGetChar(pkt,&idx);    /* Processor */
                        (void)fprintf(fd,"Processor    :   %02x ",tmpc);
                        mopPrintBPTY(fd, tmpc);  (void)fprintf(fd, "\n");
                        
                        control = mopGetChar(pkt,&idx); /* Control */
                        (void)fprintf(fd,"Control    :   %02x ",control);
                        if ((control & (1>>MOP_K_BOT_CNTL_SERVER))) {
                                (void)fprintf(fd,
                                              "Bootserver Requesting system ");
                        } else {
                                (void)fprintf(fd,
                                              "Bootserver System default ");
                        }
                        if ((control & (1>>MOP_K_BOT_CNTL_DEVICE))) {
                                (void)fprintf(fd,
                                              "Bootdevice Specified device");
                        } else {
                                (void)fprintf(fd,
                                              "Bootdevice System default");
                        }
                        (void)fprintf(fd,"\n");
                        
                        if ((control & (1>>MOP_K_BOT_CNTL_DEVICE))) {
                                tmpc = mopGetChar(pkt,&idx);/* Device ID */
                                (void)fprintf(fd,
                                              "Device ID    :   %02x '",tmpc);
                                for (i = 0; i < ((int) tmpc); i++) {
                                  (void)fprintf(fd,"%c",
                                                mopGetChar(pkt,&idx));
                                }
                                (void)fprintf(fd,"'\n");
                        }
                        
                        tmpc = mopGetChar(pkt,&idx);      /* Software ID */
                        (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_CODE_SID:
                
                tmpc = mopGetChar(pkt,&idx);            /* Reserved */
                (void)fprintf(fd, "Reserved     :   %02x\n",tmpc);
                
                tmps = mopGetShort(pkt,&idx);           /* Receipt # */
                (void)fprintf(fd, "Receipt Nbr  : %04x\n",tmpc);
                
                mopPrintInfo(fd, pkt, &idx, moplen, code, trans);
                
                break;
        case MOP_K_CODE_RQC:
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Receipt Nbr  : %04x\n",tmps);
                
                break;
        case MOP_K_CODE_CNT:
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Receipt Nbr  : %04x %d\n",tmps,tmps);
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Last Zeroed  : %04x %d\n",tmps,tmps);
                
                tmpl = mopGetLong(pkt,&idx);
                (void)fprintf(fd,"Bytes rec    : %08x %d\n",tmpl,tmpl);
                
                tmpl = mopGetLong(pkt,&idx);
                (void)fprintf(fd,"Bytes snd    : %08x %d\n",tmpl,tmpl);
                
                tmpl = mopGetLong(pkt,&idx);
                (void)fprintf(fd,"Frames rec   : %08x %d\n",tmpl,tmpl);
                
                tmpl = mopGetLong(pkt,&idx);
                (void)fprintf(fd,"Frames snd   : %08x %d\n",tmpl,tmpl);
                
                tmpl = mopGetLong(pkt,&idx);
                (void)fprintf(fd,"Mcst Bytes re: %08x %d\n",tmpl,tmpl);
                
                tmpl = mopGetLong(pkt,&idx);
                (void)fprintf(fd,"Mcst Frame re: %08x %d\n",tmpl,tmpl);
                
                tmpl = mopGetLong(pkt,&idx);
                (void)fprintf(fd,"Frame snd,def: %08x %d\n",tmpl,tmpl);
                
                tmpl = mopGetLong(pkt,&idx);
                (void)fprintf(fd,"Frame snd,col: %08x %d\n",tmpl,tmpl);
                
                tmpl = mopGetLong(pkt,&idx);
                (void)fprintf(fd,"Frame snd,mcl: %08x %d\n",tmpl,tmpl);
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Snd failure  : %04x %d\n",tmps,tmps);
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Snd fail reas: %04x ",tmps);
                if ((tmps &  1)) (void)fprintf(fd,"Excess col  ");
                if ((tmps &  2)) (void)fprintf(fd,"Carrier chk fail  ");
                if ((tmps &  4)) (void)fprintf(fd,"Short circ  ");
                if ((tmps &  8)) (void)fprintf(fd,"Open circ  ");
                if ((tmps & 16)) (void)fprintf(fd,"Frm to long  ");
                if ((tmps & 32)) (void)fprintf(fd,"Rem fail to defer  ");
                (void)fprintf(fd,"\n");
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Rec failure  : %04x %d\n",tmps,tmps);
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Rec fail reas: %04x ",tmps);
                if ((tmps &  1)) (void)fprintf(fd,"Block chk err  ");
                if ((tmps &  2)) (void)fprintf(fd,"Framing err  ");
                if ((tmps &  4)) (void)fprintf(fd,"Frm to long  ");
                (void)fprintf(fd,"\n");
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Unrec frm dst: %04x %d\n",tmps,tmps);
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Data overrun : %04x %d\n",tmps,tmps);
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Sys Buf Unava: %04x %d\n",tmps,tmps);
                
                tmps = mopGetShort(pkt,&idx);
                (void)fprintf(fd,"Usr Buf Unava: %04x %d\n",tmps,tmps);
                
                break;
        case MOP_K_CODE_RVC:
                
                tmpl = mopGetLong(pkt,&idx);
                (void)fprintf(fd,"Verification : %08x\n",tmpl);
                
                break;
        case MOP_K_CODE_RLC:

                /* Empty message */
          
                break;
        case MOP_K_CODE_CCP:
                
                tmpc = mopGetChar(pkt,&idx);
                (void)fprintf(fd,
                              "Control Flags: %02x Message %d ",tmpc,tmpc & 1);
                if ((tmpc & 2))
                        (void)fprintf(fd,"Break");
                (void)fprintf(fd,"\n");
                
                if (moplen > 2) {
#ifndef SHORT_PRINT
                        for (i = 0; i < (moplen - 2); i++) {
                                if ((i % 16) == 0) {
                                        if ((i / 16) == 0) {
                                                (void)fprintf(fd,
                                                        "Image Data   : %04x ",
                                                              moplen-2);
                                        } else {
                                                (void)fprintf(fd,
                                                       "                    ");
                                        }
                                }
                                (void)fprintf(fd,"%02x ",
                                              mopGetChar(pkt,&idx));
                                if ((i % 16) == 15)
                                        (void)fprintf(fd,"\n");
                        }
                        if ((i % 16) != 15)
                                (void)fprintf(fd,"\n");
#else
                        idx = idx + moplen - 2;
#endif
                }
                
                break;
        case MOP_K_CODE_CRA:
                
                tmpc = mopGetChar(pkt,&idx);
                (void)fprintf(fd,
                              "Control Flags: %02x Message %d ",tmpc,tmpc & 1);
                if ((tmpc & 2))
                        (void)fprintf(fd,"Cmd Data Lost ");
                if ((tmpc & 4))
                        (void)fprintf(fd,"Resp Data Lost ");
                (void)fprintf(fd,"\n");
                
                if (moplen > 2) {
#ifndef SHORT_PRINT
                        for (i = 0; i < (moplen - 2); i++) {
                                if ((i % 16) == 0) {
                                        if ((i / 16) == 0) {
                                                (void)fprintf(fd,
                                                        "Image Data   : %04x ",
                                                              moplen-2);
                                        } else {
                                                (void)fprintf(fd,
                                                       "                    ");
                                        }
                                }
                                (void)fprintf(fd,"%02x ",
                                              mopGetChar(pkt,&idx));
                                if ((i % 16) == 15)
                                        (void)fprintf(fd,"\n");
                        }
                        if ((i % 16) != 15)
                                (void)fprintf(fd,"\n");
#else
                        idx = idx + moplen - 2;
#endif
                }
                
                break;
        default:
                break;
        }
}