The R Project SVN R

Rev

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

Rev 39563 Rev 39641
Line 34... Line 34...
34 
use Text::Wrap;
 34 
use Text::Wrap;
35 
 
 35 
 
36 
## Don't buffer output.
 36 
## Don't buffer output.
37 
$| = 1;
 37 
$| = 1;
38 
 
 38 
 
39 
my $revision = ' $Rev: 39563 $ ';
 39 
my $revision = ' $Rev: 39641 $ ';
40 
my $version;
 40 
my $version;
41 
my $name;
 41 
my $name;
42 
$revision =~ / ([\d\.]*) /;
 42 
$revision =~ / ([\d\.]*) /;
43 
$version = $1;
 43 
$version = $1;
44 
($name = $0) =~ s|.*/||;
 44 
($name = $0) =~ s|.*/||;
Line 1640... Line 1640...
1640 
	    $log->print(join("\n", @out) . "\n");
 1640 
	    $log->print(join("\n", @out) . "\n");
1641 
	    $log->print(wrap("", "", @msg_doc_files));
 1641 
	    $log->print(wrap("", "", @msg_doc_files));
1642 
	    $log->print(wrap("", "", @msg_writing_Rd));
 1642 
	    $log->print(wrap("", "", @msg_writing_Rd));
1643 
	}
 1643 
	}
1644 
 
 1644 
 
1645 
	if($R_check_Rd_style) {
 1645 
	if($R_check_Rd_style && (-d "R")) {
1646 
 
 1646 
 
1647 
	    my @msg_doc_style =
 1647 
	    my @msg_doc_style =
1648 
		("The \\usage entries for S3 methods should use",
 1648 
		("The \\usage entries for S3 methods should use",
1649 
		 "the \\method markup and not their full name.\n");
 1649 
		 "the \\method markup and not their full name.\n");
1650
1650