Browse the CVS repository

Return to metastorage CVS log

Up to [MetaL] / metastorage

Determined Metastorage installation path from this file directory.

#!/usr/local/bin/php -C -q
<?php
/*
 * metastorage
 *
 * @(#) $Id: metastorage,v 1.18 2004/08/27 21:16:46 mlemos Exp $
 *
 */

	if(IsSet($_SERVER['argv']))
		$argv=$_SERVER['argv'];
	if(!IsSet($argv)
	|| GetType($argv)!="array"
	|| count($argv)==0)
	{
		echo 'Usage: metastorage can only be run from the command line (shell/DOS).',"\n";
		exit(1);
	}

	$metastorage_dir=dirname(__FILE__);
	$metal_dir=dirname($metastorage_dir);
	if(!file_exists($file=$metastorage_dir.'/applications/metastorage/metastorage.php')
	|| !file_exists($file=$metal_dir.'/metal/metal_compiler.php')
	|| !file_exists($file=$metal_dir.'/xmlparser/xml_parser.php')
	|| !file_exists($file=$metal_dir.'/readarguments/read_arguments.php'))
	{
		echo 'Error: could not find class file '.basename($file).' in directory '.dirname($file).' as expected.',"\n";
		exit(1);
	}
	require($metal_dir.'/readarguments/read_arguments.php');
	require($metal_dir.'/xmlparser/xml_parser.php');
	require($metal_dir.'/metal/metal_compiler.php');
	require($metastorage_dir.'/applications/metastorage/metastorage.php');

	set_time_limit(0);
	$metastorage=new metastorage_class;
	$metastorage->debug=1;
	$metastorage->target_language='PHP';
	$metastorage->include_path=array(
		$metastorage_dir.'/applications/metastorage',
		$metal_dir.'/metal'
	);
	$metastorage->metastorage_path=$metastorage_dir;
	$metastorage->install_path=getcwd().'/install';
	if(!$metastorage->Main($argv,count($argv)))
	{
		echo 'Error: '.$metastorage->error;
		if(strlen($metastorage->error_file))
			echo ' (File "',$metastorage->error_file,'", Line ',$metastorage->error_line,', Column ',$metastorage->error_column,', Byte ',$metastorage->error_byte_index,')';
		echo "\n";
		exit(1);
	}
	if(!$metastorage->usage_display)
		echo sprintf('OK. Timer: %.2fs',$metastorage->timer),"\n";
?>