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