mirrors/php-src
0
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2024-11-27 11:53:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

A script that searches for PHPAPI and ZEND_API prototypes

Browse Source 
not enclosed by BEGIN_EXTERN_C/END_EXTERN_C
This commit is contained in:
Hartmut Holzgraefe 2004-02-20 08:01:58 +00:00
parent acf7a5e262
commit 767450164e
1 changed files with 45 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
scripts/dev/extern_c.php Normal file
View File

@ -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(".");
}
?>