|
@@ -0,0 +1,373 @@
|
|
1
|
+#include "cmPrefix.h"
|
|
2
|
+#include "cmGlobal.h"
|
|
3
|
+#include "cmRpt.h"
|
|
4
|
+#include "cmErr.h"
|
|
5
|
+#include "cmCtx.h"
|
|
6
|
+#include "cmMem.h"
|
|
7
|
+#include "cmMallocDebug.h"
|
|
8
|
+#include "cmLinkedHeap.h"
|
|
9
|
+#include "cmText.h"
|
|
10
|
+#include "cmFile.h"
|
|
11
|
+#include "cmTextTemplate.h"
|
|
12
|
+
|
|
13
|
+/*
|
|
14
|
+ $var$ // global var
|
|
15
|
+
|
|
16
|
+ ${name$ $var0$ $var1$ $}$ // name.var0 name.var1
|
|
17
|
+
|
|
18
|
+ ${name$ $var0$ $var1$ $}$ // name.var0 name.var1
|
|
19
|
+
|
|
20
|
+
|
|
21
|
+ replace(tpl,"val","var0") // var0 = val
|
|
22
|
+ replace(tpl,"val","name","var0",NULL) // name.var0 = val - named assignment
|
|
23
|
+ replace(tpl,"val0","val0","name") // name.0=val0; name.1=val1 - place assignment
|
|
24
|
+ repeat( tpl, "name" ) // create a copy of "name" just after name
|
|
25
|
+ clean( tpl, "name" ) // remove unused variables from "name"
|
|
26
|
+*/
|
|
27
|
+
|
|
28
|
+
|
|
29
|
+cmTtH_t cmTtNullHandle = cmSTATIC_NULL_HANDLE;
|
|
30
|
+
|
|
31
|
+enum
|
|
32
|
+{
|
|
33
|
+ kVarTtId, // variable node
|
|
34
|
+ kValTtId, // value (leaf) node
|
|
35
|
+ kTextTtId // text
|
|
36
|
+};
|
|
37
|
+
|
|
38
|
+typedef struct cmTtToken_str
|
|
39
|
+{
|
|
40
|
+ unsigned typeId;
|
|
41
|
+ cmChar_t* text;
|
|
42
|
+ cmChar_t* end;
|
|
43
|
+ struct cmTtToken_str* next;
|
|
44
|
+ struct cmTtToken_str* prev;
|
|
45
|
+} cmTtToken_t;
|
|
46
|
+
|
|
47
|
+typedef struct cmTtNode_str
|
|
48
|
+{
|
|
49
|
+ unsigned typeId;
|
|
50
|
+ cmChar_t* label;
|
|
51
|
+ cmTtToken_t* token;
|
|
52
|
+ struct cmTtNode_str* parent;
|
|
53
|
+ struct cmTtNode_str* children;
|
|
54
|
+ struct cmTtNode_str* sibling;
|
|
55
|
+} cmTtNode_t;
|
|
56
|
+
|
|
57
|
+typedef struct
|
|
58
|
+{
|
|
59
|
+ cmErr_t err;
|
|
60
|
+ cmLHeapH_t lhH;
|
|
61
|
+ cmChar_t* buf;
|
|
62
|
+ cmChar_t* fn;
|
|
63
|
+ cmTtNode_t* tree;
|
|
64
|
+ cmTtToken_t* tokens;
|
|
65
|
+} cmTt_t;
|
|
66
|
+
|
|
67
|
+cmTt_t* _cmTtHandleToPtr( cmTtH_t h )
|
|
68
|
+{
|
|
69
|
+ cmTt_t* p = (cmTt_t*)h.h;
|
|
70
|
+ assert( p != NULL );
|
|
71
|
+ return p;
|
|
72
|
+}
|
|
73
|
+
|
|
74
|
+cmTtRC_t _cmTtFinalize( cmTt_t* p )
|
|
75
|
+{
|
|
76
|
+ cmTtRC_t rc = kOkTtRC;
|
|
77
|
+ if( p == NULL )
|
|
78
|
+ return rc;
|
|
79
|
+
|
|
80
|
+ cmLHeapDestroy(&p->lhH);
|
|
81
|
+ cmMemPtrFree(&p->buf);
|
|
82
|
+ cmMemFree(p);
|
|
83
|
+ return rc;
|
|
84
|
+}
|
|
85
|
+
|
|
86
|
+cmTtToken_t* _cmTtCreateToken( cmTt_t* p, unsigned typeId, cmChar_t* s0, cmChar_t* s1 )
|
|
87
|
+{
|
|
88
|
+ cmTtToken_t* tp = p->tokens;
|
|
89
|
+ cmTtToken_t* t = cmLhAllocZ(p->lhH,cmTtToken_t,1);
|
|
90
|
+ t->typeId = kVarTtId;
|
|
91
|
+ t->text = s0;
|
|
92
|
+ t->end = s1;
|
|
93
|
+
|
|
94
|
+ if( tp == NULL )
|
|
95
|
+ p->tokens = t;
|
|
96
|
+ else
|
|
97
|
+ {
|
|
98
|
+ while( tp->next!=NULL )
|
|
99
|
+ tp=tp->next;
|
|
100
|
+
|
|
101
|
+ tp->next = t;
|
|
102
|
+ t->prev = tp;
|
|
103
|
+ }
|
|
104
|
+
|
|
105
|
+ return tp;
|
|
106
|
+}
|
|
107
|
+
|
|
108
|
+
|
|
109
|
+cmTtRC_t _cmTtScan( cmTt_t* p, cmChar_t* s)
|
|
110
|
+{
|
|
111
|
+ enum { kBeg, kEnd, kQuote };
|
|
112
|
+
|
|
113
|
+ cmTtRC_t rc = kOkTtRC;
|
|
114
|
+ unsigned i = 0;
|
|
115
|
+ unsigned line = 1;
|
|
116
|
+ unsigned state = kBeg;
|
|
117
|
+ cmChar_t* s0 = s;
|
|
118
|
+
|
|
119
|
+ for(; rc==kOkTtRC && s[i]; ++i)
|
|
120
|
+ {
|
|
121
|
+ cmChar_t c = s[i];
|
|
122
|
+
|
|
123
|
+ if( c == '\n')
|
|
124
|
+ ++line;
|
|
125
|
+
|
|
126
|
+ switch(state)
|
|
127
|
+ {
|
|
128
|
+ case kBeg: // searching for begin '$'
|
|
129
|
+ switch( c )
|
|
130
|
+ {
|
|
131
|
+ case '$':
|
|
132
|
+ {
|
|
133
|
+ _cmTtCreateToken(p,kTextTtId,s0,s+i-1);
|
|
134
|
+ state = kEnd;
|
|
135
|
+ s0 = s + i;
|
|
136
|
+ }
|
|
137
|
+ break;
|
|
138
|
+
|
|
139
|
+ case '"':
|
|
140
|
+ state = kQuote;
|
|
141
|
+ break;
|
|
142
|
+ }
|
|
143
|
+
|
|
144
|
+ case kEnd: // searching for end '$'
|
|
145
|
+ switch(c)
|
|
146
|
+ {
|
|
147
|
+ case '$':
|
|
148
|
+ {
|
|
149
|
+ _cmTtCreateToken(p,kVarTtId,s0,s+i);
|
|
150
|
+ state = kBeg;
|
|
151
|
+ s0 = s + i + 1;
|
|
152
|
+ }
|
|
153
|
+ break;
|
|
154
|
+
|
|
155
|
+ case '\n':
|
|
156
|
+ rc = cmErrMsg(&p->err,kSyntaxErrTtRC,"A end-of-line was encountered inside a template variable on line %i in '%s'.",line,p->fn);
|
|
157
|
+ break;
|
|
158
|
+
|
|
159
|
+ case '"':
|
|
160
|
+ rc = cmErrMsg(&p->err,kSyntaxErrTtRC,"A double-quote character was found inside a template variable on line %i in '%s'.",line,p->fn);
|
|
161
|
+ break;
|
|
162
|
+ }
|
|
163
|
+ break;
|
|
164
|
+
|
|
165
|
+ case kQuote: // searching for '"'
|
|
166
|
+ switch(c)
|
|
167
|
+ {
|
|
168
|
+ case '"':
|
|
169
|
+ state = kBeg;
|
|
170
|
+ break;
|
|
171
|
+
|
|
172
|
+ case '\n':
|
|
173
|
+ rc = cmErrMsg(&p->err,kSyntaxErrTtRC,"A double-quote character was found inside a quoted string on line %i in '%s'.",line,p->fn);
|
|
174
|
+ break;
|
|
175
|
+ }
|
|
176
|
+ break;
|
|
177
|
+
|
|
178
|
+ default:
|
|
179
|
+ { assert(0); }
|
|
180
|
+ }
|
|
181
|
+ }
|
|
182
|
+
|
|
183
|
+ return rc;
|
|
184
|
+}
|
|
185
|
+
|
|
186
|
+bool _cmTtTokenIsBegin( cmTtToken_t* tp )
|
|
187
|
+{
|
|
188
|
+ assert(tp->text!=NULL && tp->text[0]=='$');
|
|
189
|
+ return tp->typeId==kVarTtId && tp->text[1]=='{';
|
|
190
|
+}
|
|
191
|
+
|
|
192
|
+bool _cmTtTokenIsEnd( cmTtToken_t* tp )
|
|
193
|
+{
|
|
194
|
+ assert(tp->text!=NULL && tp->text[0]=='$');
|
|
195
|
+ return tp->typeId==kVarTtId && tp->text[1]=='}';
|
|
196
|
+}
|
|
197
|
+
|
|
198
|
+cmTtNode_t* _cmTtCreateNode( cmTt_t* p, cmTtNode_t* parent, unsigned typeId, cmTtToken_t* tp )
|
|
199
|
+{
|
|
200
|
+ cmTtNode_t* nnp = cmLhAllocZ(p->lhH,cmTtNode_t,1);
|
|
201
|
+ nnp->typeId = typeId;
|
|
202
|
+ nnp->token = tp;
|
|
203
|
+ nnp->parent = parent;
|
|
204
|
+
|
|
205
|
+ if( parent != NULL )
|
|
206
|
+ {
|
|
207
|
+ if( parent->children == NULL )
|
|
208
|
+ parent->children = nnp;
|
|
209
|
+ else
|
|
210
|
+ {
|
|
211
|
+ cmTtNode_t* np = nnp->children;
|
|
212
|
+ while( np->sibling != NULL )
|
|
213
|
+ np=np->sibling;
|
|
214
|
+
|
|
215
|
+ np->sibling = nnp;
|
|
216
|
+ }
|
|
217
|
+ }
|
|
218
|
+
|
|
219
|
+ return nnp;
|
|
220
|
+}
|
|
221
|
+
|
|
222
|
+cmTtToken_t* _cmTtBuildTree( cmTt_t* p, cmTtNode_t* np, cmTtToken_t* tp )
|
|
223
|
+{
|
|
224
|
+ cmTtToken_t* ftp = tp;
|
|
225
|
+ int cnt = 0;
|
|
226
|
+ while( tp != NULL )
|
|
227
|
+ {
|
|
228
|
+ if( _cmTtTokenIsBegin(tp) )
|
|
229
|
+ {
|
|
230
|
+ // attach preceding text to new right-most leaf-node on 'np'.
|
|
231
|
+ _cmTtCreateNode(p,np,kTextTtId,ftp);
|
|
232
|
+
|
|
233
|
+ // break the token chain before the 'begin' token
|
|
234
|
+ if( tp->prev != NULL )
|
|
235
|
+ tp->prev->next = NULL;
|
|
236
|
+ tp->prev = NULL;
|
|
237
|
+
|
|
238
|
+ // create a new child variable node and advance to token string
|
|
239
|
+ tp = _cmTtBuildTree(p, _cmTtCreateNode(p,np,kVarTtId,NULL), tp->next );
|
|
240
|
+ ftp = tp;
|
|
241
|
+ ++cnt;
|
|
242
|
+ }
|
|
243
|
+
|
|
244
|
+
|
|
245
|
+ if( _cmTtTokenIsEnd(tp) )
|
|
246
|
+ {
|
|
247
|
+ --cnt;
|
|
248
|
+
|
|
249
|
+ // break the token chain after the 'end' token
|
|
250
|
+ if( tp->next != NULL )
|
|
251
|
+ tp->next->prev = NULL;
|
|
252
|
+ tp->next = NULL;
|
|
253
|
+
|
|
254
|
+ // create a new right-most leaf-node
|
|
255
|
+ _cmTtCreateNode(p,np,kTextTtId,ftp);
|
|
256
|
+
|
|
257
|
+ tp = tp->next;
|
|
258
|
+ break;
|
|
259
|
+ }
|
|
260
|
+
|
|
261
|
+ tp = tp->next;
|
|
262
|
+ }
|
|
263
|
+
|
|
264
|
+ if( cnt != 0 )
|
|
265
|
+ cmErrMsg(&p->err,kSyntaxErrTtRC,"The template file '%s' appears to have unbalanced begin/end markers.",cmStringNullGuard(p->fn));
|
|
266
|
+
|
|
267
|
+ return tp;
|
|
268
|
+}
|
|
269
|
+
|
|
270
|
+
|
|
271
|
+
|
|
272
|
+cmTtRC_t cmTextTemplateInitialize( cmCtx_t* ctx, cmTtH_t* hp, const cmChar_t* fn )
|
|
273
|
+{
|
|
274
|
+ cmTtRC_t rc;
|
|
275
|
+
|
|
276
|
+ if((rc = cmTextTemplateFinalize(hp)) != kOkTtRC )
|
|
277
|
+ return rc;
|
|
278
|
+
|
|
279
|
+ cmTt_t* p = cmMemAllocZ(cmTt_t,1);
|
|
280
|
+
|
|
281
|
+ cmErrSetup(&p->err,&ctx->rpt,"TextTemplate");
|
|
282
|
+
|
|
283
|
+ // create the local linked heap
|
|
284
|
+ if( cmLHeapIsValid(p->lhH = cmLHeapCreate(1024, ctx )) == false )
|
|
285
|
+ {
|
|
286
|
+ rc = cmErrMsg(&p->err,kLHeapFailTtRC,"Lheap Mgr. allocation failed.");
|
|
287
|
+ goto errLabel;
|
|
288
|
+ }
|
|
289
|
+
|
|
290
|
+ // read the template file
|
|
291
|
+ if((p->buf = cmFileFnToBuf(fn,p->err.rpt,NULL)) == NULL )
|
|
292
|
+ {
|
|
293
|
+ rc = cmErrMsg(&p->err,kFileFailTtRC,"Unable to open the file '%s'.",cmStringNullGuard(fn));
|
|
294
|
+ goto errLabel;
|
|
295
|
+ }
|
|
296
|
+
|
|
297
|
+ // store the template file name
|
|
298
|
+ p->fn = cmLhAllocStr(p->lhH,fn);
|
|
299
|
+
|
|
300
|
+ // break the template file into tokens
|
|
301
|
+ if((rc = _cmTtScan(p,p->buf)) != kOkTtRC )
|
|
302
|
+ goto errLabel;
|
|
303
|
+
|
|
304
|
+ // create the root node
|
|
305
|
+ p->tree = _cmTtCreateNode(p,NULL,kVarTtId,NULL);
|
|
306
|
+
|
|
307
|
+ // build the node tree
|
|
308
|
+ _cmTtBuildTree(p,p->tree,p->tokens);
|
|
309
|
+
|
|
310
|
+ // check for errors
|
|
311
|
+ rc = cmErrLastRC(&p->err);
|
|
312
|
+
|
|
313
|
+ errLabel:
|
|
314
|
+
|
|
315
|
+ if( rc != kOkTtRC )
|
|
316
|
+ _cmTtFinalize(p);
|
|
317
|
+
|
|
318
|
+ return rc;
|
|
319
|
+}
|
|
320
|
+
|
|
321
|
+cmTtRC_t cmTextTemplateFinalize( cmTtH_t* hp )
|
|
322
|
+{
|
|
323
|
+ cmTtRC_t rc = kOkTtRC;
|
|
324
|
+
|
|
325
|
+ if( hp==NULL || cmTextTemplateIsValid(*hp)==false )
|
|
326
|
+ return rc;
|
|
327
|
+
|
|
328
|
+ cmTt_t* p = _cmTtHandleToPtr(*hp);
|
|
329
|
+
|
|
330
|
+ if((rc = _cmTtFinalize(p)) != kOkTtRC )
|
|
331
|
+ return rc;
|
|
332
|
+
|
|
333
|
+ hp->h = NULL;
|
|
334
|
+
|
|
335
|
+ return rc;
|
|
336
|
+}
|
|
337
|
+
|
|
338
|
+bool cmTextTemplateIsValid( cmTtH_t h )
|
|
339
|
+{ return h.h != NULL; }
|
|
340
|
+
|
|
341
|
+void cmTextTemplatePrintTokens( cmTtH_t h, cmRpt_t* rpt )
|
|
342
|
+{
|
|
343
|
+ cmTt_t* p = _cmTtHandleToPtr(h);
|
|
344
|
+
|
|
345
|
+ cmTtToken_t* tp = p->tokens;
|
|
346
|
+ cmChar_t* ep = p->buf + strlen(p->buf);
|
|
347
|
+ for(; tp!=NULL; tp=tp->next)
|
|
348
|
+ {
|
|
349
|
+ bool fl = tp->end < ep;
|
|
350
|
+ cmChar_t c = fl ? tp->end[1] : 0;
|
|
351
|
+
|
|
352
|
+ cmRptPrintf(rpt,"%s",tp->text);
|
|
353
|
+
|
|
354
|
+ if( fl )
|
|
355
|
+ tp->end[1] = c;
|
|
356
|
+ }
|
|
357
|
+}
|
|
358
|
+
|
|
359
|
+
|
|
360
|
+cmTtRC_t cmTextTemplateTest( cmCtx_t* ctx, const cmChar_t* fn )
|
|
361
|
+{
|
|
362
|
+ cmTtRC_t rc;
|
|
363
|
+ cmTtH_t h = cmTtNullHandle;
|
|
364
|
+
|
|
365
|
+ if((rc = cmTextTemplateInitialize(ctx,&h,fn)) != kOkTtRC )
|
|
366
|
+ return rc;
|
|
367
|
+
|
|
368
|
+ cmTextTemplatePrintTokens(h,&ctx->rpt);
|
|
369
|
+
|
|
370
|
+ cmTextTemplateFinalize(&h);
|
|
371
|
+
|
|
372
|
+ return rc;
|
|
373
|
+}
|