The R Project SVN R

Rev

Rev 4394 | Rev 6173 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4394 Rev 6098
Line -... Line 1...
- 
 
 1 
# Subroutines for converting R documentation into HTML
- 
 
 2 
 
- 
 
 3 
# Copyright (C) 1997 Friedrich Leisch
- 
 
 4 
# Modifications for Windows (C) 1998, 1999 B. D. Ripley
- 
 
 5 
#
- 
 
 6 
# This program is free software; you can redistribute it and/or modify
- 
 
 7 
# it under the terms of the GNU General Public License as published by
- 
 
 8 
# the Free Software Foundation; either version 2, or (at your option)
- 
 
 9 
# any later version.
- 
 
 10 
#
- 
 
 11 
# This program is distributed in the hope that it will be useful, but
- 
 
 12 
# WITHOUT ANY WARRANTY; without even the implied warranty of
- 
 
 13 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	See the GNU
- 
 
 14 
# General Public License for more details.
- 
 
 15 
#
- 
 
 16 
# A copy of the GNU General Public License is available via WWW at
- 
 
 17 
# http://www.gnu.org/copyleft/gpl.html.	 You can also obtain it by
- 
 
 18 
# writing to the Free Software Foundation, Inc., 59 Temple Place,
- 
 
 19 
# Suite 330, Boston, MA  02111-1307  USA.
1 
# The head of a html page (e.g. used for packages list)
 20 
# The head of a html page (e.g. used for packages list)
2 
# Arguments:
 21 
# Arguments:
3 
#  $title      of the page
 22 
#  $title      of the page
4 
#  $top        relative path to $RHOME/doc/html (must be "." if we
 23 
#  $top        relative path to $R_HOME/doc/html (must be "." if we
5 
#              already are there)
 24 
#              already are there)
6 
#  $up         filename of the upper file
 25 
#  $up         filename of the upper file
7 
#  $uptext     alternate text for upper file
 26 
#  $uptext     alternate text for upper file
8 
#  $prev       filename of the previous file (for button bar)
 27 
#  $prev       filename of the previous file (for button bar)
9 
#  $prevtext   alternate text for previous file
 28 
#  $prevtext   alternate text for previous file
Line 15... Line 34...
15 
 
 34 
 
16 
sub html_pagehead
 35 
sub html_pagehead
17 
{
 36 
{
18 
    my ($title, $top, $up, $uptext, $prev, $prevtext, $next, $nextext) = @_;
 37 
    my ($title, $top, $up, $uptext, $prev, $prevtext, $next, $nextext) = @_;
19 
 
 38 
 
20 
    my $retval = "<HEAD><TITLE>R: $title</TITLE></HEAD>\n" .
 39 
    my $retval = "<HTML><HEAD><TITLE>R: $title</TITLE></HEAD>\n" .
21 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
 40 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
22 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
 41 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
23 
	"BACKGROUND=\"white\">\n" .
 42 
	"BACKGROUND=\"white\">\n" .
24 
	"<h1 align=center>\n" .
 43 
	"<h1 align=center>\n" .
25 
        "<FONT FACE=\"Courier New,Courier\" COLOR=\"#999999\" " .
 44 
        "<FONT FACE=\"Courier New,Courier\" COLOR=\"#999999\" " .
26 
        "size=+3><b>\n" .
 45 
        "size=\"+3\"><b>\n" .
27 
        "$title\n" .
 46 
        "$title\n" .
28 
        "</b></FONT><img src=\"$top/logo.jpg\" align=center></h1>\n\n" .
 47 
        "</b></FONT><img src=\"$top/logo.jpg\" alt=\"[R logo]\" align=center></h1>\n\n" .
29 
        "<hr>\n\n" .
 48 
        "<hr>\n\n" .
30 
        "<div align=center>\n";
 49 
        "<div align=center>\n";
31 
 
 50 
 
32 
    $retval .= "<A HREF=\"$prev\"><IMG SRC=\"$top/left.jpg\"\n" .
 51 
    $retval .= "<A HREF=\"$prev\"><IMG SRC=\"$top/left.jpg\"\n" .
33 
	"ALT=\"[$prevtext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
 52 
	"ALT=\"[$prevtext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
Line 53... Line 72...
53 
 
 72 
 
54 
sub html_functionhead
 73 
sub html_functionhead
55 
{
 74 
{
56 
    my $title = $_[0];
 75 
    my $title = $_[0];
57 
 
 76 
 
58 
    my $retval = "<HEAD><TITLE>R: $title</TITLE></HEAD>\n" .
 77 
    my $retval = "<HTML><HEAD><TITLE>R: $title</TITLE></HEAD>\n" .
59 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
 78 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
60 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
 79 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
61 
	"BACKGROUND=\"white\">\n\n";
 80 
	"BACKGROUND=\"white\">\n\n";
62
81
63 
    $retval .= html_title2($title);
 82 
    $retval .= html_title2($title);
Line 68... Line 87...
68 
{
 87 
{
69 
    my $retval;
 88 
    my $retval;
70
89
71 
    if($HTML){
 90 
    if($HTML){
72 
	$retval .= "\n\n<p align=center><hr><div align=center>" .
 91 
	$retval .= "\n\n<p align=center><hr><div align=center>" .
73 
	    "<a href=\"00Index.$HTML\">[Package Contents]</a>\n\n";
 92 
	    "<a href=\"00Index.$HTML\">[Package Contents]</a></div>\n\n";
74 
    }
 93 
    }
75 
 
 94 
 
76 
    $retval .= "</BODY></HTML>\n";
 95 
    $retval .= "</BODY></HTML>\n";
77 
}
 96 
}
78 
 
 97 
 
Line 80... Line 99...
80 
 
 99 
 
81 
sub html_title2
 100 
sub html_title2
82 
{
 101 
{
83 
    my $title = $_[0];
 102 
    my $title = $_[0];
84 
 
 103 
 
- 
 
 104 
    if($opt_chm) {
85 
    "<h2 align=center><FONT FACE=\"Courier New,Courier\" " .
 105 
    "\n<h2 align=center><FONT FACE=\"Courier New,Courier\" " .
- 
 
 106 
	"COLOR=\"#0000FF\">$title</FONT></h2>\n\n";
- 
 
 107 
    } else {
- 
 
 108 
	"\n<h2 align=center><FONT FACE=\"Courier New,Courier\" " .
86 
	"COLOR=\"#999999\">$title</FONT></h2>\n\n";
 109 
	    "COLOR=\"#999999\">$title</FONT></h2>\n\n";
- 
 
 110 
    }
87 
}
 111 
}
88 
 
 112 
 
89 
sub html_title3
 113 
sub html_title3
90 
{
 114 
{
91 
    my $title = $_[0];
 115 
    my $title = $_[0];
92 
 
 116 
 
- 
 
 117 
    if($opt_chm) {
- 
 
 118 
	"\n<h3><FONT FACE=\"Courier New,Courier\" " .
- 
 
 119 
	"COLOR=\"#666666\">$title</FONT></h3>\n\n";
- 
 
 120 
    } else {
93 
    "<h2><FONT FACE=\"Courier New,Courier\" " .
 121 
	"\n<h2><FONT FACE=\"Courier New,Courier\" " .
94 
	"COLOR=\"#666666\">$title</FONT></h2>\n\n";
 122 
	"COLOR=\"#666666\">$title</FONT></h2>\n\n";
- 
 
 123 
    }
95 
}
 124 
}
96 
 
 125 
 
97 
sub html_alphabet
 126 
sub html_alphabet
98 
{
 127 
{
99 
    "<p align=center>\n"
 128 
    "<p align=center>\n"
Line 124... Line 153...
124 
    . "<A HREF=\"#Y\">Y</A>\n"
153 
    . "<A HREF=\"#Y\">Y</A>\n"
125 
    . "<A HREF=\"#Z\">Z</A>\n"
 154 
    . "<A HREF=\"#Z\">Z</A>\n"
126 
    . "</p>\n";
 155 
    . "</p>\n";
127 
}
 156 
}
128 
 
 157 
 
- 
 
 158 
sub chm_pagehead
129 
1;
 159 
{
- 
 
 160 
    my ($title) = @_;
- 
 
 161 
 
- 
 
 162 
    my $retval = "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n" .
- 
 
 163 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
- 
 
 164 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
- 
 
 165 
	"BACKGROUND=\"white\">\n" .
- 
 
 166 
	"<h1 align=center>\n" .
- 
 
 167 
        "<FONT FACE=\"Courier New,Courier\" COLOR=\"#999999\" " .
- 
 
 168 
        "size=\"+3\"><b>\n" .
- 
 
 169 
        "$title\n" .
- 
 
 170 
        "</b></FONT><img src=\"logo.jpg\" alt=\"[R logo]\" align=center></h1>\n\n" .
- 
 
 171 
        "<hr>\n\n";
- 
 
 172 
    $retval .= "<OBJECT TYPE=\"application/x-oleobject\" CLASSID=\"clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e\">\n";
- 
 
 173 
    $retval .= "<PARAM NAME=\"Keyword\" VALUE=\".. Contents\">\n" .
- 
 
 174 
	"</OBJECT>\n\n";
- 
 
 175 
    $retval;
- 
 
 176 
}
130 
 
 177 
 
- 
 
 178 
sub chm_functionhead
- 
 
 179 
{
- 
 
 180 
    my ($title)  = @_;
131 
 
 181 
 
- 
 
 182 
    my $retval = "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n" .
- 
 
 183 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
- 
 
 184 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
- 
 
 185 
	"BACKGROUND=\"white\">\n\n";
- 
 
 186
- 
 
 187 
    $retval .= "<OBJECT TYPE=\"application/x-oleobject\" CLASSID=\"clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e\">\n";
- 
 
 188 
    foreach(@aliases) {
- 
 
 189 
#	print "alias: $_\n";
- 
 
 190 
	$retval .= "<PARAM NAME=\"Keyword\" VALUE=\"R:   $_\">\n";
- 
 
 191 
    }
- 
 
 192 
    $title =~ s/\"/'/go;  #'
- 
 
 193 
    $retval .= "<PARAM NAME=\"Keyword\" VALUE=\" $title\">\n" .
- 
 
 194 
	"</OBJECT>\n\n";
- 
 
 195 
    $retval .= html_title2($title);
132 
 
 196 
 
- 
 
 197 
}
133 
 
 198 
 
- 
 
 199 
1;