gnumeric r16996 - trunk/tools

[mortenw svn gnome org]

Author: mortenw
Date: Wed Dec 10 20:55:46 2008
New Revision: 16996
URL: http://svn.gnome.org/viewvc/gnumeric?rev=16996&view=rev

Log:
2008-12-10  Morten Welinder  <terra gnome org>

	* check-finalizers (pass2): Check also unrealize calls.
	(pass1): Catch abstract types too.



Modified:
   trunk/tools/ChangeLog
   trunk/tools/check-finalizers

Modified: trunk/tools/check-finalizers
==============================================================================
--- trunk/tools/check-finalizers	(original)
+++ trunk/tools/check-finalizers	Wed Dec 10 20:55:46 2008
@@ -96,10 +96,10 @@
 	    if (/\(GInstanceInitFunc\)\s*(([a-zA-Z_]+[a-zA-Z_0-9]*)_init)\s*,/) {
 		$pis_an_object_type->{$2} = 1;
 	    }
-	    if (/\bG_DEFINE_TYPE\b/) {
+	    if (/\bG_DEFINE(_ABSTRACT)?_TYPE\b/) {
 		while (!/\)\s*;?\s*$/) { chomp; $_ .= &slurp (scalar <FIL>); }
-		if (/\bG_DEFINE_TYPE\s*\([^,]*,\s*([a-zA-Z_]+[a-zA-Z_0-9]*)\s*,/) {
-		    $pis_an_object_type->{$1} = 1;
+		if (/\bG_DEFINE(_ABSTRACT)?_TYPE\s*\([^,]*,\s*([a-zA-Z_]+[a-zA-Z_0-9]*)\s*,/) {
+		    $pis_an_object_type->{$2} = 1;
 		}
 	    }
 
@@ -150,7 +150,7 @@
 	while (<FIL>) {
 	    $lineno++;
 
-	    if ($state == 1 && /^(([a-zA-Z_]+[a-zA-Z_0-9]*)_(finalize|destroy|dispose))\s*\([^,]+\)/) {
+	    if ($state == 1 && /^(([a-zA-Z_]+[a-zA-Z_0-9]*)_(finalize|destroy|dispose|unrealize))\s*\([^,]+\)/) {
 		$funcname = $1;
 		$type = $2;
 		$handler = $3;