Return to scsi.c CVS log

Up to [Research Unix] / researchv10no / cmd / worm / scsi / generic

Annotation of researchv10no/cmd/worm/scsi/generic/scsi.c, revision 1.1

1.1     ! root        1: #include       <stdio.h>
        !             2: #include       "../scsi.h"
        !             3: #include       "../scsish.h"
        !             4: #include       "../tcl.h"
        !             5: #include       "fns.h"
        !             6: 
        !             7: #define        A(n)    atoi(argv[n])
        !             8: 
        !             9: int
        !            10: gen_scsi(ClientData cd, Tcl_Interp *it, int argc, char **argv)
        !            11: {
        !            12:        struct scsi_cmd cmd;
        !            13:        struct scsi_return ret;
        !            14:        int n;
        !            15: 
        !            16:        switch(argc)
        !            17:        {
        !            18:        case 7:
        !            19:                set6(cmd, A(1), A(2), A(3), A(4), A(5), A(6));
        !            20:                break;
        !            21:        case 10:
        !            22:                set10(cmd, A(1), A(2), A(3), A(4), A(5), A(6), A(7), A(8), A(9), A(10));
        !            23:                break;
        !            24:        default:
        !            25:                sprintf(cd->err, "number of bytes (%d) must be 6 or 10\n", argc-1);
        !            26:                return(TCL_ERROR);
        !            27:        }
        !            28:        if(s_io(0, &cmd, 0, &ret, 0, cd->err))
        !            29:                ERR_RETURN
        !            30:        return(TCL_OK);
        !            31: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.