Rorschach test

Maga az ábra a Graphviz-zal készült (az első neato, a második twopi), a szükséges leíró fájlt pedig egy -- nagyon csúnya* -- script-ből dobom össze:

használat: ha csak néhány futtathatóra vagy kíváncsi, akkor felsorolhatod őket argumentumokként, így csak azokat listázza, argumentum nélkül hívva az összes processzt.

#! /usr/bin/php
<?php
error_reporting(E_ALL);
function get_dependencies($object)
{
	$dependencies = array();
	if(file_exists($object)) {
		$result = shell_exec('ldd ' . escapeshellarg($object));
		if(trim($result) == 'statically linked') return $dependencies;
		$lines = explode(PHP_EOL, $result);
		foreach($lines as $line) {
			$contents = trim($line);
			$library = null;
			$filename = null;
			if(empty($contents)) continue;
			preg_match('/([^ ]+)( => ([^ ]+))?/', $contents, $results);
			$dependencies[] = array($results[1], array_key_exists(3, $results) ? $results[3] : $results[1]);
		}
	}
	return $dependencies;
}

$libraries = array();
if($argc == 1) {
	$command_list = explode(PHP_EOL, shell_exec("ps axo args"));
	for($i = 1; $i < count($command_list); $i++) {
		$parts = explode(' ', $command_list[$i]);
		if(preg_match('|^[a-zA-Z0-9-_/]+$|', $parts[0])) {
			$executable = trim(shell_exec("which " . escapeshellarg($parts[0])));
			if(!empty($executable)) {
				$libraries[$executable] = null;
			}
		}
	}
} else {
	for($i = 1; isset($argv[$i]); $i++) {
		if(!file_exists($argv[$i])) {
			fprintf(STDERR, "Specified input %s file does not exist\n", $argv[$i]);
			exit(1);
		}
		$libraries[realpath($argv[$i])] = null;
	}
}
while(in_array(null, $libraries, true)) {
	foreach($libraries as $library => $dependencies) {
		if(!is_null($libraries[$library])) continue;
		fprintf(STDERR, "Fetching dependencies for %s\n", $library);
		$libraries[$library] = get_dependencies($library);
		foreach($libraries[$library] as $dependency) {
			if(!array_key_exists($dependency[1], $libraries)) {
				$libraries[$dependency[1]] = null;
			}
		}
	}
}
fprintf(STDERR, "Outputting graph\n");
?>
digraph dependency {
	layout=twopi;
	splines=true;
	overlap=false;

<?php
	foreach($libraries as $library_path => $dependencies):
?>
	"<?php echo $library_path; ?>" [label="<?php echo basename($library_path); ?>"];
<?php
	endforeach;
	foreach($libraries as $library_path => $dependencies):
		foreach($dependencies as $dependency):
?>
		"<?php echo $library_path; ?>" -> "<?php echo $dependency[1]; ?>";
<?php
		endforeach;
	endforeach;
?>
}

**: megtehetem, hogy nagyon csúnya legyen, a time szerint 5 sec alatt fut le az összes processzes móka, ami nagyjából elenyésző a 30+ perces gráf rajzoláshoz képest (a splines=true nagyon megdobja a graphviz futási idejét [tízezres nagyságrendű edge-nél], a feltöltött első kép a layout=neato; overlap=false; splines=true; sep=.1; beállításokkal készült, nem mértem mennyi idő alatt)

Szerk.: Újabb benchmark:
time ./lddgraph $(which kdenlive)
real 0m0.559s
user 0m0.208s
sys 0m0.144s

time dot kdenlive.dot -Tpng -o kdenlive.png
real 0m17.071s
user 0m16.106s
sys 0m0.137s

BlackY
--
"en is amikor bejovok dolgozni, nem egy pc-t [..] kapcsolok be, hanem a mainframe-et..." (sj)