mkdist.php | searchcode

/opensource.apple.com/source/apache_mod_php/apache_mod_php-44.2/php/win32/build/mkdist.php

#
PHP | 445 lines | 304 code | 64 blank | 77 comment | 50 complexity | 63b250047eed66e7996a662444ebea3e MD5 | raw file
Possible License(s): LGPL-2.0, MPL-2.0, GPL-2.0, ISC, LGPL-2.1, Apache-2.0, MPL-2.0-no-copyleft-exception, BSD-3-Clause, WTFPL, MIT, AGPL-1.0, AGPL-3.0

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>mkdist.php</title>
<style type="text/css">
.enscript-comment { font-style: italic; color: rgb(178,34,34); }
.enscript-function-name { font-weight: bold; color: rgb(0,0,255); }
.enscript-variable-name { font-weight: bold; color: rgb(184,134,11); }
.enscript-keyword { font-weight: bold; color: rgb(160,32,240); }
.enscript-reference { font-weight: bold; color: rgb(95,158,160); }
.enscript-string { font-weight: bold; color: rgb(188,143,143); }
.enscript-builtin { font-weight: bold; color: rgb(218,112,214); }
.enscript-type { font-weight: bold; color: rgb(34,139,34); }
.enscript-highlight { text-decoration: underline; color: 0; }
</style>
</head>
<body id="top">
<h1 style="margin:8px;" id="f1">mkdist.php&nbsp;&nbsp;&nbsp;<span style="font-weight: normal; font-size: 0.5em;">[<a href="?txt">plain text</a>]</span></h1>
<hr/>
<div></div>
<pre>
&lt;?php # $Id: mkdist.php,v 1.13.4.1 2006/12/19 10:26:01 edink Exp $
/* piece together a windows binary distro */

$build_dir = $argv[1];
$phpdll = $argv[2];
$sapi_targets = explode(&quot; &quot;, $argv[3]);
$ext_targets = explode(&quot; &quot;, $argv[4]);
$pecl_targets = explode(&quot; &quot;, $argv[5]);
$snapshot_template = $argv[6];

$is_debug = preg_match(&quot;/^debug/i&quot;, $build_dir);

echo &quot;Making dist for $build_dir\n&quot;;

$dist_dir = $build_dir . &quot;/php-&quot; . phpversion();
$pecl_dir = $build_dir . &quot;/pecl-&quot; . phpversion();

@mkdir($dist_dir);
@mkdir(&quot;$dist_dir/ext&quot;);
@mkdir(&quot;$dist_dir/dev&quot;);
@mkdir(&quot;$dist_dir/extras&quot;);
@mkdir($pecl_dir);

/* figure out additional DLL's that are required */
$extra_dll_deps = array();
$per_module_deps = array();
$pecl_dll_deps = array();

function get_depends($module)
{
	static $no_dist = array(
		/* windows system dlls that should not be bundled */
		'advapi32.dll', 'comdlg32.dll', 'gdi32.dll', 'kernel32.dll', 'ntdll.dll',
		'odbc32.dll', 'ole32.dll', 'oleaut32.dll', 'rpcrt4.dll',
		'shell32.dll', 'shlwapi.dll', 'user32.dll', 'ws2_32.dll', 'ws2help.dll',
		'comctl32.dll', 'winmm.dll', 'wsock32.dll', 'winspool.drv', 'msasn1.dll',
		'secur32.dll', 'netapi32.dll',

		/* apache */
		'apachecore.dll',

		/* apache 2 */
		'libhttpd.dll', 'libapr.dll', 'libaprutil.dll',

		/* pi3web */
		'piapi.dll', 'pi3api.dll',

		/* nsapi */
		'ns-httpd30.dll', 'ns-httpd35.dll', 'ns-httpd36.dll', 'ns-httpd40.dll',

		/* oracle */
		'oci.dll', 'ociw32.dll',

		/* sybase */
		'libcs.dll', 'libct.dll',

		/* visual C++; mscvrt.dll is present on everyones system,
		 * but the debug version (msvcrtd.dll) and those from visual studio.net
		 * (msvcrt7x.dll) are not */
		'msvcrt.dll',

		);
	global $build_dir, $extra_dll_deps, $ext_targets, $sapi_targets, $pecl_targets, $phpdll, $per_module_deps, $pecl_dll_deps;
	
	$bd = strtolower(realpath($build_dir));

	$is_pecl = in_array($module, $pecl_targets);
	
	$cmd = &quot;$GLOBALS[build_dir]\\deplister.exe \&quot;$module\&quot; \&quot;$GLOBALS[build_dir]\&quot;&quot;;
	$proc = proc_open($cmd, 
			array(1 =&gt; array(&quot;pipe&quot;, &quot;w&quot;)),
			$pipes);

	$n = 0;
	while (($line = fgetcsv($pipes[1]))) {
		$n++;

		$dep = strtolower($line[0]);
		$depbase = basename($dep);
		/* ignore stuff in our build dir, but only if it is
	     * one of our targets */
		if (((in_array($depbase, $sapi_targets) ||
			   	in_array($depbase, $ext_targets) || in_array($depbase, $pecl_targets)) ||
				$depbase == $phpdll) &amp;&amp; file_exists($GLOBALS['build_dir'] . &quot;/$depbase&quot;)) {
			continue;
		}
		/* ignore some well-known system dlls */
		if (in_array(basename($dep), $no_dist)) {
			continue;
		}
		
		if ($is_pecl) {
			if (!in_array($dep, $pecl_dll_deps)) {
				$pecl_dll_deps[] = $dep;
			}
		} else {
			if (!in_array($dep, $extra_dll_deps)) {
				$extra_dll_deps[] = $dep;
			}
		}

		$per_module_deps[basename($module)][] = $dep;
	}
	fclose($pipes[1]);
	proc_close($proc);
//echo &quot;Module $module [$n lines]\n&quot;;
}

function copy_file_list($source_dir, $dest_dir, $list)
{
	global $is_debug, $dist_dir;

	foreach ($list as $item) {
		echo &quot;Copying $item from $source_dir to $dest_dir\n&quot;;
		copy($source_dir . DIRECTORY_SEPARATOR . $item, $dest_dir . DIRECTORY_SEPARATOR . $item);
		if ($is_debug) {
			$itemdb = preg_replace(&quot;/\.(exe|dll|lib)$/i&quot;, &quot;.pdb&quot;, $item);
			if (file_exists(&quot;$source_dir/$itemdb&quot;)) {
				copy(&quot;$source_dir/$itemdb&quot;, &quot;$dist_dir/dev/$itemdb&quot;);
			}
		}
		if (preg_match(&quot;/\.(exe|dll)$/i&quot;, $item)) {
			get_depends($source_dir . '/' . $item);
		}
	}
}

function copy_text_file($source, $dest)
{
	$text = file_get_contents($source);
	$text = preg_replace(&quot;/(\r\n?)|\n/&quot;, &quot;\r\n&quot;, $text);
	$fp = fopen($dest, &quot;w&quot;);
	fwrite($fp, $text);
	fclose($fp);
}

/* very light-weight function to extract a single named file from
 * a gzipped tarball.  This makes assumptions about the files
 * based on the PEAR info set in $packages. */
function extract_file_from_tarball($pkg, $filename, $dest_dir) /* {{{ */
{
	global $packages;

	$name = $pkg . '-' . $packages[$pkg];
	$tarball = $dest_dir . &quot;/&quot; . $name . '.tgz';
	$filename = $name . '/' . $filename;
	$destfilename = $dest_dir . &quot;/&quot; . basename($filename);

	$fp = gzopen($tarball, 'rb');

	$done = false;
	do {
		/* read the header */
		$hdr_data = gzread($fp, 512);
	   	if (strlen($hdr_data) == 0)
			break;
		$checksum = 0;
		for ($i = 0; $i &lt; 148; $i++)
			$checksum += ord($hdr_data{$i});
		for ($i = 148; $i &lt; 156; $i++)
			$checksum += 32;
		for ($i = 156; $i &lt; 512; $i++)
			$checksum += ord($hdr_data{$i});

		$hdr = unpack(&quot;a100filename/a8mode/a8uid/a8gid/a12size/a12mtime/a8checksum/a1typeflag/a100link/a6magic/a2version/a32uname/a32gname/a8devmajor/a8devminor&quot;, $hdr_data);

		$hdr['checksum'] = octdec(trim($hdr['checksum']));

		if ($hdr['checksum'] != $checksum) {
			echo &quot;Checksum for $tarball $hdr[filename] is invalid\n&quot;;
			print_r($hdr);
			return;
		}

		$hdr['size'] = octdec(trim($hdr['size']));
		echo &quot;File: $hdr[filename] $hdr[size]\n&quot;;
		
		if ($filename == $hdr['filename']) {
			echo &quot;Found the file we want\n&quot;;
			$dest = fopen($destfilename, 'wb');
			$x = stream_copy_to_stream($fp, $dest, $hdr['size']);
			fclose($dest);
			echo &quot;Wrote $x bytes into $destfilename\n&quot;;
			break;
		}
		
		/* skip body of the file */
		$size = 512 * ceil((int)$hdr['size'] / 512);
		echo &quot;Skipping $size bytes\n&quot;;
		gzseek($fp, gztell($fp) + $size);
		
	} while (!$done);
	
} /* }}} */


/* the core dll */
copy(&quot;$build_dir/php.exe&quot;, &quot;$dist_dir/php.exe&quot;);
copy(&quot;$build_dir/$phpdll&quot;, &quot;$dist_dir/$phpdll&quot;);

/* and the .lib goes into dev */
$phplib = str_replace(&quot;.dll&quot;, &quot;.lib&quot;, $phpdll);
copy(&quot;$build_dir/$phplib&quot;, &quot;$dist_dir/dev/$phplib&quot;);
/* debug builds; copy the symbols too */
if ($is_debug) {
	$phppdb = str_replace(&quot;.dll&quot;, &quot;.pdb&quot;, $phpdll);
	copy(&quot;$build_dir/$phppdb&quot;, &quot;$dist_dir/dev/$phppdb&quot;);
}
/* copy the sapi */
copy_file_list($build_dir, &quot;$dist_dir&quot;, $sapi_targets);

/* copy the extensions */
copy_file_list($build_dir, &quot;$dist_dir/ext&quot;, $ext_targets);

/* pecl sapi and extensions */
copy_file_list($build_dir, $pecl_dir, $pecl_targets);

/* populate reading material */
$text_files = array(
	&quot;LICENSE&quot; =&gt; 		&quot;license.txt&quot;,
	&quot;NEWS&quot; =&gt; 			&quot;news.txt&quot;,
	&quot;php.ini-dist&quot; =&gt; 	&quot;php.ini-dist&quot;,
	&quot;php.ini-recommended&quot; =&gt; &quot;php.ini-recommended&quot;,
	&quot;win32/install.txt&quot; =&gt; 	&quot;install.txt&quot;,
	&quot;win32/pws-php5cgi.reg&quot; =&gt; &quot;pws-php5cgi.reg&quot;,
	&quot;win32/pws-php5isapi.reg&quot; =&gt; &quot;pws-php5isapi.reg&quot;,
);

foreach ($text_files as $src =&gt; $dest) {
	copy_text_file($src, $dist_dir . '/' . $dest);
}

/* general other files */
$general_files = array(
	&quot;php.gif&quot;			=&gt;	&quot;php.gif&quot;,
);

foreach ($general_files as $src =&gt; $dest) {
	copy($src, $dist_dir . '/' . $dest);
}

/* include a snapshot identifier */
$branch = &quot;HEAD&quot;; // TODO - determine this from CVS/Entries 
$fp = fopen(&quot;$dist_dir/snapshot.txt&quot;, &quot;w&quot;);
$now = date(&quot;r&quot;);
$version = phpversion();
fwrite($fp, &lt;&lt;&lt;EOT
This snapshot was automatically generated on
$now

Version: $version
Branch: $branch
Build: $build_dir

EOT
);
/* list build-in extensions */
$exts = get_loaded_extensions();
fprintf($fp, &quot;\r\nBuilt-in Extensions\r\n&quot;);
fwrite($fp, &quot;===========================\r\n&quot;);
foreach ($exts as $ext) {
	fprintf($fp, &quot;%s\r\n&quot;, $ext);
}
fwrite($fp, &quot;\r\n\r\n&quot;);

/* list dependencies */
fprintf($fp, &quot;Dependency information:\r\n&quot;);
foreach ($per_module_deps as $modulename =&gt; $deps) {
	if (in_array($modulename, $pecl_targets))
		continue;

	fprintf($fp, &quot;Module: %s\r\n&quot;, $modulename);
	fwrite($fp, &quot;===========================\r\n&quot;);
	foreach ($deps as $dll) {
		fprintf($fp, &quot;\t%s\r\n&quot;, basename($dll));
	}
	fwrite($fp, &quot;\r\n&quot;);
}
fclose($fp);

/* Now add those dependencies */
foreach ($extra_dll_deps as $dll) {
	if (!file_exists($dll)) {
		/* try template dir */
		$tdll = $snapshot_template . &quot;/dlls/&quot; . basename($dll);
		if (!file_exists($tdll)) {
			echo &quot;WARNING: distro depends on $dll, but could not find it on your system\n&quot;;
			continue;
		}
		$dll = $tdll;
	}
	copy($dll, &quot;$dist_dir/&quot; . basename($dll));
}
/* and those for pecl */
foreach ($pecl_dll_deps as $dll) {
	if (in_array($dll, $extra_dll_deps)) {
		/* already in main distro */
		continue;
	}
	if (!file_exists($dll)) {
		/* try template dir */
		$tdll = $snapshot_template . &quot;/dlls/&quot; . basename($dll);
		if (!file_exists($tdll)) {
			echo &quot;WARNING: distro depends on $dll, but could not find it on your system\n&quot;;
			continue;
		}
		$dll = $tdll;
	}
	copy($dll, &quot;$pecl_dir/&quot; . basename($dll));
}

function copy_dir($source, $dest)
{
	if (!is_dir($dest)) {
		if (!mkdir($dest)) {
			return false;
		}
	}

	$d = opendir($source);
	while (($f = readdir($d)) !== false) {
		if ($f == '.' || $f == '..' || $f == 'CVS') {
			continue;
		}
		$fs = $source . '/' . $f;
		$fd = $dest . '/' . $f;
		if (is_dir($fs)) {
			copy_dir($fs, $fd);
		} else {
			copy($fs, $fd);
		}
	}
	closedir($d);
}

/* change this next line to true to use good-old
 * hand-assembled go-pear-bundle from the snapshot template */
$use_pear_template = true;

if (!$use_pear_template) {
	/* Let's do a PEAR-less pear setup */
	mkdir(&quot;$dist_dir/PEAR&quot;);
	mkdir(&quot;$dist_dir/PEAR/go-pear-bundle&quot;);

	/* grab the bootstrap script */
	echo &quot;Downloading go-pear\n&quot;;
	copy(&quot;<a href="http://go-pear.org/">http://go-pear.org/</a>&quot;, &quot;$dist_dir/PEAR/go-pear.php&quot;);

	/* import the package list -- sets $packages variable */
	include &quot;pear/go-pear-list.php&quot;;

	/* download the packages into the destination */
	echo &quot;Fetching packages\n&quot;;

	foreach ($packages as $name =&gt; $version) {
		$filename = &quot;$name-$version.tgz&quot;;
		$destfilename = &quot;$dist_dir/PEAR/go-pear-bundle/$filename&quot;;
		if (file_exists($destfilename))
			continue;
		$url = &quot;<a href="http://pear.php.net/get/">http://pear.php.net/get/</a>$filename&quot;;
		echo &quot;Downloading $name from $url\n&quot;;
		flush();
		copy($url, $destfilename);
	}

	echo &quot;Download complete.  Extracting bootstrap files\n&quot;;

	/* Now, we want PEAR.php, Getopt.php (Console_Getopt) and Tar.php (Archive_Tar)
	 * broken out of the tarballs */
	extract_file_from_tarball('PEAR', 'PEAR.php', &quot;$dist_dir/PEAR/go-pear-bundle&quot;);
	extract_file_from_tarball('Archive_Tar', 'Archive/Tar.php', &quot;$dist_dir/PEAR/go-pear-bundle&quot;);
	extract_file_from_tarball('Console_Getopt', 'Console/Getopt.php', &quot;$dist_dir/PEAR/go-pear-bundle&quot;);
}
	
/* add extras from the template dir */
if (file_exists($snapshot_template)) {
	$items = glob(&quot;$snapshot_template/*&quot;);
	print_r($items);

	foreach ($items as $item) {
		$bi = basename($item);
		if (is_dir($item)) {
			if ($bi == 'dlls' || $bi == 'symbols') {
				continue;
			} else if ($bi == 'PEAR') {
				if ($use_pear_template) {
					/* copy to top level */
					copy_dir($item, &quot;$dist_dir/$bi&quot;);
				}
			} else {
				/* copy that dir into extras */
				copy_dir($item, &quot;$dist_dir/extras/$bi&quot;);
			}
		} else {
			if ($bi == 'go-pear.bat') {
				/* copy to top level */
				copy($item, &quot;$dist_dir/$bi&quot;);
			} else {
				/* copy to extras */
				copy($item, &quot;$dist_dir/extras/$bi&quot;);
			}
		}
	}
	
	/* copy c++ runtime */
	$items = glob(&quot;$snapshot_template/dlls/*.CRT&quot;);

	foreach ($items as $item) {
		$bi = basename($item);
		if (is_dir($item)) {
			copy_dir($item, &quot;$dist_dir/$bi&quot;);
			copy_dir($item, &quot;$dist_dir/ext/$bi&quot;);
		}
	}
} else {
	echo &quot;WARNING: you don't have a snapshot template\n&quot;;
	echo &quot;         your dist will not be complete\n&quot;;
}

?&gt;
</pre>
<hr />
</body></html>