blob: 31a9974b024a5fbad8ea766bb3abf4f59a01ac04 (
plain) (
blame)
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
|
# PT_STRWRD -- Search a dictionary string for a given string index number.
# This is the opposite function of strdic(), that returns the index for
# given string. The entries in the dictionary string are separated by
# a delimiter character which is the first character of the dictionary
# string. The index of the string found is returned as the function value.
# Otherwise, if there is no string for that index, a zero is returned.
int procedure pt_strwrd (index, outstr, maxch, dict)
int index # String index
char outstr[ARB] # Output string as found in dictionary
int maxch # Maximum length of output string
char dict[ARB] # Dictionary string
int i, len, start, count
int strlen()
begin
# Clear output string
outstr[1] = EOS
# Return if the dictionary is not long enough
if (dict[1] == EOS)
return (0)
# Initialize counters
count = 1
len = strlen (dict)
# Search the dictionary string. This loop only terminates
# successfully if the index is found. Otherwise the procedure
# returns with and error condition.
for (start = 2; count < index; start = start + 1) {
if (dict[start] == dict[1])
count = count + 1
if (start == len)
return (0)
}
# Extract the output string from the dictionary
for (i = start; dict[i] != EOS && dict[i] != dict[1]; i = i + 1) {
if (i - start + 1 > maxch)
break
outstr[i - start + 1] = dict[i]
}
outstr[i - start + 1] = EOS
# Return index for output string
return (count)
end
|
