1 /** \file
2 * This is the standard tree adaptor used by the C runtime unless the grammar
3 * source file says to use anything different. It embeds a BASE_TREE to which
4 * it adds its own implementation of anything that the base tree is not
5 * good for, plus a number of methods that any other adaptor type
6 * needs to implement too.
7 * \ingroup pANTLR3_COMMON_TREE_ADAPTOR
8 */
9
10 // [The "BSD licence"]
11 // Copyright (c) 2005-2009 Jim Idle, Temporal Wave LLC
12 // http://www.temporal-wave.com
13 // http://www.linkedin.com/in/jimidle
14 //
15 // All rights reserved.
16 //
17 // Redistribution and use in source and binary forms, with or without
18 // modification, are permitted provided that the following conditions
19 // are met:
20 // 1. Redistributions of source code must retain the above copyright
21 // notice, this list of conditions and the following disclaimer.
22 // 2. Redistributions in binary form must reproduce the above copyright
23 // notice, this list of conditions and the following disclaimer in the
24 // documentation and/or other materials provided with the distribution.
25 // 3. The name of the author may not be used to endorse or promote products
26 // derived from this software without specific prior written permission.
27 //
28 // THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
29 // IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
30 // OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
31 // IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
32 // INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
33 // NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
34 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
35 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
36 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
37 // THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
38
39 #include <antlr3commontreeadaptor.h>
40
41 #ifdef ANTLR3_WINDOWS
42 #pragma warning( disable : 4100 )
43 #endif
44
45 /* BASE_TREE_ADAPTOR overrides... */
46 static pANTLR3_BASE_TREE dupNode (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE treeNode);
47 static pANTLR3_BASE_TREE create (pANTLR3_BASE_TREE_ADAPTOR adpator, pANTLR3_COMMON_TOKEN payload);
48 static pANTLR3_BASE_TREE dbgCreate (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN payload);
49 static pANTLR3_COMMON_TOKEN createToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, ANTLR3_UINT32 tokenType, pANTLR3_UINT8 text);
50 static pANTLR3_COMMON_TOKEN createTokenFromToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN fromToken);
51 static pANTLR3_COMMON_TOKEN getToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
52 static pANTLR3_STRING getText (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
53 static ANTLR3_UINT32 getType (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
54 static pANTLR3_BASE_TREE getChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i);
55 static ANTLR3_UINT32 getChildCount (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
56 static void replaceChildren (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE parent, ANTLR3_INT32 startChildIndex, ANTLR3_INT32 stopChildIndex, pANTLR3_BASE_TREE t);
57 static void setDebugEventListener (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_DEBUG_EVENT_LISTENER debugger);
58 static void setChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_INT32 i);
59 static ANTLR3_INT32 getChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
60 static void setParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child, pANTLR3_BASE_TREE parent);
61 static pANTLR3_BASE_TREE getParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child);
62 static void setChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i, pANTLR3_BASE_TREE child);
63 static void deleteChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i);
64 static pANTLR3_BASE_TREE errorNode (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_TOKEN_STREAM ctnstream, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken, pANTLR3_EXCEPTION e);
65 /* Methods specific to each tree adaptor
66 */
67 static void setTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken);
68 static void dbgSetTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken);
69 static ANTLR3_MARKER getTokenStartIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
70 static ANTLR3_MARKER getTokenStopIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
71
72 static void ctaFree (pANTLR3_BASE_TREE_ADAPTOR adaptor);
73
74 /** Create a new tree adaptor. Note that despite the fact that this is
75 * creating a new COMMON_TREE adaptor, we return the address of the
76 * BASE_TREE interface, as should any other adaptor that wishes to be
77 * used as the tree element of a tree parse/build. It needs to be given the
78 * address of a valid string factory as we do not know what the originating
79 * input stream encoding type was. This way we can rely on just using
80 * the original input stream's string factory or one of the correct type
81 * which the user supplies us.
82 */
83 ANTLR3_API pANTLR3_BASE_TREE_ADAPTOR
ANTLR3_TREE_ADAPTORNew(pANTLR3_STRING_FACTORY strFactory)84 ANTLR3_TREE_ADAPTORNew(pANTLR3_STRING_FACTORY strFactory)
85 {
86 pANTLR3_COMMON_TREE_ADAPTOR cta;
87
88 // First job is to create the memory we need for the tree adaptor interface.
89 //
90 cta = (pANTLR3_COMMON_TREE_ADAPTOR) ANTLR3_MALLOC((size_t)(sizeof(ANTLR3_COMMON_TREE_ADAPTOR)));
91
92 if (cta == NULL)
93 {
94 return NULL;
95 }
96
97 // Memory is initialized, so initialize the base tree adaptor
98 //
99 antlr3BaseTreeAdaptorInit(&(cta->baseAdaptor), NULL);
100
101 // Install our interface overrides. Strangeness is to allow generated code to treat them
102 // as returning void *
103 //
104 cta->baseAdaptor.dupNode = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
105 dupNode;
106 cta->baseAdaptor.create = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_COMMON_TOKEN))
107 create;
108 cta->baseAdaptor.createToken =
109 createToken;
110 cta->baseAdaptor.createTokenFromToken =
111 createTokenFromToken;
112 cta->baseAdaptor.setTokenBoundaries = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN))
113 setTokenBoundaries;
114 cta->baseAdaptor.getTokenStartIndex = (ANTLR3_MARKER (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
115 getTokenStartIndex;
116 cta->baseAdaptor.getTokenStopIndex = (ANTLR3_MARKER (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
117 getTokenStopIndex;
118 cta->baseAdaptor.getText = (pANTLR3_STRING (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
119 getText;
120 cta->baseAdaptor.getType = (ANTLR3_UINT32 (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
121 getType;
122 cta->baseAdaptor.getChild = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32))
123 getChild;
124 cta->baseAdaptor.setChild = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32, void *))
125 setChild;
126 cta->baseAdaptor.setParent = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, void *))
127 setParent;
128 cta->baseAdaptor.getParent = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
129 getParent;
130 cta->baseAdaptor.setChildIndex = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32))
131 setChildIndex;
132 cta->baseAdaptor.deleteChild = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32))
133 deleteChild;
134 cta->baseAdaptor.getChildCount = (ANTLR3_UINT32 (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
135 getChildCount;
136 cta->baseAdaptor.getChildIndex = (ANTLR3_INT32 (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
137 getChildIndex;
138 cta->baseAdaptor.free = (void (*) (pANTLR3_BASE_TREE_ADAPTOR))
139 ctaFree;
140 cta->baseAdaptor.setDebugEventListener =
141 setDebugEventListener;
142 cta->baseAdaptor.replaceChildren = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_INT32, ANTLR3_INT32, void *))
143 replaceChildren;
144 cta->baseAdaptor.errorNode = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_TOKEN_STREAM, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN, pANTLR3_EXCEPTION))
145 errorNode;
146
147 // Install the super class pointer
148 //
149 cta->baseAdaptor.super = cta;
150
151 // Install a tree factory for creating new tree nodes
152 //
153 cta->arboretum = antlr3ArboretumNew(strFactory);
154
155 // Install a token factory for imaginary tokens, these imaginary
156 // tokens do not require access to the input stream so we can
157 // dummy the creation of it, but they will need a string factory.
158 //
159 cta->baseAdaptor.tokenFactory = antlr3TokenFactoryNew(NULL);
160 cta->baseAdaptor.tokenFactory->unTruc.strFactory = strFactory;
161
162 // Allow the base tree adaptor to share the tree factory's string factory.
163 //
164 cta->baseAdaptor.strFactory = strFactory;
165
166 // Return the address of the base adaptor interface.
167 //
168 return &(cta->baseAdaptor);
169 }
170
171 /// Debugging version of the tree adaptor (not normally called as generated code
172 /// calls setDebugEventListener instead which changes a normal token stream to
173 /// a debugging stream and means that a user's instantiation code does not need
174 /// to be changed just to debug with AW.
175 ///
176 ANTLR3_API pANTLR3_BASE_TREE_ADAPTOR
ANTLR3_TREE_ADAPTORDebugNew(pANTLR3_STRING_FACTORY strFactory,pANTLR3_DEBUG_EVENT_LISTENER debugger)177 ANTLR3_TREE_ADAPTORDebugNew(pANTLR3_STRING_FACTORY strFactory, pANTLR3_DEBUG_EVENT_LISTENER debugger)
178 {
179 pANTLR3_BASE_TREE_ADAPTOR ta;
180
181 // Create a normal one first
182 //
183 ta = ANTLR3_TREE_ADAPTORNew(strFactory);
184
185 if (ta != NULL)
186 {
187 // Reinitialize as a debug version
188 //
189 antlr3BaseTreeAdaptorInit(ta, debugger);
190 ta->create = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_COMMON_TOKEN))
191 dbgCreate;
192 ta->setTokenBoundaries = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN))
193 dbgSetTokenBoundaries;
194 }
195
196 return ta;
197 }
198
199 /// Causes an existing common tree adaptor to become a debug version
200 ///
201 static void
setDebugEventListener(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_DEBUG_EVENT_LISTENER debugger)202 setDebugEventListener (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_DEBUG_EVENT_LISTENER debugger)
203 {
204 // Reinitialize as a debug version
205 //
206 antlr3BaseTreeAdaptorInit(adaptor, debugger);
207
208 adaptor->create = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_COMMON_TOKEN))
209 dbgCreate;
210 adaptor->setTokenBoundaries = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN))
211 dbgSetTokenBoundaries;
212
213 }
214
215 static void
ctaFree(pANTLR3_BASE_TREE_ADAPTOR adaptor)216 ctaFree(pANTLR3_BASE_TREE_ADAPTOR adaptor)
217 {
218 pANTLR3_COMMON_TREE_ADAPTOR cta;
219
220 cta = (pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super);
221
222 /* Free the tree factory we created
223 */
224 cta->arboretum->close(((pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super))->arboretum);
225
226 /* Free the token factory we created
227 */
228 adaptor->tokenFactory->close(adaptor->tokenFactory);
229
230 /* Free the super pointer, as it is this that was allocated
231 * and is the common tree structure.
232 */
233 ANTLR3_FREE(adaptor->super);
234 }
235
236 /* BASE_TREE_ADAPTOR overrides */
237
238 static pANTLR3_BASE_TREE
errorNode(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_TOKEN_STREAM ctnstream,pANTLR3_COMMON_TOKEN startToken,pANTLR3_COMMON_TOKEN stopToken,pANTLR3_EXCEPTION e)239 errorNode (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_TOKEN_STREAM ctnstream, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken, pANTLR3_EXCEPTION e)
240 {
241 // Use the supplied common tree node stream to get another tree from the factory
242 // TODO: Look at creating the erronode as in Java, but this is complicated by the
243 // need to track and free the memory allocated to it, so for now, we just
244 // want something in the tree that isn't a NULL pointer.
245 //
246 return (pANTLR3_BASE_TREE)adaptor->createTypeText(adaptor, ANTLR3_TOKEN_INVALID, (pANTLR3_UINT8)"Tree Error Node");
247
248 }
249
250 /** Duplicate the supplied node.
251 */
252 static pANTLR3_BASE_TREE
dupNode(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE treeNode)253 dupNode (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE treeNode)
254 {
255 return treeNode == NULL ? NULL : (pANTLR3_BASE_TREE)treeNode->dupNode(treeNode);
256 }
257
258 static pANTLR3_BASE_TREE
create(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_COMMON_TOKEN payload)259 create (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN payload)
260 {
261 pANTLR3_BASE_TREE ct;
262
263 /* Create a new common tree as this is what this adaptor deals with
264 */
265 ct = ((pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super))->arboretum->newFromToken(((pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super))->arboretum, payload);
266
267 /* But all adaptors return the pointer to the base interface.
268 */
269 return ct;
270 }
271 static pANTLR3_BASE_TREE
dbgCreate(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_COMMON_TOKEN payload)272 dbgCreate (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN payload)
273 {
274 pANTLR3_BASE_TREE ct;
275
276 ct = create(adaptor, payload);
277 adaptor->debugger->createNode(adaptor->debugger, ct);
278
279 return ct;
280 }
281
282 /** Tell me how to create a token for use with imaginary token nodes.
283 * For example, there is probably no input symbol associated with imaginary
284 * token DECL, but you need to create it as a payload or whatever for
285 * the DECL node as in ^(DECL type ID).
286 *
287 * If you care what the token payload objects' type is, you should
288 * override this method and any other createToken variant.
289 */
290 static pANTLR3_COMMON_TOKEN
createToken(pANTLR3_BASE_TREE_ADAPTOR adaptor,ANTLR3_UINT32 tokenType,pANTLR3_UINT8 text)291 createToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, ANTLR3_UINT32 tokenType, pANTLR3_UINT8 text)
292 {
293 pANTLR3_COMMON_TOKEN newToken;
294
295 newToken = adaptor->tokenFactory->newToken(adaptor->tokenFactory);
296
297 if (newToken != NULL)
298 {
299 newToken->textState = ANTLR3_TEXT_CHARP;
300 newToken->tokText.chars = (pANTLR3_UCHAR)text;
301 newToken->setType(newToken, tokenType);
302 newToken->input = adaptor->tokenFactory->input;
303 newToken->strFactory = adaptor->strFactory;
304 }
305 return newToken;
306 }
307
308 /** Tell me how to create a token for use with imaginary token nodes.
309 * For example, there is probably no input symbol associated with imaginary
310 * token DECL, but you need to create it as a payload or whatever for
311 * the DECL node as in ^(DECL type ID).
312 *
313 * This is a variant of createToken where the new token is derived from
314 * an actual real input token. Typically this is for converting '{'
315 * tokens to BLOCK etc... You'll see
316 *
317 * r : lc='{' ID+ '}' -> ^(BLOCK[$lc] ID+) ;
318 *
319 * If you care what the token payload objects' type is, you should
320 * override this method and any other createToken variant.
321 *
322 * NB: this being C it is not so easy to extend the types of creaeteToken.
323 * We will have to see if anyone needs to do this and add any variants to
324 * this interface.
325 */
326 static pANTLR3_COMMON_TOKEN
createTokenFromToken(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_COMMON_TOKEN fromToken)327 createTokenFromToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN fromToken)
328 {
329 pANTLR3_COMMON_TOKEN newToken;
330
331 newToken = adaptor->tokenFactory->newToken(adaptor->tokenFactory);
332
333 if (newToken != NULL)
334 {
335 // Create the text using our own string factory to avoid complicating
336 // commontoken.
337 //
338 pANTLR3_STRING text;
339
340 newToken->toString = fromToken->toString;
341
342 if (fromToken->textState == ANTLR3_TEXT_CHARP)
343 {
344 newToken->textState = ANTLR3_TEXT_CHARP;
345 newToken->tokText.chars = fromToken->tokText.chars;
346 }
347 else
348 {
349 text = fromToken->getText(fromToken);
350 newToken->textState = ANTLR3_TEXT_STRING;
351 newToken->tokText.text = adaptor->strFactory->newPtr(adaptor->strFactory, text->chars, text->len);
352 }
353
354 newToken->setLine (newToken, fromToken->getLine(fromToken));
355 newToken->setTokenIndex (newToken, fromToken->getTokenIndex(fromToken));
356 newToken->setCharPositionInLine (newToken, fromToken->getCharPositionInLine(fromToken));
357 newToken->setChannel (newToken, fromToken->getChannel(fromToken));
358 newToken->setType (newToken, fromToken->getType(fromToken));
359 }
360
361 return newToken;
362 }
363
364 /* Specific methods for a TreeAdaptor */
365
366 /** Track start/stop token for subtree root created for a rule.
367 * Only works with CommonTree nodes. For rules that match nothing,
368 * seems like this will yield start=i and stop=i-1 in a nil node.
369 * Might be useful info so I'll not force to be i..i.
370 */
371 static void
setTokenBoundaries(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t,pANTLR3_COMMON_TOKEN startToken,pANTLR3_COMMON_TOKEN stopToken)372 setTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken)
373 {
374 ANTLR3_MARKER start;
375 ANTLR3_MARKER stop;
376
377 pANTLR3_COMMON_TREE ct;
378
379 if (t == NULL)
380 {
381 return;
382 }
383
384 if ( startToken != NULL)
385 {
386 start = startToken->getTokenIndex(startToken);
387 }
388 else
389 {
390 start = 0;
391 }
392
393 if ( stopToken != NULL)
394 {
395 stop = stopToken->getTokenIndex(stopToken);
396 }
397 else
398 {
399 stop = 0;
400 }
401
402 ct = (pANTLR3_COMMON_TREE)(t->super);
403
404 ct->startIndex = start;
405 ct->stopIndex = stop;
406
407 }
408 static void
dbgSetTokenBoundaries(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t,pANTLR3_COMMON_TOKEN startToken,pANTLR3_COMMON_TOKEN stopToken)409 dbgSetTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken)
410 {
411 setTokenBoundaries(adaptor, t, startToken, stopToken);
412
413 if (t != NULL && startToken != NULL && stopToken != NULL)
414 {
415 adaptor->debugger->setTokenBoundaries(adaptor->debugger, t, startToken->getTokenIndex(startToken), stopToken->getTokenIndex(stopToken));
416 }
417 }
418
419 static ANTLR3_MARKER
getTokenStartIndex(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t)420 getTokenStartIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
421 {
422 return ((pANTLR3_COMMON_TREE)(t->super))->startIndex;
423 }
424
425 static ANTLR3_MARKER
getTokenStopIndex(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t)426 getTokenStopIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
427 {
428 return ((pANTLR3_COMMON_TREE)(t->super))->stopIndex;
429 }
430
431 static pANTLR3_STRING
getText(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t)432 getText (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
433 {
434 return t->getText(t);
435 }
436
437 static ANTLR3_UINT32
getType(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t)438 getType (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
439 {
440 return t->getType(t);
441 }
442
443 static void
replaceChildren(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE parent,ANTLR3_INT32 startChildIndex,ANTLR3_INT32 stopChildIndex,pANTLR3_BASE_TREE t)444 replaceChildren
445 (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE parent, ANTLR3_INT32 startChildIndex, ANTLR3_INT32 stopChildIndex, pANTLR3_BASE_TREE t)
446 {
447 if (parent != NULL)
448 {
449 parent->replaceChildren(parent, startChildIndex, stopChildIndex, t);
450 }
451 }
452
453 static pANTLR3_BASE_TREE
getChild(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t,ANTLR3_UINT32 i)454 getChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i)
455 {
456 return (pANTLR3_BASE_TREE)t->getChild(t, i);
457 }
458 static void
setChild(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t,ANTLR3_UINT32 i,pANTLR3_BASE_TREE child)459 setChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i, pANTLR3_BASE_TREE child)
460 {
461 t->setChild(t, i, child);
462 }
463
464 static void
deleteChild(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t,ANTLR3_UINT32 i)465 deleteChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i)
466 {
467 t->deleteChild(t, i);
468 }
469
470 static ANTLR3_UINT32
getChildCount(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t)471 getChildCount (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
472 {
473 return t->getChildCount(t);
474 }
475
476 static void
setChildIndex(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t,ANTLR3_INT32 i)477 setChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_INT32 i)
478 {
479 t->setChildIndex(t, i);
480 }
481
482 static ANTLR3_INT32
getChildIndex(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE t)483 getChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
484 {
485 return t->getChildIndex(t);
486 }
487 static void
setParent(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE child,pANTLR3_BASE_TREE parent)488 setParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child, pANTLR3_BASE_TREE parent)
489 {
490 child->setParent(child, parent);
491 }
492 static pANTLR3_BASE_TREE
getParent(pANTLR3_BASE_TREE_ADAPTOR adaptor,pANTLR3_BASE_TREE child)493 getParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child)
494 {
495 return child->getParent(child);
496 }
497