egroupware_official/doc/inlinedocparser.php

<?php
	/**************************************************************************\
	* phpGroupWare                                                             *
	* http://www.phpgroupware.org                                              *
	* The file written by Miles Lott <milosch@phpgroupware.org>                *
	* --------------------------------------------                             *
	*  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; either version 2 of the License, or (at your  *
	*  option) any later version.                                              *
	\**************************************************************************/

	/* $Id$ */

	$types = array('abstract','param','example','syntax','result','description','discussion','author','copyright','package','access');

	$app = $GLOBALS['HTTP_GET_VARS']['app'];
	$fn  = $GLOBALS['HTTP_GET_VARS']['fn'];

	if($app)
	{
		if (!preg_match("/^[a-zA-Z0-9-_]+$/i",$app))
		{
			echo 'Invalid application<br>';
			exit;
		}
	}
	else
	{
		$app = 'phpgwapi';
	}

	if ($fn)
	{
		if (preg_match("/^class\.([a-zA-Z0-9-_]*)\.inc\.php+$/",$fn) || preg_match("/^functions\.inc\.php+$/",$fn) || preg_match("/^xml_functions\.inc\.php+$/",$fn))
		{
			$files[] = $fn;
		}
		else
		{
			echo 'No valid file selected';
			exit;
		}
	}
	else
	{
		$d = dir('../'.$app.'/inc/');
		while ($x = $d->read())
		{
			if (preg_match("/^class\.([a-zA-Z0-9-_]*)\.inc\.php+$/",$x) || preg_match("/^functions\.inc\.php+$/",$x))
			{
				$files[] = $x;
			}
		}
		$d->close;

		reset($files);
	}

	while (list($p,$fn) = each($files))
	{
		$matches = $elements = $data = array();
		$string = $t = $out = $class = $xkey = $new = '';
		$file = '../'.$app.'/inc/' . $fn;
		echo '<br>Looking at: ' . $file . "\n";

		$f = fopen($file,'r');
		while (!feof($f))
		{
			$string .= fgets($f,8000);
		}
		fclose($f);

		preg_match_all("#\*\!(.*)\*/#sUi",$string,$matches,PREG_SET_ORDER);

		while (list($key,$val) = each($matches))
		{
			preg_match_all("#@(.*)$#sUi",$val[1],$data);
			$new = explode("@",$data[1][0]);
			while (list($x,$y) = each($new))
			{
				if (!isset($object) || trim($new[0]) == $object)
				//if (trim($new[0]) == $object)
				{
					$t = trim($new[0]);
					if(!$key)
					{
						$class = $t;
					}
					$t = trim(ereg_replace('function','',$t));

					reset($types);
					while(list($z,$type) = each($types))
					{
						if(ereg($type,$y))
						{
							$xkey = $type;
							$out = $y;
							$out = ereg_replace($type,'',$out);
							break;
						}
						else
						{
							$xkey = 'unknown';
							$out = $y;
						}
					}

					if($out != $new[0])
					{
						$elements[$class][$t][$xkey][] = $out;
					}
				}
			}
		}
		echo '<br><pre>';
		print_r($elements);
		//        var_dump($elements);
		echo '</pre>' . "\n";
	}
?>