Meta::Development::Module - a single development module.

	MANIFEST: Module.pm
	PROJECT: meta
	VERSION: 0.09

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

	BEGIN()
	new_name($$);
	get_abs_path($)
	get_sgml_name($)
	get_temp_sgml_tag($$)
	get_xml_def_name($)
	get_lily_filename($)
	get_lily_title($)
	get_lily_subtitle($)
	get_lily_composer($)
	get_lily_enteredby($)
	get_lily_copyright($)
	get_lily_style($)
	get_lily_source($)
	linkit($$$$)
	get_self_link($$)
	get_link($$$)
	get_2_link($$$$)
	get_3_link($$$$$)
	get_pgn_games($)
	get_xml_num_elems($$)
	get_xml_sum_elems($$)
	TEST($)

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

	0.00 MV web site development
	0.01 MV more web page stuff
	0.02 MV web site automation
	0.03 MV SEE ALSO section fix
	0.04 MV put all tests in modules
	0.05 MV move tests into modules
	0.06 MV web site development
	0.07 MV weblog issues
	0.08 MV more pdmt stuff
	0.09 MV md5 issues

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

package Meta::Development::Module;

use strict qw(vars refs subs);
use Meta::Class::MethodMaker qw();
use Meta::Lang::Lily::InfoParser qw();
use Meta::Utils::Utils qw();
use Meta::Utils::File::Dir qw();
use Meta::Xml::Parsers::Dom qw();
use Meta::Baseline::Lang::Temp qw();
use Meta::Utils::Text::Counter qw();
use Meta::Lang::Xml::Xml qw();
use Meta::Xml::Dom qw();
use XML::XPath qw();
use XML::Parser qw();
use Error qw(:try);

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

#sub BEGIN();
#sub new_name($$);
#sub get_abs_path($);
#sub get_sgml_name($);
#sub get_temp_sgml_tag($$);
#sub get_basename($);
#sub get_xml_def_name($);
#sub get_lily_filename($);
#sub get_lily_title($);
#sub get_lily_subtitle($);
#sub get_lily_composer($);
#sub get_lily_enteredby($);
#sub get_lily_copyright($);
#sub get_lily_style($);
#sub get_lily_source($);
#sub linkit($$$$);
#sub get_self_link($$);
#sub get_link($$$);
#sub get_2_link($$$$);
#sub get_3_link($$$$$);
#sub get_pgn_games($);
#sub get_xml_num_elems($$);
#sub get_xml_sum_elems($$);
#sub TEST($);

#__DATA__

sub BEGIN() {
	Meta::Class::MethodMaker->new("new");
	Meta::Class::MethodMaker->get_set(
		-java=>"_name",
	);
	Meta::Class::MethodMaker->print(
		[
			"name",
		]
	);
}

sub new_name($$) {
	my($clas,$name)=@_;
	my($ret)=&new($clas);
	$ret->set_name($name);
	return($ret);
}

sub get_abs_path($) {
	my($self)=@_;
#	if(Meta::Baseline::Aegis::have_aegis()) {
	if(1) {
		return(Meta::Baseline::Aegis::which($self->get_name()));
	} else {
		# FIXME this only deals with apache and is hardcoded
		return("/local/tools/htdocs/".$self->get_name());
	}
}

sub get_sgml_name($) {
	my($self)=@_;
	my($file_name)=$self->get_abs_path();
	my($parser)=Meta::Xml::Parsers::Dom->new();
	my($doc)=$parser->parsefile($file_name);
	my($article)=$doc->getDocumentElement();
	if(!defined($article)) {
		throw Meta::Error::Simple("cant get article");
	}
	my($title);
	$title=$article->getElementsByTagName("title",0);
	if(!defined($title)) {
		throw Meta::Error::Simple("cant get name");
	}
	if($title->getLength()!=1) {
		throw Meta::Error::Simple("bad length");
	}
	my($ret)=$title->[0]->getFirstChild()->getData();
	return($ret);
}

sub get_temp_sgml_tag($$) {
	my($self,$tag)=@_;
	my($self)=@_;
	my($file_name)=$self->get_abs_path();
	my($text)=Meta::Baseline::Lang::Temp::ram_process($self->get_name(),$file_name);
	my($par)=XML::Parser->new();
	if(!defined($par)) {
		throw Meta::Error::Simple("unable to create XML::Parser");
	}
	my($xp)=XML::XPath->new(xml=>$text,parser=>$par);
	my($nodeset)=$xp->find($tag);
	if($nodeset->size()!=1) {
		throw Meta::Error::Simple("found !=1 nodes [".$nodeset->size()."] in module [".$self->get_name()."]");
	}
	return($nodeset->get_node(0)->getChildNode(1)->getValue());
}

sub get_basename($) {
	my($self)=@_;
	my($name)=$self->get_name();
	return(Meta::Utils::Utils::basename($name));
}

sub get_basename($) {
	my($self)=@_;
	my($name)=$self->get_name();
	return(Meta::Utils::Utils::basename($name));
}

sub get_xml_def_name($) {
	my($self)=@_;
	my($file_name)=$self->get_abs_path();
	my($parser)=Meta::Xml::Parsers::Dom->new();
	my($doc)=$parser->parsefile($file_name);
	my($def);
	$def=$doc->getDocumentElement();
	if(!defined($def)) {
		throw Meta::Error::Simple("cant get def");
	}
	my($name);
	$name=$def->getElementsByTagName("name",0);
	if(!defined($name)) {
		throw Meta::Error::Simple("cant get name");
	}
	if($name->getLength()!=1) {
		throw Meta::Error::Simple("bad length");
	}
	my($ret)=$name->[0]->getFirstChild()->getData();
	return($ret);
}

sub get_lily_filename($) {
	my($self)=@_;
	my($info)=Meta::Lang::Lily::InfoParser->new();
	$info->parse($self->get_abs_path());
	return($info->get_filename());
}

sub get_lily_title($) {
	my($self)=@_;
	my($info)=Meta::Lang::Lily::InfoParser->new();
	$info->parse($self->get_abs_path());
	return($info->get_title());
}

sub get_lily_subtitle($) {
	my($self)=@_;
	my($info)=Meta::Lang::Lily::InfoParser->new();
	$info->parse($self->get_abs_path());
	return($info->get_subtitle());
}

sub get_lily_composer($) {
	my($self)=@_;
	my($info)=Meta::Lang::Lily::InfoParser->new();
	$info->parse($self->get_abs_path());
	return($info->get_composer());
}

sub get_lily_enteredby($) {
	my($self)=@_;
	my($info)=Meta::Lang::Lily::InfoParser->new();
	$info->parse($self->get_abs_path());
	return($info->get_enteredby());
}

sub get_lily_copyright($) {
	my($self)=@_;
	my($info)=Meta::Lang::Lily::InfoParser->new();
	$info->parse($self->get_abs_path());
	return($info->get_copyright());
}

sub get_lily_style($) {
	my($self)=@_;
	my($info)=Meta::Lang::Lily::InfoParser->new();
	$info->parse($self->get_abs_path());
	return($info->get_style());
}

sub get_lily_source($) {
	my($self)=@_;
	my($info)=Meta::Lang::Lily::InfoParser->new();
	$info->parse($self->get_abs_path());
	return($info->get_source());
}

sub linkit($$$$) {
	my($name,$dire,$suff,$modu)=@_;
	my($nname)=$dire."/".Meta::Utils::Utils::remove_suffix($name).".".$suff;
	my($path)=Meta::Utils::File::Dir::get_relative_path($modu,$nname);
	return("<a href=\"".$path."\">".$suff."</a>");
#	return("<a href=\"http://www.veltzer.org/".$dire."/".$nname.".".$suff."\">".$suff."</a>");
}

sub get_self_link($$) {
	my($self,$modu)=@_;
	my($suff)=Meta::Utils::Utils::get_suffix($self->get_name());
	my($path)=Meta::Utils::File::Dir::get_relative_path($modu,$self->get_name());
	return("<a href=\"".$path."\">".$suff."</a>");
#	return($suff."-".$modu);
#	return("<a href=\"http://www.veltzer.org/".$self->get_name()."\">".$suff."</a>");
}

our(%directories)=(
	"tex"=>"texx",
	"ps"=>"psxx",
	"rtf"=>"rtfx",
	"pdf"=>"pdfx",
	"dvi"=>"dvix",
	"midi"=>"midi",
	"temp"=>"temp",
	"sgml"=>"sgml",
	"html"=>"html",
	"txt"=>"txtx",
	"xml"=>"xmlx",
	"chun"=>"chun",
	"lyx"=>"lyxx",
	"info"=>"info",
	"mif"=>"mifx",
	"man"=>"manx",
	"latex"=>"latex",
	"gz"=>"gzxx",
	"ly"=>"lily",
	"dtd"=>"dtdx",
);

sub get_link($$$) {
	my($self,$suff,$modu)=@_;
	if(!exists($directories{$suff})) {
		throw Meta::Error::Simple("unable to find suffix [".$suff."]");
	}
	my($dire)=$directories{$suff};
	return(linkit($self->get_name(),$dire,$suff,$modu));
}

sub get_2_link($$$$) {
	my($self,$suff1,$suff2,$modu)=@_;
	if(!exists($directories{$suff1})) {
		throw Meta::Error::Simple("unable to find suffix [".$suff1."]");
	}
	if(!exists($directories{$suff2})) {
		throw Meta::Error::Simple("unable to find suffix [".$suff2."]");
	}
	my($dire1)=$directories{$suff1};
	my($dire2)=$directories{$suff2};
	my($dire)=$dire2."/".$dire1;
	my($suff);
	if($suff2 eq "gz") {
		$suff=$suff1.".".$suff2;
	} else {
		$suff=$suff2;
	}
	return(linkit($self->get_name(),$dire,$suff,$modu));
}

sub get_3_link($$$$$) {
	my($self,$suff1,$suff2,$suff3,$modu)=@_;
	if(!exists($directories{$suff1})) {
		throw Meta::Error::Simple("unable to find suffix [".$suff1."]");
	}
	if(!exists($directories{$suff2})) {
		throw Meta::Error::Simple("unable to find suffix [".$suff2."]");
	}
	if(!exists($directories{$suff3})) {
		throw Meta::Error::Simple("unable to find suffix [".$suff3."]");
	}
	my($dire1)=$directories{$suff1};
	my($dire2)=$directories{$suff2};
	my($dire3)=$directories{$suff3};
	my($dire)=$dire3."/".$dire2."/".$dire1;
	my($suff);
	if($suff3 eq "gz") {
		$suff=$suff2.".".$suff3;
	} else {
		$suff=$suff3;
	}
	return(linkit($self->get_name(),$dire,$suff,$modu));
}

sub get_pgn_games($) {
	my($self)=@_;
	my($path)=$self->get_abs_path();
	return(Meta::Utils::Text::Counter::count($path,"Event"));
}

sub get_xml_num_elems($$) {
	my($self,$elem)=@_;
	my($file)=$self->get_abs_path();
	my($parser)=Meta::Xml::Dom->new_vali(0);
	my($doc)=$parser->parsefile($file);
	my($elem_number)=$doc->getElementsByTagName($elem)->getLength();
	return($elem_number);
}

sub get_xml_sum_elems($$) {
	my($self,$elem)=@_;
	my($file)=$self->get_abs_path();
	my($parser)=Meta::Xml::Dom->new_vali(0);
	my($doc)=$parser->parsefile($file);
	my($elems);
	my($sum)=0;
	$elems=$doc->getElementsByTagName($elem);
	for(my($i)=0;$i<$elems->getLength();$i++) {
		my($curr)=$elems->[$i];
		$sum+=$curr->getFirstChild()->getData();
	}
	return($sum);
}

sub TEST($) {
	my($context)=@_;
	my($module)=__PACKAGE__->new();
	$module->set_name("temp/sgml/papers/biology/neo_conflict.temp");
	my($releaseinfo)=$module->get_temp_sgml_tag('/article/title');
	Meta::Utils::Output::print("releaseinfo is [".$releaseinfo."]\n");
	return(1);
}

1;

__END__