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
|
