|
|
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_eject(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, 0xC0, unit<<5, 0, 0, 0, 0);
21: if(s_io(0, &cmd, 0, &ret, 0, cd->err))
22: ERR_RETURN
23: }
24: return(0);
25: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.