batch change to include R in winpython.ini

Author: stonebig

make.py

@@ -636,14 +636,49 @@ def _create_batch_scripts(self):
 cmd.exe /k
 """)
 
+
+        self.create_batch_script('Add_or_removeLine.vbs',r"""
+'from http://blogs.technet.com/b/heyscriptingguy/archive/2007/09/07/
+' how-can-i-remove-any-line-in-a-text-file-that-contains-a-specified-string-value.aspx
+If WScript.Arguments.Count <> 3 then
+  WScript.Echo "usage: Add_or_removeLine.vbs filename word_to_find line_to_add" &_
+  vbNewLine & "or         Add_or_removeLine.vbs filename word_to_find -remove"
+  WScript.Quit
+end If
+
+Set colArgs = WScript.Arguments
+Add_or_removeLine colArgs(0), colArgs(1), colArgs(2) 
+
+function Add_or_removeLine(strFilename, strFind, strAction)
+    Set inputFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(strFilename, 1)
+    a_change = False
+    Do Until inputFile.AtEndOfStream
+        strLine = inputFile.ReadLine
+        If InStr(strLine, strFind) = 0 Then
+            result_text= result_text & strLine & vbNewLine 
+        else
+           a_change = True
+           if strAction <> "-remove" then result_text= result_text & strLine & vbNewLine & strAction & vbNewLine
+        End If
+    Loop
+    inputFile.Close
+
+    if a_change then
+        Set outputFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(strFilename,2,true)
+        outputFile.Write result_text
+        outputFile.Close
+    end if    
+end function
+""")
+
         self.create_batch_script('start_with_r.bat', r"""@echo off
 call %~dp0env.bat
 
 rem ******************
 rem R part (supposing you install it in \tools\R of winpython)
 rem ******************
 set tmp_Rdirectory=R
-if not exist "%WINPYDIR%\..\tools\%tmp_Rdirectory%\bin" goto r_end
+if not exist "%WINPYDIR%\..\tools\%tmp_Rdirectory%\bin" goto r_bad
 
 rem  R_HOME for rpy2, R_HOMEBIN for PATH
 set R_HOME=%WINPYDIR%\..\tools\%tmp_Rdirectory%\
@@ -653,15 +688,31 @@ def _create_batch_scripts(self):
 set PATH=%SYS_PATH%;%R_HOMEbin%
 
 echo "r!"
-echo "if you want it to be on your winpython icon, update %WINPYDIR%\settings\winpython.ini with"
-echo "PATH=%path%"
-echo " "
-echo to launch Ipython with R, type now "Ipython notebook"
-rem Ipython notebook
+echo "We are going to  update %WINPYDIR%\settings\winpython.ini with"
+echo "R_HOME = %R_HOME%"
+echo "(relaunch this batch, if you move your winpython)"
+pause
 
-:r_end
+%~dp0Add_or_removeLine.vbs ..\settings\winpython.ini  "R_HOME = " -remove
 
-cmd.exe /k
+rem Handle case when winpython.ini is not already created
+if exist "..\settings\winpython.ini" goto ini_exists 
+
+echo [debug]>"..\settings\winpython.ini"
+echo state = disabled>>"..\settings\winpython.ini"
+echo [environment]>>"..\settings\winpython.ini"
+
+:ini_exists 
+%~dp0Add_or_removeLine.vbs ..\settings\winpython.ini  "[environment]" "R_HOME = %R_HOME%"
+goto r_end
+
+:r_bad 
+
+echo directory "%WINPYDIR%\..\tools\%tmp_Rdirectory%\bin" not found
+echo please install R at "%WINPYDIR%\..\tools\%tmp_Rdirectory%" 
+pause
+
+:r_end
 """)
         # Prepare a live patch on python (shame we need it) to have mingw64ok
         patch_distutils = ""