[agd-cvs] server/src dfuns.c,1.11,1.12 dfdecl.in,1.4,1.5

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

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

Modified Files:
	dfuns.c dfdecl.in 
Log Message:
Added random() dfun.

Index: dfuns.c
===================================================================
RCS file: /cvsroot/agd/server/src/dfuns.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- dfuns.c	15 Mar 2004 18:44:09 -0000	1.11
+++ dfuns.c	16 Mar 2004 20:12:37 -0000	1.12
@@ -241,6 +241,15 @@
 	push_int(ret);
 }
 
+void df_random(void)
+{
+	int i, j;
+	i = fp->u.i;
+	pop_stack();
+	j = ((float)i * rand() / (RAND_MAX + 1.0));
+	push_int(j);
+}
+
 void df_print_objs(void)
 {
 	print_objs();

Index: dfdecl.in
===================================================================
RCS file: /cvsroot/agd/server/src/dfdecl.in,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- dfdecl.in	12 Mar 2004 08:40:10 -0000	1.4
+++ dfdecl.in	16 Mar 2004 20:12:37 -0000	1.5
@@ -30,6 +30,7 @@
 string platform()
 int uptime()
 string asctime(int)
+int random(int)
 
 # objects
 void destruct(object)