1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
@REM=("
@perl %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
@end ") if 0 ;
#
# Test the ioctl function for MS-DOS. Provide a list of drives and their
# characteristics.
#
# By Diomidis Spinellis.
#
@fdnum = ("STDIN", "STDOUT", "STDERR");
$maxdrives = 15;
for ($i = 3; $i < $maxdrives; $i++) {
open("FD$i", "nul");
@fdnum[$i - 1] = "FD$i";
}
@mediatype = (
"320/360 k floppy drive",
"1.2M floppy",
"720K floppy",
"8'' single density floppy",
"8'' double density floppy",
"fixed disk",
"tape drive",
"1.44M floppy",
"other"
);
print "The system has the following drives:\n";
for ($i = 1; $i < $maxdrives; $i++) {
if ($ret = ioctl(@fdnum[$i], 8, 0)) {
$type = ($ret == 0) ? "removable" : "fixed";
$ret = ioctl(@fdnum[$i], 9, 0);
$location = ($ret & 0x800) ? "local" : "remote";
ioctl(@fdnum[$i], 0x860d, $param);
@par = unpack("CCSSSC31S", $param);
$lock = (@par[2] & 2) ? "supporting door lock" : "not supporting door lock";
printf "%c:$type $location @mediatype[@par[1]] @par[3] cylinders @par[6]
sectors/track $lock\n", ord('A') + $i - 1;
}
}
|
