Mercurial > mxe-octave

diff installer-files/octave-firsttime.vbs @ 4028:8803dfa40236

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
nsis installer: set directory to userprofile on startof octave from installer (Bug #45899) * installer-files/octave-firsttime.vbs: new file * binary-dist-rules.mk: copy octave-firsttime.vbs to disy folder * dist-files.mk: add installer-files/octave-firsttime.vbs * makeinst-script.sh: install and then run octave-firsttime.vbs if the run checkbox is selected at end of install.
author John Donoghue
date Wed, 16 Sep 2015 07:51:27 -0400
parents
children cc549d1865cb
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/installer-files/octave-firsttime.vbs	Wed Sep 16 07:51:27 2015 -0400
@@ -0,0 +1,30 @@
+' 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
+