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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
define OUTPUTS "|none|list|file|"
define NONE 1 # No output
define LIST 2 # List output
define FILE 3 # File output
define SZ_LIST 10240 # Size of expanded list
define SZ_LISTOUT 255 # Size of output list
# T_IMEXTENSIONS -- Expand a template of FITS files into a list of image
# extensions on the standard output and record the number image extensions
# in a parameter.
procedure t_imextensions()
pointer input # List of ME file names
int output # Output list (none|list|file)
pointer index # Range list of extension indexes
pointer extname # Pattern for extension names
pointer extver # Range list of extension versions
int lindex # List index number?
int lname # List extension name?
int lver # List extension version?
pointer ikparams # Image kernel parameters
pointer sp, image, listout
int list, nimages, fd
int clgwrd(), btoi(), xt_imextns(), imtgetim(), imtlen(), stropen()
bool clgetb()
errchk stropen, fprintf, strclose
begin
call smark (sp)
call salloc (input, SZ_LINE, TY_CHAR)
call salloc (index, SZ_LINE, TY_CHAR)
call salloc (extname, SZ_LINE, TY_CHAR)
call salloc (extver, SZ_LINE, TY_CHAR)
call salloc (ikparams, SZ_LINE, TY_CHAR)
call salloc (image, SZ_FNAME, TY_CHAR)
# Task parameters
call clgstr ("input", Memc[input], SZ_LINE)
output = clgwrd ("output", Memc[image], SZ_FNAME, OUTPUTS)
call clgstr ("index", Memc[index], SZ_LINE)
call clgstr ("extname", Memc[extname], SZ_LINE)
call clgstr ("extver", Memc[extver], SZ_LINE)
lindex = btoi (clgetb ("lindex"))
lname = btoi (clgetb ("lname"))
lver = btoi (clgetb ("lver"))
call clgstr ("ikparams", Memc[ikparams], SZ_LINE)
# Get the list.
list = xt_imextns (Memc[input], Memc[index], Memc[extname],
Memc[extver], lindex, lname, lver, Memc[ikparams], YES)
# Format the output and set the number of images.
switch (output) {
case LIST:
call salloc (listout, SZ_LISTOUT, TY_CHAR)
iferr {
fd = stropen (Memc[listout], SZ_LISTOUT, WRITE_ONLY)
nimages = 0
while (imtgetim (list, Memc[image], SZ_FNAME) != EOF) {
nimages = nimages + 1
if (nimages == 1) {
call fprintf (fd, "%s")
call pargstr (Memc[image])
} else {
call fprintf (fd, ",%s")
call pargstr (Memc[image])
}
}
call strclose (fd)
call printf ("%s\n")
call pargstr (Memc[listout])
} then {
call imtclose (list)
call sfree (sp)
call error (1, "Output list format is too long")
}
case FILE:
while (imtgetim (list, Memc[image], SZ_FNAME) != EOF) {
call printf ("%s\n")
call pargstr (Memc[image])
}
}
call clputi ("nimages", imtlen (list))
call imtclose (list)
call sfree (sp)
end
|
