octave: src/main.in.cc annotate

annotate src/main.in.cc @ 17994:a99b7d656a6c

start in CLI mode if display is not available (bug #40685) * main.in.cc (display_available): New function. (main): Use it. If no display is available, start in CLI mode. * src/Makefile.am (octave_LDADD): Include $(CARBON_LIBS) and $(X11_LIBS) in the list.

author	John W. Eaton <jwe@octave.org>
date	Sun, 24 Nov 2013 02:57:32 -0500
parents	1329866151be
children	b992a17767fe

rev	line source
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	1 // %NO_EDIT_WARNING%
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	2 /*
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	3
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	4 Copyright (C) 2012-2013 John W. Eaton
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	5
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	6 This file is part of Octave.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	7
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	8 Octave is free software; you can redistribute it and/or modify it
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	9 under the terms of the GNU General Public License as published by the
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	10 Free Software Foundation; either version 3 of the License, or (at your
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	11 option) any later version.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	12
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	13 Octave is distributed in the hope that it will be useful, but WITHOUT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	16 for more details.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	17
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	18 You should have received a copy of the GNU General Public License
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	19 along with Octave; see the file COPYING. If not, see
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	20 <http://www.gnu.org/licenses/>.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	21
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	22 */
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	23
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	24 // NOTE: This program is supposed to be a small wrapper that exists
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	25 // primarily to give up the controlling TTY and then exec Octave with
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	26 // its GUI. It may also execute Octave without the GUI or the command
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	27 // line version of Octave that is not linked with GUI libraries. So
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	28 // that it remains small, it should NOT depend on or be linked with
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	29 // liboctave or libinterp.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	30
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	31 #ifdef HAVE_CONFIG_H
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	32 #include <config.h>
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	33 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	34
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	35 #include <cstdlib>
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	36 #include <cstring>
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	37
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	38 #include <algorithm>
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	39 #include <iostream>
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	40 #include <string>
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	41
17805 2a15970da7f0 allow main.cc to build again with --disable-gui John W. Eaton <jwe@octave.org> parents: 17803 diff changeset	42 #include <sys/types.h>
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	43 #include <unistd.h>
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	44
17782 136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	45 #if defined (__WIN32__) && ! defined (_POSIX_VERSION)
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	46
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	47 #define WIN32_LEAN_AND_MEAN
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	48 #include <tlhelp32.h>
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	49
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	50 static std::string
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	51 w32_get_octave_home (void)
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	52 {
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	53 std::string retval;
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	54
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	55 std::string bin_dir;
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	56
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	57 HANDLE h = CreateToolhelp32Snapshot (TH32CS_SNAPMODULE
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	58 #ifdef TH32CS_SNAPMODULE32
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	59 \| TH32CS_SNAPMODULE32
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	60 #endif
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	61 , 0);
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	62
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	63 if (h != INVALID_HANDLE_VALUE)
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	64 {
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	65 MODULEENTRY32 mod_info;
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	66
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	67 ZeroMemory (&mod_info, sizeof (mod_info));
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	68 mod_info.dwSize = sizeof (mod_info);
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	69
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	70 if (Module32First (h, &mod_info))
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	71 {
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	72 do
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	73 {
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	74 std::string mod_name (mod_info.szModule);
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	75
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	76 if (mod_name.find ("octave") != std::string::npos)
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	77 {
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	78 bin_dir = mod_info.szExePath;
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	79
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	80 if (bin_dir[bin_dir.length () - 1] != '\\')
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	81 bin_dir.append (1, '\\');
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	82
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	83 break;
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	84 }
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	85 }
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	86 while (Module32Next (h, &mod_info));
17789 f2b047f9b605 Use GNU style coding conventions for code in src/. Rik <rik@octave.org> parents: 17784 diff changeset	87 }
17782 136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	88
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	89 CloseHandle (h);
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	90 }
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	91
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	92 if (! bin_dir.empty ())
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	93 {
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	94 size_t pos = bin_dir.rfind ("\\bin\\");
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	95
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	96 if (pos != std::string::npos)
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	97 retval = bin_dir.substr (0, pos);
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	98 }
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	99
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	100 return retval;
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	101 }
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	102
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	103 #endif
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	104
17994 a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	105 #include <cstdlib>
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	106
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	107 #if defined (OCTAVE_USE_WINDOWS_API)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	108 #include <windows.h>
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	109 #elif defined (HAVE_FRAMEWORK_CARBON)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	110 #include <Carbon/Carbon.h>
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	111 #elif defined (HAVE_X_WINDOWS)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	112 #include <X11/Xlib.h>
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	113 #endif
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	114
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	115 bool
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	116 display_available (std::string& err_msg)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	117 {
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	118 bool dpy_avail = false;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	119
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	120 err_msg = "";
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	121
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	122 #if defined (OCTAVE_USE_WINDOWS_API)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	123
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	124 HDC hdc = GetDC (0);
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	125
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	126 if (hdc)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	127 dpy_avail = true;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	128 else
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	129 err_msg = "no graphical display found";
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	130
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	131 #elif defined (HAVE_FRAMEWORK_CARBON)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	132
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	133 CGDirectDisplayID display = CGMainDisplayID ();
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	134
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	135 if (display)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	136 dpy_avail = true;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	137 else
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	138 err_msg = "no graphical display found";
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	139
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	140 #elif defined (HAVE_X_WINDOWS)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	141
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	142 const char *display_name = getenv ("DISPLAY");
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	143
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	144 if (display_name && *display_name)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	145 {
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	146 Display *display = XOpenDisplay (display_name);
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	147
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	148 if (display)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	149 {
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	150 Screen *screen = DefaultScreenOfDisplay (display);
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	151
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	152 if (! screen)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	153 err_msg = "X11 display has no default screen";
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	154
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	155 XCloseDisplay (display);
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	156
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	157 dpy_avail = true;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	158 }
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	159 else
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	160 err_msg = "unable to open X11 DISPLAY";
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	161 }
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	162 else
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	163 err_msg = "X11 DISPLAY environment variable not set";
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	164
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	165 #else
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	166
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	167 err_msg = "no graphical display found";
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	168
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	169 #endif
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	170
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	171 return dpy_avail;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	172 }
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	173
17814 e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	174 #if (defined (HAVE_OCTAVE_GUI) \
e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	175 && ! defined (__WIN32__) \|\| defined (__CYGWIN__))
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	176
17780 8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	177 #include <signal.h>
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	178 #include <fcntl.h>
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	179
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	180 // This is a liboctave header, but it doesn't include any other Octave
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	181 // headers or declare any functions that are defined in liboctave.
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	182 #include "syswait.h"
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	183
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	184 typedef void sig_handler (int);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	185
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	186 // Forward signals to the GUI process.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	187
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	188 static pid_t gui_pid = 0;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	189
17865 dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	190 static int caught_signal = -1;
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	191
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	192 static void
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	193 gui_driver_sig_handler (int sig)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	194 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	195 if (gui_pid > 0)
17865 dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	196 caught_signal = sig;
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	197 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	198
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	199 static sig_handler *
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	200 octave_set_signal_handler (int sig, sig_handler *handler)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	201 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	202 struct sigaction act, oact;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	203
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	204 act.sa_handler = handler;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	205 act.sa_flags = 0;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	206
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	207 gnulib::sigemptyset (&act.sa_mask);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	208 gnulib::sigemptyset (&oact.sa_mask);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	209
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	210 gnulib::sigaction (sig, &act, &oact);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	211
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	212 return oact.sa_handler;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	213 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	214
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	215 static void
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	216 install_signal_handlers (void)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	217 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	218
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	219 #ifdef SIGINT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	220 octave_set_signal_handler (SIGINT, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	221 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	222
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	223 #ifdef SIGBREAK
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	224 octave_set_signal_handler (SIGBREAK, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	225 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	226
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	227 #ifdef SIGABRT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	228 octave_set_signal_handler (SIGABRT, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	229 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	230
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	231 #ifdef SIGALRM
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	232 octave_set_signal_handler (SIGALRM, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	233 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	234
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	235 #ifdef SIGBUS
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	236 octave_set_signal_handler (SIGBUS, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	237 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	238
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	239 // SIGCHLD
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	240 // SIGCLD
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	241 // SIGCONT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	242
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	243 #ifdef SIGEMT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	244 octave_set_signal_handler (SIGEMT, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	245 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	246
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	247 #ifdef SIGFPE
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	248 octave_set_signal_handler (SIGFPE, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	249 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	250
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	251 #ifdef SIGHUP
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	252 octave_set_signal_handler (SIGHUP, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	253 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	254
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	255 #ifdef SIGILL
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	256 octave_set_signal_handler (SIGILL, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	257 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	258
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	259 // SIGINFO
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	260 // SIGINT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	261
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	262 #ifdef SIGIOT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	263 octave_set_signal_handler (SIGIOT, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	264 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	265
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	266 #ifdef SIGLOST
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	267 octave_set_signal_handler (SIGLOST, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	268 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	269
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	270 #ifdef SIGPIPE
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	271 octave_set_signal_handler (SIGPIPE, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	272 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	273
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	274 #ifdef SIGPOLL
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	275 octave_set_signal_handler (SIGPOLL, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	276 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	277
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	278 // SIGPROF
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	279 // SIGPWR
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	280
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	281 #ifdef SIGQUIT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	282 octave_set_signal_handler (SIGQUIT, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	283 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	284
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	285 #ifdef SIGSEGV
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	286 octave_set_signal_handler (SIGSEGV, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	287 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	288
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	289 // SIGSTOP
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	290
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	291 #ifdef SIGSYS
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	292 octave_set_signal_handler (SIGSYS, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	293 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	294
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	295 #ifdef SIGTERM
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	296 octave_set_signal_handler (SIGTERM, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	297 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	298
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	299 #ifdef SIGTRAP
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	300 octave_set_signal_handler (SIGTRAP, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	301 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	302
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	303 // SIGTSTP
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	304 // SIGTTIN
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	305 // SIGTTOU
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	306 // SIGURG
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	307
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	308 #ifdef SIGUSR1
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	309 octave_set_signal_handler (SIGUSR1, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	310 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	311
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	312 #ifdef SIGUSR2
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	313 octave_set_signal_handler (SIGUSR2, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	314 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	315
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	316 #ifdef SIGVTALRM
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	317 octave_set_signal_handler (SIGVTALRM, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	318 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	319
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	320 #ifdef SIGIO
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	321 octave_set_signal_handler (SIGIO, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	322 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	323
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	324 // SIGWINCH
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	325
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	326 #ifdef SIGXCPU
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	327 octave_set_signal_handler (SIGXCPU, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	328 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	329
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	330 #ifdef SIGXFSZ
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	331 octave_set_signal_handler (SIGXFSZ, gui_driver_sig_handler);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	332 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	333
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	334 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	335
17803 f5ada8597078 * main.in.cc (have_controlling_terminal): Return bool, not int. John W. Eaton <jwe@octave.org> parents: 17802 diff changeset	336 static bool
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	337 have_controlling_terminal (void)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	338 {
17803 f5ada8597078 * main.in.cc (have_controlling_terminal): Return bool, not int. John W. Eaton <jwe@octave.org> parents: 17802 diff changeset	339 int retval = false;
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	340
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	341 #if defined (HAVE_CTERMID)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	342 const char *ctty = ctermid (0);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	343 #else
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	344 const char *ctty = "/dev/tty";
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	345 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	346
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	347 int fd = gnulib::open (ctty, O_RDWR, 0);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	348
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	349 if (fd >= 0)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	350 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	351 gnulib::close (fd);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	352
17803 f5ada8597078 * main.in.cc (have_controlling_terminal): Return bool, not int. John W. Eaton <jwe@octave.org> parents: 17802 diff changeset	353 retval = true;
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	354 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	355
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	356 return retval;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	357 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	358
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	359 #endif
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	360
17780 8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	361 #ifndef OCTAVE_BINDIR
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	362 #define OCTAVE_BINDIR %OCTAVE_BINDIR%
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	363 #endif
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	364
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	365 #ifndef OCTAVE_PREFIX
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	366 #define OCTAVE_PREFIX %OCTAVE_PREFIX%
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	367 #endif
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	368
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	369 // Find the directory where the octave binary is supposed to be
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	370 // installed.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	371
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	372 #if (defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) \
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	373 && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM))
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	374 static const char dir_sep_char = '\\';
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	375 #else
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	376 static const char dir_sep_char = '/';
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	377 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	378
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	379 static std::string
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	380 octave_getenv (const std::string& name)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	381 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	382 char *value = ::getenv (name.c_str ());
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	383
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	384 return value ? value : "";
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	385 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	386
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	387 static std::string
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	388 get_octave_home (void)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	389 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	390 std::string oh = octave_getenv ("OCTAVE_HOME");
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	391
17782 136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	392 #if defined (__WIN32__) && ! defined (_POSIX_VERSION)
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	393 if (oh.empty ())
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	394 oh = w32_get_octave_home ();
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	395 #endif
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	396
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	397 return oh.empty () ? std::string (OCTAVE_PREFIX) : oh;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	398 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	399
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	400 static std::string
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	401 subst_octave_home (const std::string& s)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	402 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	403 std::string retval;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	404
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	405 std::string octave_home = get_octave_home ();
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	406
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	407 std::string prefix = OCTAVE_PREFIX;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	408
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	409 retval = s;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	410
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	411 if (octave_home != prefix)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	412 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	413 octave_idx_type len = prefix.length ();
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	414
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	415 if (s.substr (0, len) == prefix)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	416 retval.replace (0, len, octave_home);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	417 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	418
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	419 if (dir_sep_char != '/')
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	420 std::replace (retval.begin (), retval.end (), '/', dir_sep_char);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	421
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	422 return retval;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	423 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	424
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	425 static std::string
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	426 get_octave_bindir (void)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	427 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	428 // Accept value from the environment literally, but substitute
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	429 // OCTAVE_HOME in the configuration value OCTAVE_BINDIR in case Octave
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	430 // has been relocated to some installation directory other than the
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	431 // one originally configured.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	432
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	433 std::string obd = octave_getenv ("OCTAVE_BINDIR");
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	434
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	435 return obd.empty () ? subst_octave_home (std::string (OCTAVE_BINDIR)) : obd;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	436 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	437
17959 1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	438 #if defined (__WIN32__) && ! defined (__CYGWIN__) // Adapted from libtool wrapper.
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	439
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	440 /* Prepares an argument vector before calling spawn().
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	441 Note that spawn() does not by itself call the command interpreter
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	442 (getenv ("COMSPEC") != NULL ? getenv ("COMSPEC") :
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	443 ({ OSVERSIONINFO v; v.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	444 GetVersionEx(&v);
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	445 v.dwPlatformId == VER_PLATFORM_WIN32_NT;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	446 }) ? "cmd.exe" : "command.com").
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	447 Instead it simply concatenates the arguments, separated by ' ', and calls
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	448 CreateProcess(). We must quote the arguments since Win32 CreateProcess()
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	449 interprets characters like ' ', '\t', '\\', '"' (but not '<' and '>') in a
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	450 special way:
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	451 - Space and tab are interpreted as delimiters. They are not treated as
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	452 delimiters if they are surrounded by double quotes: "...".
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	453 - Unescaped double quotes are removed from the input. Their only effect is
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	454 that within double quotes, space and tab are treated like normal
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	455 characters.
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	456 - Backslashes not followed by double quotes are not special.
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	457 - But 2*n+1 backslashes followed by a double quote become
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	458 n backslashes followed by a double quote (n >= 0):
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	459 \" -> "
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	460 \\\" -> \"
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	461 \\\\\" -> \\"
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	462 */
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	463 #define SHELL_SPECIAL_CHARS "\"\\ \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037"
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	464 #define SHELL_SPACE_CHARS " \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037"
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	465 char **
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	466 prepare_spawn (char **argv)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	467 {
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	468 size_t argc;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	469 char **new_argv;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	470 size_t i;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	471
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	472 /* Count number of arguments. */
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	473 for (argc = 0; argv[argc] != NULL; argc++)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	474 ;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	475
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	476 /* Allocate new argument vector. */
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	477 new_argv = new char* [argc + 1];
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	478
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	479 /* Put quoted arguments into the new argument vector. */
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	480 for (i = 0; i < argc; i++)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	481 {
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	482 const char *string = argv[i];
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	483
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	484 if (string[0] == '\0')
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	485 new_argv[i] = strdup ("\"\"");
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	486 else if (strpbrk (string, SHELL_SPECIAL_CHARS) != NULL)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	487 {
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	488 int quote_around = (strpbrk (string, SHELL_SPACE_CHARS) != NULL);
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	489 size_t length;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	490 unsigned int backslashes;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	491 const char *s;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	492 char *quoted_string;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	493 char *p;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	494
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	495 length = 0;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	496 backslashes = 0;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	497 if (quote_around)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	498 length++;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	499 for (s = string; *s != '\0'; s++)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	500 {
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	501 char c = *s;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	502 if (c == '"')
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	503 length += backslashes + 1;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	504 length++;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	505 if (c == '\\')
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	506 backslashes++;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	507 else
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	508 backslashes = 0;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	509 }
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	510 if (quote_around)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	511 length += backslashes + 1;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	512
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	513 quoted_string = new char [length + 1];
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	514
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	515 p = quoted_string;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	516 backslashes = 0;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	517 if (quote_around)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	518 *p++ = '"';
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	519 for (s = string; *s != '\0'; s++)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	520 {
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	521 char c = *s;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	522 if (c == '"')
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	523 {
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	524 unsigned int j;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	525 for (j = backslashes + 1; j > 0; j--)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	526 *p++ = '\\';
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	527 }
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	528 *p++ = c;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	529 if (c == '\\')
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	530 backslashes++;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	531 else
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	532 backslashes = 0;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	533 }
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	534 if (quote_around)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	535 {
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	536 unsigned int j;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	537 for (j = backslashes; j > 0; j--)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	538 *p++ = '\\';
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	539 *p++ = '"';
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	540 }
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	541 *p = '\0';
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	542
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	543 new_argv[i] = quoted_string;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	544 }
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	545 else
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	546 new_argv[i] = (char *) string;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	547 }
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	548 new_argv[argc] = NULL;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	549
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	550 return new_argv;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	551 }
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	552
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	553 #endif // __WIN32__ && ! __CYGWIN__
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	554
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	555 static int
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	556 octave_exec (const std::string& file, char **argv)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	557 {
17959 1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	558 #if defined (__WIN32__) && ! defined (__CYGWIN__)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	559 argv = prepare_spawn (argv);
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	560 return _spawnv (_P_WAIT, file.c_str (), argv);
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	561 #else
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	562 execv (file.c_str (), argv);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	563
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	564 std::cerr << "octave: failed to exec '" << file << "'" << std::endl;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	565
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	566 return 1;
17959 1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	567 #endif
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	568 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	569
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	570 static char *
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	571 strsave (const char *s)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	572 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	573 if (! s)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	574 return 0;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	575
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	576 int len = strlen (s);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	577 char *tmp = new char [len+1];
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	578 tmp = strcpy (tmp, s);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	579 return tmp;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	580 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	581
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	582 int
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	583 main (int argc, char **argv)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	584 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	585 int retval = 0;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	586
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	587 bool start_gui = true;
17801 0b81d65d3c49 only fork and exec when starting gui John W. Eaton <jwe@octave.org> parents: 17789 diff changeset	588 bool gui_libs = true;
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	589
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	590 std::string octave_bindir = get_octave_bindir ();
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	591
17814 e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	592 std::string file = octave_bindir + dir_sep_char;
e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	593
e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	594 #if defined (HAVE_OCTAVE_GUI)
e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	595 file += "octave-gui";
e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	596 #else
e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	597 file += "octave-cli";
e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	598 #endif
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	599
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	600 char *new_argv = new char [argc + 1];
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	601
17959 1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	602 #if defined (__WIN32__) && ! defined (__CYGWIN__)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	603 int k = 1;
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	604 #else
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	605 int k = 0;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	606 new_argv[k++] = strsave ("octave");
17959 1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	607 #endif
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	608
17994 a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	609 bool warn_display = true;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	610
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	611 for (int i = 1; i < argc; i++)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	612 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	613 if (! strcmp (argv[i], "--no-gui-libs"))
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	614 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	615 // Run the version of Octave that is not linked with any GUI
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	616 // libraries. It may not be possible to do plotting or any
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	617 // ui* calls, but it will be a little faster to start and
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	618 // require less memory. Don't pass the --no-gui-libs option
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	619 // on as that option is not recognized by Octave.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	620
17994 a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	621 start_gui = false;
17801 0b81d65d3c49 only fork and exec when starting gui John W. Eaton <jwe@octave.org> parents: 17789 diff changeset	622 gui_libs = false;
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	623 file = octave_bindir + dir_sep_char + "octave-cli";
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	624 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	625 else if (! strcmp (argv[i], "--no-gui"))
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	626 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	627 // If we see this option, then we can just exec octave; we
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	628 // don't have to create a child process and wait for it to
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	629 // exit. But do exec "octave", not "octave-cli", because even
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	630 // if the --no-gui option is given, we may be asked to do some
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	631 // plotting or ui* calls.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	632
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	633 start_gui = false;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	634 new_argv[k++] = argv[i];
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	635 }
17994 a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	636 else if (! strcmp (argv[i], "--silent") \|\| ! strcmp (argv[i], "-q"))
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	637 warn_display = false;
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	638 else
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	639 new_argv[k++] = argv[i];
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	640 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	641
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	642 new_argv[k] = 0;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	643
17994 a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	644 if (gui_libs \|\| start_gui)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	645 {
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	646 std::string display_check_err_msg;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	647
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	648 if (! display_available (display_check_err_msg))
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	649 {
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	650 start_gui = false;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	651 gui_libs = false;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	652
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	653 file = octave_bindir + dir_sep_char + "octave-cli";
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	654
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	655 if (warn_display)
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	656 {
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	657 std::cerr << "octave: " << display_check_err_msg << std::endl;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	658 std::cerr << "octave: disabiling GUI features" << std::endl;
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	659 }
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	660 }
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	661 }
a99b7d656a6c start in CLI mode if display is not available (bug #40685) John W. Eaton <jwe@octave.org> parents: 17959 diff changeset	662
17814 e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	663 #if (defined (HAVE_OCTAVE_GUI) \
e50a3664bd45 make compilation of main.cc work again when not building GUI John W. Eaton <jwe@octave.org> parents: 17813 diff changeset	664 && ! defined (__WIN32__) \|\| defined (__CYGWIN__))
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	665
17801 0b81d65d3c49 only fork and exec when starting gui John W. Eaton <jwe@octave.org> parents: 17789 diff changeset	666 if (gui_libs && start_gui && have_controlling_terminal ())
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	667 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	668 install_signal_handlers ();
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	669
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	670 gui_pid = fork ();
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	671
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	672 if (gui_pid < 0)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	673 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	674 std::cerr << "octave: fork failed!" << std::endl;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	675
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	676 retval = 1;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	677 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	678 else if (gui_pid == 0)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	679 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	680 // Child.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	681
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	682 if (setsid () < 0)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	683 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	684 std::cerr << "octave: error calling setsid!" << std::endl;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	685
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	686 retval = 1;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	687 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	688
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	689 retval = octave_exec (file, new_argv);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	690 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	691 else
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	692 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	693 // Parent. Forward signals to the child while waiting for it
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	694 // to exit.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	695
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	696 int status;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	697
17865 dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	698 while (true)
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	699 {
17780 8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	700 WAITPID (gui_pid, &status, 0);
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	701
17865 dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	702 if (caught_signal > 0)
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	703 {
17865 dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	704 int sig = caught_signal;
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	705
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	706 caught_signal = -1;
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	707
17865 dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	708 kill (gui_pid, sig);
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	709 }
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	710 else if (WIFEXITED (status))
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	711 {
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	712 retval = WEXITSTATUS (status);
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	713 break;
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	714 }
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	715 else if (WIFSIGNALLED (status))
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	716 {
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	717 std::cerr << "octave exited with signal "
dde06c2ac6c6 improve signal handling in driver program John W. Eaton <jwe@octave.org> parents: 17814 diff changeset	718 << WTERMSIG (status) << std::endl;
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	719 break;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	720 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	721 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	722 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	723 }
17801 0b81d65d3c49 only fork and exec when starting gui John W. Eaton <jwe@octave.org> parents: 17789 diff changeset	724 else
0b81d65d3c49 only fork and exec when starting gui John W. Eaton <jwe@octave.org> parents: 17789 diff changeset	725 retval = octave_exec (file, new_argv);
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	726
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	727 #else
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	728
17959 1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	729 #if defined (__WIN32__) && ! defined (__CYGWIN__)
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	730 file += ".exe";
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	731 new_argv[0] = strsave (file.c_str ());
1329866151be [Win32] Use spawn instead of exec for main octave wrapper executable. Michael Goffioul <michael.goffioul@gmail.com> parents: 17865 diff changeset	732 #endif
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	733 retval = octave_exec (file, new_argv);
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	734
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	735 #endif
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	736
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	737 return retval;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	738 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	739
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	740 /*!
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	741 @mainpage Source code documentation for GNU Octave
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	742
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	743 GNU Octave is a high-level language, primarily intended for numerical
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	744 computations. It provides a convenient interactive command line
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	745 interface for solving linear and nonlinear problems numerically, and
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	746 for performing other numerical experiments. It may also be used as a
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	747 batch-oriented language for data processing.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	748
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	749 GNU Octave is free software. You may redistribute it and/or modify it
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	750 under the terms of the <a href="http://www.gnu.org/licenses/">GNU
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	751 General Public License</a> as published by the Free Software Foundation.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	752
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	753 This is the developer documentation for Octave's own source code. It is
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	754 intended to help for hacking Octave. It may also be useful for
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	755 understanding the Octave API when writing your own .oct files.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	756 */

Mercurial > octave

annotate src/main.in.cc @ 17994:a99b7d656a6c