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
42
43
44
45
46
47
48
49
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include <xalloc.h>
# XGDEVLIST -- Fetch the allocation string for the named logical device from
# the device table (tapecap file). DV_DEVNOTFOUND is returned there is no
# entry in the device table for the device. An error action is taken if there
# is any problem reading the device entry.
#
# This routine is a bit of an anachronism in the days of tapecap, but is
# left pretty much as it was originally to minimize code modifications.
# In principle the allocation code can be used to allocate any device, not
# just tape drives. This is still the case, given an entry for the device
# in the tapecap file.
int procedure xgdevlist (device, outstr, maxch, onedev)
char device[ARB] #I logical device name
char outstr[maxch] #O receives device list
int maxch #I max chars out
int onedev #I return i/o device instead?
pointer gty
int nchars
pointer mtcap()
int gtygets(), strlen()
errchk syserrs
begin
# Fetch the tapecap entry for the named device. Do not close the GTY
# descriptor. mtcap always keeps the last one in an internal cache.
iferr (gty = mtcap (device))
return (DV_DEVNOTFOUND)
if (onedev == YES)
nchars = gtygets (gty, "dv", outstr, maxch)
else
nchars = gtygets (gty, "al", outstr, maxch)
call ki_xnode (device, outstr, maxch)
nchars = strlen (outstr)
if (nchars <= 0)
call syserrs (SYS_MTTAPECAP, device)
return (OK)
end
|
