The R Project SVN R

Rev

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

Rev 42314 Rev 43267
Line 18... Line 18...
18 
# http://www.r-project.org/Licenses/
 18 
# http://www.r-project.org/Licenses/
19 
 
 19 
 
20 
use Getopt::Long;
 20 
use Getopt::Long;
21 
use R::Utils;
 21 
use R::Utils;
22 
 
 22 
 
23 
my $revision = ' $Rev: 42314 $ ';
 23 
my $revision = ' $Rev: 43267 $ ';
24 
my $version;
 24 
my $version;
25 
my $name;
 25 
my $name;
26 
 
 26 
 
27 
$revision =~ / ([\d\.]*) /;
 27 
$revision =~ / ([\d\.]*) /;
28 
$version = $1;
 28 
$version = $1;
Line 70... Line 70...
70 
  $needVal = 0;
 70 
  $needVal = 0;
71 
  $underlineNext = 0;
 71 
  $underlineNext = 0;
72 
  $output = "";
 72 
  $output = "";
73 
 
 73 
 
74 
  foreach $_ (@lines) {
 74 
  foreach $_ (@lines) {
75 
    chop;
 75 
    chomp;
76 
    &substitute unless /^\./;
 76 
    &substitute unless /^\./;
77 
    my @word = split;
 77 
    my @word = split;
78 
 
 78 
 
79 
    if (/^\s*$/) { &output("\n"); }
 79 
    if (/^\s*$/) { &output("\n"); }
80 
    if (/^[^.]/) {
80 
    if (/^[^.]/) {