<?php
require_once( 'parser.php' );

define( 'FAULT_MINOR', 0 );
define( 'FAULT_MEDIUM', 1 );
define( 'FAULT_MAJOR', 2 );

$modules = array(
	'scanner' => array(),
	'output' => new OutputModule()
);
$stderr = fopen( 'php://stderr', 'w' );
$config = array(
	'svn' => false,
	'modules' => array(),
	'output_format' => 'text',
	'output_file' => 'php://stdout',
	'quiet' => false,
);
$help = "Usage: {$argv[0]} [options] file|path [file|path ...]
Options:
    -b path                 Set the base path for the scan. Useful if you want
    --base-path path        to scan individual files in a code base that don't
                            live in the project's base directory.

    -f format               Select the output format. Defaults to text.
    --format format

    -h                      Display this usage information
    --help

    -m modulename           Loads the requested scanning module. If this
    --module modulename     parameter is not specified, all available modules
                            will be loaded.

    -o filename             Write output to a file instead of stdout
    --output filename

    -q                      Suppresses all progress output
    --quiet

    --svn                Enables SVN integration
";
$faults = array();

class ScannerModule {
	var $faults;
	var $blame;
	
	function ScannerModule() {
		$this->faults = array();
		$this->blame = array();
		err( "Initializing " . get_class( $this ) . "...\n" );
	}
	function fault( $object, $level, $reason = '' ) {
		global $config, $faults;
		$object['file'] = filename( $object['file'] );
		$faults[] = $this->faults[] = array(
			'module'	=> get_class( $this ),
			'object'	=> $object,
			'level'		=> $level,
			'reason'	=> $reason,
			'svn'		=> ( $config['svn'] === true ) ? $this->blame[$object['line']] : ''
		);
	}
	function parserCallback( $object ) {
	}
	function preScan( $filename ) {
		global $config;
		if( $config['svn'] === true ) {
			$this->blame = array();
			$output = array();
			exec( "svn blame '$filename' 2>/dev/null", $output, $result );
			if( $result == 0 ) {
				foreach( $output as $line => $text ) {
					$matches = array();
					preg_match( '/^\s*(\d+)\s+([^\s]+)/', $text, $matches );
					$this->blame[$line + 1] = array(
						'author' => $matches[2],
						'revision' => $matches[1]
					);
				}
			}
		}
	}
	function postScan( $filename ) {
	}
}

class OutputModule {
	function display() {
		$this->write( 'php://output' );
	}
	function write( $filename ) {
	}
}

function _callback( $object ) {
	global $modules;
	foreach( $modules['scanner'] as $module ) {
		$module->parserCallback( $object );
	}
}
function addModule( $module_instance ) {
	global $modules;
	if( $module_instance instanceof ScannerModule ) {
		$modules['scanner'][] = $module_instance;
	} elseif( $module_instance instanceof OutputModule ) {
		$modules['output'] = $module_instance;
	}
}
function filename( $filename ) {
	global $base_path;
	$filename = realpath( $filename );
	if( strpos( $filename, $base_path ) === 0 ) {
		$filename = substr( $filename, strlen( $base_path ) );
	}
	return $filename;
}
function err( $string ) {
	global $stderr, $config;
	if( $config['quiet'] === false ) {
		fputs( $stderr, $string );
	}
}


// Handle application arguments
$files = array();
$base_path = false;
for( $i = 1; $i < $argc; $i++ ) {
	switch( $argv[$i] ) {
		case '-b':
		case '--base-path':
			$new_base = $argv[++$i];
			if( is_dir( $new_base ) ) {
				$base_path = realpath( $new_base ) . '/';
			}
			break;
		case '-f':
		case '--format':
			$config['output_format'] = $argv[++$i];
			break;
		case '-h':
		case '--help':
			die( $help );
			break;
		case '-m':
		case '--module':
			$config['modules'][] = $argv[++$i];
			break;
		case '-o':
		case '--output':
			$config['output_file'] = $argv[++$i];
			break;
		case '-q':
		case '--quiet':
			$config['quiet'] = true;
			break;
		case '--svn':
			$config['svn'] = true;
			break;
		default:
			if( file_exists( $argv[$i] ) && strtolower( substr( $argv[$i], -4 ) ) == '.php' ) {
				$base_path = ( $base_path === false ) ? realpath( dirname( $argv[$i] ) ) . '/' : $base_path;
				$files[] = $argv[$i];
			} else if( is_dir( $argv[$i] ) ) {
				$base_path = ( $base_path === false ) ? realpath( $argv[$i] ) . '/' : $base_path;
				exec( "find {$argv[$i]} -iname '*.php' 2>/dev/null", $output, $result );
				$files = array_merge( $files, $output );
			}
	}
	
}
if( count( $files ) == 0 ) {
	die( $help );
}

// Dig into the modules folder and load up what we find
$module_files = scandir( 'modules' );
foreach( $module_files as $module_file ) {
	if( strtolower( substr( $module_file, -4 ) ) == '.php' ) {
		$module = substr( $module_file, 0, strlen( $module_file ) - 4 );
		list( $type, $module ) = split( '_', $module );
		switch( $type ) {
			case 'output':
				if( $module == $config['output_format'] ) {
					require_once( "modules/{$module_file}" );
				}
				break;
			case 'scanner':
				if(
					count( $config['modules'] ) == 0
					|| in_array( $module, $config['modules'] )
				) {
					require_once( "modules/{$module_file}" );
				}
				break;
		}
	}
}

$parser = new PHPParser();
$parser->registerCallback( '_callback' );

err( "Parsing files...\n" );
$counter = 0; $total = count( $files ); $lastpct = 0;
foreach( $files as $file ) {
	$counter++;
	if( $counter == 1 ) { err( 0 ); }
	else {
		$pct = intval( $counter / $total * 100 );
		if( $pct != $lastpct && $pct % 2 == 0 ) {
			err( $pct % 10 == 0 ? $pct : '.' );
			$lastpct = $pct;
		}
	}
	foreach( $modules['scanner'] as $module ) { $module->preScan( $file ); }
	$parser->parseFile( $file );
}
err( "\n" );
$modules['output']->write( $config['output_file'] );
err( sprintf( "Found %d faults in %d files.\n", count( $faults ), count( $files ) ) );
?>