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)
|
