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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
|
include "keyselect.h"
#* HISTORY *
#* B.Simon 12-Mar-92 Original
# BRK_LIST -- Retrieve a string from the list
int procedure brk_list (list, ic, sep, str, maxch)
char list[ARB] # i: list of items
int ic # u: index into list
char sep # i: character separating strings in the list
char str[ARB] # o: output string
int maxch # i: maximum length of output string
#--
int jc
begin
# Copy characters into output string until separation character
# or end of list is found
for (jc = 1; jc <= maxch; jc = jc + 1) {
str[jc] = list[ic]
ic = ic + 1
if (str[jc] == sep) {
break
} else if (str[jc] == EOS) {
ic = ic - 1 # back up to EOS character
break
}
}
str[jc] = EOS
return (jc-1)
end
# CNT_LIST -- Count the number of items in a list
int procedure cnt_list (list)
char list[ARB] # i: list of items
#--
int ic, count
begin
# Number of items is number of separation characters plus one
count = 1
for (ic = 1; list[ic] != EOS; ic = ic + 1) {
if (list[ic] == SEP_CHAR)
count = count + 1
}
return (count)
end
# FMT_LIST -- Format a list into canonical form
procedure fmt_list (list)
char list[ARB] # u: list of keyword names
#--
bool tween
int ic, jc
begin
jc = 1
tween = true
# Eliminate consecutive separation characters between list items
for (ic = 1; list[ic] != EOS; ic = ic + 1) {
if (IS_SEP(list[ic])) {
if (! tween) {
tween = true
list[jc] = SEP_CHAR
jc = jc + 1
}
} else {
tween = false
if (jc < ic)
list[jc] = list[ic]
jc = jc + 1
}
}
# Eliminate trailing separation character
if (! tween || jc == 1) {
list[jc] = EOS
} else {
list[jc-1] = EOS
}
end
# RD_LIST -- Read values from a file into a list
procedure rd_list (fname, list, maxch)
char fname[ARB] # i: file containing list
char list[ARB] # o: output list
int maxch # i: maximum length of list
#--
int fd, ic, nc
int open(), getline()
begin
# Concatenate contents of the file into a single long string
# while preserving the newlines between them
fd = open (fname, READ_ONLY, TEXT_FILE)
for (ic = 1; ic < maxch; ic = ic + nc) {
nc = getline (fd, list[ic])
if (nc <= 0)
break
}
list[ic] = EOS
call close (fd)
end
# SEP_LIST -- Separate list into keywords and table column names
procedure sep_list (list, keywords, columns, maxch)
char list[ARB] # i: combined list of columns and keywords
char keywords[ARB] # o: list of header keyword names
char columns[ARB] # o: list of table column names
int maxch # i: declared length of output strings
#--
char eq, sep, cat
int ic, jc, kc, mc, nc
pointer sp, word, key, col
data eq / ASSIGN_CHAR /
data sep / SEP_CHAR /
data cat / CONCAT_CHAR /
string nolist "List of header keywords is empty. No table created."
int stridx(), gstrcpy(), brk_list()
begin
call smark(sp)
call salloc (word, SZ_LINE, TY_CHAR)
call salloc (key, SZ_LINE, TY_CHAR)
call salloc (col, SZ_LINE, TY_CHAR)
ic = 1
jc = 1
kc = 1
# Extract the next item from the combined list of columns and keywords
while (brk_list (list, ic, sep, Memc[word], SZ_LINE) > 0) {
# Break the item into the column and keyword names
# If both are not given in the item assume they are the same
nc = stridx (eq, Memc[word])
if (nc > 0) {
Memc[word+nc-1] = EOS
call strcpy (Memc[word], Memc[col], SZ_LINE)
call strcpy (Memc[word+nc], Memc[key], SZ_LINE)
} else {
call strcpy (Memc[word], Memc[col], SZ_LINE)
call strcpy (Memc[word], Memc[key], SZ_LINE)
# Translate keyword names into their default column names
# and substitute underscores for the concatenation char
if (Memc[col] == '$') {
call name_keyword (Memc[col], Memc[col], SZ_LINE)
} else {
repeat {
mc = stridx (cat, Memc[col])
if (mc == 0)
break
Memc[col+mc-1] = '_'
}
}
}
# Append keyword and column name to output string
jc = jc + gstrcpy (Memc[key], keywords[jc], maxch-jc)
keywords[jc] = SEP_CHAR
jc = jc + 1
kc = kc + gstrcpy (Memc[col], columns[kc], maxch-kc)
columns[kc] = SEP_CHAR
kc = kc + 1
}
# Exit with error if either list is empty
if (jc == 1 || kc == 1)
call error (1, nolist)
# Eliminate trailing separation character
keywords[jc-1] = EOS
columns[kc-1] = EOS
call sfree(sp)
end
|
