Mercurial > mxe-octave
view installer-files/octave-firsttime.vbs @ 4654:b9e4ebcad82f
disable doc extraction for optim package
Disable the rules for extracting doc strings because they don't work
when cross compiling. Our patches to the source files don't touch the
doc strings, so there is no need to update them anyway.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 10 Apr 2018 07:50:10 -0400 |
parents | c3950e2b4066 |
children | 202fa20cf559 |
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") = "wxt" 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 ' set directory to users startpath = wshShell.ExpandEnvironmentStrings("%UserProfile%") wshShell.CurrentDirectory = startpath GUIArg = " " & chr(34) & "--gui" & chr(34) wshShell.Run chr(34) & OctavePath & "\bin\octave-gui.exe" & Chr(34) & GUIArg, 0 ' free our objects Set fso = Nothing Set wshShell = Nothing Set wshSystemEnv = Nothing Set wshArgs = Nothing