The R Project SVN R

Rev

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

Rev 26719 Rev 28128
Line 1... Line 1...
1 
#! @PERL@
 1 
#! @PERL@
2 
 
 2 
 
3 
## Convert R documentation into HTML, LaTeX and text format
 3 
## Convert R documentation into HTML, LaTeX and text format
4 
 
 4 
 
5 
# Copyright (C) 1997 Friedrich Leisch
 5 
# Copyright (C) 1997 Friedrich Leisch
6 
# Copyright (C) 2000, 2002 The R Core Development Team
 6 
# Copyright (C) 2000-4 The R Core Development Team
7 
#
 7 
#
8 
# This program is free software; you can redistribute it and/or modify
 8 
# This program is free software; you can redistribute it and/or modify
9 
# it under the terms of the GNU General Public License as published by
 9 
# it under the terms of the GNU General Public License as published by
10 
# the Free Software Foundation; either version 2, or (at your option)
 10 
# the Free Software Foundation; either version 2, or (at your option)
11 
# any later version.
 11 
# any later version.
Line 25... Line 25...
25 
use Getopt::Long;
 25 
use Getopt::Long;
26 
use R::Rdconv;
 26 
use R::Rdconv;
27 
use R::Utils;
 27 
use R::Utils;
28 
use R::Vars;
 28 
use R::Vars;
29 
 
 29 
 
30 
my $revision = ' $Revision: 1.25 $ ';
 30 
my $revision = ' $Revision: 1.26 $ ';
31 
my $version;
 31 
my $version;
32 
my $name;
 32 
my $name;
33 
 
 33 
 
34 
$revision =~ / ([\d\.]*) /;
 34 
$revision =~ / ([\d\.]*) /;
35 
$version = $1;
 35 
$version = $1;
Line 71... Line 71...
71 
foreach my $type (keys(%types_and_exts)) {
 71 
foreach my $type (keys(%types_and_exts)) {
72 
    if($opt_type =~ /$type/i) {
 72 
    if($opt_type =~ /$type/i) {
73 
	if(defined $opt_o && length($opt_o) == 0) {
 73 
	if(defined $opt_o && length($opt_o) == 0) {
74 
	    $out .= $types_and_exts{$type};
 74 
	    $out .= $types_and_exts{$type};
75 
	}
 75 
	}
76 
	Rdconv($ARGV[0], $opt_type, $opt_debug, $out);
 76 
	Rdconv($ARGV[0], $opt_type, $opt_debug, $out, "unknown");
77 
	$opt_type_ok = 1;
 77 
	$opt_type_ok = 1;
78 
	last;
 78 
	last;
79 
    }
 79 
    }
80 
}
 80 
}
81 
 
 81