ADDDATE()(v4.1.1) $ver_cont = html_entity_decode($ver_cont); $matches = array(); preg_match_all( '#\]+\>\
([^\(\s\<]+).*\<\/a\>\(v(.+)\)#', $ver_cont, $matches );
	$versions = array();
	for( $i=0; $i version
		$versions[ $matches[1][$i] ] = $version;
	}
}

// Specify your own host, user, pass here.
// Do NOT commit passwords into SVN!!
mysql_connect( 'localhost', 'root' );

$nl = "\r\n";
$fnames = array();
$fstruc = array();

$q = mysql_query('HELP "functions"');
while( $row = mysql_fetch_object($q) )
{
	if( $row->is_it_category == 'Y' )
	{
		getfunctions($row->name);
	}
}
getfunctions('Functions and Modifiers for Use with GROUP BY');
getfunctions('Geographic Features');


function getfunctions( $cat, $rootcat='' )
{
	global $nl, $fstruc, $fnames, $versions;
	$q = mysql_query('HELP "'.$cat.'"');
	while( $row = mysql_fetch_object($q) )
	{
		if( $row->is_it_category == 'Y' )
		{
			if( empty($rootcat) )
			{
				$rootcat = $cat;
			}
			getfunctions( $row->name, $rootcat );
		}
		else
		{
			$sql = "HELP '".$row->name."'";
			$qdetails = mysql_query($sql);
			$rowdetails = mysql_fetch_object($qdetails);

			if( preg_match('#(\S+)#', $rowdetails->name, $m1) )
			{
				$name = $m1[1];
			}
			else
			{
				$name = $row->name;
			}

			if( in_array($name,$fnames) )
			{
				continue;
			}
			$fnames[] = $name; 

			$declaration = '';
			$desc_cut = substr($rowdetails->description, 0, strpos($rowdetails->description,"\n\n")); 
			$df = preg_match('#(Syntax:)?[^\(]*(\([^\)]*\))#Us', $desc_cut, $m2);
			if( $df )
			{
				$declaration = $m2[2];
				$declaration = str_replace("'", "''", $declaration );
			}

			$description = '';
			$df = preg_match('#(Syntax:)?.*\n\n(.+)$#Uis', $rowdetails->description, $m3);
			if( $df )
			{
				$description = trim($m3[2]);
				$description = preg_replace('#\bURL\:\s+\S+#s', ' ', $description );
				$description = preg_replace('#(\s+)#', ' ', $description );
				$description = str_replace(' o ', ' ', $description);
				$description = str_replace("'", "''", $description );
				$description = trim($description );
				$description = wordwrap($description,70, " '".$nl."        +'" );
			}

			$version = 'SQL_VERSION_ANSI';
			if( !empty($versions[$name]) )
			{
				$version = $versions[$name];
			}

			$fstruc[$name] = sprintf("    (".$nl
				."      Name:         '%s';".$nl
				."      Declaration:  '%s';".$nl
				."      Category:     '%s';".$nl
				."      Version:      %s;".$nl
				."      Description:  '%s'".$nl
				."    ),".$nl.$nl,
				$name,
				$declaration,
				(!empty($rootcat) ? $rootcat : $cat),
				$version,
				$description
				);
		}
	}
}

// Sort alphabetically by function name
asort($fstruc);

// produce output
$counter = 0;
foreach( $fstruc as $func )
{
	print '    // Function nr. '.++$counter.$nl; 
	print $func;
}

?>