Mercurial > mxe-octave
diff installer-files/octave.vbs @ 3817:6daa158a7018
nsis installer: use octave.vbs as laucher (Bug #41074)
* installer-files/octave.vbs: new file
* dist-files.mk: add octave.vbs
* makeinst-script.sh: use octave.vbs as laucher
author | John Donoghue <john.donoghue@ieee.org> |
---|---|
date | Mon, 02 Mar 2015 19:14:41 -0500 |
parents | |
children | 1191cff7f132 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/installer-files/octave.vbs Mon Mar 02 19:14:41 2015 -0500 @@ -0,0 +1,39 @@ +' 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 & ";" & wshSystemEnv("PATH") + +' set terminal type +wshSystemEnv("TERM") = "cygwin" + +' 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) = "--force-gui" then GUI_MODE=1 + if wshArgs(I) = "--no-gui" then GUI_MODE=0 + AllArgs = AllArgs & " " & chr(34) & wshArgs(I) & chr(34) +Next + +' start whatever octave we no want to run +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-cli.exe" & Chr(34) & AllArgs, 1 +End If + +' free our objects +Set wshShell = Nothing +Set wshSystemEnv = Nothing +Set wshArgs = Nothing +