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
|
# XT_PROCID -- Set or ppdate PROCID keyword.
procedure xt_procid (im)
pointer im #I Image header
int i, j, ver, patmake(), gpatmatch(), strlen(), ctoi()
pointer sp, pat, str
begin
call smark (sp)
call salloc (pat, SZ_LINE, TY_CHAR)
call salloc (str, SZ_FNAME, TY_CHAR)
# Get current ID.
iferr (call imgstr (im, "PROCID", Memc[str], SZ_LINE)) {
iferr (call imgstr (im, "OBSID", Memc[str], SZ_LINE)) {
call sfree (sp)
return
}
}
# Set new PROCID.
ver = 0
i = patmake ("V[0-9]*$", Memc[pat], SZ_LINE)
if (gpatmatch (Memc[str], Memc[pat], i, j) == 0)
;
if (j > 0) {
j = i+1
if (ctoi (Memc[str], j, ver) == 0)
ver = 0
i = i - 1
} else
i = strlen (Memc[str])
call sprintf (Memc[str+i], SZ_LINE, "V%d")
call pargi (ver+1)
call imastr (im, "PROCID", Memc[str])
end
|
