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
216
217
218
219
220
221
222
223
|
#! /usr/bin/env -S awk -f 'csmap.awk'
BEGIN {
stage1 = 1
depth = 0
__nvlen = 0
fileCount = 0
# Last stylesheet is also used for replacement
ARGV[ARGC] = ARGV[ARGC - 1]
ARGC++
}
FNR == 1 {
fileCount++
}
# Do substitution on last file
stage1 && fileCount == ARGC - 1 {
stage1 = 0
stage2 = 1
depth = 0
macroNameOnly = 0
# Do substitutions inside definitions
for (name in macros) {
for (subname in macros) {
gsub(subname, macros[subname], macros[name])
}
}
fileCount = 0
}
#
# Stage 1
# Gather definitions
#
# function printNQ() {
# print "All in nameQueue:"
# for (ind in nameQueue) {
# print "[" ind "] " nameQueue[ind] " | " nameClose[nameQueue[ind]]
# }
# }
#
# stage1 {
# print ""
# print $0
# print "Depth: " depth
# printNQ()
# }
stage1 && macroNameOnly {
# Skip blank lines
if ($0 ~ /^[[:blank:]]*$/) {
next
}
macroNameOnly = 0
# We had a name, blank lines, and now the beginning of line has "{"
# There is a definition
if (sub(/^[[:blank:]]*\{/, "") > 0) {
depth++
}
# The name was not starting a definition
else {
namevec_Pop()
# Since the line didn't start a new definition, we need to add it
# "back" verbatim to the current definition(s)
for (ind in __nvnames) {
macros[namevec_At(ind)] = macros[namevec_At(ind)] ORS macroNameLine
}
}
}
stage1 && /<[^>]*>[[:blank:]]*\{/ {
# There is a definition
namevec_Push()
depth++
# Remove definition start
sub(/^[^{]*{[[:blank:]]*/, "")
}
stage1 && /<[^>]*>/ {
# Start searching for a potential opening brace
macroNameOnly = 1
macroNameLine = $0
namevec_Push()
next
}
stage1 && depth >= 1 {
depth += gsub("{", "{") - gsub("}", "}")
skipORS = 0
if (depth <= namevec_TopDepth()) {
# Remove macro closing braces
for (i = namevec_TopDepth() - depth; i >= 0; i--) {
sub(/}/, "")
}
skipORS = 1
}
# Add line to definition and parent definitions
for (ind in __nvnames) {
if (length(macros[namevec_At(ind)]) != 0 && !skipORS) {
macros[namevec_At(ind)] = macros[namevec_At(ind)] ORS
}
macros[namevec_At(ind)] = macros[namevec_At(ind)] $0
}
while (namevec_Length() > 0 && depth <= namevec_TopDepth()) {
namevec_Pop()
}
next
}
#
# Stage 2
# Do substitution
#
# Skip over definitions
stage2 && depth >= 1 {
depth += gsub("{", "{") - gsub("}", "}")
next
}
stage2 && macroNameOnly {
# Skip over blank lines
if ($0 ~ /^[[:blank:]]*$/) {
next
}
macroNameOnly = 0
# If is definition
if ($0 ~ /^[[:blank:]]*\{/) {
depth = gsub("{", "{") - gsub("}", "}")
macroName = ""
next
}
# Do substitution
else {
print macros[macroName]
macroName = ""
}
}
stage2 && /^[[:blank:]]*<[^>]*>/ {
# If we found a definition
if ($0 ~ "{") {
macroName = ""
depth = gsub("{", "{") - gsub("}", "}")
next
}
# If there isn't anything nonblank after the macro name then it might
# be the name of a potential definition, with a "{" on another line
else if (match($0, /<[^>]*>[[:blank:]]*[^[:blank:]]/) == 0) {
match($0, /<[^>]*>/)
macroName = substr($0, RSTART, RLENGTH)
macroNameOnly = 1
next
}
}
# Outside definition
stage2 && depth == 0 {
# Do macro substitutions on line
while(match($0, /<[^>]*>/)) {
macroName = substr($0, RSTART, RLENGTH)
sub(macroName, macros[macroName])
}
print
}
END {
# Substitution for macro name at end of file
if (macroName != "")
print macros[macroName]
# print "All macros:"
# for (macroName in macros) {
# print macroName ORS macros[macroName]
# }
}
#
# namevec "structure"
#
function namevec_Top() {
return namevec_At(__nvlen - 1)
}
function namevec_TopDepth() {
return __nvdepth[__nvlen - 1]
}
function namevec_At(_ind) {
return "<" __nvnames[_ind] ">"
}
function namevec_Length() {
return __nvlen
}
function namevec_Push() {
match($0, /<[^>]*>/)
name = substr($0, RSTART + 1, RLENGTH - 2)
if (__nvlen > 0) {
name = __nvnames[__nvlen-1] "/" name
}
__nvnames[__nvlen] = name
__nvdepth[__nvlen++] = depth
}
function namevec_Pop() {
delete __nvnames[--__nvlen]
delete __nvdepth[__nvlen]
}
|
