# -*-perl-*- # # repository.init -- # # -iso # if set, ISO8859 characters are used for special symbols (like copyright, etc) $USE_ISO = 1; # Extensions $NODE_FILE_EXTENSION = "xhtml"; $EXTENSION = "xhtml"; # Horizontal rules. $DEFAULT_RULE = '
'; $SMALL_RULE = $DEFAULT_RULE; $MIDDLE_RULE = $DEFAULT_RULE; $BIG_RULE = $DEFAULT_RULE; $print_page_head = \&T2H_XHTML_print_page_head; $print_page_foot = \&T2H_XHTML_print_page_foot; $print_frame = \&T2H_XHTML_print_frame; $button_icon_img = \&T2H_XHTML_button_icon_img; #FIXME update once it is more stabilized in texi2html.init sub T2H_XHTML_print_page_head { my $fh = shift; my $longtitle = "$Texi2HTML::THISDOC{'title_unformatted'}"; $longtitle .= ": $Texi2HTML::UNFORMATTED{'This'}" if exists $Texi2HTML::UNFORMATTED{'This'}; $T2H_LANG='en'; print $fh < $longtitle
EOT } sub T2H_XHTML_print_page_foot { my $fh = shift; print $fh <
EOT } # / in sub T2H_XHTML_button_icon_img { my $button = shift; my $icon = shift; my $name = shift; return '' if (!defined($icon)); if (defined($name) && $name) { $name = ": $name"; } else { $name = ''; } $button = "" if (!defined ($button)); return qq{$button$name}; } $simple_map{'*'} = '
'; # formatting functions $def_line = \&t2h_xhtml_def_line; $index_summary = \&t2h_xhtml_index_summary; $image = \&t2h_xhtml_image; # need / in sub t2h_xhtml_image($$$) { my $file = shift; my $base = shift; my $preformatted = shift; return "[ $base ]" if ($preformatted); return "\"$base\""; } # process definition commands line @deffn for example # replaced by sub t2h_xhtml_def_line($$$$$) { my $category = shift; my $name = shift; my $type = shift; my $arguments = shift; my $index_label = shift; $index_label = '' if (!defined($index_label)); $name = '' if (!defined($name) or ($name =~ /^\s*$/)); $type = '' if (!defined($type) or $type =~ /^\s*$/); if (!defined($arguments) or $arguments =~ /^\s*$/) { $arguments = ''; } else { $arguments = '' . $arguments . ''; } my $type_name = ''; $type_name = " $type" if ($type ne ''); $type_name .= ' ' . $name . '' if ($name ne ''); $type_name .= $arguments . "\n"; if (! $DEF_TABLE) { return '
'. '' . $category . ':' . $type_name . $index_label . "
\n"; } else { return "\n" . $type_name . "\n" . $category . $index_label . "\n" . "\n"; } } # There is a br which needs / sub t2h_xhtml_index_summary($$) { my $alpha = shift; my $nonalpha = shift; my $join = ''; my $nonalpha_text = ''; my $alpha_text = ''; $join = "   \n
\n" if (@$nonalpha and @$alpha); if (@$nonalpha) { $nonalpha_text = join("\n   \n", @$nonalpha) . "\n"; } if (@$alpha) { $alpha_text = join("\n   \n", @$alpha) . "\n   \n"; } #I18n return "
Jump to:   " . $nonalpha_text . $join . $alpha_text . '
'; }