The R Project SVN R

Rev

Rev 7002 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7002 Rev 7133
Line 45... Line 45...
45 
        "<div align=center>\n";
 45 
        "<div align=center>\n";
46 
 
 46 
 
47 
    $retval .= "<A HREF=\"$prev\"><IMG SRC=\"$top/left.jpg\"\n" .
 47 
    $retval .= "<A HREF=\"$prev\"><IMG SRC=\"$top/left.jpg\"\n" .
48 
	"ALT=\"[$prevtext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
 48 
	"ALT=\"[$prevtext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
49 
	    if $prev;
 49 
	    if $prev;
50
50 
 
51 
    $retval .=
 51 
    $retval .=
52 
	"<A HREF=\"$up\"><IMG SRC=\"$top/up.jpg\"" .
 52 
	"<A HREF=\"$up\"><IMG SRC=\"$top/up.jpg\"" .
53 
        "ALT=\"[$uptext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
 53 
        "ALT=\"[$uptext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
54 
	    if $up;
 54 
	    if $up;
55 
 
 55 
 
56 
    $retval .= "<A HREF=\"$next\"><IMG SRC=\"$top/right.jpg\"\n" .
 56 
    $retval .= "<A HREF=\"$next\"><IMG SRC=\"$top/right.jpg\"\n" .
57 
    "ALT=\"[$nextext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
 57 
    "ALT=\"[$nextext]\" WIDTH=30 HEIGHT=30 BORDER=0></A>\n"
58 
	if $next;
 58 
	if $next;
59
59 
 
60 
    $retval .= "</DIV>\n\n";
 60 
    $retval .= "</DIV>\n\n";
61 
 
 61 
 
62 
    $retval;
 62 
    $retval;
63 
}
 63 
}
64 
 
 64 
 
Line 74... Line 74...
74 
	"<LINK REL=STYLESHEET TYPE=\"text/css\" SRC=\"../../../doc/html/R.css\">" .
 74 
	"<LINK REL=STYLESHEET TYPE=\"text/css\" SRC=\"../../../doc/html/R.css\">" .
75 
	"</HEAD><BODY>\n\n";
 75 
	"</HEAD><BODY>\n\n";
76 
 
 76 
 
77 
    if($pkgname){
 77 
    if($pkgname){
78 
	$retval .= "<table width=100%><tr>" .
 78 
	$retval .= "<table width=100%><tr>" .
79 
	    "<td>$name($pkgname)</td>" .
 79 
	    "<td>$name {$pkgname}</td>" .
80 
	    "<td align=right>R Documentation</td></tr></table><p>";
 80 
	    "<td align=right>R Documentation</td></tr></table><p>";
81 
    }
 81 
    }
82
82 
 
83 
    $retval .= html_title2($title);
 83 
    $retval .= html_title2($title);
84 
}
 84 
}
85 
 
 85 
 
86 
sub html_functionfoot
 86 
sub html_functionfoot
87 
{
 87 
{
88 
    my $retval;
 88 
    my $retval;
89
89 
 
90 
    if($HTML){
 90 
    if($HTML){
91 
	$retval .= "\n\n<p align=center><hr><div align=center>" .
 91 
	$retval .= "\n\n<p align=center><hr><div align=center>" .
92 
	    "<a href=\"00Index.$HTML\">[Package Contents]</a></div>\n\n";
 92 
	    "<a href=\"00Index.$HTML\">[Package Contents]</a></div>\n\n";
93 
    }
 93 
    }
94 
 
 94 
 
Line 122... Line 122...
122 
}
 122 
}
123 
 
 123 
 
124 
sub html_alphabet
 124 
sub html_alphabet
125 
{
 125 
{
126 
    "<p align=center>\n"
 126 
    "<p align=center>\n"
127 
    . "<A HREF=\"#A\">A</A>\n"
127 
    . "<A HREF=\"#A\">A</A>\n"
128 
    . "<A HREF=\"#B\">B</A>\n"
128 
    . "<A HREF=\"#B\">B</A>\n"
129 
    . "<A HREF=\"#C\">C</A>\n"
129 
    . "<A HREF=\"#C\">C</A>\n"
130 
    . "<A HREF=\"#D\">D</A>\n"
130 
    . "<A HREF=\"#D\">D</A>\n"
131 
    . "<A HREF=\"#E\">E</A>\n"
131 
    . "<A HREF=\"#E\">E</A>\n"
132 
    . "<A HREF=\"#F\">F</A>\n"
132 
    . "<A HREF=\"#F\">F</A>\n"
133 
    . "<A HREF=\"#G\">G</A>\n"
133 
    . "<A HREF=\"#G\">G</A>\n"
134 
    . "<A HREF=\"#H\">H</A>\n"
134 
    . "<A HREF=\"#H\">H</A>\n"
135 
    . "<A HREF=\"#I\">I</A>\n"
135 
    . "<A HREF=\"#I\">I</A>\n"
136 
    . "<A HREF=\"#J\">J</A>\n"
136 
    . "<A HREF=\"#J\">J</A>\n"
137 
    . "<A HREF=\"#K\">K</A>\n"
137 
    . "<A HREF=\"#K\">K</A>\n"
138 
    . "<A HREF=\"#L\">L</A>\n"
138 
    . "<A HREF=\"#L\">L</A>\n"
139 
    . "<A HREF=\"#M\">M</A>\n"
139 
    . "<A HREF=\"#M\">M</A>\n"
140 
    . "<A HREF=\"#N\">N</A>\n"
140 
    . "<A HREF=\"#N\">N</A>\n"
141 
    . "<A HREF=\"#O\">O</A>\n"
141 
    . "<A HREF=\"#O\">O</A>\n"
142 
    . "<A HREF=\"#P\">P</A>\n"
142 
    . "<A HREF=\"#P\">P</A>\n"
143 
    . "<A HREF=\"#Q\">Q</A>\n"
143 
    . "<A HREF=\"#Q\">Q</A>\n"
144 
    . "<A HREF=\"#R\">R</A>\n"
144 
    . "<A HREF=\"#R\">R</A>\n"
145 
    . "<A HREF=\"#S\">S</A>\n"
 145 
    . "<A HREF=\"#S\">S</A>\n"
146 
    . "<A HREF=\"#T\">T</A>\n"
146 
    . "<A HREF=\"#T\">T</A>\n"
147 
    . "<A HREF=\"#U\">U</A>\n"
147 
    . "<A HREF=\"#U\">U</A>\n"
148 
    . "<A HREF=\"#V\">V</A>\n"
148 
    . "<A HREF=\"#V\">V</A>\n"
149 
    . "<A HREF=\"#W\">W</A>\n"
149 
    . "<A HREF=\"#W\">W</A>\n"
150 
    . "<A HREF=\"#X\">X</A>\n"
150 
    . "<A HREF=\"#X\">X</A>\n"
151 
    . "<A HREF=\"#Y\">Y</A>\n"
151 
    . "<A HREF=\"#Y\">Y</A>\n"
152 
    . "<A HREF=\"#Z\">Z</A>\n"
 152 
    . "<A HREF=\"#Z\">Z</A>\n"
153 
    . "</p>\n";
 153 
    . "</p>\n";
154 
}
 154 
}
155 
 
 155 
 
156 
sub chm_pagehead
 156 
sub chm_pagehead
Line 185... Line 185...
185 
    if($pkgname){
 185 
    if($pkgname){
186 
	$retval .= "<table width=100%><tr>" .
 186 
	$retval .= "<table width=100%><tr>" .
187 
	    "<td>$name($pkgname)</td>" .
 187 
	    "<td>$name($pkgname)</td>" .
188 
	    "<td align=right>R Documentation</td></tr></table><p>";
 188 
	    "<td align=right>R Documentation</td></tr></table><p>";
189 
    }
 189 
    }
190
190 
 
191 
    $retval .= "<OBJECT TYPE=\"application/x-oleobject\" CLASSID=\"clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e\">\n";
 191 
    $retval .= "<OBJECT TYPE=\"application/x-oleobject\" CLASSID=\"clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e\">\n";
192 
    foreach(@aliases) {
 192 
    foreach(@aliases) {
193 
#	print "alias: $_\n";
 193 
#	print "alias: $_\n";
194 
	$retval .= "<PARAM NAME=\"Keyword\" VALUE=\"R:   $_\">\n";
 194 
	$retval .= "<PARAM NAME=\"Keyword\" VALUE=\"R:   $_\">\n";
195 
    }
 195 
    }
196 
    $title =~ s/\"/'/go;  #'
 196 
    $title =~ s/\"/'/go;  #'
- 
 
 197 
    $title =~ s/,//go;  # commas seem to give problems
197 
    $retval .= "<PARAM NAME=\"Keyword\" VALUE=\" $title\">\n" .
 198 
    $retval .= "<PARAM NAME=\"Keyword\" VALUE=\" $title\">\n" .
198 
	"</OBJECT>\n\n";
 199 
	"</OBJECT>\n\n";
199 
    $retval .= html_title2($title);
 200 
    $retval .= html_title2($title);
200 
 
 201 
 
201 
}
 202 
}