package Natura; require 5.005_62; use strict; use warnings; use XML::DT ; require Exporter; our @ISA = qw(Exporter); # This allows declaration use Natura ':all'; # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK # will save memory. our %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw( ); our $VERSION = '0.01'; sub n { my $t = shift; for($t) { s/\s/+/g; tr{瘟逑洄蓐鴒笊礪銓訒蘇羊收般燮稚楕淋枅} {aeiouaeiouaoaeioucaeiouaeiouaoaeiouc}; } return lc($t); } sub mkaxml{ my($f,$name)=@_; $f =~ s/(.*)\/.*/$1/; "$f/".n($name).".xml" } sub template { my $file = shift; my %value = @_; my %handler=( '-inputenc' => 'ISO-8859-1', '-outputenc' => 'ISO-8859-1', '-default' => sub{ toxml }, '_field_' => sub{ if (defined($value{$v{name}})) { $value{$v{name}} } else { "" }}, ); return dt($file,%handler); } sub small_entry { my $file = shift; return pathdtstring($file, ( '-outputenc' => 'ISO-8859-1', '-inputenc' => 'ISO-8859-1', '-default' => sub { "" }, 'entry' => sub { $c =~ m!^(\s|\n)*()!; quadro($2,$') }, 'entry/entryref' => sub { "$c
" }, 'entry/description' => sub { "$c" }, 'parts' => sub { "

$c\n" }, 'parts/entryref' => sub { "

\n" }, )); } sub asLaTeX { my $file = shift; my $bs = '\\verb!\\!'; return pathdtstring($file, ( '-outputenc' => 'ISO-8859-1', '-pcdata' => sub { $c =~ s/\\/$bs/g; $c }, '-inputenc' => 'ISO-8859-1', '-default' => sub { "" }, 'entry' => sub { $c }, 'entry/entryref' => sub { "\\textbf{$c}" }, 'entry/description' => sub { "\\begin{quote}\n$c\n\\end{quote}" }, )); } sub cat2html { my $filename = shift; my $path="/"; my $email; my %handler=( '-inputenc' => 'ISO-8859-1', '-outputenc' => 'ISO-8859-1', '-default' => sub{"

$q:$c

"}, 'file/description' => sub{"$c"}, 'demo/description' => sub{"$c"}, 'description' => sub{"
Description: $c"}, 'catalog/name' => sub{"

$c

"}, 'rating' => sub{""}, 'cvsdir' => sub{""}, 'releases' => sub{"

Releases:

"}, 'documentation' => sub{"

Documentation:

"}, 'version' => sub{$c}, 'file' => sub{"

Download:$c"}, 'format' => sub{"[$c]"}, 'person/name' => sub{"$c"}, 'person/email' => sub{$email=$c;""}, 'person' => sub{ my $x = "$c"; $email = ""; return $x; }, 'role' => sub{""}, 'author' => sub{"
Author: $c"}, 'demos' => sub{"$c"}, 'demo' => sub{"
Demonstra艫o: $c"}, 'url' => sub{"$c"}, 'entry/name' => sub{ if ($c =~ s/^\s*(.+?)\s*$/$1/) { $path.="$c/"; } else { $path.="unknown/"; } "" }, 'entryref' => sub{ "

$c

"}, 'catalog' => sub{"$c"}, 'entry' => sub{ if( $path =~ m{^(.*/).+?$}) { $path = $1;} "

$c

"}, 'parts' => sub{ ($c)?"

":""}, 'relations' => sub{"
Relations:

$c"}, 'rel' => sub{"

$v{type}:$c

"}, 'doc' => sub{"$v{title}
"}, 'tgz' => sub{"$c
"}, ); return pathdtstring($filename,%handler); } sub quadro { my ($titulo,$texto) = (shift,shift); my $width = shift || "80%"; return <$titulo
$texto
EOT } # Preloaded methods go here. 1; __END__ =head1 NAME Natura - Perl extension convertion Nat catalogues to html,tex =head1 SYNOPSIS use Natura; =head1 DESCRIPTION =head2 EXPORT =head1 AUTHOR =head1 SEE ALSO =cut