Utils/Parser Generator/SOURCE/yymlcrea.c

@@ -0,0 +1,90 @@
+/************************************************************
+yymlcrea.c
+This file can be freely modified for the generation of
+custom code.
+
+Copyright (c) 1999 Bumble-Bee Software Ltd.
+************************************************************/
+
+#include "mlex.h"
+#include <stdlib.h>
+
+#ifdef YYPROTOTYPE
+int YYCDECL yymcreatelex(yymlex_t YYFAR *yy, YYCONST yymlex_t YYFAR *src)
+#else
+int YYCDECL yymcreatelex(yy, src)
+yymlex_t YYFAR *yy;
+YYCONST yymlex_t YYFAR *src;
+#endif
+{
+	size_t textcharsize;
+	size_t statebufcharsize;
+	size_t unputbufcharsize;
+	yyassert(yy != NULL);
+	yyassert(src != NULL);
+
+	*yy = *src;
+
+	/* get sizes first */
+	textcharsize = yy->yymstext_size + 1;	/* include the '\0' */
+	if (textcharsize <= (size_t) yy->yymstext_size) {
+		return 0;		/* integer overflow */
+	}
+	if (yy->yymstext_size != 0) {
+		statebufcharsize = yy->yymstext_size * sizeof(int);
+		if ((int) (statebufcharsize / sizeof(int)) != yy->yymstext_size) {
+			return 0;		/* integer overflow */
+		}
+	}
+	else {
+		statebufcharsize = 0;
+	}
+	if (yy->yymsunput_size != 0) {
+		unputbufcharsize = yy->yymsunput_size * sizeof(int);
+		if ((int) (unputbufcharsize / sizeof(int)) != yy->yymsunput_size) {
+			return 0;		/* integer overflow */
+		}
+	}
+	else {
+		unputbufcharsize = 0;
+	}
+
+	/* allocate the memory if necessary */
+	yy->yymstext = (char YYFAR *) malloc(textcharsize);
+	if (yy->yymstext == NULL) {
+		return 0;
+	}
+	if (statebufcharsize != 0) {
+		yy->yymsstatebuf = (int YYFAR *) malloc(statebufcharsize);
+		if (yy->yymsstatebuf == NULL) {
+			free(yy->yymstext);
+			return 0;
+		}
+	}
+	else {
+		yy->yymsstatebuf = NULL;
+	}
+	if (unputbufcharsize != 0) {
+		yy->yymsunputbufptr = (int YYFAR *) malloc(unputbufcharsize);
+		if (yy->yymsunputbufptr == NULL) {
+			free(yy->yymstext);
+			free(yy->yymsstatebuf);
+			return 0;
+		}
+	}
+	else {
+		yy->yymsunputbufptr = NULL;
+	}
+
+	/* assign any other variables */
+	yy->yymtext_size = yy->yymstext_size;
+	yy->yymtext = yy->yymstext;
+	yy->yymstatebuf = yy->yymsstatebuf;
+	yy->yymunput_size = yy->yymsunput_size;
+	yy->yymunputbufptr = yy->yymsunputbufptr;
+
+	/* make sure we are ready to go */
+	yymreset(yy);
+
+	return 1;
+}