octave-nkf: libinterp/corefcn/sysdep.cc annotate

annotate libinterp/corefcn/sysdep.cc @ 20382:4f45eaf83908 stable

doc: Update more docstrings to have one sentence summary as first line. Reviewed libinterp/corefcn directory. * libinterp/corefcn/__ilu__.cc, libinterp/corefcn/balance.cc, libinterp/corefcn/besselj.cc, libinterp/corefcn/betainc.cc, libinterp/corefcn/bitfcns.cc, libinterp/corefcn/bsxfun.cc, libinterp/corefcn/cellfun.cc, libinterp/corefcn/colloc.cc, libinterp/corefcn/conv2.cc, libinterp/corefcn/data.cc, libinterp/corefcn/debug.cc, libinterp/corefcn/defaults.cc, libinterp/corefcn/det.cc, libinterp/corefcn/dirfns.cc, libinterp/corefcn/dlmread.cc, libinterp/corefcn/dot.cc, libinterp/corefcn/eig.cc, libinterp/corefcn/error.cc, libinterp/corefcn/fft2.cc, libinterp/corefcn/fftn.cc, libinterp/corefcn/file-io.cc, libinterp/corefcn/filter.cc, libinterp/corefcn/find.cc, libinterp/corefcn/gammainc.cc, libinterp/corefcn/gcd.cc, libinterp/corefcn/getgrent.cc, libinterp/corefcn/getpwent.cc, libinterp/corefcn/getrusage.cc, libinterp/corefcn/graphics.cc, libinterp/corefcn/help.cc, libinterp/corefcn/hex2num.cc, libinterp/corefcn/input.cc, libinterp/corefcn/inv.cc, libinterp/corefcn/kron.cc, libinterp/corefcn/load-path.cc, libinterp/corefcn/load-save.cc, libinterp/corefcn/lookup.cc, libinterp/corefcn/ls-oct-ascii.cc, libinterp/corefcn/lsode.cc, libinterp/corefcn/lu.cc, libinterp/corefcn/luinc.cc, libinterp/corefcn/mappers.cc, libinterp/corefcn/matrix_type.cc, libinterp/corefcn/max.cc, libinterp/corefcn/md5sum.cc, libinterp/corefcn/mgorth.cc, libinterp/corefcn/nproc.cc, libinterp/corefcn/oct-hist.cc, libinterp/corefcn/ordschur.cc, libinterp/corefcn/pager.cc, libinterp/corefcn/pinv.cc, libinterp/corefcn/pr-output.cc, libinterp/corefcn/pt-jit.cc, libinterp/corefcn/quad.cc, libinterp/corefcn/quadcc.cc, libinterp/corefcn/qz.cc, libinterp/corefcn/rand.cc, libinterp/corefcn/rcond.cc, libinterp/corefcn/regexp.cc, libinterp/corefcn/schur.cc, libinterp/corefcn/sighandlers.cc, libinterp/corefcn/sparse.cc, libinterp/corefcn/spparms.cc, libinterp/corefcn/str2double.cc, libinterp/corefcn/strfind.cc, libinterp/corefcn/strfns.cc, libinterp/corefcn/sub2ind.cc, libinterp/corefcn/svd.cc, libinterp/corefcn/symtab.cc, libinterp/corefcn/syscalls.cc, libinterp/corefcn/sysdep.cc, libinterp/corefcn/time.cc, libinterp/corefcn/toplev.cc, libinterp/corefcn/tril.cc, libinterp/corefcn/tsearch.cc, libinterp/corefcn/typecast.cc, libinterp/corefcn/urlwrite.cc, libinterp/corefcn/utils.cc, libinterp/corefcn/variables.cc, scripts/polynomial/spline.m: Update more docstrings to have one sentence summary as first line.

author	Rik <rik@octave.org>
date	Sat, 09 May 2015 17:19:30 -0700
parents	ab7582167810
children	aa36fb998a4d

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
19898 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19737 diff changeset	3 Copyright (C) 1993-2015 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
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6960 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6960 diff changeset	10 option) any later version.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	11
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	15 for more details.
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
240 a99f28f5e351 [project @ 1993-11-30 20:24:36 by jwe] jwe parents: 217 diff changeset	23 #ifdef HAVE_CONFIG_H
1192 b6360f2d4fa6 [project @ 1995-03-30 21:38:35 by jwe] jwe parents: 1128 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
1346 9e41dbb74bca [project @ 1995-09-05 06:37:49 by jwe] jwe parents: 1343 diff changeset	27 #include <cfloat>
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1318 diff changeset	28 #include <cstddef>
1346 9e41dbb74bca [project @ 1995-09-05 06:37:49 by jwe] jwe parents: 1343 diff changeset	29 #include <cstdio>
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1318 diff changeset	30 #include <cstdlib>
94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1318 diff changeset	31 #include <cstring>
94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1318 diff changeset	32
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3372 diff changeset	33 #include <iostream>
1728 42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1711 diff changeset	34 #include <string>
42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1711 diff changeset	35
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	36 #include <sys/types.h>
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	37 #include <unistd.h>
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	38
1430 045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	39 #if defined (HAVE_TERMIOS_H)
045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	40 #include <termios.h>
045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	41 #elif defined (HAVE_TERMIO_H)
045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	42 #include <termio.h>
045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	43 #elif defined (HAVE_SGTTY_H)
045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	44 #include <sgtty.h>
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	45 #endif
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	46
e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	47 #if defined (HAVE_CONIO_H)
e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	48 #include <conio.h>
1430 045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	49 #endif
045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1415 diff changeset	50
3248 68259f410026 [project @ 1999-07-13 03:34:54 by jwe] jwe parents: 3234 diff changeset	51 #if defined (HAVE_SYS_IOCTL_H)
68259f410026 [project @ 1999-07-13 03:34:54 by jwe] jwe parents: 3234 diff changeset	52 #include <sys/ioctl.h>
68259f410026 [project @ 1999-07-13 03:34:54 by jwe] jwe parents: 3234 diff changeset	53 #endif
68259f410026 [project @ 1999-07-13 03:34:54 by jwe] jwe parents: 3234 diff changeset	54
1463 592291d9dfbb [project @ 1995-09-22 07:18:44 by jwe] jwe parents: 1430 diff changeset	55 #if defined (HAVE_FLOATINGPOINT_H)
592291d9dfbb [project @ 1995-09-22 07:18:44 by jwe] jwe parents: 1430 diff changeset	56 #include <floatingpoint.h>
592291d9dfbb [project @ 1995-09-22 07:18:44 by jwe] jwe parents: 1430 diff changeset	57 #endif
592291d9dfbb [project @ 1995-09-22 07:18:44 by jwe] jwe parents: 1430 diff changeset	58
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	59 #if defined (HAVE_IEEEFP_H)
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	60 #include <ieeefp.h>
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	61 #endif
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	62
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2893 diff changeset	63 #include "cmd-edit.h"
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2893 diff changeset	64 #include "file-ops.h"
2893 9fd1df4b464a [project @ 1997-04-28 02:07:38 by jwe] jwe parents: 2847 diff changeset	65 #include "lo-mappers.h"
7231 2eb392d058bb [project @ 2007-11-30 18:53:29 by jwe] jwe parents: 7017 diff changeset	66 #include "lo-math.h"
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 2086 diff changeset	67 #include "mach-info.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2893 diff changeset	68 #include "oct-env.h"
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	69 #include "quit.h"
1769 bc7ae9be3378 [project @ 1996-01-23 06:49:08 by jwe] jwe parents: 1755 diff changeset	70
6208 323be5eeed1f [project @ 2006-12-06 20:23:18 by jwe] jwe parents: 6135 diff changeset	71 #include "Cell.h"
15423 53d073233fa4 call more built-in functions directly John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	72 #include "builtins.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	73 #include "defun.h"
17851 af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	74 #include "display.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	75 #include "error.h"
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	76 #include "input.h"
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	77 #include "oct-obj.h"
2370 a45c7d64b5e3 [project @ 1996-10-11 23:51:15 by jwe] jwe parents: 2317 diff changeset	78 #include "ov.h"
3234 be8e0ba13644 [project @ 1999-01-29 03:52:30 by jwe] jwe parents: 3124 diff changeset	79 #include "pager.h"
6419 73fcbac81f33 [project @ 2007-03-20 17:18:24 by jwe] jwe parents: 6208 diff changeset	80 #include "parse.h"
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	81 #include "sighandlers.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	82 #include "sysdep.h"
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	83 #include "toplev.h"
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	84 #include "utils.h"
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	85 #include "file-stat.h"
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	86
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	87 #ifndef STDIN_FILENO
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	88 #define STDIN_FILENO 1
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	89 #endif
444 ba637cc5c5f3 [project @ 1994-06-02 17:15:07 by jwe] jwe parents: 401 diff changeset	90
9441 160c564d5d25 initialize floating point values properly for NetBSD systems Aleksej Saushev <asau@inbox.ru> parents: 9411 diff changeset	91 #if defined (__386BSD__) \|\| defined (__FreeBSD__) \|\| defined (__NetBSD__)
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	92 static void
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	93 BSD_init (void)
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	94 {
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	95 #if defined (HAVE_FLOATINGPOINT_H)
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	96 // Disable trapping on common exceptions.
4164 67ef87a80c49 [project @ 2002-11-11 18:10:44 by jwe] jwe parents: 4091 diff changeset	97 #ifndef FP_X_DNML
67ef87a80c49 [project @ 2002-11-11 18:10:44 by jwe] jwe parents: 4091 diff changeset	98 #define FP_X_DNML 0
67ef87a80c49 [project @ 2002-11-11 18:10:44 by jwe] jwe parents: 4091 diff changeset	99 #endif
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	100 fpsetmask (~(FP_X_OFL\|FP_X_INV\|FP_X_DZ\|FP_X_DNML\|FP_X_UFL\|FP_X_IMP));
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	101 #endif
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	102 }
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	103 #endif
f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	104
6956 cc712c417943 [project @ 2007-10-04 17:51:57 by jwe] jwe parents: 6954 diff changeset	105 #if defined (__WIN32__) && ! defined (_POSIX_VERSION)
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	106
80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	107 #define WIN32_LEAN_AND_MEAN
80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	108 #include <tlhelp32.h>
19463 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 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
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	111 static void
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	112 w32_set_octave_home (void)
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	113 {
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	114 std::string bin_dir;
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	115
13885 2f42a7b0cf94 Fix MinGW compilation problem with tlhelp32.h Michael Goffioul <michael.goffioul@gmail.com> parents: 13771 diff changeset	116 HANDLE h = CreateToolhelp32Snapshot (TH32CS_SNAPMODULE
2f42a7b0cf94 Fix MinGW compilation problem with tlhelp32.h Michael Goffioul <michael.goffioul@gmail.com> parents: 13771 diff changeset	117 #ifdef TH32CS_SNAPMODULE32
2f42a7b0cf94 Fix MinGW compilation problem with tlhelp32.h Michael Goffioul <michael.goffioul@gmail.com> parents: 13771 diff changeset	118 \| TH32CS_SNAPMODULE32
2f42a7b0cf94 Fix MinGW compilation problem with tlhelp32.h Michael Goffioul <michael.goffioul@gmail.com> parents: 13771 diff changeset	119 #endif
2f42a7b0cf94 Fix MinGW compilation problem with tlhelp32.h Michael Goffioul <michael.goffioul@gmail.com> parents: 13771 diff changeset	120 , 0);
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	121
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	122 if (h != INVALID_HANDLE_VALUE)
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 MODULEENTRY32 mod_info;
80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	125
80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	126 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	127 mod_info.dwSize = sizeof (mod_info);
13751 be7ff59cbc7a Fix octinterp DLL searching on Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 13282 diff changeset	128
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	129 if (Module32First (h, &mod_info))
14445 b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	130 {
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	131 do
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 std::string mod_name (mod_info.szModule);
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	134
14445 b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	135 if (mod_name.find ("octinterp") != std::string::npos)
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	136 {
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	137 bin_dir = mod_info.szExePath;
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	138 if (bin_dir[bin_dir.length () - 1] != '\\')
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	139 bin_dir.append (1, '\\');
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	140 break;
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	141 }
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	142 }
b50654a09ba7 maint: untabify sources John W. Eaton <jwe@octave.org> parents: 14429 diff changeset	143 while (Module32Next (h, &mod_info));
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	144 }
13771 80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	145
80b30e186b73 [Win32] Use Toolhelp32 APi to find octinterp module path. Michael Goffioul <michael.goffioul@gmail.com> parents: 13751 diff changeset	146 CloseHandle (h);
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	147 }
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	148
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	149 if (! bin_dir.empty ())
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 size_t pos = bin_dir.rfind ("\\bin\\");
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	152
8021 85184151822e fix typo in NPOS change John W. Eaton <jwe@octave.org> parents: 8019 diff changeset	153 if (pos != std::string::npos)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	154 octave_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	155 }
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	156 }
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	157
6960 d5339f9f5f9c [project @ 2007-10-05 15:03:09 by jwe] jwe parents: 6956 diff changeset	158 void
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	159 w32_set_quiet_shutdown (void)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	160 {
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	161 // Let the user close the console window or shutdown without the
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	162 // pesky dialog.
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	163 //
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	164 // FIXME: should this be user configurable?
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	165 SetProcessShutdownParameters (0x280, SHUTDOWN_NORETRY);
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	166 }
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	167
6960 d5339f9f5f9c [project @ 2007-10-05 15:03:09 by jwe] jwe parents: 6956 diff changeset	168 void
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	169 MINGW_signal_cleanup (void)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	170 {
5455 ec44bd0917fe [project @ 2005-09-19 16:07:56 by jwe] jwe parents: 5451 diff changeset	171 w32_set_quiet_shutdown ();
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	172 }
19494 37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18829 diff changeset	173
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18829 diff changeset	174 static void
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18829 diff changeset	175 w32_init (void)
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18829 diff changeset	176 {
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18829 diff changeset	177 w32_set_octave_home ();
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18829 diff changeset	178
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18829 diff changeset	179 command_editor::prefer_env_winsize (true);
37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18829 diff changeset	180 }
19979 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	181
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	182 static bool
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	183 w32_shell_execute (const std::string& file)
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	184 {
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	185 }
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	186 #endif
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	187
20061 5c1a38089f89 Change open_with_system_app to internal function. Rik <rik@octave.org> parents: 20054 diff changeset	188 DEFUN (__open_with_system_app__, args, ,
20068 19755f4fc851 maint: Cleanup C++ code to follow Octave coding conventions. Rik <rik@octave.org> parents: 20062 diff changeset	189 "-- texinfo --\n\
20061 5c1a38089f89 Change open_with_system_app to internal function. Rik <rik@octave.org> parents: 20054 diff changeset	190 @deftypefn {Loadable Function} {} __open_with_system_app__ (@var{file})\n\
19463 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	191 Undocumented internal function.\n\
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	192 @end deftypefn")
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	193 {
19979 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	194 octave_value retval;
19463 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	195
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	196 if (args.length () == 1)
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	197 {
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	198 std::string file = args(0).string_value ();
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	199
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	200 if (! error_state)
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	201 {
19979 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	202 #if defined (__WIN32__) && ! defined (_POSIX_VERSION)
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	203 HINSTANCE status = ShellExecute (0, 0, file.c_str (), 0, 0,
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	204 SW_SHOWNORMAL);
19463 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	205
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	206 // ShellExecute returns a value greater than 32 if successful.
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	207 retval = (reinterpret_cast<ptrdiff_t> (status) > 32);
19979 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	208 #else
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	209 octave_value_list tmp
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	210 = Fsystem (ovl ("xdg-open " + file + " 2> /dev/null",
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	211 false, "async"),
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	212 1);
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	213
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	214 retval = (tmp(0).double_value () == 0);
904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	215 #endif
19463 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	216 }
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	217 else
20061 5c1a38089f89 Change open_with_system_app to internal function. Rik <rik@octave.org> parents: 20054 diff changeset	218 error ("__open_with_system_app__: argument must be a file name");
19463 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	219 }
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	220 else
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	221 print_usage ();
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	222
19979 904912f18357 make open_with_system_app a built-in function John W. Eaton <jwe@octave.org> parents: 19898 diff changeset	223 return retval;
19463 030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	224 }
030d56f67363 implement the open function John W. Eaton <jwe@octave.org> parents: 19462 diff changeset	225
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	226 #if defined (__MINGW32__)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	227 static void
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	228 MINGW_init (void)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	229 {
19494 37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18829 diff changeset	230 w32_init ();
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	231 }
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	232 #endif
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	233
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	234 #if defined (_MSC_VER)
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	235 static void
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	236 MSVC_init (void)
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	237 {
19494 37159a873c96 preserve text on Windows terminal resize (bug #41893; patch #8532) John W. Eaton <jwe@octave.org> parents: 18829 diff changeset	238 w32_init ();
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	239 }
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	240 #endif
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	241
4091 575507e27b8b [project @ 2002-10-06 20:50:15 by jwe] jwe parents: 4086 diff changeset	242
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	243 // 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	244
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	245 bool
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	246 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	247 {
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	248 #ifdef OCTAVE_USE_WINDOWS_API
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	249
6691 c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	250 bool retval = false;
c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	251
16564 aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	252 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	253 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	254
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	255 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	256 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	257
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	258 // Windows native code
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	259 // 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	260
16564 aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	261 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	262
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	263 HANDLE hfile1
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	264 = 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	265 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	266
c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	267 if (hfile1 != INVALID_HANDLE_VALUE)
c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	268 {
16564 aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	269 HANDLE hfile2
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	270 = 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	271 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	272
6691 c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	273 if (hfile2 != INVALID_HANDLE_VALUE)
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	274 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	275 BY_HANDLE_FILE_INFORMATION hfi1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	276 BY_HANDLE_FILE_INFORMATION hfi2;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	277
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	278 if (GetFileInformationByHandle (hfile1, &hfi1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	279 && 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	280 {
aa5299a1d770 * sysdep.cc (same_file_internal): Handle directories on Windows systems. John W. Eaton <jwe@octave.org> parents: 16537 diff changeset	281 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	282 && 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	283 && 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	284 }
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	285
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	286 CloseHandle (hfile2);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	287 }
6691 c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	288
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	289 CloseHandle (hfile1);
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	290 }
6691 c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	291
c6ee6c342699 [project @ 2007-06-05 05:50:10 by jwe] jwe parents: 6677 diff changeset	292 return retval;
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	293
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	294 #else
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	295
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	296 // POSIX Code
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	297
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	298 file_stat fs_file1 (file1);
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	299 file_stat fs_file2 (file2);
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	300
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	301 return (fs_file1 && fs_file2
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	302 && fs_file1.ino () == fs_file2.ino ()
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	303 && fs_file1.dev () == fs_file2.dev ());
6598 ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	304
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	305 #endif
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	306 }
ce819776ee76 [project @ 2007-04-27 17:34:27 by jwe] jwe parents: 6423 diff changeset	307
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	308 void
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	309 sysdep_init (void)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	310 {
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14445 diff changeset	311 #if defined (__386BSD__) \|\| defined (__FreeBSD__) \|\| defined (__NetBSD__)
2508 f8d5dbbbc50a [project @ 1996-11-13 17:21:07 by jwe] jwe parents: 2493 diff changeset	312 BSD_init ();
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	313 #elif defined (__MINGW32__)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	314 MINGW_init ();
6080 40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	315 #elif defined (_MSC_VER)
40ab35ab651c [project @ 2006-10-25 03:26:36 by jwe] jwe parents: 5823 diff changeset	316 MSVC_init ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	317 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	318 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	319
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	320 void
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	321 sysdep_cleanup (void)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	322 {
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	323 MINGW_SIGNAL_CLEANUP ();
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	324 }
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5395 diff changeset	325
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	326 // Set terminal in raw mode. From less-177.
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	327 //
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	328 // 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	329 // "Raw mode" means
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	330 // 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	331 // 2. Input is not echoed.
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	332 // 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	333 // 4. \t is NOT expanded into spaces.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	334 // 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	335 // etc. are NOT disabled.
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	336 // 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	337
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	338 void
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	339 raw_mode (bool on, bool wait)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	340 {
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	341 static bool curr_on = false;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	342
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	343 int tty_fd = STDIN_FILENO;
14160 ebcb0f83698f use gnulib::isatty John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	344 if (! gnulib::isatty (tty_fd))
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	345 {
20054 1c9ed5b4c73d input.h: change meaning of interactive and forced_interactive global variables. Carnë Draug <carandraug@octave.org> parents: 19979 diff changeset	346 if (interactive && ! forced_interactive)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	347 error ("stdin is not a tty!");
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	348 return;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	349 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	350
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	351 if (on == curr_on)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	352 return;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	353
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	354 #if defined (HAVE_TERMIOS_H)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	355 {
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	356 struct termios s;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	357 static struct termios save_term;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	358
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	359 if (on)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	360 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	361 // Get terminal modes.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	362
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	363 tcgetattr (tty_fd, &s);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	364
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	365 // 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	366
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	367 save_term = s;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	368 // ospeed = s.c_cflag & CBAUD;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	369 // erase_char = s.c_cc[VERASE];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	370 // kill_char = s.c_cc[VKILL];
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	371
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	372 // 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	373
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	374 s.c_lflag &= ~(ICANON\|ECHO\|ECHOE\|ECHOK\|ECHONL);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	375 s.c_oflag \|= (OPOST\|ONLCR);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	376 #if defined (OCRNL)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	377 s.c_oflag &= ~(OCRNL);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	378 #endif
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	379 #if defined (ONOCR)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	380 s.c_oflag &= ~(ONOCR);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	381 #endif
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	382 #if defined (ONLRET)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	383 s.c_oflag &= ~(ONLRET);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	384 #endif
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	385 s.c_cc[VMIN] = wait ? 1 : 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	386 s.c_cc[VTIME] = 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	387 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	388 else
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	389 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	390 // Restore saved modes.
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	391
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	392 s = save_term;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	393 }
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	394
9411 c9636d98e5cd fix kbhit(1) to not discard waiting keystrokes Joe Rothweiler <octaveuser@sensicomm.com> parents: 9242 diff changeset	395 tcsetattr (tty_fd, wait ? TCSAFLUSH : TCSADRAIN, &s);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	396 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	397 #elif defined (HAVE_TERMIO_H)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	398 {
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	399 struct termio s;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	400 static struct termio save_term;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	401
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	402 if (on)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	403 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	404 // Get terminal modes.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	405
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	406 ioctl (tty_fd, TCGETA, &s);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	407
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	408 // 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	409
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	410 save_term = s;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	411 // ospeed = s.c_cflag & CBAUD;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	412 // erase_char = s.c_cc[VERASE];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	413 // kill_char = s.c_cc[VKILL];
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	414
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	415 // 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	416
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	417 s.c_lflag &= ~(ICANON\|ECHO\|ECHOE\|ECHOK\|ECHONL);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	418 s.c_oflag \|= (OPOST\|ONLCR);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	419 #if defined (OCRNL)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	420 s.c_oflag &= ~(OCRNL);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	421 #endif
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	422 #if defined (ONOCR)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	423 s.c_oflag &= ~(ONOCR);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	424 #endif
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	425 #if defined (ONLRET)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	426 s.c_oflag &= ~(ONLRET);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	427 #endif
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	428 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	429 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	430 else
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 // Restore saved modes.
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	433
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	434 s = save_term;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	435 }
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	436
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	437 ioctl (tty_fd, TCSETAW, &s);
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	438 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	439 #elif defined (HAVE_SGTTY_H)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	440 {
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	441 struct sgttyb s;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	442 static struct sgttyb save_term;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	443
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	444 if (on)
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	445 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	446 // Get terminal modes.
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	447
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	448 ioctl (tty_fd, TIOCGETP, &s);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	449
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	450 // 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	451
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	452 save_term = s;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	453 // ospeed = s.sg_ospeed;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	454 // erase_char = s.sg_erase;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	455 // kill_char = s.sg_kill;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	456
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	457 // 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	458
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	459 s.sg_flags \|= CBREAK;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	460 s.sg_flags &= ~(ECHO);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	461 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	462 else
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	463 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	464 // Restore saved modes.
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	465
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	466 s = save_term;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	467 }
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	468
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	469 ioctl (tty_fd, TIOCSETN, &s);
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	470 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	471 #else
4064 b4fa31442a78 [project @ 2002-09-26 21:10:45 by jwe] jwe parents: 3676 diff changeset	472 warning ("no support for raw mode console I/O on this system");
b4fa31442a78 [project @ 2002-09-26 21:10:45 by jwe] jwe parents: 3676 diff changeset	473
b4fa31442a78 [project @ 2002-09-26 21:10:45 by jwe] jwe parents: 3676 diff changeset	474 // Make sure the current mode doesn't toggle.
b4fa31442a78 [project @ 2002-09-26 21:10:45 by jwe] jwe parents: 3676 diff changeset	475 on = curr_on;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	476 #endif
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	477
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	478 curr_on = on;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	479 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	480
6726 6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	481 FILE *
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	482 octave_popen (const char command, const char mode)
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	483 {
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	484 #if defined (__MINGW32__) \|\| defined (_MSC_VER)
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	485 if (mode && mode[0] && ! mode[1])
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	486 {
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	487 char tmode[3];
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	488 tmode[0] = mode[0];
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	489 tmode[1] = 'b';
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	490 tmode[2] = 0;
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	491
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	492 return _popen (command, tmode);
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	493 }
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	494 else
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	495 return _popen (command, mode);
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	496 #else
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	497 return popen (command, mode);
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	498 #endif
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	499 }
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	500
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	501 int
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	502 octave_pclose (FILE *f)
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	503 {
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	504 #if defined (__MINGW32__) \|\| defined (_MSC_VER)
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	505 return _pclose (f);
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	506 #else
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	507 return pclose (f);
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	508 #endif
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	509 }
6b7ba4a31876 [project @ 2007-06-14 20:16:44 by jwe] jwe parents: 6691 diff changeset	510
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	511 // Read one character from the terminal.
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 712 diff changeset	512
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	513 int
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	514 octave_kbhit (bool wait)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	515 {
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	516 #ifdef HAVE__KBHIT
4081 e5966ddef842 [project @ 2002-09-30 22:33:41 by jwe] jwe parents: 4067 diff changeset	517 int c = (! wait && ! _kbhit ()) ? 0 : std::cin.get ();
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	518 #else
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	519 raw_mode (true, wait);
808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	520
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	521 // Get current handler.
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	522 octave_interrupt_handler saved_interrupt_handler
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	523 = octave_ignore_interrupts ();
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	524
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	525 // 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	526 // read can be interrupted.
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	527
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	528 octave_set_interrupt_handler (saved_interrupt_handler, false);
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	529
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	530 int c = std::cin.get ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	531
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	532 if (std::cin.fail () \|\| std::cin.eof ())
808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	533 std::cin.clear ();
808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	534
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	535 // Restore it, enabling system call restarts (if possible).
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	536 octave_set_interrupt_handler (saved_interrupt_handler, true);
6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5455 diff changeset	537
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	538 raw_mode (false, true);
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	539 #endif
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	540
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	541 return c;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	542 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	543
12228 0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	544 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	545 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	546 {
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	547 #if defined (__WIN32__) && ! defined (_POSIX_VERSION)
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	548
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	549 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	550
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	551 #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	552 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	553 #endif
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	554
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	555 // 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	556 // 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	557 // 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	558
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	559 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	560 {
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	561 retval = octave_env::getenv ("TEMP");
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	562
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	563 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	564 retval = octave_env::getenv ("TMP");
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	565
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	566 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	567 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	568 }
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	569
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	570 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	571
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	572 #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	573
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	574 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	575
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	576 #else
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 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	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 #endif
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	581 }
0f70c5db58c3 try to get better value than \ for P_tmpdir on Windows systems John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	582
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	583 DEFUN (clc, , ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	584 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10315 diff changeset	585 @deftypefn {Built-in Function} {} clc ()\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3308 diff changeset	586 @deftypefnx {Built-in Function} {} home ()\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3308 diff changeset	587 Clear the terminal screen and move the cursor to the upper left corner.\n\
3333 15cddaacbc2d [project @ 1999-11-03 19:53:59 by jwe] jwe parents: 3332 diff changeset	588 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	589 {
16537 106a38d7b396 optionall disable redisplay in command editor clear screen function John W. Eaton <jwe@octave.org> parents: 16404 diff changeset	590 bool skip_redisplay = true;
106a38d7b396 optionall disable redisplay in command editor clear screen function John W. Eaton <jwe@octave.org> parents: 16404 diff changeset	591
106a38d7b396 optionall disable redisplay in command editor clear screen function John W. Eaton <jwe@octave.org> parents: 16404 diff changeset	592 command_editor::clear_screen (skip_redisplay);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	593
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2893 diff changeset	594 return octave_value_list ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	595 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	596
549 75a371805554 [project @ 1994-07-22 19:44:41 by jwe] jwe parents: 545 diff changeset	597 DEFALIAS (home, clc);
75a371805554 [project @ 1994-07-22 19:44:41 by jwe] jwe parents: 545 diff changeset	598
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	599 DEFUN (getenv, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	600 "-- texinfo --\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	601 @deftypefn {Built-in Function} {} getenv (@var{var})\n\
20382 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	602 Return the value of the environment variable @var{var}.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	603 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	604 For example,\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	605 \n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	606 @example\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	607 getenv (\"PATH\")\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	608 @end example\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	609 \n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	610 @noindent\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	611 returns a string containing the value of your path.\n\
19359 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	612 @seealso{setenv, unsetenv}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	613 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	614 {
4233 ccfdb55c8156 [project @ 2002-12-20 22:43:54 by jwe] jwe parents: 4208 diff changeset	615 octave_value retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	616
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	617 int nargin = args.length ();
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	618
712 36ba0576bd1b [project @ 1994-09-19 14:18:15 by jwe] jwe parents: 661 diff changeset	619 if (nargin == 1)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	620 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	621 std::string name = args(0).string_value ();
636 fae2bd91c027 [project @ 1994-08-23 18:39:50 by jwe] jwe parents: 610 diff changeset	622
fae2bd91c027 [project @ 1994-08-23 18:39:50 by jwe] jwe parents: 610 diff changeset	623 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	624 retval = octave_env::getenv (name);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	625 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	626 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	627 print_usage ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	628
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	629 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	630 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	631
19359 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	632 /*
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	633 %!assert (ischar (getenv ("OCTAVE_HOME")))
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	634 */
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	635
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	636 DEFUN (setenv, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	637 "-- texinfo --\n\
19359 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	638 @deftypefn {Built-in Function} {} setenv (@var{var}, @var{value})\n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	639 @deftypefnx {Built-in Function} {} setenv (@var{var})\n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	640 @deftypefnx {Built-in Function} {} putenv (@dots{})\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	641 Set the value of the environment variable @var{var} to @var{value}.\n\
19359 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	642 \n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	643 If no @var{value} is specified then the variable will be assigned the null\n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	644 string.\n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	645 @seealso{unsetenv, getenv}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	646 @end deftypefn")
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	647 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	648 octave_value_list retval;
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	649
6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	650 int nargin = args.length ();
6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	651
7759 84a7f00586aa Alias setenv to putenv. Allow single arg to putenv David Bateman <dbateman@free.fr> parents: 7231 diff changeset	652 if (nargin == 2 \|\| nargin == 1)
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	653 {
19600 03067dab10ca Use stricter input validation when looking for a string as input (bug #42651). Rik <rik@octave.org> parents: 19503 diff changeset	654 if (args(0).is_string ())
03067dab10ca Use stricter input validation when looking for a string as input (bug #42651). Rik <rik@octave.org> parents: 19503 diff changeset	655 {
03067dab10ca Use stricter input validation when looking for a string as input (bug #42651). Rik <rik@octave.org> parents: 19503 diff changeset	656 std::string var = args(0).string_value ();
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	657
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	658 std::string val = (nargin == 2
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	659 ? args(1).string_value () : std::string ());
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	660
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	661 if (! error_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	662 octave_env::putenv (var, val);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	663 else
19359 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	664 error ("setenv: VALUE must be a string");
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	665 }
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	666 else
19359 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	667 error ("setenv: VAR must be a string");
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	668 }
6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	669 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	670 print_usage ();
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	671
6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	672 return retval;
6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	673 }
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	674
19359 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	675 DEFALIAS (putenv, setenv);
1706 6bb0c67bbf24 [project @ 1996-01-07 05:40:05 by jwe] jwe parents: 1670 diff changeset	676
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	677 /*
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	678 %!test
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	679 %! 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	680 %! assert (getenv ("dummy_variable_that_cannot_matter"), "foobar");
19359 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	681 %! unsetenv ("dummy_variable_that_cannot_matter");
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	682 %! assert (getenv ("dummy_variable_that_cannot_matter"), "");
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	683 */
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	684
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	685 DEFUN (unsetenv, args, ,
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	686 "-- texinfo --\n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	687 @deftypefn {Built-in Function} {@var{status} =} unsetenv (@var{var})\n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	688 Delete the environment variable @var{var}.\n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	689 \n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	690 Return 0 if the variable was deleted, or did not exist, and -1 if an error\n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	691 occurred.\n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	692 @seealso{setenv, getenv}\n\
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	693 @end deftypefn")
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	694 {
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	695 octave_value retval;
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	696
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	697 int nargin = args.length ();
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	698
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	699 if (nargin == 1)
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	700 {
19737 146f1daa805b avoid valgrind warnings about using freed memory John W. Eaton <jwe@octave.org> parents: 19600 diff changeset	701 std::string tmp = args(0).string_value ();
19359 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	702
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	703 if (! error_state)
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	704 {
19737 146f1daa805b avoid valgrind warnings about using freed memory John W. Eaton <jwe@octave.org> parents: 19600 diff changeset	705 int status = gnulib::unsetenv (tmp.c_str ());
19359 6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	706 retval = status;
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	707 }
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	708 }
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	709 else
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	710 print_usage ();
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	711
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	712 return retval;
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	713 }
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	714
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	715 /*
6f0290863d50 Add new function unsetenv from gnulib to Octave. Rik <rik@octave.org> parents: 18829 diff changeset	716 ## 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	717 */
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	718
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	719 // 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	720
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	721 DEFUN (kbhit, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	722 "-- texinfo --\n\
16053 119ce9f5e1a3 doc: Add seealso links between input, yes_or_no, kbhit. Rik <rik@octave.org> parents: 16015 diff changeset	723 @deftypefn {Built-in Function} {} kbhit ()\n\
119ce9f5e1a3 doc: Add seealso links between input, yes_or_no, kbhit. Rik <rik@octave.org> parents: 16015 diff changeset	724 @deftypefnx {Built-in Function} {} kbhit (1)\n\
20382 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	725 Read a single keystroke from the keyboard.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	726 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	727 If called with an argument, don't wait for a keypress.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	728 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	729 For example,\n\
3372 f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	730 \n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	731 @example\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	732 x = kbhit ();\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	733 @end example\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	734 \n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	735 @noindent\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	736 will set @var{x} to the next character typed at the keyboard as soon as\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	737 it is typed.\n\
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	738 \n\
a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	739 @example\n\
a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	740 x = kbhit (1);\n\
a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	741 @end example\n\
a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	742 \n\
a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	743 @noindent\n\
16053 119ce9f5e1a3 doc: Add seealso links between input, yes_or_no, kbhit. Rik <rik@octave.org> parents: 16015 diff changeset	744 is identical to the above example, but doesn't wait for a keypress,\n\
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	745 returning the empty string if no key is available.\n\
18829 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	746 @seealso{input, pause}\n\
3372 f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	747 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	748 {
4233 ccfdb55c8156 [project @ 2002-12-20 22:43:54 by jwe] jwe parents: 4208 diff changeset	749 octave_value retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	750
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	751 // FIXME: add timeout and default value args?
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	752
20054 1c9ed5b4c73d input.h: change meaning of interactive and forced_interactive global variables. Carnë Draug <carandraug@octave.org> parents: 19979 diff changeset	753 if (interactive)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	754 {
15423 53d073233fa4 call more built-in functions directly John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	755 Fdrawnow ();
6423 a90b54016b12 [project @ 2007-03-21 13:15:03 by jwe] jwe parents: 6419 diff changeset	756
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	757 int c = octave_kbhit (args.length () == 0);
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	758
3658 808f399398c9 [project @ 2000-04-11 19:45:44 by jwe] jwe parents: 3657 diff changeset	759 if (c == -1)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	760 c = 0;
3657 a908150a3a32 [project @ 2000-04-11 19:02:03 by jwe] jwe parents: 3531 diff changeset	761
16092 def3b111cff8 avoid gcc warning about int to char conversion John W. Eaton <jwe@octave.org> parents: 16053 diff changeset	762 char s[2] = { static_cast<char> (c), '\0' };
16015 d910b9211cca Plug memory leak in kbhit(). Rik <rik@octave.org> parents: 15423 diff changeset	763
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	764 retval = s;
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
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	767 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	768 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	769
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	770 DEFUN (pause, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	771 "-- texinfo --\n\
18829 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	772 @deftypefn {Built-in Function} {} pause ()\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	773 @deftypefnx {Built-in Function} {} pause (@var{n})\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	774 Suspend the execution of the program for @var{n} seconds.\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	775 \n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	776 @var{n} is a positive real value and may be a fraction of a second.\n\
20382 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	777 \n\
18829 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	778 If invoked without an input arguments then the program is suspended until a\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	779 character is typed.\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	780 \n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	781 The following example prints a message and then waits 5 seconds before\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	782 clearing the screen.\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	783 \n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	784 @example\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	785 @group\n\
6848 9de60a998cf3 [project @ 2007-08-30 17:54:48 by jwe] jwe parents: 6726 diff changeset	786 fprintf (stderr, \"wait please...\\n\");\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	787 pause (5);\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	788 clc;\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	789 @end group\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	790 @end example\n\
18829 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	791 @seealso{kbhit, sleep}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	792 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	793 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	794 octave_value_list retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	795
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	796 int nargin = args.length ();
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	797
712 36ba0576bd1b [project @ 1994-09-19 14:18:15 by jwe] jwe parents: 661 diff changeset	798 if (! (nargin == 0 \|\| nargin == 1))
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	799 {
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	800 print_usage ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	801 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	802 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	803
1579 972ce8b5a757 [project @ 1995-10-19 06:39:35 by jwe] jwe parents: 1488 diff changeset	804 if (nargin == 1)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	805 {
1579 972ce8b5a757 [project @ 1995-10-19 06:39:35 by jwe] jwe parents: 1488 diff changeset	806 double dval = args(0).double_value ();
636 fae2bd91c027 [project @ 1994-08-23 18:39:50 by jwe] jwe parents: 610 diff changeset	807
1579 972ce8b5a757 [project @ 1995-10-19 06:39:35 by jwe] jwe parents: 1488 diff changeset	808 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	809 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	810 if (! xisnan (dval))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	811 {
15423 53d073233fa4 call more built-in functions directly John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	812 Fdrawnow ();
6419 73fcbac81f33 [project @ 2007-03-20 17:18:24 by jwe] jwe parents: 6208 diff changeset	813
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	814 if (xisinf (dval))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	815 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	816 flush_octave_stdout ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	817 octave_kbhit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	818 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	819 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	820 octave_sleep (dval);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	821 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	822 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	823 warning ("pause: NaN is an invalid delay");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	824 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	825 }
1579 972ce8b5a757 [project @ 1995-10-19 06:39:35 by jwe] jwe parents: 1488 diff changeset	826 else
3234 be8e0ba13644 [project @ 1999-01-29 03:52:30 by jwe] jwe parents: 3124 diff changeset	827 {
15423 53d073233fa4 call more built-in functions directly John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	828 Fdrawnow ();
3234 be8e0ba13644 [project @ 1999-01-29 03:52:30 by jwe] jwe parents: 3124 diff changeset	829 flush_octave_stdout ();
4067 e97fb79fc1d5 [project @ 2002-09-26 22:43:25 by jwe] jwe parents: 4064 diff changeset	830 octave_kbhit ();
3234 be8e0ba13644 [project @ 1999-01-29 03:52:30 by jwe] jwe parents: 3124 diff changeset	831 }
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 return retval;
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	834 }
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	835
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	836 /*
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	837 %!test
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	838 %! pause (1);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	839
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	840 %!error (pause (1, 2))
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	841 */
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	842
2630 fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	843 DEFUN (sleep, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	844 "-- texinfo --\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	845 @deftypefn {Built-in Function} {} sleep (@var{seconds})\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	846 Suspend the execution of the program for the given number of seconds.\n\
18829 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	847 @seealso{usleep, pause}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	848 @end deftypefn")
2630 fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	849 {
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	850 octave_value_list retval;
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	851
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	852 if (args.length () == 1)
1579 972ce8b5a757 [project @ 1995-10-19 06:39:35 by jwe] jwe parents: 1488 diff changeset	853 {
2630 fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	854 double dval = args(0).double_value ();
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	855
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	856 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	857 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	858 if (xisnan (dval))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	859 warning ("sleep: NaN is an invalid delay");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	860 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	861 {
15423 53d073233fa4 call more built-in functions directly John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	862 Fdrawnow ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	863 octave_sleep (dval);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	864 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	865 }
1579 972ce8b5a757 [project @ 1995-10-19 06:39:35 by jwe] jwe parents: 1488 diff changeset	866 }
2630 fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	867 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	868 print_usage ();
2630 fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	869
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	870 return retval;
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	871 }
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	872
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	873 /*
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	874 %!test
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	875 %! sleep (1);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	876
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	877 %!error (sleep ())
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	878 %!error (sleep (1, 2))
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	879 */
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	880
2630 fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	881 DEFUN (usleep, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	882 "-- texinfo --\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	883 @deftypefn {Built-in Function} {} usleep (@var{microseconds})\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	884 Suspend the execution of the program for the given number of\n\
20382 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	885 microseconds.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	886 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	887 On systems where it is not possible to sleep for periods of time less than\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	888 one second, @code{usleep} will pause the execution for @code{round\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	889 (@var{microseconds} / 1e6)} seconds.\n\
18829 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	890 @seealso{sleep, pause}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	891 @end deftypefn")
2630 fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	892 {
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	893 octave_value_list retval;
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	894
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	895 if (args.length () == 1)
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	896 {
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	897 double dval = args(0).double_value ();
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	898
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	899 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	900 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	901 if (xisnan (dval))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	902 warning ("usleep: NaN is an invalid delay");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	903 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	904 {
15423 53d073233fa4 call more built-in functions directly John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	905 Fdrawnow ();
6423 a90b54016b12 [project @ 2007-03-21 13:15:03 by jwe] jwe parents: 6419 diff changeset	906
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	907 int delay = NINT (dval);
2631 0774c3f023e8 [project @ 1997-01-27 19:22:05 by jwe] jwe parents: 2630 diff changeset	908
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	909 if (delay > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	910 octave_usleep (delay);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	911 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	912 }
2630 fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	913 }
fdee6fe3e73b [project @ 1997-01-27 19:08:47 by jwe] jwe parents: 2610 diff changeset	914 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	915 print_usage ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	916
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	917 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	918 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 505 diff changeset	919
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	920 /*
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	921 %!test
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	922 %! usleep (1000);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	923
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	924 %!error (usleep ())
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	925 %!error (usleep (1, 2))
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	926 */
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	927
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	928 // 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	929 // point functions really work.
61d83ce7368c [project @ 1994-10-31 20:39:30 by jwe] jwe parents: 844 diff changeset	930
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	931 DEFUN (isieee, , ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	932 "-- texinfo --\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	933 @deftypefn {Built-in Function} {} isieee ()\n\
11431 0d9640d755b1 Improve docstrings for all isXXX functions. Rik <octave@nomad.inbox5.com> parents: 11234 diff changeset	934 Return true if your computer @emph{claims} to conform to the IEEE standard\n\
20382 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	935 for floating point calculations.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	936 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	937 No actual tests are performed.\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	938 @end deftypefn")
862 61d83ce7368c [project @ 1994-10-31 20:39:30 by jwe] jwe parents: 844 diff changeset	939 {
4600 3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	940 oct_mach_info::float_format flt_fmt = oct_mach_info::native_float_format ();
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 2086 diff changeset	941
4574 6cb22b9e3942 [project @ 2003-10-31 05:57:43 by jwe] jwe parents: 4470 diff changeset	942 return octave_value (flt_fmt == oct_mach_info::flt_fmt_ieee_little_endian
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	943 \|\| flt_fmt == oct_mach_info::flt_fmt_ieee_big_endian);
862 61d83ce7368c [project @ 1994-10-31 20:39:30 by jwe] jwe parents: 844 diff changeset	944 }
61d83ce7368c [project @ 1994-10-31 20:39:30 by jwe] jwe parents: 844 diff changeset	945
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	946 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	947 %!assert (islogical (isieee ()))
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	948 */
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	949
4600 3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	950 DEFUN (native_float_format, , ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	951 "-- texinfo --\n\
4600 3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	952 @deftypefn {Built-in Function} {} native_float_format ()\n\
20382 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	953 Return the native floating point format as a string.\n\
4600 3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	954 @end deftypefn")
3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	955 {
3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	956 oct_mach_info::float_format flt_fmt = oct_mach_info::native_float_format ();
3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	957
3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	958 return octave_value (oct_mach_info::float_format_as_string (flt_fmt));
3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	959 }
3680bb30de0b [project @ 2003-11-12 18:25:53 by jwe] jwe parents: 4574 diff changeset	960
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	961 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14160 diff changeset	962 %!assert (ischar (native_float_format ()))
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	963 */
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	964
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1884 diff changeset	965 DEFUN (tilde_expand, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	966 "-- texinfo --\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	967 @deftypefn {Built-in Function} {} tilde_expand (@var{string})\n\
20382 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	968 Perform tilde expansion on @var{string}.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	969 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	970 If @var{string} begins with a tilde character, (@samp{~}), all of the\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	971 characters preceding the first slash (or all characters, if there is no\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	972 slash) are treated as a possible user name, and the tilde and the following\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	973 characters up to the slash are replaced by the home directory of the named\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	974 user. If the tilde is followed immediately by a slash, the tilde is\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	975 replaced by the home directory of the user running Octave.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	976 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20274 diff changeset	977 For example:\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	978 \n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	979 @example\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	980 @group\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	981 tilde_expand (\"~joeuser/bin\")\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	982 @result{} \"/home/joeuser/bin\"\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	983 tilde_expand (\"~/bin\")\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	984 @result{} \"/home/jwe/bin\"\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	985 @end group\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	986 @end example\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3248 diff changeset	987 @end deftypefn")
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	988 {
4233 ccfdb55c8156 [project @ 2002-12-20 22:43:54 by jwe] jwe parents: 4208 diff changeset	989 octave_value retval;
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	990
fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	991 int nargin = args.length ();
fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	992
fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	993 if (nargin == 1)
6116 b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	994 {
b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	995 octave_value arg = args(0);
b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	996
b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	997 string_vector sv = arg.all_strings ();
b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	998
b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	999 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	1000 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	1001 sv = file_ops::tilde_expand (sv);
6116 b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	1002
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	1003 if (arg.is_cellstr ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	1004 retval = Cell (arg.dims (), sv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	1005 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	1006 retval = sv;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	1007 }
6116 b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	1008 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10266 diff changeset	1009 error ("tilde_expand: expecting argument to be char or cellstr object");
6116 b64fb24bf4a0 [project @ 2006-10-27 18:04:49 by jwe] jwe parents: 6086 diff changeset	1010 }
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	1011 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5775 diff changeset	1012 print_usage ();
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	1013
fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	1014 return retval;
fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	1015 }
12825 a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	1016
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	1017 /*
a1dcb854a4f9 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 12483 diff changeset	1018 %!test
20226 47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 20068 diff changeset	1019 %! home = get_home_directory ();
20274 ab7582167810 Fix failing BIST test for tilde_expand() on Windows (bug #44796). Rik <rik@octave.org> parents: 20234 diff changeset	1020 %! 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	1021 %! 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	1022 %! 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	1023 */
17851 af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1024
20226 47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 20068 diff changeset	1025 DEFUN (get_home_directory, , ,
47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 20068 diff changeset	1026 "-- texinfo --\n\
20234 cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1027 @deftypefn {Built-in Function} {@var{homedir} =} get_home_directory ()\n\
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1028 Return the current home directory.\n\
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1029 \n\
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1030 On most systems, this is equivalent to @code{getenv (\"HOME\")}. On Windows\n\
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1031 systems, if the environment variable @env{HOME} is not set then it is\n\
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1032 equivalent to\n\
20226 47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 20068 diff changeset	1033 @code{fullfile (getenv (\"HOMEDRIVE\"), getenv (\"HOMEPATH\"))}\n\
47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 20068 diff changeset	1034 @seealso{getenv}\n\
47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 20068 diff changeset	1035 @end deftypefn")
47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 20068 diff changeset	1036 {
47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 20068 diff changeset	1037 return octave_value (octave_env::get_home_directory ());
47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 20068 diff changeset	1038 }
47d420d769ba * sysdep.cc (Fget_home_directory): New function. John W. Eaton <jwe@octave.org> parents: 20068 diff changeset	1039
20234 cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1040 /*
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1041 %!test
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1042 %! if (! ispc ())
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1043 %! assert (get_home_directory (), getenv ("HOME"));
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1044 %! endif
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1045 */
cf9b94a89620 Document get_home_directory in Octave manual and NEWS file. Rik <rik@octave.org> parents: 20226 diff changeset	1046
17851 af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1047 // 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	1048 // 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	1049 // needed for X11 and Carbon functions.
af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1050
af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1051 DEFUN (have_window_system, , ,
20068 19755f4fc851 maint: Cleanup C++ code to follow Octave coding conventions. Rik <rik@octave.org> parents: 20062 diff changeset	1052 "-- texinfo --\n\
17851 af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1053 @deftypefn {Built-in Function} {} have_window_system ()\n\
18829 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	1054 Return true if a window system is available (X11, Windows, or Apple OS X)\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 17851 diff changeset	1055 and false otherwise.\n\
20062 bf511802add7 doc: Add have_window_system() to documentation. Rik <rik@octave.org> parents: 20061 diff changeset	1056 @seealso{isguirunning}\n\
17851 af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1057 @end deftypefn")
af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1058 {
af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1059 return octave_value (display_info::display_available ());
af685269e06c avoid symbol conflicts in display.cc John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1060 }

Mercurial > hg > octave-nkf

annotate libinterp/corefcn/sysdep.cc @ 20382:4f45eaf83908 stable