All lower case now.

git-svn-id: https://svn.code.sf.net/p/fteqw/code/trunk@155 fc73d0e0-1445-4013-8a0c-d673dee63da5
2004-09-07 18:16:59 +00:00 · 2004-09-07 18:16:59 +00:00 · 5a872df165
commit 5a872df165
parent 5f54ced9b8
6 changed files with 5745 additions and 0 deletions
--- a/engine/qclib/comprout.c
+++ b/engine/qclib/comprout.c
@ -0,0 +1,238 @@
+//compile routines
+
+#include "qcc.h"
+#undef progfuncs
+
+char errorfile[128];
+int errorline;
+
+progfuncs_t *qccprogfuncs;
+
+#include <setjmp.h>
+
+extern int qcc_compileactive;
+jmp_buf qcccompileerror;
+char qcc_gamedir[128];
+
+
+
+#ifdef MINIMAL
+
+#else
+
+int qccalloced;
+int qcchunksize;
+char *qcchunk;
+void *qccHunkAlloc(size_t mem)
+{
+	qccalloced+=mem;
+	if (qccalloced > qcchunksize)
+		QCC_Error(ERR_INTERNAL, "Compile hunk was filled");
+
+	memset(qcchunk+qccalloced-mem, 0, mem);
+	return qcchunk+qccalloced-mem;
+}
+void qccClearHunk(void)
+{
+	if (qcchunk)
+	{
+		free(qcchunk);
+		qcchunk=NULL;
+	}
+}
+void PostCompile(void)
+{
+#ifndef QCCONLY	//QCCONLY has a frontend that browses defs.
+	qccClearHunk();
+#endif
+
+	if (asmfile)
+	{
+		fclose(asmfile);
+		asmfile = NULL;
+	}	
+}
+void PreCompile(void)
+{
+	qccClearHunk();
+	strcpy(qcc_gamedir, "");
+	qcchunk = malloc(qcchunksize=16*1024*1024);
+	qccalloced=0;
+}
+
+void QCC_main (int argc, char **argv);
+void QCC_ContinueCompile(void);
+void QCC_FinishCompile(void);
+
+int comp_nump;char **comp_parms;
+//void Editor(char *fname, int line, int numparms, char **compileparms);
+pbool CompileParams(progfuncs_t *progfuncs, int doall, int nump, char **parms)
+{
+	comp_nump = nump;
+	comp_parms = parms;
+	*errorfile = '\0';
+	qccprogfuncs = progfuncs;
+	if (setjmp(qcccompileerror))
+	{
+		PostCompile();
+		if (*errorfile)
+		{
+			if (!externs->useeditor)
+				printf("Error in %s on line %i\n", errorfile, errorline);
+			else
+				externs->useeditor(errorfile, errorline, nump, parms);
+		}
+		return false;
+	}
+
+	PreCompile();
+	QCC_main(nump, parms);
+
+	while(qcc_compileactive)
+		QCC_ContinueCompile();
+
+	PostCompile();
+
+	return true;
+}
+int Comp_Begin(progfuncs_t *progfuncs, int nump, char **parms)
+{
+	comp_nump = nump;
+	comp_parms = parms;
+	qccprogfuncs = progfuncs;
+	*errorfile = '\0';
+	if (setjmp(qcccompileerror))
+	{
+		PostCompile();
+		if (*errorfile)
+			externs->useeditor(errorfile, errorline, nump, parms);
+		return false;
+	}
+
+	PreCompile();
+	QCC_main(nump, parms);
+
+	return true;
+}
+int Comp_Continue(progfuncs_t *progfuncs)
+{	
+	qccprogfuncs = progfuncs;
+	if (setjmp(qcccompileerror))
+	{
+		PostCompile();
+		if (*errorfile)
+			externs->useeditor(errorfile, errorline, comp_nump, comp_parms);
+		return false;
+	}
+
+	if (qcc_compileactive)
+		QCC_ContinueCompile();
+	else
+	{
+		PostCompile();
+
+		if (*errorfile)
+			externs->useeditor(errorfile, errorline, comp_nump, comp_parms);
+
+		return false;
+	}
+
+	return true;
+}
+#endif
+pbool CompileFile(progfuncs_t *progfuncs, char *filename)
+{	
+#ifdef MINIMAL
+	return false;
+#else
+	char srcfile[32];
+	char newname[32];
+	static char *p[5];
+	int parms;
+	char *s, *s2;
+	
+	p[0] = NULL;
+	parms = 1;
+	
+	strcpy(newname, filename);
+	s = newname;
+	if (strchr(s+1, '/'))
+	{
+		while(1)
+		{
+			s2 = strchr(s+1, '/');
+			if (!s2)
+			{
+				*s = '\0';
+				break;
+			}
+			s = s2;
+		}
+		p[parms] = "-src";
+		p[parms+1] = newname;
+		parms+=2;	
+		
+		strcpy(srcfile, s+1);
+		srcfile[strlen(srcfile)-4] = '\0';
+		strcat(srcfile, ".src");
+
+		if (externs->FileSize(qcva("%s/%s", newname, srcfile))>0)
+		{
+			p[parms] = "-srcfile";
+			p[parms+1] = srcfile;
+			parms+=2;
+		}
+	}
+	else
+	{
+		p[parms] = "-srcfile";
+		p[parms+1] = newname;
+		newname[strlen(newname)-4] = '\0';
+		strcat(newname, ".src");
+		parms+=2;
+	}
+//	p[2][strlen(p[2])-4] = '\0';
+//	strcat(p[2], "/");
+
+	while (!CompileParams(progfuncs, true, parms, p))
+	{
+		return false;
+	}
+	return true;
+#endif
+}
+
+int QC_strncasecmp(const char *s1, const char *s2, int n)
+{
+	int             c1, c2;
+	
+	while (1)
+	{
+		c1 = *s1++;
+		c2 = *s2++;
+
+		if (!n--)
+			return 0;               // strings are equal until end point
+		
+		if (c1 != c2)
+		{
+			if (c1 >= 'a' && c1 <= 'z')
+				c1 -= ('a' - 'A');
+			if (c2 >= 'a' && c2 <= 'z')
+				c2 -= ('a' - 'A');
+			if (c1 != c2)
+				return -1;              // strings not equal
+		}
+		if (!c1)
+			return 0;               // strings are equal
+	}
+	
+	return -1;
+}
+
+void editbadfile(char *fname, int line)
+{
+	strcpy(errorfile, fname);
+	errorline = line;
+}
+