Browse files

A script that searches for PHPAPI and ZEND_API prototypes

not enclosed by BEGIN_EXTERN_C/END_EXTERN_C
  • Loading branch information...
1 parent acf7a5e commit 767450164e9c62db76fa5de5c74598700bfeff0b Hartmut Holzgraefe committed Feb 20, 2004
Showing with 45 additions and 0 deletions.
  1. +45 −0 scripts/dev/extern_c.php
View
45 scripts/dev/extern_c.php
@@ -0,0 +1,45 @@
+<?php
+
+function scan_dir($dir) {
+ if (!is_dir($dir)) return;
+
+ foreach (glob("$dir/*") as $file) {
+ if (is_dir($file)) {
+ if (basename($file) != "CVS") {
+ scan_dir($file);
+ }
+ } else if (fnmatch("*.h", $file)) {
+ scan_file($file);
+ }
+ }
+}
+
+function scan_file($file) {
+ $flag = false;
+
+ foreach (file($file) as $nr => $line) {
+ if (ereg("^[[:space:]]*BEGIN_EXTERN_C", $line)) {
+# echo "$file:".($nr+1)." $line";
+ $flag = true;
+ } else if (ereg("^[[:space:]]*END_EXTERN_C", $line)) {
+# echo "$file:".($nr+1)." $line";
+ $flag = false;
+ } else if ( (ereg("^[[:space:]]*PHPAPI[[:space:]]*", $line))
+ ||(ereg("^[[:space:]]*ZEND_API[[:space:]]*", $line))) {
+ if (strstr($line,"(")) {
+ if (!$flag) echo "$file:".($nr+1)." $line";
+ }
+ }
+ }
+}
+
+array_shift($_SERVER["argv"]);
+
+if (count($_SERVER["argv"])) {
+ foreach ($_SERVER["argv"] as $dir) {
+ scan_dir($dir);
+ }
+} else {
+ scan_dir(".");
+}
+?>

0 comments on commit 7674501

Please sign in to comment.