The R Project SVN R

Rev

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

Rev 4394 Rev 5136
Line 21... Line 21...
21 
 
 21 
 
22 
 
 22 
 
23 
use Cwd;
 23 
use Cwd;
24 
use File::Basename;
 24 
use File::Basename;
25 
 
 25 
 
26 
require "$RHOME/src/gnuwin32/help/html-layout.pl";
 26 
require "$R_HOME/src/gnuwin32/help/html-layout.pl";
27 
 
 27 
 
28 
 
 28 
 
29 
if($opt_dosnames){
 29 
if($opt_dosnames){
30 
    $HTML="htm";
 30 
    $HTML="htm";
31 
}
 31 
}
Line 46... Line 46...
46 
    my $currentdir = getcwd();
 46 
    my $currentdir = getcwd();
47 
 
 47 
 
48 
    print STDERR "pkg:$pkg, lib:$lib\n" if $opt_debug;
 48 
    print STDERR "pkg:$pkg, lib:$lib\n" if $opt_debug;
49 
    if($pkg){
 49 
    if($pkg){
50 
	$pkg0 = $pkg;
 50 
	$pkg0 = $pkg;
51 
	$pkg = "$RHOME/src/library/" . "$pkg" unless (-d $pkg);
 51 
	$pkg = "$R_HOME/src/library/" . "$pkg" unless (-d $pkg);
52 
	die("Package $pkg0 does not exist\n") unless (-d $pkg);
 52 
	die("Package $pkg0 does not exist\n") unless (-d $pkg);
53 
    }
 53 
    }
54 
    else{
 54 
    else{
55 
	$pkg="$RHOME/src/library/base";
 55 
	$pkg="$R_HOME/src/library/base";
56 
    }
 56 
    }
57 
 
 57 
 
58 
    chdir $currentdir;
 58 
    chdir $currentdir;
59 
 
 59 
 
60 
    if($lib){
 60 
    if($lib){
Line 62... Line 62...
62 
	chdir $lib;
 62 
	chdir $lib;
63 
	$lib=getcwd();
 63 
	$lib=getcwd();
64 
	chdir $currentdir;
 64 
	chdir $currentdir;
65 
    }
 65 
    }
66 
    else{
 66 
    else{
67 
	$lib="$RHOME/library";
 67 
	$lib="$R_HOME/library";
68 
    }
 68 
    }
69 
 
 69 
 
70 
    chdir $currentdir;
 70 
    chdir $currentdir;
71 
 
 71 
 
72 
    chdir($pkg) or die("Cannot change to $pkg\n");
 72 
    chdir($pkg) or die("Cannot change to $pkg\n");
Line 212... Line 212...
212 
    %anindex;
 212 
    %anindex;
213 
}
 213 
}
214 
 
 214 
 
215 
 
 215 
 
216 
 
 216 
 
217 
### Build $RHOME/doc/html/packages.html from the $pkg/TITLE files
 217 
### Build $R_HOME/doc/html/packages.html from the $pkg/TITLE files
218 
 
 218 
 
219 
sub build_htmlpkglist {
 219 
sub build_htmlpkglist {
220 
 
 220 
 
221 
    my $lib = $_[0];
 221 
    my $lib = $_[0];
222 
 
 222 
 
223 
    my %htmltitles = read_titles($lib);
 223 
    my %htmltitles = read_titles($lib);
224 
    my $key;
 224 
    my $key;
225 
 
 225 
 
226 
    open(htmlfile, ">$RHOME/doc/html/packages.$HTML");
 226 
    open(htmlfile, ">$R_HOME/doc/html/packages.$HTML");
227 
 
 227 
 
228 
    print htmlfile html_pagehead("Package Index", ".",
 228 
    print htmlfile html_pagehead("Package Index", ".",
229 
				 "index.$HTML", "Top",
 229 
				 "index.$HTML", "Top",
230 
				 "", "",
 230 
				 "", "",
231 
				 "function.$HTML", "Functions");
 231 
				 "function.$HTML", "Functions");
Line 364... Line 364...
364 
    my $lib = $_[0];
 364 
    my $lib = $_[0];
365 
 
 365 
 
366 
    my %htmltitles = read_functiontitles($lib);
 366 
    my %htmltitles = read_functiontitles($lib);
367 
    my $key;
 367 
    my $key;
368 
 
 368 
 
369 
    open(htmlfile, ">$RHOME/doc/html/function.$HTML");
 369 
    open(htmlfile, ">$R_HOME/doc/html/function.$HTML");
370 
 
 370 
 
371 
    print htmlfile html_pagehead("Functions installed in RHOME", ".",
 371 
    print htmlfile html_pagehead("Functions installed in R_HOME", ".",
372 
				 "index.$HTML", "Top",
 372 
				 "index.$HTML", "Top",
373 
				 "packages.$HTML", "Packages");
 373 
				 "packages.$HTML", "Packages");
374 
 
 374 
 
375 
    print htmlfile html_alphabet();
 375 
    print htmlfile html_alphabet();
376 
 
 376