#!/usr/bin/perl
use SGMLS::Refs;
$indent= 10;
sub sani {
$data= $_[0];
$data =~ s/\&/\&\;/g;
$data =~ s/\/\>\;/g;
$data =~ s/\"/\"\;/g;
$data;
}
sgml('start', sub {
print "\n" or die $!;
});
sgml('end', sub {
&doctail;
print "\n" or die $!;
close STDOUT or die $!;
});
sgml('', sub {
print "<title>" or die $!;
});
sgml('', sub {
print "$ctext\n$ctext
\n" or die $!;
$ctext= '';
});
sub doctail {
if (defined $ctail) {
print $ctail or die $!;
undef $ctail;
}
}
sub output {
print $ctext or die $!;
$ctext= '';
}
sub begin_ss {
my ($lev,$elem,$event) = @_;
&output;
print "\n" or die $! if !$lev;
$ctr[$lev]++;
$#ctr= $lev;
$cspc= $lev;
$chdr= join('.',@ctr);
print "- $chdr.\n
- \n" or die $!;
}
sub end_ss {
my ($lev,$elem,$event) = @_;
&output;
print "
\n" or die $! if !$lev;
}
for ($x=0;$x<=4;$x++) {
$ss= 'S'x$x;
$d= "sgml('', sub { &begin_ss($x,\@_); });".
"sgml('', sub { &end_ss($x,\@_); }); 1;";
eval $d or die $@;
}
sub a {
my $z= $_[0]->attribute($_[1]);
return defined $z ? $z->value : undef;
}
sgml('', sub {
my ($elem,$event) = @_;
$txt= a($elem,'TXT');
$ref{$txt}.= ',' if defined $ref{$txt};
$ref{$txt}.= a($elem,'NUM');
});
sgml('', sub {
my ($elem,$event) = @_;
&output;
$txt= a($elem,'TXT');
print "" or die $!;
});
sgml('', sub {
&output;
print "" or die $!;
});
sgml('', sub {
my ($elem,$event) = @_;
&output;
$txt= a($elem,'TXT');
print "" or die $!;
});
sgml('', sub {
my ($elem,$event) = @_;
&output;
$txt= a($elem,'TXT');
print "[$ref{$txt}]" or die $!;
});
sgml('', sub {
&output;
print "" or die $!;
});
sub odata {
my ($d,$event) = @_;
$ctext.= &sani($d);
}
sgml('cdata', \&odata);
sgml('sdata', \&odata);
sgml('re', sub { $ctext.= "\n"; });