Mercurial > mxe-octave
view installer-files/octave-firsttime.vbs @ 4059:b5a28d770997
of-communications, of-octcdf: update patch for default repo of octave
* src/of-communications-1-fixes.patch: update patch
* src/of-octcdf-1-cross-fixes.patch: update patch
author | John Donoghue |
---|---|
date | Wed, 25 Nov 2015 12:29:03 -0500 |
parents | 8803dfa40236 |
children | cc549d1865cb |
line wrap: on
line source
' script to run octave in gui/command mode Set wshShell = CreateObject( "WScript.Shell" ) ' get the directory that script resides in Set fso = CreateObject("Scripting.FileSystemObject") OctavePath = fso.GetParentFolderName(WScript.ScriptFullName) Set fso = Nothing ' set up path to ensure octave bin comes first Set wshSystemEnv = wshShell.Environment( "PROCESS" ) wshSystemEnv("PATH") = OctavePath & "\bin;" & wshSystemEnv("PATH") ' set terminal type wshSystemEnv("TERM") = "cygwin" ' set Qt plugin directory wshSystemEnv("QT_PLUGIN_PATH") = OctavePath & "\plugins" ' set directory to users startpath = wshShell.ExpandEnvironmentStrings("%UserProfile%") wshShell.CurrentDirectory = startpath wshShell.Run chr(34) & OctavePath & "\bin\octave-gui.exe" & Chr(34), 0 ' free our objects Set wshShell = Nothing Set wshSystemEnv = Nothing Set wshArgs = Nothing