diff --git a/src/macintosh/build-help b/src/macintosh/build-help deleted file mode 100644 index afc89630a64..00000000000 --- a/src/macintosh/build-help +++ /dev/null @@ -1,247 +0,0 @@ -#-*- mode: perl; perl-indent-level: 4; cperl-indent-level: 4 -*- -# - -# Copyright (C) 1997-2001 R Development Core Team -# -# This document 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., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA. - - -use File::Basename; -use Cwd; -use Getopt::Long; -use R::Rdconv; -use R::Rdlists; - -fileparse_set_fstype; # Unix, in case one gets anything else. - -@knownoptions = ("rhome:s", "html", "txt", "latex", "example", "debug", - "dosnames", "htmllists"); -GetOptions (@knownoptions) || usage(); - -$OSdir = "mac"; - -$dir_mod = 0755;#- Permission ('mode') of newly created directories. - -if($opt_dosnames){$HTML="htm";} else{$HTML="html";} - -my $cwd = getcwd(); - -if($opt_rhome){ - $R_HOME=$opt_rhome; - print STDERR "R_HOME from --rhome: `$R_HOME'\n" if $opt_debug; -} else{ - chdir(dirname($0) . "/../.."); - $R_HOME=getcwd(); - print STDERR "R_HOME: `$R_HOME'\n" if $opt_debug; -} - -chdir($cwd); -print STDERR "Current directory (cwd): `$cwd'\n" if $opt_debug; - -# if option --htmllists is set we only rebuild some list files and -# exit - -if($opt_htmllists){ - build_htmlpkglist("$R_HOME/library"); - - %anindex = read_anindex("$R_HOME/library"); - %htmlindex = read_htmlindex("$R_HOME/library"); - - # build_htmlfctlist("$R_HOME/library"); - - exit 0; -} - -# default is to build all documentation formats -if(!$opt_html && !$opt_txt && !$opt_latex && !$opt_example && !$opt_chm){ - $opt_html = 1; - $opt_txt = 1; - $opt_latex = 1; - $opt_example = 1; - $opt_chm = 1; -} - -($pkg, $lib, @mandir) = buildinit(); -$dest = "$lib/$pkg"; -print STDERR "Destination `dest'= `$dest'\n" if $opt_debug; - -if($opt_chm) { - $chmdir = "../chm"; - mkdir($chmdir, 755); - open_hhp($pkg); -} -build_index($lib, $dest, $chmdir); - - -if($opt_chm) { - build_chm_toc(); -} - -if ($opt_latex) { - $latex_d="$dest/latex"; - mkdir "$latex_d", $dir_mod || die "Could not create $latex_d: $!\n"; -} -if ($opt_example) { - $Rex_d="$dest/R-ex"; - mkdir "$Rex_d", $dir_mod || die "Could not create $Rex_d: $!\n"; -} - -print " >>> Building/Updating help pages for package `$pkg'\n"; -print " Formats: "; -print "text " if $opt_txt; -print "html " if $opt_html; -print "latex " if $opt_latex; -print "example " if $opt_example; -print "chm " if $opt_chm; -print "\n"; - - -# get %htmlindex and %anindex - -%anindex = read_anindex($lib); -if($opt_html){ - %htmlindex = read_htmlindex($lib); -# build_htmlfctlist($lib); -} elsif ($opt_chm) { - %htmlindex = read_htmlindex($lib); -} - -format STDOUT = - @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<< @<<<<<< @<<<<<< @<<<<<< @<<<<<< - $manfilebase, $textflag, $htmlflag, $latexflag, $exampleflag, $chmflag -. - -foreach $manfile (@mandir) { - if($manfile =~ /\.[Rr]d$/ && !($manfile =~ /^\.#/)) { - $manfilebase = basename($manfile, (".Rd", ".rd")); - $manage = (-M $manfile); - $manfiles{$manfilebase} = $manfile; - - $textflag = $htmlflag = $latexflag = $exampleflag = $chmflag = ""; - - if($opt_txt){ - my $targetfile = $filenm{$manfilebase}; - $destfile = "$dest/help/$targetfile"; - if(fileolder($destfile, $manage)) { - $textflag = "text"; - Rdconv($manfile, "txt", "", "$destfile", $pkg); - } - } - - if($opt_html){ - my $targetfile = $filenm{$manfilebase}; - $misslink = ""; - $destfile = "$dest/html/$targetfile.$HTML"; - if(fileolder($destfile,$manage)) { - $htmlflag = "html"; - print "\t$destfile" if $opt_debug; - Rdconv($manfile, "html", "", "$destfile", $pkg); - } - } - - if($opt_chm){ - my $targetfile = $filenm{$manfilebase}; - $misslink = ""; - $destfile = "../chm/$targetfile.$HTML"; - print hhpfile "$targetfile.$HTML\n"; - if(fileolder($destfile,$manage)) { - $chmflag = "chm"; - print "\t$destfile" if $opt_debug; - Rdconv($manfile, "chm", "", "$destfile", $pkg); - } - } - - if($opt_latex){ - my $targetfile = $filenm{$manfilebase}; - $destfile = "$dest/latex/$targetfile.tex"; - if(fileolder($destfile,$manage)) { - $latexflag = "latex"; - Rdconv($manfile, "latex", "", "$destfile"); - } - } - if($opt_example){ - my $targetfile = $filenm{$manfilebase}; - $destfile = "$dest/R-ex/$targetfile.R"; - if(fileolder($destfile,$manage)) { - Rdconv($manfile, "example", "", "$destfile"); - if(-f$destfile) {$exampleflag = "example";} - } - } - - write if ($textflag || $htmlflag || $latexflag || - $exampleflag || $chmflag); - print " missing link(s): $misslink\n" - if $htmlflag && length($misslink); - } -} - -# remove files not in source directory -if($opt_txt){ - my @destdir; - opendir dest, "$dest/help"; - @destdir = sort(readdir(dest)); - closedir dest; - foreach $destfile (@destdir) { - if($destfile eq "." || $destfile eq ".." || - $destfile eq "AnIndex" || $destfile eq "00Titles") { next; } -# print "$dest/help/$destfile\n" unless defined $manfiles{$destfile}; - unlink "$dest/help/$destfile" unless defined $manfiles{$destfile}; - } -} -if($opt_html){ - my @destdir; - opendir dest, "$dest/html"; - @destdir = sort(readdir(dest)); - closedir dest; - foreach $destfile (@destdir) { - $destfilebase = basename($destfile, (".html")); - if($destfile eq "." || $destfile eq ".." || - $destfile eq "00Index.html") { next; } - unlink "$dest/html/$destfile" unless defined $manfiles{$destfilebase}; - } -} -if($opt_latex){ - my @destdir; - opendir dest, "$dest/latex"; - @destdir = sort(readdir(dest)); - closedir dest; - foreach $destfile (@destdir) { - $destfilebase = basename($destfile, (".tex")); - if($destfile eq "." || $destfile eq "..") { next; } - unlink "$dest/latex/$destfile" unless defined $manfiles{$destfilebase}; - } -} -if($opt_example){ - my @destdir; - opendir dest, "$dest/R-ex"; - @destdir = sort(readdir(dest)); - closedir dest; - foreach $destfile (@destdir) { - $destfilebase = basename($destfile, (".R")); - if($destfile eq "." || $destfile eq "..") { next; } - unlink "$dest/R-ex/$destfile" unless defined $manfiles{$destfilebase}; - } -} - -sub usage { - - print "Usage: build-help [--rhome dir] [--html] [--txt] [--latex]\n" . - " [--example] [--dosnames] [--htmllists] [--debug]\n" . - " [pkg] [lib]\n"; - - exit 0; -} -