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
|
# AP_GETIM -- Standardize image name so that different ways of specifying
# the images map to the same database and output rootnames.
int procedure ap_getim (list, image, maxchar)
int list #I Image list
char image[maxchar] #O Image name
int maxchar #I Maximum number of chars in image name
char ksection[SZ_FNAME] #O Image name
int i, j, stat, cl_index, cl_size
pointer im
pointer sp, cluster, section
int imtgetim(), strlen(), stridxs(), ctoi()
pointer immap()
begin
# Get next image name.
stat = imtgetim (list, image, maxchar)
if (stat == EOF)
return (stat)
call smark (sp)
call salloc (cluster, SZ_FNAME, TY_CHAR)
call salloc (section, SZ_FNAME, TY_CHAR)
call imparse (image, Memc[cluster], SZ_FNAME, ksection, SZ_FNAME,
Memc[section], SZ_FNAME, cl_index, cl_size)
# Strip the extension.
call xt_imroot (Memc[cluster], Memc[cluster], SZ_FNAME)
# Generate standard ksection. Only map image if index used.
# Don't worry about cases with both an index and ksection.
if (cl_index < 0 && ksection[1] == EOS)
;
else if (cl_index == 0)
ksection[1] = EOS
else {
if (cl_index > 0) {
im = immap (image, READ_ONLY, 0)
ksection[1] = '['
call imgstr (im, "extname", ksection[2], SZ_FNAME-1)
i = strlen (ksection)
ifnoerr (call imgstr (im, "extver" ,
ksection[i+2], SZ_FNAME-i-1)) {
ksection[i+1] = ','
i = strlen (ksection)
}
ksection[i+1] = ']'
ksection[i+2] = EOS
call imunmap (im)
} else {
i = stridxs (",", ksection[2]) + 2
if (i > 2) {
j = ctoi (ksection, i, j)
ksection[i] = ']'
ksection[i+1] = EOS
}
}
}
call sprintf (image, maxchar, "%s%s%s")
call pargstr (Memc[cluster])
call pargstr (ksection)
call pargstr (Memc[section])
call sfree (sp)
return (stat)
end
|
