Mercurial > hg > octave-lyh

annotate liboctave/system/lo-sysdep.cc @ 16476:98155e2b6d42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
get terminal size on window systems * lo-sysdep.h, lo-sysdep.cc (w32_terminal_rows, w32_terminal_cols): New functions. * cmd-edit.cc (gnu_readline::do_terminal_rows, gnu_readline::do_terminal_cols): Use them.
author John W. Eaton <jwe@octave.org>
date Tue, 09 Apr 2013 03:17:48 -0400
parents 0696dcc92fc8
children b98ad20e4880
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
1 /*
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
2
14138
72c96de7a403 maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents: 12223
diff changeset
3 Copyright (C) 1996-2012 John W. Eaton
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
4
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
5 This file is part of Octave.
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
6
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
7 Octave is free software; you can redistribute it and/or modify it
66ef74ee5d9f [project @ 1997-05-05 03:20:52 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: 6321
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: 6321
diff changeset
10 option) any later version.
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
11
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
12 Octave is distributed in the hope that it will be useful, but WITHOUT
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
15 for more details.
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
16
66ef74ee5d9f [project @ 1997-05-05 03:20:52 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: 6321
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: 6321
diff changeset
19 <http://www.gnu.org/licenses/>.
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
20
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
21 */
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
22
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
23 #ifdef HAVE_CONFIG_H
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
24 #include <config.h>
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
25 #endif
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
26
3503
d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe]
jwe
parents: 3112
diff changeset
27 #include <iostream>
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
28 #include <string>
6321
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
29 #include <vector>
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
30
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
31 #include <sys/types.h>
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
32 #include <unistd.h>
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
33
6321
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
34 #include <fcntl.h>
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
35
7695
eacf87a24f55 lo-sysdep.cc: include windows.h if windows and not cygwin
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
36 #if defined (__WIN32__) && ! defined (__CYGWIN__)
10346
65d5776379c3 Reduce the amount of stuff included by windows.h and avoid min/max being #define-d
Michael Goffioul <michael.goffioul@gmail.com>
parents: 10314
diff changeset
37 #define WIN32_LEAN_AND_MEAN
7695
eacf87a24f55 lo-sysdep.cc: include windows.h if windows and not cygwin
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
38 #include <windows.h>
eacf87a24f55 lo-sysdep.cc: include windows.h if windows and not cygwin
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
39 #endif
eacf87a24f55 lo-sysdep.cc: include windows.h if windows and not cygwin
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
40
5872
44f24cf66b95 [project @ 2006-06-30 18:19:20 by jwe]
jwe
parents: 5307
diff changeset
41 #include "file-ops.h"
3069
db6d57d718f7 [project @ 1997-07-10 23:34:03 by jwe]
jwe
parents: 2926
diff changeset
42 #include "lo-error.h"
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
43 #include "pathlen.h"
6123
8d285942fc3c [project @ 2006-10-28 14:09:20 by jwe]
jwe
parents: 6093
diff changeset
44 #include "lo-sysdep.h"
6321
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
45 #include "str-vec.h"
8377
25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER
Jaroslav Hajek <highegg@gmail.com>
parents: 7732
diff changeset
46 #include "oct-locbuf.h"
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
47
3504
5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe]
jwe
parents: 3503
diff changeset
48 std::string
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
49 octave_getcwd (void)
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
50 {
3504
5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe]
jwe
parents: 3503
diff changeset
51 std::string retval;
3069
db6d57d718f7 [project @ 1997-07-10 23:34:03 by jwe]
jwe
parents: 2926
diff changeset
52
10250
2d47356a7a1a use gnulib getcwd module
John W. Eaton <jwe@octave.org>
parents: 10182
diff changeset
53 // Using the gnulib getcwd module ensures that we have a getcwd that
2d47356a7a1a use gnulib getcwd module
John W. Eaton <jwe@octave.org>
parents: 10182
diff changeset
54 // will allocate a buffer as large as necessary if buf and size are
2d47356a7a1a use gnulib getcwd module
John W. Eaton <jwe@octave.org>
parents: 10182
diff changeset
55 // both 0.
3069
db6d57d718f7 [project @ 1997-07-10 23:34:03 by jwe]
jwe
parents: 2926
diff changeset
56
10411
479cc8a0a846 use gnulib namespace
John W. Eaton <jwe@octave.org>
parents: 10346
diff changeset
57 char *tmp = gnulib::getcwd (0, 0);
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
58
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
59 if (tmp)
10250
2d47356a7a1a use gnulib getcwd module
John W. Eaton <jwe@octave.org>
parents: 10182
diff changeset
60 {
2d47356a7a1a use gnulib getcwd module
John W. Eaton <jwe@octave.org>
parents: 10182
diff changeset
61 retval = tmp;
2d47356a7a1a use gnulib getcwd module
John W. Eaton <jwe@octave.org>
parents: 10182
diff changeset
62 free (tmp);
2d47356a7a1a use gnulib getcwd module
John W. Eaton <jwe@octave.org>
parents: 10182
diff changeset
63 }
3069
db6d57d718f7 [project @ 1997-07-10 23:34:03 by jwe]
jwe
parents: 2926
diff changeset
64 else
db6d57d718f7 [project @ 1997-07-10 23:34:03 by jwe]
jwe
parents: 2926
diff changeset
65 (*current_liboctave_error_handler) ("unable to find current directory");
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
66
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
67 return retval;
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
68 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
69
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
70 int
5872
44f24cf66b95 [project @ 2006-06-30 18:19:20 by jwe]
jwe
parents: 5307
diff changeset
71 octave_chdir (const std::string& path_arg)
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
72 {
5872
44f24cf66b95 [project @ 2006-06-30 18:19:20 by jwe]
jwe
parents: 5307
diff changeset
73 std::string path = file_ops::tilde_expand (path_arg);
44f24cf66b95 [project @ 2006-06-30 18:19:20 by jwe]
jwe
parents: 5307
diff changeset
74
6244
8cab253171b6 [project @ 2007-01-17 21:55:49 by jwe]
jwe
parents: 6208
diff changeset
75 #if defined (__WIN32__) && ! defined (__CYGWIN__)
14846
460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents: 14155
diff changeset
76 if (path.length () == 2 && path[1] == ':')
6244
8cab253171b6 [project @ 2007-01-17 21:55:49 by jwe]
jwe
parents: 6208
diff changeset
77 path += "\\";
8cab253171b6 [project @ 2007-01-17 21:55:49 by jwe]
jwe
parents: 6208
diff changeset
78 #endif
8cab253171b6 [project @ 2007-01-17 21:55:49 by jwe]
jwe
parents: 6208
diff changeset
79
14152
933bf1b4ab29 * lo-sysdep.cc (octave_chdir): Use gnulib::chdir.
John W. Eaton <jwe@octave.org>
parents: 14138
diff changeset
80 return gnulib::chdir (path.c_str ());
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
81 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents:
diff changeset
82
6321
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
83 #if defined (__WIN32__) && ! defined (__CYGWIN__)
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
84
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
85 pid_t
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
86 octave_popen2 (const std::string& cmd, const string_vector& args, bool sync_mode,
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
87 int *fildes, std::string& msg)
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
88 {
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
89 pid_t pid;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
90 PROCESS_INFORMATION pi;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
91 STARTUPINFO si;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
92 std::string command = "\"" + cmd + "\"";
14846
460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents: 14155
diff changeset
93 HANDLE hProcess = GetCurrentProcess (), childRead, childWrite, parentRead, parentWrite;
6321
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
94 DWORD pipeMode;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
95
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
96 ZeroMemory (&pi, sizeof (pi));
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
97 ZeroMemory (&si, sizeof (si));
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
98 si.cb = sizeof (si);
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
99
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
100 if (! CreatePipe (&childRead, &parentWrite, 0, 0) ||
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
101 ! DuplicateHandle (hProcess, childRead, hProcess, &childRead, 0, TRUE, DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE))
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
102 {
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
103 msg = "popen2: pipe creation failed";
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
104 return -1;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
105 }
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
106 if (! CreatePipe (&parentRead, &childWrite, 0, 0) ||
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
107 ! DuplicateHandle (hProcess, childWrite, hProcess, &childWrite, 0, TRUE, DUPLICATE_SAME_ACCESS | DUPLICATE_CLOSE_SOURCE))
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
108 {
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
109 msg = "popen2: pipe creation failed";
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
110 return -1;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
111 }
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
112 if (! sync_mode)
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
113 {
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
114 pipeMode = PIPE_NOWAIT;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
115 SetNamedPipeHandleState (parentRead, &pipeMode, 0, 0);
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
116 }
16314
0723ea02dcdb use intptr_t instead of long
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
117 fildes[1] = _open_osfhandle (reinterpret_cast<intptr_t> (parentRead), _O_RDONLY | _O_BINARY);
0723ea02dcdb use intptr_t instead of long
John W. Eaton <jwe@octave.org>
parents: 15271
diff changeset
118 fildes[0] = _open_osfhandle (reinterpret_cast<intptr_t> (parentWrite), _O_WRONLY | _O_BINARY);
6321
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
119 si.dwFlags |= STARTF_USESTDHANDLES;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
120 si.hStdInput = childRead;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
121 si.hStdOutput = childWrite;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
122
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
123 // Ignore first arg as it is the command
14846
460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents: 14155
diff changeset
124 for (int k=1; k<args.length (); k++)
6321
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
125 command += " \"" + args[k] + "\"";
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
126 OCTAVE_LOCAL_BUFFER (char, c_command, command.length () + 1);
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
127 strcpy (c_command, command.c_str ());
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
128 if (! CreateProcess (0, c_command, 0, 0, TRUE, 0, 0, 0, &si, &pi))
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
129 {
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
130 msg = "popen2: process creation failed";
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
131 return -1;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
132 }
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
133 pid = pi.dwProcessId;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
134
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
135 CloseHandle (childRead);
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
136 CloseHandle (childWrite);
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
137 CloseHandle (pi.hProcess);
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
138 CloseHandle (pi.hThread);
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
139
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
140 return pid;
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
141 }
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
142
16476
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
143 int
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
144 w32_terminal_rows (void)
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
145 {
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
146 int retval = 0;
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
147
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
148 HANDLE console = GetStdHandle (STD_OUTPUT_HANDLE);
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
149
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
150 CONSOLE_SCREEN_BUFFER_INFO csbi;
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
151
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
152 if (GetConsoleScreenBufferInfo (console, &csbi))
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
153 retval = csbi.dwSize.Y;
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
154
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
155 return retval;
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
156 }
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
157
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
158 int
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
159 w32_terminal_cols (void)
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
160 {
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
161 int retval = 0;
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
162
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
163 HANDLE console = GetStdHandle (STD_OUTPUT_HANDLE);
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
164
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
165 CONSOLE_SCREEN_BUFFER_INFO csbi;
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
166
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
167 if (GetConsoleScreenBufferInfo (console, &csbi))
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
168 retval = csbi.dwSize.X;
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
169
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
170 return retval;
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
171 }
98155e2b6d42 get terminal size on window systems
John W. Eaton <jwe@octave.org>
parents: 16475
diff changeset
172
16475
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
173 void
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
174 w32_clear_console_window (void)
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
175 {
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
176 HANDLE console = GetStdHandle (STD_OUTPUT_HANDLE);
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
177
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
178 // Get the number of character cells in the current buffer.
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
179
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
180 CONSOLE_SCREEN_BUFFER_INFO csbi;
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
181
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
182 if (GetConsoleScreenBufferInfo (console, &csbi))
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
183 {
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
184 DWORD screen_size = csbi.dwSize.X * csbi.dwSize.Y;
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
185
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
186 // Fill the entire screen with blanks.
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
187
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
188 COORD home = { 0, 0 };
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
189 DWORD nchars;
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
190
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
191 if (FillConsoleOutputCharacter (console, static_cast<TCHAR> (' '),
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
192 screen_size, home, &nchars))
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
193 {
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
194 if (GetConsoleScreenBufferInfo (console, &csbi))
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
195 {
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
196 if (FillConsoleOutputAttribute (console, csbi.wAttributes,
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
197 screen_size, home, &nchars))
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
198 {
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
199 SetConsoleCursorPosition (console, home);
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
200 }
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
201 }
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
202 }
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
203 }
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
204 }
0696dcc92fc8 allow windows console to be cleared
John W. Eaton <jwe@octave.org>
parents: 16314
diff changeset
205
6321
363a2f8c9e97 [project @ 2007-02-16 20:26:23 by dbateman]
dbateman
parents: 6244
diff changeset
206 #endif