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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "qpex.h"
include "qpio.h"
# QPIO_SETFILTER -- Modify the filter used to reject events during event
# extraction with qpio_getevents or qpio_readpix. Possible items to be set
# here include the event attribute filter, region mask, and various QPIO
# parameters. The input expression should be a comma delimited list of
# param=value terms, where PARAM is `filter', `mask', or the name of a QPIO
# or QPEX parameter, and where `value' is an expression, e.g., a comma
# delimited list of range terms enclosed in parenthesis.
procedure qpio_setfilter (io, expr)
pointer io #I QPIO descriptor
char expr[ARB] #I option setting expression
int sz_filter
pointer sp, filter, mask
errchk qpio_parse, qpex_open, qpex_modfilter
int qpex_modfilter(), qpio_parse()
pointer qpex_open()
begin
call smark (sp)
call salloc (mask, SZ_FNAME, TY_CHAR)
if (IO_DEBUG(io) > 0) {
call eprintf ("qpio_setfilter (%xX, `%s')\n")
call pargi (io)
call pargstr (expr)
}
# Parse full QPIO oriented filter expression.
sz_filter = DEF_SZEXPRBUF
call malloc (filter, sz_filter, TY_CHAR)
if (qpio_parse (io,expr,filter,sz_filter,Memc[mask],SZ_FNAME) == ERR) {
call eprintf ("QPIO warning: error parsing `%s'\n")
call pargstr (expr)
}
# Set event attribute filter.
if (IO_EX(io) == NULL)
IO_EX(io) = qpex_open (IO_QP(io), Memc[filter])
else if (qpex_modfilter (IO_EX(io), Memc[filter]) == ERR) {
call eprintf ("Warning: errors compiling `%s'\n")
call pargstr (expr)
}
# Set region mask.
if (Memc[mask] != EOS)
call qpio_loadmask (io, Memc[mask], NO)
IO_ACTIVE(io) = NO
call mfree (filter, TY_CHAR)
call sfree (sp)
end
|
