The R Project SVN R

Rev

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

Rev 52127 Rev 52232
Line 3... Line 3...
3 
## Examples:
 3 
## Examples:
4 
##  R CMD Rd2dvi /path/to/Rsrc/src/library/base/man/Normal.Rd
 4 
##  R CMD Rd2dvi /path/to/Rsrc/src/library/base/man/Normal.Rd
5 
##  R CMD Rd2dvi `grep -l "\\keyword{distr" \
 5 
##  R CMD Rd2dvi `grep -l "\\keyword{distr" \
6 
##                  /path/to/Rsrc/src/library/stats/man/*.Rd | sort | uniq`
 6 
##                  /path/to/Rsrc/src/library/stats/man/*.Rd | sort | uniq`
7 
 
 7 
 
8 
revision='$Rev: 52127 $'
 8 
revision='$Rev: 52232 $'
9 
version=`set - ${revision}; echo ${2}`
 9 
version=`set - ${revision}; echo ${2}`
10 
version="Rd2dvi: ${R_VERSION} (r${version})
 10 
version="Rd2dvi: ${R_VERSION} (r${version})
11 
 
 11 
 
12 
Copyright (C) 2000-2010 The R Core Development Team.
 12 
Copyright (C) 2000-2010 The R Core Development Team.
13 
This is free software; see the GNU General Public License version 2
 13 
This is free software; see the GNU General Public License version 2
Line 148... Line 148...
148 
 
 148 
 
149 
if ${debug}; then set -x; fi
 149 
if ${debug}; then set -x; fi
150 
 
 150 
 
151 
do_cleanup () {
 151 
do_cleanup () {
152 
  if ${clean}; then
 152 
  if ${clean}; then
153 
    cd ${start_dir}
 153 
    cd "${start_dir}"
154 
    rm -rf ${build_dir}
 154 
    rm -rf "${build_dir}"
155 
  else
 155 
  else
156 
    echo "You may want to clean up by 'rm -rf ${build_dir}'"
 156 
    echo "You may want to clean up by 'rm -rf ${build_dir}'"
157 
  fi
 157 
  fi
158 
}
 158 
}
159 
 
 159 
 
Line 196... Line 196...
196 
fi
 196 
fi
197 
if test -f ${output}; then
 197 
if test -f ${output}; then
198 
  echo "file '${output}' exists; please remove first"
 198 
  echo "file '${output}' exists; please remove first"
199 
  exit 1
 199 
  exit 1
200 
fi
 200 
fi
201 
if test -d ${build_dir}; then
 201 
if test -d "${build_dir}"; then
202 
  rm -rf ${build_dir} || echo "cannot write to build dir" && exit 2
 202 
  rm -rf "${build_dir}" || echo "cannot write to build dir" && exit 2
203 
fi
 203 
fi
204 
mkdir ${build_dir}
 204 
mkdir "${build_dir}"
205 
 
 205 
 
206 
echo "tools:::.Rd2dvi(\"${1}\",  \"${build_dir}/Rd2.tex\", \
 206 
echo "tools:::.Rd2dvi(\"${1}\",  \"${build_dir}/Rd2.tex\", \
207 
\"$title\", \"$batch\", \"$description\", \"$only_meta\",\
 207 
\"$title\", \"$batch\", \"$description\", \"$only_meta\",\
208 
\"$enc\", \"$outenc\", \"${dir-$@}\", \"OSdir\", \"$internals\", \"$index\")" \
 208 
\"$enc\", \"$outenc\", \"${dir-$@}\", \"OSdir\", \"$internals\", \"$index\")" \
209 
  | LC_ALL=C ${R_HOME}/bin/R --slave --vanilla || exit 11
 209 
  | LC_ALL=C ${R_HOME}/bin/R --slave --vanilla || exit 11
210 
 
 210 
 
211 
echo "Creating ${out_ext} output from LaTeX ..."
 211 
echo "Creating ${out_ext} output from LaTeX ..."
212 
cd ${build_dir}
 212 
cd "${build_dir}"
213 
 
 213 
 
214 
status=0
 214 
status=0
215 
echo "tools::texi2dvi('Rd2.tex', pdf=(\"${out_ext}\" == \"pdf\"), \
 215 
echo "tools::texi2dvi('Rd2.tex', pdf=(\"${out_ext}\" == \"pdf\"), \
216 
    quiet=FALSE, index=(\"${index}\" != \"false\"))" | \
 216 
    quiet=FALSE, index=(\"${index}\" != \"false\"))" | \
217 
   LC_ALL=C ${R_HOME}/bin/R --slave --vanilla || status=1
 217 
   LC_ALL=C ${R_HOME}/bin/R --slave --vanilla || status=1
Line 219... Line 219...
219 
  echo "Error in running tools::texi2dvi"
 219 
  echo "Error in running tools::texi2dvi"
220 
  do_cleanup
 220 
  do_cleanup
221 
  exit 1
 221 
  exit 1
222 
fi
 222 
fi
223 
 
 223 
 
224 
cd ${start_dir}
 224 
cd "${start_dir}"
225 
echo "Saving output to '${output}' ..."
 225 
echo "Saving output to '${output}' ..."
226 
cp ${build_dir}/Rd2.${out_ext} ${output}
 226 
cp "${build_dir}/Rd2.${out_ext}" ${output}
227 
echo "Done"
 227 
echo "Done"
228 
 
 228 
 
229 
do_cleanup
 229 
do_cleanup
230 
${preview} ${output}
 230 
${preview} ${output}
231 
exit 0
 231 
exit 0