Mercurial > mxe-octave

comparison installer-files/octave-firsttime.vbs @ 4258:a45374f7d9a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use 8.3 format for octave path * installer-files/octave-firsttime.vbs: convert OctavePath to shortpath * installer-files/octave.vbs: convert OctavePath to shortpath * installer-files/octave.bat: convert OCT_HOME to 8.3 path * tools/makeinst-script.sh.in: call pkg rbuild and fc_cache with 8.3 pathname
author John D
date Tue, 06 Dec 2016 02:27:58 -0500
parents 44b1a9b2193e
children b73fe78f73c3
comparison
equal deleted inserted replaced
4257:8f71549f53b9 4258:a45374f7d9a3
3 Set wshShell = CreateObject( "WScript.Shell" ) 3 Set wshShell = CreateObject( "WScript.Shell" )
4 4
5 ' get the directory that script resides in 5 ' get the directory that script resides in
6 Set fso = CreateObject("Scripting.FileSystemObject") 6 Set fso = CreateObject("Scripting.FileSystemObject")
7 OctavePath = fso.GetParentFolderName(WScript.ScriptFullName) 7 OctavePath = fso.GetParentFolderName(WScript.ScriptFullName)
8 ' get path as a 8.3 path
9 Set fo = fso.GetFolder(OctavePath)
10 OctavePath = fo.ShortPath
11 Set fo = Nothing
8 Set fso = Nothing 12 Set fso = Nothing
9 13
10 ' set up path to ensure octave bin comes first 14 ' set up path to ensure octave bin comes first
11 Set wshSystemEnv = wshShell.Environment( "PROCESS" ) 15 Set wshSystemEnv = wshShell.Environment( "PROCESS" )
12 wshSystemEnv("PATH") = OctavePath & "\bin;" & wshSystemEnv("PATH") 16 wshSystemEnv("PATH") = OctavePath & "\bin;" & wshSystemEnv("PATH")