Return to scsi.c CVS log

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

Annotation of researchv10dc/cmd/worm/scsi/generic/scsi.c, revision 1.1.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.