blob: 2f88c74c5292ec8eedafb0b904681917e7ce529c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
include defs
# addstr - add s to str(j) if it fits, increment j
integer function addstr (s, str, j, maxsiz)
integer j, maxsiz
character s (ARB), str (maxsiz)
integer i, addset
for (i = 1; s (i) != EOS; i = i + 1)
if (addset (s (i), str, j, maxsiz) == NO) {
addstr = NO
return
}
addstr = YES
return
end
|
