The R Project SVN R

Rev

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

Rev 4580 Rev 4662
Line 1... Line 1...
1 
#!/bin/sh
 1 
#!/bin/sh
2 
#  Rd2dvi -- 'check' man pages (help files) by  'LaTeX'..
 2 
#  Rd2dvi -- check man pages (*.Rd help files) by LaTeX..
3 
#
 3 
#
4 
# Example (in $R_HOME):
 4 
# Example (in $R_HOME):
5 
#    bin/Rd2dvi src/library/base/man/Normal
 5 
#    bin/Rd2dvi src/library/base/man/Normal
6 
#    bin/Rd2dvi `grep -l 'KEYWORD(distr' src/library/base/man/* |sort|uniq`
 6 
#    bin/Rd2dvi `grep -l 'KEYWORD(distr' src/library/base/man/* |sort|uniq`
7 
#
 7 
#
Line 16... Line 16...
16 
then
 16 
then
17 
    echo "'Rd2.tex' already exists -- renaming it to  Rd2.tex.Older"
 17 
    echo "'Rd2.tex' already exists -- renaming it to  Rd2.tex.Older"
18 
    echo " -------- "
 18 
    echo " -------- "
19 
    mv Rd2.tex Rd2.tex.Older
 19 
    mv Rd2.tex Rd2.tex.Older
20 
fi
 20 
fi
21 
$D2L $@ > Rd2.tex
 21 
touch Rd2.tex
22 
echo "MANTEXDIR= '$MANTEXDIR'"
 - 
 
23 
if [ ! -f Rd2dvi.tex ]
 22 
if [ $# -eq 1  -a  -d $1 ]
24 
then
 23 
then
- 
 
 24 
    dir=$1
25 
 ##ln -s ${MANTEXDIR}/Rd2dvi.tex .
25 
    test -d $dir/man && dir=$dir/man
26 
 R_P=`echo 'getenv("R_PAPERSIZE")'| R --vanilla --quiet|grep '"'|sed 's/ *//g;s/"//g'`
 26 
    echo "Rd2dvi : \`Rdconv -t latex' $dir/ files..."
- 
 
 27 
    files="${dir}/*.Rd"
- 
 
 28 
    subj="of all in $dir"
- 
 
 29 
    # DBG: echo "files = $files"
- 
 
 30 
    toc_sed='; s/\\input{Rd/\\Rdcontents{\\R\\ objects documented:} &/'
- 
 
 31 
else
- 
 
 32 
    files="$@"
- 
 
 33 
    subj="of $1"
- 
 
 34 
    toc_sed=''
- 
 
 35 
    if [ $# -gt 1 ]; then subj="$subj ...etc "; fi
27 
 sed "s/a4paper/${R_P}paper/" ${MANTEXDIR}/Rd2dvi.tex > Rd2dvi.tex
 36 
    echo "Rd2dvi : Collecting files and \`Rdconv -t latex' them ..."
28 
fi
 37 
fi
- 
 
 38 
for f in $files
- 
 
 39 
do
- 
 
 40 
    echo $f
- 
 
 41 
    $D2L $f >> Rd2.tex
- 
 
 42 
done
- 
 
 43 
echo "MANTEXDIR='$MANTEXDIR'"
- 
 
 44 
R_P=`echo 'getenv("R_PAPERSIZE")'| R --vanilla --quiet|grep -v getenv|grep '"'|sed 's/ *//g;s/"//g'`
- 
 
 45 
sed "s/a4paper/${R_P}paper/; s| documentation |& ${subj} |; ${toc_sed}" \
- 
 
 46 
  ${MANTEXDIR}/Rd2dvi.tex > Rd2dvi.tex
29 
if [ ! -f Rd.sty ]; then
 47 
if [ ! -f Rd.sty ]; then
30 
 sed 's/markright{#1}/markboth{#1}{#1}/' ${MANTEXDIR}/Rd.sty > Rd2.sty
 48 
 sed 's/markright{#1}/markboth{#1}{#1}/' ${MANTEXDIR}/Rd.sty > Rd2.sty
31 
fi
 49 
fi
32 
#exit
 50 
#exit
33 
#---------------------
 51 
#---------------------