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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_xnames
#include <iraf.h>
/* C_ALLOCATE -- Allocate a device (and mount it, if necessary).
*/
int
c_allocate (
char *device /* device to be allocated */
)
{
int status;
iferr (status = XALLOCATE (c_sppstr(device)))
return (ERR);
else
return (status);
}
/* C_DEALLOCATE -- Deallocate a device.
*/
int
c_deallocate (
char *device, /* device to be allocated */
int rewind /* rewind flag, if magtape */
)
{
int status;
XINT x_rewind = rewind;
iferr (status = (int) XDEALLOCATE (c_sppstr(device), &x_rewind))
return (ERR);
else
return (status);
}
/* C_DEVSTATUS -- Print the current status of the named device.
*/
void
c_devstatus (
char *device, /* device name */
int out /* output file */
)
{
XINT x_out = out;
XDEVSTATUS (c_sppstr(device), &x_out);
}
/* C_DEVOWNER -- Determine if a device is allocated, and if so return
** the name of the owner.
*/
int
c_devowner (
char *device, /* device to be allocated */
char *owner, /* receives owner name string */
int maxch
)
{
XCHAR x_owner[SZ_FNAME+1];
XINT x_maxch = SZ_FNAME;
int status;
iferr (status = (int) XDEVOWNER(c_sppstr(device), x_owner, &x_maxch)) {
owner[0] = EOS;
return (ERR);
} else {
c_strpak (x_owner, owner, maxch);
return (status);
}
}
|
