php/archived-php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2026-04-27 10:16:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

added 'System::type()' (show the full path of a command)

Browse Source 
Copied almost verbatim from Stig's PEAR_Dependency::checkProgram()
This commit is contained in:
Tomas V.V.Cox
2002-02-06 08:32:00 +00:00
parent 39ad453266
commit b91c077710
1 changed files with 26 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
pear/System.php
+26 -1
View File
@@ -315,7 +315,6 @@ class System extends PEAR
$tmpdir = $opt[1];
}
}
//print_r($opts);
$prefix = (isset($opts[1][0])) ? $opts[1][0] : 'tmp';
if (!isset($tmpdir)) {
$tmpdir = System::tmpdir();
@@ -350,5 +349,31 @@ class System extends PEAR
}
return '/tmp';
}
/**
* The "type" command (show the full path of a command)
*
* @param string $program The command to search for
* @return mixed A string with the full path or false if not found
* @author Stig Bakken <ssb@fast.no>
*/
function type($program)
{
// full path given
if (basename($program) != $program) {
return (@is_executable($program)) ? $program : false;
}
// XXX FIXME honor safe mode
$path_delim = OS_WINDOWS ? ';' : ':';
$exe_suffix = OS_WINDOWS ? '.exe' : '';
$path_elements = explode($path_delim, getenv('PATH'));
foreach ($path_elements as $dir) {
$file = $dir . DIRECTORY_SEPARATOR . $program . $exe_suffix;
if (@is_file($file) && @is_executable($file)) {
return $file;
}
}
return false;
}
}
?>