diff options
Diffstat (limited to 'Build/source/utils/texi2html/examples/xhtml.init')
-rw-r--r-- | Build/source/utils/texi2html/examples/xhtml.init | 188 |
1 files changed, 0 insertions, 188 deletions
diff --git a/Build/source/utils/texi2html/examples/xhtml.init b/Build/source/utils/texi2html/examples/xhtml.init deleted file mode 100644 index 3343a95c935..00000000000 --- a/Build/source/utils/texi2html/examples/xhtml.init +++ /dev/null @@ -1,188 +0,0 @@ -# -*-perl-*- - -# APA: Add SystemLiteral to identify the canonical DTD. -# [Definition:] The SystemLiteral is called the entity's system -# identifier. It is a URI, which may be used to retrieve the entity. -# See http://www.xml.com/axml/target.html#NT-ExternalID -$DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/xhtml1-transitional.dtd">'; - -$FRAMESET_DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/xhtml1-frameset.dtd">'; - -# -iso -# if set, ISO8859 characters are used for special symbols (like copyright, etc) -$USE_ISO = 1; - -# horizontal rules -$SMALL_RULE = '<hr size="1"/>'; -$DEFAULT_RULE = '<hr/>'; -$MIDDLE_RULE = '<hr size="2"/>'; -$BIG_RULE = '<hr size="6"/>'; - -# this is added inside <head></head> after <title> and some <meta name> -# stuff, it can be used for eg. <style>, <script>, <meta> etc. tags. -$EXTRA_HEAD = ''; - -$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_no_texi'}"; - $longtitle .= ": $Texi2HTML::NO_TEXI{'This'}" if exists $T2H_NO_TEXI{'This'}; - print $fh <<EOT; -<?xml version="1.0" encoding="iso-8859-1"?> -$T2H_DOCTYPE -<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="$T2H_LANG" lang="$T2H_LANG"> -$T2H_THISDOC{'copying'}<!-- Created on $Texi2HTML::THISDOC{today} by $Texi2HTML::THISDOC{program} --> -<!-- -$Texi2HTML::THISDOC{program_authors} ---> -<head> -<title>$longtitle</title> - -<meta name="description" content="$longtitle"/> -<meta name="keywords" content="$longtitle"/> -<meta name="resource-type" content="document"/> -<meta name="distribution" content="global"/> -<meta name="Generator" content="$T2H_THISDOC{program}"/> -$EXTRA_HEAD -</head> - -<body $T2H_BODYTEXT> -$AFTER_BODY_OPEN -EOT -} - -# <span> instead of <font> -sub T2H_XHTML_print_page_foot -{ - my $fh = shift; - print $fh <<EOT; -<p> - <span style="font-size: smaller"> - This document was generated $ADDRESS - using <a href="$T2H_THISDOC{program_homepage}"><i>$Texi2HTML::THISDOC{program}</i></a>. - </span> - <br/> -$PRE_BODY_CLOSE -</p> -</body> -</html> -EOT -} - -sub T2H_XHTML_print_frame -{ - my $fh = shift; - my $toc_file = shift; - my $main_file = shift; - print $fh <<EOT; -$FRAMESET_DOCTYPE -<html> -<head><title>$Texi2HTML::THISDOC{title}</title></head> -<frameset cols="140,*"> - <frame name="toc" src="$toc_file"/> - <frame name="main" src="$main_file"/> -</frameset> -</html> -EOT -} - -# / in <img> -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{<img src="$icon" border="0" alt="$button$name" align="middle"/>}; -} - -$simple_map{'*'} = '<br/>'; - -# formatting functions - -$def_line = \&t2h_xhtml_def_line; -$index_summary = \&t2h_xhtml_index_summary; -$image = \&t2h_xhtml_image; - -# need / in <img> -sub t2h_xhtml_image($$$) -{ - my $file = shift; - my $base = shift; - my $preformatted = shift; - return "[ $base ]" if ($preformatted); - return "<img src=\"$file\" alt=\"$base\"/>"; -} - -# process definition commands line @deffn for example -# <u> replaced by <span> -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 = '<i>' . $arguments . '</i>'; - } - my $type_name = ''; - $type_name = " $type" if ($type ne ''); - $type_name .= ' <b>' . $name . '</b>' if ($name ne ''); - $type_name .= $arguments . "\n"; - if (! $DEF_TABLE) - { - return '<dt>'. '<span style="text-decoration: underline">' . $category . ':</span>' . $type_name . $index_label . "</dt>\n"; - } - else - { - - return "<tr>\n<td align=\"left\">" . $type_name . - "</td>\n<td align=\"right\">" . $category . $index_label . "</td>\n" . "</tr>\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<br/>\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 "<table><tr><th valign=\"top\">Jump to: </th><td>" . - $nonalpha_text . $join . $alpha_text . '</td></tr></table>'; -} |