[svn:parrot] r38890 - in trunk: config/gen/makefiles include/parrot lib/Parrot src/string tools/build

petdance at svn.parrot.org petdance at svn.parrot.org
Mon May 18 05:35:30 UTC 2009


Author: petdance
Date: Mon May 18 05:35:29 2009
New Revision: 38890
URL: https://trac.parrot.org/parrot/changeset/38890

Log:
startng to annotate functions with PARROT_OBSERVER

Modified:
   trunk/config/gen/makefiles/root.in
   trunk/include/parrot/string_funcs.h
   trunk/lib/Parrot/Headerizer.pm
   trunk/src/string/api.c
   trunk/tools/build/headerizer.pl

Modified: trunk/config/gen/makefiles/root.in
==============================================================================
--- trunk/config/gen/makefiles/root.in	Mon May 18 05:05:30 2009	(r38889)
+++ trunk/config/gen/makefiles/root.in	Mon May 18 05:35:29 2009	(r38890)
@@ -2074,7 +2074,7 @@
 	$(MKPATH) $(SPLINT_TMP)
 	splint $(CC_INC) @cc_hasjit@ -DNDEBUG "-Isrc/pmc" "-Icompilers/ast" $(SPLINTFLAGS) $(SPLINTFLAGS_TEST) \
 	+partial -memchecks \
-	src/oo.c src/key.c \
+	src/string/*.c src/oo.c src/key.c \
     | grep -v 'Source code error generation point'
 
 COVER_FLAGS := -fprofile-arcs -ftest-coverage

Modified: trunk/include/parrot/string_funcs.h
==============================================================================
--- trunk/include/parrot/string_funcs.h	Mon May 18 05:05:30 2009	(r38889)
+++ trunk/include/parrot/string_funcs.h	Mon May 18 05:35:29 2009	(r38890)
@@ -507,6 +507,7 @@
 
 PARROT_EXPORT
 PARROT_CANNOT_RETURN_NULL
+PARROT_OBSERVER
 const char* string_primary_encoding_for_representation(PARROT_INTERP,
     parrot_string_representation_t representation)
         __attribute__nonnull__(1);

Modified: trunk/lib/Parrot/Headerizer.pm
==============================================================================
--- trunk/lib/Parrot/Headerizer.pm	Mon May 18 05:05:30 2009	(r38889)
+++ trunk/lib/Parrot/Headerizer.pm	Mon May 18 05:35:29 2009	(r38890)
@@ -62,6 +62,7 @@
     PARROT_CONST_FUNCTION
     PARROT_DOES_NOT_RETURN
     PARROT_MALLOC
+    PARROT_OBSERVER
 );
 
 =item C<extract_function_declarations($text)>

Modified: trunk/src/string/api.c
==============================================================================
--- trunk/src/string/api.c	Mon May 18 05:05:30 2009	(r38889)
+++ trunk/src/string/api.c	Mon May 18 05:35:29 2009	(r38890)
@@ -633,6 +633,7 @@
 
 PARROT_EXPORT
 PARROT_CANNOT_RETURN_NULL
+PARROT_OBSERVER
 const char*
 string_primary_encoding_for_representation(PARROT_INTERP,
     parrot_string_representation_t representation)

Modified: trunk/tools/build/headerizer.pl
==============================================================================
--- trunk/tools/build/headerizer.pl	Mon May 18 05:05:30 2009	(r38889)
+++ trunk/tools/build/headerizer.pl	Mon May 18 05:35:29 2009	(r38890)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2001-2007, Parrot Foundation.
+# Copyright (C) 2001-2009, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -81,6 +81,7 @@
     PARROT_DOES_NOT_RETURN
     PARROT_DOES_NOT_RETURN_WHEN_FALSE
     PARROT_MALLOC
+    PARROT_OBSERVER
 );
 
 main();
@@ -323,9 +324,9 @@
             else {
                 # try to isolate the variable's name;
                 # strip off everything before the final space or asterisk.
-                $var =~ s[.+[* ]([^* ]+)$][$1];
+                $var =~ s{.+[* ]([^* ]+)$}{$1};
                 # strip off a trailing "[]", if any.
-                $var =~ s/\[\]$//;
+                $var =~ s{\[\]$}{};
             }
             push( @asserts, "PARROT_ASSERT_ARG($var)" );
         }


More information about the parrot-commits mailing list