Mercurial > hg > xemacs-beta
diff src/console-stream.c @ 412:697ef44129c6 r21-2-14
Import from CVS: tag r21-2-14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:20:41 +0200 |
parents | de805c49cfc1 |
children | 11054d720c21 |
line wrap: on
line diff
--- a/src/console-stream.c Mon Aug 13 11:19:22 2007 +0200 +++ b/src/console-stream.c Mon Aug 13 11:20:41 2007 +0200 @@ -69,9 +69,7 @@ { CHECK_STRING (tty); stream_con->in = stream_con->out = stream_con->err = - /* #### We don't currently do coding-system translation on - this descriptor. */ - fopen ((char *) XSTRING_DATA (tty), READ_PLUS_TEXT); + fopen ((char *) XSTRING_DATA (tty), "r+"); if (!stream_con->in) error ("Unable to open tty %s", XSTRING_DATA (tty)); } @@ -173,7 +171,7 @@ static int stream_text_width (struct frame *f, struct face_cachel *cachel, - const Emchar *str, Charcount len) + CONST Emchar *str, Charcount len) { return len; } @@ -203,6 +201,16 @@ } static void +stream_output_begin (struct device *d) +{ +} + +static void +stream_output_end (struct device *d) +{ +} + +static void stream_output_display_block (struct window *w, struct display_line *dl, int block, int start, int end, int start_pixpos, int cursor_start, @@ -211,6 +219,16 @@ } static void +stream_output_vertical_divider (struct window *w, int clear) +{ +} + +static void +stream_clear_to_window_end (struct window *w, int ypos1, int ypos2) +{ +} + +static void stream_clear_region (Lisp_Object window, struct device* d, struct frame * f, face_index findex, int x, int y, int width, int height, Lisp_Object fcolor, Lisp_Object bcolor, @@ -218,6 +236,11 @@ { } +static void +stream_clear_frame (struct frame *f) +{ +} + static int stream_flash (struct device *d) { @@ -262,20 +285,19 @@ CONSOLE_HAS_METHOD (stream, right_margin_width); CONSOLE_HAS_METHOD (stream, text_width); CONSOLE_HAS_METHOD (stream, output_display_block); + CONSOLE_HAS_METHOD (stream, output_vertical_divider); CONSOLE_HAS_METHOD (stream, divider_height); CONSOLE_HAS_METHOD (stream, eol_cursor_width); + CONSOLE_HAS_METHOD (stream, clear_to_window_end); CONSOLE_HAS_METHOD (stream, clear_region); + CONSOLE_HAS_METHOD (stream, clear_frame); + CONSOLE_HAS_METHOD (stream, output_begin); + CONSOLE_HAS_METHOD (stream, output_end); CONSOLE_HAS_METHOD (stream, flash); CONSOLE_HAS_METHOD (stream, ring_bell); } void -reinit_console_type_create_stream (void) -{ - REINITIALIZE_CONSOLE_TYPE (stream); -} - -void vars_of_console_stream (void) { DEFVAR_LISP ("terminal-console", &Vterminal_console /* @@ -298,9 +320,8 @@ staticpro (&Vstdio_str); } -#ifndef PDUMP void -init_console_stream (int reinit) +init_console_stream (void) { /* This function can GC */ if (!initialized) @@ -318,25 +339,3 @@ event_stream_select_console (XCONSOLE (Vterminal_console)); } } - -#else - -void -init_console_stream (int reinit) -{ - /* This function can GC */ - if (!reinit) - { - Vterminal_device = Fmake_device (Qstream, Qnil, Qnil); - Vterminal_console = Fdevice_console (Vterminal_device); - Vterminal_frame = Fmake_frame (Qnil, Vterminal_device); - minibuf_window = XFRAME (Vterminal_frame)->minibuffer_window; - } - if (initialized) - { - stream_init_console (XCONSOLE (Vterminal_console), Qnil); - if (noninteractive) - event_stream_select_console (XCONSOLE (Vterminal_console)); - } -} -#endif