From 0a4380cda3ed966ca0e39b057cf613ace07cb38c Mon Sep 17 00:00:00 2001
From: Robert Sesek <rsesek@bluestatic.org>
Date: Sun, 15 Jul 2007 18:43:55 +0000
Subject: [PATCH] Importing tools to ISSO

---
 ISI_PHPUnit2_Output_HTML_Listener.php | 546 ++++++++++++++++++++++++++
 create_schema.php                     | 196 +++++++++
 function_finder.php                   | 454 +++++++++++++++++++++
 info.php                              |   1 +
 wordrunner.php                        |  83 ++++
 5 files changed, 1280 insertions(+)
 create mode 100755 ISI_PHPUnit2_Output_HTML_Listener.php
 create mode 100644 create_schema.php
 create mode 100755 function_finder.php
 create mode 100644 info.php
 create mode 100755 wordrunner.php

diff --git a/ISI_PHPUnit2_Output_HTML_Listener.php b/ISI_PHPUnit2_Output_HTML_Listener.php
new file mode 100755
index 0000000..b713fd5
--- /dev/null
+++ b/ISI_PHPUnit2_Output_HTML_Listener.php
@@ -0,0 +1,546 @@
+<?php
+/*=====================================================================*\
+|| ###################################################################
+|| # PHPUnit2 Web Report [#]version[#]
+|| # Copyright ©2002-[#]year[#] Iris Studios, Inc.
+|| #
+|| # This program is free software; you can redistribute it and/or modify
+|| # it under the terms of the GNU General Public License as published by
+|| # the Free Software Foundation; version [#]gpl[#] of the License.
+|| #
+|| # This program is distributed in the hope that it will be useful, but
+|| # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+|| # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
+|| # more details.
+|| #
+|| # You should have received a copy of the GNU General Public License along
+|| # with this program; if not, write to the Free Software Foundation, Inc.,
+|| # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
+|| ###################################################################
+\*=====================================================================*/
+
+require_once('PHPUnit2/Framework/TestListener.php');
+
+/**
+* PHPUnit2 HTML Output Generator Listener
+*
+* This class is used to to run PHPUnit2 tests normally and generate an
+* HTML report at the end, which details all the tests. To use this,
+* you need to attach this listener:
+*
+* <code>$result = new PHPUnit2_Framework_TestResult;
+* $result->addListener(new ISI_PHPUnit2_Output_HTML_Listener);
+* $suite->run($result);</code>
+*
+* @author		Iris Studios, Inc.
+* @copyright	Copyright ©2002 - [#]year[#], Iris Studios, Inc.
+* @version		$Revision$
+* 
+*/
+class ISI_PHPUnit2_Output_HTML_Listener implements PHPUnit2_Framework_TestListener
+{
+	/**
+	* A successful test
+	* @var	integer
+	*/
+	const TEST_SUCCESS = 1;
+	
+	/**
+	* An incomplete test
+	* @var	integer
+	*/
+	const TEST_INCOMPLETE = 2;
+	
+	/**
+	* A failed test
+	* @var	integer
+	*/
+	const TEST_FAIL = 3;
+	
+	/**
+	* An array of all the tests run in a given suite
+	* @var	array
+	*/
+	protected $tests = array();
+	
+	/**
+	* An array of arrays of all the errors in a given failed test in a suite
+	* @var	array
+	*/
+	protected $errors = array();
+	
+	/**
+	* An array of all the incomplete test messages for a test in a suite
+	* @var	array
+	*/
+	protected $incompletes = array();
+	
+	/**
+	* Statistics for a given test suite
+	* @var	array
+	*/
+	protected $stats = array();
+	
+	/**
+	* The name of the currently-running test suite
+	* @var	string
+	*/
+	private $currentSuite;
+	
+	/**
+	* The name of the currently-running individual test
+	* @var	string
+	*/
+	private $currentTest;
+	
+	// ###################################################################
+	/**
+	* A test errored out
+	*
+	* @param	object	PHPUnit2_Framework_Test
+	* @param	except	Thrown execption
+	*/
+	public function addError(PHPUnit2_Framework_Test $test, Exception $e)
+	{
+		$this->errors[ $this->currentSuite ][ $this->currentTest ][] = new ISI_Private_Exception($e);
+	}
+	
+	// ###################################################################
+	/**
+	* A test failed
+	*
+	* @param	object	PHPUnit2_Framework_Test
+	* @param	object	PHPUnit2_Framework_AssertionFailedError
+	*/
+	public function addFailure(PHPUnit2_Framework_Test $test, PHPUnit2_Framework_AssertionFailedError $e)
+	{
+		$this->errors[ $this->currentSuite ][ $this->currentTest ][] = new ISI_Private_Exception($e);
+		$this->tests[ $this->currentSuite ][ $this->currentTest ] = self::TEST_FAIL;
+		$this->stats[ $this->currentSuite ]['fail']++;
+	}
+	
+	// ###################################################################
+	/**
+	* A test reported being an incomplete implementation
+	*
+	* @param	object	PHPUnit2_Framework_Test
+	* @param	except	The thrown exception notice
+	*/
+	public function addIncompleteTest(PHPUnit2_Framework_Test $test, Exception $e)
+	{
+		$this->incompletes[ $this->currentSuite ][ $this->currentTest ] = new ISI_Private_Exception($e);
+		$this->tests[ $this->currentSuite ][ $this->currentTest ] = self::TEST_INCOMPLETE;
+		$this->stats[ $this->currentSuite ]['incomplete']++;
+	}
+	
+	// ###################################################################
+	/**
+	* Start test suite
+	*
+	* @param	object	A PHPUnit2_Framework_TestSuite
+	*/
+	public function startTestSuite(PHPUnit2_Framework_TestSuite $suite)
+	{
+		$this->currentSuite = $suite->getName();
+		if ($this->currentSuite == '')
+		{
+			return;
+		}
+		
+		$this->tests[ $this->currentSuite ] = array();
+		$this->stats[ $this->currentSuite ] = array('total' => 0, 'fail' => 0, 'incomplete' => 0);
+	}
+	
+	// ###################################################################
+	/**
+	* Test suite ended
+	*
+	* @param	object	PHPUnit2_Framework_TestSuite
+	*/
+	public function endTestSuite(PHPUnit2_Framework_TestSuite $suite)
+	{
+		$this->currentSuite = null;
+	}
+	
+	// ###################################################################
+	/**
+	* An individual test started
+	*
+	* @param	object	The PHPUnit2_Framework_Test
+	*/
+	public function startTest(PHPUnit2_Framework_Test $test)
+	{
+		$this->currentTest = $test->getName();
+		if ($this->currentTest == '')
+		{
+			return;
+		}
+		
+		$this->tests[ $this->currentSuite ][ $this->currentTest ] = self::TEST_SUCCESS;
+		$this->stats[ $this->currentSuite ]['total']++;
+	}
+	
+	// ###################################################################
+	/**
+	* An individual test ended
+	*
+	* @param	object	The PHPUnit2_Framework_Test
+	*/
+	public function endTest(PHPUnit2_Framework_Test $test)
+	{
+		$this->currentTest = null;
+	}
+	
+	// ###################################################################
+	/**
+	* Destructor: create the HTML output
+	*/
+	public function __destruct()
+	{
+		$stats = array('total' => 0, 'incomplete' => 0, 'fail' => 0, 'success' => 0);
+		foreach ($this->stats AS $statGroup)
+		{
+			foreach ($statGroup AS $statType => $count)
+			{
+				$stats["$statType"] += $count;
+			}
+		}
+		$stats['success'] = $stats['total'] - ($stats['incomplete'] + $stats['fail']);
+		
+		$output = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+        "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+	<meta http-equiv="content-type" content="text/html; charset=utf-8" />
+	<title>Unit Test Results</title>
+	
+	<style type="text/css">
+	<!--
+		
+		body
+		{
+			font-size: 12px;
+			font-family: "Trebuchet MS", Verdana, Helvetica, sans-serif;
+		}
+	
+		.suite
+		{
+			background-color: rgb(255, 255, 255);
+			
+			border-color: rgb(222, 222, 222);
+			border-style: solid;
+			border-width: 1px;
+		}
+		
+		.suiteHead
+		{
+			background-color: rgb(222, 222, 222);
+			
+			font-weight: bold;
+			
+			margin: 2px;
+			padding: 3px;
+		}
+		
+		.testGroup
+		{
+			padding: 4px;
+		}
+		
+		.testIncomplete
+		{
+			border-color: rgb(222, 230, 255);
+			border-style: dashed;
+			border-width: 1px;
+			
+			margin-bottom: 5px;
+		}
+		
+		.testIncompleteHead
+		{
+			background-color: rgb(222, 230, 255);
+			
+			margin: 1px;
+			padding: 2px;
+		}
+		
+		.blueText
+		{
+			color: rgb(111, 133, 255);
+		}
+		
+		.testSuccess
+		{
+			border-color: rgb(216, 255, 216);
+			border-style: dashed;
+			border-width: 1px;
+			
+			margin-bottom: 5px;
+		}
+		
+		.testSuccessHead
+		{
+			background-color: rgb(216, 255, 216);
+			
+			margin: 1px;
+			padding: 2px;
+		}
+		
+		.greenText
+		{
+			color: rgb(76, 168, 78);
+		}
+		
+		.testFail
+		{
+			border-color: rgb(255, 226, 229);
+			border-style: dashed;
+			border-width: 1px;
+			
+			margin-bottom: 5px;
+		}
+		
+		.testFailHead
+		{
+			background-color: rgb(255, 226, 229);
+			
+			margin: 1px;
+			padding: 2px;
+		}
+		
+		.redText
+		{
+			color: rgb(168, 65, 63);
+		}
+		
+		.textPadding
+		{
+			padding: 3px;
+		}
+		
+		.message
+		{
+			margin-bottom: 4px;
+		}
+		
+		.messageLast
+		{
+			margin-bottom: 0px;
+		}
+		
+		.location
+		{
+			margin-left: 20px;
+			
+			font-style: italic;
+		}
+			
+	//-->
+	</style>
+</head>
+<body>
+
+<h1>Unit Test Results</h1>
+
+<div>
+	<div>The following is a report of how each unit test performed. If any errors or exceptions were thrown, they have been recorded below. Tests have been broken down into their test suite groups. Your overall statistics are here:</div>
+	
+	<br />
+	
+	<div>Total Tests: <strong>' . $stats['total'] . '</strong></div>
+	<div>Number Success: <strong class="greenText">' . $stats['success'] . '</strong></div>
+	<div>Number Fail: <strong class="redText">' . $stats['fail'] . '</strong></div>
+	<div>Number Incomplete: <strong class="blueText">' . $stats['incomplete'] . '</strong></div>
+	
+	<br />
+	
+	<div><em>Total Success Rate: <strong class="' . ($stats['success'] == $stats['total'] ? 'green' : 'red') . 'Text">' . round(100 * ($stats['success'] / $stats['total']), 1) . '%</strong></em></div>
+</div>
+
+<br />
+
+';
+		
+		foreach ($this->tests AS $suite => $tests)
+		{
+			$successPercent = round(100 * (($this->stats["$suite"]['total'] - ($this->stats["$suite"]['fail'] + $this->stats["$suite"]['incomplete'])) / $this->stats["$suite"]['total']), 1);
+			
+			$output .= '<div class="suite">';
+			$output .= "\n\t" . '<div class="suiteHead">';
+			$output .= "\n\t\t" . '<span style="float: right">' . $this->stats["$suite"]['total'] . ' Tests, ' . $successPercent . '% Success' . '</span>';
+			$output .= "\n\t\t" . $suite;
+			$output .= "\n\t" . '</div>';
+			$output .= "\n\t" . '<div class="testGroup">';
+			foreach ($tests AS $name => $statusCode)
+			{				
+				switch ($statusCode)
+				{
+					case self::TEST_SUCCESS:
+						$cssName = 'Success';
+						$cssColor = 'green';
+						
+						$info = '';
+					break;
+						
+					case self::TEST_INCOMPLETE:
+						$cssName = 'Incomplete';
+						$cssColor = 'blue';
+						
+						$info = $this->formatInfo($this->incompletes["$suite"]["$name"]);
+					break;
+						
+					case self::TEST_FAIL:
+						$cssName = 'Fail';
+						$cssColor = 'red';
+						
+						$info = $this->formatInfo($this->errors["$suite"]["$name"]);
+					break;
+				}
+				
+				$output .= "\n\t\t" . '<div class="test' . $cssName . ' ' . $cssColor . 'Text' . ($info ? ' negateMargin' : '') . '">';
+				$output .= "\n\t\t\t" . '<div class="test' . $cssName . 'Head">' . $name . '</div>';
+				
+				if ($info)
+				{
+					$output .= "\n\t\t\t" . '<div class="textPadding">';
+					$output .= $info;
+					$output .= "\n\t\t\t" . '</div class="textPadding">';
+				}
+				
+				$output .= "\n\t\t" . '</div>';
+			}
+			$output .= "\n\t" . '</div>';
+			$output .= "\n" . '</div>';
+			$output .= "\n\n" . '<br />' . "\n\n";
+		}
+		
+		$output .= '
+</body>
+</html>';
+		
+		file_put_contents('./UnitTestReport.html', $output);
+	}
+	
+	// ###################################################################
+	/**
+	* Formats an error array into a bulleted list
+	*
+	* @param	mixed	Error/information list
+	*
+	* @return	string	Formatted HTML
+	*/
+	private function formatInfo($list)
+	{
+		if (!is_array($list))
+		{
+			$list = array($list);	
+		}
+		
+		$count = sizeof($list);
+		foreach ($list AS $exc)
+		{
+			$i++;
+			
+			if ($exc->getMessage() != '')
+			{
+				$output = "\n\t\t\t\t" . '<div class="message' . ($count == $i ? ' messageLast' : '') . '">';
+				$output .= "\n\t\t\t\t\t" . '<div>&bull; ' . htmlspecialchars($exc->getMessage()) . '</div>';
+			}
+			
+			$output .= "\n\t\t\t\t\t" . '<div class="location">in ' . $exc->getPath() . ' at line ' . $exc->getLine() . '</div>';
+			
+			if ($exc->getMessage() != '')
+			{
+				$output .= "\n\t\t\t\t" . '</div>';
+			}
+		}
+		
+		return $output;
+	}
+}
+
+/**
+* Iris Studios Private Exception Handler
+*
+* This class is just a form of an exception that ignores the stack trace
+* because it's too long.
+*
+* @author		Iris Studios, Inc.
+* @copyright	Copyright ©2002 - [#]year[#], Iris Studios, Inc.
+* @version		$Revision$
+* 
+*/
+class ISI_Private_Exception
+{
+	/**
+	* Exception context message
+	* @var	string
+	*/
+	private $message = '';
+	
+	/**
+	* File path
+	* @var	string
+	*/
+	private $path = '';
+	
+	/**
+	* Line number of the exception
+	* @var	integer
+	*/
+	private $line = 0;
+	
+	// ###################################################################
+	/**
+	* Constructor: accept exception
+	*
+	* @param	except	A given exception
+	*/
+	public function __construct(Exception $e)
+	{
+		$this->message = $e->getMessage();
+		$this->path = $e->getFile();
+		$this->line = $e->getLine();
+	}
+	
+	// ###################################################################
+	/**
+	* Returns the context message
+	*
+	* @return	string	Context message
+	*/
+	public function getMessage()
+	{
+		return $this->message;
+	}
+	
+	// ###################################################################
+	/**
+	* Returns the file path
+	*
+	* @return	string	File path
+	*/
+	public function getPath()
+	{
+		return $this->path;
+	}
+	
+	// ###################################################################
+	/**
+	* Returns the line number
+	*
+	* @return	integer	Line number
+	*/
+	public function getLine()
+	{
+		return $this->line;
+	}
+}
+
+/*=====================================================================*\
+|| ###################################################################
+|| # $HeadURL$
+|| # $Id$
+|| ###################################################################
+\*=====================================================================*/
+?>
\ No newline at end of file
diff --git a/create_schema.php b/create_schema.php
new file mode 100644
index 0000000..0802c00
--- /dev/null
+++ b/create_schema.php
@@ -0,0 +1,196 @@
+<?php
+
+// creates schema file output
+// $Id$
+
+require_once('../isso-21x/kernel.php');
+$isso = new ISSO;
+
+$isso->setApplication('Schema Creator');
+$isso->setAppPath(getcwd());
+
+define('ISSO_DB_LAYER', 'db_mysql');
+$isso->load('db_mysql', 'db', true);
+
+if (empty($_REQUEST['submit']))
+{
+?>
+
+<form action="create_schema.php" method="post" name="params">
+
+<div>Database: <input name="database" type="text" size="35" /></div>
+<div>Username: <input name="username" type="text" size="35" value="mysql" /></div>
+<div>Password: <input name="password" type="password" size="35" /></div>
+<div>Server: <input name="server" type="text" size="35" value="localhost" /></div>
+
+<br />
+
+<div>Database engine: <input name="engine" type="radio" value="mysql" checked="checked" /> MySQL <input name="engine" type="radio" value="postgresql" /> PostgreSQL</div>
+<div>Array variable: <input name="variable" type="text" size="35" value="schema" /></div>
+<div>Encase names with ticks: <input name="encase" type="checkbox" value="1" /> Yes</div>
+<div>Add TABLE_PREFIX: <input name="prefix" type="checkbox" checked="checked" value="1" /> Yes</div>
+
+<input name="submit" type="submit" value="Create Schema" />
+
+</form>
+
+<?php
+}
+else
+{
+	$db->connect($isso->in['server'], $isso->in['username'], $isso->in['password'], $isso->in['database'], false);
+	
+	$t = ($isso->in['encase'] ? '`' : '');
+	$prefix = ($isso->in['prefix'] ? '" . TABLE_PREFIX . "' : '');
+	
+	$tables = $db->query("SHOW TABLES");
+	while ($table = $db->fetch_array($tables, false))
+	{
+		$table = $table[0];
+		$list = array();
+		$keys = array();
+		
+		$build = "CREATE TABLE $t$prefix$table$t\n(\n";
+		
+		$indexes = $db->query("SHOW INDEX FROM $table");
+		while ($index = $db->fetch_array($indexes))
+		{
+			array_walk($index, 'trim');
+			
+			if ($index['Sub_part'] AND $isso->in['engine'] == 'postgresql')
+			{
+				$subpart = " ($index[Sub_part])";
+			}
+			
+			if ($index['Key_name'] == 'PRIMARY')
+			{
+				$keys['primary'][] = "$t$index[Column_name]$t$subpart";
+			}
+			else if ($index['Index_type'] == 'FULLTEXT')
+			{
+				$keys['fulltext']["$index[Key_name]"][] = "$t$index[Column_name]$t$subpart";
+			}
+			else if ($index['Index_type'] == 'BTREE' AND $index['Non_unique'] == 0)
+			{
+				$keys['unique']["$index[Key_name]"][] = "$t$index[Column_name]$t$subpart";
+			}
+			else if ($index['Index_type'] == 'BTREE' AND $index['Non_unique'] == 1)
+			{
+				$keys['std']["$index[Key_name]"][] = "$t$index[Column_name]$t$subpart";
+			}
+			// we should never get here :-)
+			else
+			{
+				print_r($index);
+				exit;
+			}
+		}
+	
+		$fields = $db->query("DESCRIBE $table");
+		while ($field = $db->fetch_array($fields))
+		{
+			array_walk($field, 'trim');
+			
+			if (preg_match('#^(tinyint|smallint|bigint|int)\(([0-9]+)\)( unsigned)?#i', $field['Type'], $matches))
+			{
+				if ($matches[2] == 1)
+				{
+					$field['Type'] = 'bool';
+				}
+				else if ($matches[2] < 10)
+				{
+					$field['Type'] = 'smallint';
+				}
+				else if ($matches[2] > 12)
+				{
+					$field['Type'] = 'bigint';
+				}
+				else
+				{
+					$field['Type'] = 'int';
+				}
+				
+				if ($isso->in['engine'] == 'mysql' AND $field['Type'] != 'bool')
+				{
+					$field['Type'] .= $matches[3];
+				}
+				else if ($isso->in['engine'] == 'postgresql')
+				{
+					if (preg_match('#AUTO_INCREMENT#i', $field['Extra']))
+					{
+						$field['Type'] = 'SERIAL';
+						$field['Extra'] = '';
+					}
+				}
+			}
+			else if (preg_match('#^mediumtext|longtext$#i', $field['Type']))
+			{
+				$field['Type'] = 'text';
+			}
+			else if (preg_match('#.+?blob$#i', $field['Type']))
+			{
+				$field['Type'] = 'blob';
+				if ($isso->in['engine'] == 'postgresql')
+				{
+					$field['Type'] = 'bytea';
+				}
+			}
+			
+			$list[] = "\t$t$field[Field]$t " . $field['Type'] . " " . ($field['Null'] == 'YES' ? "NULL" : "NOT NULL") . ($field['Extra'] != '' ? " " . strtoupper($field['Extra']) : "") . (!empty($field['default']) ? " DEFAULT '$field[Default]'" : "");
+		}
+		
+		$build .= implode(",\n", $list);
+		
+		if ($keys['primary'])
+		{
+			$build .= ",\n\tPRIMARY KEY (" . implode(', ', $keys['primary']) . ")";
+		}
+		if ($keys['fulltext'])
+		{
+			foreach ($keys['fulltext'] AS $name => $columns)
+			{
+				$build .= ",\n\tFULLTEXT KEY $t$name$t (" . implode(', ', $columns) . ")";
+			}
+		}
+		if ($keys['unique'])
+		{
+			foreach ($keys['unique'] AS $name => $columns)
+			{
+				$build .= ",\n\tUNIQUE KEY $t$name$t (" . implode(', ', $columns) . ")";
+			}
+		}
+		if ($keys['std'])
+		{
+			foreach ($keys['std'] AS $name => $columns)
+			{
+				$build .= ",\n\tKEY $t$name$t (" . implode(', ', $columns) . ")";
+			}
+		}
+		
+		$build .= "\n);";
+		
+		$queries["$table"] = $build;
+	}
+	
+	if ($isso->in['variable'] != '')
+	{
+		foreach ($queries AS $table => $query)
+		{
+			$output[] = "\${$isso->in['variable']}['$table'] = \"\n$query\";";
+		}
+	}
+	else
+	{
+		$output = $queries;
+	}
+
+	$output = implode("\n\n", $output);
+	
+	?>
+
+<textarea name="output" rows="50" cols="60" style="width: 100%"><?= $output ?></textarea>
+
+	<?php
+}
+
+?>
\ No newline at end of file
diff --git a/function_finder.php b/function_finder.php
new file mode 100755
index 0000000..e16be68
--- /dev/null
+++ b/function_finder.php
@@ -0,0 +1,454 @@
+<?php
+/*=====================================================================*\
+|| ################################################################### ||
+|| # Function Finder [#]version[#]
+|| # --------------------------------------------------------------- # ||
+|| # Copyright ©2002-[#]year[#] by Iris Studios, Inc. All Rights Reserved. # ||
+|| # This file may not be reproduced in any way without permission.  # ||
+|| ################################################################### ||
+\*=====================================================================*/
+
+$path = '/Server/htdocs/sportal/';
+$filelist = fetch_flat_listing($path);
+
+foreach ($filelist AS $filename)
+{
+	$fpath = $path . $filename;
+	$file = file_get_contents($fpath);
+	$templist = fetch_methods($file);
+	
+	$elements['methods']['classes'] = array_merge($elements['methods']['classes'], $templist['methods']['classes']);
+	$elements['methods']['functions'] = array_merge($elements['methods']['functions'], $templist['methods']['functions']);
+	$elements['limiters']["$fpath"] = $templist['limiters'];
+	
+	$perfile["$fpath"] = $templist['methods'];
+}
+
+foreach ($elements['methods']['functions'] AS $name)
+{
+	$count['functions']["$name"] = 0;
+}
+
+foreach ($elements['methods']['classes'] AS $name => $methods)
+{
+	foreach ($methods AS $method)
+	{
+		$count['classes']["$name"]["$method"] = 0;
+	}
+}
+
+foreach ($filelist AS $filename)
+{
+	$fpath = $path . $filename;
+	
+	$file = file_get_contents($fpath);
+	$count = fetch_calls($file, $elements['methods'], $elements['limiters']["$fpath"], $count);
+}
+
+print_r($count);
+
+// ###################################################################
+// ###################################################################
+// ###################################################################
+
+function fetch_listing($path, $basepath = '', $unset = 1)
+{
+	static $filelist;
+	
+	if ($unset)
+	{
+		$filelist = array();
+	}
+	
+	if (substr($path, (strlen($path) - 1), 1) != '/')
+	{
+		$path .= '/';
+	}
+	
+	if ($handle = opendir($path))
+	{
+		while (($file = readdir($handle)) !== false)
+		{
+			if (substr($file, 0, 1) != '.' AND $file != 'CVS')
+			{
+				if (is_dir($path . $file))
+				{
+					$filelist["$basepath"][] = "$file/";
+					fetch_listing("$path$file", "$basepath$file/", 0);
+				}
+				else
+				{
+					$filelist["$basepath"][] = $file;
+				}
+			}
+		}
+		closedir($handle);
+	}
+	return $filelist;
+}
+
+// ###################################################################
+
+function fetch_flat_listing($path)
+{
+	$filelist = fetch_listing($path);
+	
+	foreach ($filelist AS $basepath => $files)
+	{
+		foreach ($files AS $file)
+		{
+			if (substr($file, (strlen($file) - 1), 1) != '/' AND preg_match('#\.php$#', $file) AND !strpos($basepath, '3rdparty') AND !strpos($basepath, 'phpdoc') AND !strpos($basepath, 'jpgraph'))
+			{
+				$flatlist[] = "./$basepath$file";
+			}
+		}
+	}
+	return $flatlist;
+}
+
+// ###################################################################
+
+function fetch_calls($file, $methodlist, $limiters, $count)
+{
+	static $objects, $extends;
+	
+	// strip comments
+	$file = preg_replace('#/\*(.*?)\*/#s', '', $file);
+		
+	// tokens
+	$tokens = token_get_all($file);
+	
+	// valid tokens
+	static $validtokens, $othertokens;
+	if (!is_array($validtokens))
+	{
+		$validtokens = array('T_EXTENDS', 'T_FUNCTION', 'T_VARIABLE', 'T_STRING', 'T_NEW', 'T_DOUBLE_COLON', 'T_PAAMAYIM_NEKUDOTAYIM', 'T_OBJECT_OPERATOR');
+		$othertokens = array('(', ')', ';');
+	}
+	
+	// good tokens
+	$gt = array();
+	
+	// actual function calls
+	$elements = array();
+	
+	// remove invalid tokens
+	$i = 0;
+	foreach ($tokens AS $id => $bit)
+	{
+		unset($tokens["$id"]);
+		if (is_array($bit))
+		{
+			if (in_array($token_name = token_name($bit[0]), $validtokens))
+			{
+				$gt["$i"] = $bit;
+				$gt["$i"][2] = $token_name;
+				$gt["$i"][3] = $id;
+				$i++;
+			}
+		}
+		else
+		{
+			if (in_array($bit, $othertokens))
+			{
+				$gt["$i"][0] = '-1';
+				$gt["$i"][1] = $bit;
+				if ($bit == '(' OR $bit == ')')
+				{
+					$gt["$i"][2] = 'P_' . ($bit == '(' ? 'OPEN' : 'CLOSE');
+				}
+				else
+				{
+					$gt["$i"][2] = 'SC';
+				}
+				$gt["$i"][3] = $id;
+				$i++;
+			}
+		}
+	}
+	
+	// get what we're looking for
+	$triggers = array('new' => array(), 'popen' => array());
+	foreach ($methodlist['classes'] AS $name => $methods)
+	{
+		$triggers['new'][] = $name;
+		$triggers['popen'] = array_merge($triggers['popen'], $methods);
+	}
+	$triggers['popen'] = array_merge($triggers['popen'], $methodlist['functions']);
+	
+	// find a list of all the defined objects
+	foreach ($gt AS $id => $bit)
+	{
+		$prevbit = $gt[ $id - 1 ];
+		$nextbit = $gt[ $id + 1 ];
+		
+		if ($bit[2] == 'T_NEW')
+		{
+			if ($prevbit[2] == 'T_VARIABLE' AND $nextbit[2] == 'T_STRING' AND in_array($nextbit[1], $triggers['new']))
+			{
+				$objects["$prevbit[1]"] = $nextbit[1];
+			}
+		}
+		if ($bit[2] == 'T_EXTENDS')
+		{
+			if ($prevbit[2] == 'T_STRING' AND $nextbit[2] == 'T_STRING' AND in_array($prevbit[1], $triggers['new']) AND in_array($prevbit[1], $triggers['new']))
+			{
+				$extends["$prevbit[1]"] = $nextbit[1];
+			}
+		}
+	}
+	
+	// process tokens
+	$incall = false;
+	$root = 0;
+	$stack = array();
+	$functlist = array();
+	foreach ($gt AS $id => $bit)
+	{
+		$token = $bit[2];
+		$prevbit = $gt[ $id - 1 ];
+		$nextbit = $gt[ $id + 1 ];
+		
+		// handle object calls
+		if ($token == 'T_DOUBLE_COLON' OR $token == 'T_PAAMAYIM_NEKUDOTAYIM' OR $token == 'T_OBJECT_OPERATOR')
+		{
+			$classname = null;
+			
+			// find classname
+			if (isset($objects["$prevbit[1]"]))
+			{
+				$classname = $objects["$prevbit[1]"];
+			}
+			else if (in_array($prevbit[1], $triggers['new']))
+			{
+				$classname = $prevbit[1];
+			}
+			// we've got an extension!
+			else if ($prevbit[1] == 'parent')
+			{
+				// find a class that the call could be in
+				foreach ($limiters AS $class => $limits)
+				{
+					if ($bit[3] > $limits[0] AND $bit[3] < $limits[1])
+					{
+						$refclass = $class;
+					}
+				}
+				
+				// get the parent of that object
+				if (isset($methodlist['classes']["$refclass"]))
+				{
+					$tempclassname = $extends["$refclass"];
+					if (isset($methodlist['classes']["$tempclassname"]))
+					{
+						$classname = $tempclassname;
+					}
+				}
+			}
+			// we've got an inner-object call
+			else if ($prevbit[1] == '$this')
+			{
+				// find a class that the call could be in
+				foreach ($limiters AS $class => $limits)
+				{
+					if ($bit[3] > $limits[0] AND $bit[3] < $limits[1])
+					{
+						$refclass = $class;
+					}
+				}
+				
+				if (isset($methodlist['classes']["$refclass"]))
+				{
+					$classname = $refclass;
+				}
+			}
+			
+			// object name validation
+			if ($classname)
+			{
+				// method call validation
+				if (in_array($nextbit[1], $methodlist['classes']["$classname"]))
+				{
+					$count['classes']["$classname"]["$nextbit[1]"]++;
+				}
+			}
+		}
+		// initial 
+		else if ($token == 'T_STRING' AND $nextbit[2] == 'P_OPEN' AND $prevbit[2] != 'T_FUNCTION' AND $prevbit[2] != 'T_DOUBLE_COLON' AND $prevbit[2] != 'T_PAAMAYIM_NEKUDOTAYIM' AND $prevbit[2] != 'T_OBJECT_OPERATOR' AND !in_array($bit[1], $triggers['new']))
+		{
+			$incall = true;
+			$root = $id;
+			$functlist["$id"] = $bit[1];
+		}
+		// parens in call
+		else if ($token == 'P_OPEN' AND $incall)
+		{
+			array_push($stack, $id);
+		}
+		// close parens in call
+		else if ($token == 'P_CLOSE' AND $incall)
+		{
+			// find the most recent function
+			$end = array_pop($stack) - 1;
+			
+			// see if we can increment a function
+			if (in_array($functlist["$end"], $methodlist['functions']))
+			{
+				$count['functions'][ $functlist["$end"] ]++;
+			}
+			
+			// we're done with all functions and the semi colon is next
+			if (count($stack) == 0 AND $nextbit[2] == 'SC')
+			{
+				$incall = false;
+			}
+		}
+	}
+	
+	return $count;
+}
+
+// ###################################################################
+
+function fetch_methods($file)
+{
+	// strip comments
+	$file = preg_replace('#/\*(.*?)\*/#s', '', $file);
+	
+	// tokens
+	$tokens = token_get_all($file);
+	
+	// valid tokens
+	static $validtokens, $othertokensopen, $othertokensclose, $othertokens;
+	if (!is_array($validtokens))
+	{
+		$validtokens = array('T_CLASS', 'T_FUNCTION', 'T_STRING');
+		$othertokensopen = array('{', '${', 'T_CURLY_OPEN', 'T_DOLLAR_OPEN_CURLY_BRACES');
+		$othertokensclose = array('}');
+		$othertokens = array_merge($othertokensopen, $othertokensclose);
+	}
+	
+	// good tokens
+	$gt = array();
+	
+	// actual named items
+	$elements = array();
+	
+	// remove invalid tokens
+	$i = 0;
+	foreach ($tokens AS $id => $bit)
+	{
+		unset($tokens["$id"]);
+		if (is_array($bit))
+		{
+			// if we have a T_CLASS, T_FUNCTION, or T_STRING
+			if (in_array($token_name = token_name($bit[0]), $validtokens))
+			{
+				$gt["$i"] = $bit;
+				$gt["$i"][2] = $token_name;
+				$gt["$i"][3] = $id;
+				$i++;
+			}
+			// special open {
+			else if (in_array($token_name = token_name($bit[0]), $othertokens))
+			{
+				$gt["$i"][0] = '-1';
+				$gt["$i"][1] = $bit[1];
+				$gt["$i"][2] = 'B_' . (in_array($token_name, $othertokensopen) ? 'OPEN' : 'CLOSE');
+				$gt["$i"][3] = $id;
+				$i++;
+			}
+		}
+		// if we have an opening or closing brace
+		else if (in_array($bit, $othertokens))
+		{
+			// make up some token information
+			$gt["$i"][0] = '-1';
+			$gt["$i"][1] = $bit;
+			$gt["$i"][2] = 'B_' . (in_array($bit, $othertokensopen) ? 'OPEN' : 'CLOSE');
+			$gt["$i"][3] = $id;
+			$i++;
+		}
+	}
+	
+	// process tokens
+	$elements = array('classes' => array(), 'functions' => array());
+	
+	$inclass = false;
+	$infunction = false;
+	$class = '';
+	$stack = array();
+	foreach ($gt AS $id => $bit)
+	{
+		$token = $bit[2];
+		$nextbit = $gt[ $id + 1 ];
+		
+		if ($token == 'T_CLASS')
+		{
+			$inclass = true;
+			$class = $nextbit[1];
+			
+			$elements['classes']["$class"] = array();
+
+			$limiters["$class"][0] = $bit[3];
+		}
+		else if ($token == 'T_FUNCTION')
+		{
+			$infunction = true;
+			
+			if ($inclass)
+			{
+				$elements['classes']["$class"][] = $nextbit[1];
+			}
+			else
+			{
+				$elements['functions'][] = $nextbit[1];
+			}
+		}
+		else if ($token == 'B_OPEN')
+		{
+			array_push($stack, $id);
+		}
+		else if ($token == 'B_CLOSE')
+		{
+			array_pop($stack);
+			
+			// breaking out of a method
+			if ($inclass AND $infunction)
+			{
+				if (count($stack) < 2)
+				{
+					$infunction = false;
+				}
+			}
+			// breaking out of a class
+			else if ($inclass AND !$infunction)
+			{
+				if (count($stack) < 1)
+				{
+					$inclass = false;
+					$limiters["$class"][1] = $bit[3];
+				}
+			}
+			// breaking out of a function
+			else if (!$inclass AND $infunction)
+			{
+				if (count($stack) == 0)
+				{
+					$infunction = false;
+				}
+			}
+		}
+		$lastbit = $bit;
+	}
+	
+	return array('methods' => $elements, 'limiters' => $limiters);
+}
+
+/*=====================================================================*\
+|| ###################################################################
+|| # $HeadURL$
+|| # $Id$
+|| ###################################################################
+\*=====================================================================*/
+?>
\ No newline at end of file
diff --git a/info.php b/info.php
new file mode 100644
index 0000000..b96d61a
--- /dev/null
+++ b/info.php
@@ -0,0 +1 @@
+<?php

phpinfo();

// SVN: $Id$

?>
\ No newline at end of file
diff --git a/wordrunner.php b/wordrunner.php
new file mode 100755
index 0000000..093f4bf
--- /dev/null
+++ b/wordrunner.php
@@ -0,0 +1,83 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+        "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
+	<title>WordRunner</title>
+</head>
+<body>
+
+<?php
+// SVN: $Id$
+
+error_reporting(E_ALL & ~E_NOTICE);
+
+// ### END HTML ######################################################
+
+if (empty($_POST['do']))
+{
+// ### START HTML ####################################################
+?>
+
+<h1>Welcome to WordRunner</h1>
+<p>This script will count the number of times a word is used in a passage. Simply copy and paste your article into the text area below and press "Run Words" to start the process.</p>
+
+<?php
+// ### END HTML ######################################################
+}
+else
+{
+
+// ### START HTML ####################################################
+?>
+
+<h1>Document Word Run Complete</h1>
+<p>WordRunner has finished processing your document: the results are listed below.</p>
+
+<table cellpadding="4" cellspacing="2" border="1">
+<tr style="background-color:#696969">
+	<td><strong>Word</strong></td>
+	<td><strong>Usage Index</strong></td>
+</tr>
+
+<?php
+// ### END HTML ######################################################
+	$wordrunner_text = htmlspecialchars($_POST['wordtext']);
+	
+	$punctstrip = str_replace(array('&quot;', '"', '\'', '&', '/', '.', ',', '!', '@', ';', ':', '[', ']', '(', ')'), '', $wordrunner_text);
+	$wordarray = preg_split('#[\s]+#', $punctstrip);
+	
+	foreach ($wordarray AS $word)
+	{
+		if (!is_int($word) AND trim($word))
+		{
+			$outputlist[ ucwords(strtolower($word)) ]++;
+		}
+	}
+	
+	arsort($outputlist);
+	
+	foreach ($outputlist AS $word => $count)
+	{
+		if (($_POST['ignoresmalls'] AND $count > 3) OR !$_POST['ignoresmalls'])
+		{
+			echo "<tr>\r\t<td>$word</td>\r\t<td>$count</td>\r</tr>\r";
+		}
+	}
+	
+	echo "</table>\r<br />";
+}
+
+// ### START HTML ####################################################
+?>
+
+<form action="wordrunner.php" method="post" name="wordrunner">
+<input type="hidden" name="do" value="init">
+<textarea name="wordtext" rows="60" cols="20" style="width:75%; height:50%"><?= $wordrunner_text ?></textarea>
+<div><input type="submit" name="submit" value="  Run Words  " /> <input type="checkbox" name="ignoresmalls" value="1" checked="checked" />Ignore Words With Small Counts</div>
+</form>
+
+<div align="center">WordRunner &copy;2004 Robert Sesek</div>
+
+</body>
+</html>
\ No newline at end of file
-- 
2.22.5