[Gnash-commit] gnash ChangeLog server/asobj/gen-asclass.pl

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  08/05/05 08:06:38

Modified files:
        .              : ChangeLog 
        server/asobj   : gen-asclass.pl 

Log message:
        retain class case, add an _as prefix, include gnashconfig.h (not 
config.h),
        comment-out unused parameters, fix signature of native methods (must 
return
        as_value), fix ensureType call (to return intrusive_ptr).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.6493&r2=1.6494
http://cvs.savannah.gnu.org/viewcvs/gnash/server/asobj/gen-asclass.pl?cvsroot=gnash&r1=1.5&r2=1.6

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.6493
retrieving revision 1.6494
diff -u -b -r1.6493 -r1.6494
--- ChangeLog   5 May 2008 07:42:27 -0000       1.6493
+++ ChangeLog   5 May 2008 08:06:37 -0000       1.6494
@@ -1,3 +1,10 @@
+2008-05-05 Sandro Santilli <address@hidden>
+
+       * server/asobj/gen-asclass.pl: retain class case, add an _as prefix,
+         include gnashconfig.h (not config.h), comment-out unused
+         parameters, fix signature of native methods (must return as_value),
+         fix ensureType call (to return intrusive_ptr).
+
 2008-05-05 Benjamin Wolsey <address@hidden>
 
        * gui/Player.{cpp,h}: fix initialization warning, use camelCase for

Index: server/asobj/gen-asclass.pl
===================================================================
RCS file: /sources/gnash/gnash/server/asobj/gen-asclass.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- server/asobj/gen-asclass.pl 1 Jul 2007 10:54:32 -0000       1.5
+++ server/asobj/gen-asclass.pl 5 May 2008 08:06:38 -0000       1.6
@@ -64,10 +64,10 @@
 #define __GNASH_ASOBJ_$args{up}_H__
 
 #ifdef HAVE_CONFIG_H
-#include "config.h"
+#include "gnashconfig.h"
 #endif
 
-#include <memory> // for auto_ptr
+//#include <memory> // for auto_ptr
 
 namespace gnash {
 
@@ -117,7 +117,7 @@
         ## A '.' concatenates a string.
 
         $declarations .=
-          qq|\nstatic void $args{lc}_| .$m. qq|(const fn_call& fn);|;
+          qq|\nstatic as_value $args{lc}_| .$m. qq|(const fn_call& fn);|;
 
         $registrations .=
           qq|\n    o.init_member("$m", new builtin_function($args{lc}_$m));|;
@@ -126,9 +126,9 @@
           qq|\nstatic as_value\n$args{lc}_| .$m.
           qq|(const fn_call& fn)
 {
-       $args{lc}_as_object* ptr = ensureType<$args{lc}_as_object>(fn.this_ptr);
+       boost::intrusive_ptr<$args{lc}_as> ptr = 
ensureType<$args{lc}_as>(fn.this_ptr);
        UNUSED(ptr);
-       log_unimpl (__FUNCTION__);
+       LOG_ONCE( log_unimpl (__FUNCTION__) );
        return as_value();
 }
 |;
@@ -139,10 +139,10 @@
     print $fh <<EOF;
 
 #ifdef HAVE_CONFIG_H
-#include "config.h"
+#include "gnashconfig.h"
 #endif
 
-#include "$args{class}.h"
+#include "$args{class}_as.h"
 #include "as_object.h" // for inheritance
 #include "log.h"
 #include "fn_call.h"
@@ -152,7 +152,7 @@
 
 namespace gnash {
 $declarations
-void $args{lc}_ctor(const fn_call& fn);
+as_value $args{lc}_ctor(const fn_call& fn);
 
 static void
 attach$args{class}Interface(as_object& o)
@@ -171,12 +171,12 @@
        return o.get();
 }
 
-class $args{lc}_as_object: public as_object
+class $args{lc}_as: public as_object
 {
 
 public:
 
-       $args{lc}_as_object()
+       $args{lc}_as()
                :
                as_object(get$args{class}Interface())
        {}
@@ -190,9 +190,9 @@
 
 $implementations
 as_value
-$args{lc}_ctor(const fn_call& fn)
+$args{lc}_ctor(const fn_call& /*fn*/)
 {
-       boost::intrusive_ptr<as_object> obj = new $args{lc}_as_object;
+       boost::intrusive_ptr<as_object> obj = new $args{lc}_as;
 
        return as_value(obj.get()); // will keep alive
 }
@@ -242,8 +242,8 @@
     delete $args{help};
 
     ## Output files should not already exist.
-    $args{headerfile} = "$args{class}.h";
-    $args{cppfile}    = "$args{class}.cpp";
+    $args{headerfile} = "$args{class}_as.h";
+    $args{cppfile}    = "$args{class}_as.cpp";
     unless($args{force}) {
         die "$args{headerfile} exists!  Aborting.\n" if (-e $args{headerfile});
         die "$args{cppfile} exists!  Aborting.\n" if (-e $args{cppfile});
@@ -268,7 +268,7 @@
     %args = (%args, %{parse_notefile(%args)});
 
     ## Add some extra variables we'll use often
-    $args{lc} = lc($args{class});
+    $args{lc} = $args{class};
     $args{up} = uc($args{class});
 
     return \%args;