blob: 678ee0bb8c5ea534e719da51596ab253dd703d10 (
plain) (
blame)
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
81
82
83
84
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <qpioset.h>
include "qpio.h"
# QPIO_STATI -- Stat a QPIO interface integer valued parameter.
int procedure qpio_stati (io, param)
pointer io #I QPIO descriptor
int param #I parameter code
bool fp_equalr()
begin
switch (param) {
case QPIO_BLOCKFACTOR:
if (fp_equalr (IO_XBLOCK(io), IO_YBLOCK(io)))
return (IO_XBLOCK(io))
else
return (ERR)
case QPIO_XBLOCKFACTOR:
return (IO_XBLOCK(io))
case QPIO_YBLOCKFACTOR:
return (IO_YBLOCK(io))
case QPIO_BUCKETLEN:
return (IO_BUCKETLEN(io))
case QPIO_DEBUG:
return (IO_DEBUG(io))
case QPIO_EVXOFF:
return (IO_EVXOFF(io))
case QPIO_EVYOFF:
return (IO_EVYOFF(io))
case QPIO_EVXTYPE:
return (IO_EVXTYPE(io))
case QPIO_EVYTYPE:
return (IO_EVYTYPE(io))
case QPIO_EX:
return (IO_EX(io))
case QPIO_NODEFFILT:
return (IO_NODEFFILT(io))
case QPIO_NODEFMASK:
return (IO_NODEFMASK(io))
case QPIO_NOINDEX:
return (IO_NOINDEX(io))
case QPIO_OPTBUFSIZE:
return (IO_OPTBUFSIZE(io))
case QPIO_PL:
return (IO_PL(io))
case QPIO_EVENTLEN: # length of event struct, shorts
return (IO_EVENTLEN(io))
case QPIO_FD: # FIO fd of event list lfile
return (IO_FD(io))
case QPIO_INDEXLEN: # index length (0=noindex)
return (IO_INDEXLEN(io))
case QPIO_IXXOFF: # offset of X in index
return (IO_IXXOFF(io))
case QPIO_IXYOFF: # offset of Y in index
return (IO_IXYOFF(io))
case QPIO_IXXTYPE: # datatype of X in index
return (IO_IXXTYPE(io))
case QPIO_IXYTYPE: # datatype of Y in index
return (IO_IXYTYPE(io))
case QPIO_LF: # FMIO lfile number
return (IO_LF(io))
case QPIO_MASKP: # PLIO descriptor
return (IO_MASK(io))
case QPIO_MAXEVP: # pointer to short
return (IO_MAXEVL(io))
case QPIO_MINEVP: # pointer to short
return (IO_MINEVL(io))
case QPIO_NCOLS:
return (IO_NCOLS(io))
case QPIO_NLINES:
return (IO_NLINES(io))
case QPIO_PARAMP: # pointer to char
return (IO_PARAM(io))
case QPIO_QP:
return (IO_QP(io)) # QPOE descriptor
}
return (ERR)
end
|
