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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include "stf.h"
# STF_ORDERGPB -- Order the GPB, putting the group parameters in the
# new image in the same order as in the old image.
# NOTE: no longer called by stf_opix; save this code for future use!
# <dlb--11/4/87>
procedure stf_ordergpb (o_stf, n_stf)
pointer o_stf # STF descriptor of old image
pointer n_stf # STF descriptor of new image
pointer sp, temp_pdes, pp, o_plist, n_plist
int o_pcount, n_pcount, otop, ntop, op, np, offset, sz_param, pn
bool streq()
begin
o_pcount = STF_PCOUNT(o_stf)
n_pcount = STF_PCOUNT(n_stf)
if (o_pcount <= 0)
return
call smark (sp)
call salloc (temp_pdes, LEN_PDES, TY_STRUCT)
o_plist = STF_PDES(o_stf,1)
n_plist = STF_PDES(n_stf,1)
otop = (o_pcount * LEN_PDES)
ntop = (n_pcount * LEN_PDES)
# Search the new parameter list for a parameter with the same name
# as a parameter in the old parameter list. When a match is found,
# move the new parameter into the same position as it is in the
# old parameter list.
for (op=0; op < otop; op=op+LEN_PDES)
for (np=op; np < ntop; np=np+LEN_PDES)
if (streq (P_PTYPE(o_plist+op), P_PTYPE(n_plist+np))) {
if (op != np) {
# Swap parameters between old and new positions
call amovi (Memi[n_plist+op], Memi[temp_pdes],
LEN_PDES)
call amovi (Memi[n_plist+np], Memi[n_plist+op],
LEN_PDES)
call amovi (Memi[temp_pdes], Memi[n_plist+np],
LEN_PDES)
}
break
}
# Update the field offsets.
offset = 0
for (pn=1; pn <= n_pcount; pn=pn+1) {
pp = STF_PDES(n_stf,pn)
P_OFFSET(pp) = offset
sz_param = P_PSIZE(pp) / NBITS_BYTE / SZB_CHAR
offset = offset + sz_param
}
call sfree (sp)
end
|
