-/** \file\r
- * This is the standard tree adaptor used by the C runtime unless the grammar\r
- * source file says to use anything different. It embeds a BASE_TREE to which\r
- * it adds its own implementation of anything that the base tree is not \r
- * good for, plus a number of methods that any other adaptor type\r
- * needs to implement too.\r
- * \ingroup pANTLR3_COMMON_TREE_ADAPTOR\r
- */\r
-\r
-// [The "BSD licence"]\r
-// Copyright (c) 2005-2009 Jim Idle, Temporal Wave LLC\r
-// http://www.temporal-wave.com\r
-// http://www.linkedin.com/in/jimidle\r
-//\r
-// All rights reserved.\r
-//\r
-// Redistribution and use in source and binary forms, with or without\r
-// modification, are permitted provided that the following conditions\r
-// are met:\r
-// 1. Redistributions of source code must retain the above copyright\r
-// notice, this list of conditions and the following disclaimer.\r
-// 2. Redistributions in binary form must reproduce the above copyright\r
-// notice, this list of conditions and the following disclaimer in the\r
-// documentation and/or other materials provided with the distribution.\r
-// 3. The name of the author may not be used to endorse or promote products\r
-// derived from this software without specific prior written permission.\r
-//\r
-// THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR\r
-// IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES\r
-// OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.\r
-// IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,\r
-// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT\r
-// NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,\r
-// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY\r
-// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\r
-// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF\r
-// THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\r
-\r
-#include <antlr3commontreeadaptor.h>\r
-\r
-#ifdef ANTLR3_WINDOWS\r
-#pragma warning( disable : 4100 )\r
-#endif\r
-\r
-/* BASE_TREE_ADAPTOR overrides... */\r
-static pANTLR3_BASE_TREE dupNode (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE treeNode);\r
-static pANTLR3_BASE_TREE create (pANTLR3_BASE_TREE_ADAPTOR adpator, pANTLR3_COMMON_TOKEN payload);\r
-static pANTLR3_BASE_TREE dbgCreate (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN payload);\r
-static pANTLR3_COMMON_TOKEN createToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, ANTLR3_UINT32 tokenType, pANTLR3_UINT8 text);\r
-static pANTLR3_COMMON_TOKEN createTokenFromToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN fromToken);\r
-static pANTLR3_COMMON_TOKEN getToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);\r
-static pANTLR3_STRING getText (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);\r
-static ANTLR3_UINT32 getType (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);\r
-static pANTLR3_BASE_TREE getChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i);\r
-static ANTLR3_UINT32 getChildCount (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);\r
-static void replaceChildren (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE parent, ANTLR3_INT32 startChildIndex, ANTLR3_INT32 stopChildIndex, pANTLR3_BASE_TREE t);\r
-static void setDebugEventListener (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_DEBUG_EVENT_LISTENER debugger);\r
-static void setChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_INT32 i);\r
-static ANTLR3_INT32 getChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);\r
-static void setParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child, pANTLR3_BASE_TREE parent);\r
-static pANTLR3_BASE_TREE getParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child);\r
-static void setChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i, pANTLR3_BASE_TREE child);\r
-static void deleteChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i);\r
-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);\r
-/* Methods specific to each tree adaptor\r
- */\r
-static void setTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken);\r
-static void dbgSetTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken);\r
-static ANTLR3_MARKER getTokenStartIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);\r
-static ANTLR3_MARKER getTokenStopIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);\r
-\r
-static void ctaFree (pANTLR3_BASE_TREE_ADAPTOR adaptor);\r
-\r
-/** Create a new tree adaptor. Note that despite the fact that this is\r
- * creating a new COMMON_TREE adaptor, we return the address of the\r
- * BASE_TREE interface, as should any other adaptor that wishes to be \r
- * used as the tree element of a tree parse/build. It needs to be given the\r
- * address of a valid string factory as we do not know what the originating\r
- * input stream encoding type was. This way we can rely on just using\r
- * the original input stream's string factory or one of the correct type\r
- * which the user supplies us.\r
- */\r
-ANTLR3_API pANTLR3_BASE_TREE_ADAPTOR\r
-ANTLR3_TREE_ADAPTORNew(pANTLR3_STRING_FACTORY strFactory)\r
-{\r
- pANTLR3_COMMON_TREE_ADAPTOR cta;\r
-\r
- // First job is to create the memory we need for the tree adaptor interface.\r
- //\r
- cta = (pANTLR3_COMMON_TREE_ADAPTOR) ANTLR3_MALLOC((size_t)(sizeof(ANTLR3_COMMON_TREE_ADAPTOR)));\r
-\r
- if (cta == NULL)\r
- {\r
- return NULL;\r
- }\r
-\r
- // Memory is initialized, so initialize the base tree adaptor\r
- //\r
- antlr3BaseTreeAdaptorInit(&(cta->baseAdaptor), NULL);\r
-\r
- // Install our interface overrides. Strangeness is to allow generated code to treat them\r
- // as returning void *\r
- //\r
- cta->baseAdaptor.dupNode = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))\r
- dupNode;\r
- cta->baseAdaptor.create = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_COMMON_TOKEN))\r
- create;\r
- cta->baseAdaptor.createToken = \r
- createToken;\r
- cta->baseAdaptor.createTokenFromToken = \r
- createTokenFromToken;\r
- cta->baseAdaptor.setTokenBoundaries = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN))\r
- setTokenBoundaries;\r
- cta->baseAdaptor.getTokenStartIndex = (ANTLR3_MARKER (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))\r
- getTokenStartIndex;\r
- cta->baseAdaptor.getTokenStopIndex = (ANTLR3_MARKER (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))\r
- getTokenStopIndex;\r
- cta->baseAdaptor.getText = (pANTLR3_STRING (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))\r
- getText;\r
- cta->baseAdaptor.getType = (ANTLR3_UINT32 (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))\r
- getType;\r
- cta->baseAdaptor.getChild = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32))\r
- getChild;\r
- cta->baseAdaptor.setChild = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32, void *))\r
- setChild;\r
- cta->baseAdaptor.setParent = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, void *))\r
- setParent;\r
- cta->baseAdaptor.getParent = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))\r
- getParent;\r
- cta->baseAdaptor.setChildIndex = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32))\r
- setChildIndex;\r
- cta->baseAdaptor.deleteChild = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32))\r
- deleteChild;\r
- cta->baseAdaptor.getChildCount = (ANTLR3_UINT32 (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))\r
- getChildCount;\r
- cta->baseAdaptor.getChildIndex = (ANTLR3_INT32 (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))\r
- getChildIndex;\r
- cta->baseAdaptor.free = (void (*) (pANTLR3_BASE_TREE_ADAPTOR))\r
- ctaFree;\r
- cta->baseAdaptor.setDebugEventListener = \r
- setDebugEventListener;\r
- cta->baseAdaptor.replaceChildren = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_INT32, ANTLR3_INT32, void *))\r
- replaceChildren;\r
- cta->baseAdaptor.errorNode = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_TOKEN_STREAM, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN, pANTLR3_EXCEPTION))\r
- errorNode;\r
-\r
- // Install the super class pointer\r
- //\r
- cta->baseAdaptor.super = cta;\r
-\r
- // Install a tree factory for creating new tree nodes\r
- //\r
- cta->arboretum = antlr3ArboretumNew(strFactory);\r
-\r
- // Install a token factory for imaginary tokens, these imaginary\r
- // tokens do not require access to the input stream so we can\r
- // dummy the creation of it, but they will need a string factory.\r
- //\r
- cta->baseAdaptor.tokenFactory = antlr3TokenFactoryNew(NULL);\r
- cta->baseAdaptor.tokenFactory->unTruc.strFactory = strFactory;\r
-\r
- // Allow the base tree adaptor to share the tree factory's string factory.\r
- //\r
- cta->baseAdaptor.strFactory = strFactory;\r
-\r
- // Return the address of the base adaptor interface.\r
- //\r
- return &(cta->baseAdaptor);\r
-}\r
-\r
-/// Debugging version of the tree adaptor (not normally called as generated code\r
-/// calls setDebugEventListener instead which changes a normal token stream to\r
-/// a debugging stream and means that a user's instantiation code does not need\r
-/// to be changed just to debug with AW.\r
-///\r
-ANTLR3_API pANTLR3_BASE_TREE_ADAPTOR\r
-ANTLR3_TREE_ADAPTORDebugNew(pANTLR3_STRING_FACTORY strFactory, pANTLR3_DEBUG_EVENT_LISTENER debugger)\r
-{\r
- pANTLR3_BASE_TREE_ADAPTOR ta;\r
-\r
- // Create a normal one first\r
- //\r
- ta = ANTLR3_TREE_ADAPTORNew(strFactory);\r
- \r
- if (ta != NULL)\r
- {\r
- // Reinitialize as a debug version\r
- //\r
- antlr3BaseTreeAdaptorInit(ta, debugger);\r
- ta->create = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_COMMON_TOKEN))\r
- dbgCreate;\r
- ta->setTokenBoundaries = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN))\r
- dbgSetTokenBoundaries;\r
- }\r
-\r
- return ta;\r
-}\r
-\r
-/// Causes an existing common tree adaptor to become a debug version\r
-///\r
-static void\r
-setDebugEventListener (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_DEBUG_EVENT_LISTENER debugger)\r
-{\r
- // Reinitialize as a debug version\r
- //\r
- antlr3BaseTreeAdaptorInit(adaptor, debugger);\r
-\r
- adaptor->create = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_COMMON_TOKEN))\r
- dbgCreate;\r
- adaptor->setTokenBoundaries = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN))\r
- dbgSetTokenBoundaries;\r
-\r
-}\r
-\r
-static void\r
-ctaFree(pANTLR3_BASE_TREE_ADAPTOR adaptor)\r
-{\r
- pANTLR3_COMMON_TREE_ADAPTOR cta;\r
-\r
- cta = (pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super);\r
-\r
- /* Free the tree factory we created\r
- */\r
- cta->arboretum->close(((pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super))->arboretum);\r
-\r
- /* Free the token factory we created\r
- */\r
- adaptor->tokenFactory->close(adaptor->tokenFactory);\r
-\r
- /* Free the super pointer, as it is this that was allocated\r
- * and is the common tree structure.\r
- */\r
- ANTLR3_FREE(adaptor->super);\r
-}\r
-\r
-/* BASE_TREE_ADAPTOR overrides */\r
-\r
-static pANTLR3_BASE_TREE\r
-errorNode (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_TOKEN_STREAM ctnstream, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken, pANTLR3_EXCEPTION e)\r
-{\r
- // Use the supplied common tree node stream to get another tree from the factory\r
- // TODO: Look at creating the erronode as in Java, but this is complicated by the\r
- // need to track and free the memory allocated to it, so for now, we just\r
- // want something in the tree that isn't a NULL pointer.\r
- //\r
- return adaptor->createTypeText(adaptor, ANTLR3_TOKEN_INVALID, (pANTLR3_UINT8)"Tree Error Node");\r
-\r
-}\r
-\r
-/** Duplicate the supplied node.\r
- */\r
-static pANTLR3_BASE_TREE\r
-dupNode (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE treeNode)\r
-{\r
- return treeNode == NULL ? NULL : treeNode->dupNode(treeNode);\r
-}\r
-\r
-static pANTLR3_BASE_TREE\r
-create (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN payload)\r
-{\r
- pANTLR3_BASE_TREE ct;\r
- \r
- /* Create a new common tree as this is what this adaptor deals with\r
- */\r
- ct = ((pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super))->arboretum->newFromToken(((pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super))->arboretum, payload);\r
-\r
- /* But all adaptors return the pointer to the base interface.\r
- */\r
- return ct;\r
-}\r
-static pANTLR3_BASE_TREE\r
-dbgCreate (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN payload)\r
-{\r
- pANTLR3_BASE_TREE ct;\r
-\r
- ct = create(adaptor, payload);\r
- adaptor->debugger->createNode(adaptor->debugger, ct);\r
-\r
- return ct;\r
-}\r
-\r
-/** Tell me how to create a token for use with imaginary token nodes.\r
- * For example, there is probably no input symbol associated with imaginary\r
- * token DECL, but you need to create it as a payload or whatever for\r
- * the DECL node as in ^(DECL type ID).\r
- *\r
- * If you care what the token payload objects' type is, you should\r
- * override this method and any other createToken variant.\r
- */\r
-static pANTLR3_COMMON_TOKEN\r
-createToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, ANTLR3_UINT32 tokenType, pANTLR3_UINT8 text)\r
-{\r
- pANTLR3_COMMON_TOKEN newToken;\r
-\r
- newToken = adaptor->tokenFactory->newToken(adaptor->tokenFactory);\r
-\r
- if (newToken != NULL)\r
- { \r
- newToken->textState = ANTLR3_TEXT_CHARP;\r
- newToken->tokText.chars = (pANTLR3_UCHAR)text;\r
- newToken->setType(newToken, tokenType);\r
- newToken->input = adaptor->tokenFactory->input;\r
- newToken->strFactory = adaptor->strFactory;\r
- }\r
- return newToken;\r
-}\r
-\r
-/** Tell me how to create a token for use with imaginary token nodes.\r
- * For example, there is probably no input symbol associated with imaginary\r
- * token DECL, but you need to create it as a payload or whatever for\r
- * the DECL node as in ^(DECL type ID).\r
- *\r
- * This is a variant of createToken where the new token is derived from\r
- * an actual real input token. Typically this is for converting '{'\r
- * tokens to BLOCK etc... You'll see\r
- *\r
- * r : lc='{' ID+ '}' -> ^(BLOCK[$lc] ID+) ;\r
- *\r
- * If you care what the token payload objects' type is, you should\r
- * override this method and any other createToken variant.\r
- *\r
- * NB: this being C it is not so easy to extend the types of creaeteToken.\r
- * We will have to see if anyone needs to do this and add any variants to\r
- * this interface.\r
- */\r
-static pANTLR3_COMMON_TOKEN\r
-createTokenFromToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN fromToken)\r
-{\r
- pANTLR3_COMMON_TOKEN newToken;\r
-\r
- newToken = adaptor->tokenFactory->newToken(adaptor->tokenFactory);\r
- \r
- if (newToken != NULL)\r
- {\r
- // Create the text using our own string factory to avoid complicating\r
- // commontoken.\r
- //\r
- pANTLR3_STRING text;\r
-\r
- newToken->toString = fromToken->toString;\r
-\r
- if (fromToken->textState == ANTLR3_TEXT_CHARP)\r
- {\r
- newToken->textState = ANTLR3_TEXT_CHARP;\r
- newToken->tokText.chars = fromToken->tokText.chars;\r
- }\r
- else\r
- {\r
- text = fromToken->getText(fromToken);\r
- newToken->textState = ANTLR3_TEXT_STRING;\r
- newToken->tokText.text = adaptor->strFactory->newPtr(adaptor->strFactory, text->chars, text->len);\r
- }\r
-\r
- newToken->setLine (newToken, fromToken->getLine(fromToken));\r
- newToken->setTokenIndex (newToken, fromToken->getTokenIndex(fromToken));\r
- newToken->setCharPositionInLine (newToken, fromToken->getCharPositionInLine(fromToken));\r
- newToken->setChannel (newToken, fromToken->getChannel(fromToken));\r
- newToken->setType (newToken, fromToken->getType(fromToken));\r
- }\r
-\r
- return newToken;\r
-}\r
-\r
-/* Specific methods for a TreeAdaptor */\r
-\r
-/** Track start/stop token for subtree root created for a rule.\r
- * Only works with CommonTree nodes. For rules that match nothing,\r
- * seems like this will yield start=i and stop=i-1 in a nil node.\r
- * Might be useful info so I'll not force to be i..i.\r
- */\r
-static void\r
-setTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken)\r
-{\r
- ANTLR3_MARKER start;\r
- ANTLR3_MARKER stop;\r
-\r
- pANTLR3_COMMON_TREE ct;\r
-\r
- if (t == NULL)\r
- {\r
- return;\r
- }\r
-\r
- if ( startToken != NULL)\r
- {\r
- start = startToken->getTokenIndex(startToken);\r
- }\r
- else\r
- {\r
- start = 0;\r
- }\r
-\r
- if ( stopToken != NULL)\r
- {\r
- stop = stopToken->getTokenIndex(stopToken);\r
- }\r
- else\r
- {\r
- stop = 0;\r
- }\r
-\r
- ct = (pANTLR3_COMMON_TREE)(t->super);\r
-\r
- ct->startIndex = start;\r
- ct->stopIndex = stop;\r
-\r
-}\r
-static void\r
-dbgSetTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken)\r
-{\r
- setTokenBoundaries(adaptor, t, startToken, stopToken);\r
-\r
- if (t != NULL && startToken != NULL && stopToken != NULL)\r
- {\r
- adaptor->debugger->setTokenBoundaries(adaptor->debugger, t, startToken->getTokenIndex(startToken), stopToken->getTokenIndex(stopToken));\r
- }\r
-}\r
-\r
-static ANTLR3_MARKER \r
-getTokenStartIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)\r
-{\r
- return ((pANTLR3_COMMON_TREE)(t->super))->startIndex;\r
-}\r
-\r
-static ANTLR3_MARKER \r
-getTokenStopIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)\r
-{\r
- return ((pANTLR3_COMMON_TREE)(t->super))->stopIndex;\r
-}\r
-\r
-static pANTLR3_STRING\r
-getText (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)\r
-{\r
- return t->getText(t);\r
-}\r
-\r
-static ANTLR3_UINT32\r
-getType (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)\r
-{\r
- return t->getType(t);\r
-}\r
-\r
-static void \r
-replaceChildren\r
-(pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE parent, ANTLR3_INT32 startChildIndex, ANTLR3_INT32 stopChildIndex, pANTLR3_BASE_TREE t)\r
-{\r
- if (parent != NULL)\r
- {\r
- parent->replaceChildren(parent, startChildIndex, stopChildIndex, t);\r
- }\r
-}\r
-\r
-static pANTLR3_BASE_TREE\r
-getChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i)\r
-{\r
- return t->getChild(t, i);\r
-}\r
-static void\r
-setChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i, pANTLR3_BASE_TREE child)\r
-{\r
- t->setChild(t, i, child);\r
-}\r
-\r
-static void\r
-deleteChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i)\r
-{\r
- t->deleteChild(t, i);\r
-}\r
-\r
-static ANTLR3_UINT32\r
-getChildCount (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)\r
-{\r
- return t->getChildCount(t);\r
-}\r
-\r
-static void\r
-setChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_INT32 i)\r
-{\r
- t->setChildIndex(t, i);\r
-}\r
-\r
-static ANTLR3_INT32\r
-getChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)\r
-{\r
- return t->getChildIndex(t);\r
-}\r
-static void\r
-setParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child, pANTLR3_BASE_TREE parent)\r
-{\r
- child->setParent(child, parent);\r
-}\r
-static pANTLR3_BASE_TREE\r
-getParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child)\r
-{\r
- return child->getParent(child);\r
-}\r
+/** \file
+ * This is the standard tree adaptor used by the C runtime unless the grammar
+ * source file says to use anything different. It embeds a BASE_TREE to which
+ * it adds its own implementation of anything that the base tree is not
+ * good for, plus a number of methods that any other adaptor type
+ * needs to implement too.
+ * \ingroup pANTLR3_COMMON_TREE_ADAPTOR
+ */
+
+// [The "BSD licence"]
+// Copyright (c) 2005-2009 Jim Idle, Temporal Wave LLC
+// http://www.temporal-wave.com
+// http://www.linkedin.com/in/jimidle
+//
+// All rights reserved.
+//
+// Redistribution and use in source and binary forms, with or without
+// modification, are permitted provided that the following conditions
+// are met:
+// 1. Redistributions of source code must retain the above copyright
+// notice, this list of conditions and the following disclaimer.
+// 2. Redistributions in binary form must reproduce the above copyright
+// notice, this list of conditions and the following disclaimer in the
+// documentation and/or other materials provided with the distribution.
+// 3. The name of the author may not be used to endorse or promote products
+// derived from this software without specific prior written permission.
+//
+// THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+// IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+// OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+// IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+// NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+// THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+#include <antlr3commontreeadaptor.h>
+
+#ifdef ANTLR3_WINDOWS
+#pragma warning( disable : 4100 )
+#endif
+
+/* BASE_TREE_ADAPTOR overrides... */
+static pANTLR3_BASE_TREE dupNode (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE treeNode);
+static pANTLR3_BASE_TREE create (pANTLR3_BASE_TREE_ADAPTOR adpator, pANTLR3_COMMON_TOKEN payload);
+static pANTLR3_BASE_TREE dbgCreate (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN payload);
+static pANTLR3_COMMON_TOKEN createToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, ANTLR3_UINT32 tokenType, pANTLR3_UINT8 text);
+static pANTLR3_COMMON_TOKEN createTokenFromToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN fromToken);
+static pANTLR3_COMMON_TOKEN getToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
+static pANTLR3_STRING getText (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
+static ANTLR3_UINT32 getType (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
+static pANTLR3_BASE_TREE getChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i);
+static ANTLR3_UINT32 getChildCount (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
+static void replaceChildren (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE parent, ANTLR3_INT32 startChildIndex, ANTLR3_INT32 stopChildIndex, pANTLR3_BASE_TREE t);
+static void setDebugEventListener (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_DEBUG_EVENT_LISTENER debugger);
+static void setChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_INT32 i);
+static ANTLR3_INT32 getChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
+static void setParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child, pANTLR3_BASE_TREE parent);
+static pANTLR3_BASE_TREE getParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child);
+static void setChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i, pANTLR3_BASE_TREE child);
+static void deleteChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i);
+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);
+/* Methods specific to each tree adaptor
+ */
+static void setTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken);
+static void dbgSetTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken);
+static ANTLR3_MARKER getTokenStartIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
+static ANTLR3_MARKER getTokenStopIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t);
+
+static void ctaFree (pANTLR3_BASE_TREE_ADAPTOR adaptor);
+
+/** Create a new tree adaptor. Note that despite the fact that this is
+ * creating a new COMMON_TREE adaptor, we return the address of the
+ * BASE_TREE interface, as should any other adaptor that wishes to be
+ * used as the tree element of a tree parse/build. It needs to be given the
+ * address of a valid string factory as we do not know what the originating
+ * input stream encoding type was. This way we can rely on just using
+ * the original input stream's string factory or one of the correct type
+ * which the user supplies us.
+ */
+ANTLR3_API pANTLR3_BASE_TREE_ADAPTOR
+ANTLR3_TREE_ADAPTORNew(pANTLR3_STRING_FACTORY strFactory)
+{
+ pANTLR3_COMMON_TREE_ADAPTOR cta;
+
+ // First job is to create the memory we need for the tree adaptor interface.
+ //
+ cta = (pANTLR3_COMMON_TREE_ADAPTOR) ANTLR3_MALLOC((size_t)(sizeof(ANTLR3_COMMON_TREE_ADAPTOR)));
+
+ if (cta == NULL)
+ {
+ return NULL;
+ }
+
+ // Memory is initialized, so initialize the base tree adaptor
+ //
+ antlr3BaseTreeAdaptorInit(&(cta->baseAdaptor), NULL);
+
+ // Install our interface overrides. Strangeness is to allow generated code to treat them
+ // as returning void *
+ //
+ cta->baseAdaptor.dupNode = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
+ dupNode;
+ cta->baseAdaptor.create = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_COMMON_TOKEN))
+ create;
+ cta->baseAdaptor.createToken =
+ createToken;
+ cta->baseAdaptor.createTokenFromToken =
+ createTokenFromToken;
+ cta->baseAdaptor.setTokenBoundaries = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN))
+ setTokenBoundaries;
+ cta->baseAdaptor.getTokenStartIndex = (ANTLR3_MARKER (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
+ getTokenStartIndex;
+ cta->baseAdaptor.getTokenStopIndex = (ANTLR3_MARKER (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
+ getTokenStopIndex;
+ cta->baseAdaptor.getText = (pANTLR3_STRING (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
+ getText;
+ cta->baseAdaptor.getType = (ANTLR3_UINT32 (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
+ getType;
+ cta->baseAdaptor.getChild = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32))
+ getChild;
+ cta->baseAdaptor.setChild = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32, void *))
+ setChild;
+ cta->baseAdaptor.setParent = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, void *))
+ setParent;
+ cta->baseAdaptor.getParent = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
+ getParent;
+ cta->baseAdaptor.setChildIndex = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32))
+ setChildIndex;
+ cta->baseAdaptor.deleteChild = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_UINT32))
+ deleteChild;
+ cta->baseAdaptor.getChildCount = (ANTLR3_UINT32 (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
+ getChildCount;
+ cta->baseAdaptor.getChildIndex = (ANTLR3_INT32 (*) (pANTLR3_BASE_TREE_ADAPTOR, void *))
+ getChildIndex;
+ cta->baseAdaptor.free = (void (*) (pANTLR3_BASE_TREE_ADAPTOR))
+ ctaFree;
+ cta->baseAdaptor.setDebugEventListener =
+ setDebugEventListener;
+ cta->baseAdaptor.replaceChildren = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, ANTLR3_INT32, ANTLR3_INT32, void *))
+ replaceChildren;
+ cta->baseAdaptor.errorNode = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_TOKEN_STREAM, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN, pANTLR3_EXCEPTION))
+ errorNode;
+
+ // Install the super class pointer
+ //
+ cta->baseAdaptor.super = cta;
+
+ // Install a tree factory for creating new tree nodes
+ //
+ cta->arboretum = antlr3ArboretumNew(strFactory);
+
+ // Install a token factory for imaginary tokens, these imaginary
+ // tokens do not require access to the input stream so we can
+ // dummy the creation of it, but they will need a string factory.
+ //
+ cta->baseAdaptor.tokenFactory = antlr3TokenFactoryNew(NULL);
+ cta->baseAdaptor.tokenFactory->unTruc.strFactory = strFactory;
+
+ // Allow the base tree adaptor to share the tree factory's string factory.
+ //
+ cta->baseAdaptor.strFactory = strFactory;
+
+ // Return the address of the base adaptor interface.
+ //
+ return &(cta->baseAdaptor);
+}
+
+/// Debugging version of the tree adaptor (not normally called as generated code
+/// calls setDebugEventListener instead which changes a normal token stream to
+/// a debugging stream and means that a user's instantiation code does not need
+/// to be changed just to debug with AW.
+///
+ANTLR3_API pANTLR3_BASE_TREE_ADAPTOR
+ANTLR3_TREE_ADAPTORDebugNew(pANTLR3_STRING_FACTORY strFactory, pANTLR3_DEBUG_EVENT_LISTENER debugger)
+{
+ pANTLR3_BASE_TREE_ADAPTOR ta;
+
+ // Create a normal one first
+ //
+ ta = ANTLR3_TREE_ADAPTORNew(strFactory);
+
+ if (ta != NULL)
+ {
+ // Reinitialize as a debug version
+ //
+ antlr3BaseTreeAdaptorInit(ta, debugger);
+ ta->create = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_COMMON_TOKEN))
+ dbgCreate;
+ ta->setTokenBoundaries = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN))
+ dbgSetTokenBoundaries;
+ }
+
+ return ta;
+}
+
+/// Causes an existing common tree adaptor to become a debug version
+///
+static void
+setDebugEventListener (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_DEBUG_EVENT_LISTENER debugger)
+{
+ // Reinitialize as a debug version
+ //
+ antlr3BaseTreeAdaptorInit(adaptor, debugger);
+
+ adaptor->create = (void * (*) (pANTLR3_BASE_TREE_ADAPTOR, pANTLR3_COMMON_TOKEN))
+ dbgCreate;
+ adaptor->setTokenBoundaries = (void (*) (pANTLR3_BASE_TREE_ADAPTOR, void *, pANTLR3_COMMON_TOKEN, pANTLR3_COMMON_TOKEN))
+ dbgSetTokenBoundaries;
+
+}
+
+static void
+ctaFree(pANTLR3_BASE_TREE_ADAPTOR adaptor)
+{
+ pANTLR3_COMMON_TREE_ADAPTOR cta;
+
+ cta = (pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super);
+
+ /* Free the tree factory we created
+ */
+ cta->arboretum->close(((pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super))->arboretum);
+
+ /* Free the token factory we created
+ */
+ adaptor->tokenFactory->close(adaptor->tokenFactory);
+
+ /* Free the super pointer, as it is this that was allocated
+ * and is the common tree structure.
+ */
+ ANTLR3_FREE(adaptor->super);
+}
+
+/* BASE_TREE_ADAPTOR overrides */
+
+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)
+{
+ // Use the supplied common tree node stream to get another tree from the factory
+ // TODO: Look at creating the erronode as in Java, but this is complicated by the
+ // need to track and free the memory allocated to it, so for now, we just
+ // want something in the tree that isn't a NULL pointer.
+ //
+ return adaptor->createTypeText(adaptor, ANTLR3_TOKEN_INVALID, (pANTLR3_UINT8)"Tree Error Node");
+
+}
+
+/** Duplicate the supplied node.
+ */
+static pANTLR3_BASE_TREE
+dupNode (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE treeNode)
+{
+ return treeNode == NULL ? NULL : treeNode->dupNode(treeNode);
+}
+
+static pANTLR3_BASE_TREE
+create (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN payload)
+{
+ pANTLR3_BASE_TREE ct;
+
+ /* Create a new common tree as this is what this adaptor deals with
+ */
+ ct = ((pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super))->arboretum->newFromToken(((pANTLR3_COMMON_TREE_ADAPTOR)(adaptor->super))->arboretum, payload);
+
+ /* But all adaptors return the pointer to the base interface.
+ */
+ return ct;
+}
+static pANTLR3_BASE_TREE
+dbgCreate (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN payload)
+{
+ pANTLR3_BASE_TREE ct;
+
+ ct = create(adaptor, payload);
+ adaptor->debugger->createNode(adaptor->debugger, ct);
+
+ return ct;
+}
+
+/** Tell me how to create a token for use with imaginary token nodes.
+ * For example, there is probably no input symbol associated with imaginary
+ * token DECL, but you need to create it as a payload or whatever for
+ * the DECL node as in ^(DECL type ID).
+ *
+ * If you care what the token payload objects' type is, you should
+ * override this method and any other createToken variant.
+ */
+static pANTLR3_COMMON_TOKEN
+createToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, ANTLR3_UINT32 tokenType, pANTLR3_UINT8 text)
+{
+ pANTLR3_COMMON_TOKEN newToken;
+
+ newToken = adaptor->tokenFactory->newToken(adaptor->tokenFactory);
+
+ if (newToken != NULL)
+ {
+ newToken->textState = ANTLR3_TEXT_CHARP;
+ newToken->tokText.chars = (pANTLR3_UCHAR)text;
+ newToken->setType(newToken, tokenType);
+ newToken->input = adaptor->tokenFactory->input;
+ newToken->strFactory = adaptor->strFactory;
+ }
+ return newToken;
+}
+
+/** Tell me how to create a token for use with imaginary token nodes.
+ * For example, there is probably no input symbol associated with imaginary
+ * token DECL, but you need to create it as a payload or whatever for
+ * the DECL node as in ^(DECL type ID).
+ *
+ * This is a variant of createToken where the new token is derived from
+ * an actual real input token. Typically this is for converting '{'
+ * tokens to BLOCK etc... You'll see
+ *
+ * r : lc='{' ID+ '}' -> ^(BLOCK[$lc] ID+) ;
+ *
+ * If you care what the token payload objects' type is, you should
+ * override this method and any other createToken variant.
+ *
+ * NB: this being C it is not so easy to extend the types of creaeteToken.
+ * We will have to see if anyone needs to do this and add any variants to
+ * this interface.
+ */
+static pANTLR3_COMMON_TOKEN
+createTokenFromToken (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_COMMON_TOKEN fromToken)
+{
+ pANTLR3_COMMON_TOKEN newToken;
+
+ newToken = adaptor->tokenFactory->newToken(adaptor->tokenFactory);
+
+ if (newToken != NULL)
+ {
+ // Create the text using our own string factory to avoid complicating
+ // commontoken.
+ //
+ pANTLR3_STRING text;
+
+ newToken->toString = fromToken->toString;
+
+ if (fromToken->textState == ANTLR3_TEXT_CHARP)
+ {
+ newToken->textState = ANTLR3_TEXT_CHARP;
+ newToken->tokText.chars = fromToken->tokText.chars;
+ }
+ else
+ {
+ text = fromToken->getText(fromToken);
+ newToken->textState = ANTLR3_TEXT_STRING;
+ newToken->tokText.text = adaptor->strFactory->newPtr(adaptor->strFactory, text->chars, text->len);
+ }
+
+ newToken->setLine (newToken, fromToken->getLine(fromToken));
+ newToken->setTokenIndex (newToken, fromToken->getTokenIndex(fromToken));
+ newToken->setCharPositionInLine (newToken, fromToken->getCharPositionInLine(fromToken));
+ newToken->setChannel (newToken, fromToken->getChannel(fromToken));
+ newToken->setType (newToken, fromToken->getType(fromToken));
+ }
+
+ return newToken;
+}
+
+/* Specific methods for a TreeAdaptor */
+
+/** Track start/stop token for subtree root created for a rule.
+ * Only works with CommonTree nodes. For rules that match nothing,
+ * seems like this will yield start=i and stop=i-1 in a nil node.
+ * Might be useful info so I'll not force to be i..i.
+ */
+static void
+setTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken)
+{
+ ANTLR3_MARKER start;
+ ANTLR3_MARKER stop;
+
+ pANTLR3_COMMON_TREE ct;
+
+ if (t == NULL)
+ {
+ return;
+ }
+
+ if ( startToken != NULL)
+ {
+ start = startToken->getTokenIndex(startToken);
+ }
+ else
+ {
+ start = 0;
+ }
+
+ if ( stopToken != NULL)
+ {
+ stop = stopToken->getTokenIndex(stopToken);
+ }
+ else
+ {
+ stop = 0;
+ }
+
+ ct = (pANTLR3_COMMON_TREE)(t->super);
+
+ ct->startIndex = start;
+ ct->stopIndex = stop;
+
+}
+static void
+dbgSetTokenBoundaries (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, pANTLR3_COMMON_TOKEN startToken, pANTLR3_COMMON_TOKEN stopToken)
+{
+ setTokenBoundaries(adaptor, t, startToken, stopToken);
+
+ if (t != NULL && startToken != NULL && stopToken != NULL)
+ {
+ adaptor->debugger->setTokenBoundaries(adaptor->debugger, t, startToken->getTokenIndex(startToken), stopToken->getTokenIndex(stopToken));
+ }
+}
+
+static ANTLR3_MARKER
+getTokenStartIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
+{
+ return ((pANTLR3_COMMON_TREE)(t->super))->startIndex;
+}
+
+static ANTLR3_MARKER
+getTokenStopIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
+{
+ return ((pANTLR3_COMMON_TREE)(t->super))->stopIndex;
+}
+
+static pANTLR3_STRING
+getText (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
+{
+ return t->getText(t);
+}
+
+static ANTLR3_UINT32
+getType (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
+{
+ return t->getType(t);
+}
+
+static void
+replaceChildren
+(pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE parent, ANTLR3_INT32 startChildIndex, ANTLR3_INT32 stopChildIndex, pANTLR3_BASE_TREE t)
+{
+ if (parent != NULL)
+ {
+ parent->replaceChildren(parent, startChildIndex, stopChildIndex, t);
+ }
+}
+
+static pANTLR3_BASE_TREE
+getChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i)
+{
+ return t->getChild(t, i);
+}
+static void
+setChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i, pANTLR3_BASE_TREE child)
+{
+ t->setChild(t, i, child);
+}
+
+static void
+deleteChild (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_UINT32 i)
+{
+ t->deleteChild(t, i);
+}
+
+static ANTLR3_UINT32
+getChildCount (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
+{
+ return t->getChildCount(t);
+}
+
+static void
+setChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t, ANTLR3_INT32 i)
+{
+ t->setChildIndex(t, i);
+}
+
+static ANTLR3_INT32
+getChildIndex (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE t)
+{
+ return t->getChildIndex(t);
+}
+static void
+setParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child, pANTLR3_BASE_TREE parent)
+{
+ child->setParent(child, parent);
+}
+static pANTLR3_BASE_TREE
+getParent (pANTLR3_BASE_TREE_ADAPTOR adaptor, pANTLR3_BASE_TREE child)
+{
+ return child->getParent(child);
+}
Code Review / simantics / platform.git / blobdiff