[svn:parrot] r37791 - trunk/t/codingstd

[coke at svn.parrot.org]

Author: coke
Date: Sat Mar 28 01:29:03 2009
New Revision: 37791
URL: https://trac.parrot.org/parrot/changeset/37791

Log:
[t] function docs shouldn't need to specify ARGIN() or ARGMOD() modifiers.

Modified:
   trunk/t/codingstd/c_function_docs.t

Modified: trunk/t/codingstd/c_function_docs.t
==============================================================================
--- trunk/t/codingstd/c_function_docs.t	Sat Mar 28 01:17:12 2009	(r37790)
+++ trunk/t/codingstd/c_function_docs.t	Sat Mar 28 01:29:03 2009	(r37791)
@@ -46,9 +46,12 @@
 
         my $escaped_decl = $function_decl;
 
-        # strip out any PARROT_* prefixes...
+        # strip out any PARROT_* prefixes
         $escaped_decl =~ s/^PARROT_[A-Z_]*\b\s*//g;        
 
+        # strip out any ARG* modifiers
+        $escaped_decl =~ s/ARG(?:IN|MOD)\((.*?)\)/$1/g;
+
         # escape [, ], (, ), and *
         $escaped_decl =~ s/\[/\\[/g;
         $escaped_decl =~ s/\]/\\]/g;
@@ -56,8 +59,6 @@
         $escaped_decl =~ s/\)/\\)/g;
         $escaped_decl =~ s/\*/\\*/g;
 
-
-
         # don't worry if the function declaration has embedded newlines in
         # it and the documented function doesn't.
         $escaped_decl =~ s/\s+/\\s+/g;