Utils/Parser Generator/SOURCE/yyslex.c

@@ -0,0 +1,226 @@
+/************************************************************
+yyslex.c
+This file can be freely modified for the generation of
+custom code.
+
+Copyright (c) 1999 Bumble-Bee Software Ltd.
+************************************************************/
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <ctype.h>
+#include <limits.h>
+#include "lex.h"
+
+#ifdef YYPROTOTYPE
+int YYCDECL yylex(void)
+#else
+int YYCDECL yylex()
+#endif
+{
+	while (1) {
+		int oldleng;
+		int state = 1 + yystart;
+		if (yyeol) {
+			state++;
+		}
+	
+		/* yymore */
+		if (yymoreflg) {
+			yymoreflg = 0;		/* clear flag */
+		}
+		else {
+			yyleng = 0;
+			yyoldeol = yyeol;
+		}
+		oldleng = yyleng;
+
+		/* look for a string */
+		do {
+			int ch;		/* lookahead character */
+
+			/* get input character */
+			ch = yyinput();
+			yyassert(ch >= 0 && ch <= UCHAR_MAX || ch == EOF);
+			if (ch == EOF) {
+				break;
+			}
+			
+			/* check for possible overflow */
+			if (yyleng == yytext_size) {
+				do {
+					if (yytextgrow) {
+						if (yytext_size != 0) {
+							int size = yytext_size * 2;
+							if (size / 2 == yytext_size) {		/* overflow check */
+								if (yysettextsize(size)) {
+									break;
+								}
+							}
+						}
+						else {
+							if (yysettextsize(100)) {
+								break;
+							}
+						}
+					}
+					yytextoverflow();
+					exit(EXIT_FAILURE);
+				}
+				while (0);
+			}
+
+			/* look for a transition */
+			do {
+				int index = yystate[state].base + ch;
+				if (index >= 0 && index < yytransitionmax) {
+					if (yytransition[index].check == state) {
+						state = yytransition[index].next;
+						break;	/* found a transition */
+					}
+				}
+				state = yystate[state].def;
+				if (state < 0) {
+					if (ch >= 0 && ch <= 0xff) {
+						state = -state;
+					}
+					else {
+						state = 0;
+					}
+					break;		/* default transition */
+				}
+			}
+			while (state != 0);
+
+			{
+				int leng = yyleng;		/* slightly more efficient */
+				yytext[leng] = (char) ch;
+				yystatebuf[leng] = state;
+				leng++;
+				yyleng = leng;
+			}
+		}
+		while (state != 0 && (yystate[state].def != 0 || yystate[state].base != 0));
+
+		/* now find a match */
+		if (yyleng > oldleng) {
+			int rejectmatch = 0;
+			while (1) {
+				int match = yystate[yystatebuf[yyleng - 1]].match;
+				if (rejectmatch != 0) {
+					if (match < 0) {
+						int index = -match;
+						do {
+							match = yymatch[index++];
+						}
+						while (match > 0 && match <= rejectmatch);
+					}
+					else {
+						match = 0;
+					}
+					rejectmatch = 0;
+				}
+				else {
+					if (match < 0) {
+						match = yymatch[-match];
+					}
+				}
+				if (match > 0) {
+					int rejectleng;
+					int token;
+					/* check for backup */
+					if (yybackup[match]) {
+						while (yyleng > oldleng) {
+							int index = yystate[yystatebuf[yyleng - 1]].match;
+							if (index < 0) {
+								if (yyback(&yymatch[-index], -match)) {
+									break;	/* found an expression */
+								}
+							}
+							yyleng--;
+							yyunput((unsigned char) yytext[yyleng]);
+						}
+					}
+					yytext[yyleng] = '\0';
+#ifdef YYDEBUG
+					yydmatch(match);
+#endif
+					yyrejectflg = 0;		/* clear flag */
+					rejectleng = yyleng;
+
+					if (yyleng > 0) {
+						yyeol = (unsigned char) (yytext[yyleng - 1] == '\n');
+					}
+					else {
+						yyeol = yyoldeol;
+					}
+
+					/* perform user action */
+					token = yylexaction(match);
+
+					if (yyreturnflg) {
+						return token;
+					}
+					if (!yyrejectflg) {
+						break;
+					}
+					if (rejectleng == yyleng) {
+						rejectmatch = match;
+					}
+				}
+				else if (yyleng > oldleng + 1) {
+					yyleng--;
+					yyunput((unsigned char) yytext[yyleng]);
+				}
+				else {
+					yyeol = (unsigned char) (yytext[0] == '\n');
+					yyoutput(yytext[0]);	/* non-matched character */
+					break;
+				}
+			}
+		}
+		else {
+			int index;
+			int match;
+			yyassert(yyleng == oldleng);
+
+			/* handles <<EOF>> rules */
+			index = 0;
+			match = yystate[state].match;
+			if (match < 0) {
+				index = -match;
+				match = yymatch[index++];
+			}
+			while (match > 0) {
+				int token;
+				yytext[yyleng] = '\0';
+#ifdef YYDEBUG
+				yydmatch(match);
+#endif
+				yyrejectflg = 0;		/* clear flag */
+
+				/* perform user action */
+				token = yylexaction(match);
+
+				if (yyreturnflg) {
+					return token;
+				}
+				if (!yyrejectflg) {
+					break;
+				}
+
+				if (index == 0) {
+					break;
+				}
+				match = yymatch[index++];
+			}
+
+			if (yywrap()) {
+				yyoldeol = 1;
+				yyeol = 1;
+				yystart = 0;
+				return 0;			/* eof reached */
+			}
+		}
+	}
+}