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
|
# T_NAMES -- Expand record extension format into a list of images.
procedure t_names ()
pointer list # Input record list
pointer append # String to append to name
bool check # Check existence of image?
int imtgetim()
bool clgetb()
pointer sp, image, im, imtopenp(), immap()
begin
call smark (sp)
call salloc (image, SZ_FNAME, TY_CHAR)
call salloc (append, SZ_LINE, TY_CHAR)
# Get parameters.
list = imtopenp ("input")
call clgstr ("records", Memc[append], SZ_LINE)
call odr_openp (list, Memc[append])
call clgstr ("append", Memc[append], SZ_LINE)
check = clgetb ("check")
# Loop over all input images - print name on STDOUT
while (imtgetim (list, Memc[image], SZ_FNAME) != EOF) {
# Open image if check for existence required
if (check) {
ifnoerr (im = immap (Memc[image], READ_ONLY, 0)) {
call printf ("%s%s\n")
call pargstr (Memc[image])
call pargstr (Memc[append])
call imunmap (im)
}
} else {
call printf ("%s%s\n")
call pargstr (Memc[image])
call pargstr (Memc[append])
}
call flush (STDOUT)
}
call imtclose (list)
call sfree (sp)
end
|
