The R Project SVN R

Rev

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

Rev 6348 Rev 6460
Line 34... Line 34...
34 
 
 34 
 
35 
sub html_pagehead
 35 
sub html_pagehead
36 
{
 36 
{
37 
    my ($title, $top, $up, $uptext, $prev, $prevtext, $next, $nextext) = @_;
 37 
    my ($title, $top, $up, $uptext, $prev, $prevtext, $next, $nextext) = @_;
38 
 
 38 
 
39 
    my $retval = "<HTML><HEAD><TITLE>R: $title</TITLE></HEAD>\n" .
 39 
    my $retval = "<HTML><HEAD><TITLE>R: $title</TITLE>" .
40 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
 - 
 
41 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
 40 
	"<LINK REL=STYLESHEET TYPE=\"text/css\" SRC=\"$top/R.css\">" .
42 
	"BACKGROUND=\"white\">\n" .
 - 
 
43 
	"<h1 align=center>\n" .
 41 
	"</HEAD><BODY>\n" .
44 
        "<FONT COLOR=\"#999999\" " .
 - 
 
45 
        "size=\"+3\"><tt>\n" .
 - 
 
46 
        "$title\n" .
 42 
	"<h1>$title " .
47 
        "</tt></FONT><img src=\"$top/logo.jpg\" alt=\"[R logo]\" align=center></h1>\n\n" .
 43 
	"<img class=toplogo src=\"$top/logo.jpg\" alt=\"[R logo]\"></h1>\n\n" .
48 
        "<hr>\n\n" .
 44 
        "<hr>\n\n" .
49 
        "<div align=center>\n";
 45 
        "<div align=center>\n";
50 
 
 46 
 
51 
    $retval .= "<A HREF=\"$prev\"><IMG SRC=\"$top/left.jpg\"\n" .
 47 
    $retval .= "<A HREF=\"$prev\"><IMG SRC=\"$top/left.jpg\"\n" .
52 
	"ALT=\"[$prevtext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
 48 
	"ALT=\"[$prevtext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
Line 72... Line 68...
72 
 
 68 
 
73 
sub html_functionhead
 69 
sub html_functionhead
74 
{
 70 
{
75 
    my ($title, $pkgname, $name) = @_;
 71 
    my ($title, $pkgname, $name) = @_;
76 
 
 72 
 
77 
    my $retval = "<HTML><HEAD><TITLE>R: $title</TITLE></HEAD>\n" .
 73 
    my $retval = "<HTML><HEAD><TITLE>R: $title</TITLE>\n" .
78 
	"<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" " .
 - 
 
79 
	"LINK=\"#0000F0\" VLINK=\"#660066\" ALINK=\"#FF0000\" " .
 74 
	"<LINK REL=STYLESHEET TYPE=\"text/css\" SRC=\"../../../doc/html/R.css\">" .
80 
	"BACKGROUND=\"white\">\n\n";
 75 
	"</HEAD><BODY>\n\n";
81 
 
 76 
 
82 
    if($pkgname){
 77 
    if($pkgname){
83 
	$retval .= "<table width=100%><tr>" .
 78 
	$retval .= "<table width=100%><tr>" .
84 
	    "<td>$name($pkgname)</td>" .
 79 
	    "<td>$name($pkgname)</td>" .
85 
	    "<td align=right>R Documentation</td></tr></table><p>";
 80 
	    "<td align=right>R Documentation</td></tr></table><p>";
86 
    }
 81 
    }
87
82
88 
    $retval .= html_title2($title);
 83 
    $retval .= html_title2($title);
89 
 
 - 
 
90 
}
 84 
}
91 
 
 85 
 
92 
sub html_functionfoot
 86 
sub html_functionfoot
93 
{
 87 
{
94 
    my $retval;
 88 
    my $retval;
Line 109... Line 103...
109 
 
 103 
 
110 
    if($opt_chm) {
 104 
    if($opt_chm) {
111 
	"\n<h2 align=center><FONT COLOR=\"#0000FF\">" .
 105 
	"\n<h2 align=center><FONT COLOR=\"#0000FF\">" .
112 
	    "<tt>$title</tt></FONT></h2>\n\n";
 106 
	    "<tt>$title</tt></FONT></h2>\n\n";
113 
    } else {
 107 
    } else {
114 
	"\n<h2 align=center><FONT COLOR=\"#999999\">" .
 - 
 
115 
	    "<tt>$title</tt></FONT></h2>\n\n";
 108 
	"\n<h2>$title</h2>\n\n";
116 
    }
 109 
    }
117 
}
 110 
}
118 
 
 111 
 
119 
sub html_title3
 112 
sub html_title3
120 
{
 113 
{
Line 122... Line 115...
122 
 
 115 
 
123 
    if($opt_chm) {
 116 
    if($opt_chm) {
124 
	"\n<h3><FONT COLOR=\"#666666\">" .
 117 
	"\n<h3><FONT COLOR=\"#666666\">" .
125 
	    "<tt>$title</tt></FONT></h3>\n\n";
 118 
	    "<tt>$title</tt></FONT></h3>\n\n";
126 
    } else {
 119 
    } else {
127 
	"\n<h2><FONT COLOR=\"#666666\">" .
 - 
 
128 
	    "<tt>$title</tt></FONT></h2>\n\n";
 120 
	"\n<h3>$title</h3>\n\n";
129 
    }
 121 
    }
130 
}
 122 
}
131 
 
 123 
 
132 
sub html_alphabet
 124 
sub html_alphabet
133 
{
 125 
{