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