Meta::Tool::Sgmltoolslite - run sgmltools-lite for you.

	MANIFEST: Sgmltoolslite.pm
	PROJECT: meta
	VERSION: 0.16

	package foo;
	use Meta::Tool::Sgmltoolslite qw();
	my($object)=Meta::Tool::Sgmltoolslite->new();
	my($result)=$object->method();

	check($)
	c2texx($)
	c2dvix($)
	c2psxx($)
	c2txtx($)
	c2html($)
	c2rtfx($)
	c2mifx($)
	c2pdfx($)
	tool($$$)
	TEST($)

	Name: Mark Veltzer
	Email: mailto:veltzer@cpan.org
	WWW: http://www.veltzer.org
	CPAN id: VELTZER

	0.00 MV fix docbook and other various stuff
	0.01 MV Revision in DocBook files stuff
	0.02 MV finish lit database and convert DocBook to SGML
	0.03 MV perl packaging
	0.04 MV BuildInfo object change
	0.05 MV some chess work
	0.06 MV md5 project
	0.07 MV database
	0.08 MV perl module versions in files
	0.09 MV movies and small fixes
	0.10 MV thumbnail user interface
	0.11 MV more thumbnail issues
	0.12 MV website construction
	0.13 MV web site automation
	0.14 MV SEE ALSO section fix
	0.15 MV bring movie data
	0.16 MV md5 issues

#!/bin/echo This is a perl module and should not be run

package Meta::Tool::Sgmltoolslite;

use strict qw(vars refs subs);
use Meta::Utils::System qw();
use Meta::Utils::Output qw();
use Meta::Utils::Text::Lines qw();
use Meta::Utils::File::Copy qw();
use Meta::Utils::File::Remove qw();
use Meta::Utils::File::Move qw();
use Meta::Utils::Utils qw();
use Meta::Baseline::Utils qw();
use Error qw(:try);
use Meta::Error::FileNotFound qw();
use Meta::Utils::File::Patho qw();

our($VERSION,@ISA);
$VERSION="0.16";
@ISA=qw();

#sub check($);
#sub c2texx($);
#sub c2dvix($);
#sub c2psxx($);
#sub c2txtx($);
#sub c2html($);
#sub c2rtfx($);
#sub c2mifx($);
#sub c2pdfx($);
#sub tool($$$);
#sub TEST($);

#__DATA__

our($tool_path);
our($prefix);

sub BEGIN() {
#	my($patho)=Meta::Utils::File::Patho->new_path();
#	$tool_path=$patho->resolve("sgmltools");
#	$prefix=$patho->path_to("sgmltools");
}

sub check($) {
	my($buil)=@_;
	return(1);
}

sub c2texx($) {
	my($buil)=@_;
	return(tool($buil,"tex","jadetex"));
}

sub c2dvix($) {
	my($buil)=@_;
	return(tool($buil,"dvi","dvi"));
}

sub c2psxx($) {
	my($buil)=@_;
	return(tool($buil,"ps","ps"));
}

sub c2txtx($) {
	my($buil)=@_;
	return(tool($buil,"txt","txt"));
}

sub c2html($) {
	my($buil)=@_;
	return(tool($buil,"html","onehtml"));
}

sub c2rtfx($) {
	my($buil)=@_;
	return(tool($buil,"rtf","rtf"));
}

sub c2mifx($) {
	my($buil)=@_;
	Meta::Baseline::Utils::file_emblem($buil->get_targ());
	#return(tool($buil,"mif","mif"));
	return(1);
}

sub c2pdfx($) {
	my($buil)=@_;
	return(tool($buil,"pdf","pdf"));
}

sub tool($$$) {
	my($buil,$suff,$back)=@_;
	my($modu)=$buil->get_modu();
	my($srcx)=$buil->get_srcx();
	my($targ)=$buil->get_targ();
	my($path)=$buil->get_path();
	my($file)=Meta::Utils::Utils::get_temp_file();
	my($resu)=$file."\.".$suff;
	Meta::Utils::File::Copy::copy($srcx,$file);
#	Meta::Utils::Env::remove_nodie("SGML_CATALOG_FILES");
	Meta::Utils::Env::set("SGML_CATALOG_FILES",$prefix."/share/sgml/stylesheets/sgmltools/sgmltools.cat");
	try {
		Meta::Utils::Env::remove("SGML_PATH");
	}
	catch Error with {
		# do nothing
	}
	my(@args);
	push(@args,"--backend=".$back);
	#push(@args,"--output=".$back);
	my(@pths)=split(':',$path);
	my(@dirs);
	for(my($i)=0;$i<=$#pths;$i++) {
		my($curr)=$pths[$i];
		#add search directory for entire search path
		my($docb)=$curr."/chun/sgml";
		if(-d $docb) {
			push(@dirs,"-D".$docb);
			#push(@args,"--include".$docb);
		}
		#search for DTDs in the baseline
		my($dtdx)=$curr."/dtdx";
		if(-d $dtdx) {
			push(@dirs,"-D".$dtdx);
			#push(@args,"--include".$dtdx);
		}
		#search for DTDs in the baseline catalog
		my($dtdxcata)=$curr."/dtdx/CATALOG";
		if(-f $dtdxcata) {
			push(@dirs,"-c".$dtdxcata);
			#push(@args,"-c".$dtdxcata);
		}
		#search for DSLs in the baseline
		my($dslx)=$curr."/dslx";
		if(-d $dslx) {
			push(@dirs,"-D".$dslx);
			#push(@args,"--include".$dslx);
		}
		#search for DSLs in the baseline catalog
		my($dslxcata)=$curr."/dslx/CATALOG";
		if(-f $dslxcata) {
			push(@dirs,"-c".$dslxcata);
			#push(@args,"-c".$dslxcata);
		}
	}
	push(@dirs,"-c".$prefix."/share/sgml/stylesheets/sgmltools/sgmltools.cat");
	push(@dirs,"-c/usr/share/sgml/openjade-1.3/catalog");
	push(@dirs,"-c/usr/share/sgml/docbook/dsssl-stylesheets/catalog");
	push(@args,"--jade-opt=\'".join(" ",@dirs)."\'",$file);
	my($text);
	#Meta::Utils::Output::print("cmd line is [".CORE::join(",",$tool_path,@args)."]\n");
	my($scod)=Meta::Utils::System::system_err_nodie(\$text,$tool_path,\@args);
	Meta::Utils::File::Remove::rm($file);
	if(!$scod) {#code is bad (there should be no result but we rm it still)
		Meta::Utils::Output::print($text);
		try {
			Meta::Utils::File::Remove::rm($resu);
		}
		catch Meta::Error::FileNotFound with {
			# do nothing
		};
	} else {
		my($obj)=Meta::Utils::Text::Lines->new();
		$obj->set_text($text,"\n");
		$obj->remove_line_nre("\<OSFD\>");
		$text=$obj->get_text_fixed();
		if($text ne "") {#code is ok but there is error text
			$scod=0;
			Meta::Utils::Output::print($text);
			Meta::Utils::File::Remove::rm($resu);
		} else {#all is well - code is ok and no error text
			Meta::Utils::File::Move::mv($resu,$targ);
		}
	}
	return($scod);
}

sub TEST($) {
	my($context)=@_;
	return(1);
}

1;

__END__