Mercurial > botc / changeset

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/variables.cxx	Sun Jul 15 00:32:26 2012 +0300
@@ -0,0 +1,122 @@
+/*
+ *	botc source code
+ *	Copyright (C) 2012 Santeri `Dusk` Piippo
+ *	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. Neither the name of the developer nor the names of its contributors may
+ *	   be used to endorse or promote products derived from this software without
+ *	   specific prior written permission.
+ *	4. Redistributions in any form must be accompanied by information on how to
+ *	   obtain complete source code for the software and any accompanying
+ *	   software that uses the software. The source code must either be included
+ *	   in the distribution or be available for no more than the cost of
+ *	   distribution plus a nominal fee, and must be freely redistributable
+ *	   under reasonable conditions. For an executable file, complete source
+ *	   code means the source code for all modules it contains. It does not
+ *	   include source code for modules or files that typically accompany the
+ *	   major components of the operating system on which the executable file
+ *	   runs.
+ *	
+ *	THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "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 COPYRIGHT HOLDER OR CONTRIBUTORS 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.
+ */
+
+#define __VARIABLES_CXX__
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "common.h"
+#include "bots.h"
+#include "botcommands.h"
+#include "objwriter.h"
+#include "stringtable.h"
+#include "variables.h"
+#include "scriptreader.h"
+
+ScriptVar* g_GlobalVariables[MAX_SCRIPT_VARIABLES];
+ScriptVar* g_LocalVariable;
+
+void InitVariables () {
+	unsigned int u;
+	ITERATE_GLOBAL_VARS (u)
+		g_GlobalVariables[u] = NULL;
+}
+
+// Tries to declare a new global-scope variable. Returns pointer
+// to new global variable, NULL if declaration failed.
+ScriptVar* DeclareGlobalVariable (ScriptReader* r, str name, int type) {
+	// Apparently the Zandronum engine does not support string variables..
+	if (type == RETURNVAL_VOID || type == RETURNVAL_STRING)
+		return NULL;
+	
+	// Find a NULL pointer to a global variable
+	ScriptVar* g;
+	unsigned int u = 0;
+	ITERATE_GLOBAL_VARS (u) {
+		// Check that it doesn't exist already
+		if (!g_GlobalVariables[u])
+			break;
+		
+		if (!g_GlobalVariables[u]->name.icompare (name))
+			r->ParserError ("tried to declare global scope variable %s twice", name.chars());
+	}
+	
+	if (u == MAX_SCRIPT_VARIABLES)
+		r->ParserError ("too many global variables!");
+	
+	g = new ScriptVar;
+	g->index = u;
+	g->name = name;
+	g->statename = "";
+	g->type = type;
+	g->next = NULL;
+	g->value =	(type == RETURNVAL_BOOLEAN) ? "false" :
+			(type == RETURNVAL_INT) ? "0" : "";
+	
+	g_GlobalVariables[u] = g;
+	return g;
+}
+
+/*void AssignScriptVariable (ScriptReader* r, str name, str value) {
+	ScriptVar* g = FindScriptVariable (name);
+	if (!g)
+		r->ParserError ("global variable %s not declared", name.chars());
+}*/
+
+// Find a global variable by name
+/* ScriptVar* FindScriptVariable (str name) {
+	ScriptVar* g;
+	ITERATE_SCRIPT_VARS (g)
+		if (!g->name.compare (name))
+			return g;
+	
+	return NULL;
+}*/
+
+unsigned int CountGlobalVars () {
+	ScriptVar* var;
+	unsigned int count = 0;
+	unsigned int u = 0;
+	ITERATE_GLOBAL_VARS (u) {
+		if (g_GlobalVariables[u] != NULL)
+			count++;
+	}
+	return count;
+}
\ No newline at end of file

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/variables.h	Sun Jul 15 00:32:26 2012 +0300
@@ -0,0 +1,69 @@
+/*
+ *	botc source code
+ *	Copyright (C) 2012 Santeri `Dusk` Piippo
+ *	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. Neither the name of the developer nor the names of its contributors may
+ *	   be used to endorse or promote products derived from this software without
+ *	   specific prior written permission.
+ *	4. Redistributions in any form must be accompanied by information on how to
+ *	   obtain complete source code for the software and any accompanying
+ *	   software that uses the software. The source code must either be included
+ *	   in the distribution or be available for no more than the cost of
+ *	   distribution plus a nominal fee, and must be freely redistributable
+ *	   under reasonable conditions. For an executable file, complete source
+ *	   code means the source code for all modules it contains. It does not
+ *	   include source code for modules or files that typically accompany the
+ *	   major components of the operating system on which the executable file
+ *	   runs.
+ *	
+ *	THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "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 COPYRIGHT HOLDER OR CONTRIBUTORS 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.
+ */
+
+#ifndef __VARIABLES_H__
+#define __VARIABLES_H__
+#include "str.h"
+#include "scriptreader.h"
+
+struct ScriptVar {
+	int type;
+	str name;
+	str statename;
+	str value;
+	unsigned int index;
+	ScriptVar* next;
+};
+
+#ifndef __VARIABLES_CXX__
+extern ScriptVar* g_GlobalVariables[MAX_SCRIPT_VARIABLES];
+extern ScriptVar* g_LocalVariable;
+#endif // __VARIABLES_CXX__
+
+#define ITERATE_GLOBAL_VARS(u) \
+	for (u = 0; u < MAX_SCRIPT_VARIABLES; u++)
+#define ITERATE_SCRIPT_VARS(g) \
+	for (g = g_ScriptVariable; g != NULL; g = g->next)
+
+ScriptVar* DeclareGlobalVariable (ScriptReader* r, str name, int type);
+unsigned int CountGlobalVars ();
+void InitVariables ();
+
+#endif // __VARIABLES_H__
\ No newline at end of file