Return to driver.c CVS log

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

Annotation of researchv10dc/cmd/worm/scsi/wren/driver.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: #include       "wren.h"
                      7: 
                      8: static Wren *types[] =
                      9: {
                     10:        &wr_elite,
                     11:        &wr_wren5,
                     12:        0
                     13: };
                     14: 
                     15: static Wren *curtype = 0;
                     16: 
                     17: static int
                     18: setwren(char *err)
                     19: {
                     20:        int n;
                     21:        char product[17];
                     22:        int found;
                     23:        struct scsi_cmd cmd;
                     24:        struct scsi_return ret;
                     25: 
                     26:        /* find drive type */
                     27:        set6(cmd, 0x12, 0, 0, 0, 32, 0);
                     28:        if(s_io(0, &cmd, 0, &ret, 32, err))
                     29:                return(-1);
                     30:        fixedstr(&ret.data[16], 16, product);
                     31:        for(n = 0, found = 0; types[n]; n++)
                     32:                if(strcmp(product, types[n]->ident) == 0){
                     33:                        found = 1;
                     34:                        break;
                     35:                }
                     36:        if(found){
                     37:                if(types[n] != curtype){
                     38:                        curtype = types[n];
                     39:                        printf("drive is a %s (%s)\n",
                     40:                                curtype->desc, curtype->ident);
                     41:                }
                     42:        } else {
                     43:                curtype = types[0];
                     44:                printf("drive is '%s'; pretending it's a %s\n",
                     45:                        product, curtype->desc);
                     46:        }
                     47:        return(0);
                     48: }
                     49: 
                     50: int wr_modesense(ClientData cd, Tcl_Interp *it, int argc, char **argv)
                     51: {
                     52:        if(setwren(cd->err))
                     53:                ERR_RETURN
                     54:        if(curtype->msense == 0){
                     55:                strcpy(cd->err, "modesense not implemented");
                     56:                ERR_RETURN
                     57:        }
                     58:        if((*curtype->msense)(cd, argc, argv))
                     59:                ERR_RETURN
                     60:        return(TCL_OK);
                     61: }
                     62: 
                     63: int wr_modeselect(ClientData cd, Tcl_Interp *it, int argc, char **argv)
                     64: {
                     65:        if(setwren(cd->err))
                     66:                ERR_RETURN
                     67:        if(curtype->mselect == 0){
                     68:                strcpy(cd->err, "modeselect not implemented");
                     69:                ERR_RETURN
                     70:        }
                     71:        if((*curtype->mselect)(cd, argc, argv))
                     72:                ERR_RETURN
                     73:        return(TCL_OK);
                     74: }
                     75: 
                     76: int wr_diag(ClientData cd, Tcl_Interp *it, int argc, char **argv)
                     77: {
                     78:        if(setwren(cd->err))
                     79:                ERR_RETURN
                     80:        if(curtype->diag == 0){
                     81:                strcpy(cd->err, "diagnostics not implemented");
                     82:                ERR_RETURN
                     83:        }
                     84:        if((*curtype->diag)(cd, argc, argv))
                     85:                ERR_RETURN
                     86:        return(TCL_OK);
                     87: }
                     88: 
                     89: int wr_logsense(ClientData cd, Tcl_Interp *it, int argc, char **argv)
                     90: {
                     91:        if(setwren(cd->err))
                     92:                ERR_RETURN
                     93:        if(curtype->lsense == 0){
                     94:                strcpy(cd->err, "logging not implemented");
                     95:                ERR_RETURN
                     96:        }
                     97:        if((*curtype->lsense)(cd, argc, argv))
                     98:                ERR_RETURN
                     99:        return(TCL_OK);
                    100: }
                    101: 
                    102: int wr_logselect(ClientData cd, Tcl_Interp *it, int argc, char **argv)
                    103: {
                    104:        if(setwren(cd->err))
                    105:                ERR_RETURN
                    106:        if(curtype->lselect == 0){
                    107:                strcpy(cd->err, "logging not implemented");
                    108:                ERR_RETURN
                    109:        }
                    110:        if((*curtype->lselect)(cd, argc, argv))
                    111:                ERR_RETURN
                    112:        return(TCL_OK);
                    113: }

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