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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
include "../lib/parser.h"
# PH_MKPLIST -- Construct the list of variables to be printed.
int procedure ph_mkplist (plist, cmap, omap, nobsvars, psym, pcols,
max_len_plist)
int plist # pointer to the list of variables
int cmap # catalog column to data column mapping
int omap # observations column to data column mapping
int nobsvars # number of observations variables
int psym[ARB] # the output array of variable symbols
int pcols[ARB] # offset in the data array of the symbol
int max_len_plist # the maximum length of the variables list
int len_plist, sym, col
pointer sp, pname
int fntgfnb(), pr_getsym(), pr_gsymi(), pr_findmap1()
begin
call smark (sp)
call salloc (pname, SZ_FNAME, TY_CHAR)
len_plist = 0
while (fntgfnb (plist, Memc[pname], SZ_FNAME) != EOF) {
if (len_plist >= max_len_plist)
break
sym = pr_getsym (Memc[pname])
if (IS_INDEFI(sym))
next
switch (pr_gsymi (sym, PSYMTYPE)) {
case PTY_CATVAR:
psym[len_plist+1] = sym
col = pr_gsymi (sym, PINPCOL)
pcols[len_plist+1] = pr_findmap1 (cmap, col) + nobsvars
case PTY_OBSVAR:
psym[len_plist+1] = sym
col = pr_gsymi (sym, PINPCOL)
pcols[len_plist+1] = pr_findmap1 (omap, col)
case PTY_SETEQ:
psym[len_plist+1] = sym
pcols[len_plist+1] = 0
default:
next
}
len_plist = len_plist + 1
}
call sfree (sp)
return (len_plist)
end
# PH_OFORMAT -- Construct the output formatstr string.
procedure ph_oformatstr (getid, ncols, formatstr, maxch)
int getid # output the object id
int ncols # number of columns in the output text file
char formatstr[ARB] # the output formatstr string
int maxch # maximum number of characters in the formatstr string
int i, fcol
begin
if (getid == YES) {
call strcpy ("%-10s ", formatstr, maxch)
fcol = 2
} else {
formatstr[1] = EOS
fcol = 1
}
do i = fcol, ncols {
if (i == ncols)
call strcat ("%-7.3f\n", formatstr, maxch)
else
call strcat ("%-7.3f ", formatstr, maxch)
}
end
# PH_OFIELDS -- Count the number of fields in the formatstr string.
int procedure ph_ofields (formatstr)
char formatstr[ARB] # the input formatstr string
char percent
int ip, findex, nfields
int stridx()
data percent /'%'/
begin
nfields = 0
ip = 1
while (formatstr[ip] != EOS) {
findex = stridx (percent, formatstr[ip])
if (findex == 0)
break
ip = findex + ip
if (formatstr[ip] == percent)
ip = ip + 1
else
nfields = nfields + 1
}
return (nfields)
end
|
