Return to read.c CVS log

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

Annotation of researchv10dc/cmd/worm/scsi/generic/read.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: int
        !             8: gen_read(ClientData cd, Tcl_Interp *it, int argc, char **argv)
        !             9: {
        !            10:        struct scsi_cmd cmd;
        !            11:        struct scsi_return ret;
        !            12:        int unit, i;
        !            13:        unsigned long ns, ss;
        !            14:        long bs, addr, n;
        !            15:        long t1, t2;
        !            16:        int count;
        !            17:        char *file;
        !            18:        FILE *fp;
        !            19: 
        !            20:        if(argc < 2)
        !            21:                USAGE_RETURN
        !            22:        unit = atoi(argv[1]);
        !            23:        addr = atol(argv[2]);
        !            24:        count = (argc >= 3)? atoi(argv[3]):1;
        !            25:        file = (argc >= 4)? argv[4]:0;
        !            26:        printf("lun=%d addr=%d count=%d file=%s\n", unit, addr, count, file);
        !            27:        if(file){
        !            28:                if((fp = fopen(file, "w")) == NULL){
        !            29:                        pperror(cd->err, file);
        !            30:                        ERR_RETURN
        !            31:                }
        !            32:        } else
        !            33:                fp = 0;
        !            34:        set10(cmd, 0x25, unit<<5, 0, 0, 0, 0, 0, 0, 0, 0);
        !            35:        if(s_io(0, &cmd, 0, &ret, 8, cd->err))
        !            36:                ERR_RETURN
        !            37:        ns = longat(&ret.data[0]);
        !            38:        ss = longat(&ret.data[4]);
        !            39:        bs = ss? sizeof(ret.data)/ss : 1;
        !            40:        printf("read(%d,%d): %d blocks @%d (bs=%dB, %d sectors)\n", s_id, unit, count, addr, bs*ss, bs);
        !            41:        fflush(stdout);
        !            42:        for(i = count, n = bs; i > 0; i -= n){
        !            43:                if(i < n) n = i;
        !            44:                set10(cmd, 0x28, unit<<5, addr>>24, addr>>16, addr>>8, addr,
        !            45:                        0, 0, n, 0);
        !            46:                if(s_io(0, &cmd, 0, &ret, n*ss, cd->err))
        !            47:                        ERR_RETURN
        !            48:                addr += n;
        !            49:                if(fp)
        !            50:                        fwrite(ret.data, ss, n, fp);
        !            51:        }
        !            52:        return(0);
        !            53: }

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