[Gnash-commit] gnash ChangeLog server/asobj/Global.cpp testsui...

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  07/02/09 09:34:56

Modified files:
        .              : ChangeLog 
        server/asobj   : Global.cpp 
        testsuite/actionscript.all: Global.as 

Log message:
                 * server/asobj/Global.cpp: add setInterval and clearInterval
                   global functions.
                 * testsuite/actionscript.all/Global.as: test existance of
                   setInterval and clearInterval function.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.2284&r2=1.2285
http://cvs.savannah.gnu.org/viewcvs/gnash/server/asobj/Global.cpp?cvsroot=gnash&r1=1.41&r2=1.42
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/Global.as?cvsroot=gnash&r1=1.20&r2=1.21

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.2284
retrieving revision 1.2285
diff -u -b -r1.2284 -r1.2285
--- ChangeLog   9 Feb 2007 06:38:47 -0000       1.2284
+++ ChangeLog   9 Feb 2007 09:34:56 -0000       1.2285
@@ -1,9 +1,15 @@
+2007-02-09 Sandro Santilli <address@hidden>
+
+        * server/asobj/Global.cpp: add setInterval and clearInterval
+          global functions.
+        * testsuite/actionscript.all/Global.as: test existance of
+          setInterval and clearInterval function.
+
 2007-02-08  Rob Savoye  <address@hidden>
 
        * server/debugger.cpp: Dump the name of as_objects on the stack
        too. Some objects are created internally, so don't have a symbol
        table entry.
-       
        * server/as_object.h: Return the raw properties handle so the
        debugger can use it. Add set_std_string method to let one add
        standard STL strings. 

Index: server/asobj/Global.cpp
===================================================================
RCS file: /sources/gnash/gnash/server/asobj/Global.cpp,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- server/asobj/Global.cpp     2 Feb 2007 10:31:33 -0000       1.41
+++ server/asobj/Global.cpp     9 Feb 2007 09:34:56 -0000       1.42
@@ -18,7 +18,7 @@
 
 // Implementation of the Global ActionScript Object
 
-/* $Id: Global.cpp,v 1.41 2007/02/02 10:31:33 strk Exp $ */
+/* $Id: Global.cpp,v 1.42 2007/02/09 09:34:56 strk Exp $ */
 
 #ifdef HAVE_CONFIG_H
 #include "config.h"
@@ -60,6 +60,7 @@
 #include "Video.h"
 #include "extension.h"
 #include "VM.h"
+#include "timers.h"
 
 #include "fn_call.h"
 #include "sprite_instance.h"
@@ -399,6 +400,10 @@
        // ASSetPropFlags
        init_member("ASSetPropFlags", as_global_assetpropflags);
 
+       // Defined in timers.h
+       init_member("setInterval", timer_setinterval);
+       init_member("clearInterval", timer_clearinterval);
+
        // System and Function were added in Player Version 6, but
        // seem to be available even if SWF target version is
        // inferior

Index: testsuite/actionscript.all/Global.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/Global.as,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- testsuite/actionscript.all/Global.as        8 Feb 2007 00:53:31 -0000       
1.20
+++ testsuite/actionscript.all/Global.as        9 Feb 2007 09:34:56 -0000       
1.21
@@ -20,7 +20,7 @@
 // compile this test case with Ming makeswf, and then
 // execute it like this gnash -1 -r 0 -v out.swf
 
-rcsid="$Id: Global.as,v 1.20 2007/02/08 00:53:31 strk Exp $";
+rcsid="$Id: Global.as,v 1.21 2007/02/09 09:34:56 strk Exp $";
 
 #include "check.as"
 
@@ -93,13 +93,5 @@
 // to run an interval before a frame is executed
 // so this will require onEnterFrame to work.
 // We don't want to test onEnterFrame here, do we ?
-INTERVALRUN=0;
-INTERVALVARIABLE=undefined;
-function intervalChecker() {
-       check("setInterval called" | true);
-       if ( INTERVALRUN ) check("clearInterval not called" & false);
-       INTERVALRUN=1;
-       clearInterval(INTERVALVARIABLE);
-}
-INTERVALVARIABLE=setInterval(intervalChecker, 5); // 1 second
-
+check_equals(typeof(setInterval), 'function');
+check_equals(typeof(clearInterval), 'function');