The R Project SVN R

Rev

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

Rev 4580 Rev 5078
Line 33... Line 33...
33 
 
 33 
 
34 
 
 34 
 
35 
require "$R_HOME/etc/Rdconvlib.pl";
 35 
require "$R_HOME/etc/Rdconvlib.pl";
36 
require "$R_HOME/etc/buildlib.pl";
 36 
require "$R_HOME/etc/buildlib.pl";
37 
 
 37 
 
- 
 
 38 
$NROFF="@NROFF@" unless $NROFF=$ENV{"NROFF"};
- 
 
 39 
$TBL="@TBL@" unless $TBL=$ENV{"TBL"};
- 
 
 40 
 
38 
# if option --htmllists is set we only rebuild some list files and
 41 
# if option --htmllists is set we only rebuild some list files and
39 
# exit
 42 
# exit
40 
 
 43 
 
41 
if($opt_htmllists){
 44 
if($opt_htmllists){
42 
    build_htmlpkglist("$R_HOME/library");
 45 
    build_htmlpkglist("$R_HOME/library");
Line 110... Line 113...
110 
	if($opt_nroff){
 113 
	if($opt_nroff){
111 
	    my $targetfile = $filenm{$manfilebase};
 114 
	    my $targetfile = $filenm{$manfilebase};
112 
	    $destfile = "$dest/help/$targetfile";
 115 
	    $destfile = "$dest/help/$targetfile";
113 
	    if(fileolder($destfile, $manage)) {
 116 
	    if(fileolder($destfile, $manage)) {
114 
		$textflag = "text";
 117 
		$textflag = "text";
115 
		open(nroffout, "| tbl | nroff -ms 2> /dev/null | " .
 118 
		open(nroffout, "| $TBL | $NROFF -ms 2> /dev/null | " .
116 
		     " ${R_HOME}/bin/help.pretty > '$destfile'");
 119 
		     " ${R_HOME}/bin/help.pretty > '$destfile'");
117 
		Rdconv($manfile, "nroff", "", -1);
 120 
		Rdconv($manfile, "nroff", "", -1);
118 
	    }
 121 
	    }
119 
	}
 122 
	}
120 
 
 123