octave: libinterp/corefcn/sysdep.cc annotate

annotate libinterp/corefcn/sysdep.cc @ 23459:ddcbf10c8c39

maint: Use C++11 nullptr rather than 0 or NULL for remaining instances in code. * sysdep.cc, __osmesa_print__.cc, audioread.cc, ov-java.cc: Use C++11 nullptr rather than 0 or NULL.

author	Rik <rik@octave.org>
date	Fri, 28 Apr 2017 17:20:13 -0700
parents	73ff72d3d603
children	e95738a119da

rev	line source
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1 /*
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	2
23219 3ac9f9ecfae5 maint: Update copyright dates. John W. Eaton <jwe@octave.org> parents: 23083 diff changeset	3 Copyright (C) 1993-2017 John W. Eaton
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	4
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	6
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22417 diff changeset	8 under the terms of the GNU General Public License as published by
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22417 diff changeset	9 the Free Software Foundation; either version 3 of the License, or
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22417 diff changeset	10 (at your option) any later version.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	11
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22417 diff changeset	12 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22417 diff changeset	13 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22417 diff changeset	14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22417 diff changeset	15 GNU General Public License for more details.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	16
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6960 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6960 diff changeset	19 <http://www.gnu.org/licenses/>.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	20
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	21 */
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	22
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21662 diff changeset	23 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21200 diff changeset	24 # include "config.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	25 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	26
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1318 diff changeset	27 #include <cstddef>
23455 73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	28 //#include <cstdlib>
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1318 diff changeset	29
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3372 diff changeset	30 #include <iostream>
1728 42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1711 diff changeset	31 #include <string>
42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1711 diff changeset	32
1430 045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	33 #if defined (HAVE_TERMIOS_H)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	34 # include <termios.h>
1430 045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	35 #elif defined (HAVE_TERMIO_H)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	36 # include <termio.h>
1430 045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	37 #elif defined (HAVE_SGTTY_H)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	38 # include <sgtty.h>
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	39 #endif
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	40
e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	41 #if defined (HAVE_CONIO_H)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	42 # include <conio.h>
1430 045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	43 #endif
045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	44
3248 68259f410026 [project @ 1999-07-13 03:34:54 by jwe] jwe parents: 3234 diff changeset	45 #if defined (HAVE_SYS_IOCTL_H)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	46 # include <sys/ioctl.h>
3248 68259f410026 [project @ 1999-07-13 03:34:54 by jwe] jwe parents: 3234 diff changeset	47 #endif
68259f410026 [project @ 1999-07-13 03:34:54 by jwe] jwe parents: 3234 diff changeset	48
1463 592291d9dfbb [project @ 1995-09-22 07:18:44 by jwe] jwe parents: 1430 diff changeset	49 #if defined (HAVE_FLOATINGPOINT_H)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	50 # include <floatingpoint.h>
1463 592291d9dfbb [project @ 1995-09-22 07:18:44 by jwe] jwe parents: 1430 diff changeset	51 #endif
592291d9dfbb [project @ 1995-09-22 07:18:44 by jwe] jwe parents: 1430 diff changeset	52
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	53 #if defined (HAVE_IEEEFP_H)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	54 # include <ieeefp.h>
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	55 #endif
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	56
21554 9f0088f3f335 call openmp function at initialization (bug #47372) John W. Eaton <jwe@octave.org> parents: 20788 diff changeset	57 #if defined (HAVE_OMP_H)
21556 12f207a534aa maint: merge stable to default. John W. Eaton <jwe@octave.org> parents: 21301 21554 diff changeset	58 # include <omp.h>
21554 9f0088f3f335 call openmp function at initialization (bug #47372) John W. Eaton <jwe@octave.org> parents: 20788 diff changeset	59 #endif
9f0088f3f335 call openmp function at initialization (bug #47372) John W. Eaton <jwe@octave.org> parents: 20788 diff changeset	60
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2893 diff changeset	61 #include "cmd-edit.h"
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2893 diff changeset	62 #include "file-ops.h"
2893 9fd1df4b464a [project @ 1997-04-28 02:07:38 by jwe] jwe parents: 2847 diff changeset	63 #include "lo-mappers.h"
7231 2eb392d058bb [project @ 2007-11-30 18:53:29 by jwe] jwe parents: 7017 diff changeset	64 #include "lo-math.h"
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 2086 diff changeset	65 #include "mach-info.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2893 diff changeset	66 #include "oct-env.h"
21910 4d723ba06b4a provide wrappers for some unistd.h functions John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	67 #include "unistd-wrappers.h"
21888 00f1249f2483 create wrappers for some gnulib functions John W. Eaton <jwe@octave.org> parents: 21782 diff changeset	68 #include "unsetenv-wrapper.h"
1769 bc7ae9be3378 [project @ 1996-01-23 06:49:08 by jwe] jwe parents: 1755 diff changeset	69
22097 5ad67277b007 include builtin-defun-decls.h as needed John W. Eaton <jwe@octave.org> parents: 22096 diff changeset	70 #include "builtin-defun-decls.h"
6208 323be5eeed1f [project @ 2006-12-06 20:23:18 by jwe] jwe parents: 6135 diff changeset	71 #include "Cell.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	72 #include "defun.h"
17851 af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	73 #include "display.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	74 #include "error.h"
21115 629643522cc0 include errwarn.h in all files that use gripe_disabled_feature John W. Eaton <jwe@octave.org> parents: 21109 diff changeset	75 #include "errwarn.h"
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	76 #include "input.h"
22089 c2c668b3051b use classes for octave application and interpreter John W. Eaton <jwe@octave.org> parents: 22051 diff changeset	77 #include "octave.h"
c2c668b3051b use classes for octave application and interpreter John W. Eaton <jwe@octave.org> parents: 22051 diff changeset	78 #include "ov.h"
20940 48b2ad5ee801 maint: Rename oct-obj.[cc\|h] to ovl.[cc\|h] for clarity. Rik <rik@octave.org> parents: 20939 diff changeset	79 #include "ovl.h"
3234 be8e0ba13644 [project @ 1999-01-29 03:52:30 by jwe] jwe parents: 3124 diff changeset	80 #include "pager.h"
6419 73fcbac81f33 [project @ 2007-03-20 17:18:24 by jwe] jwe parents: 6208 diff changeset	81 #include "parse.h"
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	82 #include "sighandlers.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	83 #include "sysdep.h"
22094 9203833cab7d move new interpreter class to separate file John W. Eaton <jwe@octave.org> parents: 22089 diff changeset	84 #include "interpreter.h"
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	85 #include "utils.h"
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	86 #include "file-stat.h"
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	87
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21662 diff changeset	88 #if ! defined (STDIN_FILENO)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	89 # define STDIN_FILENO 1
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	90 #endif
444 ba637cc5c5f3 [project @ 1994-06-02 17:15:07 by jwe] jwe parents: 401 diff changeset	91
9441 160c564d5d25 initialize floating point values properly for NetBSD systems Aleksej Saushev <asau@inbox.ru> parents: 9411 diff changeset	92 #if defined (__386BSD__) \|\| defined (__FreeBSD__) \|\| defined (__NetBSD__)
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	93 static void
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	94 BSD_init (void)
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	95 {
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	96 # if defined (HAVE_FLOATINGPOINT_H)
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	97 // Disable trapping on common exceptions.
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21662 diff changeset	98 # if ! defined (FP_X_DNML)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	99 # define FP_X_DNML 0
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	100 # endif
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	101 fpsetmask (~(FP_X_OFL\|FP_X_INV\|FP_X_DZ\|FP_X_DNML\|FP_X_UFL\|FP_X_IMP));
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21115 diff changeset	102 # endif
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	103 }
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	104 #endif
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	105
22019 2d8e9bdf5683 Dont use OCTAVE_USE_WINDOWS_API for w32_XXXX function definitions (Bug #48352) John Donoghue parents: 21989 diff changeset	106 #if defined (__MINGW32__) \|\| defined (_MSC_VER)
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	107
80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	108 #define WIN32_LEAN_AND_MEAN
21949 baeffde5c87d fix build for Windows systems John W. Eaton <jwe@octave.org> parents: 21910 diff changeset	109 #include <windows.h>
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	110 #include <tlhelp32.h>
21949 baeffde5c87d fix build for Windows systems John W. Eaton <jwe@octave.org> parents: 21910 diff changeset	111 #include <shellapi.h>
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	112
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	113 static void
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	114 w32_set_octave_home (void)
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	115 {
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	116 std::string bin_dir;
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	117
13885 2f42a7b0cf94 Fix MinGW compilation problem with tlhelp32.h Michael Goffioul <michael.goffioul@gmail.com> parents: 13771 diff changeset	118 HANDLE h = CreateToolhelp32Snapshot (TH32CS_SNAPMODULE
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21662 diff changeset	119 #if defined (TH32CS_SNAPMODULE32)
13885 2f42a7b0cf94 Fix MinGW compilation problem with tlhelp32.h Michael Goffioul <michael.goffioul@gmail.com> parents: 13771 diff changeset	120 \| TH32CS_SNAPMODULE32
2f42a7b0cf94 Fix MinGW compilation problem with tlhelp32.h Michael Goffioul <michael.goffioul@gmail.com> parents: 13771 diff changeset	121 #endif
2f42a7b0cf94 Fix MinGW compilation problem with tlhelp32.h Michael Goffioul <michael.goffioul@gmail.com> parents: 13771 diff changeset	122 , 0);
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	123
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	124 if (h != INVALID_HANDLE_VALUE)
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	125 {
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	126 MODULEENTRY32 mod_info;
80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	127
80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	128 ZeroMemory (&mod_info, sizeof (mod_info));
80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	129 mod_info.dwSize = sizeof (mod_info);
13751 be7ff59cbc7a Fix octinterp DLL searching on Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 13282 diff changeset	130
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	131 if (Module32First (h, &mod_info))
14445 b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	132 {
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	133 do
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	134 {
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	135 std::string mod_name (mod_info.szModule);
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	136
14445 b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	137 if (mod_name.find ("octinterp") != std::string::npos)
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	138 {
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	139 bin_dir = mod_info.szExePath;
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	140 if (bin_dir[bin_dir.length () - 1] != '\\')
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	141 bin_dir.append (1, '\\');
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	142 break;
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	143 }
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	144 }
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	145 while (Module32Next (h, &mod_info));
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	146 }
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	147
80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	148 CloseHandle (h);
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	149 }
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	150
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	151 if (! bin_dir.empty ())
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	152 {
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	153 size_t pos = bin_dir.rfind ("\\bin\\");
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	154
8021 85184151822e fix typo in NPOS change John W. Eaton <jwe@octave.org> parents: 8019 diff changeset	155 if (pos != std::string::npos)
21732 6a1eded90355 use namespace for system env class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	156 octave::sys::env::putenv ("OCTAVE_HOME", bin_dir.substr (0, pos));
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	157 }
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	158 }
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	159
19302 37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18674 diff changeset	160 static void
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18674 diff changeset	161 w32_init (void)
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18674 diff changeset	162 {
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18674 diff changeset	163 w32_set_octave_home ();
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18674 diff changeset	164
21748 176536b15d68 use namespace for command_editor and command_history classes John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	165 octave::command_editor::prefer_env_winsize (true);
19302 37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18674 diff changeset	166 }
19774 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	167
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	168 static bool
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	169 w32_shell_execute (const std::string& file)
22417 48c00363dc74 maint: Use '{ }' for empty function bodies in C++. Rik <rik@octave.org> parents: 22407 diff changeset	170 { }
22165 20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	171
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	172 #endif
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	173
22165 20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	174 // Set app id if we have the SetCurrentProcessExplicitAppUserModelID
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	175 // available (>= Win7). FIXME: Could we check for existence of this
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	176 // function in the configure script instead of dynamically loading
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	177 // shell32.dll?
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	178
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	179 void
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	180 set_application_id (void)
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	181 {
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	182 #if defined (__MINGW32__) \|\| defined (_MSC_VER)
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	183
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	184 typedef HRESULT (WINAPI *SETCURRENTAPPID)(PCWSTR AppID);
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	185
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	186 HMODULE hShell = LoadLibrary ("shell32.dll");
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	187
23459 ddcbf10c8c39 maint: Use C++11 nullptr rather than 0 or NULL for remaining instances in code. Rik <rik@octave.org> parents: 23455 diff changeset	188 if (hShell)
22165 20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	189 {
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	190 SETCURRENTAPPID pfnSetCurrentProcessExplicitAppUserModelID =
22407 34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22323 diff changeset	191 reinterpret_cast<SETCURRENTAPPID> (GetProcAddress (hShell,
34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22323 diff changeset	192 "SetCurrentProcessExplicitAppUserModelID"));
22165 20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	193
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	194 if (pfnSetCurrentProcessExplicitAppUserModelID)
23319 fc344de3afc9 Set version on AppUserModelId (Bug #50428) John D parents: 23219 diff changeset	195 pfnSetCurrentProcessExplicitAppUserModelID (L"gnu.octave." VERSION);
22165 20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	196
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	197 FreeLibrary (hShell);
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	198 }
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	199
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	200 #endif
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	201 }
20e684ec108e move system dependent code to sysdep.cc John W. Eaton <jwe@octave.org> parents: 22141 diff changeset	202
19856 5c1a38089f89 Change open_with_system_app to internal function. Rik <rik@octave.org> parents: 19849 diff changeset	203 DEFUN (__open_with_system_app__, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	204 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	205 @deftypefn {} {} __open_with_system_app__ (@var{file})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	206 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	207 @end deftypefn */)
19271 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19270 diff changeset	208 {
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	209 if (args.length () != 1)
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	210 print_usage ();
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	211
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	212 std::string file = args(0).xstring_value ("__open_with_system_app__: argument must be a filename");
19271 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19270 diff changeset	213
19774 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	214 octave_value retval;
19271 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19270 diff changeset	215
21979 d04da18a407a use OCTAVE_USE_WINDOWS_API more consistently John W. Eaton <jwe@octave.org> parents: 21966 diff changeset	216 #if defined (OCTAVE_USE_WINDOWS_API)
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	217 HINSTANCE status = ShellExecute (0, 0, file.c_str (), 0, 0,
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	218 SW_SHOWNORMAL);
19271 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19270 diff changeset	219
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	220 // ShellExecute returns a value greater than 32 if successful.
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	221 retval = (reinterpret_cast<ptrdiff_t> (status) > 32);
20961 f55251db0833 Add support for the Mac OS X "open" command. Ben Abbott <bpabbott@mac.com> parents: 20941 diff changeset	222 #elif defined (__APPLE__)
f55251db0833 Add support for the Mac OS X "open" command. Ben Abbott <bpabbott@mac.com> parents: 20941 diff changeset	223 octave_value_list tmp
f55251db0833 Add support for the Mac OS X "open" command. Ben Abbott <bpabbott@mac.com> parents: 20941 diff changeset	224 = Fsystem (ovl ("open " + file + " 2> /dev/null",
f55251db0833 Add support for the Mac OS X "open" command. Ben Abbott <bpabbott@mac.com> parents: 20941 diff changeset	225 false, "async"),
f55251db0833 Add support for the Mac OS X "open" command. Ben Abbott <bpabbott@mac.com> parents: 20941 diff changeset	226 1);
19271 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19270 diff changeset	227
20961 f55251db0833 Add support for the Mac OS X "open" command. Ben Abbott <bpabbott@mac.com> parents: 20941 diff changeset	228 retval = (tmp(0).double_value () == 0);
19774 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	229 #else
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	230 octave_value_list tmp
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	231 = Fsystem (ovl ("xdg-open " + file + " 2> /dev/null",
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	232 false, "async"),
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	233 1);
19774 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	234
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	235 retval = (tmp(0).double_value () == 0);
19774 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	236 #endif
19271 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19270 diff changeset	237
19774 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	238 return retval;
19271 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19270 diff changeset	239 }
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19270 diff changeset	240
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	241 #if defined (__MINGW32__)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	242 static void
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	243 MINGW_init (void)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	244 {
19302 37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18674 diff changeset	245 w32_init ();
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	246 }
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	247 #endif
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	248
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	249 #if defined (_MSC_VER)
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	250 static void
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	251 MSVC_init (void)
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	252 {
19302 37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18674 diff changeset	253 w32_init ();
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	254 }
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	255 #endif
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	256
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	257 // Return TRUE if FILE1 and FILE2 refer to the same (physical) file.
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	258
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	259 bool
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	260 same_file_internal (const std::string& file1, const std::string& file2)
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	261 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21662 diff changeset	262 #if defined (OCTAVE_USE_WINDOWS_API)
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	263
6691 c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	264 bool retval = false;
c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	265
16564 aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	266 const char *f1 = file1.c_str ();
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	267 const char *f2 = file2.c_str ();
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	268
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	269 bool f1_is_dir = GetFileAttributes (f1) & FILE_ATTRIBUTE_DIRECTORY;
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	270 bool f2_is_dir = GetFileAttributes (f2) & FILE_ATTRIBUTE_DIRECTORY;
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	271
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	272 // Windows native code
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	273 // Reference: http://msdn2.microsoft.com/en-us/library/aa363788.aspx
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	274
16564 aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	275 DWORD share = FILE_SHARE_DELETE \| FILE_SHARE_READ \| FILE_SHARE_WRITE;
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	276
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	277 HANDLE hfile1
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	278 = CreateFile (f1, 0, share, 0, OPEN_EXISTING,
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	279 f1_is_dir ? FILE_FLAG_BACKUP_SEMANTICS : 0, 0);
6691 c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	280
c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	281 if (hfile1 != INVALID_HANDLE_VALUE)
c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	282 {
16564 aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	283 HANDLE hfile2
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	284 = CreateFile (f2, 0, share, 0, OPEN_EXISTING,
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	285 f2_is_dir ? FILE_FLAG_BACKUP_SEMANTICS : 0, 0);
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	286
6691 c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	287 if (hfile2 != INVALID_HANDLE_VALUE)
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	288 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	289 BY_HANDLE_FILE_INFORMATION hfi1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	290 BY_HANDLE_FILE_INFORMATION hfi2;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	291
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	292 if (GetFileInformationByHandle (hfile1, &hfi1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	293 && GetFileInformationByHandle (hfile2, &hfi2))
16564 aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	294 {
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	295 retval = (hfi1.dwVolumeSerialNumber == hfi2.dwVolumeSerialNumber
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	296 && hfi1.nFileIndexHigh == hfi2.nFileIndexHigh
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	297 && hfi1.nFileIndexLow == hfi2.nFileIndexLow);
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	298 }
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	299
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	300 CloseHandle (hfile2);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	301 }
6691 c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	302
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	303 CloseHandle (hfile1);
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	304 }
6691 c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	305
c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	306 return retval;
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	307
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	308 #else
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	309
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	310 // POSIX Code
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	311
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	312 octave::sys::file_stat fs_file1 (file1);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	313 octave::sys::file_stat fs_file2 (file2);
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	314
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	315 return (fs_file1 && fs_file2
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	316 && fs_file1.ino () == fs_file2.ino ()
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	317 && fs_file1.dev () == fs_file2.dev ());
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	318
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	319 #endif
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	320 }
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	321
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	322 void
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	323 sysdep_init (void)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	324 {
21557 f6663c49870c Add comment clarifying why omp_get_num_threads is called in sysdep.cc. Rik <rik@octave.org> parents: 21556 diff changeset	325 // Use a function from libgomp to force loading of OpenMP library.
f6663c49870c Add comment clarifying why omp_get_num_threads is called in sysdep.cc. Rik <rik@octave.org> parents: 21556 diff changeset	326 // Otherwise, a dynamically loaded library making use of OpenMP such
f6663c49870c Add comment clarifying why omp_get_num_threads is called in sysdep.cc. Rik <rik@octave.org> parents: 21556 diff changeset	327 // as GraphicsMagick will segfault on exit (bug #41699).
21554 9f0088f3f335 call openmp function at initialization (bug #47372) John W. Eaton <jwe@octave.org> parents: 20788 diff changeset	328 #if defined (HAVE_OMP_GET_NUM_THREADS)
9f0088f3f335 call openmp function at initialization (bug #47372) John W. Eaton <jwe@octave.org> parents: 20788 diff changeset	329 omp_get_num_threads ();
9f0088f3f335 call openmp function at initialization (bug #47372) John W. Eaton <jwe@octave.org> parents: 20788 diff changeset	330 #endif
9f0088f3f335 call openmp function at initialization (bug #47372) John W. Eaton <jwe@octave.org> parents: 20788 diff changeset	331
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14445 diff changeset	332 #if defined (__386BSD__) \|\| defined (__FreeBSD__) \|\| defined (__NetBSD__)
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	333 BSD_init ();
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	334 #elif defined (__MINGW32__)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	335 MINGW_init ();
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	336 #elif defined (_MSC_VER)
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	337 MSVC_init ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	338 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	339 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	340
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	341 void
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	342 sysdep_cleanup (void)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	343 {
21989 6bce4d23af6b eliminate OCTAVE_USE_WINDOWS_API and OCTAVE_USE_OS_X_API from header files John W. Eaton <jwe@octave.org> parents: 21979 diff changeset	344 #if defined (OCTAVE_USE_WINDOWS_API)
6bce4d23af6b eliminate OCTAVE_USE_WINDOWS_API and OCTAVE_USE_OS_X_API from header files John W. Eaton <jwe@octave.org> parents: 21979 diff changeset	345 // Let us fail immediately without displaying any dialog.
6bce4d23af6b eliminate OCTAVE_USE_WINDOWS_API and OCTAVE_USE_OS_X_API from header files John W. Eaton <jwe@octave.org> parents: 21979 diff changeset	346 SetProcessShutdownParameters (0x280, SHUTDOWN_NORETRY);
6bce4d23af6b eliminate OCTAVE_USE_WINDOWS_API and OCTAVE_USE_OS_X_API from header files John W. Eaton <jwe@octave.org> parents: 21979 diff changeset	347 #endif
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	348 }
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	349
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	350 // Set terminal in raw mode. From less-177.
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	351 //
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	352 // Change terminal to "raw mode", or restore to "normal" mode.
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	353 // "Raw mode" means
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	354 // 1. An outstanding read will complete on receipt of a single keystroke.
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	355 // 2. Input is not echoed.
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	356 // 3. On output, \n is mapped to \r\n.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	357 // 4. \t is NOT expanded into spaces.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	358 // 5. Signal-causing characters such as ctrl-C (interrupt),
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	359 // etc. are NOT disabled.
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	360 // It doesn't matter whether an input \n is mapped to \r, or vice versa.
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	361
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	362 void
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	363 raw_mode (bool on, bool wait)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	364 {
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	365 static bool curr_on = false;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	366
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	367 int tty_fd = STDIN_FILENO;
21910 4d723ba06b4a provide wrappers for some unistd.h functions John W. Eaton <jwe@octave.org> parents: 21888 diff changeset	368 if (! octave_isatty_wrapper (tty_fd))
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	369 {
22089 c2c668b3051b use classes for octave application and interpreter John W. Eaton <jwe@octave.org> parents: 22051 diff changeset	370 if (octave::application::interactive ()
c2c668b3051b use classes for octave application and interpreter John W. Eaton <jwe@octave.org> parents: 22051 diff changeset	371 && ! octave::application::forced_interactive ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	372 error ("stdin is not a tty!");
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	373 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	374
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	375 if (on == curr_on)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	376 return;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	377
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	378 #if defined (HAVE_TERMIOS_H)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	379 {
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	380 struct termios s;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	381 static struct termios save_term;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	382
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	383 if (on)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	384 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	385 // Get terminal modes.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	386
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	387 tcgetattr (tty_fd, &s);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	388
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	389 // Save modes and set certain variables dependent on modes.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	390
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	391 save_term = s;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	392 // ospeed = s.c_cflag & CBAUD;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	393 // erase_char = s.c_cc[VERASE];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	394 // kill_char = s.c_cc[VKILL];
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	395
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	396 // Set the modes to the way we want them.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	397
21662 5b9868c2e212 maint: Octave coding convention cleanups. Rik <rik@octave.org> parents: 21557 diff changeset	398 s.c_lflag &= ~(ICANON \| ECHO \| ECHOE \| ECHOK \| ECHONL);
5b9868c2e212 maint: Octave coding convention cleanups. Rik <rik@octave.org> parents: 21557 diff changeset	399 s.c_oflag \|= (OPOST \| ONLCR);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	400 #if defined (OCRNL)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	401 s.c_oflag &= ~(OCRNL);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	402 #endif
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	403 #if defined (ONOCR)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	404 s.c_oflag &= ~(ONOCR);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	405 #endif
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	406 #if defined (ONLRET)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	407 s.c_oflag &= ~(ONLRET);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	408 #endif
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23325 diff changeset	409 s.c_cc[VMIN] = (wait ? 1 : 0);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	410 s.c_cc[VTIME] = 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	411 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	412 else
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	413 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	414 // Restore saved modes.
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	415
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	416 s = save_term;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	417 }
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	418
9411 c9636d98e5cd fix kbhit(1) to not discard waiting keystrokes Joe Rothweiler <octaveuser@sensicomm.com> parents: 9242 diff changeset	419 tcsetattr (tty_fd, wait ? TCSAFLUSH : TCSADRAIN, &s);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	420 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	421 #elif defined (HAVE_TERMIO_H)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	422 {
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	423 struct termio s;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	424 static struct termio save_term;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	425
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	426 if (on)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	427 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	428 // Get terminal modes.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	429
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	430 ioctl (tty_fd, TCGETA, &s);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	431
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	432 // Save modes and set certain variables dependent on modes.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	433
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	434 save_term = s;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	435 // ospeed = s.c_cflag & CBAUD;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	436 // erase_char = s.c_cc[VERASE];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	437 // kill_char = s.c_cc[VKILL];
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	438
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	439 // Set the modes to the way we want them.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	440
21662 5b9868c2e212 maint: Octave coding convention cleanups. Rik <rik@octave.org> parents: 21557 diff changeset	441 s.c_lflag &= ~(ICANON \| ECHO \| ECHOE \| ECHOK \| ECHONL);
5b9868c2e212 maint: Octave coding convention cleanups. Rik <rik@octave.org> parents: 21557 diff changeset	442 s.c_oflag \|= (OPOST \| ONLCR);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	443 #if defined (OCRNL)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	444 s.c_oflag &= ~(OCRNL);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	445 #endif
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	446 #if defined (ONOCR)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	447 s.c_oflag &= ~(ONOCR);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	448 #endif
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	449 #if defined (ONLRET)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	450 s.c_oflag &= ~(ONLRET);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	451 #endif
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23325 diff changeset	452 s.c_cc[VMIN] = (wait ? 1 : 0);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	453 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	454 else
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	455 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	456 // Restore saved modes.
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	457
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	458 s = save_term;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	459 }
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	460
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	461 ioctl (tty_fd, TCSETAW, &s);
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	462 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	463 #elif defined (HAVE_SGTTY_H)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	464 {
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	465 struct sgttyb s;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	466 static struct sgttyb save_term;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	467
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	468 if (on)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	469 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	470 // Get terminal modes.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	471
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	472 ioctl (tty_fd, TIOCGETP, &s);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	473
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	474 // Save modes and set certain variables dependent on modes.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	475
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	476 save_term = s;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	477 // ospeed = s.sg_ospeed;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	478 // erase_char = s.sg_erase;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	479 // kill_char = s.sg_kill;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	480
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	481 // Set the modes to the way we want them.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	482
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	483 s.sg_flags \|= CBREAK;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	484 s.sg_flags &= ~(ECHO);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	485 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	486 else
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	487 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	488 // Restore saved modes.
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	489
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	490 s = save_term;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	491 }
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	492
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	493 ioctl (tty_fd, TIOCSETN, &s);
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	494 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	495 #else
21109 bd1752782e56 Use err_disabled_feature, warn_disabled_feature throughout code base. Rik <rik@octave.org> parents: 21078 diff changeset	496 warn_disabled_feature ("", "raw mode console I/O");
4064 b4fa31442a78 [project @ 2002-09-26 21:10:45 by jwe] jwe parents: 3676 diff changeset	497
b4fa31442a78 [project @ 2002-09-26 21:10:45 by jwe] jwe parents: 3676 diff changeset	498 // Make sure the current mode doesn't toggle.
b4fa31442a78 [project @ 2002-09-26 21:10:45 by jwe] jwe parents: 3676 diff changeset	499 on = curr_on;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	500 #endif
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	501
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	502 curr_on = on;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	503 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	504
6726 6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	505 FILE *
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	506 octave_popen (const char command, const char mode)
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	507 {
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	508 #if defined (__MINGW32__) \|\| defined (_MSC_VER)
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	509 if (mode && mode[0] && ! mode[1])
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	510 {
22855 f9fdd2f66514 maint: use initializer of char array for octave_popen tmode. Rik <rik@octave.org> parents: 22755 diff changeset	511 // Use binary mode on Windows if unspecified
f9fdd2f66514 maint: use initializer of char array for octave_popen tmode. Rik <rik@octave.org> parents: 22755 diff changeset	512 char tmode[3] = {mode[0], 'b', '\0'};
6726 6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	513
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	514 return _popen (command, tmode);
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	515 }
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	516 else
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	517 return _popen (command, mode);
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	518 #else
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	519 return popen (command, mode);
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	520 #endif
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	521 }
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	522
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	523 int
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	524 octave_pclose (FILE *f)
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	525 {
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	526 #if defined (__MINGW32__) \|\| defined (_MSC_VER)
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	527 return _pclose (f);
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	528 #else
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	529 return pclose (f);
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	530 #endif
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	531 }
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	532
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	533 // Read one character from the terminal.
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	534
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	535 int
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	536 octave_kbhit (bool wait)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	537 {
20788 a2b96b523472 Rewrite a8ee668e7fd7 to use #if defined rather than #ifdef. Rik <rik@octave.org> parents: 20786 diff changeset	538 #if defined (HAVE__KBHIT) && defined (HAVE__GETCH)
20786 a8ee668e7fd7 Fix kbhit and pause on Windows systems. Rik <rik@octave.org> parents: 20181 diff changeset	539 // This essentially means we are on a Windows system.
a8ee668e7fd7 Fix kbhit and pause on Windows systems. Rik <rik@octave.org> parents: 20181 diff changeset	540 int c;
a8ee668e7fd7 Fix kbhit and pause on Windows systems. Rik <rik@octave.org> parents: 20181 diff changeset	541
a8ee668e7fd7 Fix kbhit and pause on Windows systems. Rik <rik@octave.org> parents: 20181 diff changeset	542 if (wait)
a8ee668e7fd7 Fix kbhit and pause on Windows systems. Rik <rik@octave.org> parents: 20181 diff changeset	543 c = _getch ();
a8ee668e7fd7 Fix kbhit and pause on Windows systems. Rik <rik@octave.org> parents: 20181 diff changeset	544 else
a8ee668e7fd7 Fix kbhit and pause on Windows systems. Rik <rik@octave.org> parents: 20181 diff changeset	545 c = (! _kbhit ()) ? 0 : _getch ();
a8ee668e7fd7 Fix kbhit and pause on Windows systems. Rik <rik@octave.org> parents: 20181 diff changeset	546
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	547 #else
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	548 raw_mode (true, wait);
808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	549
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	550 // Get current handler.
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22019 diff changeset	551 octave::interrupt_handler saved_interrupt_handler
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22019 diff changeset	552 = octave::ignore_interrupts ();
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	553
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	554 // Restore it, disabling system call restarts (if possible) so the
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	555 // read can be interrupted.
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	556
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22019 diff changeset	557 octave::set_interrupt_handler (saved_interrupt_handler, false);
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	558
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	559 int c = std::cin.get ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	560
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	561 if (std::cin.fail () \|\| std::cin.eof ())
808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	562 std::cin.clear ();
808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	563
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	564 // Restore it, enabling system call restarts (if possible).
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22019 diff changeset	565 octave::set_interrupt_handler (saved_interrupt_handler, true);
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	566
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	567 raw_mode (false, true);
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	568 #endif
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	569
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	570 return c;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	571 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	572
12228 0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	573 std::string
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	574 get_P_tmpdir (void)
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	575 {
21979 d04da18a407a use OCTAVE_USE_WINDOWS_API more consistently John W. Eaton <jwe@octave.org> parents: 21966 diff changeset	576 #if defined (OCTAVE_USE_WINDOWS_API)
12228 0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	577
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	578 std::string retval;
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	579
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	580 #if defined (P_tmpdir)
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	581 retval = P_tmpdir;
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	582 #endif
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	583
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	584 // Apparently some versions of MinGW and MSVC either don't define
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	585 // P_tmpdir, or they define it to a single backslash, neither of which
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	586 // is particularly helpful.
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	587
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	588 if (retval.empty () \|\| retval == "\\")
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	589 {
21732 6a1eded90355 use namespace for system env class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	590 retval = octave::sys::env::getenv ("TEMP");
12228 0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	591
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	592 if (retval.empty ())
21732 6a1eded90355 use namespace for system env class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	593 retval = octave::sys::env::getenv ("TMP");
12228 0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	594
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	595 if (retval.empty ())
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	596 retval = "c:\\temp";
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	597 }
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	598
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	599 return retval;
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	600
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	601 #elif defined (P_tmpdir)
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	602
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	603 return P_tmpdir;
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	604
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	605 #else
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	606
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	607 return "/tmp";
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	608
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	609 #endif
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	610 }
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	611
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	612 DEFUN (clc, , ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	613 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	614 @deftypefn {} {} clc ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	615 @deftypefnx {} {} home ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	616 Clear the terminal screen and move the cursor to the upper left corner.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	617 @end deftypefn */)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	618 {
16537 106a38d7b396 optionall disable redisplay in command editor clear screen function John W. Eaton <jwe@octave.org> parents: 16404 diff changeset	619 bool skip_redisplay = true;
106a38d7b396 optionall disable redisplay in command editor clear screen function John W. Eaton <jwe@octave.org> parents: 16404 diff changeset	620
21748 176536b15d68 use namespace for command_editor and command_history classes John W. Eaton <jwe@octave.org> parents: 21739 diff changeset	621 octave::command_editor::clear_screen (skip_redisplay);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	622
20941 a4f5da7c5463 maint: Replace "octave_value_list ()" with "ovl ()". Rik <rik@octave.org> parents: 20940 diff changeset	623 return ovl ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	624 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	625
549 75a371805554 [project @ 1994-07-22 19:44:41 by jwe] jwe parents: 545 diff changeset	626 DEFALIAS (home, clc);
75a371805554 [project @ 1994-07-22 19:44:41 by jwe] jwe parents: 545 diff changeset	627
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	628 DEFUN (getenv, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	629 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	630 @deftypefn {} {} getenv (@var{var})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	631 Return the value of the environment variable @var{var}.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	632
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	633 For example,
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	634
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	635 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	636 getenv ("PATH")
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	637 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	638
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	639 @noindent
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	640 returns a string containing the value of your path.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	641 @seealso{setenv, unsetenv}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	642 @end deftypefn */)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	643 {
20819 f428cbe7576f eliminate unnecessary uses of nargin John W. Eaton <jwe@octave.org> parents: 20799 diff changeset	644 if (args.length () != 1)
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	645 print_usage ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	646
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	647 std::string name = args(0).string_value ();
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	648
21732 6a1eded90355 use namespace for system env class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	649 return ovl (octave::sys::env::getenv (name));
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	650 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	651
19167 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	652 /*
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	653 %!assert (ischar (getenv ("OCTAVE_HOME")))
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	654 */
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	655
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	656 DEFUN (setenv, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	657 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	658 @deftypefn {} {} setenv (@var{var}, @var{value})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	659 @deftypefnx {} {} setenv (@var{var})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	660 @deftypefnx {} {} putenv (@dots{})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	661 Set the value of the environment variable @var{var} to @var{value}.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	662
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	663 If no @var{value} is specified then the variable will be assigned the null
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	664 string.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	665 @seealso{unsetenv, getenv}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	666 @end deftypefn */)
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	667 {
6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	668 int nargin = args.length ();
6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	669
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	670 if (nargin < 1 \|\| nargin > 2)
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	671 print_usage ();
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	672
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	673 std::string var = args(0).xstring_value ("setenv: VAR must be a string");
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	674
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	675 std::string val = (nargin == 2
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	676 ? args(1).xstring_value ("setenv: VALUE must be a string")
21017 93748bcaec17 maint: Replace emtpy 'std::string ()' calls with "". Rik <rik@octave.org> parents: 20990 diff changeset	677 : "");
20582 ba2b07c13913 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	678
21732 6a1eded90355 use namespace for system env class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	679 octave::sys::env::putenv (var, val);
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	680
21078 49852ff04747 maint: Remove unnecessary declarations of retval. Rik <rik@octave.org> parents: 21017 diff changeset	681 return ovl ();
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	682 }
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	683
19167 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	684 DEFALIAS (putenv, setenv);
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	685
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	686 /*
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	687 %!test
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	688 %! setenv ("dummy_variable_that_cannot_matter", "foobar");
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	689 %! assert (getenv ("dummy_variable_that_cannot_matter"), "foobar");
19167 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	690 %! unsetenv ("dummy_variable_that_cannot_matter");
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	691 %! assert (getenv ("dummy_variable_that_cannot_matter"), "");
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	692 */
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	693
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	694 DEFUN (unsetenv, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	695 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	696 @deftypefn {} {@var{status} =} unsetenv (@var{var})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	697 Delete the environment variable @var{var}.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	698
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	699 Return 0 if the variable was deleted, or did not exist, and -1 if an error
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	700 occurred.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	701 @seealso{setenv, getenv}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	702 @end deftypefn */)
19167 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	703 {
20819 f428cbe7576f eliminate unnecessary uses of nargin John W. Eaton <jwe@octave.org> parents: 20799 diff changeset	704 if (args.length () != 1)
19167 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	705 print_usage ();
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	706
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	707 std::string tmp = args(0).string_value ();
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	708
21888 00f1249f2483 create wrappers for some gnulib functions John W. Eaton <jwe@octave.org> parents: 21782 diff changeset	709 return ovl (octave_unsetenv_wrapper (tmp.c_str ()));
19167 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	710 }
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	711
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	712 /*
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18674 diff changeset	713 ## Test for unsetenv is in setenv test
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	714 */
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	715
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	716 // FIXME: perhaps kbhit should also be able to print a prompt?
3372 f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	717
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	718 DEFUN (kbhit, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	719 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	720 @deftypefn {} {} kbhit ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	721 @deftypefnx {} {} kbhit (1)
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	722 Read a single keystroke from the keyboard.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	723
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	724 If called with an argument, don't wait for a keypress.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	725
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	726 For example,
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	727
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	728 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	729 x = kbhit ();
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	730 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	731
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	732 @noindent
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	733 will set @var{x} to the next character typed at the keyboard as soon as
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	734 it is typed.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	735
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	736 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	737 x = kbhit (1);
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	738 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	739
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	740 @noindent
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	741 is identical to the above example, but doesn't wait for a keypress,
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	742 returning the empty string if no key is available.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	743 @seealso{input, pause}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	744 @end deftypefn */)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	745 {
22141 ed6104a78ebf kbhit: return an empty string if not running interactively (bug #48541) Mike Miller <mtmiller@octave.org> parents: 22097 diff changeset	746 octave_value retval = "";
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	747
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	748 // FIXME: add timeout and default value args?
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	749
22089 c2c668b3051b use classes for octave application and interpreter John W. Eaton <jwe@octave.org> parents: 22051 diff changeset	750 if (octave::application::interactive ())
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	751 {
15423 53d073233fa4 call more built-in functions directly John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	752 Fdrawnow ();
6423 a90b54016b12 [project @ 2007-03-21 13:15:03 by jwe] jwe parents: 6419 diff changeset	753
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	754 int c = octave_kbhit (args.length () == 0);
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	755
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	756 if (c == -1)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	757 c = 0;
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	758
16092 def3b111cff8 avoid gcc warning about int to char conversion John W. Eaton <jwe@octave.org> parents: 16053 diff changeset	759 char s[2] = { static_cast<char> (c), '\0' };
16015 d910b9211cca Plug memory leak in kbhit(). Rik <rik@octave.org> parents: 15423 diff changeset	760
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	761 retval = s;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	762 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	763
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	764 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	765 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	766
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	767 DEFUN (pause, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	768 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	769 @deftypefn {} {} pause ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	770 @deftypefnx {} {} pause (@var{n})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	771 Suspend the execution of the program for @var{n} seconds.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	772
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	773 If invoked without an input arguments then the program is suspended until a
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	774 character is typed.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	775
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	776 @var{n} is a positive real value and may be a fraction of a second,
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	777 for example:
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	778
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	779 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	780 @group
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	781 tic; pause (0.05); toc
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	782 @print{} Elapsed time is 0.05039 seconds.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	783 @end group
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	784 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	785
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	786 The following example prints a message and then waits 5 seconds before
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	787 clearing the screen.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	788
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	789 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	790 @group
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	791 disp ("wait please...");
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	792 pause (5);
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	793 clc;
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	794 @end group
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	795 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	796
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	797 @seealso{kbhit}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	798 @end deftypefn */)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	799 {
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	800 int nargin = args.length ();
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	801
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	802 if (nargin > 1)
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	803 print_usage ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	804
1579 972ce8b5a757 [project @ 1995-10-19 06:39:35 by jwe] jwe parents: 1488 diff changeset	805 if (nargin == 1)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	806 {
1579 972ce8b5a757 [project @ 1995-10-19 06:39:35 by jwe] jwe parents: 1488 diff changeset	807 double dval = args(0).double_value ();
636 fae2bd91c027 [project @ 1994-08-23 18:39:50 by jwe] jwe parents: 610 diff changeset	808
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21748 diff changeset	809 if (octave::math::isnan (dval))
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20923 diff changeset	810 warning ("pause: NaN is an invalid delay");
b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20923 diff changeset	811 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	812 {
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20181 diff changeset	813 Fdrawnow ();
6419 73fcbac81f33 [project @ 2007-03-20 17:18:24 by jwe] jwe parents: 6208 diff changeset	814
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21748 diff changeset	815 if (octave::math::isinf (dval))
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20181 diff changeset	816 {
23060 baf03cdb28b5 move pager and diary classes into octave namespace John W. Eaton <jwe@octave.org> parents: 22855 diff changeset	817 octave::flush_stdout ();
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20181 diff changeset	818 octave_kbhit ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	819 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	820 else
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20181 diff changeset	821 octave_sleep (dval);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	822 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	823 }
1579 972ce8b5a757 [project @ 1995-10-19 06:39:35 by jwe] jwe parents: 1488 diff changeset	824 else
3234 be8e0ba13644 [project @ 1999-01-29 03:52:30 by jwe] jwe parents: 3124 diff changeset	825 {
15423 53d073233fa4 call more built-in functions directly John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	826 Fdrawnow ();
23060 baf03cdb28b5 move pager and diary classes into octave namespace John W. Eaton <jwe@octave.org> parents: 22855 diff changeset	827 octave::flush_stdout ();
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	828 octave_kbhit ();
3234 be8e0ba13644 [project @ 1999-01-29 03:52:30 by jwe] jwe parents: 3124 diff changeset	829 }
2630 fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	830
20941 a4f5da7c5463 maint: Replace "octave_value_list ()" with "ovl ()". Rik <rik@octave.org> parents: 20940 diff changeset	831 return ovl ();
2630 fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	832 }
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	833
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	834 /*
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	835 %!test
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	836 %! pause (1);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	837
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	838 %!error (pause (1, 2))
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	839 */
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	840
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	841 // FIXME: maybe this should only return 1 if IEEE floating
862 61d83ce7368c [project @ 1994-10-31 20:39:30 by jwe] jwe parents: 844 diff changeset	842 // point functions really work.
61d83ce7368c [project @ 1994-10-31 20:39:30 by jwe] jwe parents: 844 diff changeset	843
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	844 DEFUN (isieee, , ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	845 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	846 @deftypefn {} {} isieee ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	847 Return true if your computer @emph{claims} to conform to the IEEE standard
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	848 for floating point calculations.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	849
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	850 No actual tests are performed.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	851 @end deftypefn */)
862 61d83ce7368c [project @ 1994-10-31 20:39:30 by jwe] jwe parents: 844 diff changeset	852 {
22407 34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22323 diff changeset	853 octave::mach_info::float_format flt_fmt =
34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22323 diff changeset	854 octave::mach_info::native_float_format ();
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 2086 diff changeset	855
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21736 diff changeset	856 return ovl (flt_fmt == octave::mach_info::flt_fmt_ieee_little_endian
c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21736 diff changeset	857 \|\| flt_fmt == octave::mach_info::flt_fmt_ieee_big_endian);
862 61d83ce7368c [project @ 1994-10-31 20:39:30 by jwe] jwe parents: 844 diff changeset	858 }
61d83ce7368c [project @ 1994-10-31 20:39:30 by jwe] jwe parents: 844 diff changeset	859
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	860 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	861 %!assert (islogical (isieee ()))
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	862 */
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	863
4600 3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	864 DEFUN (native_float_format, , ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	865 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	866 @deftypefn {} {} native_float_format ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	867 Return the native floating point format as a string.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	868 @end deftypefn */)
4600 3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	869 {
22407 34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22323 diff changeset	870 octave::mach_info::float_format flt_fmt =
34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22323 diff changeset	871 octave::mach_info::native_float_format ();
4600 3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	872
21739 c4ab2e54f100 use namespace for oct_mach_info class John W. Eaton <jwe@octave.org> parents: 21736 diff changeset	873 return ovl (octave::mach_info::float_format_as_string (flt_fmt));
4600 3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	874 }
3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	875
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	876 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	877 %!assert (ischar (native_float_format ()))
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	878 */
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	879
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	880 DEFUN (tilde_expand, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	881 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	882 @deftypefn {} {} tilde_expand (@var{string})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	883 @deftypefnx {} {} tilde_expand (@var{cellstr})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	884 Perform tilde expansion on @var{string}.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	885
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	886 If @var{string} begins with a tilde character, (@samp{~}), all of the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	887 characters preceding the first slash (or all characters, if there is no
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	888 slash) are treated as a possible user name, and the tilde and the following
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	889 characters up to the slash are replaced by the home directory of the named
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	890 user. If the tilde is followed immediately by a slash, the tilde is
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	891 replaced by the home directory of the user running Octave.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	892
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	893 If the input is a cell array of strings @var{cellstr} then tilde expansion
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	894 is performed on each string element.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	895
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	896 Examples:
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	897
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	898 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	899 @group
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	900 tilde_expand ("~joeuser/bin")
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	901 @result{} "/home/joeuser/bin"
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	902 tilde_expand ("~/bin")
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	903 @result{} "/home/jwe/bin"
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	904 @end group
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	905 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	906 @end deftypefn */)
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	907 {
20819 f428cbe7576f eliminate unnecessary uses of nargin John W. Eaton <jwe@octave.org> parents: 20799 diff changeset	908 if (args.length () != 1)
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	909 print_usage ();
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	910
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	911 octave_value arg = args(0);
6116 b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	912
20990 fc9cca99b2de Deprecate all_strings, replace with string_vector_value. Rik <rik@octave.org> parents: 20961 diff changeset	913 string_vector sv = arg.xstring_vector_value ("tilde_expand: argument must be char or cellstr object");
6116 b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	914
21733 cb0fdd941d84 use namespace for system file_ops class John W. Eaton <jwe@octave.org> parents: 21732 diff changeset	915 sv = octave::sys::file_ops::tilde_expand (sv);
20799 c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	916
c349d4c91ce2 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20789 diff changeset	917 if (arg.is_cellstr ())
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20923 diff changeset	918 return ovl (Cell (arg.dims (), sv));
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	919 else
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20923 diff changeset	920 return ovl (sv);
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	921 }
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	922
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	923 /*
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	924 %!test
20016 47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 19861 diff changeset	925 %! home = get_home_directory ();
20064 ab7582167810 Fix failing BIST test for tilde_expand() on Windows (bug #44796). Rik <rik@octave.org> parents: 20024 diff changeset	926 %! assert (tilde_expand ("~/foobar"), [home "/foobar"]);
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	927 %! assert (tilde_expand ("/foo/bar"), "/foo/bar");
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	928 %! assert (tilde_expand ("foo/bar"), "foo/bar");
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	929 */
17851 af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	930
20016 47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 19861 diff changeset	931 DEFUN (get_home_directory, , ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	932 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	933 @deftypefn {} {@var{homedir} =} get_home_directory ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	934 Return the current home directory.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	935
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	936 On most systems, this is equivalent to @code{getenv ("HOME")}. On Windows
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	937 systems, if the environment variable @env{HOME} is not set then it is
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	938 equivalent to
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	939 @code{fullfile (getenv ("HOMEDRIVE"), getenv ("HOMEPATH"))}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	940 @seealso{getenv}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	941 @end deftypefn */)
20016 47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 19861 diff changeset	942 {
21732 6a1eded90355 use namespace for system env class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	943 return ovl (octave::sys::env::get_home_directory ());
20016 47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 19861 diff changeset	944 }
47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 19861 diff changeset	945
20024 cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20016 diff changeset	946 /*
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20016 diff changeset	947 %!test
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20016 diff changeset	948 %! if (! ispc ())
20181 aa36fb998a4d maint: Remove unnecessary whitespace at end of lines. Rik <rik@octave.org> parents: 20172 diff changeset	949 %! assert (get_home_directory (), getenv ("HOME"));
20024 cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20016 diff changeset	950 %! endif
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20016 diff changeset	951 */
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20016 diff changeset	952
17851 af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	953 // This function really belongs in display.cc, but including defun.h in
af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	954 // that file results in conflicts with symbols from headers that are
af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	955 // needed for X11 and Carbon functions.
af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	956
af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	957 DEFUN (have_window_system, , ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	958 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	959 @deftypefn {} {} have_window_system ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	960 Return true if a window system is available (X11, Windows, or Apple OS X)
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	961 and false otherwise.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	962 @seealso{isguirunning}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21949 diff changeset	963 @end deftypefn */)
17851 af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	964 {
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20923 diff changeset	965 return ovl (display_info::display_available ());
17851 af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	966 }

Mercurial > octave

annotate libinterp/corefcn/sysdep.cc @ 23459:ddcbf10c8c39