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
|
# DEVSTATUS -- Print status info for the named device. The basic function
# is performed by the hidden builtin _devstatus, but you may with to add
# additional machine dependent function to the script.
procedure devstatus (device)
string device { prompt = "device for which status is desired" }
bool verbose = no
string logname, hostname
struct *devlist
string dev
begin
dev = device
_devstatus (dev)
# if (verbose) {
# # Print UNIX device status, too.
#
# devlist = "dev$devices"
# while (fscan (devlist, logname, hostname) != EOF) {
# if (logname == dev) {
# print ("!ls -l /dev/", hostname) | cl
# break
# }
# }
# devlist = ""
# }
end
|
