octave-nkf: src/main.in.cc annotate

annotate src/main.in.cc @ 17813:0a887758d1cc

fix compilation of main.cc on Windows * main.in.cc: Do use ifdefs. We can't compile some of this code on Windows systems. Correct test for Cygwin.

author	John W. Eaton <jwe@octave.org>
date	Thu, 31 Oct 2013 02:25:47 -0400
parents	2a15970da7f0
children	e50a3664bd45

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
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	105 #if ! 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	106
17780 8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	107 #include <signal.h>
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	108 #include <fcntl.h>
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	109
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	110 // 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	111 // 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	112 #include "syswait.h"
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	113
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	114 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	115
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	116 // 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	117
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	118 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	119
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	120 static void
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	121 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	122 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	123 if (gui_pid > 0)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	124 kill (gui_pid, sig);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	125 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	126
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	127 static sig_handler *
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	128 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	129 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	130 struct sigaction act, oact;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	131
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	132 act.sa_handler = handler;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	133 act.sa_flags = 0;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	134
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	135 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	136 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	137
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	138 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	139
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	140 return oact.sa_handler;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	141 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	142
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	143 static void
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	144 install_signal_handlers (void)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	145 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	146
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	147 #ifdef SIGINT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	148 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	149 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	150
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	151 #ifdef SIGBREAK
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	152 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	153 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	154
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	155 #ifdef SIGABRT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	156 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	157 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	158
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	159 #ifdef SIGALRM
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	160 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	161 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	162
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	163 #ifdef SIGBUS
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	164 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	165 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	166
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	167 // SIGCHLD
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	168 // SIGCLD
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	169 // SIGCONT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	170
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	171 #ifdef SIGEMT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	172 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	173 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	174
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	175 #ifdef SIGFPE
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	176 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	177 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	178
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	179 #ifdef SIGHUP
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	180 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	181 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	182
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	183 #ifdef SIGILL
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	184 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	185 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	186
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	187 // SIGINFO
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	188 // SIGINT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	189
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	190 #ifdef SIGIOT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	191 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	192 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	193
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	194 #ifdef SIGLOST
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	195 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	196 #endif
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 #ifdef SIGPIPE
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	199 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	200 #endif
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 #ifdef SIGPOLL
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	203 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	204 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	205
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	206 // SIGPROF
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	207 // SIGPWR
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	208
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	209 #ifdef SIGQUIT
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	210 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	211 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	212
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	213 #ifdef SIGSEGV
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	214 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	215 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	216
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	217 // SIGSTOP
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 SIGSYS
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 (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	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 SIGTERM
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 (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	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 SIGTRAP
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 (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	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 // SIGTSTP
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	232 // SIGTTIN
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	233 // SIGTTOU
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	234 // SIGURG
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	235
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	236 #ifdef SIGUSR1
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	237 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	238 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	239
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	240 #ifdef SIGUSR2
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	241 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	242 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	243
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	244 #ifdef SIGVTALRM
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	245 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	246 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	247
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	248 #ifdef SIGIO
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	249 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	250 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	251
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	252 // SIGWINCH
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	253
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	254 #ifdef SIGXCPU
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	255 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	256 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	257
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	258 #ifdef SIGXFSZ
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	259 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	260 #endif
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 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	263
17803 f5ada8597078 * main.in.cc (have_controlling_terminal): Return bool, not int. John W. Eaton <jwe@octave.org> parents: 17802 diff changeset	264 static bool
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	265 have_controlling_terminal (void)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	266 {
17803 f5ada8597078 * main.in.cc (have_controlling_terminal): Return bool, not int. John W. Eaton <jwe@octave.org> parents: 17802 diff changeset	267 int retval = false;
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	268
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	269 #if defined (HAVE_CTERMID)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	270 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	271 #else
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	272 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	273 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	274
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	275 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	276
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	277 if (fd >= 0)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	278 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	279 gnulib::close (fd);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	280
17803 f5ada8597078 * main.in.cc (have_controlling_terminal): Return bool, not int. John W. Eaton <jwe@octave.org> parents: 17802 diff changeset	281 retval = true;
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	282 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	283
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	284 return retval;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	285 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	286
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	287 #endif
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	288
17780 8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	289 #ifndef OCTAVE_BINDIR
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	290 #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	291 #endif
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	292
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	293 #ifndef OCTAVE_PREFIX
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	294 #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	295 #endif
8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	296
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	297 // 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	298 // installed.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	299
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	300 #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	301 && ! 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	302 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	303 #else
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	304 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	305 #endif
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	306
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	307 static std::string
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	308 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	309 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	310 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	311
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	312 return value ? value : "";
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	313 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	314
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	315 static std::string
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	316 get_octave_home (void)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	317 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	318 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	319
17782 136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	320 #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	321 if (oh.empty ())
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	322 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	323 #endif
136a9e27256e automatically locate wrapper binary on Windows systems (bug #40381) John W. Eaton <jwe@octave.org> parents: 17780 diff changeset	324
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	325 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	326 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	327
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	328 static std::string
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	329 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	330 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	331 std::string retval;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	332
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	333 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	334
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	335 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	336
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	337 retval = s;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	338
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	339 if (octave_home != prefix)
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 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	342
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	343 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	344 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	345 }
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 if (dir_sep_char != '/')
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	348 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	349
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	350 return retval;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	351 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	352
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	353 static std::string
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	354 get_octave_bindir (void)
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 // 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	357 // 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	358 // 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	359 // one originally configured.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	360
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	361 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	362
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	363 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	364 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	365
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	366 static int
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	367 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	368 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	369 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	370
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	371 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	372
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	373 return 1;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	374 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	375
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	376 static char *
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	377 strsave (const char *s)
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 if (! s)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	380 return 0;
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 int len = strlen (s);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	383 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	384 tmp = strcpy (tmp, s);
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	385 return tmp;
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
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	388 int
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	389 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	390 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	391 int retval = 0;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	392
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	393 #if (defined (HAVE_OCTAVE_GUI) \
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	394 && (! 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	395 bool start_gui = true;
17801 0b81d65d3c49 only fork and exec when starting gui John W. Eaton <jwe@octave.org> parents: 17789 diff changeset	396 bool gui_libs = true;
17784 7ae9bc04ec07 allow octave binary to work if building GUI is disabled (bug #40395) John W. Eaton <jwe@octave.org> parents: 17782 diff changeset	397 #endif
17778 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 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	400
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	401 std::string file = octave_bindir + dir_sep_char + "octave-gui";
17778 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 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	404
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	405 int k = 0;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	406 new_argv[k++] = strsave ("octave");
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	407
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	408 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	409 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	410 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	411 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	412 // 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	413 // 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	414 // 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	415 // 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	416 // 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	417
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	418 #if ! defined (__WIN32__) \|\| defined (__CYGWIN__)
17801 0b81d65d3c49 only fork and exec when starting gui John W. Eaton <jwe@octave.org> parents: 17789 diff changeset	419 gui_libs = false;
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	420 #endif
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	421 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	422 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	423 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	424 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	425 // 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	426 // 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	427 // 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	428 // 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	429 // plotting or ui* calls.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	430
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	431 #if ! 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	432 start_gui = false;
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	433 #endif
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	434 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	435 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	436 else
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	437 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	438 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	439
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	440 new_argv[k] = 0;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	441
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	442 #if ! defined (__WIN32__) \|\| defined (__CYGWIN__)
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	443
17801 0b81d65d3c49 only fork and exec when starting gui John W. Eaton <jwe@octave.org> parents: 17789 diff changeset	444 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	445 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	446 install_signal_handlers ();
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	447
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	448 gui_pid = fork ();
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	449
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	450 if (gui_pid < 0)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	451 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	452 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	453
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	454 retval = 1;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	455 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	456 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	457 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	458 // Child.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	459
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	460 if (setsid () < 0)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	461 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	462 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	463
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	464 retval = 1;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	465 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	466
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	467 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	468 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	469 else
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	470 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	471 // 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	472 // to exit.
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	473
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	474 int status;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	475
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	476 while (1)
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	477 {
17780 8b353af4a1ca allow octave main program to work on Windows systems John W. Eaton <jwe@octave.org> parents: 17778 diff changeset	478 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	479
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	480 if (WIFEXITED (status))
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	481 {
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	482 retval = WIFEXITED (status) ? WEXITSTATUS (status) : 127;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	483
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	484 break;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	485 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	486 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	487 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	488 }
17801 0b81d65d3c49 only fork and exec when starting gui John W. Eaton <jwe@octave.org> parents: 17789 diff changeset	489 else
0b81d65d3c49 only fork and exec when starting gui John W. Eaton <jwe@octave.org> parents: 17789 diff changeset	490 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	491
17813 0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	492 #else
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	493
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	494 retval = octave_exec (file, new_argv);
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	495
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	496 #endif
0a887758d1cc fix compilation of main.cc on Windows John W. Eaton <jwe@octave.org> parents: 17805 diff changeset	497
17778 b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	498 return retval;
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	499 }
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	500
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	501 /*!
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	502 @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	503
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	504 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	505 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	506 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	507 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	508 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	509
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	510 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	511 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	512 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	513
b5d58667d32d new main program wrapper to handle giving up controlling tty John W. Eaton <jwe@octave.org> parents: diff changeset	514 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	515 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	516 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	517 */

Mercurial > octave-nkf

annotate src/main.in.cc @ 17813:0a887758d1cc