The R Project SVN R

#! @PERL@
#-*- perl -*- (for Rdconv.in ..)

# Convert R documentation into HTML, LaTeX and nroff format

# Copyright (C) 1997 Friedrich Leisch
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#
# A copy of the GNU General Public License is available via WWW at
# http://www.gnu.org/copyleft/gpl.html.  You can also obtain it by
# writing to the Free Software Foundation, Inc., 675 Mass Ave,
# Cambridge, MA 02139, USA.

# Send any bug reports to Friedrich.Leisch@ci.tuwien.ac.at

use Getopt::Long;
use File::Basename;
use Cwd;

$cwd=getcwd();
if($ENV{"RHOME"}){
    $RHOME=$ENV{"RHOME"};
}
else{
    $RHOME = `R RHOME`;
    $RHOME =~ s/(.*)\n*/$1/;
}

chdir($cwd);

require "$RHOME/etc/Rdconvlib.pl";

@knownoptions = ("debug|d", "type|t:s", "help|h");
GetOptions (@knownoptions) || usage();

usage() if $opt_help;
print stderr "RHOME: '$RHOME';  cwd='$cwd'\n" if $opt_debug;


if($opt_type =~ /html/i){
    open(htmlout, "| cat");
    Rdconv($ARGV[0],$opt_type,$opt_debug);
    close(htmlout)
}
elsif($opt_type =~ /nroff/i){
    open(nroffout, "| cat");
    Rdconv($ARGV[0],$opt_type,$opt_debug);
    close(nroffout)
}
elsif($opt_type =~ /Sd/i){
    open(Sdout, "| cat");
    Rdconv($ARGV[0],$opt_type,$opt_debug);
    close(Sdout)
}
elsif($opt_type =~ /latex/i){
    open(latexout, "| cat");
    Rdconv($ARGV[0],$opt_type,$opt_debug);
    close(latexout)
}
else {
    Rdconv($ARGV[0],$opt_type,$opt_debug);
}    



sub usage {

    print "Rdconv\n";
    print "Usage: Rdconv [--debug/-d] [--help/-h]";
    print " [--type/-t html|nroff|Sd|latex|examp] file\n\n";

    exit 0;
}