The R Project SVN – R – Diff – /trunk/src/scripts/Sd2Rd.in

 # Suite 330, Boston, MA  02111-1307  USA.
 use Getopt::Long;
 use R::Utils;
-my $revision = ' $Revision: 1.20 $ ';
+my $revision = ' $Revision: 1.21 $ ';
 my $version;
 my $name;
 $revision =~ / ([\d\.]*) /;
 $version = $1;
     if (/^\.SE/) { &section(0, "\\section\{Side Effects\}\{"); }
     if (/^\.SH/) {
       if ($word[1] =~ /REFERENCE/) {
 	&section(0, "\\references\{");
 	$inReferences = 1;
+      } elsif ($word[1] =~ /AUTHOR/) {
+	&section(0, "\\author\{");
       } elsif ($word[1] =~ /NOTE/) {
 	&section(0, "\\note\{");
       } elsif ($word[1] =~ /SOURCE/) {
 	&section(0, "\\source\{");
 	$inReferences = 1;
       } elsif ($word[1] =~ /SUMMARY/) {
 	&section(0, "\\description\{");
+      } elsif ($word[1] =~ /WARNINGS/) {
+	&section(0, "\\section{Warnings}\{");
-      } elsif ($word[1] =~ /Warning/) {
+      } elsif ($word[1] =~ /WARNING/) {
 	&section(0, "\\section{Warning}\{");
       } elsif (join(" ", @word[1..2]) =~ /DATA DESCRIPTION/) {
 	&section(0, "\\usage\{\ndata($fun)");
 	&section(0, "\\format\{");
       } else {
 	# This line may be of the form .SH "A B C"
 	($tmp = join(" ", @word[1..$#word])) =~ s/\"(.*)\"/$1/;
 	&section(0, "\\section\{$tmp\}\{");
+      }
+    }
-    if (/^\.sp/) { output("\n"); }
+    if (/^\.sp/) {
+      if($word[1] == 0) {
+	output("\\cr")
+      } else {
+	output("\n")
+      }
+    }
     if (/^\.TL/) {
       print("\\name\{$fun\}\n");
       print("\\alias\{", join("\}\n\\alias\{", @aliases), "\}\n");
       &section(0, "\\title\{");
       $inVerbatim = 1;

The R Project SVN R

(root)/trunk/src/scripts/Sd2Rd.in @ 28362 – Rev 13792 → 14558