[agd-cvs] server/src vars.h,1.4,1.5 vars.c,1.8,1.9

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27312

Modified Files:
	vars.h vars.c 
Log Message:
Added type2str.

Index: vars.c
===================================================================
RCS file: /cvsroot/agd/server/src/vars.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- vars.c	21 Mar 2004 08:50:29 -0000	1.8
+++ vars.c	21 Mar 2004 10:34:15 -0000	1.9
@@ -233,3 +233,18 @@
 	}
 }
 
+/* lang.y uses this. */
+char *type2str(variable_t *v)
+{
+	switch(v->type) {
+		case T_INT:
+			return "int";
+		case T_STRING:
+			return "string";
+		case T_OBJECT:
+			return "object";
+		default:
+			return "unknown";
+	}
+}
+

Index: vars.h
===================================================================
RCS file: /cvsroot/agd/server/src/vars.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- vars.h	12 Mar 2004 08:40:10 -0000	1.4
+++ vars.h	21 Mar 2004 10:34:15 -0000	1.5
@@ -12,4 +12,6 @@
 void assign_var(variable_t *dest, variable_t *src);
 void assign_var_value(variable_t *var, void *val);
 
+char *type2str(variable_t *v);
+
 #endif