2 * console-io.c: ConsoleDriver internal calls
5 * Gonzalo Paniagua Javier (gonzalo@ximian.com)
7 * Copyright (C) 2005 Novell, Inc. (http://www.novell.com)
16 #ifdef HAVE_SYS_TIME_H
19 #include <sys/types.h>
23 #include <mono/metadata/appdomain.h>
24 #include <mono/metadata/object-internals.h>
25 #include <mono/metadata/class-internals.h>
26 #include <mono/metadata/domain-internals.h>
27 #include <mono/metadata/metadata.h>
28 #include <mono/metadata/threadpool.h>
29 /* On solaris, curses.h must come before both termios.h and term.h */
39 /* Needed for FIONREAD under solaris */
40 #ifdef HAVE_SYS_FILIO_H
41 #include <sys/filio.h>
43 #ifndef PLATFORM_WIN32
45 #include <sys/ioctl.h>
49 #include <mono/metadata/console-io.h>
50 #include <mono/metadata/exception.h>
52 static gboolean setup_finished;
53 static gboolean atexit_called;
54 static gchar *teardown_str;
58 ves_icall_System_ConsoleDriver_Isatty (HANDLE handle)
62 return (GetFileType (handle) == FILE_TYPE_CHAR);
66 ves_icall_System_ConsoleDriver_SetEcho (MonoBoolean want_echo)
72 ves_icall_System_ConsoleDriver_SetBreak (MonoBoolean want_break)
78 ves_icall_System_ConsoleDriver_InternalKeyAvailable (gint32 timeout)
84 ves_icall_System_ConsoleDriver_TtySetup (MonoString *teardown, char *verase, char *vsusp, char *intr)
90 ves_icall_System_ConsoleDriver_GetTtySize (HANDLE handle, gint32 *width, gint32 *height)
96 static struct termios initial_attr;
99 ves_icall_System_ConsoleDriver_Isatty (HANDLE handle)
103 return isatty (GPOINTER_TO_INT (handle));
107 set_property (gint property, gboolean value)
110 gboolean callset = FALSE;
115 if (tcgetattr (STDIN_FILENO, &attr) == -1)
118 check = (attr.c_lflag & property) != 0;
119 if ((value || check) && !(value && check)) {
122 attr.c_lflag |= property;
124 attr.c_lflag &= ~property;
130 if (tcsetattr (STDIN_FILENO, TCSANOW, &attr) == -1)
137 ves_icall_System_ConsoleDriver_SetEcho (MonoBoolean want_echo)
139 return set_property (ECHO, want_echo);
143 ves_icall_System_ConsoleDriver_SetBreak (MonoBoolean want_break)
145 return set_property (IGNBRK, !want_break);
149 ves_icall_System_ConsoleDriver_InternalKeyAvailable (gint32 timeout)
153 struct timeval *tvptr;
161 FD_SET (STDIN_FILENO, &rfds);
163 divvy = div (timeout, 1000);
164 tv.tv_sec = divvy.quot;
165 tv.tv_usec = divvy.rem;
170 ret = select (STDIN_FILENO + 1, &rfds, NULL, NULL, tvptr);
171 } while (ret == -1 && errno == EINTR);
175 ret = ioctl (STDIN_FILENO, FIONREAD, &nbytes);
180 return (ret > 0) ? ret : 0;
191 if (teardown_str != NULL) {
192 write (STDOUT_FILENO, teardown_str, strlen (teardown_str));
193 g_free (teardown_str);
197 tcflush (STDIN_FILENO, TCIFLUSH);
198 tcsetattr (STDIN_FILENO, TCSANOW, &initial_attr);
199 set_property (ECHO, TRUE);
200 setup_finished = FALSE;
204 do_console_cancel_event (void)
206 static MonoClassField *cancel_handler_field;
207 MonoDomain *domain = mono_domain_get ();
209 MonoDelegate *load_value;
211 MonoMethodMessage *msg;
217 klass = mono_class_from_name (mono_defaults.corlib, "System", "Console");
221 if (cancel_handler_field == NULL) {
222 cancel_handler_field = mono_class_get_field_from_name (klass, "cancel_handler");
223 g_assert (cancel_handler_field);
226 mono_field_static_get_value (mono_class_vtable (domain, klass), cancel_handler_field, &load_value);
227 if (load_value == NULL)
230 klass = load_value->object.vtable->klass;
231 method = mono_class_get_method_from_name (klass, "BeginInvoke", -1);
232 g_assert (method != NULL);
233 im = mono_get_delegate_invoke (method->klass);
234 msg = mono_method_call_message_new (method, NULL, im, NULL, NULL);
235 mono_thread_pool_add ((MonoObject *) load_value, msg, NULL, NULL);
238 static gboolean in_sigint;
240 sigint_handler (int signo)
248 do_console_cancel_event ();
253 ves_icall_System_ConsoleDriver_TtySetup (MonoString *teardown, char *verase, char *vsusp, char*intr)
263 if (tcgetattr (STDIN_FILENO, &initial_attr) == -1)
266 /* TODO: handle SIGTSTP - Ctrl-Z */
268 attr.c_lflag &= ~ICANON;
269 attr.c_cc [VMIN] = 1;
270 attr.c_cc [VTIME] = 0;
271 if (tcsetattr (STDIN_FILENO, TCSANOW, &attr) == -1)
274 *verase = initial_attr.c_cc [VERASE];
275 *vsusp = initial_attr.c_cc [VSUSP];
276 *intr = initial_attr.c_cc [VINTR];
277 /* If initialized from another appdomain... */
281 signal (SIGINT, sigint_handler);
282 setup_finished = TRUE;
283 if (!atexit_called) {
284 if (teardown != NULL)
285 teardown_str = mono_string_to_utf8 (teardown);
287 atexit (tty_teardown);
294 ves_icall_System_ConsoleDriver_GetTtySize (HANDLE handle, gint32 *width, gint32 *height)
302 res = ioctl (GPOINTER_TO_INT (handle), TIOCGWINSZ, &ws);
316 #endif /* !PLATFORM_WIN32 */