--- /dev/null
+/** \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
Code Review / simantics / platform.git / blobdiff