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
+