Mercurial > octave-nkf
annotate src/sysdep.cc @ 11572:7d6d8c1e471f
Grammarcheck Texinfo for files in src directory.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Wed, 19 Jan 2011 17:51:22 -0800 |
| parents | fd0a3ac60b0e |
| children | 12df7854fa7c |
| rev | line source |
|---|---|
| 1 | 1 /* |
| 2 | |
| 11523 | 3 Copyright (C) 1993-2011 John W. Eaton |
| 1 | 4 |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 1 | 11 |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 7016 | 18 along with Octave; see the file COPYING. If not, see |
| 19 <http://www.gnu.org/licenses/>. | |
| 1 | 20 |
| 21 */ | |
| 22 | |
| 240 | 23 #ifdef HAVE_CONFIG_H |
| 1192 | 24 #include <config.h> |
| 1 | 25 #endif |
| 26 | |
| 1346 | 27 #include <cfloat> |
| 1343 | 28 #include <cstddef> |
| 1346 | 29 #include <cstdio> |
| 1343 | 30 #include <cstdlib> |
| 31 #include <cstring> | |
| 32 | |
| 3503 | 33 #include <iostream> |
| 1728 | 34 #include <string> |
| 35 | |
| 529 | 36 #include <sys/types.h> |
| 37 #include <unistd.h> | |
| 1 | 38 |
| 1430 | 39 #if defined (HAVE_TERMIOS_H) |
| 40 #include <termios.h> | |
| 41 #elif defined (HAVE_TERMIO_H) | |
| 42 #include <termio.h> | |
| 43 #elif defined (HAVE_SGTTY_H) | |
| 44 #include <sgtty.h> | |
| 4067 | 45 #endif |
| 46 | |
| 47 #if defined (HAVE_CONIO_H) | |
| 48 #include <conio.h> | |
| 1430 | 49 #endif |
| 50 | |
| 3248 | 51 #if defined (HAVE_SYS_IOCTL_H) |
| 52 #include <sys/ioctl.h> | |
| 53 #endif | |
| 54 | |
| 1463 | 55 #if defined (HAVE_FLOATINGPOINT_H) |
| 56 #include <floatingpoint.h> | |
| 57 #endif | |
| 58 | |
| 2508 | 59 #if defined (HAVE_IEEEFP_H) |
| 60 #include <ieeefp.h> | |
| 61 #endif | |
| 62 | |
| 2926 | 63 #include "cmd-edit.h" |
| 64 #include "file-ops.h" | |
| 2893 | 65 #include "lo-mappers.h" |
| 7231 | 66 #include "lo-math.h" |
| 2317 | 67 #include "mach-info.h" |
| 2926 | 68 #include "oct-env.h" |
| 5451 | 69 #include "quit.h" |
| 1769 | 70 |
| 6208 | 71 #include "Cell.h" |
| 1352 | 72 #include "defun.h" |
| 73 #include "error.h" | |
| 529 | 74 #include "input.h" |
| 1755 | 75 #include "oct-obj.h" |
| 2370 | 76 #include "ov.h" |
| 3234 | 77 #include "pager.h" |
| 6419 | 78 #include "parse.h" |
| 5770 | 79 #include "sighandlers.h" |
| 1352 | 80 #include "sysdep.h" |
| 1755 | 81 #include "toplev.h" |
| 529 | 82 #include "utils.h" |
| 6598 | 83 #include "file-stat.h" |
| 529 | 84 |
| 85 #ifndef STDIN_FILENO | |
| 86 #define STDIN_FILENO 1 | |
| 87 #endif | |
| 444 | 88 |
|
9441
160c564d5d25
initialize floating point values properly for NetBSD systems
Aleksej Saushev <asau@inbox.ru>
parents:
9411
diff
changeset
|
89 #if defined (__386BSD__) || defined (__FreeBSD__) || defined (__NetBSD__) |
| 2508 | 90 static void |
| 91 BSD_init (void) | |
| 92 { | |
| 93 #if defined (HAVE_FLOATINGPOINT_H) | |
| 94 // Disable trapping on common exceptions. | |
| 4164 | 95 #ifndef FP_X_DNML |
| 96 #define FP_X_DNML 0 | |
| 97 #endif | |
| 2508 | 98 fpsetmask (~(FP_X_OFL|FP_X_INV|FP_X_DZ|FP_X_DNML|FP_X_UFL|FP_X_IMP)); |
| 99 #endif | |
| 100 } | |
| 101 #endif | |
| 102 | |
| 6956 | 103 #if defined (__WIN32__) && ! defined (_POSIX_VERSION) |
| 6080 | 104 static void |
| 105 w32_set_octave_home (void) | |
| 106 { | |
| 107 int n = 1024; | |
| 108 | |
| 6086 | 109 std::string bin_dir (n, '\0'); |
| 6080 | 110 |
| 111 while (true) | |
| 112 { | |
| 6954 | 113 HMODULE hMod = GetModuleHandle ("octinterp"); |
| 114 int status = GetModuleFileName (hMod, &bin_dir[0], n); | |
| 6080 | 115 |
| 116 if (status < n) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
117 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
118 bin_dir.resize (status); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
119 break; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
120 } |
| 6080 | 121 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
122 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
123 n *= 2; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
124 bin_dir.resize (n); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
125 } |
| 6080 | 126 } |
| 127 | |
| 128 if (! bin_dir.empty ()) | |
| 129 { | |
| 130 size_t pos = bin_dir.rfind ("\\bin\\"); | |
| 131 | |
| 8021 | 132 if (pos != std::string::npos) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
133 octave_env::putenv ("OCTAVE_HOME", bin_dir.substr (0, pos)); |
| 6080 | 134 } |
| 135 } | |
| 136 | |
| 6960 | 137 void |
| 5451 | 138 w32_set_quiet_shutdown (void) |
| 139 { | |
| 140 // Let the user close the console window or shutdown without the | |
| 141 // pesky dialog. | |
| 142 // | |
| 5775 | 143 // FIXME -- should this be user configurable? |
| 5451 | 144 SetProcessShutdownParameters (0x280, SHUTDOWN_NORETRY); |
| 145 } | |
| 146 | |
| 6960 | 147 void |
| 5451 | 148 MINGW_signal_cleanup (void) |
| 149 { | |
| 5455 | 150 w32_set_quiet_shutdown (); |
| 5451 | 151 |
| 5455 | 152 w32_raise_final (); |
| 5451 | 153 } |
| 154 #endif | |
| 155 | |
| 156 #if defined (__MINGW32__) | |
| 157 static void | |
| 158 MINGW_init (void) | |
| 159 { | |
| 6080 | 160 w32_set_octave_home (); |
| 161 | |
| 5451 | 162 // Init mutex to protect setjmp/longjmp and get main thread context |
| 163 w32_sigint_init (); | |
| 164 | |
| 165 w32_set_quiet_shutdown (); | |
| 166 } | |
| 167 #endif | |
| 168 | |
| 6080 | 169 #if defined (_MSC_VER) |
| 170 static void | |
| 171 MSVC_init (void) | |
| 172 { | |
| 173 w32_set_octave_home (); | |
| 6135 | 174 |
| 175 // Init mutex to protect setjmp/longjmp and get main thread context | |
| 176 w32_sigint_init (); | |
| 177 | |
| 178 w32_set_quiet_shutdown (); | |
| 6080 | 179 } |
| 180 #endif | |
| 181 | |
| 4091 | 182 |
| 6598 | 183 // Return TRUE if FILE1 and FILE2 refer to the same (physical) file. |
| 184 | |
| 185 bool | |
| 186 same_file_internal (const std::string& file1, const std::string& file2) | |
| 187 { | |
| 188 #ifdef OCTAVE_USE_WINDOWS_API | |
| 189 | |
| 6691 | 190 bool retval = false; |
| 191 | |
| 6598 | 192 // Windows native code |
| 193 // Reference: http://msdn2.microsoft.com/en-us/library/aa363788.aspx | |
| 194 | |
| 6691 | 195 HANDLE hfile1 = CreateFile (file1.c_str (), 0, FILE_SHARE_READ, 0, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
196 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); |
| 6691 | 197 |
| 198 if (hfile1 != INVALID_HANDLE_VALUE) | |
| 199 { | |
| 200 HANDLE hfile2 = CreateFile (file2.c_str (), 0, FILE_SHARE_READ, 0, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
201 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); |
| 6598 | 202 |
| 6691 | 203 if (hfile2 != INVALID_HANDLE_VALUE) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
204 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
205 BY_HANDLE_FILE_INFORMATION hfi1; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
206 BY_HANDLE_FILE_INFORMATION hfi2; |
| 6691 | 207 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
208 if (GetFileInformationByHandle (hfile1, &hfi1) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
209 && GetFileInformationByHandle (hfile2, &hfi2)) |
| 6598 | 210 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
211 retval = (hfi1.dwVolumeSerialNumber == hfi2.dwVolumeSerialNumber |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
212 && hfi1.nFileIndexHigh == hfi2.nFileIndexHigh |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
213 && hfi1.nFileIndexLow == hfi2.nFileIndexLow); |
| 6598 | 214 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
215 CloseHandle (hfile2); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
216 } |
| 6691 | 217 |
| 6598 | 218 CloseHandle (hfile1); |
| 219 } | |
| 6691 | 220 |
| 221 return retval; | |
| 6598 | 222 |
| 223 #else | |
| 224 | |
| 225 // POSIX Code | |
| 226 | |
| 227 file_stat fs_file1 (file1); | |
| 228 file_stat fs_file2 (file2); | |
| 229 | |
| 230 return (fs_file1 && fs_file2 | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
231 && fs_file1.ino () == fs_file2.ino () |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
232 && fs_file1.dev () == fs_file2.dev ()); |
| 6598 | 233 |
| 234 #endif | |
| 235 } | |
| 236 | |
| 1 | 237 void |
| 238 sysdep_init (void) | |
| 239 { | |
|
9441
160c564d5d25
initialize floating point values properly for NetBSD systems
Aleksej Saushev <asau@inbox.ru>
parents:
9411
diff
changeset
|
240 #if defined (__386BSD__) || defined (__FreeBSD__) || defined(__NetBSD__) |
| 2508 | 241 BSD_init (); |
| 5451 | 242 #elif defined (__MINGW32__) |
| 243 MINGW_init (); | |
| 6080 | 244 #elif defined (_MSC_VER) |
| 245 MSVC_init (); | |
| 1 | 246 #endif |
| 247 } | |
| 248 | |
| 5451 | 249 void |
| 250 sysdep_cleanup (void) | |
| 251 { | |
| 252 MINGW_SIGNAL_CLEANUP (); | |
| 253 } | |
| 254 | |
| 767 | 255 // Set terminal in raw mode. From less-177. |
| 256 // | |
| 257 // Change terminal to "raw mode", or restore to "normal" mode. | |
| 258 // "Raw mode" means | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
259 // 1. An outstanding read will complete on receipt of a single keystroke. |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
260 // 2. Input is not echoed. |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
261 // 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
|
262 // 4. \t is NOT expanded into spaces. |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
263 // 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
|
264 // etc. are NOT disabled. |
| 767 | 265 // It doesn't matter whether an input \n is mapped to \r, or vice versa. |
| 266 | |
| 529 | 267 void |
| 3657 | 268 raw_mode (bool on, bool wait) |
| 529 | 269 { |
| 3657 | 270 static bool curr_on = false; |
| 529 | 271 |
| 272 int tty_fd = STDIN_FILENO; | |
| 273 if (! isatty (tty_fd)) | |
| 274 { | |
| 275 if (interactive) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
276 error ("stdin is not a tty!"); |
| 529 | 277 return; |
| 278 } | |
| 279 | |
| 280 if (on == curr_on) | |
| 281 return; | |
| 282 | |
| 283 #if defined (HAVE_TERMIOS_H) | |
| 284 { | |
| 285 struct termios s; | |
| 286 static struct termios save_term; | |
| 287 | |
| 288 if (on) | |
| 289 { | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
290 // Get terminal modes. |
| 529 | 291 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
292 tcgetattr (tty_fd, &s); |
| 529 | 293 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
294 // Save modes and set certain variables dependent on modes. |
| 529 | 295 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
296 save_term = s; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
297 // ospeed = s.c_cflag & CBAUD; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
298 // erase_char = s.c_cc[VERASE]; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
299 // kill_char = s.c_cc[VKILL]; |
| 529 | 300 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
301 // Set the modes to the way we want them. |
| 529 | 302 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
303 s.c_lflag &= ~(ICANON|ECHO|ECHOE|ECHOK|ECHONL); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
304 s.c_oflag |= (OPOST|ONLCR); |
| 529 | 305 #if defined (OCRNL) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
306 s.c_oflag &= ~(OCRNL); |
| 529 | 307 #endif |
| 308 #if defined (ONOCR) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
309 s.c_oflag &= ~(ONOCR); |
| 529 | 310 #endif |
| 311 #if defined (ONLRET) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
312 s.c_oflag &= ~(ONLRET); |
| 529 | 313 #endif |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
314 s.c_cc[VMIN] = wait ? 1 : 0; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
315 s.c_cc[VTIME] = 0; |
| 529 | 316 } |
| 317 else | |
| 318 { | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
319 // Restore saved modes. |
| 1358 | 320 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
321 s = save_term; |
| 529 | 322 } |
| 3658 | 323 |
|
9411
c9636d98e5cd
fix kbhit(1) to not discard waiting keystrokes
Joe Rothweiler <octaveuser@sensicomm.com>
parents:
9242
diff
changeset
|
324 tcsetattr (tty_fd, wait ? TCSAFLUSH : TCSADRAIN, &s); |
| 529 | 325 } |
| 326 #elif defined (HAVE_TERMIO_H) | |
| 327 { | |
| 328 struct termio s; | |
| 329 static struct termio save_term; | |
| 330 | |
| 331 if (on) | |
| 332 { | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
333 // Get terminal modes. |
| 529 | 334 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
335 ioctl (tty_fd, TCGETA, &s); |
| 529 | 336 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
337 // Save modes and set certain variables dependent on modes. |
| 529 | 338 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
339 save_term = s; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
340 // ospeed = s.c_cflag & CBAUD; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
341 // erase_char = s.c_cc[VERASE]; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
342 // kill_char = s.c_cc[VKILL]; |
| 529 | 343 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
344 // Set the modes to the way we want them. |
| 529 | 345 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
346 s.c_lflag &= ~(ICANON|ECHO|ECHOE|ECHOK|ECHONL); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
347 s.c_oflag |= (OPOST|ONLCR); |
| 529 | 348 #if defined (OCRNL) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
349 s.c_oflag &= ~(OCRNL); |
| 529 | 350 #endif |
| 351 #if defined (ONOCR) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
352 s.c_oflag &= ~(ONOCR); |
| 529 | 353 #endif |
| 354 #if defined (ONLRET) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
355 s.c_oflag &= ~(ONLRET); |
| 529 | 356 #endif |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
357 s.c_cc[VMIN] = wait ? 1 : 0; |
| 529 | 358 } |
| 359 else | |
| 360 { | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
361 // Restore saved modes. |
| 1358 | 362 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
363 s = save_term; |
| 529 | 364 } |
| 3658 | 365 |
| 529 | 366 ioctl (tty_fd, TCSETAW, &s); |
| 367 } | |
| 368 #elif defined (HAVE_SGTTY_H) | |
| 369 { | |
| 370 struct sgttyb s; | |
| 371 static struct sgttyb save_term; | |
| 372 | |
| 373 if (on) | |
| 374 { | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
375 // Get terminal modes. |
| 529 | 376 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
377 ioctl (tty_fd, TIOCGETP, &s); |
| 529 | 378 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
379 // Save modes and set certain variables dependent on modes. |
| 529 | 380 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
381 save_term = s; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
382 // ospeed = s.sg_ospeed; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
383 // erase_char = s.sg_erase; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
384 // kill_char = s.sg_kill; |
| 529 | 385 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
386 // Set the modes to the way we want them. |
| 529 | 387 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
388 s.sg_flags |= CBREAK; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
389 s.sg_flags &= ~(ECHO); |
| 529 | 390 } |
| 391 else | |
| 392 { | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
393 // Restore saved modes. |
| 1358 | 394 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
395 s = save_term; |
| 529 | 396 } |
| 3658 | 397 |
| 529 | 398 ioctl (tty_fd, TIOCSETN, &s); |
| 399 } | |
| 400 #else | |
| 4064 | 401 warning ("no support for raw mode console I/O on this system"); |
| 402 | |
| 403 // Make sure the current mode doesn't toggle. | |
| 404 on = curr_on; | |
| 529 | 405 #endif |
| 406 | |
| 407 curr_on = on; | |
| 408 } | |
| 409 | |
| 6726 | 410 FILE * |
| 411 octave_popen (const char *command, const char *mode) | |
| 412 { | |
| 413 #if defined (__MINGW32__) || defined (_MSC_VER) | |
| 414 if (mode && mode[0] && ! mode[1]) | |
| 415 { | |
| 416 char tmode[3]; | |
| 417 tmode[0] = mode[0]; | |
| 418 tmode[1] = 'b'; | |
| 419 tmode[2] = 0; | |
| 420 | |
| 421 return _popen (command, tmode); | |
| 422 } | |
| 423 else | |
| 424 return _popen (command, mode); | |
| 425 #else | |
| 426 return popen (command, mode); | |
| 427 #endif | |
| 428 } | |
| 429 | |
| 430 int | |
| 431 octave_pclose (FILE *f) | |
| 432 { | |
| 433 #if defined (__MINGW32__) || defined (_MSC_VER) | |
| 434 return _pclose (f); | |
| 435 #else | |
| 436 return pclose (f); | |
| 437 #endif | |
| 438 } | |
| 439 | |
| 767 | 440 // Read one character from the terminal. |
| 441 | |
| 529 | 442 int |
| 4067 | 443 octave_kbhit (bool wait) |
| 529 | 444 { |
| 4067 | 445 #ifdef HAVE__KBHIT |
| 4081 | 446 int c = (! wait && ! _kbhit ()) ? 0 : std::cin.get (); |
| 4067 | 447 #else |
| 3658 | 448 raw_mode (true, wait); |
| 449 | |
| 5770 | 450 // Get current handler. |
| 451 octave_interrupt_handler saved_interrupt_handler | |
| 452 = octave_ignore_interrupts (); | |
| 453 | |
| 454 // Restore it, disabling system call restarts (if possible) so the | |
| 455 // read can be interrupted. | |
| 456 | |
| 457 octave_set_interrupt_handler (saved_interrupt_handler, false); | |
| 458 | |
| 3658 | 459 int c = std::cin.get (); |
| 5770 | 460 |
| 3658 | 461 if (std::cin.fail () || std::cin.eof ()) |
| 462 std::cin.clear (); | |
| 463 | |
| 5770 | 464 // Restore it, enabling system call restarts (if possible). |
| 465 octave_set_interrupt_handler (saved_interrupt_handler, true); | |
| 466 | |
| 3658 | 467 raw_mode (false, true); |
| 4067 | 468 #endif |
| 3658 | 469 |
| 529 | 470 return c; |
| 471 } | |
| 472 | |
| 1957 | 473 DEFUN (clc, , , |
| 3332 | 474 "-*- texinfo -*-\n\ |
| 10840 | 475 @deftypefn {Built-in Function} {} clc ()\n\ |
| 3332 | 476 @deftypefnx {Built-in Function} {} home ()\n\ |
| 477 Clear the terminal screen and move the cursor to the upper left corner.\n\ | |
| 3333 | 478 @end deftypefn") |
| 529 | 479 { |
| 2926 | 480 command_editor::clear_screen (); |
| 529 | 481 |
| 2926 | 482 return octave_value_list (); |
| 529 | 483 } |
| 484 | |
| 549 | 485 DEFALIAS (home, clc); |
| 486 | |
| 1957 | 487 DEFUN (getenv, args, , |
| 3301 | 488 "-*- texinfo -*-\n\ |
| 489 @deftypefn {Built-in Function} {} getenv (@var{var})\n\ | |
| 490 Return the value of the environment variable @var{var}. For example,\n\ | |
| 491 \n\ | |
| 492 @example\n\ | |
| 493 getenv (\"PATH\")\n\ | |
| 494 @end example\n\ | |
| 495 \n\ | |
| 496 @noindent\n\ | |
| 497 returns a string containing the value of your path.\n\ | |
| 498 @end deftypefn") | |
| 529 | 499 { |
| 4233 | 500 octave_value retval; |
| 529 | 501 |
| 502 int nargin = args.length (); | |
| 503 | |
| 712 | 504 if (nargin == 1) |
| 529 | 505 { |
| 3523 | 506 std::string name = args(0).string_value (); |
| 636 | 507 |
| 508 if (! error_state) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
509 retval = octave_env::getenv (name); |
| 529 | 510 } |
| 511 else | |
| 5823 | 512 print_usage (); |
| 529 | 513 |
| 514 return retval; | |
| 515 } | |
| 516 | |
| 1957 | 517 DEFUN (putenv, args, , |
| 3301 | 518 "-*- texinfo -*-\n\ |
| 10840 | 519 @deftypefn {Built-in Function} {} putenv (@var{var}, @var{value})\n\ |
|
7759
84a7f00586aa
Alias setenv to putenv. Allow single arg to putenv
David Bateman <dbateman@free.fr>
parents:
7231
diff
changeset
|
520 @deftypefnx {Built-in Function} {} setenv (@var{var}, @var{value})\n\ |
| 3301 | 521 Set the value of the environment variable @var{var} to @var{value}.\n\ |
| 522 @end deftypefn") | |
| 1706 | 523 { |
| 2086 | 524 octave_value_list retval; |
| 1706 | 525 |
| 526 int nargin = args.length (); | |
| 527 | |
|
7759
84a7f00586aa
Alias setenv to putenv. Allow single arg to putenv
David Bateman <dbateman@free.fr>
parents:
7231
diff
changeset
|
528 if (nargin == 2 || nargin == 1) |
| 1706 | 529 { |
| 3523 | 530 std::string var = args(0).string_value (); |
| 1706 | 531 |
| 532 if (! error_state) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
533 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
534 std::string val = (nargin == 2 |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
535 ? args(1).string_value () : std::string ()); |
| 1706 | 536 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
537 if (! error_state) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
538 octave_env::putenv (var, val); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
539 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
540 error ("putenv: second argument should be a string"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
541 } |
| 1706 | 542 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
543 error ("putenv: first argument should be a string"); |
| 1706 | 544 } |
| 545 else | |
| 5823 | 546 print_usage (); |
| 1706 | 547 |
| 548 return retval; | |
| 549 } | |
|
7759
84a7f00586aa
Alias setenv to putenv. Allow single arg to putenv
David Bateman <dbateman@free.fr>
parents:
7231
diff
changeset
|
550 DEFALIAS (setenv, putenv); |
| 1706 | 551 |
| 5775 | 552 // FIXME -- perhaps kbhit should also be able to print a prompt? |
| 3372 | 553 |
| 3657 | 554 DEFUN (kbhit, args, , |
| 3372 | 555 "-*- texinfo -*-\n\ |
| 556 @deftypefn {Built-in Function} {} kbhit ()\n\ | |
|
9039
51dc9691f23f
Cleanup documentation files errors.texi, debug.texi, io.texi
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
557 Read a single keystroke from the keyboard. If called with one\n\ |
| 3657 | 558 argument, don't wait for a keypress. For example,\n\ |
| 3372 | 559 \n\ |
| 560 @example\n\ | |
| 561 x = kbhit ();\n\ | |
| 562 @end example\n\ | |
| 563 \n\ | |
| 564 @noindent\n\ | |
| 565 will set @var{x} to the next character typed at the keyboard as soon as\n\ | |
| 566 it is typed.\n\ | |
| 3657 | 567 \n\ |
| 568 @example\n\ | |
| 569 x = kbhit (1);\n\ | |
| 570 @end example\n\ | |
| 571 \n\ | |
| 572 @noindent\n\ | |
| 573 identical to the above example, but don't wait for a keypress,\n\ | |
| 574 returning the empty string if no key is available.\n\ | |
| 3372 | 575 @end deftypefn") |
| 529 | 576 { |
| 4233 | 577 octave_value retval; |
| 529 | 578 |
| 5775 | 579 // FIXME -- add timeout and default value args? |
| 529 | 580 |
| 3676 | 581 if (interactive || forced_interactive) |
| 529 | 582 { |
| 6423 | 583 feval ("drawnow"); |
| 584 | |
| 4067 | 585 int c = octave_kbhit (args.length () == 0); |
| 3657 | 586 |
| 3658 | 587 if (c == -1) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
588 c = 0; |
| 3657 | 589 |
| 529 | 590 char *s = new char [2]; |
| 591 s[0] = c; | |
| 592 s[1] = '\0'; | |
| 593 retval = s; | |
| 594 } | |
| 595 | |
| 596 return retval; | |
| 597 } | |
| 598 | |
| 1957 | 599 DEFUN (pause, args, , |
| 3301 | 600 "-*- texinfo -*-\n\ |
| 601 @deftypefn {Built-in Function} {} pause (@var{seconds})\n\ | |
| 602 Suspend the execution of the program. If invoked without any arguments,\n\ | |
| 603 Octave waits until you type a character. With a numeric argument, it\n\ | |
| 604 pauses for the given number of seconds. For example, the following\n\ | |
| 605 statement prints a message and then waits 5 seconds before clearing the\n\ | |
| 606 screen.\n\ | |
| 607 \n\ | |
| 608 @example\n\ | |
| 609 @group\n\ | |
| 6848 | 610 fprintf (stderr, \"wait please...\\n\");\n\ |
| 3301 | 611 pause (5);\n\ |
| 612 clc;\n\ | |
| 613 @end group\n\ | |
| 614 @end example\n\ | |
| 615 @end deftypefn") | |
| 529 | 616 { |
| 2086 | 617 octave_value_list retval; |
| 529 | 618 |
| 619 int nargin = args.length (); | |
| 620 | |
| 712 | 621 if (! (nargin == 0 || nargin == 1)) |
| 529 | 622 { |
| 5823 | 623 print_usage (); |
| 529 | 624 return retval; |
| 625 } | |
| 626 | |
| 1579 | 627 if (nargin == 1) |
| 529 | 628 { |
| 1579 | 629 double dval = args(0).double_value (); |
| 636 | 630 |
| 1579 | 631 if (! error_state) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
632 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
633 if (! xisnan (dval)) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
634 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
635 feval ("drawnow"); |
| 6419 | 636 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
637 if (xisinf (dval)) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
638 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
639 flush_octave_stdout (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
640 octave_kbhit (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
641 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
642 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
643 octave_sleep (dval); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
644 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
645 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
646 warning ("pause: NaN is an invalid delay"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
647 } |
| 529 | 648 } |
| 1579 | 649 else |
| 3234 | 650 { |
| 6423 | 651 feval ("drawnow"); |
| 3234 | 652 flush_octave_stdout (); |
| 4067 | 653 octave_kbhit (); |
| 3234 | 654 } |
| 2630 | 655 |
| 656 return retval; | |
| 657 } | |
| 658 | |
| 659 DEFUN (sleep, args, , | |
| 3301 | 660 "-*- texinfo -*-\n\ |
| 661 @deftypefn {Built-in Function} {} sleep (@var{seconds})\n\ | |
| 662 Suspend the execution of the program for the given number of seconds.\n\ | |
| 663 @end deftypefn") | |
| 2630 | 664 { |
| 665 octave_value_list retval; | |
| 666 | |
| 667 if (args.length () == 1) | |
| 1579 | 668 { |
| 2630 | 669 double dval = args(0).double_value (); |
| 670 | |
| 671 if (! error_state) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
672 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
673 if (xisnan (dval)) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
674 warning ("sleep: NaN is an invalid delay"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
675 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
676 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
677 feval ("drawnow"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
678 octave_sleep (dval); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
679 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
680 } |
| 1579 | 681 } |
| 2630 | 682 else |
| 5823 | 683 print_usage (); |
| 2630 | 684 |
| 685 return retval; | |
| 686 } | |
| 687 | |
| 688 DEFUN (usleep, args, , | |
| 3301 | 689 "-*- texinfo -*-\n\ |
| 690 @deftypefn {Built-in Function} {} usleep (@var{microseconds})\n\ | |
| 691 Suspend the execution of the program for the given number of\n\ | |
| 692 microseconds. On systems where it is not possible to sleep for periods\n\ | |
| 693 of time less than one second, @code{usleep} will pause the execution for\n\ | |
| 694 @code{round (@var{microseconds} / 1e6)} seconds.\n\ | |
| 695 @end deftypefn") | |
| 2630 | 696 { |
| 697 octave_value_list retval; | |
| 698 | |
| 699 if (args.length () == 1) | |
| 700 { | |
| 701 double dval = args(0).double_value (); | |
| 702 | |
| 703 if (! error_state) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
704 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
705 if (xisnan (dval)) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
706 warning ("usleep: NaN is an invalid delay"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
707 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
708 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
709 feval ("drawnow"); |
| 6423 | 710 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
711 int delay = NINT (dval); |
| 2631 | 712 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
713 if (delay > 0) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
714 octave_usleep (delay); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
715 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
716 } |
| 2630 | 717 } |
| 718 else | |
| 5823 | 719 print_usage (); |
| 529 | 720 |
| 721 return retval; | |
| 722 } | |
| 723 | |
| 5775 | 724 // FIXME -- maybe this should only return 1 if IEEE floating |
| 862 | 725 // point functions really work. |
| 726 | |
| 1957 | 727 DEFUN (isieee, , , |
| 3301 | 728 "-*- texinfo -*-\n\ |
| 729 @deftypefn {Built-in Function} {} isieee ()\n\ | |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
11234
diff
changeset
|
730 Return true if your computer @emph{claims} to conform to the IEEE standard\n\ |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
11234
diff
changeset
|
731 for floating point calculations. No actual tests are performed.\n\ |
| 3301 | 732 @end deftypefn") |
| 862 | 733 { |
| 4600 | 734 oct_mach_info::float_format flt_fmt = oct_mach_info::native_float_format (); |
| 2317 | 735 |
| 4574 | 736 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
|
737 || flt_fmt == oct_mach_info::flt_fmt_ieee_big_endian); |
| 862 | 738 } |
| 739 | |
| 4600 | 740 DEFUN (native_float_format, , , |
| 741 "-*- texinfo -*-\n\ | |
| 742 @deftypefn {Built-in Function} {} native_float_format ()\n\ | |
| 743 Return the native floating point format as a string\n\ | |
| 744 @end deftypefn") | |
| 745 { | |
| 746 oct_mach_info::float_format flt_fmt = oct_mach_info::native_float_format (); | |
| 747 | |
| 748 return octave_value (oct_mach_info::float_format_as_string (flt_fmt)); | |
| 749 } | |
| 750 | |
| 1957 | 751 DEFUN (tilde_expand, args, , |
| 3301 | 752 "-*- texinfo -*-\n\ |
| 753 @deftypefn {Built-in Function} {} tilde_expand (@var{string})\n\ | |
|
11572
7d6d8c1e471f
Grammarcheck Texinfo for files in src directory.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
754 Perform tilde expansion on @var{string}. If @var{string} begins with a\n\ |
| 3301 | 755 tilde character, (@samp{~}), all of the characters preceding the first\n\ |
| 756 slash (or all characters, if there is no slash) are treated as a\n\ | |
| 757 possible user name, and the tilde and the following characters up to the\n\ | |
| 758 slash are replaced by the home directory of the named user. If the\n\ | |
| 759 tilde is followed immediately by a slash, the tilde is replaced by the\n\ | |
| 10840 | 760 home directory of the user running Octave. For example:\n\ |
| 3301 | 761 \n\ |
| 762 @example\n\ | |
| 763 @group\n\ | |
| 764 tilde_expand (\"~joeuser/bin\")\n\ | |
| 765 @result{} \"/home/joeuser/bin\"\n\ | |
| 766 tilde_expand (\"~/bin\")\n\ | |
| 767 @result{} \"/home/jwe/bin\"\n\ | |
| 768 @end group\n\ | |
| 769 @end example\n\ | |
| 770 @end deftypefn") | |
| 1750 | 771 { |
| 4233 | 772 octave_value retval; |
| 1750 | 773 |
| 774 int nargin = args.length (); | |
| 775 | |
| 776 if (nargin == 1) | |
| 6116 | 777 { |
| 778 octave_value arg = args(0); | |
| 779 | |
| 780 string_vector sv = arg.all_strings (); | |
| 781 | |
| 782 if (! error_state) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
783 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
784 sv = file_ops::tilde_expand (sv); |
| 6116 | 785 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
786 if (arg.is_cellstr ()) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
787 retval = Cell (arg.dims (), sv); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
788 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
789 retval = sv; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
790 } |
| 6116 | 791 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10266
diff
changeset
|
792 error ("tilde_expand: expecting argument to be char or cellstr object"); |
| 6116 | 793 } |
| 1750 | 794 else |
| 5823 | 795 print_usage (); |
| 1750 | 796 |
| 797 return retval; | |
| 798 } |