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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include "qpoe.h"
include "qpio.h"
# QPIO_GETFILTER -- Get the current filtering parameters governing event
# extraction via QPIO. These are the QPIO parameters (region mask, blocking
# factor, coordinate system, etc.) plus the event attribute filter. We leave
# it up to QPEX to reconstruct the EAF to allow for any dynamic edits which
# may have taken place, e.g., via qpio_setfilter.
int procedure qpio_getfilter (io, outstr, maxch)
pointer io #I QPIO descriptor
char outstr[maxch] #O where to put the filter text
int maxch #I max chars out
pointer sp, buf, bp
int op, dtype[2], offset[2], i
int sizeof(), gstrcpy(), qpex_getfilter()
define ovfl_ 91
begin
call smark (sp)
call salloc (buf, SZ_TEXTBUF, TY_CHAR)
op = 1
# Report on QPIO parameters first.
# Parameter name.
call sprintf (Memc[buf], SZ_TEXTBUF, "param=%s,")
call pargstr (Memc[IO_PARAM(io)])
op = op + gstrcpy (Memc[buf], outstr[op], maxch-op+1)
if (op > maxch)
goto ovfl_
# Coordinate system.
dtype[1] = IO_EVXTYPE(io); dtype[2] = IO_EVYTYPE(io)
offset[1] = IO_EVXOFF(io); offset[2] = IO_EVYOFF(io)
call sprintf (Memc[buf], SZ_TEXTBUF, "key=(%c%d,%c%d),")
do i = 1, 2 {
switch (dtype[i]) {
case TY_SHORT:
call pargi ('s')
case TY_INT:
call pargi ('i')
case TY_LONG:
call pargi ('l')
case TY_REAL:
call pargi ('r')
case TY_DOUBLE:
call pargi ('d')
default:
call pargi ('?')
}
call pargi (offset[i] * sizeof(dtype[i]) * SZB_CHAR)
}
op = op + gstrcpy (Memc[buf], outstr[op], maxch-op+1)
if (op > maxch)
goto ovfl_
# Blocking factor for generating pixels.
call sprintf (Memc[buf], SZ_TEXTBUF, "block=%0.4gx%0.4g, ")
call pargr (IO_XBLOCK(io))
call pargr (IO_YBLOCK(io))
op = op + gstrcpy (Memc[buf], outstr[op], maxch-op+1)
if (op > maxch)
goto ovfl_
# Region mask, if any.
if (Memc[IO_MASK(io)] != EOS) {
call sprintf (Memc[buf], SZ_TEXTBUF, "mask=%s,")
call pargstr (Memc[IO_MASK(io)])
op = op + gstrcpy (Memc[buf], outstr[op], maxch-op+1)
if (op > maxch)
goto ovfl_
}
# Debug level, if debug messages enabled.
if (IO_DEBUG(io) > 0) {
call sprintf (Memc[buf], SZ_TEXTBUF, "debug=%d,")
call pargi (IO_DEBUG(io))
op = op + gstrcpy (Memc[buf], outstr[op], maxch-op+1)
if (op > maxch)
goto ovfl_
}
# Noindex flag, if enabled.
if (IO_NOINDEX(io) > 0) {
call sprintf (Memc[buf], SZ_TEXTBUF, "noindex=%b,")
call pargi (IO_NOINDEX(io))
op = op + gstrcpy (Memc[buf], outstr[op], maxch-op+1)
if (op > maxch)
goto ovfl_
}
# Event attribute filter.
if (IO_EX(io) != NULL) {
bp = buf + gstrcpy ("filter=(", Memc[buf], SZ_TEXTBUF)
bp = bp + qpex_getfilter (IO_EX(io), Memc[bp], SZ_TEXTBUF-8)
Memc[bp] = ')'; bp = bp + 1
Memc[bp] = EOS
op = op + gstrcpy (Memc[buf], outstr[op], maxch-op+1)
if (op > maxch)
goto ovfl_
} else if (op > 1) {
# Clobber trailing comma.
op = op - 1
outstr[op] = EOS
}
call sfree (sp)
return (op - 1)
ovfl_
call sfree (sp)
outstr[maxch+1] = EOS
return (maxch)
end
|
