The R Project SVN R

Rev

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

Rev 45156 Rev 45184
Line 33... Line 33...
33 
use Text::Wrap;
 33 
use Text::Wrap;
34 
 
 34 
 
35 
## Don't buffer output.
 35 
## Don't buffer output.
36 
$| = 1;
 36 
$| = 1;
37 
 
 37 
 
38 
my $revision = ' $Rev: 45156 $ ';
 38 
my $revision = ' $Rev: 45184 $ ';
39 
my $version;
 39 
my $version;
40 
my $name;
 40 
my $name;
41 
$revision =~ / ([\d\.]*) /;
 41 
$revision =~ / ([\d\.]*) /;
42 
$version = $1;
 42 
$version = $1;
43 
($name = $0) =~ s|.*/||;
 43 
($name = $0) =~ s|.*/||;
Line 2447... Line 2447...
2447 
		my $cmd;
 2447 
		my $cmd;
2448 
		my $build_dir = R_tempfile("Rd2dvi");
 2448 
		my $build_dir = R_tempfile("Rd2dvi");
2449 
		if($WINDOWS) {
 2449 
		if($WINDOWS) {
2450 
		    $cmd = join(" ",
 2450 
		    $cmd = join(" ",
2451 
				("Rcmd.exe Rd2dvi $Rd2dvi_opts",
 2451 
				("Rcmd.exe Rd2dvi $Rd2dvi_opts",
- 
 
 2452 
				 "--build-dir=${build_dir} --no-clean",
2452 
				 "-o ${pkgname}-manual.dvi >/dev/null 2>&1",
 2453 
				 "-o ${pkgname}-manual.dvi >/dev/null 2>&1",
2453 
				 "$pkgdir"));
 2454 
				 "$pkgdir"));
2454 
		} else {
 2455 
		} else {
2455 
		    $cmd = join(" ",
 2456 
		    $cmd = join(" ",
2456 
				(&shell_quote_file_path("${R::Vars::R_EXE}"),
 2457 
				(&shell_quote_file_path("${R::Vars::R_EXE}"),
2457 
				 "CMD Rd2dvi --batch --no-preview",
 2458 
				 "CMD Rd2dvi $Rd2dvi_opts",
2458 
				 "--build-dir=${build_dir} --no-clean",
 2459 
				 "--build-dir=${build_dir} --no-clean",
2459 
				 "-o ${pkgname}-manual.dvi >/dev/null 2>&1",
 2460 
				 "-o ${pkgname}-manual.dvi >/dev/null 2>&1",
2460 
				 "$pkgdir"));
 2461 
				 "$pkgdir"));
2461 
		}
 2462 
		}
2462 
		if(R_system($cmd)) {
 2463 
		if(R_system($cmd)) {
2463 
		    $log->error();
 2464 
		    $log->error();
2464 
		    $log->print("LaTeX errors when creating \U$fmt\E version.\n");
 2465 
		    $log->print("LaTeX errors when creating \U$fmt\E version.\n");
2465 
		    $log->print("This typically indicates Rd problems.\n");
 2466 
		    $log->print("This typically indicates Rd problems.\n");
2466 
		    ## If possible, indicate the problems found.
 2467 
		    ## If possible, indicate the problems found.
2467 
		    if(!$WINDOWS) {
 - 
 
2468 
			my $latex_log = &file_path($build_dir, "Rd2.log");
 2468 
		    my $latex_log = &file_path($build_dir, "Rd2.log");
2469 
			## Note that Rd2dvi works on 'Rd2.tex'.
 2469 
		    ## Note that Rd2dvi works on 'Rd2.tex'.
2470 
			if(-f $latex_log) {
 2470 
		    if(-f $latex_log) {
2471 
			    my $Rcmd = "writeLines(tools:::.get_LaTeX_errors_from_log_file(\"${latex_log}\"))";
 2471 
			my $Rcmd = "writeLines(tools:::.get_LaTeX_errors_from_log_file(\"${latex_log}\"))";
2472 
			    my @out = R_runR($Rcmd, "${R_opts} --quiet",
 2472 
			my @out = R_runR($Rcmd, "${R_opts} --quiet",
2473 
					     "R_DEFAULT_PACKAGES=NULL");
 2473 
					 "R_DEFAULT_PACKAGES=NULL");
2474 
			    @out = grep(!/^\>/, @out);
 2474 
			@out = grep(!/^\>/, @out);
2475 
			    if(scalar(@out) > 0) {
 2475 
			if(scalar(@out) > 0) {
2476 
				$log->print("LaTeX errors found:\n");
 2476 
			    $log->print("LaTeX errors found:\n");
2477 
				$log->print(join("\n", @out) . "\n");
 2477 
			    $log->print(join("\n", @out) . "\n");
2478 
			    }
 - 
 
2479 
			}
 2478 
			}
2480 
			rmtree($build_dir);
- 
 
2481 
		    }
 2479 
		    }
- 
 
 2480 
		    rmtree($build_dir);
2482 
		    exit(1);
 2481 
		    exit(1);
2483 
		}
 2482 
		}
2484 
		rmtree($build_dir) if(!$WINDOWS);
 2483 
		rmtree($build_dir);
2485 
		$log->result("OK");
 2484 
		$log->result("OK");
2486 
	    }
 2485 
	    }
2487 
	}
 2486 
	}
2488 
    }
 2487 
    }
2489 
 
 2488