octave: libinterp/corefcn/oct-procbuf.cc annotate

annotate libinterp/corefcn/oct-procbuf.cc @ 28223:45763d59cb4f stable

use nullptr instead of NULL or 0 in a few more places * QWinTerminalImpl.cpp, oct-procbuf.cc, audioread.cc, jit-typeinfo.cc, lo-sysdep.cc, url-transfer.cc, shared-fcns.h: Replace NULL and 0 with nullptr where appropriate.

author	John W. Eaton <jwe@octave.org>
date	Wed, 15 Apr 2020 15:55:32 -0400
parents	bd51beb6205e
children	0a5b15007766

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	3 // Copyright (C) 1996-2020 The Octave Project Developers
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	4 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	7 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	9 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	14 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	19 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ////////////////////////////////////////////////////////////////////////
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	25
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	26 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21200 diff changeset	27 # include "config.h"
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	28 #endif
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	29
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	30 #include <cerrno>
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	31
25438 cb1606f78f6b prefer <istream>, <ostream>, or <iosfwd> to <iostream> where possible John W. Eaton <jwe@octave.org> parents: 25054 diff changeset	32 #include <iomanip>
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	33
22264 9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	34 // FIXME: we would prefer to avoid including these directly in Octave
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	35 // sources, but eliminating them is complicated by the mingling of
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	36 // octave_procbuf_list and the calls to system library functions like
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	37 // execl.
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	38
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	39 #if defined (HAVE_UNISTD_H)
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	40 # if defined (HAVE_SYS_TYPES_H)
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	41 # include <sys/types.h>
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	42 # endif
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	43 # include <unistd.h>
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	44 #endif
9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	45
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3156 diff changeset	46 #include "lo-mappers.h"
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3156 diff changeset	47 #include "lo-utils.h"
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	48 #include "oct-procbuf.h"
5453 89f5979e8552 [project @ 2005-09-17 00:50:58 by jwe] jwe parents: 5451 diff changeset	49 #include "oct-syscalls.h"
6726 6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6725 diff changeset	50 #include "sysdep.h"
21910 4d723ba06b4a provide wrappers for some unistd.h functions John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	51 #include "unistd-wrappers.h"
3176 fccab8e7d35f [project @ 1998-05-18 20:33:31 by jwe] jwe parents: 3174 diff changeset	52 #include "variables.h"
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	53
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3156 diff changeset	54 #include "defun.h"
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 19697 diff changeset	55 #include "errwarn.h"
3308 7ae1928ca623 [project @ 1999-10-21 08:57:11 by jwe] jwe parents: 3258 diff changeset	56 #include "utils.h"
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3156 diff changeset	57
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	58 #if ! defined (SHELL_PATH)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21100 diff changeset	59 # define SHELL_PATH "/bin/sh"
15756 ea1a1fb00744 Make the path to the shell interpreter configuable Mike Miller <mtmiller@ieee.org> parents: 15195 diff changeset	60 #endif
ea1a1fb00744 Make the path to the shell interpreter configuable Mike Miller <mtmiller@ieee.org> parents: 15195 diff changeset	61
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	62 // This class is based on the procbuf class from libg++, written by
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	63 // Per Bothner, Copyright (C) 1993 Free Software Foundation.
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	64
24118 f87c9f5c0f43 maint: silence several compiler warnings when building for Windows Mike Miller <mtmiller@octave.org> parents: 23795 diff changeset	65 #if (! (defined (__CYGWIN__) \|\| defined (__MINGW32__) \|\| defined (_MSC_VER)) \
f87c9f5c0f43 maint: silence several compiler warnings when building for Windows Mike Miller <mtmiller@octave.org> parents: 23795 diff changeset	66 && defined (HAVE_UNISTD_H))
f87c9f5c0f43 maint: silence several compiler warnings when building for Windows Mike Miller <mtmiller@octave.org> parents: 23795 diff changeset	67
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23450 diff changeset	68 static octave_procbuf *octave_procbuf_list = nullptr;
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	69
24118 f87c9f5c0f43 maint: silence several compiler warnings when building for Windows Mike Miller <mtmiller@octave.org> parents: 23795 diff changeset	70 #endif
f87c9f5c0f43 maint: silence several compiler warnings when building for Windows Mike Miller <mtmiller@octave.org> parents: 23795 diff changeset	71
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	72 #if ! defined (BUFSIZ)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21100 diff changeset	73 # define BUFSIZ 1024
6094 86ee3cc8d8d2 [project @ 2006-10-26 01:18:33 by jwe] jwe parents: 5794 diff changeset	74 #endif
86ee3cc8d8d2 [project @ 2006-10-26 01:18:33 by jwe] jwe parents: 5794 diff changeset	75
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	76 octave_procbuf *
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	77 octave_procbuf::open (const char *command, int mode)
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	78 {
6096 40212bfaed1d [project @ 2006-10-26 01:57:49 by jwe] jwe parents: 6094 diff changeset	79 #if defined (__CYGWIN__) \|\| defined (__MINGW32__) \|\| defined (_MSC_VER)
4472 f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	80
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	81 if (is_open ())
4472 f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	82 return 0;
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	83
25655 be7ba25bb5bf Fix Windows cross-build after 85c3e315bd43. Markus Mützel <markus.muetzel@gmx.de> parents: 25438 diff changeset	84 f = (octave::popen (command, (mode & std::ios::in) ? "r" : "w"));
4472 f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	85
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	86 if (! f)
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	87 return 0;
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	88
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	89 // Oops... popen doesn't return the associated pid, so fake it for now
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	90
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	91 proc_pid = 1;
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	92
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	93 open_p = true;
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	94
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	95 if (mode & std::ios::out)
28223 45763d59cb4f use nullptr instead of NULL or 0 in a few more places John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	96 ::setvbuf (f, nullptr, _IOLBF, BUFSIZ);
4472 f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	97
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	98 return this;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	99
22264 9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	100 #elif defined (HAVE_UNISTD_H)
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	101
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	102 int pipe_fds[2];
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	103
3544 71bd2d124119 [project @ 2000-02-02 21:02:31 by jwe] jwe parents: 3531 diff changeset	104 volatile int child_std_end = (mode & std::ios::in) ? 1 : 0;
3156 a494f93e60ff [project @ 1998-02-20 07:47:48 by jwe] jwe parents: 3147 diff changeset	105
3147 894d516b4a00 [project @ 1998-02-06 06:00:08 by jwe] jwe parents: 2847 diff changeset	106 volatile int parent_end, child_end;
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	107
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	108 if (is_open ())
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23457 diff changeset	109 return nullptr;
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	110
21727 e0da98857c19 rename octave::syscalls namespace to octave::sys John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	111 if (octave::sys::pipe (pipe_fds) < 0)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23457 diff changeset	112 return nullptr;
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	113
3544 71bd2d124119 [project @ 2000-02-02 21:02:31 by jwe] jwe parents: 3531 diff changeset	114 if (mode & std::ios::in)
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	115 {
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	116 parent_end = pipe_fds[0];
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	117 child_end = pipe_fds[1];
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	118 }
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	119 else
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	120 {
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	121 parent_end = pipe_fds[1];
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	122 child_end = pipe_fds[0];
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	123 }
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	124
3156 a494f93e60ff [project @ 1998-02-20 07:47:48 by jwe] jwe parents: 3147 diff changeset	125 proc_pid = ::fork ();
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	126
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	127 if (proc_pid == 0)
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	128 {
21910 4d723ba06b4a provide wrappers for some unistd.h functions John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	129 octave_close_wrapper (parent_end);
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	130
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	131 if (child_end != child_std_end)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	132 {
21910 4d723ba06b4a provide wrappers for some unistd.h functions John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	133 octave_dup2_wrapper (child_end, child_std_end);
4d723ba06b4a provide wrappers for some unistd.h functions John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	134 octave_close_wrapper (child_end);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	135 }
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	136
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	137 while (octave_procbuf_list)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	138 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	139 FILE *fp = octave_procbuf_list->f;
3644 9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3632 diff changeset	140
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	141 if (fp)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	142 {
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21910 diff changeset	143 std::fclose (fp);
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23457 diff changeset	144 fp = nullptr;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	145 }
3644 9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3632 diff changeset	146
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	147 octave_procbuf_list = octave_procbuf_list->next;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	148 }
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	149
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23457 diff changeset	150 execl (SHELL_PATH, "sh", "-c", command, static_cast<void *> (nullptr));
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	151
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	152 exit (127);
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	153 }
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	154
21910 4d723ba06b4a provide wrappers for some unistd.h functions John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	155 octave_close_wrapper (child_end);
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	156
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	157 if (proc_pid < 0)
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	158 {
21910 4d723ba06b4a provide wrappers for some unistd.h functions John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	159 octave_close_wrapper (parent_end);
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23457 diff changeset	160 return nullptr;
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	161 }
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	162
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23220 diff changeset	163 f = (::fdopen (parent_end, (mode & std::ios::in) ? "r" : "w"));
3631 0b6b55fd0a5c [project @ 2000-03-23 09:16:36 by jwe] jwe parents: 3544 diff changeset	164
3649 3a067b216fd6 [project @ 2000-03-31 06:02:44 by jwe] jwe parents: 3644 diff changeset	165 if (mode & std::ios::out)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23457 diff changeset	166 ::setvbuf (f, nullptr, _IOLBF, BUFSIZ);
3649 3a067b216fd6 [project @ 2000-03-31 06:02:44 by jwe] jwe parents: 3644 diff changeset	167
3631 0b6b55fd0a5c [project @ 2000-03-23 09:16:36 by jwe] jwe parents: 3544 diff changeset	168 open_p = true;
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	169
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	170 next = octave_procbuf_list;
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	171 octave_procbuf_list = this;
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	172
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	173 return this;
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	174
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	175 #else
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	176
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	177 return 0;
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	178
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	179 #endif
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	180 }
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	181
3631 0b6b55fd0a5c [project @ 2000-03-23 09:16:36 by jwe] jwe parents: 3544 diff changeset	182 octave_procbuf *
0b6b55fd0a5c [project @ 2000-03-23 09:16:36 by jwe] jwe parents: 3544 diff changeset	183 octave_procbuf::close (void)
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	184 {
6096 40212bfaed1d [project @ 2006-10-26 01:57:49 by jwe] jwe parents: 6094 diff changeset	185 #if defined (__CYGWIN__) \|\| defined (__MINGW32__) \|\| defined (_MSC_VER)
4472 f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	186
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	187 if (f)
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	188 {
25655 be7ba25bb5bf Fix Windows cross-build after 85c3e315bd43. Markus Mützel <markus.muetzel@gmx.de> parents: 25438 diff changeset	189 wstatus = octave::pclose (f);
4472 f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	190 f = 0;
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	191 }
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	192
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	193 open_p = false;
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	194
f52db9e1296a [project @ 2003-07-29 18:03:03 by jwe] jwe parents: 4233 diff changeset	195 return this;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	196
22264 9b78fda78300 fix build failure for --without-z (bug #48757) John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	197 #elif defined (HAVE_UNISTD_H)
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	198
3644 9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3632 diff changeset	199 if (f)
9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3632 diff changeset	200 {
9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3632 diff changeset	201 pid_t wait_pid;
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	202
3644 9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3632 diff changeset	203 int status = -1;
9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3632 diff changeset	204
9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3632 diff changeset	205 for (octave_procbuf **ptr = &octave_procbuf_list;
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23457 diff changeset	206 *ptr != nullptr;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	207 ptr = &(*ptr)->next)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	208 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	209 if (*ptr == this)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	210 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	211 ptr = (ptr)->next;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	212 status = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	213 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	214 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	215 }
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	216
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21910 diff changeset	217 if (status == 0 && std::fclose (f) == 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	218 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	219 using namespace std;
3531 97cf542676e1 [project @ 2000-02-02 11:30:40 by jwe] jwe parents: 3503 diff changeset	220
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	221 do
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	222 {
21727 e0da98857c19 rename octave::syscalls namespace to octave::sys John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	223 wait_pid = octave::sys::waitpid (proc_pid, &wstatus, 0);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	224 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	225 while (wait_pid == -1 && errno == EINTR);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	226 }
3644 9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3632 diff changeset	227
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23457 diff changeset	228 f = nullptr;
3631 0b6b55fd0a5c [project @ 2000-03-23 09:16:36 by jwe] jwe parents: 3544 diff changeset	229 }
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	230
3631 0b6b55fd0a5c [project @ 2000-03-23 09:16:36 by jwe] jwe parents: 3544 diff changeset	231 open_p = false;
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	232
3631 0b6b55fd0a5c [project @ 2000-03-23 09:16:36 by jwe] jwe parents: 3544 diff changeset	233 return this;
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	234
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	235 #else
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	236
3631 0b6b55fd0a5c [project @ 2000-03-23 09:16:36 by jwe] jwe parents: 3544 diff changeset	237 return 0;
2094 a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	238
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	239 #endif
a23645b0364e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: diff changeset	240 }

Mercurial > octave

annotate libinterp/corefcn/oct-procbuf.cc @ 28223:45763d59cb4f stable