Mercurial > mxe-octave
view installer-files/octave.vbs @ 3989:cdbce8086eaa
of-ocs: new package
* Makefile.in: add ocs to OCTAVE_FORGE_PACKAGES
* build_packages.m: add ocs-0.1.4.tar.gz to install
* dist-files.mk: add refs to of-ocs-1-cross-fixes.patch, of-ocs.mk
* src/of-ocs-1-cross-fixes.patch: new file
* src/of-ocs.mk: new file
* index.html: add of-ocs
author | John Donoghue <john.donoghue@ieee.org> |
---|---|
date | Tue, 07 Jul 2015 20:43:46 -0400 |
parents | 586b26b09042 |
children | 908a2a0cf6d6 |
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" ' 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 wshShell = Nothing Set wshSystemEnv = Nothing Set wshArgs = Nothing