--- /dev/null
+/** \file\r
+ * Implementation of the tree parser and overrides for the base recognizer\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 <antlr3treeparser.h>\r
+\r
+/* BASE Recognizer overrides\r
+ */\r
+static void mismatch (pANTLR3_BASE_RECOGNIZER recognizer, ANTLR3_UINT32 ttype, pANTLR3_BITSET_LIST follow);\r
+\r
+/* Tree parser API\r
+ */\r
+static void setTreeNodeStream (pANTLR3_TREE_PARSER parser, pANTLR3_COMMON_TREE_NODE_STREAM input);\r
+static pANTLR3_COMMON_TREE_NODE_STREAM \r
+ getTreeNodeStream (pANTLR3_TREE_PARSER parser);\r
+static void freeParser (pANTLR3_TREE_PARSER parser); \r
+static void * getCurrentInputSymbol (pANTLR3_BASE_RECOGNIZER recognizer, pANTLR3_INT_STREAM istream);\r
+static void * getMissingSymbol (pANTLR3_BASE_RECOGNIZER recognizer, pANTLR3_INT_STREAM istream, pANTLR3_EXCEPTION e,\r
+ ANTLR3_UINT32 expectedTokenType, pANTLR3_BITSET_LIST follow);\r
+\r
+\r
+ANTLR3_API pANTLR3_TREE_PARSER\r
+antlr3TreeParserNewStream(ANTLR3_UINT32 sizeHint, pANTLR3_COMMON_TREE_NODE_STREAM ctnstream, pANTLR3_RECOGNIZER_SHARED_STATE state)\r
+{\r
+ pANTLR3_TREE_PARSER parser;\r
+\r
+ /** Allocate tree parser memory\r
+ */\r
+ parser =(pANTLR3_TREE_PARSER) ANTLR3_MALLOC(sizeof(ANTLR3_TREE_PARSER));\r
+\r
+ if (parser == NULL)\r
+ {\r
+ return NULL;\r
+ }\r
+\r
+ /* Create and install a base recognizer which does most of the work for us\r
+ */\r
+ parser->rec = antlr3BaseRecognizerNew(ANTLR3_TYPE_PARSER, sizeHint, state);\r
+\r
+ if (parser->rec == NULL)\r
+ {\r
+ parser->free(parser);\r
+ return NULL;\r
+ }\r
+\r
+ /* Ensure we can track back to the tree parser super structure\r
+ * from the base recognizer structure\r
+ */\r
+ parser->rec->super = parser;\r
+ parser->rec->type = ANTLR3_TYPE_TREE_PARSER;\r
+\r
+ /* Install our base recognizer overrides\r
+ */\r
+ parser->rec->mismatch = mismatch;\r
+ parser->rec->exConstruct = antlr3MTNExceptionNew;\r
+ parser->rec->getCurrentInputSymbol = getCurrentInputSymbol;\r
+ parser->rec->getMissingSymbol = getMissingSymbol;\r
+\r
+ /* Install tree parser API\r
+ */\r
+ parser->getTreeNodeStream = getTreeNodeStream;\r
+ parser->setTreeNodeStream = setTreeNodeStream;\r
+ parser->free = freeParser;\r
+\r
+ /* Install the tree node stream\r
+ */\r
+ parser->setTreeNodeStream(parser, ctnstream);\r
+\r
+ return parser;\r
+}\r
+\r
+/**\r
+ * \brief\r
+ * Creates a new Mismatched Tree Nde Exception and inserts in the recognizer\r
+ * exception stack.\r
+ * \r
+ * \param recognizer\r
+ * Context pointer for this recognizer\r
+ * \r
+ */\r
+ANTLR3_API void\r
+antlr3MTNExceptionNew(pANTLR3_BASE_RECOGNIZER recognizer)\r
+{\r
+ /* Create a basic recognition exception structure\r
+ */\r
+ antlr3RecognitionExceptionNew(recognizer);\r
+\r
+ /* Now update it to indicate this is a Mismatched token exception\r
+ */\r
+ recognizer->state->exception->name = ANTLR3_MISMATCHED_TREE_NODE_NAME;\r
+ recognizer->state->exception->type = ANTLR3_MISMATCHED_TREE_NODE_EXCEPTION;\r
+\r
+ return;\r
+}\r
+\r
+\r
+static void\r
+freeParser (pANTLR3_TREE_PARSER parser)\r
+{\r
+ if (parser->rec != NULL)\r
+ {\r
+ // This may have ben a delegate or delegator parser, in which case the\r
+ // state may already have been freed (and set to NULL therefore)\r
+ // so we ignore the state if we don't have it.\r
+ //\r
+ if (parser->rec->state != NULL)\r
+ {\r
+ if (parser->rec->state->following != NULL)\r
+ {\r
+ parser->rec->state->following->free(parser->rec->state->following);\r
+ parser->rec->state->following = NULL;\r
+ }\r
+ }\r
+ parser->rec->free(parser->rec);\r
+ parser->rec = NULL;\r
+ }\r
+\r
+ ANTLR3_FREE(parser);\r
+}\r
+\r
+/** Set the input stream and reset the parser\r
+ */\r
+static void\r
+setTreeNodeStream (pANTLR3_TREE_PARSER parser, pANTLR3_COMMON_TREE_NODE_STREAM input)\r
+{\r
+ parser->ctnstream = input;\r
+ parser->rec->reset (parser->rec);\r
+ parser->ctnstream->reset (parser->ctnstream);\r
+}\r
+\r
+/** Return a pointer to the input stream\r
+ */\r
+static pANTLR3_COMMON_TREE_NODE_STREAM\r
+getTreeNodeStream (pANTLR3_TREE_PARSER parser)\r
+{\r
+ return parser->ctnstream;\r
+}\r
+\r
+\r
+/** Override for standard base recognizer mismatch function\r
+ * as we have DOWN/UP nodes in the stream that have no line info,\r
+ * plus we want to alter the exception type.\r
+ */\r
+static void\r
+mismatch (pANTLR3_BASE_RECOGNIZER recognizer, ANTLR3_UINT32 ttype, pANTLR3_BITSET_LIST follow)\r
+{\r
+ recognizer->exConstruct(recognizer);\r
+ recognizer->recoverFromMismatchedToken(recognizer, ttype, follow);\r
+}\r
+\r
+#ifdef ANTLR3_WINDOWS\r
+#pragma warning (push)\r
+#pragma warning (disable : 4100)\r
+#endif\r
+\r
+// Default implementation is for parser and assumes a token stream as supplied by the runtime.\r
+// You MAY need override this function if the standard TOKEN_STREAM is not what you are using.\r
+//\r
+static void * \r
+getCurrentInputSymbol (pANTLR3_BASE_RECOGNIZER recognizer, pANTLR3_INT_STREAM istream)\r
+{\r
+ pANTLR3_TREE_NODE_STREAM tns;\r
+ pANTLR3_COMMON_TREE_NODE_STREAM ctns;\r
+\r
+ tns = (pANTLR3_TREE_NODE_STREAM)(istream->super);\r
+ ctns = tns->ctns;\r
+ return tns->_LT(tns, 1);\r
+}\r
+\r
+\r
+// Default implementation is for parser and assumes a token stream as supplied by the runtime.\r
+// You MAY need override this function if the standard BASE_TREE is not what you are using.\r
+//\r
+static void * \r
+getMissingSymbol (pANTLR3_BASE_RECOGNIZER recognizer, pANTLR3_INT_STREAM istream, pANTLR3_EXCEPTION e,\r
+ ANTLR3_UINT32 expectedTokenType, pANTLR3_BITSET_LIST follow)\r
+{\r
+ pANTLR3_TREE_NODE_STREAM tns;\r
+ pANTLR3_COMMON_TREE_NODE_STREAM ctns;\r
+ pANTLR3_BASE_TREE node;\r
+ pANTLR3_BASE_TREE current;\r
+ pANTLR3_COMMON_TOKEN token;\r
+ pANTLR3_STRING text;\r
+ ANTLR3_INT32 i;\r
+\r
+ // Dereference the standard pointers\r
+ //\r
+ tns = (pANTLR3_TREE_NODE_STREAM)(istream->super);\r
+ ctns = tns->ctns;\r
+ \r
+ // Create a new empty node, by stealing the current one, or the previous one if the current one is EOF\r
+ //\r
+ current = tns->_LT(tns, 1);\r
+ i = -1;\r
+\r
+ if (current == &ctns->EOF_NODE.baseTree)\r
+ {\r
+ current = tns->_LT(tns, -1);\r
+ i--;\r
+ }\r
+ while (((pANTLR3_COMMON_TREE)(current->super))->factory == NULL)\r
+ {\r
+ current = tns->_LT(tns, i--);\r
+ }\r
+\r
+ node = current->dupNode(current);\r
+\r
+ // Find the newly dupicated token\r
+ //\r
+ token = node->getToken(node);\r
+\r
+ // Create the token text that shows it has been inserted\r
+ //\r
+ token->setText8 (token, (pANTLR3_UINT8)"<missing ");\r
+ text = token->getText (token);\r
+ text->append8 (text, (const char *)recognizer->state->tokenNames[expectedTokenType]);\r
+ text->append8 (text, (const char *)">");\r
+ \r
+ // Finally return the pointer to our new node\r
+ //\r
+ return node;\r
+}\r
+#ifdef ANTLR3_WINDOWS\r
+#pragma warning (pop)\r
+#endif\r
+\r
Code Review / simantics / platform.git / blobdiff