From 893cf5899c2b724aa438b66a275967b1f5ad0342 Mon Sep 17 00:00:00 2001
From: Quincey Koziol <koziol@hdfgroup.org>
Date: Tue, 28 May 2002 13:02:38 -0500
Subject: [svn-r5466] Purpose:     Code cleanup.

Description:
    Updated perl scripts to be aware of new "FUNC_ENTER_NOINIT" macro.

Platforms tested:
    IRIX64 6.5 (modi4)
---
 bin/checkapi | 2 +-
 bin/trace    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/checkapi b/bin/checkapi
index 7447b26..5a6251a 100755
--- a/bin/checkapi
+++ b/bin/checkapi
@@ -22,7 +22,7 @@ while (<>) {
   # Disregard the following hits
   next if /^H5/;
   next if /^\#/;
-  next if /FUNC_ENTER/;
+  next if /FUNC_ENTER(_NOINIT)*/;
 
   next unless /(H5[A-Z]{1,2}[a-z]\w*)/;
   print "$ARGV:$.: $1\n";
diff --git a/bin/trace b/bin/trace
index af6adb2..c2b5534 100755
--- a/bin/trace
+++ b/bin/trace
@@ -215,7 +215,7 @@ sub rewrite_func ($$$$$) {
     }
   } elsif ($body =~ s/((\n[ \t]*)H5TRACE\d+\s*\(.*?\);)\n/"$2$trace"/es) {
     # Replaced an H5TRACE macro
-  } elsif ($body=~s/((\n[ \t]*)FUNC_ENTER\s*\(.*?\);)\n/"$1$2$trace"/es) {
+  } elsif ($body=~s/((\n[ \t]*)FUNC_ENTER(_NOINIT)*\s*\(.*?\);)\n/"$1$2$trace"/es) {
     # Added an H5TRACE macro after a FUNC_ENTER macro.
   } else {
     errmesg $file, $name, "unable to insert tracing information";
-- 
cgit v0.12