|
|
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_stop(ClientData cd, Tcl_Interp *it, int argc, char **argv) ! 9: { ! 10: struct scsi_cmd cmd; ! 11: struct scsi_return ret; ! 12: int i, unit; ! 13: ! 14: if(argc <= 1) ! 15: argv[i = 0] = "0"; ! 16: else ! 17: i = 1; ! 18: for(; i < argc; i++){ ! 19: unit = atoi(argv[i]); ! 20: set6(cmd, 0x1B, unit<<5, 0, 0, 0, 0); ! 21: if(s_io(0, &cmd, 0, &ret, 0, cd->err)) ! 22: ERR_RETURN ! 23: } ! 24: return(TCL_OK); ! 25: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.