# $Id: am2html.pl,v 1.2 2000/08/21 18:45:01 tomek Exp $ ################################################################ # Konwersja DocBook ARTICLE -> html # Autor skryptu: Tomasz Przechlewski *** # Data: 17/07/2000 ** Ostatnia poprawka: 18/08/2000 ####################### use SGMLS; # Use the SGMLS package. use SGMLS::Output; # Use stack-based output. use SGMLS::Refs; # my $GawkExSym = "*"; # oznaczenie rozszerzeń gawk-a $ExTableSpecs='BORDER="0" WIDTH="100%" BGCOLOR="#E0E0E0"'; $example_id = 0; # # Document Handlers. # sgml('start',sub { $Refs = new SGMLS::Refs('awk-man.refs'); $toc_contents = $Refs -> get('ToC'); }); sgml('end', sub { $Refs->warn; }); # /////////////////////////////////////////////////////////////// # Element Handlers # /////////////////////////////////////////////////////////////// # Element: ARTICLE # ** Nazwiska autor/ow skromnie na ko/ncu ** sgml('
', sub { output ("\n\n"); }); sgml('
', sub { #output ("\n

$signature

\n"); output ("

Copyright (C) $copyright

"); output ("$legalnotice"); output (""); }); # Element: ARTHEADER sgml('', ""); sgml('', sub { output "$documenttitle"; output ''; output "\n\n"; output "\n\n\n"; if (defined $bibliomisc) { output ("

$documenttitle*

") } else { output ("

$documenttitle

") } # Drukujemy autorów zapamiętanych w tablicy authors # jednocześnie tworzony jest napis $signature zawierający w/w # dane do późniejszego wykorzystania # Drukowanie imion/nazwisk autorów: my $i; for ( $i=0; $i <= $#authors; $i++ ) { my $a = ${$authors[$i]}{'firstname'} . ' ' . ${$authors[$i]}{'surname'}; my $e = ${$authors[$i]}{'email'}; output ("$a\n"); $signature .= "$a\n"; } if (defined $bibliomisc) { output ("

[*$bibliomisc]

\n") } output("

\n"); @authors=(); # zawartość tablicy już niepotrzebna undef $articletitle; # ditto, tytuł artykułu... undef $bibliomisc; # ditto, podziękowania itp... # # Wstawiamy spis treści # $toc_contents =~ s##\n

  • #gs; $toc_contents =~ s##
    • \n\t
  • #gs; $toc_contents =~ s##
    • \n
  • #gs; $toc_contents =~ s##
    • \n\n
  • #gs; $toc_contents =~ s##
    • \n\n
  • #gs; # $toc_contents =~ s#^#
  • #g; $toc_contents =~ s##
    • #g; # output "

    Spis treści

    \n"; output("

    \n"); }); # /////////////// # Element: TITLE. Z elementem 'TITLE' jest ten problem, że sposób jego # formatowania zależy od kontekstu. Inaczej formatujemy tytuł # rozdziału a inaczej tytuł przykładu, itp... # sgml('', \&push ); sgml('', sub { my $element=shift; my ($t, $t_toc); $t = pop_output; $t_id = $element->parent->attribute('ID')->value; $_ = $element->parent->name; $title_id++; if ( $t_id ) { $true_title_id = $t_id } else { $true_title_id = "title$title_id" }; TITLE: { /ARTHEADER/ and do { $documenttitle=$t; last TITLE }; /SECT1/ and do { $Refs-> put("$t_id", $t) if $t_id; ## DODANE ! # $t_toc = "$t"; # $t="\n

    $t

    \n"; $t_toc = "$t"; $t="\n

    $t

    \n"; output $t; last TITLE }; /SECT2/ and do { $Refs-> put("$t_id", $t) if $t_id; ## DODANE ! #$t_toc = "    $t"; #$t="\n

    $t

    \n"; $t_toc = "    $t"; $t="\n

    $t

    \n"; output $t; last TITLE }; /SECT3/ and do { $t_toc = "    $t"; $t="\n

    $t

    \n"; output $t; last TITLE }; /FIGURE/ and do { my $num = &counter($_); $t="\n{\\smallskip\\centerline{Rys. $num. $t}}\n"; $figcap=$t; undef $t; output $t; last TITLE }; /EXAMPLE/ and do { # Licznik $example_id jest zwiększany po napotkaniu # nadrzędnych elementów EXAMPLE/INFORMALEXAMPLE my $example_title = "$example_id [$t]"; $Refs-> put("$t_id", $example_title); $t="    \n

    Przykład $example_id: $t

    \n"; output $t; last TITLE }; /VARIABLELIST/ and do { $t="
    $t
    \n"; output $t; last TITLE }; /TABLE/ and do { $tabletitle = $t; last TITLE }; /BIBLIOENTRY/ and do { # Tytuł jest drukowany po napotkaniu `/BIBLIOENTRY' # Tutaj go tylko zapamiętujemy $booktitle =$t; last TITLE }; /BIBLIOSET/ and do { my $what = $element->parent->attribute(RELATION)->value; $articletitle = $t if ($what eq 'article'); $journaltitle = $t if ($what eq 'journal'); last TITLE } } $t_to_toc .= $t_toc; # Wpisy do spisu tre/sci /l/aczymy w jeden napis chomp($t_to_toc); # Na wszelki wypadek obcinamy koniec wiersza $Refs-> put('ToC',$t_to_toc); }); # Bibliografia i odsyłacze bibliograficzne ///////////////// # sgml('', \&push); sgml('', sub{ my $element = shift; my $bib = pop_output; output("    $bib"); }); sgml('', sub { output ("\n

    Bibliografia

    \n"); output ("
    \n"); }); sgml('', sub { output "
    \n"; }); sgml('', sub { my $element = shift; my $label = $element ->attribute('XREFLABEL')->value; output ("
    $label
    \n") }); sgml('', sub { my $i; # Autorzy for ( $i=0; $i <= $#authors; $i++ ) { my $a = ${$authors[$i]}{'surname'} . ' ' . ${$authors[$i]}{'firstname'}; my $e = ${$authors[$i]}{'email'}; if ( $i < $#authors ) { output ("$a,\n"); } else { output ("$a:\n"); } } # Formatowanie pozycji typu: książka if ($booktitle) { output("$booktitle"); output(",\n$publishername") if $publishername; if ($pubdate && $publishername) { output("\n$pubdate") } else { if ($pubdate ) {output(",\n$pubdate") } } output(",\n$bibliomisc") if $bibliomisc; output(".\n"); } # Formatowanie pozycji typu: artykuł if ($articletitle ) { output("$articletitle, $journaltitle"); if ($volumenum && $pubdate) { output("\n$volumenum/$pubdate") } else { if ($pubdate ) {output(",\n$pubdate") } } output(",\ns. $pagenums") if $pagenums; output(",\n$bibliomisc") if $bibliomisc; output(".\n"); } @authors=(); # tablica jest już niepotrzebna undef $booktitle; undef $publishername; undef $pubdate; undef $bibliomisc; undef $articletitle; undef $journaltitle; undef $pagenums; undef $volumenum; }); sgml('', ""); sgml('', sub { push(@authors, {'surname' => $surname, 'firstname' => $firstname, 'email' => $email} ); }); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('
    ', \&push); sgml('
    ', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', \&getcontents); sgml('', \&push); sgml('', sub { my $element=shift; my $holder =pop_output; if ($element->within(COPYRIGHT) ) { output "$holder\n"; } }); sgml('', \&push); sgml('', sub { my $element=shift; my $y =pop_output; if ($element->within(COPYRIGHT) ) { output "$y\n"; } }); sgml('', \&push); sgml('', \&getcontents); sgml('', sub { my $element=shift; my $parent=$element->parent->name; push_output 'string';} ); sgml('', sub { my $element=shift; $bibliomisc = pop_output;}); # Różne ////// sgml('', sub{ my $element = shift; $para_num++; # -- Wewnątrz przypisu pierwszy

    musi zniknąć -- if (($element->within(FOOTNOTE) || $element->within(NOTE)) && $para_num == 1) { ; } else { output "\n

    \n"; } }); sgml('    ', sub{ my $element = shift; # ** W przypisach/notkach nic na końcu nie stawiamy *** if ($element->within(FOOTNOTE) || $element->within(NOTE)) { ; } else { output "\n

    \n"; } }); sgml('', sub { undef $para_num; output ("

    Uwagi:\n"); }); sgml('', sub { output ("

    \n"); }); sgml('', "ang. "); sgml('', ""); sgml('', ""); sgml('', ""); # Różne typu BLOCK # # *** Elementy EXAMPLE oraz INFORMALEXAMPLE ** # Element INFORMALEXAMPLE nie zawiera elementu `TITLE' # Element: EXAMPLE sgml('', sub{ my $element = shift; my $id = $element ->attribute('ID')->value; output ("
    "); output ("") if $id; output ("
    \n"); $example_id++; # numer kolejnego przykładu, por. `INFORMALEXAMPLE' }); sgml('', "
    "); # # Element: INFORMALEXAMPLE sgml('', sub{ my $element = shift; my $id = $element ->attribute('ID')->value; output ("
    "); output ("") if id; output ("
    \n"); output ("

    Przykład $example_id

    \n"); # Nie ma tytułu $example_id++; # numer kolejnego przykładu, por. `EXAMPLE' }); sgml('', "
    "); # Element: LITERAL sgml('', "
    ");
sgml('', "
    "); # Element: PROGRAMLISTING sgml('', "
    ");
sgml('', "
    "); # Skorowidz /////////////////////// sgml('', sub { push_output 'nul' }); sgml('', \&pop_output ); sgml('', sub {push_output 'nul' }); sgml('', \&pop_output ); # Wyliczanki /////////////////////// sgml('', "
    \n"); sgml('', "
    \n"); sgml('', "
    \n"); sgml('', "
    \n"); sgml('', "
    \n"); sgml('', "
    \n"); sgml('', sub { my $element=shift; my $parent=$element->parent->name; if ($parent ne 'VARLISTENTRY') { output "
  • "; } }); #sgml('', "
    • \n"); sgml('', "
      \n"); sgml('', "
    \n"); sgml('', "
      \n"); sgml('', "
    \n"); # Elementy składane imitacją pisma maszynowego /////////////// # sgml('', \&print_verbatim); sgml('', \&push); sgml('', \&print_verbatim); sgml('', \&push); sgml('', \&print_verbatim); sgml('', \&push ); sgml('', \&print_verbatim); sgml('', \&push ); sgml('', \&print_verbatim); sgml('', \&push ); sgml('', \&print_verbatim ); sgml('', \&push ); sgml('', \&print_verbatim ); # USERINPUT jest zawsze wewnątrz LITERAL albo PROGRAMLISTING # nie wymaga zatem żadnego dodatkowego formatowania sgml('', ""); sgml('', ""); sgml('', "<"); sgml('', ">"); # Zakładamy, że `REPLACEABLE' i `OPTIONAL' występują zawsze # wewnątrz elementów składanych ,,verbatim'' sgml('', ""); sgml('', ""); sgml('', sub { output ("["); }); sgml('', sub { output ("]"); }); # Przypisy i odsyłacze # Element: ULINK sgml('', sub { my $element = shift; #my $uri = $element ->attribute('URL')->value; #output "    " if $uri; $uri = $element ->attribute('URL')->value; &push; }); #sgml('', "") sgml('', sub{ my $uritext =pop_output; $uritext =~ s/^[ \t\n]$//gs; # usuń wszystkie odstępy if ($uritext eq '') { output "$uri" } else { output "$uritext" } }); sgml('', sub { my $element = shift; my $uri = $element ->attribute('LINKEND')->value; my $uritext = $Refs-> get($uri); output "$uritext" if $uri; }); sgml('', ""); # Element: LINK sgml('', ""); sgml('', ""); # Element: FOOTNOTE sgml('', sub{ undef $para_num; output "\n["; }); sgml('', sub{ output "]"; }); # TABELE ////////////////////////////////// # # -- Zrobić formatowanie tabel --- # sgml('', sub { my $element = shift; push @current_id_stack, $current_id; $current_id = lc($element->attribute(ID)->value || gen_id()); $table_counter++; $Refs->put("xref:$current_id",$table_counter); }); sgml('
    ', sub { output "\n"; $current_id = pop @current_id_stack; }); # # Nothing needs to be done here -- we don't care how many cells there are. # sgml('', sub { my $element = shift; my $cols = $element ->attribute('COLS')->value || 2; output ""; output "" if $tabletitle; undef $tabletitle; }); sgml('', "
    $tabletitle
    "); # # We will keep track of all of the entries in the head, for later use. # sgml('', ""); sgml('', ""); # sgml('', ""); sgml('', ""); # sgml('', sub { output "\n\n"; }); sgml('', "\n\n"); # sgml('', sub { output ""; }); sgml('', sub { output ""; }); #Elementy podziału logicznego dokumentu # Element: SECT1 sgml('', ""); sgml('', ""); # Element: SECT3 sgml('', ""); sgml('', ""); # Element: SECT2 sgml('', ""); sgml('', ""); ## /////////////////////////////////////////////////////////// ## Być może nie jest to specjalnie potrzebne: sub gen_id { $id_counter++; return "node$id_counter"; } ## Uwaga przedefiniowany push!! sub push { my $element=shift; push_output 'string'; } sub getcontents{ my $element=shift; my $name = lc($element->name); $$name=pop_output; } sub stepcounter{ my $name=shift; ++$count{$name}; } sub counter{ my $name=shift; $count{$name}; } # SDATA Handlers sgml('|[TeX]|',"TeX"); sgml('|[LaTeX]|',"LaTeX"); sgml('|[MP]|',"MetaPost"); sgml('|[MF]|',"MetaFont"); sgml('|[nbsp ]|',' '); sgml('|[amp ]|','&'); sgml('|[mdash ]|','--'); sgml('|[gt ]|','>'); sgml('|[lt ]|','<'); sgml('|[vspace]|','~'); # visible space sgml('|[gawkex]|',"$GawkExSym"); # gawk extension symbol sgml('|[userex]|',"$UserDfSym"); # userdefined function sgml('|[minus ]|', "-"); sgml('|[percen]|', "%"); sub print_verbatim { my $element=shift; my $name = $element->name; my $content = pop_output; my $role = $element->attribute('ROLE')->value; if ($role eq 'gawk') { $role="$GawkExSym" } else { $role="" } output ("$content$role"); } 1;