[GRASS-SVN] r59584 - grass/trunk/mswindows/external/rbatch
svn_grass at osgeo.org
svn_grass at osgeo.org
Sat Apr 5 13:43:48 PDT 2014
Author: hellik
Date: 2014-04-05 13:43:48 -0700 (Sat, 05 Apr 2014)
New Revision: 59584
Removed:
grass/trunk/mswindows/external/rbatch/#Rscript.bat
grass/trunk/mswindows/external/rbatch/ANNOUNCE
grass/trunk/mswindows/external/rbatch/COPYING
grass/trunk/mswindows/external/rbatch/COPYRIGHTS
grass/trunk/mswindows/external/rbatch/NEWS
grass/trunk/mswindows/external/rbatch/R.bat
grass/trunk/mswindows/external/rbatch/README
grass/trunk/mswindows/external/rbatch/RESOURCES
grass/trunk/mswindows/external/rbatch/Rcmd.bat
grass/trunk/mswindows/external/rbatch/Rgui.bat
grass/trunk/mswindows/external/rbatch/RguiStart.bat
grass/trunk/mswindows/external/rbatch/Rscript.bat
grass/trunk/mswindows/external/rbatch/Rtidy.bat
grass/trunk/mswindows/external/rbatch/Rtools.bat
grass/trunk/mswindows/external/rbatch/RtoolsVersion.bat
grass/trunk/mswindows/external/rbatch/Rversions.bat
grass/trunk/mswindows/external/rbatch/Stangle.bat
grass/trunk/mswindows/external/rbatch/Sweave.bat
grass/trunk/mswindows/external/rbatch/THANKS
grass/trunk/mswindows/external/rbatch/WISHLIST
grass/trunk/mswindows/external/rbatch/clip2r.js
grass/trunk/mswindows/external/rbatch/copydir.bat
grass/trunk/mswindows/external/rbatch/el.js
grass/trunk/mswindows/external/rbatch/find-miktex.hta
grass/trunk/mswindows/external/rbatch/movedir.bat
grass/trunk/mswindows/external/rbatch/rterm.bat
grass/trunk/mswindows/external/rbatch/show-svn-info.hta
Log:
update Windows batchfiles for use with R: part 2 - delete old files
Deleted: grass/trunk/mswindows/external/rbatch/#Rscript.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/#Rscript.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/#Rscript.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,239 +0,0 @@
-
- at echo off
-rem if /i "%1"==path (path %2) && goto:eof
-
-setlocal
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: Placing this file in your path will allow rcmd to be run anywhere
-:: without changing your path environment variable. See comments
-:: below on how it finds where R is. Your path can be listed by
-:: the Windows console command: path
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-rem at one tine this script had only been tested on XP
-rem recent tests have only been on Vista
-rem ver | findstr XP >NUL
-rem if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-
-set scriptdir_=%~dp0
-set lookin=.;%userprofile%;%scriptdir_%
-if not defined R_BATCHFILES_RC (
- for %%f in ("rbatchfilesrc.bat") do set "R_BATCHFILES_RC=%%~$lookin:f"
-)
-if defined R_BATCHFILES_RC (
- if exist "%R_BATCHFILES_RC%" call %R_BATCHFILES_RC%
-)
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else current folder if bin\rcmd.exe exists
-:: else most current R as determined by registry entry
-:: else error
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-if not defined R_HOME if exist bin\r.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\R /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-call :process_arch %*
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if not defined MYSQL_HOME for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\MySQL\* 2^>NUL'
-) do set MYSQL_HOME=%ProgramFiles%\MySQL\%%a
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-
-set PATHQ=%PATH%
-:WHILE
- if "%PATHQ%"=="" goto WEND
- for /F "delims=;" %%i in ("%PATHQ%") do if exist "%%~sfi" set PATH2=%PATH2%;%%~sfi
- for /F "delims=; tokens=1,*" %%i in ("%PATHQ%") do set PATHQ=%%j
- goto WHILE
-:WEND
-
-set path2=%path2:~1%
-
-if defined R_TOOLS (
- set path2=%R_TOOLS%\bin;%R_TOOLS%\perl\bin;%R_TOOLS%\MinGW\bin;%PATH2%
-)
-
-path %path2%
-
-set here=%CD%
-set args=%*
-
-:: get name by which this command was called
-:: this allows same file to be used for Rgui, Rterm, etc. by just renaming it
-for %%i in (%0) do set cmd=%%~ni.exe
-
-if /i %cmd%==rtools.exe (endlocal & set path=%path2%) && goto:eof
-
-cd %R_HOME%\bin
-if /i not %cmd%==rguistart.exe goto:notRguiStart
- set cmd=rgui.exe
- set firstArgument=%1
- if defined firstArgument (
- dir %1 | findstr "<DIR>" > nul
- if errorlevel 1 goto:notRguiStart
- set here=%~1
- set firstArgument=
- )
- set args=
- shift
- :startloop
- set firstArgument=%1
- if defined firstArgument (
- set args=%args% "%~1"
- shift
- goto:startloop
- )
-:notRguiStart
-
-set st=
-if /i %cmd%==rgui.exe set st=start
-
-if /i not %cmd%==#Rscript.exe goto:not#Rscript
-set cmd=Rscript.exe
-if [%1]==[] goto:help#Rscript
-call :rsarg1 %*
-goto:not#Rscript
-:rsarg1
-set args=%*
-set arg1=%~1
-set arg1=%arg1:.bat.bat=.bat%
-set last4=%arg1:~-4%
-if /i not "%last4%"==".bat" set arg1=%arg1%.bat
-for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
-call set args=%%args:%1="%arg1%"%%
-rem call set args=%%args:%1=%%
-goto:eof
-:not#Rscript
-
-cd %here%
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%R_HOME%\bin\%R_ARCH0%\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%R_HOME%\bin\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: %cmd% not found" & goto:eof
-:cmdpathfound
-
-:: if called as jgr.bat locate the JGR package to find jgr.exe
-if /i not %cmd%==jgr.exe goto:notJGR
- set st=start
- set cmdpath=jgr.exe
- if not defined JGR_LIBS set JGR_LIBS=%R_LIBS%
- for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
- if not defined JGR_LIBS for /f "usebackq delims=" %%a in (
- `%RSCRIPT% -e "cat(.libPaths(),sep=';')"`
- ) do set JGR_LIBS=%%~a
- if not defined JGR_LIBS (
- echo "Error: JGR package not found in R library" & goto:eof
- )
- for %%f in ("JGR") do set "jgrpkg=%%~$JGR_LIBS:f"
- set JGR_LIB=%jgrpkg:~0,-4%
- for %%a in ("%JGR_LIB%") do set JGR_LIB_SHORT=%%~sfa
- for %%a in ("%R_HOME%") do set R_HOME_SHORT=%%~sfa
- set args=--libpath=%JGR_LIB_SHORT% --rhome=%R_HOME_SHORT%
-
-:notJGR
-
-rem set R_ARCH
-rem set R_ARCH0
-rem set cmdpath
-rem if defined st set st
-rem set args
-
-set cygwin=nodosfilewarning
-if not defined args goto:noargs
-if defined st (start "" "%cmdpath%" %args%) else "%cmdpath%" %args%
-goto:eof
-:noargs
-if defined st (start "" "%cmdpath%") else "%cmdpath%"
-goto:eof
-
-:help#Rscript
-echo Usage: #Rscript %%0 %%*
-echo If the above is the first line in a file
-echo containing only R code and the file is
-echo given a .bat extension then it can be
-echo run as a batch file.
-goto:eof
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- set arg=%~1
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" set R_ARCH=%1
- if defined R_ARCH goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined process_arg_arch goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/ANNOUNCE
===================================================================
--- grass/trunk/mswindows/external/rbatch/ANNOUNCE 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/ANNOUNCE 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,63 +0,0 @@
-
-batchfiles is a set of batch, javascript and HTML
-Application files that are useful for running R and
-associated programs.
-
-Version 0.6-0 updates them for the new architecture
-specific directory structure in R 2.12.0 .
-
-A few of the lesser used utilities have been dropped.
-
-Each batchfile is self contained. To install just
-place all or just any that you wish to use anywhere on
-your path. The batch command:
-
- path
-
-will show you which folders are on your path.
-
-
-DOWNLOAD
-
-They can be downloaded individually from the svn
-repository available via the home page or they can be
-downloaded all at one in a zip file from CRAN here:
-http://cran.r-project.org/contrib/extra/batchfiles/
-
-
-MORE INFO
-
-More info is available from the home page:
-http://batchfiles.googlecode.com
-
-
-LIST OF PROGRAMS
-
-Legend:
-h = no args gives help
-0 = common usage is to enter command name without arguments
-d = in development
-* = all files marked with one star are the same. Program checks name by which its called to determine action.
-** = all files marked with two stars are the same. Program checks name by which its called to determine action.
-
-#Rscript.bat - put at top of R file to make it a batch file (h) (*)
-clip2r.js - pastes clipboard into Rgui. See comments in file for use from vim. (0)(d)
-copydir.bat - copy a library from one version of R to another (h)
-el.js - run elevated - Vista and up, e.g. el Rgui runs R elevated
-find-miktex.hta - GUI to find MiKTeX (0)
-kopy.bat - copy Rcmd to other batch files (h)(d)
-movedir.bat - move library from one version of R to another (h)
-R.bat - like R.exe but finds R from registry (0) (*)
-Rcmd.bat - like Rcmd.exe but finds R from registry (h) (*)
-Rgui.bat - like Rgui.exe but finds R from registry (0) (*)
-RguiStart.bat - like Rgui.bat but arg1 defines folder to start R in (*)
-Rscript.bat - run .R script (h) (*)
-Rterm.bat - like rterm.exe but finds R from registry (h) (*)
-Rtidy.bat - reformat a .R file, e.g. Rtidy myfile.R > outfile.R (d)
-Rtools.bat - place Rtools on path for remainder of console session (0) (*)
-Rversions.bat - list R and set R version in registry, e.g. on Vista: el cmd/c Rversions R-2.12.0 (0)
-show-svn-info.hta - show svn info if current folder is an svn checkout (0)
-Stangle.bat - run arg1 through Stangle (h) (**)
-Sweave.bat - run arg1 through Sweave (h) (**)
-
-
Deleted: grass/trunk/mswindows/external/rbatch/COPYING
===================================================================
--- grass/trunk/mswindows/external/rbatch/COPYING 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/COPYING 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,340 +0,0 @@
- GNU GENERAL PUBLIC LICENSE
- Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- Preamble
-
- The licenses for most software are designed to take away your
-freedom to share and change it. By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users. This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it. (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.) You can apply it to
-your programs, too.
-
- When we speak of free software, we are referring to freedom, not
-price. Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
- To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
- For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have. You must make sure that they, too, receive or can get the
-source code. And you must show them these terms so they know their
-rights.
-
- We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
- Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software. If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
- Finally, any free program is threatened constantly by software
-patents. We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary. To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
- The precise terms and conditions for copying, distribution and
-modification follow.
-
- GNU GENERAL PUBLIC LICENSE
- TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
- 0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License. The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language. (Hereinafter, translation is included without limitation in
-the term "modification".) Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope. The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
- 1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
- 2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
- a) You must cause the modified files to carry prominent notices
- stating that you changed the files and the date of any change.
-
- b) You must cause any work that you distribute or publish, that in
- whole or in part contains or is derived from the Program or any
- part thereof, to be licensed as a whole at no charge to all third
- parties under the terms of this License.
-
- c) If the modified program normally reads commands interactively
- when run, you must cause it, when started running for such
- interactive use in the most ordinary way, to print or display an
- announcement including an appropriate copyright notice and a
- notice that there is no warranty (or else, saying that you provide
- a warranty) and that users may redistribute the program under
- these conditions, and telling the user how to view a copy of this
- License. (Exception: if the Program itself is interactive but
- does not normally print such an announcement, your work based on
- the Program is not required to print an announcement.)
-
-These requirements apply to the modified work as a whole. If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works. But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
- 3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
- a) Accompany it with the complete corresponding machine-readable
- source code, which must be distributed under the terms of Sections
- 1 and 2 above on a medium customarily used for software interchange; or,
-
- b) Accompany it with a written offer, valid for at least three
- years, to give any third party, for a charge no more than your
- cost of physically performing source distribution, a complete
- machine-readable copy of the corresponding source code, to be
- distributed under the terms of Sections 1 and 2 above on a medium
- customarily used for software interchange; or,
-
- c) Accompany it with the information you received as to the offer
- to distribute corresponding source code. (This alternative is
- allowed only for noncommercial distribution and only if you
- received the program in object code or executable form with such
- an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it. For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable. However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-
- 4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License. Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
- 5. You are not required to accept this License, since you have not
-signed it. However, nothing else grants you permission to modify or
-distribute the Program or its derivative works. These actions are
-prohibited by law if you do not accept this License. Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
- 6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions. You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
- 7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License. If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all. For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices. Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-
- 8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded. In such case, this License incorporates
-the limitation as if written in the body of this License.
-
- 9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time. Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number. If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation. If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
- 10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission. For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this. Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
- NO WARRANTY
-
- 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
- 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
- END OF TERMS AND CONDITIONS
-
- How to Apply These Terms to Your New Programs
-
- If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
- To do so, attach the following notices to the program. It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
- <one line to give the program's name and a brief idea of what it does.>
- Copyright (C) <year> <name of author>
-
- This program 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 of the License, 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.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
- Gnomovision version 69, Copyright (C) year name of author
- Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
- This is free software, and you are welcome to redistribute it
- under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License. Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary. Here is a sample; alter the names:
-
- Yoyodyne, Inc., hereby disclaims all copyright interest in the program
- `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
- <signature of Ty Coon>, 1 April 1989
- Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs. If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library. If this is what you want to do, use the GNU Library General
-Public License instead of this License.
Deleted: grass/trunk/mswindows/external/rbatch/COPYRIGHTS
===================================================================
--- grass/trunk/mswindows/external/rbatch/COPYRIGHTS 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/COPYRIGHTS 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,10 +0,0 @@
-COPYRIGHT STATUS
-----------------
-
-This code is:
-
- Copyright (C) 2005 Gabor Grothendieck
-
-All code is subject to the GNU General Public License, Version 2. See
-the file COPYING for the exact conditions under which you may
-redistribute it.
Deleted: grass/trunk/mswindows/external/rbatch/NEWS
===================================================================
--- grass/trunk/mswindows/external/rbatch/NEWS 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/NEWS 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,296 +0,0 @@
-Changes in version 0.6-6
-
- o bug fixes
-
-Changes in version 0.6-5
-
- o if MYSQL_HOME has not already been set then it set it to the last file
- among these, if any:
-
- %ProgramFiles%\MySQL\*
-
- This allows one to install and run RMySQL without setting any environment
- variables. (Note that MySQL should be installed from the mysql site.
- xampp and wamp do not include the header files needed by RMySQL.)
-
-Changes in version 0.6-4
-
- o fixed bugs
-
-Changes in version 0.6-3
-
- o fixed bugs
-
-Changes in version 0.6-1
-
- o fixed bugs
-
- o R_ARCH and --arch can consistently be any of 32, i386, 64, x64, /i386 or /64
- (vs R itself which otherwise uses different values for R_ARCH and --arch)
-
-Changes in version 0.6
-
- o enhancements to handle architecture specific directory structure in R 2.12.0
- Supports R_ARCH environment variable and --arch= first argument. Valid
- values are 32, 64, i386, x64. Default is i386.
-
-Changes in version 0.5-1
-
- o new experimental command clip2r.js
-
- o bug fixes
-
-Changes in version 0.5-0
-
- o new command show-svn-info.hta when run from a Tortoise SVN checkout
- folder shows some info about it. Requires Tortoise SVN version 1.5
- or higher.
-
- o new command find-miktex.hta can be run without arguments from the
- Windows command line or double clicked from Windows Explorer
- to show path to the MiKTeX bin directory.
-
- o Rversions.hta now also changes the .RData association and has
- been verified to work on both XP and Vista.
-
- o new RExcelversion.hta (also distributed with RExcel) that is like
- Rversions.hta but also sets the version for Rexcel at the same time
- and has been verified to work on both XP and Vista.
-
- o jgr.bat now passes the Windows library and R home to jgr.exe automatically
-
- o added defensive code to allow code to work even in the presence of
- certain bad PATH variables
-
- o testing on XP32, XPx64, Vista32, Win7x64 (thanks to Nicholas Hirschey)
-
-Changes in version 0.4-3
-
- o Sweave.bat and Stangle.bat were not automatically finding MiKTeX.
- Fixed.
-
-Changes in version 0.4-2
-
- o can optionally work off initialization files in place of registry.
- Place rbatchfilesrc.bat in current directory or %userprofile% (so
- different directories can work off different versions of R, say)
- or same directory as the other batchfiles and it will run it first.
- Typically rbatchfiles.bat would constain these two lines or similar:
- set R_HOME=C:\Program Files\R\R-2.7.0
- set R_TOOLS=C:\Rtools
-
- o added Stangle.bat
-
-Changes in version 0.4-1
-
- o it is no longer necessary to set any paths to build R packages
- provided Rtools 2.7 or later is used. Rcmd.bat and the other
- scripts automatically find Rtools from the registry (including perl)
- and if MikTeX is at %ProgramFiles%\MiKTeX* or %SystemDrive%:\MiKTex
- then it will find MiKTeX too. New optional environment variables
- R_TOOLS and R_MIKTEX are available to force specified paths to be used.
-
- o new Rtools.bat command that sets the path for the current cmd instance
- to the one that R*.bat files use internally. That is, rtools/bin,
- rtools/perl/bin, rtools/MinGW/bin and MiKTeX .../miktex/bin are added
- to the path. This is not needed to run or install R programs but only
- if you want to access the rtools for other purposes.
-
- o new el.js command which runs the command given as its argument elevated.
- e.g. el cmd
-
-Changes in version 0.4-0
-
- o as of 0.4-0 batchfiles is being developed and tested on Vista.
- It may still work on XP but if any of the commands do not then use
- version 0.3-2 instead since that was exclusively tested on XP.
-
- o added RguiStart.bat which is like Rgui.bat but takes a single argument
- which is a directory and starts up there
-
- o the dependency of sweave.bat on Rterm.bat was eliminated so all
- batch and javascript programs in this collection are now independent
- of each other and have no dependencies aside form R. (The perl
- program, toggleDoc.pl, is does depend on perl and toggleDoc.js.)
-
- o added info on how to use RguiStart.bat and sweave.bat with SendTo
- folder
-
- o misc improvements to README file
-
- o improved help message given by sweave.bat when issued with no arguments
-
- o removed only tested on XP messages since they work on Vista
-
- o changed algorithm in Rversions.bat. Now it checks current directory,
- R_HOME and all keys in R's portion of the registry plus all sibling
- folders of those mentioned. Also it runs RSetReg.exe elevated
- on Vista. New version has not been tested on XP; however, older
- versions are still available and were tested on XP.
-
- o updated copydir.bat portion of README to discuss additional alternatives
-
- o removed find-miktex.bat, Rfind.bat and makepkg.bat (they are still
- available in batchfiles version 0.3-2)
-
- o added toggleDoc.pl/toggleDoc.js which adds a toggle box to each 00Index.html
- which when checked collapses similar HTML help lines into one. Contributed
- by Dieter Menne.
-
-Changes in version 0.3-2
-
- o sweave.bat now uses Rterm.bat rather than Rcmd.bat which makes it usable
- with a basic R installation (i.e. sh.exe not needed). Previously it
- required Rcmd.bat but now it requires Rterm.bat instead.
-
- o added Rterm.bat (just a copy of Rcmd.bat)
-
-Changes in Version 0.3-1
-
- o new find-miktex.bat which lists the mixktex folders from the registry
-
- o new Rscript.bat which allows one to use the Rscript facility in
- R 2.5.0 and later without changing pathnames. Just place Rscript.bat
- in any existing path and it will automatically find the
- current version of R from the registry and run the Rscript.exe that
- is there.
-
- o runR.bat. If you have an R script such as myfile.R then you can create
- a batch script for it by copying runR.bat to myfile.bat. Then when you
- issue the command myfile or myfile.bat it will run the R script in
- myfile.R . Just place myfile.bat and myfile.R anywhere in your path.
- This uses Rscript.bat .
-
- o #Rscript. If you have an Rscript called myfile.R, say, then if you
- copy the script to myfile.bat and place
- #Rscript %0 %*
- as the first line with the remainder being the R commands then issuing
- the command myfile or myfile.bat will run the R script. The advantage
- over the runR.bat method is that there is only one file, myfile.bat.
- You don't need myfile.R anymore. The disadvantage is that it will
- echo the #Rscript line to stdout. This will be fixed if and when
- Rscript ever gets the perl/python/ruby -x flag. (The runR approach will
- not echo additional lines but does require two files.)
-
- o new Rtidy.bat is a sample Rscript that uses the #Rscript facility
- based on George Georgalis' UNIX code
-
- o withgs.bat now checks for latest ghostscript version. (Previously
- version was hard coded and it only worked for that version.)
-
-Changes in Version 0.3-0
-
- o sweave now generates a second .pdf ending which is a copy of the first
- but has a unique name and displays that. This works around a problem
- with acrobat that it will not display two files with the same name
- at the same time.
-
- o new --tex, --pdf, --nobck.pdf switches are available on sweave. Also
- expanded help when entering sweave without args.
-
-Changes in Version 0.2-9
-
- o updated README and other documentation files and inline documentation
-
- o added sweave.bat
-
- o new google code home page and svn repository
- http://code.google.com/p/batchfiles/
-
-Changes in Version 0.2-8
-
- o bug fix in copydir.bat and movedir.bat
-
-Changes in Version 0.2-7
-
- o removed extra popup from Rversions.hta
-
- o Rfind.bat now looks in registry for MiKTeX, replacing
- previous heuristic. [Thanks for help from Duncan
- Murdoch]. Also RToolsDir typo fixed in Rfind.bat.
-
-Changes in Version 0.2-6
-
- o batch files no longer use short names internally since this
- triggers a bug in Windows batch in the case of the new R
- folder naming conventions.
-
- o Rversions.hta - fix for path names with spaces
-
- o Rrefresh.bat has been removed (after having been deprecated in
- in previous versions of batchfiles).
-
- o tested movedir.bat by using it to upgrade R-2.2.0pat to R-2.2.1.
- See instructions in README.
-
-Changes in Version 0.2-5
-
- o added movedir.bat which moves libraries from one version of
- R to another. This is like copydir.bat but is much faster and
- can be used when the older version of R is no longer needed
- (unlike copydir.bat which preserves the older version). See
- README for usage.
-
-Changes in Version 0.2-3
-
- o added copydir.bat which can copy libraries from one version of
- R to another. (This is a temporary solution until R provides
- facilities for upgrading the libraries, expected in R 2.3.0 .)
- See README for usage.
-
- o eliminated all code associated with reading and manipulation of
- R_ENVIRON, R_PROFILE and R_LIBS simplifying the batch files. Use
- copydir.bat instead.
-
- o Rversions.hta is a javascript GUI version of Rversions.bat
-
-Changes in Version 0.2-2
-
- o added jgr.bat which starts up the JGR GUI.
-
- o added Rversions.bat which can list the directories of all R versions
- available and can set one to become the current R version.
-
- o all batch scripts which used the environment variable name Rrw now
- use the environment variable name R_HOME instead.
-
- o Rcmd.bat, Rgui.bat, R.bat, jgr.bat files will now read R_ENVIRON,
- if present, and set the R_LIBS definition in it, if present (unless
- R_LIBS is already defined as an environment variable). All R_ENVIRON
- file syntax accepted by R is supported including comments (#),
- var=value, var=${foo-bar} and recursions, var=${A-${B-C}}.
-
- o makepkg.bat internals were simplified due to previous point.
-
- o updated WISHLIST.
-
- o updated THANKS.
-
- o updated README. More introductory information. Also instructions
- for Rgui shortcut will disable screen flash on startup. Corrections.
-
-Changes in Version 0.2-1
-
- o improvements to README
-
-Changes in Version 0.2-0
-
- o can now support configurations without *.site files (as well as
- configurations with *.site files) thereby reducing the minimum
- configuration even further.
-
- o Rcmd.bat, Rgui.bat and R.bat now temporarily set R_ENVIRON,
- R_PROFILE and R_LIBS as needed so that it is no longer necessary to
- copy the *.site files into the etc directory eliminating all
- reconfiguration when upgrading to a new version of R (except for
- refreshing MiKTeX).
-
- o new command miktex-refresh.bat is used to refresh MiKTeX after a
- new version of R is installed. Previously this was done in
- Rrefresh.bat which is now deprecated. Rrefresh.bat is no longer
- needed (unless you want each R version to have its own *.site files).
-
- o new NEWS, WISHLIST and RESOURCES files.
-
- o README provides additional details.
-
Deleted: grass/trunk/mswindows/external/rbatch/R.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/R.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/R.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,239 +0,0 @@
-
- at echo off
-rem if /i "%1"==path (path %2) && goto:eof
-
-setlocal
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: Placing this file in your path will allow rcmd to be run anywhere
-:: without changing your path environment variable. See comments
-:: below on how it finds where R is. Your path can be listed by
-:: the Windows console command: path
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-rem at one tine this script had only been tested on XP
-rem recent tests have only been on Vista
-rem ver | findstr XP >NUL
-rem if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-
-set scriptdir_=%~dp0
-set lookin=.;%userprofile%;%scriptdir_%
-if not defined R_BATCHFILES_RC (
- for %%f in ("rbatchfilesrc.bat") do set "R_BATCHFILES_RC=%%~$lookin:f"
-)
-if defined R_BATCHFILES_RC (
- if exist "%R_BATCHFILES_RC%" call %R_BATCHFILES_RC%
-)
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else current folder if bin\rcmd.exe exists
-:: else most current R as determined by registry entry
-:: else error
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-if not defined R_HOME if exist bin\r.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\R /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-call :process_arch %*
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if not defined MYSQL_HOME for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\MySQL\* 2^>NUL'
-) do set MYSQL_HOME=%ProgramFiles%\MySQL\%%a
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-
-set PATHQ=%PATH%
-:WHILE
- if "%PATHQ%"=="" goto WEND
- for /F "delims=;" %%i in ("%PATHQ%") do if exist "%%~sfi" set PATH2=%PATH2%;%%~sfi
- for /F "delims=; tokens=1,*" %%i in ("%PATHQ%") do set PATHQ=%%j
- goto WHILE
-:WEND
-
-set path2=%path2:~1%
-
-if defined R_TOOLS (
- set path2=%R_TOOLS%\bin;%R_TOOLS%\perl\bin;%R_TOOLS%\MinGW\bin;%PATH2%
-)
-
-path %path2%
-
-set here=%CD%
-set args=%*
-
-:: get name by which this command was called
-:: this allows same file to be used for Rgui, Rterm, etc. by just renaming it
-for %%i in (%0) do set cmd=%%~ni.exe
-
-if /i %cmd%==rtools.exe (endlocal & set path=%path2%) && goto:eof
-
-cd %R_HOME%\bin
-if /i not %cmd%==rguistart.exe goto:notRguiStart
- set cmd=rgui.exe
- set firstArgument=%1
- if defined firstArgument (
- dir %1 | findstr "<DIR>" > nul
- if errorlevel 1 goto:notRguiStart
- set here=%~1
- set firstArgument=
- )
- set args=
- shift
- :startloop
- set firstArgument=%1
- if defined firstArgument (
- set args=%args% "%~1"
- shift
- goto:startloop
- )
-:notRguiStart
-
-set st=
-if /i %cmd%==rgui.exe set st=start
-
-if /i not %cmd%==#Rscript.exe goto:not#Rscript
-set cmd=Rscript.exe
-if [%1]==[] goto:help#Rscript
-call :rsarg1 %*
-goto:not#Rscript
-:rsarg1
-set args=%*
-set arg1=%~1
-set arg1=%arg1:.bat.bat=.bat%
-set last4=%arg1:~-4%
-if /i not "%last4%"==".bat" set arg1=%arg1%.bat
-for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
-call set args=%%args:%1="%arg1%"%%
-rem call set args=%%args:%1=%%
-goto:eof
-:not#Rscript
-
-cd %here%
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%R_HOME%\bin\%R_ARCH0%\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%R_HOME%\bin\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: %cmd% not found" & goto:eof
-:cmdpathfound
-
-:: if called as jgr.bat locate the JGR package to find jgr.exe
-if /i not %cmd%==jgr.exe goto:notJGR
- set st=start
- set cmdpath=jgr.exe
- if not defined JGR_LIBS set JGR_LIBS=%R_LIBS%
- for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
- if not defined JGR_LIBS for /f "usebackq delims=" %%a in (
- `%RSCRIPT% -e "cat(.libPaths(),sep=';')"`
- ) do set JGR_LIBS=%%~a
- if not defined JGR_LIBS (
- echo "Error: JGR package not found in R library" & goto:eof
- )
- for %%f in ("JGR") do set "jgrpkg=%%~$JGR_LIBS:f"
- set JGR_LIB=%jgrpkg:~0,-4%
- for %%a in ("%JGR_LIB%") do set JGR_LIB_SHORT=%%~sfa
- for %%a in ("%R_HOME%") do set R_HOME_SHORT=%%~sfa
- set args=--libpath=%JGR_LIB_SHORT% --rhome=%R_HOME_SHORT%
-
-:notJGR
-
-rem set R_ARCH
-rem set R_ARCH0
-rem set cmdpath
-rem if defined st set st
-rem set args
-
-set cygwin=nodosfilewarning
-if not defined args goto:noargs
-if defined st (start "" "%cmdpath%" %args%) else "%cmdpath%" %args%
-goto:eof
-:noargs
-if defined st (start "" "%cmdpath%") else "%cmdpath%"
-goto:eof
-
-:help#Rscript
-echo Usage: #Rscript %%0 %%*
-echo If the above is the first line in a file
-echo containing only R code and the file is
-echo given a .bat extension then it can be
-echo run as a batch file.
-goto:eof
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- set arg=%~1
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" set R_ARCH=%1
- if defined R_ARCH goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined process_arg_arch goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/README
===================================================================
--- grass/trunk/mswindows/external/rbatch/README 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/README 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,367 +0,0 @@
-
-batchfiles contains GPL-2 batch files for installing and maintaining R.
-
-Each is self contained, independent of the others and need no installation.
-Just place it anywhere on your path.
-
----
-
-PROGRAM LIST
-
-Legend:
-h = no args gives help
-0 = common usage is to enter command name without arguments
-d = in development
-2.11 = only works with R 2.11
-* = all files marked with one star are the same. Program checks name by which its called to determine action.
-** = all files marked with two stars are the same. Program checks name by which its called to determine action.
-
-#Rscript.bat - put at top of R file to make it a batch file (h) (*)
-clip2r.js - pastes clipboard into Rgui. See comments in file for use from vim. (0)(d)
-copydir.bat - copy a library from one version of R to another (h)
-el.js - run elevated - Vista and up, e.g. el Rgui runs R elevated
-find-miktex.hta - GUI to find MiKTeX (0)
-kopy.bat - copy Rcmd to other batch files (h)(d)
-movedir.bat - move library from one version of R to another (h)
-R.bat - like R.exe but finds R from registry (0) (*)
-Rcmd.bat - like Rcmd.exe but finds R from registry (h) (*)
-Rgui.bat - like Rgui.exe but finds R from registry (0) (*)
-RguiStart.bat - like Rgui.bat but arg1 defines folder to start R in (*)
-Rscript.bat - run .R script (h) (*)
-Rterm.bat - like rterm.exe but finds R from registry (h) (*)
-Rtidy.bat - reformat a .R file, e.g. Rtidy myfile.R > outfile.R (d)
-Rtools.bat - place Rtools on path for remainder of console session (0) (*)
-Rversions.bat - list R and set R version in registry, e.g. on Vista: el cmd/c Rversions R-2.10.1 (0)
-Rversions.hta - GUI interface to RSetReg. List and set R version, e.g. on Vista: el cmd /c Rversions.hta (0)(2.11)
-show-svn-info.hta - show svn info if current folder is an svn checkout (0)
-Stangle.bat - run arg1 through Stangle (h) (**)
-Sweave.bat - run arg1 through Sweave (h) (**)
-
----
-
-DESCRIPTIONS
-
-R.bat, Rcmd.bat, Rscript.bat, Rgui.bat, and RguiStart.bat are all the same
-file. They query the name by which they were called to determine what they do.
-Similarly Sweave.bat and Stangle.bat are the same file.
-
-The home page and NEWS file provide more info.
-
-BATCH PROGRAMS
-
-0. Rtools.bat
-1. R.bat, Rcmd.bat, Rscript.bat, Rgui.bat
-2. #Rscript.bat
-3. RguiStart.bat
-4. Sweave.bat and Stangle.bat
-5. copydir.bat
-6. movedir.bat
-7. find-miktex.hta
-
-
-0. Rtools.bat. Sets path to what Rcmd.bat and others use internally.
-This only sets the path for the current command shell instance.
-
-1. R.bat, Rcmd.bat, Rscript.bat, Rgui.bat, Rscript.bat - are front
-ends to the corresponding .exe files. They locate R in the registry (and also
-look in a few other places if not found there). Then they look for Rtools and
-MiKTeX and if found they add them temporarily to the path. (Rtools and MiKTeX
-are needed when building R packages from source but are not needed for just
-running R nor are they need to download and install binary packages from CRAN.)
-Then they run R.exe, Rcmd.exe, Rscript.exe, Rgui.exe or JGR.exe with the same
-arguments. They are actually all the same file just renamed. (RguiStart.bat
-described separately is also the same file and all the code from this file is
-also at the end of Sweave.bat, also described separately.) The file checks
-what name it was called by and acts accordingly.
-
-Their main advantages are:
-- you don't have to modify your path just to run R.
-- you don't have to modify your path to build R packages from source.
-- when you upgrade R they automatically work without change
- since they will pick up the new version of R from the registry
- automatically.
-- Sweave.bat and Stangle.bat, unlike, Rcmd Sweave and Rcmd Stangle
- do not depend on rtools.
-
-You can put Rgui.bat on your desktop and associate a Windows
-ShortCut key (http://support.microsoft.com/kb/310417) with
-it so that you can just press the Windows key and
-R, say, to activate R.
-
-Here are some examples of using them from the command line.
-It assumes you have placed el.js, Rcmd.bat and Rgui.bat in
-your path. el cmd spawns a command console with Administrator
-rights. This is needed to build HTML help but you can omit
-the el command if you don't need that.
-
- el cmd
- Rcmd check mypackage
- Rcmd build mypackage
- Rcmd build mypackage --binary
- Rcmd INSTALL mypackage_1.0-0.tar.gz
- Rcmd INSTALL mypackage_1.0-0.tar.gz -l library
- Rscript myprog.R < mydata.dat
- Rgui
-
-(When installing packages on Vista it is recommended that
-you do this from within a console session that has Administrator
-rights. It will typically work even without that; however, the
-HTML help will not be created.)
-
-Older version of the Rcmd BATCH command in R had problems
-with spaces in pathnames so be sure you use a sufficiently
-recent version of R. If you are using an old version of R
-that has problems use the short name corresponding to any
-long name with spaces:
-
-For example, suppose we have a file
- C:\Documents and Settings\Administrator\myfile.R .
-Then try this:
-
- cd \
- dir/x doc*
- Rcmd BATCH c:\docume~1\Administrator\myfile.R
-
-where the dir/x command showed us the short name corresponding to
-the longer space-embedded name: Documents and Settings.
-
-2. #Rscript.bat
-
-#Rscript.bat can be used as the first line of an R script to make
-it callable as a batch file. For example, if we have a myfile.R
-file then we can create a myfile.bat file that looks like this:
-
-#Rscript %0 %*
-...R code from myfile.R goes here...
-
-and now we can just issue the command myfile to run it. We
-no longer need myfile.R.
-
-See the Rtidy.bat file for an example. Note that it does have
-the disadvantage that the output of the R program starts off
-with the command itself. R needs to be able to handle the
-perl/python/ruby -x switch. In the meantime #Rscript.bat
-will mainly be useful for those scripts where the output does
-not go to the standard output or where the addition of this
-line is acceptable.
-
-3. RguiStart.bat
-
-This is like Rgui.bat except it intercepts the first argument
-and interprets it as the folder in which to start R (or if its
-an .Rdata file then it interprets it as the .Rdata file to start
-R with). The main reason for its existence is so that you can
-place it in your SendTo folder. On Vista do this:
-
- copy RguiStart.bat %APPDATA%\Microsoft\Windows\SendTo
-
-(or to locate locate the SendTo folder in Windows Explorer on Vista
-enter shell:sendto into the Windows Explorer address bar and copy
-your RguiStart.bat file there.)
-
-Then, on Vista, when you are in Windows Explorer you can right click
-on any folder in your user area and choose SendTo. From the SendTo
-menu choose RGuiStart.bat to start up R in that folder. If you
-right click on an .Rdata file rather than a folder then R will
-start up with that file loaded (although in that case its probably
-easier to just double click the .Rdata file provided you have
-file type associations set up -- if you don't then the RguiStart.bat
-will provide an alternative).
-
-A second possibility is to place RguiStart.bat on your desktop and
-then drag a folder to it to start R in that folder.
-
-A third possibility is to just shift right click a folder in Windows
-Explorer and choose Open Command Window Here and then when the command
-window opens enter Rgui assuming you have placed Rgui.bat somewhere in
-your path.
-
-4. Sweave.bat and Stangle.bat - will run Sweave, then pdflatex and then
-display latex file. Stangle.bat will run Stangle producing an R file.
-Unlike Rcmd Sweave and Rcmd Stangle these do not depend on rtools.
-Sweave.bat and Stangle.bat are actually the same file. The file determines
-what to do by looking at the name by which it was called.
-
- Sweave mydoc.Rnw
- or
- Sweave mydoc
-
-The script runs Sweave, pdflatex and then displays the pdf
-file (assuming the user has .pdf extension associated with a
-pdf viewer). If there is an error in Sweave or the .tex
-file is not newer than the Sweave'd file the script stops.
-Similarly if there is an error in pdflatex or the .pdf is
-not newer than the .tex file then the script stops. Note
-that _two_ .pdf files are generated. They are identical
-except one has a unique name created by suffixing the base
-with the date and time and .bck.pdf. The one with the unique name
-is the one viewed. This overcomes problems of not being able to
-view the .pdf if the .pdf from a prior run is current being
-viewed (which would happen since by default the Acrobat viewer
-won't allow you to view two files of the same name concurrently).
-Every so often the user should delete all *.bck.pdf files.
-
-Try:
-
-sweave
-
-without arguments to see options and get more info.
-
-Aside from using sweave from the command line, if you place
-sweave.bat in your SendTo folder as discussed under
-RguiStart.bat you can right click .Rnw files and choose
-SendTo > sweave to sweave them.
-
-You may need to copy Sweave.sty to the directory containing
-your .Rnw sweave file to use sweave.bat .
-
-5. Rversions.bat - similar to Rversions.hta but
--- its batch whereas Rversions.hta is GUI
--- uses slightly different heuristic to find R versions
--- run without args to list versions available; run with any of
- the listed versions to set that as the new version
--- both forms work on XP; to run arg form on Vista run it elevated
- e.g. el cmd /c Rversions.bat R-2.10.0
-
-Examples:
-
- :: list R versions
- rversions.bat
-
- :: check mypkg using R current version, 2.4.0, say
- Rcmd check mypkg
-
- :: switch to version R-2.5.0 and recheck
- rversions R-2.5.0
- Rcmd check mypkg
-
- :: reset back to version 2.4.0
- rversions.bat R-2.4.0
-
-6. copydir.bat - can be used to copy the libraries from an
-old version of R to your new one. It will not overwrite any
-libraries already there so it should be safe to use. e.g. to
-upgrade R to a new version
-
- :: Example is for upgrading from R-2.4.1 to R-2.5.0
-
- :: first, download and install R-2.11.0
- :: now perform the next two commands at the Windows console
-
- cd %userprofile%\Documents\R\win-library
- :: you can use movedir instead of copydir if you prefer to move them
- copydir 2.10\library 2.11\library
-
- :: ... now startup new version of R (R 2.11.0 in this example)
- # issue this command in R 2.5.0
- update.packages(checkBuilt = TRUE, ask = "graphics")
- # or (see note below)
- update.packages(ask = "graphics")
-
- :: press OK and it will update those packages as necessary
-
- # ... optionally check for deprecated packages
- # 1. first select all repositories that you use with menu:
- # Packages | Repositories
- # 2. second check if there are any deprecated packages that
- # were copied over but are not longer on CRAN or other repository
- dp <- setdiff(installed.packages()[,1], available.packages()[,1])
- # look at what we have
- dp
- # if you wish to remove them issue the remove.packages command:
- # remove.packages(dp)
-
- :: ... exit R and start it up again ...
-
-Note that the checkBuilt=TRUE argument will potentially
-cause all your packages to be downloaded again so you could
-try leaving it off and then reissue the command with
-checkBuilt=TRUE later only if you run into problems. I
-normally do it without the checkBuilt=TRUE.
-
-It is anticipated that this command will ultimately be
-superceded by functionality in the R setup procedure at
-which time this will be deprecated. Note that this method
-of just copying libraries may not work depending on the
-versions of R involved. If its necessary to re-install most
-packages it can be done by issuing the following R command
-after performing the copydir.bat:
-install.packages(installed.packages()[,1])
-
-(Note that 2.8 of the R Windows FAQ
-
-http://cran.r-project.org/bin/windows/base/rw-FAQ.html#What_0027s-the-best-way-to-upgrade_003f
-
-refers to copying any installed package to the library
-folder but does not address how to accomplish that. That
-omission is what copydir.bat addresses.)
-
-An alternative to copydir is to reinstall all packages
-
- # Alternative to copydir.bat #1
- # this example is for moving from 2.4.1 to 2.5.0
- # run this in R 2.5.0
- setwd(R.home())
- ip <- installed.packages(lib.loc = "../R-2.4.1/library")
- ip <- ip[ip[,1]!="base" ,1]
- install.packages(ip)
-
-The above is taken from:
-https://www.stat.math.ethz.ch/pipermail/r-help/2007-May/131806.html
-Note that you may still have to use movedir.bat or copydir.bat
-after the above if it fails to install everything. Since movedir.bat
-and copydir.bat won't overwrite anything this should be safe.
-
- # Alternative to copydir.bat #2
- #---run in previous version, e.g. R 2.4.1
- packages <- installed.packages()[,"Package"]
- save(packages, file = "~/Rpackages")
-
- #---run in new version, e.g. R 2.5.0
- load("~/Rpackages")
- install.packages(setdiff(packages, installed.packages()[,"Package"]))
-
- file.remove("~/Rpackages")
-
-This copydir alternative is based on:
-https://www.stat.math.ethz.ch/pipermail/r-help/2007-May/131131.html
-
-7. movedir - same arguments as copydir. Only difference is
-that it moves the directories rather than copying them. This
-can be used if you are no longer interested in using the
-packages with the old version of R other than by
-reinstalling them.) This has the advantage that its much
-faster than copydir. The example under copydir works with
-movedir too. Just replace copydir with movedir in that
-example. Comments under copydir.bat apply here too. I
-mostly use movedir.bat myself instead of copydir.bat since
-its so much faster.
-
-8. show-svn-info.hta - Just run this from any Tortoise SVN folder
-and it will display some information about it. Requires version 1.5
-or higher of Tortoise SVN.
-
-9. find-miktex.hta - displays the path to the MiKTeX bin directory.
-Just enter find-miktex.hta at the Windows command line (no arguments
-are needed) or double click it from Windows Explorer.
-
-ADDITIONAL FILES
-
-1. RESOURCES - additional information on writing Windows XP
-batch files.
-
-2. COPYRIGHT and COPYING - this is free software subject to
- the GPL license as described.
-
-3. THANKS - acknowledgments.
-
-DEPRECATED AND CHANGED
-
-- Rfind.bat
-- makepkg.bat
-- Rversions.hta
-- toggerDoc.pl
-
-These are no longer distributed but can be found in older distributions of this
-package. It is unknown whether they work with recent versions of R. (I found
-I was not using these so am no longer maintaining them.)
Deleted: grass/trunk/mswindows/external/rbatch/RESOURCES
===================================================================
--- grass/trunk/mswindows/external/rbatch/RESOURCES 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/RESOURCES 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,146 +0,0 @@
-XP BATCH COMMAND RESOURCES
-
-This file contains R-specific resources for Windows XP batch file
-creation and also general resources for Windows XP batch file creation.
-
-A. MAKING A WINDOWS PACKAGE IN R
---------------------------------
-
-Make sure that:
-
-- you have read:
- "Writing R Extensions" manual
- http://www.murdoch-sutherland.com/Rtools/
-
-- you have downloaded and installed the tools from
- http://www.murdoch-sutherland.com/Rtools/tools.zip.
-
-- you have installed LaTeX (MiKTeX), perl, the Microsoft help
- compiler, and (if the package contains C or Fortran source code) the
- MinGW compilers, as described at
- http://www.murdoch-sutherland.com/Rtools/.
-
-- read
- http://www.murdoch-sutherland.com/Rtools/miktex.html
-
-- your path contains the tools, htmlhelp, and the bin directories for R,
- LaTeX, Perl, and (if the package contains C or Fortran source code
- to be compiled with MinGW) MinGW. The tools directory should be the
- first item in the path. This link shows how to set your path:
- http://www.computerhope.com/issues/ch000549.htm
-
-Assuming that the R installation is in \Program Files\R\R-x.y-z
-
-1. Assuming your source package tree is in \Rpkgs\mypackage
- then at a Windows command prompt:
-
- cd \Rpkgs
- Rcmd INSTALL mypackage
-
- which will install it to \Program Files\R\R-x.y-z\library\mypackage
- Or if you want to install it to a separate library:
-
- cd \Rpkgs
- md library
- Rcmd INSTALL -l library mypackage
-
-2. Now in R:
-
- library(mypackage)
- ... test it out ...
-
- or if you installed it to a separate library:
-
- library(mypackage, lib = "/Rpkgs/library")
-
-3. Once it seems reasonably OK, see whether it passes Rcmd check:
-
- cd \Rpkgs
- Rcmd check mypackage
-
- and fix it up until it does.
-
-4. Now create versions for Unix and Windows that you can distribute:
-
- cd \Rpkgs
- Rcmd build mypackage
- Rcmd build mypackage --binary
-
-5. If you want to submit it to CRAN then upload the .tar.gz
- file that was created from the "Rcmd build mypackage"
- command in #4 to ftp://cran.R-project.org/incoming .
- I usually use FileZilla to do the upload.
- http://filezilla.sourceforge.net/
-
-
-B. Some R Resources on making packages
---------------------------------------
-
-John Fox provides a batch file for making packages:
-
- http://tolstoy.newcastle.edu.au/R/help/04/11/6729.html
-
-Henrik Bengtsson provides a batch file for setting environment
-variables:
-
- http://tolstoy.newcastle.edu.au/R/devel/04a/0594.html
-
-Information on building packages can be found in the Writing
-Extensions Manual. The following link is also useful although
-the enclosed batch files eliminate the need for some of the
-procedures discussed:
-
- http://www.murdoch-sutherland.com/Rtools/
-
-Googling for
-
- creating making R packages
-
-will find links to a number of privately written tutorials.
-(I have not reviewed these.)
-
-C. GENERAL RESOURCES ON WINDOWS BATCH FILE PROGRAMMMING
--------------------------------------------------------
-
-The Windows command line commands will bring up help information
-that is particularly useful:
-
- help set
- help for
- help if
-
-Here are some links on Windows batch file programmming.
-
- ftp://garbo.uwasa.fi/pc/link/tscmd.zip - FAQ with many idioms
-
- http://gearbox.maem.umr.edu/batch/f_w_util/ - Frank Westlake utilities
-
- http://gearbox.maem.umr.edu/fwu/ - more Frank Westlake utilities
-
- http://groups-beta.google.com/group/alt.msdos.batch.nt/msg/5a9587e871c27a75 - cmd bugs
-
- http://groups-beta.google.com/group/alt.msdos.batch/msg/7b1d22945c89af75 - cmd help resources
-
- http://msdn.microsoft.com/downloads/list/webdev.asp - Windows script downloads
-
- http://thesystemguard.com/TheGuardBook/CCS-Int/ - info on batch commands
-
- http://www.allenware.com/icsw/icswref.htm - info on batch commands
-
- http://www.commandline.co.uk - Ritchie Lawrence cmd line utilities
-
- http://www.cybermesa.com/~bstewart/ - Bill Stewarts scripting tools
-
- http://www.fpschultze.de - FP Shcultzes batch tricks
-
- http://www.microsoft.com/technet/community/columns/scripts - MS TechNet scripting
-
- http://www.murdoch-sutherland.com/Rtools - R package building tools
-
- http://www.paulsadowski.com/WSH/cmdutils.htm - Paul Sadowski batch info
-
- http://www.ss64.com/nt/index.html - batch command reference
-
- http://www.vlaurie.com/computers2/Articles/rundll32.htm - rundll for batch scripts
-
-
Deleted: grass/trunk/mswindows/external/rbatch/Rcmd.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/Rcmd.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/Rcmd.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,239 +0,0 @@
-
- at echo off
-rem if /i "%1"==path (path %2) && goto:eof
-
-setlocal
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: Placing this file in your path will allow rcmd to be run anywhere
-:: without changing your path environment variable. See comments
-:: below on how it finds where R is. Your path can be listed by
-:: the Windows console command: path
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-rem at one tine this script had only been tested on XP
-rem recent tests have only been on Vista
-rem ver | findstr XP >NUL
-rem if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-
-set scriptdir_=%~dp0
-set lookin=.;%userprofile%;%scriptdir_%
-if not defined R_BATCHFILES_RC (
- for %%f in ("rbatchfilesrc.bat") do set "R_BATCHFILES_RC=%%~$lookin:f"
-)
-if defined R_BATCHFILES_RC (
- if exist "%R_BATCHFILES_RC%" call %R_BATCHFILES_RC%
-)
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else current folder if bin\rcmd.exe exists
-:: else most current R as determined by registry entry
-:: else error
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-if not defined R_HOME if exist bin\r.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\R /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-call :process_arch %*
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if not defined MYSQL_HOME for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\MySQL\* 2^>NUL'
-) do set MYSQL_HOME=%ProgramFiles%\MySQL\%%a
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-
-set PATHQ=%PATH%
-:WHILE
- if "%PATHQ%"=="" goto WEND
- for /F "delims=;" %%i in ("%PATHQ%") do if exist "%%~sfi" set PATH2=%PATH2%;%%~sfi
- for /F "delims=; tokens=1,*" %%i in ("%PATHQ%") do set PATHQ=%%j
- goto WHILE
-:WEND
-
-set path2=%path2:~1%
-
-if defined R_TOOLS (
- set path2=%R_TOOLS%\bin;%R_TOOLS%\perl\bin;%R_TOOLS%\MinGW\bin;%PATH2%
-)
-
-path %path2%
-
-set here=%CD%
-set args=%*
-
-:: get name by which this command was called
-:: this allows same file to be used for Rgui, Rterm, etc. by just renaming it
-for %%i in (%0) do set cmd=%%~ni.exe
-
-if /i %cmd%==rtools.exe (endlocal & set path=%path2%) && goto:eof
-
-cd %R_HOME%\bin
-if /i not %cmd%==rguistart.exe goto:notRguiStart
- set cmd=rgui.exe
- set firstArgument=%1
- if defined firstArgument (
- dir %1 | findstr "<DIR>" > nul
- if errorlevel 1 goto:notRguiStart
- set here=%~1
- set firstArgument=
- )
- set args=
- shift
- :startloop
- set firstArgument=%1
- if defined firstArgument (
- set args=%args% "%~1"
- shift
- goto:startloop
- )
-:notRguiStart
-
-set st=
-if /i %cmd%==rgui.exe set st=start
-
-if /i not %cmd%==#Rscript.exe goto:not#Rscript
-set cmd=Rscript.exe
-if [%1]==[] goto:help#Rscript
-call :rsarg1 %*
-goto:not#Rscript
-:rsarg1
-set args=%*
-set arg1=%~1
-set arg1=%arg1:.bat.bat=.bat%
-set last4=%arg1:~-4%
-if /i not "%last4%"==".bat" set arg1=%arg1%.bat
-for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
-call set args=%%args:%1="%arg1%"%%
-rem call set args=%%args:%1=%%
-goto:eof
-:not#Rscript
-
-cd %here%
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%R_HOME%\bin\%R_ARCH0%\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%R_HOME%\bin\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: %cmd% not found" & goto:eof
-:cmdpathfound
-
-:: if called as jgr.bat locate the JGR package to find jgr.exe
-if /i not %cmd%==jgr.exe goto:notJGR
- set st=start
- set cmdpath=jgr.exe
- if not defined JGR_LIBS set JGR_LIBS=%R_LIBS%
- for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
- if not defined JGR_LIBS for /f "usebackq delims=" %%a in (
- `%RSCRIPT% -e "cat(.libPaths(),sep=';')"`
- ) do set JGR_LIBS=%%~a
- if not defined JGR_LIBS (
- echo "Error: JGR package not found in R library" & goto:eof
- )
- for %%f in ("JGR") do set "jgrpkg=%%~$JGR_LIBS:f"
- set JGR_LIB=%jgrpkg:~0,-4%
- for %%a in ("%JGR_LIB%") do set JGR_LIB_SHORT=%%~sfa
- for %%a in ("%R_HOME%") do set R_HOME_SHORT=%%~sfa
- set args=--libpath=%JGR_LIB_SHORT% --rhome=%R_HOME_SHORT%
-
-:notJGR
-
-rem set R_ARCH
-rem set R_ARCH0
-rem set cmdpath
-rem if defined st set st
-rem set args
-
-set cygwin=nodosfilewarning
-if not defined args goto:noargs
-if defined st (start "" "%cmdpath%" %args%) else "%cmdpath%" %args%
-goto:eof
-:noargs
-if defined st (start "" "%cmdpath%") else "%cmdpath%"
-goto:eof
-
-:help#Rscript
-echo Usage: #Rscript %%0 %%*
-echo If the above is the first line in a file
-echo containing only R code and the file is
-echo given a .bat extension then it can be
-echo run as a batch file.
-goto:eof
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- set arg=%~1
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" set R_ARCH=%1
- if defined R_ARCH goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined process_arg_arch goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/Rgui.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/Rgui.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/Rgui.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,239 +0,0 @@
-
- at echo off
-rem if /i "%1"==path (path %2) && goto:eof
-
-setlocal
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: Placing this file in your path will allow rcmd to be run anywhere
-:: without changing your path environment variable. See comments
-:: below on how it finds where R is. Your path can be listed by
-:: the Windows console command: path
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-rem at one tine this script had only been tested on XP
-rem recent tests have only been on Vista
-rem ver | findstr XP >NUL
-rem if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-
-set scriptdir_=%~dp0
-set lookin=.;%userprofile%;%scriptdir_%
-if not defined R_BATCHFILES_RC (
- for %%f in ("rbatchfilesrc.bat") do set "R_BATCHFILES_RC=%%~$lookin:f"
-)
-if defined R_BATCHFILES_RC (
- if exist "%R_BATCHFILES_RC%" call %R_BATCHFILES_RC%
-)
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else current folder if bin\rcmd.exe exists
-:: else most current R as determined by registry entry
-:: else error
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-if not defined R_HOME if exist bin\r.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\R /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-call :process_arch %*
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if not defined MYSQL_HOME for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\MySQL\* 2^>NUL'
-) do set MYSQL_HOME=%ProgramFiles%\MySQL\%%a
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-
-set PATHQ=%PATH%
-:WHILE
- if "%PATHQ%"=="" goto WEND
- for /F "delims=;" %%i in ("%PATHQ%") do if exist "%%~sfi" set PATH2=%PATH2%;%%~sfi
- for /F "delims=; tokens=1,*" %%i in ("%PATHQ%") do set PATHQ=%%j
- goto WHILE
-:WEND
-
-set path2=%path2:~1%
-
-if defined R_TOOLS (
- set path2=%R_TOOLS%\bin;%R_TOOLS%\perl\bin;%R_TOOLS%\MinGW\bin;%PATH2%
-)
-
-path %path2%
-
-set here=%CD%
-set args=%*
-
-:: get name by which this command was called
-:: this allows same file to be used for Rgui, Rterm, etc. by just renaming it
-for %%i in (%0) do set cmd=%%~ni.exe
-
-if /i %cmd%==rtools.exe (endlocal & set path=%path2%) && goto:eof
-
-cd %R_HOME%\bin
-if /i not %cmd%==rguistart.exe goto:notRguiStart
- set cmd=rgui.exe
- set firstArgument=%1
- if defined firstArgument (
- dir %1 | findstr "<DIR>" > nul
- if errorlevel 1 goto:notRguiStart
- set here=%~1
- set firstArgument=
- )
- set args=
- shift
- :startloop
- set firstArgument=%1
- if defined firstArgument (
- set args=%args% "%~1"
- shift
- goto:startloop
- )
-:notRguiStart
-
-set st=
-if /i %cmd%==rgui.exe set st=start
-
-if /i not %cmd%==#Rscript.exe goto:not#Rscript
-set cmd=Rscript.exe
-if [%1]==[] goto:help#Rscript
-call :rsarg1 %*
-goto:not#Rscript
-:rsarg1
-set args=%*
-set arg1=%~1
-set arg1=%arg1:.bat.bat=.bat%
-set last4=%arg1:~-4%
-if /i not "%last4%"==".bat" set arg1=%arg1%.bat
-for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
-call set args=%%args:%1="%arg1%"%%
-rem call set args=%%args:%1=%%
-goto:eof
-:not#Rscript
-
-cd %here%
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%R_HOME%\bin\%R_ARCH0%\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%R_HOME%\bin\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: %cmd% not found" & goto:eof
-:cmdpathfound
-
-:: if called as jgr.bat locate the JGR package to find jgr.exe
-if /i not %cmd%==jgr.exe goto:notJGR
- set st=start
- set cmdpath=jgr.exe
- if not defined JGR_LIBS set JGR_LIBS=%R_LIBS%
- for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
- if not defined JGR_LIBS for /f "usebackq delims=" %%a in (
- `%RSCRIPT% -e "cat(.libPaths(),sep=';')"`
- ) do set JGR_LIBS=%%~a
- if not defined JGR_LIBS (
- echo "Error: JGR package not found in R library" & goto:eof
- )
- for %%f in ("JGR") do set "jgrpkg=%%~$JGR_LIBS:f"
- set JGR_LIB=%jgrpkg:~0,-4%
- for %%a in ("%JGR_LIB%") do set JGR_LIB_SHORT=%%~sfa
- for %%a in ("%R_HOME%") do set R_HOME_SHORT=%%~sfa
- set args=--libpath=%JGR_LIB_SHORT% --rhome=%R_HOME_SHORT%
-
-:notJGR
-
-rem set R_ARCH
-rem set R_ARCH0
-rem set cmdpath
-rem if defined st set st
-rem set args
-
-set cygwin=nodosfilewarning
-if not defined args goto:noargs
-if defined st (start "" "%cmdpath%" %args%) else "%cmdpath%" %args%
-goto:eof
-:noargs
-if defined st (start "" "%cmdpath%") else "%cmdpath%"
-goto:eof
-
-:help#Rscript
-echo Usage: #Rscript %%0 %%*
-echo If the above is the first line in a file
-echo containing only R code and the file is
-echo given a .bat extension then it can be
-echo run as a batch file.
-goto:eof
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- set arg=%~1
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" set R_ARCH=%1
- if defined R_ARCH goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined process_arg_arch goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/RguiStart.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/RguiStart.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/RguiStart.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,239 +0,0 @@
-
- at echo off
-rem if /i "%1"==path (path %2) && goto:eof
-
-setlocal
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: Placing this file in your path will allow rcmd to be run anywhere
-:: without changing your path environment variable. See comments
-:: below on how it finds where R is. Your path can be listed by
-:: the Windows console command: path
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-rem at one tine this script had only been tested on XP
-rem recent tests have only been on Vista
-rem ver | findstr XP >NUL
-rem if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-
-set scriptdir_=%~dp0
-set lookin=.;%userprofile%;%scriptdir_%
-if not defined R_BATCHFILES_RC (
- for %%f in ("rbatchfilesrc.bat") do set "R_BATCHFILES_RC=%%~$lookin:f"
-)
-if defined R_BATCHFILES_RC (
- if exist "%R_BATCHFILES_RC%" call %R_BATCHFILES_RC%
-)
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else current folder if bin\rcmd.exe exists
-:: else most current R as determined by registry entry
-:: else error
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-if not defined R_HOME if exist bin\r.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\R /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-call :process_arch %*
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if not defined MYSQL_HOME for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\MySQL\* 2^>NUL'
-) do set MYSQL_HOME=%ProgramFiles%\MySQL\%%a
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-
-set PATHQ=%PATH%
-:WHILE
- if "%PATHQ%"=="" goto WEND
- for /F "delims=;" %%i in ("%PATHQ%") do if exist "%%~sfi" set PATH2=%PATH2%;%%~sfi
- for /F "delims=; tokens=1,*" %%i in ("%PATHQ%") do set PATHQ=%%j
- goto WHILE
-:WEND
-
-set path2=%path2:~1%
-
-if defined R_TOOLS (
- set path2=%R_TOOLS%\bin;%R_TOOLS%\perl\bin;%R_TOOLS%\MinGW\bin;%PATH2%
-)
-
-path %path2%
-
-set here=%CD%
-set args=%*
-
-:: get name by which this command was called
-:: this allows same file to be used for Rgui, Rterm, etc. by just renaming it
-for %%i in (%0) do set cmd=%%~ni.exe
-
-if /i %cmd%==rtools.exe (endlocal & set path=%path2%) && goto:eof
-
-cd %R_HOME%\bin
-if /i not %cmd%==rguistart.exe goto:notRguiStart
- set cmd=rgui.exe
- set firstArgument=%1
- if defined firstArgument (
- dir %1 | findstr "<DIR>" > nul
- if errorlevel 1 goto:notRguiStart
- set here=%~1
- set firstArgument=
- )
- set args=
- shift
- :startloop
- set firstArgument=%1
- if defined firstArgument (
- set args=%args% "%~1"
- shift
- goto:startloop
- )
-:notRguiStart
-
-set st=
-if /i %cmd%==rgui.exe set st=start
-
-if /i not %cmd%==#Rscript.exe goto:not#Rscript
-set cmd=Rscript.exe
-if [%1]==[] goto:help#Rscript
-call :rsarg1 %*
-goto:not#Rscript
-:rsarg1
-set args=%*
-set arg1=%~1
-set arg1=%arg1:.bat.bat=.bat%
-set last4=%arg1:~-4%
-if /i not "%last4%"==".bat" set arg1=%arg1%.bat
-for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
-call set args=%%args:%1="%arg1%"%%
-rem call set args=%%args:%1=%%
-goto:eof
-:not#Rscript
-
-cd %here%
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%R_HOME%\bin\%R_ARCH0%\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%R_HOME%\bin\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: %cmd% not found" & goto:eof
-:cmdpathfound
-
-:: if called as jgr.bat locate the JGR package to find jgr.exe
-if /i not %cmd%==jgr.exe goto:notJGR
- set st=start
- set cmdpath=jgr.exe
- if not defined JGR_LIBS set JGR_LIBS=%R_LIBS%
- for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
- if not defined JGR_LIBS for /f "usebackq delims=" %%a in (
- `%RSCRIPT% -e "cat(.libPaths(),sep=';')"`
- ) do set JGR_LIBS=%%~a
- if not defined JGR_LIBS (
- echo "Error: JGR package not found in R library" & goto:eof
- )
- for %%f in ("JGR") do set "jgrpkg=%%~$JGR_LIBS:f"
- set JGR_LIB=%jgrpkg:~0,-4%
- for %%a in ("%JGR_LIB%") do set JGR_LIB_SHORT=%%~sfa
- for %%a in ("%R_HOME%") do set R_HOME_SHORT=%%~sfa
- set args=--libpath=%JGR_LIB_SHORT% --rhome=%R_HOME_SHORT%
-
-:notJGR
-
-rem set R_ARCH
-rem set R_ARCH0
-rem set cmdpath
-rem if defined st set st
-rem set args
-
-set cygwin=nodosfilewarning
-if not defined args goto:noargs
-if defined st (start "" "%cmdpath%" %args%) else "%cmdpath%" %args%
-goto:eof
-:noargs
-if defined st (start "" "%cmdpath%") else "%cmdpath%"
-goto:eof
-
-:help#Rscript
-echo Usage: #Rscript %%0 %%*
-echo If the above is the first line in a file
-echo containing only R code and the file is
-echo given a .bat extension then it can be
-echo run as a batch file.
-goto:eof
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- set arg=%~1
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" set R_ARCH=%1
- if defined R_ARCH goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined process_arg_arch goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/Rscript.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/Rscript.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/Rscript.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,239 +0,0 @@
-
- at echo off
-rem if /i "%1"==path (path %2) && goto:eof
-
-setlocal
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: Placing this file in your path will allow rcmd to be run anywhere
-:: without changing your path environment variable. See comments
-:: below on how it finds where R is. Your path can be listed by
-:: the Windows console command: path
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-rem at one tine this script had only been tested on XP
-rem recent tests have only been on Vista
-rem ver | findstr XP >NUL
-rem if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-
-set scriptdir_=%~dp0
-set lookin=.;%userprofile%;%scriptdir_%
-if not defined R_BATCHFILES_RC (
- for %%f in ("rbatchfilesrc.bat") do set "R_BATCHFILES_RC=%%~$lookin:f"
-)
-if defined R_BATCHFILES_RC (
- if exist "%R_BATCHFILES_RC%" call %R_BATCHFILES_RC%
-)
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else current folder if bin\rcmd.exe exists
-:: else most current R as determined by registry entry
-:: else error
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-if not defined R_HOME if exist bin\r.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\R /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-call :process_arch %*
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if not defined MYSQL_HOME for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\MySQL\* 2^>NUL'
-) do set MYSQL_HOME=%ProgramFiles%\MySQL\%%a
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-
-set PATHQ=%PATH%
-:WHILE
- if "%PATHQ%"=="" goto WEND
- for /F "delims=;" %%i in ("%PATHQ%") do if exist "%%~sfi" set PATH2=%PATH2%;%%~sfi
- for /F "delims=; tokens=1,*" %%i in ("%PATHQ%") do set PATHQ=%%j
- goto WHILE
-:WEND
-
-set path2=%path2:~1%
-
-if defined R_TOOLS (
- set path2=%R_TOOLS%\bin;%R_TOOLS%\perl\bin;%R_TOOLS%\MinGW\bin;%PATH2%
-)
-
-path %path2%
-
-set here=%CD%
-set args=%*
-
-:: get name by which this command was called
-:: this allows same file to be used for Rgui, Rterm, etc. by just renaming it
-for %%i in (%0) do set cmd=%%~ni.exe
-
-if /i %cmd%==rtools.exe (endlocal & set path=%path2%) && goto:eof
-
-cd %R_HOME%\bin
-if /i not %cmd%==rguistart.exe goto:notRguiStart
- set cmd=rgui.exe
- set firstArgument=%1
- if defined firstArgument (
- dir %1 | findstr "<DIR>" > nul
- if errorlevel 1 goto:notRguiStart
- set here=%~1
- set firstArgument=
- )
- set args=
- shift
- :startloop
- set firstArgument=%1
- if defined firstArgument (
- set args=%args% "%~1"
- shift
- goto:startloop
- )
-:notRguiStart
-
-set st=
-if /i %cmd%==rgui.exe set st=start
-
-if /i not %cmd%==#Rscript.exe goto:not#Rscript
-set cmd=Rscript.exe
-if [%1]==[] goto:help#Rscript
-call :rsarg1 %*
-goto:not#Rscript
-:rsarg1
-set args=%*
-set arg1=%~1
-set arg1=%arg1:.bat.bat=.bat%
-set last4=%arg1:~-4%
-if /i not "%last4%"==".bat" set arg1=%arg1%.bat
-for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
-call set args=%%args:%1="%arg1%"%%
-rem call set args=%%args:%1=%%
-goto:eof
-:not#Rscript
-
-cd %here%
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%R_HOME%\bin\%R_ARCH0%\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%R_HOME%\bin\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: %cmd% not found" & goto:eof
-:cmdpathfound
-
-:: if called as jgr.bat locate the JGR package to find jgr.exe
-if /i not %cmd%==jgr.exe goto:notJGR
- set st=start
- set cmdpath=jgr.exe
- if not defined JGR_LIBS set JGR_LIBS=%R_LIBS%
- for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
- if not defined JGR_LIBS for /f "usebackq delims=" %%a in (
- `%RSCRIPT% -e "cat(.libPaths(),sep=';')"`
- ) do set JGR_LIBS=%%~a
- if not defined JGR_LIBS (
- echo "Error: JGR package not found in R library" & goto:eof
- )
- for %%f in ("JGR") do set "jgrpkg=%%~$JGR_LIBS:f"
- set JGR_LIB=%jgrpkg:~0,-4%
- for %%a in ("%JGR_LIB%") do set JGR_LIB_SHORT=%%~sfa
- for %%a in ("%R_HOME%") do set R_HOME_SHORT=%%~sfa
- set args=--libpath=%JGR_LIB_SHORT% --rhome=%R_HOME_SHORT%
-
-:notJGR
-
-rem set R_ARCH
-rem set R_ARCH0
-rem set cmdpath
-rem if defined st set st
-rem set args
-
-set cygwin=nodosfilewarning
-if not defined args goto:noargs
-if defined st (start "" "%cmdpath%" %args%) else "%cmdpath%" %args%
-goto:eof
-:noargs
-if defined st (start "" "%cmdpath%") else "%cmdpath%"
-goto:eof
-
-:help#Rscript
-echo Usage: #Rscript %%0 %%*
-echo If the above is the first line in a file
-echo containing only R code and the file is
-echo given a .bat extension then it can be
-echo run as a batch file.
-goto:eof
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- set arg=%~1
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" set R_ARCH=%1
- if defined R_ARCH goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined process_arg_arch goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/Rtidy.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/Rtidy.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/Rtidy.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,8 +0,0 @@
-#Rscript %0.bat %*
-# usage: Rtidy sourcefile.R > sourcefile.Rtidy.R
-# based on 3.1 of R Extensions Manual
-options(keep.source = FALSE)
-source(commandArgs(TRUE))
-dump(ls(all = TRUE), file = stdout())
-q("no")
-
Deleted: grass/trunk/mswindows/external/rbatch/Rtools.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/Rtools.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/Rtools.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,239 +0,0 @@
-
- at echo off
-rem if /i "%1"==path (path %2) && goto:eof
-
-setlocal
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: Placing this file in your path will allow rcmd to be run anywhere
-:: without changing your path environment variable. See comments
-:: below on how it finds where R is. Your path can be listed by
-:: the Windows console command: path
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-rem at one tine this script had only been tested on XP
-rem recent tests have only been on Vista
-rem ver | findstr XP >NUL
-rem if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-
-set scriptdir_=%~dp0
-set lookin=.;%userprofile%;%scriptdir_%
-if not defined R_BATCHFILES_RC (
- for %%f in ("rbatchfilesrc.bat") do set "R_BATCHFILES_RC=%%~$lookin:f"
-)
-if defined R_BATCHFILES_RC (
- if exist "%R_BATCHFILES_RC%" call %R_BATCHFILES_RC%
-)
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else current folder if bin\rcmd.exe exists
-:: else most current R as determined by registry entry
-:: else error
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-if not defined R_HOME if exist bin\r.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\R /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-call :process_arch %*
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if not defined MYSQL_HOME for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\MySQL\* 2^>NUL'
-) do set MYSQL_HOME=%ProgramFiles%\MySQL\%%a
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-
-set PATHQ=%PATH%
-:WHILE
- if "%PATHQ%"=="" goto WEND
- for /F "delims=;" %%i in ("%PATHQ%") do if exist "%%~sfi" set PATH2=%PATH2%;%%~sfi
- for /F "delims=; tokens=1,*" %%i in ("%PATHQ%") do set PATHQ=%%j
- goto WHILE
-:WEND
-
-set path2=%path2:~1%
-
-if defined R_TOOLS (
- set path2=%R_TOOLS%\bin;%R_TOOLS%\perl\bin;%R_TOOLS%\MinGW\bin;%PATH2%
-)
-
-path %path2%
-
-set here=%CD%
-set args=%*
-
-:: get name by which this command was called
-:: this allows same file to be used for Rgui, Rterm, etc. by just renaming it
-for %%i in (%0) do set cmd=%%~ni.exe
-
-if /i %cmd%==rtools.exe (endlocal & set path=%path2%) && goto:eof
-
-cd %R_HOME%\bin
-if /i not %cmd%==rguistart.exe goto:notRguiStart
- set cmd=rgui.exe
- set firstArgument=%1
- if defined firstArgument (
- dir %1 | findstr "<DIR>" > nul
- if errorlevel 1 goto:notRguiStart
- set here=%~1
- set firstArgument=
- )
- set args=
- shift
- :startloop
- set firstArgument=%1
- if defined firstArgument (
- set args=%args% "%~1"
- shift
- goto:startloop
- )
-:notRguiStart
-
-set st=
-if /i %cmd%==rgui.exe set st=start
-
-if /i not %cmd%==#Rscript.exe goto:not#Rscript
-set cmd=Rscript.exe
-if [%1]==[] goto:help#Rscript
-call :rsarg1 %*
-goto:not#Rscript
-:rsarg1
-set args=%*
-set arg1=%~1
-set arg1=%arg1:.bat.bat=.bat%
-set last4=%arg1:~-4%
-if /i not "%last4%"==".bat" set arg1=%arg1%.bat
-for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
-call set args=%%args:%1="%arg1%"%%
-rem call set args=%%args:%1=%%
-goto:eof
-:not#Rscript
-
-cd %here%
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%R_HOME%\bin\%R_ARCH0%\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%R_HOME%\bin\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: %cmd% not found" & goto:eof
-:cmdpathfound
-
-:: if called as jgr.bat locate the JGR package to find jgr.exe
-if /i not %cmd%==jgr.exe goto:notJGR
- set st=start
- set cmdpath=jgr.exe
- if not defined JGR_LIBS set JGR_LIBS=%R_LIBS%
- for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
- if not defined JGR_LIBS for /f "usebackq delims=" %%a in (
- `%RSCRIPT% -e "cat(.libPaths(),sep=';')"`
- ) do set JGR_LIBS=%%~a
- if not defined JGR_LIBS (
- echo "Error: JGR package not found in R library" & goto:eof
- )
- for %%f in ("JGR") do set "jgrpkg=%%~$JGR_LIBS:f"
- set JGR_LIB=%jgrpkg:~0,-4%
- for %%a in ("%JGR_LIB%") do set JGR_LIB_SHORT=%%~sfa
- for %%a in ("%R_HOME%") do set R_HOME_SHORT=%%~sfa
- set args=--libpath=%JGR_LIB_SHORT% --rhome=%R_HOME_SHORT%
-
-:notJGR
-
-rem set R_ARCH
-rem set R_ARCH0
-rem set cmdpath
-rem if defined st set st
-rem set args
-
-set cygwin=nodosfilewarning
-if not defined args goto:noargs
-if defined st (start "" "%cmdpath%" %args%) else "%cmdpath%" %args%
-goto:eof
-:noargs
-if defined st (start "" "%cmdpath%") else "%cmdpath%"
-goto:eof
-
-:help#Rscript
-echo Usage: #Rscript %%0 %%*
-echo If the above is the first line in a file
-echo containing only R code and the file is
-echo given a .bat extension then it can be
-echo run as a batch file.
-goto:eof
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- set arg=%~1
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" set R_ARCH=%1
- if defined R_ARCH goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined process_arg_arch goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/RtoolsVersion.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/RtoolsVersion.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/RtoolsVersion.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,30 +0,0 @@
- at echo off
-
-setlocal
-rem if /i "%1"==path (path %2) && goto:eof
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS (
- echo "Warning: Rtools not found in registry."
- if exist "C:\Rtools" set R_TOOLS=C:\Rtools
-)
-if not defined R_TOOLS (
- echo "Warning: Rtools not found in common locations."
- goto:eof
-)
-
-echo Rtools at: %R_TOOLS%
-if not exist "%R_TOOLS%\VERSION.txt" (
- echo Rtools version: 2.12 or 2.13 or earlier.
- goto:eof
-)
-
-type %R_TOOLS%\VERSION.txt
-
-endlocal
-
Deleted: grass/trunk/mswindows/external/rbatch/Rversions.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/Rversions.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/Rversions.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,103 +0,0 @@
-
- at echo off
-
-:: Without args this lists the R_HOME directory for each version of R
-:: on the system. If one of those directories is given as an argument
-:: then that version is set to the current version
-:: Note: Use Rfind.bat and look on R_HOME line to find current version of R.
-
-setlocal
-rem ver | findstr XP >NUL
-rem if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else current folder if bin\rcmd.exe exists
-:: else most current R as determined by registry entry
-:: else error
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-if not defined R_HOME if exist bin\rcmd.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-:: look for architecture in these places in this order:
-:: - environment variable R_ARCH
-:: - first arg if its --arch
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use i386
-
-call :process_arch %*
-rem set R
-
-cd %R_HOME%
-cd ..
-
-if "%1"=="" (
- for /d %%a in (*) do if exist %%a\bin\R.exe echo %%a
- goto:eof
-)
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%1\bin\%R_ARCH0%\RSetReg.exe
-rem set cmdpath
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%1\bin\RSetReg.exe
-rem set cmdpath
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: RSetReg.exe not found" & goto:eof
-goto:eof
-:cmdpathfound
-"%cmdpath%"
-
-goto:eof
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- (set arg=%~1)
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" (set R_ARCH=%1) & goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined process_arg_arch goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/Stangle.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/Stangle.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/Stangle.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,377 +0,0 @@
- at echo off
-setlocal
-rem rem ver | findstr XP >NUL
-
-for %%i in (%0) do set cmd0=%%~ni
-set cmd=Sweave
-if /i "%cmd0%"=="Stangle" set cmd=Stangle
-
-if not defined SWEAVE_STYLEPATH_DEFAULT set SWEAVE_STYLEPATH_DEFAULT=TRUE
-
-set scriptdir_=%~dp0
-set lookin=.;%userprofile%;%scriptdir_%
-
-if not defined R_BATCHFILES_RC (
- for %%f in ("rbatchfilesrc.bat") do set "R_BATCHFILES_RC=%%~$lookin:f"
-)
-if defined R_BATCHFILES_RC (
- set R_BATCHFILES_RC
- if exist "%R_BATCHFILES_RC%" call %R_BATCHFILES_RC%
-)
-
-if "%1"=="" goto:help
-if "%1"=="-h" goto:help
-if "%1"=="--help" goto:help
-if "%1"=="/?" goto:help
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else check for .\bin\R.exe
-:: else check registry
-:: else check for existence of bin\R.exe in:
-:: %ProgramFiles%\R\R\R-*
-:: where more recently dated R-* directories would be matched over older ones
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-if not defined R_HOME if exist bin\R.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
- if not defined R_HOME echo "Error: R not found" & goto:eof
-
-if not "%1"==":Rterm" goto:notRterm
-
- set here=%CD%
- set args=%2 %3 %4 %5 %6 %7 %8 %9
-
- set cmd=:Rterm
-
- goto:Rterm
-)
-:notRterm
-goto:continue
-:help
-echo Usage: %0 abc.Rnw
-echo or %0 abc
-if /i "%cmd%"=="stangle" goto:eof
-echo switches:
-echo -t or --tex or produce tex file and exit
-echo -p or --pdf or produce pdf file and exit
-echo -n or --nobck.pdf do not create .bck.pdf; instead display pdf directly
-echo Runs sweave producing a .tex file. Then it runs pdflatex producing
-echo a .pdf file and a .bck.pdf file. Finally the .bck.pdf file is
-echo displayed on screen.
-echo.
-echo Examples:
-echo.
-echo 1. Run sweave, pdflatex, create backup pdf with unique name, display it
-echo sweave mydoc.Rnw
-echo 2. Same
-echo sweave mydoc
-echo 3. Run sweave to create tex file. Do not run pdflatex or display.
-echo sweave mydoc --tex
-echo 4. Run sweave and pdflatex creating pdf file. Do not create .bck.pdf
-echo file and do not display file.
-echo sweave mydoc --pdf
-echo 5. Run sweave and pdflatex. Do not create .bck.pdf. Display .pdf file.
-echo sweave mydoc --nobck
-goto:eof
-:continue
-
-call :process_arch %*
-
-:: argument processing
-:: - returns 'file' as file argument
-
- :loop
- (set arg=%~1)
- shift
- if not defined arg goto :cont
- (set prefix1=%arg:~0,1%)
- if "%prefix1%"=="-" goto:switch
- set file=%arg%
- goto:loop
- :switch
- set switch0=%arg:-=%
- set switch0=%switch0:~0,1%
- rem architecture switch was previously handled so skip over it here
- if "%switch0%"=="a" goto:loop
- set switch=%switch0%
- goto:loop
- :cont
-
-if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-if exist "%file%.Rtex" set infile="%file%.Rtex"
-if exist "%file%.Snw" set infile="%file%.Snw"
-if exist "%file%.Rnw" set infile="%file%.Rnw"
-if exist "%file%" set infile="%file%"
-set infilslsh=%infile:\=/%
-:: call sweave
-echo library('utils'); %cmd%(%infilslsh%) | %cmd0%.bat :Rterm --no-restore --slave
-if /i "%cmd%"=="stangle" goto:eof
-:: echo on
-if errorlevel 1 goto:eof
-if /i "%switch%"=="t" goto:eof
-
-:: echo %cd%
-for %%a in ("%file%") do set base=%%~sdpna
-if not exist "%base%.tex" goto:eof
-for /f "delims=" %%a in ('dir %infile% "%base%.tex" /od/b ^| more +1'
-) do set ext=%%~xa
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if "%ext%"==".tex" (pdflatex "%base%.tex") else goto:eof
-if errorlevel 1 goto:eof
-if /i "%switch%"=="p" goto:eof
-
-if not exist "%base%.pdf" goto:eof
-for /f "delims=" %%a in ('dir "%base%.pdf" "%base%.tex" /od/b ^| more +1'
-) do set ext=%%~xa
-if not "%ext%"==".pdf" goto:eof
-set pdffile=%base%.pdf
-if /i "%switch%"=="n" start "" "%pdffile%" && goto:eof
-set tmpfile=%date%-%time%
-set tmpfile=%tmpfile: =-%
-set tmpfile=%tmpfile::=.%
-set tmpfile=%tmpfile:/=.%
-set tmpfile=%base%-%tmpfile%.bck.pdf
-copy "%pdffile%" "%tmpfile%"
-start "" "%tmpfile%"
-echo *** delete *.bck.pdf files when done ***
-goto:eof
-
-
-
- at echo off
-setlocal
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: Placing this file in your path will allow rcmd to be run anywhere
-:: without changing your path environment variable. See comments
-:: below on how it finds where R is. Your path can be listed by
-:: the Windows console command: path
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else check for .\bin\R.exe
-:: else check registry
-:: else check for existence of bin\R.exe in each of the following:
-:: %ProgramFiles%\R\R\R-*
-:: where more recently created R-* directories would be matched over
-:: older ones.
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-if not defined R_HOME if exist bin\R.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-
-if not defined R_HOME for /f "delims=" %%a in (
- 'dir/b/od "%ProgramFiles%"\R\R-* 2^>NUL'
-) do if exist "%ProgramFiles%\R\%%a\bin\R.exe" (set R_HOME=%ProgramFiles%\R\%%a)
-
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^|
-findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-
-
-set PATHQ=%PATH%
-:WHILE
- if "%PATHQ%"=="" goto WEND
- for /F "delims=;" %%i in ("%PATHQ%") do if exist "%%~sfi" set PATH2=%PATH2%;%%~sfi
- for /F "delims=; tokens=1,*" %%i in ("%PATHQ%") do set PATHQ=%%j
- goto WHILE
-:WEND
-
-set path2=%path2:~1%
-
-if defined R_TOOLS (
- PATH %R_TOOLS%\bin;%R_TOOLS%\perl\bin;%R_TOOLS%\MinGW\bin;%PATH2%
-)
-
-set here=%CD%
-set args=%*
-
-:: get name by which this command was called
-:: this allows same file to be used for Rgui, Rterm, etc. by just renaming it
-for %%i in (%0) do set cmd=%%~ni
-
-goto %cmd%
-goto:eof
-
-:: note that RguiStart sets cmd to rgui.exe and then
-:: jumps to :Rgui.exe where processing is finished
-:RguiStart
-:RguiStart.exe
-cd %R_HOME%\bin
-if /i not %cmd%==rguistart.exe goto:Rgui
- set cmd=rgui.exe
- set firstArgument=%1
- if defined firstArgument (
- dir %1 | findstr "<DIR>" > nul
- if errorlevel 1 goto:notRguiStart
- set here=%~1
- set firstArgument=
- )
- set args=
- shift
- :startloop
- set firstArgument=%1
- if defined firstArgument (
- set args=%args% "%~1"
- shift
- goto:startloop
- )
-
-:Rcmd2
-:Rcmd2.exe
-:Rcmd
-:Rcmd.exe
-(set cmd=rcmd.exe)&goto:main
-
-:Rterm
-:Rterm.exe
-(set cmd=rterm.exe)&goto:main
-
-:Rgui
-:Rgui.exe
-(set cmd=rgui.exe)&goto:main
-
-:R
-:R.exe
-(set cmd=r)&goto:main
-
-:Rjgr
-:Rjgr.exe
-(set cmd=rjgr)&goto:main
-
-:#Rscript
-:#Rscript.exe
-:Rscript
-:Rscript.exe
-(set cmd=rscript.exe)&goto:main
-
-# main portion of program
-:main
-set st=
-if /i %cmd%==rgui.exe set st=start
-:: if /i %cmd%==#rscript.exe set cmd=rscript.exe
-cd %here%
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%R_HOME%\bin\%R_ARCH%\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%R_HOME%\bin\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: %cmd% not found" & goto:eof
-:cmdpathfound
-rem set cmdpath
-
-if defined st (start "" "%cmdpath%" %args%) else "%cmdpath%" %args%
-goto:eof
-
-endlocal
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- rem set R_HOME
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- (set arg=%~1)
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" (set R_ARCH=%1) & goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined R_ARCH goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
-
-
-
Deleted: grass/trunk/mswindows/external/rbatch/Sweave.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/Sweave.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/Sweave.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,377 +0,0 @@
- at echo off
-setlocal
-rem rem ver | findstr XP >NUL
-
-for %%i in (%0) do set cmd0=%%~ni
-set cmd=Sweave
-if /i "%cmd0%"=="Stangle" set cmd=Stangle
-
-if not defined SWEAVE_STYLEPATH_DEFAULT set SWEAVE_STYLEPATH_DEFAULT=TRUE
-
-set scriptdir_=%~dp0
-set lookin=.;%userprofile%;%scriptdir_%
-
-if not defined R_BATCHFILES_RC (
- for %%f in ("rbatchfilesrc.bat") do set "R_BATCHFILES_RC=%%~$lookin:f"
-)
-if defined R_BATCHFILES_RC (
- set R_BATCHFILES_RC
- if exist "%R_BATCHFILES_RC%" call %R_BATCHFILES_RC%
-)
-
-if "%1"=="" goto:help
-if "%1"=="-h" goto:help
-if "%1"=="--help" goto:help
-if "%1"=="/?" goto:help
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else check for .\bin\R.exe
-:: else check registry
-:: else check for existence of bin\R.exe in:
-:: %ProgramFiles%\R\R\R-*
-:: where more recently dated R-* directories would be matched over older ones
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-if not defined R_HOME if exist bin\R.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
- if not defined R_HOME echo "Error: R not found" & goto:eof
-
-if not "%1"==":Rterm" goto:notRterm
-
- set here=%CD%
- set args=%2 %3 %4 %5 %6 %7 %8 %9
-
- set cmd=:Rterm
-
- goto:Rterm
-)
-:notRterm
-goto:continue
-:help
-echo Usage: %0 abc.Rnw
-echo or %0 abc
-if /i "%cmd%"=="stangle" goto:eof
-echo switches:
-echo -t or --tex or produce tex file and exit
-echo -p or --pdf or produce pdf file and exit
-echo -n or --nobck.pdf do not create .bck.pdf; instead display pdf directly
-echo Runs sweave producing a .tex file. Then it runs pdflatex producing
-echo a .pdf file and a .bck.pdf file. Finally the .bck.pdf file is
-echo displayed on screen.
-echo.
-echo Examples:
-echo.
-echo 1. Run sweave, pdflatex, create backup pdf with unique name, display it
-echo sweave mydoc.Rnw
-echo 2. Same
-echo sweave mydoc
-echo 3. Run sweave to create tex file. Do not run pdflatex or display.
-echo sweave mydoc --tex
-echo 4. Run sweave and pdflatex creating pdf file. Do not create .bck.pdf
-echo file and do not display file.
-echo sweave mydoc --pdf
-echo 5. Run sweave and pdflatex. Do not create .bck.pdf. Display .pdf file.
-echo sweave mydoc --nobck
-goto:eof
-:continue
-
-call :process_arch %*
-
-:: argument processing
-:: - returns 'file' as file argument
-
- :loop
- (set arg=%~1)
- shift
- if not defined arg goto :cont
- (set prefix1=%arg:~0,1%)
- if "%prefix1%"=="-" goto:switch
- set file=%arg%
- goto:loop
- :switch
- set switch0=%arg:-=%
- set switch0=%switch0:~0,1%
- rem architecture switch was previously handled so skip over it here
- if "%switch0%"=="a" goto:loop
- set switch=%switch0%
- goto:loop
- :cont
-
-if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-if exist "%file%.Rtex" set infile="%file%.Rtex"
-if exist "%file%.Snw" set infile="%file%.Snw"
-if exist "%file%.Rnw" set infile="%file%.Rnw"
-if exist "%file%" set infile="%file%"
-set infilslsh=%infile:\=/%
-:: call sweave
-echo library('utils'); %cmd%(%infilslsh%) | %cmd0%.bat :Rterm --no-restore --slave
-if /i "%cmd%"=="stangle" goto:eof
-:: echo on
-if errorlevel 1 goto:eof
-if /i "%switch%"=="t" goto:eof
-
-:: echo %cd%
-for %%a in ("%file%") do set base=%%~sdpna
-if not exist "%base%.tex" goto:eof
-for /f "delims=" %%a in ('dir %infile% "%base%.tex" /od/b ^| more +1'
-) do set ext=%%~xa
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if "%ext%"==".tex" (pdflatex "%base%.tex") else goto:eof
-if errorlevel 1 goto:eof
-if /i "%switch%"=="p" goto:eof
-
-if not exist "%base%.pdf" goto:eof
-for /f "delims=" %%a in ('dir "%base%.pdf" "%base%.tex" /od/b ^| more +1'
-) do set ext=%%~xa
-if not "%ext%"==".pdf" goto:eof
-set pdffile=%base%.pdf
-if /i "%switch%"=="n" start "" "%pdffile%" && goto:eof
-set tmpfile=%date%-%time%
-set tmpfile=%tmpfile: =-%
-set tmpfile=%tmpfile::=.%
-set tmpfile=%tmpfile:/=.%
-set tmpfile=%base%-%tmpfile%.bck.pdf
-copy "%pdffile%" "%tmpfile%"
-start "" "%tmpfile%"
-echo *** delete *.bck.pdf files when done ***
-goto:eof
-
-
-
- at echo off
-setlocal
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: Placing this file in your path will allow rcmd to be run anywhere
-:: without changing your path environment variable. See comments
-:: below on how it finds where R is. Your path can be listed by
-:: the Windows console command: path
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else check for .\bin\R.exe
-:: else check registry
-:: else check for existence of bin\R.exe in each of the following:
-:: %ProgramFiles%\R\R\R-*
-:: where more recently created R-* directories would be matched over
-:: older ones.
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-if not defined R_HOME if exist bin\R.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-
-if not defined R_HOME for /f "delims=" %%a in (
- 'dir/b/od "%ProgramFiles%"\R\R-* 2^>NUL'
-) do if exist "%ProgramFiles%\R\%%a\bin\R.exe" (set R_HOME=%ProgramFiles%\R\%%a)
-
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^|
-findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-
-
-set PATHQ=%PATH%
-:WHILE
- if "%PATHQ%"=="" goto WEND
- for /F "delims=;" %%i in ("%PATHQ%") do if exist "%%~sfi" set PATH2=%PATH2%;%%~sfi
- for /F "delims=; tokens=1,*" %%i in ("%PATHQ%") do set PATHQ=%%j
- goto WHILE
-:WEND
-
-set path2=%path2:~1%
-
-if defined R_TOOLS (
- PATH %R_TOOLS%\bin;%R_TOOLS%\perl\bin;%R_TOOLS%\MinGW\bin;%PATH2%
-)
-
-set here=%CD%
-set args=%*
-
-:: get name by which this command was called
-:: this allows same file to be used for Rgui, Rterm, etc. by just renaming it
-for %%i in (%0) do set cmd=%%~ni
-
-goto %cmd%
-goto:eof
-
-:: note that RguiStart sets cmd to rgui.exe and then
-:: jumps to :Rgui.exe where processing is finished
-:RguiStart
-:RguiStart.exe
-cd %R_HOME%\bin
-if /i not %cmd%==rguistart.exe goto:Rgui
- set cmd=rgui.exe
- set firstArgument=%1
- if defined firstArgument (
- dir %1 | findstr "<DIR>" > nul
- if errorlevel 1 goto:notRguiStart
- set here=%~1
- set firstArgument=
- )
- set args=
- shift
- :startloop
- set firstArgument=%1
- if defined firstArgument (
- set args=%args% "%~1"
- shift
- goto:startloop
- )
-
-:Rcmd2
-:Rcmd2.exe
-:Rcmd
-:Rcmd.exe
-(set cmd=rcmd.exe)&goto:main
-
-:Rterm
-:Rterm.exe
-(set cmd=rterm.exe)&goto:main
-
-:Rgui
-:Rgui.exe
-(set cmd=rgui.exe)&goto:main
-
-:R
-:R.exe
-(set cmd=r)&goto:main
-
-:Rjgr
-:Rjgr.exe
-(set cmd=rjgr)&goto:main
-
-:#Rscript
-:#Rscript.exe
-:Rscript
-:Rscript.exe
-(set cmd=rscript.exe)&goto:main
-
-# main portion of program
-:main
-set st=
-if /i %cmd%==rgui.exe set st=start
-:: if /i %cmd%==#rscript.exe set cmd=rscript.exe
-cd %here%
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%R_HOME%\bin\%R_ARCH%\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%R_HOME%\bin\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: %cmd% not found" & goto:eof
-:cmdpathfound
-rem set cmdpath
-
-if defined st (start "" "%cmdpath%" %args%) else "%cmdpath%" %args%
-goto:eof
-
-endlocal
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- rem set R_HOME
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- (set arg=%~1)
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" (set R_ARCH=%1) & goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined R_ARCH goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
-
-
-
Deleted: grass/trunk/mswindows/external/rbatch/THANKS
===================================================================
--- grass/trunk/mswindows/external/rbatch/THANKS 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/THANKS 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,35 +0,0 @@
-
-Thanks to the following for contributing code:
-
- Nicholas Hirschey <<Nicholas.Hirschey at phd.mccombs.utexas.edu>
- Dieter Menne <dieter.menne at menne-biomed.de>
- Erich Neuwirth <erich.neuwirth at univie.ac.at>
-
-Thanks to the following for finding bugs:
-
- Nicholas Hirschey <<Nicholas.Hirschey at phd.mccombs.utexas.edu>
- Xiaohua Dai <ecoinformatics at gmail.com>
-
-Thanks to the following people for discussion related to R:
-
- Henrik Bengtsson <henrikb at braju.com>
- J. Hosking <jh910 at juno.com>
- Uwe Ligges <ligges at statistik.uni-dortmund.de>
- Duncan Murdoch <murdoch at stats.uwo.ca>
- Tobias Verbeke <tobias.verbeke at telenet.be>
-
-Also thanks to the following for discussion related to Windows batch:
-
- William Allen
- billious
- carlos
- Clay Calvert
- Ted Davis
- Al Dunbar
- foxidrive
- Phil Robyn
- Paul R. Sadowski
- Timo Salmi
- Tomek (T3X)
- Matthias Tacke
-
Deleted: grass/trunk/mswindows/external/rbatch/WISHLIST
===================================================================
--- grass/trunk/mswindows/external/rbatch/WISHLIST 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/WISHLIST 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,11 +0,0 @@
-WISHLIST
-
-o Sweave.bat
- - output file name
- - commandArgs
- - brew
-
-o clean up documentation
-
-o test latest version of XP (recent versions were tested only on Vista;
- versions up to 0.3-2 tested only on XP)
Deleted: grass/trunk/mswindows/external/rbatch/clip2r.js
===================================================================
--- grass/trunk/mswindows/external/rbatch/clip2r.js 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/clip2r.js 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,27 +0,0 @@
-// (c) 2009. Gabor Grothendieck.
-// This is free software licensed under GPL.
-//
-// Based on TpR.bas by Philippe Grosjean.
-//
-// 1. To find the directory where _vimrc goes enter this in vim :echo $HOME
-// 2. Place these two lines in your _vimrc file in which case F3 will
-// transmit current selection to the clipboard and then paste it into R
-// e.g. ctrl-A F3 copies entire file to R
-//
-// map <F3> <C-C><ESC>:!start clip2r.js<CR><CR>
-// imap <F3> <ESC><C-C><ESC>:!start clip2r.js<CR><CR>
-//
-// Alternately use these two lines copy entire file when F3 is pressed:
-//
-// map <F3> <C-A><C-C><ESC>:!start clip2r.js<CR><CR>
-// imap <F3> <ESC><C-A><C-C><ESC>:!start clip2r.js<CR><CR>
-//
-// Note: In the wsh.SendKeys command the strings:
-// "% x" stands for Alt-space x and has the effect of maximizing Rgui
-// "%{w}1" stands for Alt-w 1 and activates the R console
-// "^{v}" stands for ctrl-v and pastes clipboard.
-
-var wsh = new ActiveXObject("Wscript.Shell");
-wsh.AppActivate("Rgui");
-wsh.SendKeys("% x%{w}1^{v}");
-
Deleted: grass/trunk/mswindows/external/rbatch/copydir.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/copydir.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/copydir.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,16 +0,0 @@
- at echo off
-setlocal
-if not "%2"=="" goto:run
-echo Usage: copydir fromdir todir
-echo All files/directories in fromdir that do not also exist in todir are
-echo recurisvely copied.
-echo e.g.
-echo cd \Program Files\R
-echo copydir R-2.2.0\library R-2.3.0\library
-goto:eof
-:run
-:: Notes on code:
-:: on xcopy command /e copies subdir/files incl empty ones
-:: on xcopy command /i causes target to be created
-for /D %%a in ("%~1\*") do if not exist %2\%%~na xcopy /e/i "%%a" "%~2\%%~nxa"
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/el.js
===================================================================
--- grass/trunk/mswindows/external/rbatch/el.js 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/el.js 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,16 +0,0 @@
-// elevate.js -- runs target command line elevated
-if (WScript.Arguments.Length >= 1) {
- Application = WScript.Arguments(0);
- Arguments = "";
- for (Index = 1; Index < WScript.Arguments.Length; Index += 1) {
- if (Index > 1) {
- Arguments += " ";
- }
- Arguments += WScript.Arguments(Index);
- }
- new ActiveXObject("Shell.Application").ShellExecute(Application, Arguments, "", "runas");
-} else {
- WScript.Echo("Usage:");
- WScript.Echo("elevate Application Arguments");
-}
-
Deleted: grass/trunk/mswindows/external/rbatch/find-miktex.hta
===================================================================
--- grass/trunk/mswindows/external/rbatch/find-miktex.hta 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/find-miktex.hta 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,29 +0,0 @@
-<head>
-<STYLE TYPE="text/css">
-.highlight {background:#ff00ff}
-.text {color:#ff00ff}
-.both {color:white;background:black}
-</STYLE>
-<title>find-miktex</title>
-</head>
-<body onLoad="window.resizeTo(650,250);">
-<h1>Find MiKTeX</h1>
-<script type="text/jscript">
-
-fso = new ActiveXObject("Scripting.FileSystemObject");
-mik = new ActiveXObject("MiKTeX.Session");
-
-i = 0;
-while (true) {
- try {
- rt = mik.GetRootDirectory(i);
- if (fso.FileExists(rt + "\\miktex\\bin\\latex.exe")) {
- document.write(rt + "\\miktex\\bin<br>");
- }
- i++;
- } catch(e) {break};
-}
-
-</script>
-</body>
-</html>
Deleted: grass/trunk/mswindows/external/rbatch/movedir.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/movedir.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/movedir.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,21 +0,0 @@
- at echo off
-setlocal
-:: Usage:
-:: If arg1 and arg2 are the library subdirectories of two R distributions
-:: then all libraries in arg1 that are not already in arg2 are moved to
-:: arg2. Note that this is a fast way of upgrading to a new version of
-:: R but won't work if the versions of R have different library formats.
-:: Example:
-:: cd \Program Files\R
-:: movedir R-2.2.0\library R-2.2.0pat\library
-::
-if not "%2"=="" goto:run
-echo Usage: movedir fromdir todir
-echo All files/directories in fromdir that do not also exist in todir are moved.
-echo e.g.
-echo cd \Program Files\R
-echo movedir R-2.2.0\library R-2.3.0\library
-goto:eof
-:run
-for /D %%a in ("%~1\*") do if not exist %2\%%~na move "%%a" "%~2\%%~nxa"
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/rterm.bat
===================================================================
--- grass/trunk/mswindows/external/rbatch/rterm.bat 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/rterm.bat 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,239 +0,0 @@
-
- at echo off
-rem if /i "%1"==path (path %2) && goto:eof
-
-setlocal
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: Placing this file in your path will allow rcmd to be run anywhere
-:: without changing your path environment variable. See comments
-:: below on how it finds where R is. Your path can be listed by
-:: the Windows console command: path
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-rem at one tine this script had only been tested on XP
-rem recent tests have only been on Vista
-rem ver | findstr XP >NUL
-rem if errorlevel 1 echo Warning: This script has only been tested on Windows XP.
-
-set scriptdir_=%~dp0
-set lookin=.;%userprofile%;%scriptdir_%
-if not defined R_BATCHFILES_RC (
- for %%f in ("rbatchfilesrc.bat") do set "R_BATCHFILES_RC=%%~$lookin:f"
-)
-if defined R_BATCHFILES_RC (
- if exist "%R_BATCHFILES_RC%" call %R_BATCHFILES_RC%
-)
-
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: use environment variable R_HOME if defined
-:: else current folder if bin\rcmd.exe exists
-:: else most current R as determined by registry entry
-:: else error
-:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-if not defined R_HOME if exist bin\r.exe set R_HOME=%CD%
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\R /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\r-core\r /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_HOME=%%~b
-if not defined R_HOME echo "Error: R not found" & goto:eof
-
-call :process_arch %*
-
-:: add R_MIKTEX to PATH if defined. Otherwise if its not
-:: in the PATH already then check \Program Files\miktex* or \miktex*
-:: and if found add that to PATH.
-
-:: if miktex found in PATH skip searching for it
-PATH | findstr /i miktex > nul
-if not errorlevel 1 goto:end_miktex
-
-:: check for presence of %ProgramFiles%\miktex* or \miktex*
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\miktex* 2^>NUL'
-) do set R_MIKTEX=%ProgramFiles%\%%a
-
-if not defined R_MIKTEX for /f "delims=" %%a in (
- 'dir /b /on %SystemDrive%:\miktex* 2^>NUL'
-) do set R_MIKTEX=%SystemDrive%:\miktex\%%a
-
-:end_miktex
-if defined R_MIKTEX PATH %R_MIKTEX%\miktex\bin;%PATH%
-
-if not defined MYSQL_HOME for /f "delims=" %%a in (
- 'dir /b /on "%ProgramFiles%"\MySQL\* 2^>NUL'
-) do set MYSQL_HOME=%ProgramFiles%\MySQL\%%a
-
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\R-core\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-if not defined R_TOOLS for /f "tokens=2*" %%a in (
- 'reg query hklm\software\wow6432Node\Rtools /v InstallPath 2^>NUL ^| findstr InstallPath'
- ) do set R_TOOLS=%%~b
-
-set PATHQ=%PATH%
-:WHILE
- if "%PATHQ%"=="" goto WEND
- for /F "delims=;" %%i in ("%PATHQ%") do if exist "%%~sfi" set PATH2=%PATH2%;%%~sfi
- for /F "delims=; tokens=1,*" %%i in ("%PATHQ%") do set PATHQ=%%j
- goto WHILE
-:WEND
-
-set path2=%path2:~1%
-
-if defined R_TOOLS (
- set path2=%R_TOOLS%\bin;%R_TOOLS%\perl\bin;%R_TOOLS%\MinGW\bin;%PATH2%
-)
-
-path %path2%
-
-set here=%CD%
-set args=%*
-
-:: get name by which this command was called
-:: this allows same file to be used for Rgui, Rterm, etc. by just renaming it
-for %%i in (%0) do set cmd=%%~ni.exe
-
-if /i %cmd%==rtools.exe (endlocal & set path=%path2%) && goto:eof
-
-cd %R_HOME%\bin
-if /i not %cmd%==rguistart.exe goto:notRguiStart
- set cmd=rgui.exe
- set firstArgument=%1
- if defined firstArgument (
- dir %1 | findstr "<DIR>" > nul
- if errorlevel 1 goto:notRguiStart
- set here=%~1
- set firstArgument=
- )
- set args=
- shift
- :startloop
- set firstArgument=%1
- if defined firstArgument (
- set args=%args% "%~1"
- shift
- goto:startloop
- )
-:notRguiStart
-
-set st=
-if /i %cmd%==rgui.exe set st=start
-
-if /i not %cmd%==#Rscript.exe goto:not#Rscript
-set cmd=Rscript.exe
-if [%1]==[] goto:help#Rscript
-call :rsarg1 %*
-goto:not#Rscript
-:rsarg1
-set args=%*
-set arg1=%~1
-set arg1=%arg1:.bat.bat=.bat%
-set last4=%arg1:~-4%
-if /i not "%last4%"==".bat" set arg1=%arg1%.bat
-for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
-call set args=%%args:%1="%arg1%"%%
-rem call set args=%%args:%1=%%
-goto:eof
-:not#Rscript
-
-cd %here%
-
-:: Look in architecture specific subdirectory of bin. If not there look in bin.
-set cmdpath=%R_HOME%\bin\%R_ARCH0%\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-set cmdpath=%R_HOME%\bin\%cmd%
-if exist "%cmdpath%" goto:cmdpathfound
-echo "Error: %cmd% not found" & goto:eof
-:cmdpathfound
-
-:: if called as jgr.bat locate the JGR package to find jgr.exe
-if /i not %cmd%==jgr.exe goto:notJGR
- set st=start
- set cmdpath=jgr.exe
- if not defined JGR_LIBS set JGR_LIBS=%R_LIBS%
- for %%a in ("%R_HOME%\bin\Rscript.exe") do set RSCRIPT=%%~sfa
- if not defined JGR_LIBS for /f "usebackq delims=" %%a in (
- `%RSCRIPT% -e "cat(.libPaths(),sep=';')"`
- ) do set JGR_LIBS=%%~a
- if not defined JGR_LIBS (
- echo "Error: JGR package not found in R library" & goto:eof
- )
- for %%f in ("JGR") do set "jgrpkg=%%~$JGR_LIBS:f"
- set JGR_LIB=%jgrpkg:~0,-4%
- for %%a in ("%JGR_LIB%") do set JGR_LIB_SHORT=%%~sfa
- for %%a in ("%R_HOME%") do set R_HOME_SHORT=%%~sfa
- set args=--libpath=%JGR_LIB_SHORT% --rhome=%R_HOME_SHORT%
-
-:notJGR
-
-rem set R_ARCH
-rem set R_ARCH0
-rem set cmdpath
-rem if defined st set st
-rem set args
-
-set cygwin=nodosfilewarning
-if not defined args goto:noargs
-if defined st (start "" "%cmdpath%" %args%) else "%cmdpath%" %args%
-goto:eof
-:noargs
-if defined st (start "" "%cmdpath%") else "%cmdpath%"
-goto:eof
-
-:help#Rscript
-echo Usage: #Rscript %%0 %%*
-echo If the above is the first line in a file
-echo containing only R code and the file is
-echo given a .bat extension then it can be
-echo run as a batch file.
-goto:eof
-
-
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:: processing of --arch= where value can be 32, 64, i386, x64, /i386, /x64
-
-:: Call it like this: call :process_arch %*
-:: On return R_ARCH will be set from --arch or R_ARCH or default
-:: and R_ARCH0 will be R_ARCH without the / prefix
-:: It will look for the architecture in these places in this order:
-:: - first arg if its --arch
-:: - environment variable R_ARCH
-:: - check if R_HOME\bin\i386 exists
-:: - if R_HOME\bin\x64 exists
-:: - if none of the above then use R_ARCH=/i386
-:: Note that R_HOME should be defined before calling this routine
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:process_arch
- if defined R_ARCH goto:process_arch_cont
- :: The loop searches for --arch and sets R_ARCH to the next argument
- :process_arch_loop
- set arg=%~1
- shift
- if not defined arg goto :process_arch_cont
- if "%arg%"=="--arch" set R_ARCH=%1
- if defined R_ARCH goto:process_arch_cont
- goto:process_arch_loop
- :process_arch_cont
- if defined process_arg_arch goto:process_arch_defined
- if exist %R_HOME%\bin\i386 (set R_ARCH=/i386) & goto:process_arch_defined
- if exist %R_HOME%\bin\x64 (set R_ARCH=/x64) & goto:process_arch_defined
- (set R_ARCH=/i386)
- :process_arch_defined
- if "%R_ARCH%"=="32" (set R_ARCH=/i386)
- if "%R_ARCH%"=="386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="i386" (set R_ARCH=/i386)
- if "%R_ARCH%"=="64" (set R_ARCH=/x64)
- if "%R_ARCH%"=="x64" (set R_ARCH=/x64)
- :: if R_ARCH does not begin with a slash add one as a prefix
- (set first_char=%R_ARCH:~0,1%)
- if not "%first_char%" == "/" (set R_ARCH=/%R_ARCH%)
- :: R_ARCH0 is like R_ARCH but without the beginning /
- (set R_ARCH0=%R_ARCH:~1%)
- goto:eof
-
-endlocal
Deleted: grass/trunk/mswindows/external/rbatch/show-svn-info.hta
===================================================================
--- grass/trunk/mswindows/external/rbatch/show-svn-info.hta 2014-04-05 20:38:19 UTC (rev 59583)
+++ grass/trunk/mswindows/external/rbatch/show-svn-info.hta 2014-04-05 20:43:48 UTC (rev 59584)
@@ -1,45 +0,0 @@
-<head>
-<STYLE TYPE="text/css">
-.highlight {background:#ff00ff}
-.text {color:#ff00ff}
-.both {color:white;background:black}
-</STYLE>
-<title>show-svn-info</title>
-</head>
-<body onLoad="window.resizeTo(650,450);">
-<h1>Tortoise SubVersion</h1>
-<A href="http://batchfiles.googlecode.com">batchfiles home page</a>
-<A href="http://cran.r-project.org/contrib/extra/batchfiles/">(CRAN)</a><br><br>
-<A href="http://tortoisesvn.net">Tortoise SVN home page</a>
-<A href="http://tortoisesvn.net/help">(Help)</a>
-<A href="http://groups.google.com/group/tortoisesvn">(Forum)</a>
-<A href="http://groups.google.com/group/tortoisesvn-dev">(Devel Forum)</a><br><br>
-<script type="text/jscript">
-
-// based on code in section 6.4 of Tortoise SVN manual
-
-// testCOM.js - javascript file
-// test script for the SubWCRev COM/Automation-object
-
-filesystem = new ActiveXObject("Scripting.FileSystemObject");
-
-SubWCRev1 = new ActiveXObject("SubWCRev.object");
-SubWCRev2 = new ActiveXObject("SubWCRev.object");
-SubWCRev3 = new ActiveXObject("SubWCRev.object");
-
-SubWCRev1.GetWCInfo(filesystem.GetAbsolutePathName("."), 0, 0);
-SubWCRev2.GetWCInfo(filesystem.GetAbsolutePathName(".."), 1, 1);
-SubWCRev3.GetWCInfo(filesystem.GetAbsolutePathName("SubWCRev.cpp"),
- 0, 0);
-
-sInfo1 = "Revision = " + SubWCRev1.Revision + "<br>" +
- "\nMin Revision = " + SubWCRev1.MinRev + "<br>" +
- "\nMax Revision = " + SubWCRev1.MaxRev + "<br>" +
- "\nDate = " + SubWCRev1.Date + "<br>" +
- '\nURL = <a href="' + SubWCRev1.Url + '">' + SubWCRev1.Url + "</a><br>" +
- "\nAuthor = " + SubWCRev1.Author + "<br>" +
- "\nHasMods = " + SubWCRev1.HasModifications;
-document.write(sInfo1);
-</script>
-</body>
-</html>
More information about the grass-commit
mailing list