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
|
#* HISTORY *
#* B.Simon 07-Nov-94 original
# TBRACKET -- Break a table name into bracket delimeted substrings
procedure tbracket (table, root, rowselect, colselect, maxch)
char table[ARB] # i: Table name
char root[ARB] # o: Name minus bracketed sections
char rowselect[ARB] # o: Row selector section
char colselect[ARB] # o: Column selector section
int maxch # i: Maximum length of output strings
#--
bool found
char eq
int ic, nc
data eq / '=' /
errchk tsplitter
bool tsplitter()
int stridx()
begin
# Search for the first unescaped bracket
for (ic = 1; table[ic] != EOS; ic = ic + 1) {
if (table[ic] == '\\' && table[ic+1] != EOS) {
ic = ic + 1
} else if (table[ic] == '['){
break
}
}
nc = min (ic-1, maxch)
call strcpy (table, root, nc)
# Get bracketed sections from table name. If there is only
# a single section, disambiguate by looking for an equals
# sign, which indicates a row selector.
found = tsplitter (table, ic, rowselect, maxch)
if (! tsplitter (table, ic, colselect, maxch)) {
if (stridx (eq, rowselect) == 0) {
call strcpy (rowselect, colselect, maxch)
rowselect[1] = EOS
}
}
end
# TSPLITTER -- Splits table filename into sections
bool procedure tsplitter (table, ic, section, maxch)
char table[ARB] # i: table name
int ic # u: index to char within name
char section[ARB] # o: section extracted from name
int maxch # i: maximum length of section
#--
int jc, level
pointer sp, errmsg
string badsect "No closing bracket (%s)"
begin
if (table[ic] != '[') {
section[1] = EOS
return (false)
} else {
level = 1
ic = ic + 1
}
call smark (sp)
call salloc (errmsg, SZ_LINE, TY_CHAR)
jc = 1
while (level > 0 && table[ic] != EOS) {
if (table[ic] == '[' && table[ic-1] != '\\') {
level = level + 1
} else if (table[ic] == ']' && table[ic-1] != '\\') {
level = level - 1
}
if (level > 0 && jc <= maxch) {
section[jc] = table[ic]
jc = jc + 1
}
ic = ic + 1
}
section[jc] = EOS
if (level > 0) {
call sprintf (Memc[errmsg], SZ_LINE, badsect)
call pargstr (table)
call error (1, Memc[errmsg])
}
call sfree (sp)
return (true)
end
|
