Mercurial > mxe-octave
view installer-files/octave.vbs @ 4384:d5a5b8e659de
update PKG_UPDATE rules
* src/arpack.mk: add get of latest version number
* src/atk.mk: update version number extract
* src/damageproto.mk: add dummy update
* src/devil.mk: update version number extract
* src/fixesproto.mk: add dummy update
* src/flac.mk: update version number extract
* src/gdb.mk: update version number extract
* src/geos.mk: update version number extract
* src/gettext.mk: update version number extract
* src/glew.mk: update version number extract
* src/glib.mk: update version number extract
* src/gnutls.mk: update version number extract
* src/gsl.mk: update version number extract
* src/gsoap.mk: update version number extract
* src/gtkglarea.mk: update version number extract
* src/gtkglext.mk: update version number extract
* src/gtkglextmm.mk: update version number extract
* src/gtksourceview.mk: update version number extract
* src/gtksourceviewmm2.mk: update version number extract
* src/ice.mk: add dummy update
* src/imagemagick.mk: update version number extract
* src/inputproto.mk: add dummy update
* src/itsol.mk: add dummy update
* src/kbproto.mk: add dummy update
* src/lame.mk: update version number extract
author | John D |
---|---|
date | Tue, 02 May 2017 07:41:11 -0400 |
parents | b73fe78f73c3 |
children | 0fdeee4cfe11 |
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) ' get path as a 8.3 path Set fo = fso.GetFolder(OctavePath) OctavePath = fo.ShortPath Set fo = 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" wshSystemEnv("GNUTERM") = "windows" 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 wshSystemEnv("PATH") = OctavePath & "\qt5\bin;" & wshSystemEnv("PATH") wshSystemEnv("QT_PLUGIN_PATH") = OctavePath & "\qt5\plugins" Else wshSystemEnv("QT_PLUGIN_PATH") = OctavePath & "\plugins" End If ' check args to see if told to run gui or command line ' and build other args to use GUI_MODE=1 AllArgs = "" Set wshArgs = WScript.Arguments For I = 0 to wshArgs.Count - 1 if wshArgs(I) = "--no-gui" then GUI_MODE=0 AllArgs = AllArgs & " " & chr(34) & wshArgs(I) & chr(34) Next ' start octave-gui, either with console shown or hidden If GUI_MODE = 1 then wshShell.Run chr(34) & OctavePath & "\bin\octave-gui.exe" & Chr(34) & AllArgs, 0 Else wshShell.Run chr(34) & OctavePath & "\bin\octave-gui.exe" & Chr(34) & AllArgs, 1 End If ' free our objects Set fso = Nothing Set wshShell = Nothing Set wshSystemEnv = Nothing Set wshArgs = Nothing