The R Project SVN – R – Diff – /branches/R-NaString/src/scripts/Rd2dvi



## Examples:
##  R CMD Rd2dvi /path/to/Rsrc/src/library/base/man/Normal.Rd
##  R CMD Rd2dvi `grep -l "\\keyword{distr" \
##                  /path/to/Rsrc/src/library/base/man/*.Rd | sort | uniq`
 
revision='$Revision: 1.35 $'
version=`set - ${revision}; echo ${2}`
version="Rd2dvi ${version}
 
Copyright (C) 2000-2001 The R Core Development Team.
This is free software; see the GNU General Public Licence version 2

      break ;;
  esac
  shift
done
 
 
 
 
 
if ${debug}; then set -x; fi
 
. ${R_HOME}/share/sh/dcf.sh	# get_dcf_field()
 
Rdconv_dir_or_files_to_LaTeX () {

      echo "Hmm ... looks like a package"
      package_name=`get_dcf_field Package "${1}/DESCRIPTION"`
      title=${title-"Package \`${package_name}'"}
      dir=${1}/man
    fi
    test -z "${output}" && output="`basename ${1}`.${out_ext}"
  elif test -f ${1}/DESCRIPTION.in && \
       test -n "`grep '^Priority: *base' ${1}/DESCRIPTION.in`"; then
    is_base_package=yes
    echo "Hmm ... looks like a package from the R distribution"
    package_name=`get_dcf_field Package "${1}/DESCRIPTION.in"`
    title=${title-"Package \`${package_name}'"}
    dir=${1}/man
    test -z "${output}" && output="`basename ${1}`.${out_ext}"    
  else
    if test -d ${1}/man; then
      dir=${1}/man
    else
      dir=${1}

  if test ${#} -gt 1 ; then
    subj=" etc.";
  else
    subj=
    toc=
    if test -z "${output}"; then
      output=`basename "${1}"`
      output="`echo ${output} | sed 's/[Rr]d$//'`${out_ext}"
    fi
  fi
  subj0=`${echo} ${1} | sed -e ${file_sed}`
  subj="\\file{${subj0}}${subj}"
fi
title=${title-"\\R{} documentation}} \\par\\bigskip{{\\Large of ${subj}"}
 
## Prepare for building the documentation.
if test -z "${output}"; then
  output="Rd2.${out_ext}"
fi
if test -f ${output}; then
  ${echo} "file \`${output}' exists; please remove first"
  exit 1
fi
build_dir=.Rd2dvi${$}

if test "${is_bundle}" = no; then
  ${echo} ${toc} >> ${build_dir}/Rd2.tex
  Rdconv_dir_or_files_to_LaTeX ${build_dir}/Rd2.tex ${dir-${@}}
else
  cat >> ${build_dir}/Rd2.tex <<EOF
\\setcounter{secnumdepth}{-1}
\\pagenumbering{roman}
\\tableofcontents{}
\\cleardoublepage{}
\\pagenumbering{arabic}
EOF

${R_LATEXCMD-latex} Rd2
if test "${out_ext}" = pdf; then
  ${R_LATEXCMD-latex} Rd2
fi
cd ${start_dir}
${echo} "Saving output to \`${output}' ..."
cp ${build_dir}/Rd2.${out_ext} ${output}
echo "Done"
 
if ${clean}; then
  rm -rf ${build_dir}

Rev 15168	Rev 15234
Line 5...	Line 5...
5	`## Examples:`	5	`## Examples:`
6	`## R CMD Rd2dvi /path/to/Rsrc/src/library/base/man/Normal.Rd`	6	`## R CMD Rd2dvi /path/to/Rsrc/src/library/base/man/Normal.Rd`
7	## R CMD Rd2dvi `grep -l "\\keyword{distr" \	7	## R CMD Rd2dvi `grep -l "\\keyword{distr" \
8	## /path/to/Rsrc/src/library/base/man/*.Rd \| sort \| uniq`	8	## /path/to/Rsrc/src/library/base/man/*.Rd \| sort \| uniq`
9		9
10	`revision='$Revision: 1.34 $'`	10	`revision='$Revision: 1.35 $'`
11	version=`set - ${revision}; echo ${2}`	11	version=`set - ${revision}; echo ${2}`
12	`version="Rd2dvi ${version}`	12	`version="Rd2dvi ${version}`
13		13
14	`Copyright (C) 2000-2001 The R Core Development Team.`	14	`Copyright (C) 2000-2001 The R Core Development Team.`
15	`This is free software; see the GNU General Public Licence version 2`	15	`This is free software; see the GNU General Public Licence version 2`
Line 90...	Line 90...
90	`break ;;`	90	`break ;;`
91	`esac`	91	`esac`
92	`shift`	92	`shift`
93	`done`	93	`done`
94		94
95	`if test -z "${output}"; then`	-
96	`output=Rd2.${out_ext}`	-
97	`fi`	-
98		-
99	`if ${debug}; then set -x; fi`	95	`if ${debug}; then set -x; fi`
100		96
101	`. ${R_HOME}/share/sh/dcf.sh # get_dcf_field()`	97	`. ${R_HOME}/share/sh/dcf.sh # get_dcf_field()`
102		98
103	`Rdconv_dir_or_files_to_LaTeX () {`	99	`Rdconv_dir_or_files_to_LaTeX () {`
Line 164...	Line 160...
164	`echo "Hmm ... looks like a package"`	160	`echo "Hmm ... looks like a package"`
165	package_name=`get_dcf_field Package "${1}/DESCRIPTION"`	161	package_name=`get_dcf_field Package "${1}/DESCRIPTION"`
166	title=${title-"Package \`${package_name}'"}	162	title=${title-"Package \`${package_name}'"}
167	`dir=${1}/man`	163	`dir=${1}/man`
168	`fi`	164	`fi`
-		165	test -z "${output}" && output="`basename ${1}`.${out_ext}"
169	`elif test -f ${1}/DESCRIPTION.in && \`	166	`elif test -f ${1}/DESCRIPTION.in && \`
170	test -n "`grep '^Priority: *base' ${1}/DESCRIPTION.in`"; then	167	test -n "`grep '^Priority: *base' ${1}/DESCRIPTION.in`"; then
171	`is_base_package=yes`	168	`is_base_package=yes`
172	`echo "Hmm ... looks like a package from the R distribution"`	169	`echo "Hmm ... looks like a package from the R distribution"`
173	package_name=`get_dcf_field Package "${1}/DESCRIPTION.in"`	170	package_name=`get_dcf_field Package "${1}/DESCRIPTION.in"`
174	title=${title-"Package \`${package_name}'"}	171	title=${title-"Package \`${package_name}'"}
175	`dir=${1}/man`	172	`dir=${1}/man`
-		173	test -z "${output}" && output="`basename ${1}`.${out_ext}"
176	`else`	174	`else`
177	`if test -d ${1}/man; then`	175	`if test -d ${1}/man; then`
178	`dir=${1}/man`	176	`dir=${1}/man`
179	`else`	177	`else`
180	`dir=${1}`	178	`dir=${1}`
Line 186...	Line 184...
186	`if test ${#} -gt 1 ; then`	184	`if test ${#} -gt 1 ; then`
187	`subj=" etc.";`	185	`subj=" etc.";`
188	`else`	186	`else`
189	`subj=`	187	`subj=`
190	`toc=`	188	`toc=`
-		189	`if test -z "${output}"; then`
-		190	output=`basename "${1}"`
-		191	output="`echo ${output} \| sed 's/[Rr]d$//'`${out_ext}"
-		192	`fi`
191	`fi`	193	`fi`
192	subj0=`${echo} ${1} \| sed -e ${file_sed}`	194	subj0=`${echo} ${1} \| sed -e ${file_sed}`
193	`subj="\\file{${subj0}}${subj}"`	195	`subj="\\file{${subj0}}${subj}"`
194	`fi`	196	`fi`
195	`title=${title-"\\R{} documentation}} \\par\\bigskip{{\\Large of ${subj}"}`	197	`title=${title-"\\R{} documentation}} \\par\\bigskip{{\\Large of ${subj}"}`
196		198
197	`## Prepare for building the documentation.`	199	`## Prepare for building the documentation.`
-		200	`if test -z "${output}"; then`
-		201	`output="Rd2.${out_ext}"`
-		202	`fi`
198	`if test -f ${output}; then`	203	`if test -f ${output}; then`
199	${echo} "file \`${output}' exists; please remove first"	204	${echo} "file \`${output}' exists; please remove first"
200	`exit 1`	205	`exit 1`
201	`fi`	206	`fi`
202	`build_dir=.Rd2dvi${$}`	207	`build_dir=.Rd2dvi${$}`
Line 254...	Line 259...
254	`if test "${is_bundle}" = no; then`	259	`if test "${is_bundle}" = no; then`
255	`${echo} ${toc} >> ${build_dir}/Rd2.tex`	260	`${echo} ${toc} >> ${build_dir}/Rd2.tex`
256	`Rdconv_dir_or_files_to_LaTeX ${build_dir}/Rd2.tex ${dir-${@}}`	261	`Rdconv_dir_or_files_to_LaTeX ${build_dir}/Rd2.tex ${dir-${@}}`
257	`else`	262	`else`
258	`cat >> ${build_dir}/Rd2.tex <<EOF`	263	`cat >> ${build_dir}/Rd2.tex <<EOF`
-		264	`\\setcounter{secnumdepth}{-1}`
259	`\\pagenumbering{roman}`	265	`\\pagenumbering{roman}`
260	`\\tableofcontents{}`	266	`\\tableofcontents{}`
261	`\\cleardoublepage{}`	267	`\\cleardoublepage{}`
262	`\\pagenumbering{arabic}`	268	`\\pagenumbering{arabic}`
263	`EOF`	269	`EOF`
Line 287...	Line 293...
287	`${R_LATEXCMD-latex} Rd2`	293	`${R_LATEXCMD-latex} Rd2`
288	`if test "${out_ext}" = pdf; then`	294	`if test "${out_ext}" = pdf; then`
289	`${R_LATEXCMD-latex} Rd2`	295	`${R_LATEXCMD-latex} Rd2`
290	`fi`	296	`fi`
291	`cd ${start_dir}`	297	`cd ${start_dir}`
-		298	${echo} "Saving output to \`${output}' ..."
292	`cp ${build_dir}/Rd2.${out_ext} ${output}`	299	`cp ${build_dir}/Rd2.${out_ext} ${output}`
293	`echo "Done"`	300	`echo "Done"`
294		301
295	`if ${clean}; then`	302	`if ${clean}; then`
296	`rm -rf ${build_dir}`	303	`rm -rf ${build_dir}`

The R Project SVN R

(root)/branches/R-NaString/src/scripts/Rd2dvi @ 28362 – Rev 15168 → 15234