The R Project SVN R

Rev

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

Rev 12256 Rev 12264
Line 20... Line 20...
20 
# Suite 330, Boston, MA  02111-1307  USA.
 20 
# Suite 330, Boston, MA  02111-1307  USA.
21 
 
 21 
 
22 
use Getopt::Long;
 22 
use Getopt::Long;
23 
use R::Utils;
 23 
use R::Utils;
24 
 
 24 
 
25 
my $revision = ' $Revision: 1.17 $ ';
 25 
my $revision = ' $Revision: 1.18 $ ';
26 
my $version;
 26 
my $version;
27 
my $name;
 27 
my $name;
28 
 
 28 
 
29 
$revision =~ / ([\d\.]*) /;
 29 
$revision =~ / ([\d\.]*) /;
30 
$version = $1;
 30 
$version = $1;
Line 205... Line 205...
205 
      output("This is a generic function.");
 205 
      output("This is a generic function.");
206 
      output("Functions with names beginning in \\code\{$fun.\} will be");
 206 
      output("Functions with names beginning in \\code\{$fun.\} will be");
207 
      output("methods for this function.");
 207 
      output("methods for this function.");
208 
      output("Classes with methods for this function include:");
 208 
      output("Classes with methods for this function include:");
209 
    }
 209 
    }
210 
    &section(1, "\\item\{" . join(" ", @word[1..$#word]) . "\}\{");
 - 
 
211 
  }
 - 
 
212 
  if (/^\.RT/) {
 - 
 
213 
    $needVal = 1;
 - 
 
214 
    $doprint = 0;
 - 
 
215 
    $output = "";
 - 
 
216 
  }
 - 
 
217 
  if (/^\.SA/) {
 - 
 
218 
    &section(0, "\\seealso\{");
 - 
 
219 
    $inSeeAlso = 1;
 - 
 
220 
  }
 - 
 
221 
  if (/^\.SE/) { &section(0, "\\section\{Side Effects\}\{"); }
 - 
 
222 
  if (/^\.SH/) {
 - 
 
223 
    if ($word[1] =~ /REFERENCE/) {
 - 
 
224 
      &section(0, "\\references\{");
 - 
 
225 
      $inReferences = 1;
 - 
 
226 
    } elsif ($word[1] =~ /NOTE/) {
 - 
 
227 
      &section(0, "\\note\{");
 - 
 
228 
    } elsif ($word[1] =~ /SOURCE/) {
 - 
 
229 
      &section(0, "\\source\{");
 - 
 
230 
      $inReferences = 1;
 - 
 
231 
    } elsif ($word[1] =~ /SUMMARY/) {
 - 
 
232 
      &section(0, "\\description\{");
 - 
 
233 
    } elsif ($word[1] =~ /Warning/) {
 - 
 
234 
      &section(0, "\\section{Warning}\{");
 - 
 
235 
    } elsif (join(" ", @word[1..2]) =~ /DATA DESCRIPTION/) {
 - 
 
236 
      &section(0, "\\usage\{\ndata($fun)");
 - 
 
237 
      &section(0, "\\format\{");
 - 
 
238 
    } else {
 - 
 
239 
      # This line may be of the form .SH "A B C"
 - 
 
240 
      ($tmp = join(" ", @word[1..$#word])) =~ s/\"(.*)\"/$1/;
 - 
 
241 
      &section(0, "\\section\{$tmp\}\{");
 - 
 
242 
    }
 - 
 
243 
    if (/^\.GR/) {
 210 
    if (/^\.GR/) {
244 
      output("Graphical parameters (see \\code\{\\link\{par\}\}) may also");
 211 
      output("Graphical parameters (see \\code\{\\link\{par\}\}) may also");
245 
      output("be supplied as arguments to this function.");
 212 
      output("be supplied as arguments to this function.");
246 
    }
 213 
    }
247 
    if (/^\.ME/) {
 214 
    if (/^\.ME/) {