Mercurial > mxe-octave

diff installer-files/octave.vbs @ 4276:b73fe78f73c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
If home not set, set it to userprofile * installer-files/octave-firsttime.vbs, installer-files/octave.bat, installer-files/octave.vbs: if HOME env not set, set it to user profile
author John D
date Thu, 15 Dec 2016 12:57:41 -0500
parents a45374f7d9a3
children 0fdeee4cfe11
line wrap: on
line diff
--- a/installer-files/octave.vbs	Thu Dec 15 14:11:05 2016 -0500
+++ b/installer-files/octave.vbs	Thu Dec 15 12:57:41 2016 -0500
@@ -9,7 +9,6 @@
 Set fo = fso.GetFolder(OctavePath)
 OctavePath = fo.ShortPath
 Set fo = Nothing
-Set fso = Nothing
 
 ' set up path to ensure octave bin comes first
 Set wshSystemEnv = wshShell.Environment( "PROCESS" )
@@ -21,6 +20,13 @@
 
 wshSystemEnv("GS") = "gs.exe"
 
+If wshShell.ExpandEnvironmentStrings("%HOME%") = "%HOME%" Then
+  Home = wshSystemEnv("USERPROFILE")
+  Set fo = fso.GetFolder(Home)
+  wshSystemEnv("HOME") = fo.ShortPath
+  Set fo = Nothing
+End If
+
 ' set Qt plugin directory and path 
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 If objFSO.FolderExists(OctavePath & "\qt5\bin") Then
@@ -48,6 +54,7 @@
 End If
 
 ' free our objects
+Set fso = Nothing
 Set wshShell = Nothing
 Set wshSystemEnv = Nothing
 Set wshArgs = Nothing