Reduce false positives from funciton pointer declarations in getFunsHdr.

git-svn-id: https://svn.r-project.org/R/trunk@89091 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: luke

src/library/tools/R/apitools.R

@@ -118,6 +118,7 @@ getFunsHdr <- function(fpath, lines) {
 
     ## these could be incorporated into the regex
     lines <- gsub(r"{\s*(const|extern|long|unsigned)\s*}", "", lines)
+    lines <- gsub(r"{\(\*\s*\w+\s*\)\s*\(}", "(*)(", lines)
     lines <- sub(r"{^\s*(\w*[(])}", "void \\1", lines)
     lines <- gsub(r"{\(\s*\*\s*(\w+)\s*\)}", "(\\1)", lines)