--- /dev/null
+/** \file\r
+ * Implementation of the base functionality for an ANTLR3 parser.\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 <antlr3parser.h>\r
+\r
+/* Parser API \r
+ */\r
+static void setDebugListener (pANTLR3_PARSER parser, pANTLR3_DEBUG_EVENT_LISTENER dbg);\r
+static void setTokenStream (pANTLR3_PARSER parser, pANTLR3_TOKEN_STREAM);\r
+static pANTLR3_TOKEN_STREAM getTokenStream (pANTLR3_PARSER parser);\r
+static void freeParser (pANTLR3_PARSER parser);\r
+\r
+ANTLR3_API pANTLR3_PARSER\r
+antlr3ParserNewStreamDbg (ANTLR3_UINT32 sizeHint, pANTLR3_TOKEN_STREAM tstream, pANTLR3_DEBUG_EVENT_LISTENER dbg, pANTLR3_RECOGNIZER_SHARED_STATE state)\r
+{\r
+ pANTLR3_PARSER parser;\r
+\r
+ parser = antlr3ParserNewStream(sizeHint, tstream, state);\r
+\r
+ if (parser == NULL)\r
+ {\r
+ return NULL;\r
+ }\r
+\r
+ parser->setDebugListener(parser, dbg);\r
+\r
+ return parser;\r
+}\r
+\r
+ANTLR3_API pANTLR3_PARSER\r
+antlr3ParserNew (ANTLR3_UINT32 sizeHint, pANTLR3_RECOGNIZER_SHARED_STATE state)\r
+{\r
+ pANTLR3_PARSER parser;\r
+\r
+ /* Allocate memory\r
+ */\r
+ parser = (pANTLR3_PARSER) ANTLR3_MALLOC(sizeof(ANTLR3_PARSER));\r
+\r
+ if (parser == NULL)\r
+ {\r
+ return NULL;\r
+ }\r
+\r
+ /* Install a base parser\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
+ parser->rec->super = parser;\r
+\r
+ /* Parser overrides\r
+ */\r
+ parser->rec->exConstruct = antlr3MTExceptionNew;\r
+\r
+ /* Install the API\r
+ */\r
+ parser->setDebugListener = setDebugListener;\r
+ parser->setTokenStream = setTokenStream;\r
+ parser->getTokenStream = getTokenStream;\r
+\r
+ parser->free = freeParser;\r
+\r
+ return parser;\r
+}\r
+\r
+ANTLR3_API pANTLR3_PARSER\r
+antlr3ParserNewStream (ANTLR3_UINT32 sizeHint, pANTLR3_TOKEN_STREAM tstream, pANTLR3_RECOGNIZER_SHARED_STATE state)\r
+{\r
+ pANTLR3_PARSER parser;\r
+\r
+ parser = antlr3ParserNew(sizeHint, state);\r
+\r
+ if (parser == NULL)\r
+ {\r
+ return NULL;\r
+ }\r
+\r
+ /* Everything seems to be hunky dory so we can install the \r
+ * token stream.\r
+ */\r
+ parser->setTokenStream(parser, tstream);\r
+\r
+ return parser;\r
+}\r
+\r
+static void \r
+freeParser (pANTLR3_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
+static void \r
+setDebugListener (pANTLR3_PARSER parser, pANTLR3_DEBUG_EVENT_LISTENER dbg)\r
+{\r
+ // Set the debug listener. There are no methods to override\r
+ // because currently the only ones that notify the debugger\r
+ // are error reporting and recovery. Hence we can afford to\r
+ // check and see if the debugger interface is null or not\r
+ // there. If there is ever an occasion for a performance\r
+ // sensitive function to use the debugger interface, then\r
+ // a replacement function for debug mode should be supplied\r
+ // and installed here.\r
+ //\r
+ parser->rec->debugger = dbg;\r
+\r
+ // If there was a tokenstream installed already\r
+ // then we need to tell it about the debug interface\r
+ //\r
+ if (parser->tstream != NULL)\r
+ {\r
+ parser->tstream->setDebugListener(parser->tstream, dbg);\r
+ }\r
+}\r
+\r
+static void \r
+setTokenStream (pANTLR3_PARSER parser, pANTLR3_TOKEN_STREAM tstream)\r
+{\r
+ parser->tstream = tstream;\r
+ parser->rec->reset(parser->rec);\r
+}\r
+\r
+static pANTLR3_TOKEN_STREAM \r
+getTokenStream (pANTLR3_PARSER parser)\r
+{\r
+ return parser->tstream;\r
+}\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+\r
Code Review / simantics / platform.git / blobdiff