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