package dpl::tex; use dpl; use Data::Dumper; $VERSION = 0.02; our $met; sub mkdicthtml { my $filename= shift; my $outfilename= shift; my $d1 = dpl::opendb($filename); open(G,"LC_ALL=pt_PT sort -f $filename.wrdlst|") or die("cant open $filename\n"); open(O,"> $outfilename") or die("cant create $outfilename\n"); binmode(O,":utf8"); $met = $d1->{meta}; # my $intr = $met->{introduction}; # $intr =~ any2html($intr); my $agr = $d1->{h}{'_agradecimentos'}[0]{sem}; print O "

$met->{'title'}

",((ref($met->{author}) eq "HASH")? $met->{author}{name}: join(" and ",map { $_->{name} } @{$met->{author}})), "

\n", $met->{"introduction"}, "

Estrutura das entradas

", any2html( $met->{"skell"}, 0), "\n

Lista de colaboradores

", join(";\n",@$agr), "

"; $fl=""; while(){ chomp(); next if /^!/; next if /^_agradecimentos/; if(/([a-z��0-9])/i and $fl ne n($1)){$fl = n($1); print O "

$fl

\n";} my $tn = firstchoice($_); my $tn2 = ($_ =~ s/\*//gr); if($tn eq $tn2){ print O "

",any2html($tn),"

", join("\n ◊ ", map{any2html($_)} @{$d1->{h}{$_}}) , "

\n"; } else { my $ori=$_; print O "

",any2html($tn),"

", join("\n • ", map{any2html({%{$_},patt=>$ori})} @{$d1->{h}{$_}}) , "

\n"; } } print O "\n\n" } sub any2html { my ($r,$i)= @_; my $ind = ($i >= 0)? (" " x $i) : ""; if (ref($r) eq "HASH" ) {if (%$r){ "

". hash2html($r,abs($i)+3) . "\n" } else {""} } elsif (ref($r) eq "ARRAY") { if (@$r){ "

" . join("
", map (any2html($_,abs($i)+3), @$r)) . "

\n" } else {""} } else { $r =~ s/\+daci!(.*?)!(.*?)!/$1/g; $r =~ s!''(.{3,30}?)''!$1!g; #emph $r =~ s!_(.{3,30}?)_!$1!g; $r =~ s!\n\n+!\n
\n!g; # $r =~ s/_+/\\_/g; # $r =~ s!\|!\/!g; # $r =~ s/

/\n\n/g; # $r =~ s//\\textbf{/g; # $r =~ s!!}!g; # $r =~ s/~/\\~{ }/g; "$ind$r" # "$r" } } sub hash2html{ my($r,$i)=($_[0],$_[1]); my $c=""; my $a; for $a (sort_keys(keys %$r)) { if ($a eq "sem") { if (ref($r->{sem}) eq "ARRAY"){ for(@{$r->{sem}}){ $c .= "\n

• " . any2html($_,-1). "

\n"} } else { $c .= "\n

" . any2html($r->{sem},-1) ."

\n" } } elsif($a eq "!seq"){ if (ref($r->{$a}) eq "ARRAY"){ for(@{$r->{$a}}){ $c .= "

" . any2html($_,-1) . "

\n"} } } elsif($a eq "syn"){ my $s = (defined($met->{descs}{$a}))?"$met->{descs}{$a}:":"syn.:"; $c .= "\n

". any2html($s,-$i). "

" . join("; ",( map {any2html(firstchoice($_),-1)} @{$r->{$a}})) . "

"; } else{ # Este $aa � usado para pesquisa no array associativo de descricoes; my $aa = ($a=~/^\!/)?$':$a; my $s = (defined($met->{descs}{$aa}))?"$met->{descs}{$aa}:":"$a:"; my $contents = ""; if(ref($r->{$a}) eq "ARRAY" && scalar(@{$r->{$a}}) == 1) { $contents = any2html($r->{$a}[0],-$i)} else{$contents = any2html($r->{$a},-$i)} $c .= "\n

". any2html($s,-$i). "

$contents

"; } } $c; } sub sort_keys{ my (@ks)=@_; my %ord=(sem=>10, isa=>11, syn=>9, ex=> 7, frase => 9, equiv => 8, paraf =>8, adivinha => 7, q =>9, p => 9, r => 8, %{$met->{order}||{}}) ; return (sort { ($ord{$b} // 0) <=> ($ord{$a} // 0) or $a cmp $b } @ks) } sub offfirstchoice{ my $a=shift; while( 0 or $a =~ s/\|[^()]+/|/g or $a =~ s/\|([)]|$)//g or $a =~ s/\|[(]/||/g or $a =~ s/\*[A-Z]*//g or $a =~ s/[()]//g or $a =~ s/(\n|\s\s+)/ /g or $a =~ s/\s+$|^\s+//g){}; $a; } sub n { my $a = uc(shift); for ($a) { tr/��/A/; tr/��/A/; tr/��/E/; tr/��/E/; tr/��/I/; tr/��/I/; tr/��/O/; tr/��/O/; tr/��/U/; tr/��/U/; tr/��/C/; s/./#/ unless /[A-Z]/; } return $a; } 1; __END__