[Distr-commits] r420 - pkg pkg/SweaveListingUtils pkg/SweaveListingUtils/R pkg/SweaveListingUtils/chm pkg/SweaveListingUtils/inst pkg/SweaveListingUtils/inst/TeX pkg/SweaveListingUtils/inst/doc pkg/SweaveListingUtils/man pkg/distr pkg/distr/R pkg/distr/chm pkg/distr/inst pkg/distr/inst/doc pkg/distr/man pkg/distrDoc pkg/distrDoc/chm pkg/distrDoc/inst pkg/distrDoc/inst/doc pkg/distrDoc/man pkg/distrEx pkg/distrEx/R pkg/distrEx/chm pkg/distrEx/inst pkg/distrEx/man pkg/distrMod pkg/distrMod/R pkg/distrMod/chm pkg/distrMod/inst pkg/distrMod/man pkg/distrSim pkg/distrSim/chm pkg/distrSim/inst pkg/distrSim/man pkg/distrTEst pkg/distrTEst/chm pkg/distrTEst/inst pkg/distrTEst/man pkg/distrTeach pkg/distrTeach/chm pkg/distrTeach/inst pkg/distrTeach/man pkg/startupmsg pkg/startupmsg/R pkg/startupmsg/chm pkg/startupmsg/inst pkg/utils www

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Thu Mar 19 22:56:27 CET 2009


Author: ruckdeschel
Date: 2009-03-19 22:56:25 +0100 (Thu, 19 Mar 2009)
New Revision: 420

Added:
   pkg/SweaveListingUtils/
   pkg/SweaveListingUtils/DESCRIPTION
   pkg/SweaveListingUtils/NAMESPACE
   pkg/SweaveListingUtils/R/
   pkg/SweaveListingUtils/R/SweaveListingOptions.R
   pkg/SweaveListingUtils/R/SweaveListingUtils.R
   pkg/SweaveListingUtils/R/keywordsRbyRobertDenham.R
   pkg/SweaveListingUtils/R/keywordsStyle.R
   pkg/SweaveListingUtils/chm/
   pkg/SweaveListingUtils/chm/00Index.html
   pkg/SweaveListingUtils/chm/0SweaveListingUtils-package.html
   pkg/SweaveListingUtils/chm/Rchm.css
   pkg/SweaveListingUtils/chm/SweaveListingMASK.html
   pkg/SweaveListingUtils/chm/SweaveListingOptions.html
   pkg/SweaveListingUtils/chm/SweaveListingPreparations.html
   pkg/SweaveListingUtils/chm/SweaveListingUtils.chm
   pkg/SweaveListingUtils/chm/SweaveListingUtils.hhp
   pkg/SweaveListingUtils/chm/SweaveListingUtils.toc
   pkg/SweaveListingUtils/chm/changeKeywordstyles.html
   pkg/SweaveListingUtils/chm/copySourceFromRForge.html
   pkg/SweaveListingUtils/chm/library.html
   pkg/SweaveListingUtils/chm/logo.jpg
   pkg/SweaveListingUtils/chm/lstinputSourceFromRForge.html
   pkg/SweaveListingUtils/chm/lstset.html
   pkg/SweaveListingUtils/chm/lstsetLanguage.html
   pkg/SweaveListingUtils/chm/readPackageVersion.html
   pkg/SweaveListingUtils/chm/readSourceFromRForge.html
   pkg/SweaveListingUtils/chm/setToBeDefinedPkgs.html
   pkg/SweaveListingUtils/chm/taglist.html
   pkg/SweaveListingUtils/inst/
   pkg/SweaveListingUtils/inst/MASKING
   pkg/SweaveListingUtils/inst/NEWS
   pkg/SweaveListingUtils/inst/TeX/
   pkg/SweaveListingUtils/inst/TeX/Rdlisting.sty
   pkg/SweaveListingUtils/inst/doc/
   pkg/SweaveListingUtils/inst/doc/AllClass.tex
   pkg/SweaveListingUtils/inst/doc/BinomParam.tex
   pkg/SweaveListingUtils/inst/doc/ExampleSweaveListingUtils.Rnw
   pkg/SweaveListingUtils/inst/doc/altPrep.tex
   pkg/SweaveListingUtils/inst/doc/exam1.tex
   pkg/SweaveListingUtils/inst/doc/locChange.tex
   pkg/SweaveListingUtils/inst/doc/preamble.tex
   pkg/SweaveListingUtils/inst/doc/preambleExp.tex
   pkg/SweaveListingUtils/inst/doc/reqdistr.tex
   pkg/SweaveListingUtils/man/
   pkg/SweaveListingUtils/man/0SweaveListingUtils-package.Rd
   pkg/SweaveListingUtils/man/SweaveListingMASK.Rd
   pkg/SweaveListingUtils/man/SweaveListingOptions.Rd
   pkg/SweaveListingUtils/man/SweaveListingPreparations.Rd
   pkg/SweaveListingUtils/man/changeKeywordstyles.Rd
   pkg/SweaveListingUtils/man/copySourceFromRForge.Rd
   pkg/SweaveListingUtils/man/library.Rd
   pkg/SweaveListingUtils/man/lstinputSourceFromRForge.Rd
   pkg/SweaveListingUtils/man/lstset.Rd
   pkg/SweaveListingUtils/man/lstsetLanguage.Rd
   pkg/SweaveListingUtils/man/readPackageVersion.Rd
   pkg/SweaveListingUtils/man/readSourceFromRForge.Rd
   pkg/SweaveListingUtils/man/setToBeDefinedPkgs.Rd
   pkg/SweaveListingUtils/man/taglist.Rd
   pkg/distr/R/ArcsineDistribution.R
   pkg/distr/R/CompoundDistribution.R
   pkg/distr/R/Lattice.R
   pkg/distr/R/internalUtils_trunc.R
   pkg/distr/R/makeAbscontDistribution.R
   pkg/distr/chm/CompoundDistribution-class.html
   pkg/distr/chm/CompoundDistribution.html
   pkg/distr/chm/ContDistribution-class.html
   pkg/distr/chm/ContDistribution.html
   pkg/distr/chm/Integer-class.html
   pkg/distr/chm/MakeAbscontDistribution.html
   pkg/distr/inst/doc/
   pkg/distr/inst/doc/Rplots.pdf
   pkg/distr/inst/doc/newDistributions.Rnw
   pkg/distr/inst/doc/newDistributions.pdf
   pkg/distr/man/Arcsine-class.Rd
   pkg/distr/man/CompoundDistribution-class.Rd
   pkg/distr/man/CompoundDistribution.Rd
   pkg/distr/man/MakeAbscontDistribution.Rd
   pkg/distrEx/R/AsymTotalVarDist.R
   pkg/distrEx/R/OAsymTotalVarDist.R
   pkg/distrEx/R/Pareto.R
   pkg/distrEx/chm/AsymTotalVarDist.html
   pkg/distrEx/chm/OAsymTotalVarDist.html
   pkg/distrEx/chm/Pareto-class.html
   pkg/distrEx/chm/Pareto.html
   pkg/distrEx/chm/ParetoParameter-class.html
   pkg/distrEx/man/AsymTotalVarDist.Rd
   pkg/distrEx/man/OAsymTotalVarDist.Rd
   pkg/distrEx/man/Pareto-class.Rd
   pkg/distrEx/man/Pareto.Rd
   pkg/distrEx/man/ParetoParameter-class.Rd
   pkg/distrEx/man/plot-methods.Rd
   pkg/distrMod/chm/trafoEst.html
   pkg/distrMod/man/trafoEst.Rd
   pkg/startupmsg/R/mySMHandler.R
   pkg/utils/DESCRIPTIONutils.R
   pkg/utils/copyToBranch.R
Removed:
   pkg/SweaveListingUtils/
   pkg/SweaveListingUtils/DESCRIPTION
   pkg/SweaveListingUtils/NAMESPACE
   pkg/SweaveListingUtils/R/
   pkg/SweaveListingUtils/R/SweaveListingOptions.R
   pkg/SweaveListingUtils/R/SweaveListingUtils.R
   pkg/SweaveListingUtils/R/keywordsRbyRobertDenham.R
   pkg/SweaveListingUtils/R/keywordsStyle.R
   pkg/SweaveListingUtils/chm/
   pkg/SweaveListingUtils/chm/00Index.html
   pkg/SweaveListingUtils/chm/0SweaveListingUtils-package.html
   pkg/SweaveListingUtils/chm/Rchm.css
   pkg/SweaveListingUtils/chm/SweaveListingMASK.html
   pkg/SweaveListingUtils/chm/SweaveListingOptions.html
   pkg/SweaveListingUtils/chm/SweaveListingPreparations.html
   pkg/SweaveListingUtils/chm/SweaveListingUtils.chm
   pkg/SweaveListingUtils/chm/SweaveListingUtils.hhp
   pkg/SweaveListingUtils/chm/SweaveListingUtils.toc
   pkg/SweaveListingUtils/chm/changeKeywordstyles.html
   pkg/SweaveListingUtils/chm/copySourceFromRForge.html
   pkg/SweaveListingUtils/chm/library.html
   pkg/SweaveListingUtils/chm/logo.jpg
   pkg/SweaveListingUtils/chm/lstinputSourceFromRForge.html
   pkg/SweaveListingUtils/chm/lstset.html
   pkg/SweaveListingUtils/chm/lstsetLanguage.html
   pkg/SweaveListingUtils/chm/readPackageVersion.html
   pkg/SweaveListingUtils/chm/readSourceFromRForge.html
   pkg/SweaveListingUtils/chm/setToBeDefinedPkgs.html
   pkg/SweaveListingUtils/chm/taglist.html
   pkg/SweaveListingUtils/inst/
   pkg/SweaveListingUtils/inst/MASKING
   pkg/SweaveListingUtils/inst/NEWS
   pkg/SweaveListingUtils/inst/TeX/
   pkg/SweaveListingUtils/inst/TeX/Rdlisting.sty
   pkg/SweaveListingUtils/inst/doc/
   pkg/SweaveListingUtils/inst/doc/AllClass.tex
   pkg/SweaveListingUtils/inst/doc/BinomParam.tex
   pkg/SweaveListingUtils/inst/doc/ExampleSweaveListingUtils.Rnw
   pkg/SweaveListingUtils/inst/doc/exam1.tex
   pkg/SweaveListingUtils/inst/doc/preamble.tex
   pkg/SweaveListingUtils/inst/doc/preambleExp.tex
   pkg/SweaveListingUtils/inst/doc/reqdistr.tex
   pkg/SweaveListingUtils/man/
   pkg/SweaveListingUtils/man/0SweaveListingUtils-package.Rd
   pkg/SweaveListingUtils/man/SweaveListingMASK.Rd
   pkg/SweaveListingUtils/man/SweaveListingOptions.Rd
   pkg/SweaveListingUtils/man/SweaveListingPreparations.Rd
   pkg/SweaveListingUtils/man/changeKeywordstyles.Rd
   pkg/SweaveListingUtils/man/copySourceFromRForge.Rd
   pkg/SweaveListingUtils/man/library.Rd
   pkg/SweaveListingUtils/man/lstinputSourceFromRForge.Rd
   pkg/SweaveListingUtils/man/lstset.Rd
   pkg/SweaveListingUtils/man/lstsetLanguage.Rd
   pkg/SweaveListingUtils/man/readPackageVersion.Rd
   pkg/SweaveListingUtils/man/readSourceFromRForge.Rd
   pkg/SweaveListingUtils/man/setToBeDefinedPkgs.Rd
   pkg/SweaveListingUtils/man/taglist.Rd
   pkg/distr/R/ArcsineDistribution.R
   pkg/distr/R/Lattice.R
   pkg/distr/chm/ContDistribution-class.html
   pkg/distr/chm/ContDistribution.html
   pkg/distr/chm/Integer-class.html
   pkg/distr/inst/doc/
   pkg/distr/inst/doc/Rplots.pdf
   pkg/distr/inst/doc/newDistributions.Rnw
   pkg/distr/inst/doc/newDistributions.pdf
   pkg/distr/man/Arcsine-class.Rd
   pkg/distrEx/man/plot-methods.Rd
   pkg/startupmsg/R/mySMHandler.R
   pkg/utils/DESCRIPTIONutils.R
   pkg/utils/copyToBranch.R
Modified:
   pkg/distr/DESCRIPTION
   pkg/distr/NAMESPACE
   pkg/distr/R/0distrOptions.R
   pkg/distr/R/AllClasses.R
   pkg/distr/R/AllGenerics.R
   pkg/distr/R/AllInitialize.R
   pkg/distr/R/ContDistribution.R
   pkg/distr/R/Convpow.r
   pkg/distr/R/DiscreteDistribution.R
   pkg/distr/R/Distribution.R
   pkg/distr/R/ExtraConvolutionMethods.R
   pkg/distr/R/LatticeDistribution.R
   pkg/distr/R/MinMaximum.R
   pkg/distr/R/SimplifyD.R
   pkg/distr/R/Truncate.R
   pkg/distr/R/UnivarLebDecDistribution.R
   pkg/distr/R/UnivarMixingDistribution.R
   pkg/distr/R/UtilitiesDistributions.R
   pkg/distr/R/bAcDcLcDistribution.R
   pkg/distr/R/bAffLinUnivarLebDecDistribution.R
   pkg/distr/R/flat.R
   pkg/distr/R/getLow.R
   pkg/distr/R/internalUtils.R
   pkg/distr/R/internalUtils_LCD.R
   pkg/distr/R/plot-methods.R
   pkg/distr/R/plot-methods_LebDec.R
   pkg/distr/R/print-show-methods.R
   pkg/distr/R/versionManagement.R
   pkg/distr/chm/00Index.html
   pkg/distr/chm/0distr-package.html
   pkg/distr/chm/Arcsine-class.html
   pkg/distr/chm/Beta-class.html
   pkg/distr/chm/BetaParameter-class.html
   pkg/distr/chm/Binom-class.html
   pkg/distr/chm/BinomParameter-class.html
   pkg/distr/chm/Cauchy-class.html
   pkg/distr/chm/CauchyParameter-class.html
   pkg/distr/chm/Chisq-class.html
   pkg/distr/chm/ChisqParameter-class.html
   pkg/distr/chm/ConvPow.html
   pkg/distr/chm/DExp-class.html
   pkg/distr/chm/Dirac-class.html
   pkg/distr/chm/DiracParameter-class.html
   pkg/distr/chm/DiscreteDistribution-class.html
   pkg/distr/chm/DiscreteDistribution.html
   pkg/distr/chm/Distr.chm
   pkg/distr/chm/Distr.hhp
   pkg/distr/chm/Distr.toc
   pkg/distr/chm/DistrList-class.html
   pkg/distr/chm/DistrList.html
   pkg/distr/chm/Distribution-class.html
   pkg/distr/chm/EuclideanSpace-class.html
   pkg/distr/chm/Exp-class.html
   pkg/distr/chm/ExpOrGammaOrChisq-class.html
   pkg/distr/chm/ExpParameter-class.html
   pkg/distr/chm/FParameter-class.html
   pkg/distr/chm/Fd-class.html
   pkg/distr/chm/GammaParameter-class.html
   pkg/distr/chm/Gammad-class.html
   pkg/distr/chm/Geom-class.html
   pkg/distr/chm/GeomParameter-class.html
   pkg/distr/chm/Huberize-methods.html
   pkg/distr/chm/Hyper-class.html
   pkg/distr/chm/HyperParameter-class.html
   pkg/distr/chm/Lattice-class.html
   pkg/distr/chm/LatticeDistribution-class.html
   pkg/distr/chm/LatticeDistribution.html
   pkg/distr/chm/Length-methods.html
   pkg/distr/chm/Lnorm-class.html
   pkg/distr/chm/LnormParameter-class.html
   pkg/distr/chm/Logis-class.html
   pkg/distr/chm/LogisParameter-class.html
   pkg/distr/chm/Math-methods.html
   pkg/distr/chm/Max-methods.html
   pkg/distr/chm/Min-methods.html
   pkg/distr/chm/MinMaximum-methods.html
   pkg/distr/chm/Naturals-class.html
   pkg/distr/chm/Nbinom-class.html
   pkg/distr/chm/NbinomParameter-class.html
   pkg/distr/chm/Norm-class.html
   pkg/distr/chm/NormParameter-class.html
   pkg/distr/chm/OptionalParameter-class.html
   pkg/distr/chm/Parameter-class.html
   pkg/distr/chm/Pois-class.html
   pkg/distr/chm/PoisParameter-class.html
   pkg/distr/chm/Reals-class.html
   pkg/distr/chm/RtoDPQ.LC.html
   pkg/distr/chm/RtoDPQ.d.html
   pkg/distr/chm/RtoDPQ.html
   pkg/distr/chm/TParameter-class.html
   pkg/distr/chm/Td-class.html
   pkg/distr/chm/Truncate-methods.html
   pkg/distr/chm/UniNormParameter-class.html
   pkg/distr/chm/Unif-class.html
   pkg/distr/chm/UnifParameter-class.html
   pkg/distr/chm/UnivarDistrList-class.html
   pkg/distr/chm/UnivarDistrList.html
   pkg/distr/chm/UnivarLebDecDistribution-class.html
   pkg/distr/chm/UnivarLebDecDistribution.html
   pkg/distr/chm/UnivarMixingDistribution-class.html
   pkg/distr/chm/UnivarMixingDistribution.html
   pkg/distr/chm/UnivariateDistribution-class.html
   pkg/distr/chm/Weibull-class.html
   pkg/distr/chm/WeibullParameter-class.html
   pkg/distr/chm/d-methods.html
   pkg/distr/chm/decomposePM-methods.html
   pkg/distr/chm/df-methods.html
   pkg/distr/chm/df1-methods.html
   pkg/distr/chm/df2-methods.html
   pkg/distr/chm/dim-methods.html
   pkg/distr/chm/dimension-methods.html
   pkg/distr/chm/distrARITH.html
   pkg/distr/chm/distrMASK.html
   pkg/distr/chm/distroptions.html
   pkg/distr/chm/flat.LCD.html
   pkg/distr/chm/flat.mix.html
   pkg/distr/chm/gap-methods.html
   pkg/distr/chm/getLabel.html
   pkg/distr/chm/getLow.html
   pkg/distr/chm/img-methods.html
   pkg/distr/chm/internals.html
   pkg/distr/chm/k-methods.html
   pkg/distr/chm/lambda-methods.html
   pkg/distr/chm/liesIn-methods.html
   pkg/distr/chm/liesInSupport.html
   pkg/distr/chm/location-methods.html
   pkg/distr/chm/m-methods.html
   pkg/distr/chm/mean-methods.html
   pkg/distr/chm/meanlog-methods.html
   pkg/distr/chm/n-methods.html
   pkg/distr/chm/name-methods.html
   pkg/distr/chm/ncp-methods.html
   pkg/distr/chm/operators-methods.html
   pkg/distr/chm/p-methods.html
   pkg/distr/chm/p.l-methods.html
   pkg/distr/chm/param-methods.html
   pkg/distr/chm/pivot-methods.html
   pkg/distr/chm/plot-methods.html
   pkg/distr/chm/print-methods.html
   pkg/distr/chm/prob-methods.html
   pkg/distr/chm/q-methods.html
   pkg/distr/chm/q.r-methods.html
   pkg/distr/chm/r-methods.html
   pkg/distr/chm/rSpace-class.html
   pkg/distr/chm/rate-methods.html
   pkg/distr/chm/scale-methods.html
   pkg/distr/chm/sd-methods.html
   pkg/distr/chm/sdlog-methods.html
   pkg/distr/chm/shape-methods.html
   pkg/distr/chm/shape1-methods.html
   pkg/distr/chm/shape2-methods.html
   pkg/distr/chm/showobj-methods.html
   pkg/distr/chm/simplifyD-methods.html
   pkg/distr/chm/simplifyr-methods.html
   pkg/distr/chm/size-methods.html
   pkg/distr/chm/standardMethods.html
   pkg/distr/chm/support-methods.html
   pkg/distr/chm/versionmanagement.html
   pkg/distr/chm/width-methods.html
   pkg/distr/inst/NEWS
   pkg/distr/man/0distr-package.Rd
   pkg/distr/man/Beta-class.Rd
   pkg/distr/man/Binom-class.Rd
   pkg/distr/man/Cauchy-class.Rd
   pkg/distr/man/Chisq-class.Rd
   pkg/distr/man/ContDistribution-class.Rd
   pkg/distr/man/ContDistribution.Rd
   pkg/distr/man/ConvPow.Rd
   pkg/distr/man/DExp-class.Rd
   pkg/distr/man/Dirac-class.Rd
   pkg/distr/man/DiscreteDistribution-class.Rd
   pkg/distr/man/DiscreteDistribution.Rd
   pkg/distr/man/Distribution-class.Rd
   pkg/distr/man/Fd-class.Rd
   pkg/distr/man/Gammad-class.Rd
   pkg/distr/man/Geom-class.Rd
   pkg/distr/man/Huberize-methods.Rd
   pkg/distr/man/Hyper-class.Rd
   pkg/distr/man/Integer-class.Rd
   pkg/distr/man/LatticeDistribution-class.Rd
   pkg/distr/man/Lnorm-class.Rd
   pkg/distr/man/Logis-class.Rd
   pkg/distr/man/Math-methods.Rd
   pkg/distr/man/Nbinom-class.Rd
   pkg/distr/man/Norm-class.Rd
   pkg/distr/man/Pois-class.Rd
   pkg/distr/man/Td-class.Rd
   pkg/distr/man/Truncate-methods.Rd
   pkg/distr/man/UnivarLebDecDistribution-class.Rd
   pkg/distr/man/UnivarMixingDistribution-class.Rd
   pkg/distr/man/UnivariateDistribution-class.Rd
   pkg/distr/man/Weibull-class.Rd
   pkg/distr/man/distroptions.Rd
   pkg/distr/man/gap-methods.Rd
   pkg/distr/man/getLow.Rd
   pkg/distr/man/internals.Rd
   pkg/distr/man/operators-methods.Rd
   pkg/distr/man/p.l-methods.Rd
   pkg/distr/man/plot-methods.Rd
   pkg/distr/man/prob-methods.Rd
   pkg/distr/man/q.r-methods.Rd
   pkg/distr/man/showobj-methods.Rd
   pkg/distrDoc/DESCRIPTION
   pkg/distrDoc/chm/00Index.html
   pkg/distrDoc/chm/0distrDoc-package.html
   pkg/distrDoc/chm/distrDoc.chm
   pkg/distrDoc/chm/distrDoc.toc
   pkg/distrDoc/inst/NEWS
   pkg/distrDoc/inst/doc/distr.Rnw
   pkg/distrDoc/man/0distrDoc-package.Rd
   pkg/distrEx/DESCRIPTION
   pkg/distrEx/NAMESPACE
   pkg/distrEx/R/AllClass.R
   pkg/distrEx/R/AllGeneric.R
   pkg/distrEx/R/AllInitialize.R
   pkg/distrEx/R/ConvexContamination.R
   pkg/distrEx/R/DiscreteMVDistribution.R
   pkg/distrEx/R/Expectation.R
   pkg/distrEx/R/Expectation_LebDec.R
   pkg/distrEx/R/Functionals.R
   pkg/distrEx/R/HellingerDist.R
   pkg/distrEx/R/Internalfunctions.R
   pkg/distrEx/R/Kurtosis.R
   pkg/distrEx/R/LMCondDistribution.R
   pkg/distrEx/R/PrognCondDistribution.R
   pkg/distrEx/R/Skewness.R
   pkg/distrEx/R/TotalVarDist.R
   pkg/distrEx/R/distrExOptions.R
   pkg/distrEx/chm/00Index.html
   pkg/distrEx/chm/0distrEx-package.html
   pkg/distrEx/chm/AbscontCondDistribution-class.html
   pkg/distrEx/chm/Condition-class.html
   pkg/distrEx/chm/CvMDist.html
   pkg/distrEx/chm/DiscreteCondDistribution-class.html
   pkg/distrEx/chm/DiscreteMVDistribution-class.html
   pkg/distrEx/chm/DiscreteMVDistribution.html
   pkg/distrEx/chm/E.html
   pkg/distrEx/chm/EuclCondition-class.html
   pkg/distrEx/chm/EuclCondition.html
   pkg/distrEx/chm/GLIntegrate.html
   pkg/distrEx/chm/Gumbel-class.html
   pkg/distrEx/chm/Gumbel.html
   pkg/distrEx/chm/GumbelParameter-class.html
   pkg/distrEx/chm/HellingerDist.html
   pkg/distrEx/chm/LMCondDistribution.html
   pkg/distrEx/chm/LMParameter-class.html
   pkg/distrEx/chm/LMParameter.html
   pkg/distrEx/chm/MultivariateDistribution-class.html
   pkg/distrEx/chm/PrognCondDistribution-class.html
   pkg/distrEx/chm/PrognCondition-class.html
   pkg/distrEx/chm/TotalVarDist.html
   pkg/distrEx/chm/UnivariateCondDistribution-class.html
   pkg/distrEx/chm/Var.html
   pkg/distrEx/chm/dim-methods.html
   pkg/distrEx/chm/distrEx.chm
   pkg/distrEx/chm/distrEx.hhp
   pkg/distrEx/chm/distrEx.toc
   pkg/distrEx/chm/distrExIntegrate.html
   pkg/distrEx/chm/distrExMASK.html
   pkg/distrEx/chm/distrExOptions.html
   pkg/distrEx/chm/liesInSupport.html
   pkg/distrEx/chm/make01.html
   pkg/distrEx/chm/plot-methods.html
   pkg/distrEx/inst/NEWS
   pkg/distrEx/man/0distrEx-package.Rd
   pkg/distrEx/man/AbscontCondDistribution-class.Rd
   pkg/distrEx/man/DiscreteCondDistribution-class.Rd
   pkg/distrEx/man/E.Rd
   pkg/distrEx/man/HellingerDist.Rd
   pkg/distrEx/man/TotalVarDist.Rd
   pkg/distrEx/man/Var.Rd
   pkg/distrEx/man/distrExOptions.Rd
   pkg/distrMod/DESCRIPTION
   pkg/distrMod/NAMESPACE
   pkg/distrMod/R/0distrModUtils.R
   pkg/distrMod/R/AllGeneric.R
   pkg/distrMod/R/AllPlot.R
   pkg/distrMod/R/AllShow.R
   pkg/distrMod/R/Estimator.R
   pkg/distrMod/R/L2GroupFamilies.R
   pkg/distrMod/R/MCEstimator.R
   pkg/distrMod/R/MDEstimator.R
   pkg/distrMod/R/MLEstimator.R
   pkg/distrMod/R/ParamFamily.R
   pkg/distrMod/R/SimpleL2ParamFamilies.R
   pkg/distrMod/R/internalMleCalc.R
   pkg/distrMod/R/mleCalc-methods.R
   pkg/distrMod/R/modifyModel.R
   pkg/distrMod/chm/00Index.html
   pkg/distrMod/chm/0distrMod-package.html
   pkg/distrMod/chm/BetaFamily.html
   pkg/distrMod/chm/BiasType-class.html
   pkg/distrMod/chm/BinomFamily.html
   pkg/distrMod/chm/CauchyLocationScaleFamily.html
   pkg/distrMod/chm/Confint-class.html
   pkg/distrMod/chm/DistrSymmList-class.html
   pkg/distrMod/chm/DistrSymmList.html
   pkg/distrMod/chm/DistributionSymmetry-class.html
   pkg/distrMod/chm/EllipticalSymmetry-class.html
   pkg/distrMod/chm/EllipticalSymmetry.html
   pkg/distrMod/chm/Estimate-class.html
   pkg/distrMod/chm/Estimator.html
   pkg/distrMod/chm/EvenSymmetric-class.html
   pkg/distrMod/chm/EvenSymmetric.html
   pkg/distrMod/chm/ExpScaleFamily.html
   pkg/distrMod/chm/FunSymmList-class.html
   pkg/distrMod/chm/FunSymmList.html
   pkg/distrMod/chm/FunctionSymmetry-class.html
   pkg/distrMod/chm/GammaFamily.html
   pkg/distrMod/chm/GumbelLocationFamily.html
   pkg/distrMod/chm/InfoNorm.html
   pkg/distrMod/chm/InternalReturnClasses-class.html
   pkg/distrMod/chm/L2GroupFamily-class.html
   pkg/distrMod/chm/L2LocationFamily-class.html
   pkg/distrMod/chm/L2LocationFamily.html
   pkg/distrMod/chm/L2LocationScaleFamily-class.html
   pkg/distrMod/chm/L2LocationScaleFamily.html
   pkg/distrMod/chm/L2LocationUnknownScaleFamily.html
   pkg/distrMod/chm/L2ParamFamily-class.html
   pkg/distrMod/chm/L2ParamFamily.html
   pkg/distrMod/chm/L2ScaleFamily-class.html
   pkg/distrMod/chm/L2ScaleFamily.html
   pkg/distrMod/chm/L2ScaleUnknownLocationFamily.html
   pkg/distrMod/chm/LnormScaleFamily.html
   pkg/distrMod/chm/MCEstimate-class.html
   pkg/distrMod/chm/MCEstimator.html
   pkg/distrMod/chm/MDEstimator.html
   pkg/distrMod/chm/MLEstimator.html
   pkg/distrMod/chm/NoSymmetry-class.html
   pkg/distrMod/chm/NoSymmetry.html
   pkg/distrMod/chm/NonSymmetric-class.html
   pkg/distrMod/chm/NonSymmetric.html
   pkg/distrMod/chm/NormLocationFamily.html
   pkg/distrMod/chm/NormLocationScaleFamily.html
   pkg/distrMod/chm/NormLocationUnknownScaleFamily.html
   pkg/distrMod/chm/NormScaleFamily.html
   pkg/distrMod/chm/NormScaleUnknownLocationFamily.html
   pkg/distrMod/chm/NormType-class.html
   pkg/distrMod/chm/NormType.html
   pkg/distrMod/chm/OddSymmetric-class.html
   pkg/distrMod/chm/OddSymmetric.html
   pkg/distrMod/chm/ParamFamParameter-class.html
   pkg/distrMod/chm/ParamFamParameter.html
   pkg/distrMod/chm/ParamFamily.html
   pkg/distrMod/chm/PoisFamily.html
   pkg/distrMod/chm/PosDefSymmMatrix-class.html
   pkg/distrMod/chm/PosDefSymmMatrix.html
   pkg/distrMod/chm/ProbFamily-class.html
   pkg/distrMod/chm/QFNorm.html
   pkg/distrMod/chm/QFnorm-class.html
   pkg/distrMod/chm/RiskType-class.html
   pkg/distrMod/chm/SelfNorm.html
   pkg/distrMod/chm/SphericalSymmetry-class.html
   pkg/distrMod/chm/SphericalSymmetry.html
   pkg/distrMod/chm/Symmetry-class.html
   pkg/distrMod/chm/asBias-class.html
   pkg/distrMod/chm/asBias.html
   pkg/distrMod/chm/asCov-class.html
   pkg/distrMod/chm/asCov.html
   pkg/distrMod/chm/asGRisk-class.html
   pkg/distrMod/chm/asHampel-class.html
   pkg/distrMod/chm/asHampel.html
   pkg/distrMod/chm/asMSE-class.html
   pkg/distrMod/chm/asMSE.html
   pkg/distrMod/chm/asRisk-class.html
   pkg/distrMod/chm/asRiskwithBias-class.html
   pkg/distrMod/chm/asSemivar-class.html
   pkg/distrMod/chm/asSemivar.html
   pkg/distrMod/chm/asUnOvShoot-class.html
   pkg/distrMod/chm/asUnOvShoot.html
   pkg/distrMod/chm/asymmetricBias-class.html
   pkg/distrMod/chm/asymmetricBias.html
   pkg/distrMod/chm/checkL2deriv.html
   pkg/distrMod/chm/confint-methods.html
   pkg/distrMod/chm/distrMod.chm
   pkg/distrMod/chm/distrMod.hhp
   pkg/distrMod/chm/distrMod.toc
   pkg/distrMod/chm/distrModMASK.html
   pkg/distrMod/chm/distrModOptions.html
   pkg/distrMod/chm/existsPIC.html
   pkg/distrMod/chm/fiBias-class.html
   pkg/distrMod/chm/fiBias.html
   pkg/distrMod/chm/fiCov-class.html
   pkg/distrMod/chm/fiCov.html
   pkg/distrMod/chm/fiHampel-class.html
   pkg/distrMod/chm/fiHampel.html
   pkg/distrMod/chm/fiMSE-class.html
   pkg/distrMod/chm/fiMSE.html
   pkg/distrMod/chm/fiRisk-class.html
   pkg/distrMod/chm/fiUnOvShoot-class.html
   pkg/distrMod/chm/fiUnOvShoot.html
   pkg/distrMod/chm/internalClassUnions-class.html
   pkg/distrMod/chm/internalmleHelpers.html
   pkg/distrMod/chm/internals.html
   pkg/distrMod/chm/isKerAinKerB.html
   pkg/distrMod/chm/meRes.html
   pkg/distrMod/chm/mleCalc-methods.html
   pkg/distrMod/chm/modifyModel-methods.html
   pkg/distrMod/chm/negativeBias.html
   pkg/distrMod/chm/norms.html
   pkg/distrMod/chm/onesidedBias-class.html
   pkg/distrMod/chm/positiveBias.html
   pkg/distrMod/chm/print-methods.html
   pkg/distrMod/chm/solve-methods.html
   pkg/distrMod/chm/sqrt-methods.html
   pkg/distrMod/chm/symmetricBias-class.html
   pkg/distrMod/chm/symmetricBias.html
   pkg/distrMod/chm/trAsCov-class.html
   pkg/distrMod/chm/trAsCov.html
   pkg/distrMod/chm/trFiCov-class.html
   pkg/distrMod/chm/trFiCov.html
   pkg/distrMod/chm/trafo-methods.html
   pkg/distrMod/chm/validParameter-methods.html
   pkg/distrMod/inst/NEWS
   pkg/distrMod/man/0distrMod-package.Rd
   pkg/distrMod/man/L2ParamFamily-class.Rd
   pkg/distrMod/man/internals.Rd
   pkg/distrMod/man/modifyModel-methods.Rd
   pkg/distrMod/man/trafo-methods.Rd
   pkg/distrSim/DESCRIPTION
   pkg/distrSim/chm/00Index.html
   pkg/distrSim/chm/0distrSim-package.html
   pkg/distrSim/chm/Contsimulation-class.html
   pkg/distrSim/chm/Data-methods.html
   pkg/distrSim/chm/Data.c-methods.html
   pkg/distrSim/chm/Data.id-methods.html
   pkg/distrSim/chm/Dataclass-class.html
   pkg/distrSim/chm/Dataclass.html
   pkg/distrSim/chm/SeqDataFrame-class.html
   pkg/distrSim/chm/Simulation-class.html
   pkg/distrSim/chm/cload.html
   pkg/distrSim/chm/distrSim.chm
   pkg/distrSim/chm/distrSim.toc
   pkg/distrSim/chm/distrSimMASK.html
   pkg/distrSim/chm/distrSimOptions.html
   pkg/distrSim/chm/distribution-methods.html
   pkg/distrSim/chm/distribution.c-methods.html
   pkg/distrSim/chm/distribution.id-methods.html
   pkg/distrSim/chm/filename-methods.html
   pkg/distrSim/chm/ind-methods.html
   pkg/distrSim/chm/name-methods.html
   pkg/distrSim/chm/obsDim-methods.html
   pkg/distrSim/chm/plot-methods.html
   pkg/distrSim/chm/print-methods.html
   pkg/distrSim/chm/rate-methods.html
   pkg/distrSim/chm/runs-methods.html
   pkg/distrSim/chm/samplesize-methods.html
   pkg/distrSim/chm/savedata-methods.html
   pkg/distrSim/chm/seed-methods.html
   pkg/distrSim/chm/simulate-methods.html
   pkg/distrSim/chm/subsetting-methods.html
   pkg/distrSim/chm/summary-methods.html
   pkg/distrSim/chm/vectororNULL-class.html
   pkg/distrSim/chm/versionmanagement.html
   pkg/distrSim/inst/NEWS
   pkg/distrSim/man/0distrSim-package.Rd
   pkg/distrTEst/DESCRIPTION
   pkg/distrTEst/chm/00Index.html
   pkg/distrTEst/chm/0distrTEst-package.html
   pkg/distrTEst/chm/Data-methods.html
   pkg/distrTEst/chm/Evaluation-class.html
   pkg/distrTEst/chm/EvaluationList-class.html
   pkg/distrTEst/chm/call.ev-methods.html
   pkg/distrTEst/chm/distrTEst-internals.html
   pkg/distrTEst/chm/distrTEst.chm
   pkg/distrTEst/chm/distrTEst.toc
   pkg/distrTEst/chm/distrTEstOptions.html
   pkg/distrTEst/chm/estimator-methods.html
   pkg/distrTEst/chm/evaluate-methods.html
   pkg/distrTEst/chm/filename-methods.html
   pkg/distrTEst/chm/name-methods.html
   pkg/distrTEst/chm/numericorNULL-class.html
   pkg/distrTEst/chm/plot-methods.html
   pkg/distrTEst/chm/print-methods.html
   pkg/distrTEst/chm/result-methods.html
   pkg/distrTEst/chm/savedata-methods.html
   pkg/distrTEst/chm/summary-methods.html
   pkg/distrTEst/inst/NEWS
   pkg/distrTEst/man/0distrTEst-package.Rd
   pkg/distrTeach/DESCRIPTION
   pkg/distrTeach/chm/00Index.html
   pkg/distrTeach/chm/0distrTeach-package.html
   pkg/distrTeach/chm/IllustCLT.html
   pkg/distrTeach/chm/IllustLLN.html
   pkg/distrTeach/chm/distrTeach.chm
   pkg/distrTeach/chm/distrTeach.toc
   pkg/distrTeach/chm/plotCLT.html
   pkg/distrTeach/inst/NEWS
   pkg/distrTeach/man/0distrTeach-package.Rd
   pkg/startupmsg/DESCRIPTION
   pkg/startupmsg/chm/00Index.html
   pkg/startupmsg/chm/startupmsg.chm
   pkg/startupmsg/inst/NEWS
   pkg/utils/ladealles.R
   pkg/utils/setNewVersion.r
   www/distr.html
   www/distrDoc.html
   www/distrEx.html
   www/distrMod.html
   www/distrSim.html
   www/distrTEst.html
   www/distrTeach.html
   www/index.php
Log:
+ a big step: merged back branch 2.1 to trunc --- without checking errors (under Windows)
  @Matthias/pls check Linux;
+ versions + dates should be correct (pls check)
+ distrDoc-vignette is updated


Copied: pkg/SweaveListingUtils (from rev 418, pkg/SweaveListingUtils)

Deleted: pkg/SweaveListingUtils/DESCRIPTION
===================================================================
--- pkg/SweaveListingUtils/DESCRIPTION	2009-03-19 16:59:08 UTC (rev 418)
+++ pkg/SweaveListingUtils/DESCRIPTION	2009-03-19 21:56:25 UTC (rev 420)
@@ -1,15 +0,0 @@
-Package: SweaveListingUtils
-Title: Utilities for Sweave together with TeX listings package
-Version: 0.1.1
-Depends: R(>= 2.0.0), startupmsg
-Imports: stats
-LazyLoad: yes
-Author: Peter Ruckdeschel
-Description: provides utilities for defining R / Rd as
-        Tex-package-listings "language" and including R / Rd source
-        file (sniplets) copied from R-forge in its most recent version
-        (or another url) thereby avoiding inconsistencies between
-        vignette and documented source code
-Maintainer: Peter Ruckdeschel <Peter.Ruckdeschel at itwm.fraunhofer.de>
-License: LGPL-3
-Date: 2008-11-27

Copied: pkg/SweaveListingUtils/DESCRIPTION (from rev 418, pkg/SweaveListingUtils/DESCRIPTION)
===================================================================
--- pkg/SweaveListingUtils/DESCRIPTION	                        (rev 0)
+++ pkg/SweaveListingUtils/DESCRIPTION	2009-03-19 21:56:25 UTC (rev 420)
@@ -0,0 +1,15 @@
+Package: SweaveListingUtils
+Title: Utilities for Sweave together with TeX listings package
+Version: 0.2
+Depends: R(>= 2.0.0), startupmsg
+Imports: stats
+LazyLoad: yes
+Author: Peter Ruckdeschel
+Description: provides utilities for defining R / Rd as
+        Tex-package-listings "language" and including R / Rd source
+        file (sniplets) copied from R-forge in its most recent version
+        (or another url) thereby avoiding inconsistencies between
+        vignette and documented source code
+Maintainer: Peter Ruckdeschel <Peter.Ruckdeschel at itwm.fraunhofer.de>
+License: LGPL-3
+Date: 2009-03-19

Deleted: pkg/SweaveListingUtils/NAMESPACE
===================================================================
--- pkg/SweaveListingUtils/NAMESPACE	2009-03-19 16:59:08 UTC (rev 418)
+++ pkg/SweaveListingUtils/NAMESPACE	2009-03-19 21:56:25 UTC (rev 420)
@@ -1,9 +0,0 @@
-import("startupmsg")
-export("taglist", "lstset", "lstsetR", "lstsetRd", 
-       "SweaveListingPreparations", "readSourceFromRForge",
-       "copySourceFromRForge", "lstinputSourceFromRForge", 
-       "readPkgVersion",  "SweaveListingOptions",
-       "SweaveListingoptions", "getSweaveListingOption",
-       "SweaveListingMASK", "setToBeDefinedPkgs","lstsetLanguage",
-       "changeKeywordstyles", "library", "require")
-S3method(print, taglist)
\ No newline at end of file

Copied: pkg/SweaveListingUtils/NAMESPACE (from rev 418, pkg/SweaveListingUtils/NAMESPACE)
===================================================================
--- pkg/SweaveListingUtils/NAMESPACE	                        (rev 0)
+++ pkg/SweaveListingUtils/NAMESPACE	2009-03-19 21:56:25 UTC (rev 420)
@@ -0,0 +1,9 @@
+import("startupmsg")
+export("taglist", "lstset", "lstsetR", "lstsetRd", 
+       "SweaveListingPreparations", "readSourceFromRForge",
+       "copySourceFromRForge", "lstinputSourceFromRForge", 
+       "readPkgVersion",  "SweaveListingOptions",
+       "SweaveListingoptions", "getSweaveListingOption",
+       "SweaveListingMASK", "setToBeDefinedPkgs","lstsetLanguage",
+       "changeKeywordstyles", "library", "require")
+S3method(print, taglist)
\ No newline at end of file

Copied: pkg/SweaveListingUtils/R (from rev 418, pkg/SweaveListingUtils/R)

Deleted: pkg/SweaveListingUtils/R/SweaveListingOptions.R
===================================================================
--- pkg/SweaveListingUtils/R/SweaveListingOptions.R	2009-03-19 16:59:08 UTC (rev 418)
+++ pkg/SweaveListingUtils/R/SweaveListingOptions.R	2009-03-19 21:56:25 UTC (rev 420)
@@ -1,63 +0,0 @@
-### default settings
-.CacheLength <- 0
-.CacheFiles <- NULL
-.alreadyDefinedPkgs <- NULL
-.tobeDefinedPkgs <- NULL
-
-.SweaveListingOptions <- list(
-Rset = list("fancyvrb" = "true", "escapechar" = "`",
-        "language" = "R", "basicstyle" = "{\\color{Rcolor}\\small}",
-        "keywordstyle" = "{\\bf\\color{Rcolor}}",
-        "commentstyle" = "{\\color{Rcomment}\\ttfamily\\itshape}",
-        "literate" = "{<-}{{$\\leftarrow$}}2{<<-}{{$\\twoheadleftarrow$}}2",
-        "alsoother" = "{$}", "alsoletter" = "{.<-}",
-        "otherkeywords" = "{!,!=,~,$,*,\\&,\\%/\\%,\\%*\\%,\\%\\%,<-,<<-,/}"        
-        ),
-Rdset = list("fancyvrb" = "true", "language" = "Rd", 
-             "keywordstyle" = "{\\bf}",
-             "basicstyle" = "{\\color{black}\\footnotesize}",
-               "commentstyle" = "{\\ttfamily\\itshape}",
-               "alsolanguage" = "R"),
-Rcolor  = c(0,0.5,0.5),
-Rbcolor  = c(0,0.6,0.6),
-Rout     = c(0.461,0.039,0.102),
-Rcomment = c(0.101,0.043,0.432),
-pkv = "2.0.2",
-pkg = "distr",
-Keywordstyle = "{\\bf}",
-interm.Keywordstyle = "{\\bf\\color{Rbcolor}}",
-overwrite = FALSE,
-intermediate = TRUE,
-inSweave = FALSE,
-fromRForge = TRUE,
-base.url = paste("http://r-forge.r-project.org/plugins/scmsvn/viewcvs.php/",
-                            "*checkout*/pkg/", sep = "")
-)
-
-SweaveListingOptions <- function(...) {
-    if (nargs() == 0) return(.SweaveListingOptions)
-    current <- .SweaveListingOptions
-    temp <- list(...)
-    if (length(temp) == 1 && is.null(names(temp))) {
-        arg <- temp[[1]]
-        switch(mode(arg),
-            list = temp <- arg,
-            character = return(.SweaveListingOptions[arg]),
-            stop("invalid argument: ", sQuote(arg)))
-    }
-    if (length(temp) == 0) return(current)
-    n <- names(temp)
-    if (is.null(n)) stop("options must be given by name")
-    changed <- current[n]
-    current[n] <- temp
-#    if (sys.parent() == 0)
-        env <- asNamespace("SweaveListingUtils")
-#    else
-#        env <- parent.frame()
-    assign(".SweaveListingOptions", current, envir = env)
-
-    invisible(current)
-}
-
-getSweaveListingOption <- function(x) SweaveListingOptions(x)[[1]]
-SweaveListingoptions <- SweaveListingOptions

Copied: pkg/SweaveListingUtils/R/SweaveListingOptions.R (from rev 418, pkg/SweaveListingUtils/R/SweaveListingOptions.R)
===================================================================
--- pkg/SweaveListingUtils/R/SweaveListingOptions.R	                        (rev 0)
+++ pkg/SweaveListingUtils/R/SweaveListingOptions.R	2009-03-19 21:56:25 UTC (rev 420)
@@ -0,0 +1,63 @@
+### default settings
+.CacheLength <- 0
+.CacheFiles <- NULL
+.alreadyDefinedPkgs <- NULL
+.tobeDefinedPkgs <- NULL
+
+.SweaveListingOptions <- list(
+Rset = list("fancyvrb" = "true", "escapechar" = "`",
+        "language" = "R", "basicstyle" = "{\\color{Rcolor}\\small}",
+        "keywordstyle" = "{\\bf\\color{Rcolor}}",
+        "commentstyle" = "{\\color{Rcomment}\\ttfamily\\itshape}",
+        "literate" = "{<-}{{$\\leftarrow$}}2{<<-}{{$\\twoheadleftarrow$}}2",
+        "alsoother" = "{$}", "alsoletter" = "{.<-}",
+        "otherkeywords" = "{!,!=,~,$,*,\\&,\\%/\\%,\\%*\\%,\\%\\%,<-,<<-,/}"        
+        ),
+Rdset = list("fancyvrb" = "true", "language" = "Rd", 
+             "keywordstyle" = "{\\bf}",
+             "basicstyle" = "{\\color{black}\\footnotesize}",
+               "commentstyle" = "{\\ttfamily\\itshape}",
+               "alsolanguage" = "R"),
+Rcolor  = c(0,0.5,0.5),
+Rbcolor  = c(0,0.6,0.6),
+Rout     = c(0.461,0.039,0.102),
+Rcomment = c(0.101,0.043,0.432),
+pkv = "2.0.2",
+pkg = "distr",
+Keywordstyle = "{\\bf}",
+interm.Keywordstyle = "{\\bf\\color{Rbcolor}}",
+overwrite = FALSE,
+intermediate = TRUE,
+inSweave = FALSE,
+fromRForge = TRUE,
+base.url = paste("http://r-forge.r-project.org/plugins/scmsvn/viewcvs.php/",
+                            "*checkout*/pkg/", sep = "")
+)
+
+SweaveListingOptions <- function(...) {
+    if (nargs() == 0) return(.SweaveListingOptions)
+    current <- .SweaveListingOptions
+    temp <- list(...)
+    if (length(temp) == 1 && is.null(names(temp))) {
+        arg <- temp[[1]]
+        switch(mode(arg),
+            list = temp <- arg,
+            character = return(.SweaveListingOptions[arg]),
+            stop("invalid argument: ", sQuote(arg)))
+    }
+    if (length(temp) == 0) return(current)
+    n <- names(temp)
+    if (is.null(n)) stop("options must be given by name")
+    changed <- current[n]
+    current[n] <- temp
+#    if (sys.parent() == 0)
+        env <- asNamespace("SweaveListingUtils")
+#    else
+#        env <- parent.frame()
+    assign(".SweaveListingOptions", current, envir = env)
+
+    invisible(current)
+}
+
+getSweaveListingOption <- function(x) SweaveListingOptions(x)[[1]]
+SweaveListingoptions <- SweaveListingOptions

Deleted: pkg/SweaveListingUtils/R/SweaveListingUtils.R
===================================================================
--- pkg/SweaveListingUtils/R/SweaveListingUtils.R	2009-03-19 16:59:08 UTC (rev 418)
+++ pkg/SweaveListingUtils/R/SweaveListingUtils.R	2009-03-19 21:56:25 UTC (rev 420)
@@ -1,336 +0,0 @@
-###############################################################################
-# some R helpers for Sweave / listings
-# will be included into some package some day...
-#
-###############################################################################
-
-# .onLoad<-function(lib,pkg){require(methods)}
-
-.onAttach <- function(library, pkg)
-{
-#  if (is.null(library)) 
-#            library <- .libPaths()
-
-     unlockBinding(".keywordsR", asNamespace("SweaveListingUtils"))
-     unlockBinding(".alreadyDefinedPkgs", asNamespace("SweaveListingUtils"))
-     unlockBinding(".tobeDefinedPkgs", asNamespace("SweaveListingUtils"))
-     unlockBinding(".CacheFiles", asNamespace("SweaveListingUtils"))
-     unlockBinding(".CacheLength", asNamespace("SweaveListingUtils"))
-     unlockBinding(".SweaveListingOptions", asNamespace("SweaveListingUtils"))
-     msga <- gettext(
-    "Some functions from package 'base' are intentionally masked ---see SweaveListingMASK().\n"
-                   )
-    msgb <- gettext(
-    "Note that global options are controlled by SweaveListingoptions() ---c.f. ?\"SweaveListingoptions\"."
-                   )
-
-     buildStartupMessage(pkg = "SweaveListingUtils", msga, msgb,  
-                         library = library, packageHelp = TRUE,
-                    VIGNETTE = gettext(
-"There is a vignette to this package; try vignette(\"ExampleSweaveListingUtils\")."
-                                      )
-                         )
-
-  invisible()
-} 
-
-SweaveListingMASK <- function(library = NULL) 
-{
-    infoShow(pkg = "SweaveListingUtils", filename="MASKING", library = library)
-}
-
-
-print.taglist <- function(x, LineLength = 80, offset.start = 0,
-                          withFinalLineBreak = TRUE, first.print = NULL, ...){
-   xc <- as.character(deparse(substitute(x)))
-   ll <- length(x)
-   LineL <- max(LineLength-2,0)
-   LineBreak <- NULL
-   mi50 <- min(LineLength,50)
-   maL <- max(3*LineLength,80)
-   if(ll){
-      offS <- paste(rep(" ", offset.start), collapse = "")
-      for(i in 1:ll){
-          trystr0 <- paste(names(x[i]),x[[i]],sep = "=")
-          if(i==1){
-            actstr <-  trystr  <- trystr0
-            trystr0 <- NULL
-            if(length(first.print))
-               cat(first.print)                 
-          }else{
-             trystr  <- paste(actstr, trystr0, sep = ",")
-          }
-
-          ntry <- nchar(trystr) + offset.start
-          if (ntry < LineL){
-              actstr <- trystr
-          }else{
-              if(ntry > maL) stop(gettextf(
-                      "Some elements of %s are too long", 
-                       if(nchar(xc)> mi50) paste(substr(xc,1,mi50),"...") else
-                                xc))
-              if(actstr!=offS) cat(LineBreak, actstr,",%",sep="")
-              LineBreak <- "\n"
-              actstr <- paste(offS, trystr0, sep = "")
-          }
-      }
-      if(nzchar(actstr)) {
-         if(i>1) cat("\n")
-         cat(actstr, sep="")
-         if(withFinalLineBreak) cat("\n")
-      }
-   }
-   return(invisible())
-}
-
-taglist <- function(..., list = NULL, defname = "V"){
-  dots <-  c(list,match.call(call = sys.call(),
-                       expand.dots = FALSE)$"...")
-  ldots <- length(dots)
-  if(ldots){
-     defname <- unique(defname)
-     defnames <- if(length(defname)<ldots){
-            paste(rep(defname,length.out=ldots), 1:ldots, sep = "")} else defname
-     nms <- names(dots)
-     if(is.null(nms)) nms <- rep("", ldots)
-     nms[ nms == "" ] <- defnames[nms == ""]
-     names(dots) <- nms
-     return(structure(as.list(dots), class = c("taglist","list")))
-  }
-  return(invisible())
-}
-
-lstset <- function(taglist, LineLength = 80, startS = "\\lstset{"){
-   print(taglist, LineLength = LineLength, offset.start = nchar(startS),
-         withFinalLineBreak = FALSE, first.print = startS)
-   cat("}%\n")
-   return(invisible())
-}
-
-lstsetR <- function(Rset = NULL, LineLength = 80, add = TRUE, startS = "\\lstset{"){
-   if(add){
-       Rset0 <- getSweaveListingOption("Rset")
-       if(length(Rset)){
-          newnms <- names(Rset)
-          oldnms <- names(Rset0)
-          ooldnms <- oldnms[! (oldnms %in% newnms)]
-          Rset <- c(Rset, Rset0[ooldnms]) 
-       }else Rset <- Rset0   
-   }
-   if(!is(Rset, "taglist")) Rset <- taglist(list=Rset)
-   lstset(Rset, LineLength = LineLength, startS = startS)
-   return(invisible())
-}
-
-lstsetRd <- function(Rdset = NULL, LineLength = 80, add = TRUE, startS = "\\lstset{"){
-   if(add){
-       Rdset0 <- getSweaveListingOption("Rdset")
-       if(length(Rdset)){
-          newnms <- names(Rdset)
-          oldnms <- names(Rdset0)
-          ooldnms <- oldnms[! (oldnms %in% newnms)]
-          Rdset <- c(Rdset, Rdset0[ooldnms]) 
-       }else Rdset <- Rdset0   
-   }
-   if(!is(Rdset, "taglist")) Rdset <- taglist(list=Rdset)
-   lstset(Rdset, LineLength = LineLength, startS = startS)
-   return(invisible())
-}
-
-
-SweaveListingPreparations <- function(LineLength = 80,
-   Rset = getSweaveListingOption("Rset"), 
-   Rdset = getSweaveListingOption("Rdset"), 
-   Rcolor = getSweaveListingOption("Rcolor"), 
-   Rbcolor = getSweaveListingOption("Rbcolor"), 
-   Rout = getSweaveListingOption("Rout"),
-   Rcomment = getSweaveListingOption("Rcomment"), 
-   pkg = getSweaveListingOption("pkg"), 
-   pkv = getSweaveListingOption("pkv"), 
-   lib.loc = NULL){
-
-sws <- .SweaveListingOptions
-sws$inSweave <- TRUE
-assignInNamespace(".SweaveListingOptions", sws, "SweaveListingUtils")
-line <- paste("%",paste(rep("-",LineLength-2),collapse=""),"%\n", sep="")
-
-cat(line,"%Preparations for Sweave and Listings\n",line,"%\n", sep = "")
-cat("\\RequirePackage{color}\n")
-cat("\\definecolor{Rcolor}{rgb}{",paste(Rcolor,collapse=", "),"}\n", sep = "")
-cat("\\definecolor{Rbcolor}{rgb}{",paste(Rbcolor,collapse=", "),"}\n", sep = "")
-cat("\\definecolor{Rout}{rgb}{",paste(Rout,collapse=", "),"}\n", sep = "")
-cat("\\definecolor{Rcomment}{rgb}{",paste(Rcomment,collapse=", "),"}\n", sep = "")
-cat(line)
-writeLines(readLines(file.path(system.file(package = "SweaveListingUtils", 
-                                      lib.loc = lib.loc),
-                          "TeX", "Rdlisting.sty")))
-cat(line)
-lstsetR(Rset=Rset, LineLength=LineLength, startS ="\\lstdefinestyle{Rstyle}{")
-lstsetRd(Rdset=Rdset, LineLength=LineLength, startS ="\\lstdefinestyle{Rdstyle}{")
-cat(line)
-cat("\\global\\def\\Rlstset{\\lstset{style=Rstyle}}%\n")
-cat("\\global\\def\\Rdlstset{\\lstset{style=Rdstyle}}%\n")
-cat("\\Rlstset\n")
-cat(line) 
-cat("\\DefineVerbatimEnvironment{Sinput}{Verbatim}")
-cat("%\n  {formatcom=\\color{Rcolor}\\lstset{fancyvrb=true,escapechar='}}\n")
-cat("\\DefineVerbatimEnvironment{Soutput}{Verbatim}")
-cat("%\n  {formatcom=\\color{Rout}\\small\\lstset{fancyvrb=false}}\n")
-cat("\\DefineVerbatimEnvironment{Scode}{Verbatim}")
-cat("%\n  {fontshape=sl,formatcom=\\color{Rcolor}\\lstset{fancyvrb=true}}\n")
-cat(line)
-cat("\\ifthenelse{\\boolean{Sweave at gin}}{\\setkeys{Gin}{width=0.6\\textwidth}}{}%\n")
-cat(line)
-cat("\\let\\code\\lstinline\n")
-cat("\\newcommand{\\Code}[1]{{\\tt\\color{Rcolor} #1}}\n")
-cat("\\newcommand{\\file}[1]{{\\tt #1}}\n")
-cat("\\newcommand{\\pkg}[1]{{\\tt \"#1\"}}\n")
-if(missing(pkv)){
-     if(nzchar(rpkv <- readPkgVersion(package = pkg, lib.loc=lib.loc)))
-        pkv <- rpkv
-   }
-cat("\\newcommand{\\pkgversion}{{\\tt ",pkv,"}}\n", sep = "")
-cat(line)
-lstsetLanguage()
-cat(line,"%\n%\n",sep="")
-return(invisible())
-}
-
-readSourceFromRForge <- function(PKG, TYPE, FILENAME, PROJECT,
-                                 fromRForge = getSweaveListingOption("fromRForge"),
-                                 base.url = getSweaveListingOption("base.url")){
-  base.URL <- if(fromRForge) paste(base.url, PKG, "/", TYPE,"/", FILENAME,
-                                   "?root=", PROJECT, sep ="") else base.url
-  if(is.null(.CacheFiles[[base.URL]])){
-    .CacheLength <<- .CacheLength + 1
-    RL <- readLines(url(base.URL))
-    .CacheFiles[[base.URL]] <<- RL
-  }
-  .CacheFiles[[base.URL]]
-}
-
-copySourceFromRForge <- function(PKG, TYPE, FILENAME, PROJECT, from, to,
-                                 offset.before = 0, offset.after = 0,
-                                 fromRForge = getSweaveListingOption("fromRForge"),
-                                 base.url = getSweaveListingOption("base.url") ){
-   RL <- readSourceFromRForge(PKG, TYPE, FILENAME, PROJECT, 
-                              fromRForge = fromRForge, base.url = base.url)
-   lR <- length(RL)
-   from <- if(missing(from)) 1 else {if(is.numeric(from))
-                                        max(from-offset.before,1)
-                                     else {if(length(gr0 <- grep(from,RL)))
-                                            max(gr0[1]-offset.before,1) else lR
-                                          }
-                                    }
-   to <- if(missing(to)) lR else {if(is.numeric(to))
-                                        min(to+offset.after,lR)
-                                     else {if(length(gr1<-grep(to,RL[from:lR])))
-                                            min(from+gr1[1]-1+offset.after,lR)
-                                           else 0
-                                           }
-                                 }
-   if(to>=from) return(list(text=RL[from:to], lines=c(from,to)))
-   return(invisible())
-}
-
-lstinputSourceFromRForge <- function(PKG, TYPE, FILENAME, PROJECT, from, to,
-                                 offset.before = 0, offset.after = 0,
-                                 LineLength = 80,
-                                 withLines = ifelse(TYPE=="R", TRUE, FALSE),
-                                 fromRForge = getSweaveListingOption("fromRForge"),
-                                 base.url = getSweaveListingOption("base.url")){
-   line <- paste("%",paste(rep("-",LineLength-2),collapse=""),"%\n", sep="")
-   dots <- match.call(call = sys.call(sys.parent(1)),
-                       expand.dots = FALSE)$"..."
-   argL0 <- list(PKG, TYPE, FILENAME, PROJECT)
-   totl <- 1
-   if(!missing(from)) totl <- max(totl, length(from))
-   if(!missing(to)) totl <- max(totl, length(to))
-   if(totl>1){
-      argL <- vector("list",totl)
-      fromL <- NULL; toL <- NULL
-      offs.from <- rep(offset.before, length.out = totl)
-      offs.to <- rep(offset.after, length.out = totl)
-      fromRForge <- rep(fromRForge, length.out = totl)
-      base.url <- rep(base.url, length.out = totl)
-      if(!missing(from))
-          fromL <- rep(as.list(from),length.out = totl)
-      if(!missing(to))
-          toL <- rep(as.list(to),length.out = totl)
-      for (j in 1 : totl){
-          argL[[j]] <- argL0
-          if(!missing(from))
-              argL[[j]] <- c(argL[[j]], from = fromL[[j]])
-          if(!missing(to))
-              argL[[j]] <- c(argL[[j]],to = toL[[j]])
-          argL[[j]] <- c(argL[[j]], offset.before = offs.from[j],
-                         offset.after = offs.to[j], 
-                         fromRForge = fromRForge[j], base.url = base.url[j])
-      }
-   }else {
-      argL <- argL0
-      if(!missing(from)) argL <- c(argL, from = from)
-      if(!missing(to)) argL <- c(argL, to = to)
-      argL <- list(c(argL, offset.before = offset.before,
-                        offset.after = offset.after, 
-                        fromRForge = fromRForge, base.url = base.url))
-   }
-   erg <- lapply(argL, function(x)  do.call(copySourceFromRForge, args = c(x)))
-   RL <- lapply(erg, function(x) x$text)
-   lineNr <- lapply(erg, function(x) x$lines)
-   lR <- lapply(RL, length)
-   lE <- length(erg)
-   if(withLines){
-      for(k in 1:lE){
-        if( k == 1 ) {
-             if( ( lineNr[[k]][1] < lineNr[[k]][2] ) || ( lE>1 ) )
-                  cat("lines ")
-             else cat("line ")
-        }else{
-             if( k < lE )
-                  cat(", \n")
-             else cat(", and\n")
-             }
-        if(lineNr[[k]][1] < lineNr[[k]][2])
-           cat(lineNr[[k]][1], "--", lineNr[[k]][2], sep = "")
-        else cat(lineNr[[k]][1])
-      }
-      cat("\n")
-   }
-   for(k in 1:length(erg)){
-     if(lR[[k]]){
-        todo <- NULL
-        if(TYPE=="man"){
-          ex.from <- if(length(gr <- grep("\\\\examples\\{",RL[[k]]))) gr[1] else lR[[k]]
-          ex.to <- if(length(gr <- grep("\\}",RL[[k]][ex.from:lR[[k]]]))) ex.from+gr[1]-1 else 1
-          cat(line) #,"\\Rdlstset\n",sep="")
-          cat("\\begin{lstlisting}[style=Rdstyle]\n")
-          if(ex.from<=ex.to){
-             writeLines(RL[[k]][1:(ex.from)])
-             cat("\\end{lstlisting}\\vspace{-2ex}\n")
-             cat(line) # ,"\\Rlstset\n",sep="")
-             cat("\\begin{lstlisting}[style=Rstyle,")
-             cat("basicstyle = \\scriptsize\\color{Rcolor}, xleftmargin = 2em]\n")
-             writeLines(RL[[k]][(ex.from+1):(ex.to-1)])
-             if(ex.to <lR){
-                cat("\\end{lstlisting}\\vspace{-3ex}\n")
-                cat(line) #,"\\Rdlstset\n",sep="")
-                cat("\\begin{lstlisting}[style=Rdstyle]\n")
-                writeLines(RL[[k]][(ex.to):lR[[k]]])
-                }
-          }else writeLines(RL[[k]])
-        }else{
-          cat(line,"\\Rlstset\n",sep="")
-          cat("\\begin{lstlisting}\n")
-          writeLines(RL[[k]])
-        }
-        cat("\\end{lstlisting}\n",line,"%\n\n",sep="")
-        }
-      }
-   return(invisible())
-}
-
-readPkgVersion <- function(package, lib.loc = NULL){
-       Dfile <- system.file("DESCRIPTION", package=package, lib.loc=lib.loc)
-       return( if(nzchar(Dfile)) read.dcf(Dfile, fields="Version") else "")}
-       
\ No newline at end of file

Copied: pkg/SweaveListingUtils/R/SweaveListingUtils.R (from rev 418, pkg/SweaveListingUtils/R/SweaveListingUtils.R)
===================================================================
--- pkg/SweaveListingUtils/R/SweaveListingUtils.R	                        (rev 0)
+++ pkg/SweaveListingUtils/R/SweaveListingUtils.R	2009-03-19 21:56:25 UTC (rev 420)
@@ -0,0 +1,336 @@
+###############################################################################
+# some R helpers for Sweave / listings
+# will be included into some package some day...
+#
+###############################################################################
+
+# .onLoad<-function(lib,pkg){require(methods)}
+
+.onAttach <- function(library, pkg)
+{
+#  if (is.null(library)) 
+#            library <- .libPaths()
+
+     unlockBinding(".keywordsR", asNamespace("SweaveListingUtils"))
+     unlockBinding(".alreadyDefinedPkgs", asNamespace("SweaveListingUtils"))
+     unlockBinding(".tobeDefinedPkgs", asNamespace("SweaveListingUtils"))
+     unlockBinding(".CacheFiles", asNamespace("SweaveListingUtils"))
+     unlockBinding(".CacheLength", asNamespace("SweaveListingUtils"))
+     unlockBinding(".SweaveListingOptions", asNamespace("SweaveListingUtils"))
+     msga <- gettext(
+    "Some functions from package 'base' are intentionally masked ---see SweaveListingMASK().\n"
+                   )
+    msgb <- gettext(
+    "Note that global options are controlled by SweaveListingoptions() ---c.f. ?\"SweaveListingoptions\"."
+                   )
+
+     buildStartupMessage(pkg = "SweaveListingUtils", msga, msgb,  
+                         library = library, packageHelp = TRUE,
+                    VIGNETTE = gettext(
+"There is a vignette to this package; try vignette(\"ExampleSweaveListingUtils\")."
+                                      )
+                         )
+
+  invisible()
+} 
+
+SweaveListingMASK <- function(library = NULL) 
+{
+    infoShow(pkg = "SweaveListingUtils", filename="MASKING", library = library)
+}
+
+
+print.taglist <- function(x, LineLength = 80, offset.start = 0,
+                          withFinalLineBreak = TRUE, first.print = NULL, ...){
+   xc <- as.character(deparse(substitute(x)))
+   ll <- length(x)
+   LineL <- max(LineLength-2,0)
+   LineBreak <- NULL
+   mi50 <- min(LineLength,50)
+   maL <- max(3*LineLength,80)
+   if(ll){
+      offS <- paste(rep(" ", offset.start), collapse = "")
+      for(i in 1:ll){
+          trystr0 <- paste(names(x[i]),x[[i]],sep = "=")
+          if(i==1){
+            actstr <-  trystr  <- trystr0
+            trystr0 <- NULL
+            if(length(first.print))
+               cat(first.print)                 
+          }else{
+             trystr  <- paste(actstr, trystr0, sep = ",")
+          }
+
+          ntry <- nchar(trystr) + offset.start
+          if (ntry < LineL){
+              actstr <- trystr
+          }else{
+              if(ntry > maL) stop(gettextf(
+                      "Some elements of %s are too long", 
+                       if(nchar(xc)> mi50) paste(substr(xc,1,mi50),"...") else
+                                xc))
+              if(actstr!=offS) cat(LineBreak, actstr,",%",sep="")
+              LineBreak <- "\n"
+              actstr <- paste(offS, trystr0, sep = "")
+          }
+      }
+      if(nzchar(actstr)) {
+         if(i>1) cat("\n")
+         cat(actstr, sep="")
+         if(withFinalLineBreak) cat("\n")
+      }
+   }
+   return(invisible())
+}
+
+taglist <- function(..., list = NULL, defname = "V"){
+  dots <-  c(list,match.call(call = sys.call(),
+                       expand.dots = FALSE)$"...")
+  ldots <- length(dots)
+  if(ldots){
+     defname <- unique(defname)
+     defnames <- if(length(defname)<ldots){
+            paste(rep(defname,length.out=ldots), 1:ldots, sep = "")} else defname
+     nms <- names(dots)
+     if(is.null(nms)) nms <- rep("", ldots)
+     nms[ nms == "" ] <- defnames[nms == ""]
+     names(dots) <- nms
+     return(structure(as.list(dots), class = c("taglist","list")))
+  }
+  return(invisible())
+}
+
+lstset <- function(taglist, LineLength = 80, startS = "\\lstset{"){
+   print(taglist, LineLength = LineLength, offset.start = nchar(startS),
+         withFinalLineBreak = FALSE, first.print = startS)
+   cat("}%\n")
+   return(invisible())
+}
+
+lstsetR <- function(Rset = NULL, LineLength = 80, add = TRUE, startS = "\\lstset{"){
+   if(add){
+       Rset0 <- getSweaveListingOption("Rset")
+       if(length(Rset)){
+          newnms <- names(Rset)
+          oldnms <- names(Rset0)
+          ooldnms <- oldnms[! (oldnms %in% newnms)]
+          Rset <- c(Rset, Rset0[ooldnms]) 
+       }else Rset <- Rset0   
+   }
+   if(!is(Rset, "taglist")) Rset <- taglist(list=Rset)
+   lstset(Rset, LineLength = LineLength, startS = startS)
+   return(invisible())
+}
+
+lstsetRd <- function(Rdset = NULL, LineLength = 80, add = TRUE, startS = "\\lstset{"){
+   if(add){
+       Rdset0 <- getSweaveListingOption("Rdset")
+       if(length(Rdset)){
+          newnms <- names(Rdset)
+          oldnms <- names(Rdset0)
+          ooldnms <- oldnms[! (oldnms %in% newnms)]
+          Rdset <- c(Rdset, Rdset0[ooldnms]) 
+       }else Rdset <- Rdset0   
+   }
+   if(!is(Rdset, "taglist")) Rdset <- taglist(list=Rdset)
+   lstset(Rdset, LineLength = LineLength, startS = startS)
+   return(invisible())
+}
+
+
+SweaveListingPreparations <- function(LineLength = 80,
+   Rset = getSweaveListingOption("Rset"), 
+   Rdset = getSweaveListingOption("Rdset"), 
+   Rcolor = getSweaveListingOption("Rcolor"), 
+   Rbcolor = getSweaveListingOption("Rbcolor"), 
+   Rout = getSweaveListingOption("Rout"),
+   Rcomment = getSweaveListingOption("Rcomment"), 
+   pkg = getSweaveListingOption("pkg"), 
+   pkv = getSweaveListingOption("pkv"), 
+   lib.loc = NULL){
+
+sws <- .SweaveListingOptions
+sws$inSweave <- TRUE
+assignInNamespace(".SweaveListingOptions", sws, "SweaveListingUtils")
+line <- paste("%",paste(rep("-",LineLength-2),collapse=""),"%\n", sep="")
+
+cat(line,"%Preparations for Sweave and Listings\n",line,"%\n", sep = "")
+cat("\\RequirePackage{color}\n")
+cat("\\definecolor{Rcolor}{rgb}{",paste(Rcolor,collapse=", "),"}\n", sep = "")
+cat("\\definecolor{Rbcolor}{rgb}{",paste(Rbcolor,collapse=", "),"}\n", sep = "")
+cat("\\definecolor{Rout}{rgb}{",paste(Rout,collapse=", "),"}\n", sep = "")
+cat("\\definecolor{Rcomment}{rgb}{",paste(Rcomment,collapse=", "),"}\n", sep = "")
+cat(line)
+writeLines(readLines(file.path(system.file(package = "SweaveListingUtils", 
+                                      lib.loc = lib.loc),
+                          "TeX", "Rdlisting.sty")))
+cat(line)
+lstsetR(Rset=Rset, LineLength=LineLength, startS ="\\lstdefinestyle{Rstyle}{")
+lstsetRd(Rdset=Rdset, LineLength=LineLength, startS ="\\lstdefinestyle{Rdstyle}{")
+cat(line)
+cat("\\global\\def\\Rlstset{\\lstset{style=Rstyle}}%\n")
+cat("\\global\\def\\Rdlstset{\\lstset{style=Rdstyle}}%\n")
+cat("\\Rlstset\n")
+cat(line) 
+cat("\\DefineVerbatimEnvironment{Sinput}{Verbatim}")
+cat("%\n  {formatcom=\\color{Rcolor}\\lstset{fancyvrb=true,escapechar='}}\n")
+cat("\\DefineVerbatimEnvironment{Soutput}{Verbatim}")
+cat("%\n  {formatcom=\\color{Rout}\\small\\lstset{fancyvrb=false}}\n")
+cat("\\DefineVerbatimEnvironment{Scode}{Verbatim}")
+cat("%\n  {fontshape=sl,formatcom=\\color{Rcolor}\\lstset{fancyvrb=true}}\n")
+cat(line)
+cat("\\ifthenelse{\\boolean{Sweave at gin}}{\\setkeys{Gin}{width=0.8\\textwidth}}{}%\n")
+cat(line)
+cat("\\let\\code\\lstinline\n")
+cat("\\def\\Code#1{{\\tt\\color{Rcolor} #1}}\n")
+cat("\\def\\file#1{{\\tt #1}}\n")
+cat("\\def\\pkg#1{{\\tt \"#1\"}}\n")
+if(missing(pkv)){
+     if(nzchar(rpkv <- readPkgVersion(package = pkg, lib.loc=lib.loc)))
+        pkv <- rpkv
+   }
+cat("\\newcommand{\\pkgversion}{{\\tt ",pkv,"}}\n", sep = "")
+cat(line)
+lstsetLanguage()
+cat(line,"%\n%\n",sep="")
+return(invisible())
+}
+
+readSourceFromRForge <- function(PKG, TYPE, FILENAME, PROJECT,
+                                 fromRForge = getSweaveListingOption("fromRForge"),
+                                 base.url = getSweaveListingOption("base.url")){
+  base.URL <- if(fromRForge) paste(base.url, PKG, "/", TYPE,"/", FILENAME,
+                                   "?root=", PROJECT, sep ="") else base.url
+  if(is.null(.CacheFiles[[base.URL]])){
+    .CacheLength <<- .CacheLength + 1
+    RL <- readLines(url(base.URL))
+    .CacheFiles[[base.URL]] <<- RL
+  }
+  .CacheFiles[[base.URL]]
+}
+
+copySourceFromRForge <- function(PKG, TYPE, FILENAME, PROJECT, from, to,
+                                 offset.before = 0, offset.after = 0,
+                                 fromRForge = getSweaveListingOption("fromRForge"),
+                                 base.url = getSweaveListingOption("base.url") ){
+   RL <- readSourceFromRForge(PKG, TYPE, FILENAME, PROJECT, 
+                              fromRForge = fromRForge, base.url = base.url)
+   lR <- length(RL)
+   from <- if(missing(from)) 1 else {if(is.numeric(from))
+                                        max(from-offset.before,1)
+                                     else {if(length(gr0 <- grep(from,RL)))
+                                            max(gr0[1]-offset.before,1) else lR
+                                          }
+                                    }
+   to <- if(missing(to)) lR else {if(is.numeric(to))
+                                        min(to+offset.after,lR)
+                                     else {if(length(gr1<-grep(to,RL[from:lR])))
+                                            min(from+gr1[1]-1+offset.after,lR)
+                                           else 0
+                                           }
+                                 }
+   if(to>=from) return(list(text=RL[from:to], lines=c(from,to)))
+   return(invisible())
+}
+
+lstinputSourceFromRForge <- function(PKG, TYPE, FILENAME, PROJECT, from, to,
+                                 offset.before = 0, offset.after = 0,
+                                 LineLength = 80,
+                                 withLines = ifelse(TYPE=="R", TRUE, FALSE),
+                                 fromRForge = getSweaveListingOption("fromRForge"),
+                                 base.url = getSweaveListingOption("base.url")){
+   line <- paste("%",paste(rep("-",LineLength-2),collapse=""),"%\n", sep="")
+   dots <- match.call(call = sys.call(sys.parent(1)),
+                       expand.dots = FALSE)$"..."
+   argL0 <- list(PKG, TYPE, FILENAME, PROJECT)
+   totl <- 1
+   if(!missing(from)) totl <- max(totl, length(from))
+   if(!missing(to)) totl <- max(totl, length(to))
+   if(totl>1){
+      argL <- vector("list",totl)
+      fromL <- NULL; toL <- NULL
+      offs.from <- rep(offset.before, length.out = totl)
[TRUNCATED]

To get the complete diff run:
    svnlook diff /svnroot/distr -r 420


More information about the Distr-commits mailing list