emacs: src/msdos.c comparison

comparison src/msdos.c @ 20240:963e9cda8f04

Support for Japanese display on DOS/V systems. (screen_old_address, screen_virtual_segment, screen_virtual_offset): New variables. (dosv_refresh_virtual_screen): New function. (dos_direct_output, dos_set_window_size, IT_write_glyphs, IT_clear_end_of_line, IT_clear_screen, IT_display_cursor, IT_reset_terminal_modes, XMenuActivate, abort): Call dosv_refresh_virtual_screen if under DOS/V. (IT_set_terminal_modes): If under DOS/V, update the address of primary screen buffer. (internal_terminal_init): Zero out screen_old_address, in case Emacs was dumped under DOS/V. (dos_get_saved_screen): Return failure indication if no screen was saved.

author	Eli Zaretskii <eliz@gnu.org>
date	Mon, 10 Nov 1997 14:49:40 +0000
parents	65c394bb8b17
children	e6d49d55ea7e

comparison

equal deleted inserted replaced

-:5bf13ca1dbac
+:963e9cda8f04
 struct x_output the_only_x_display;
 /* This is never dereferenced.  */
 Display *x_current_display;
+/* Support for DOS/V (allows Japanese characters to be displayed on
+standard, non-Japanese, ATs).  Only supported for DJGPP v2 and later.  */
+/* Holds the address of the text-mode screen buffer.  */
+static unsigned long screen_old_address = 0;
+/* Segment and offset of the virtual screen.  If 0, DOS/V is NOT loaded.  */
+static unsigned short screen_virtual_segment = 0;
+static unsigned short screen_virtual_offset = 0;
+#if __DJGPP__ > 1
+/* Update the screen from a part of relocated DOS/V screen buffer which
+begins at OFFSET and includes COUNT characters.  */
+static void
+dosv_refresh_virtual_screen (int offset, int count)
+{
+__dpmi_regs regs;
+regs.h.ah = 0xff;	/* update relocated screen */
+regs.x.es = screen_virtual_segment;
+regs.x.di = screen_virtual_offset + offset;
+regs.x.cx = count;
+__dpmi_int (0x10, &regs);
+}
+#endif
 static
 dos_direct_output (y, x, buf, len)
 int y;
 int x;
 char *buf;
 int len;
 {
 int t = (int) ScreenPrimary + 2 * (x + y * screen_size_X);
+int t0 = t;
+int l0 = len;
 #if (__DJGPP__ < 2)
 while (--len >= 0) {
 dosmemput (buf++, 1, t);
 t += 2;
 }
 #else
 /* This is faster.  */
 for (_farsetsel (_dos_ds); --len >= 0; t += 2, buf++)
 _farnspokeb (t, *buf);
+if (screen_virtual_segment)
+dosv_refresh_virtual_screen (t0, l0);
 #endif
 }
 #endif
 /* Flash the screen as a substitute for BEEPs.  */
 *rows = ScreenRows ();
 *cols = ScreenCols ();
 /* Enable bright background colors.  */
 bright_bg ();
+/* FIXME: I'm not sure the above will run at all on DOS/V.  But let's
+be defensive anyway.  */
+if (screen_virtual_segment)
+dosv_refresh_virtual_screen (0, *cols * *rows);
 }
 /* If we write a character in the position where the mouse is,
 the mouse cursor may need to be refreshed.  */
 IT_write_glyphs (GLYPH *str, int len)
 {
 int newface;
 int ch, l = len;
 unsigned char *buf, *bp;
+int offset = 2 * (new_pos_X + screen_size_X * new_pos_Y);
 if (len == 0) return;
 buf = bp = alloca (len * 2);
 	fputc (ch, termscript);
 str++;
 }
 mouse_off_maybe ();
-dosmemput (buf, 2 * len,
+dosmemput (buf, 2 * len, (int)ScreenPrimary + offset);
-	     (int)ScreenPrimary + 2 * (new_pos_X + screen_size_X * new_pos_Y));
+if (screen_virtual_segment)
+dosv_refresh_virtual_screen (offset, len);
 new_pos_X += len;
 }
 static
 IT_clear_end_of_line (first_unused)
 {
 char *spaces, *sp;
 int i, j;
+int offset = 2 * (new_pos_X + screen_size_X * new_pos_Y);
 IT_set_face (0);
 if (termscript)
 fprintf (termscript, "<CLR:EOL>");
 i = (j = screen_size_X - new_pos_X) * 2;
 *sp++ = ' ';
 *sp++ = ScreenAttrib;
 }
 mouse_off_maybe ();
-dosmemput (spaces, i,
+dosmemput (spaces, i, (int)ScreenPrimary + offset);
-	     (int)ScreenPrimary + 2 * (new_pos_X + screen_size_X * new_pos_Y));
+if (screen_virtual_segment)
+dosv_refresh_virtual_screen (offset, i / 2);
 }
 static
 IT_clear_screen (void)
 {
 if (termscript)
 fprintf (termscript, "<CLR:SCR>");
 IT_set_face (0);
 mouse_off ();
 ScreenClear ();
+if (screen_virtual_segment)
+dosv_refresh_virtual_screen (0, screen_size);
 new_pos_X = new_pos_Y = 0;
 }
 static
 IT_clear_to_end (void)
 else if (!on && !cursor_cleared)
 {
 ScreenSetCursor (-1, -1);
 cursor_cleared = 1;
 }
+if (screen_virtual_segment)
+dosv_refresh_virtual_screen (2 * (current_pos_X + screen_size_X * current_pos_Y), 1);
 }
 /* Emacs calls cursor-movement functions a lot when it updates the
 display (probably a legacy of old terminals where you cannot
 update a screen line without first moving the cursor there).
 startup_screen_size_X = screen_size_X;
 startup_screen_size_Y = screen_size_Y;
 startup_screen_attrib = ScreenAttrib;
+#if __DJGPP__ > 1
+/* Is DOS/V (or any other RSIS software which relocates
+the screen) installed?  */
+{
+unsigned short es_value;
+__dpmi_regs regs;
+regs.h.ah = 0xfe;	/* get relocated screen address */
+if (ScreenPrimary == 0xb0000UL || ScreenPrimary == 0xb8000UL)
+regs.x.es = (ScreenPrimary >> 4) & 0xffff;
+else if (screen_old_address) /* already switched to Japanese mode once */
+regs.x.es = (screen_old_address >> 4) & 0xffff;
+else
+regs.x.es = ScreenMode () == 7 ? 0xb000 : 0xb800;
+regs.x.di = 0;
+es_value = regs.x.es;
+__dpmi_int (0x10, &regs);
+if (regs.x.es != es_value && regs.x.es != (ScreenPrimary >> 4) & 0xffff)
+{
+	screen_old_address = ScreenPrimary;
+	screen_virtual_segment = regs.x.es;
+	screen_virtual_offset  = regs.x.di;
+	ScreenPrimary = (screen_virtual_segment << 4) + screen_virtual_offset;
+}
+}
+#endif /* __DJGPP__ > 1 */
 ScreenGetCursor (&startup_pos_Y, &startup_pos_X);
 ScreenRetrieve (startup_screen_buffer = xmalloc (screen_size * 2));
 if (termscript)
 fprintf (termscript, "<SCREEN SAVED (dimensions=%dx%d)>\n",
-screen_size_X, screen_size_Y);
+	     screen_size_X, screen_size_Y);
 bright_bg ();
 }
 /* IT_reset_terminal_modes is called when emacs is
 the current) with the color attribute saved at startup.  The cursor
 is also restored within the visible dimensions.  */
 ScreenAttrib = startup_screen_attrib;
 ScreenClear ();
+if (screen_virtual_segment)
+dosv_refresh_virtual_screen (0, screen_size);
 if (update_row_len > saved_row_len)
 update_row_len = saved_row_len;
 if (current_rows > startup_screen_size_Y)
 current_rows = startup_screen_size_Y;
 update_row_len / 2, current_rows);
 while (current_rows--)
 {
 dosmemput (saved_row, update_row_len, display_row_start);
+if (screen_virtual_segment)
+	dosv_refresh_virtual_screen (display_row_start - ScreenPrimary,
+				     update_row_len / 2);
 saved_row         += saved_row_len;
 display_row_start += to_next_row;
 }
 if (startup_pos_X < cursor_pos_X)
 cursor_pos_X = startup_pos_X;
 if (startup_pos_Y < cursor_pos_Y)
 cursor_pos_Y = startup_pos_Y;
 ScreenSetCursor (cursor_pos_Y, cursor_pos_X);
+if (screen_virtual_segment)
+dosv_refresh_virtual_screen (2*(cursor_pos_X+cursor_pos_Y*screen_size_X),
+				 1);
 xfree (startup_screen_buffer);
 term_setup_done = 0;
 }
 return;
 }
 Vwindow_system = intern ("pc");
 Vwindow_system_version = make_number (1);
+/* If Emacs was dumped on DOS/V machine, forget the stale VRAM address.  */
+screen_old_address = 0;
 bzero (&the_only_x_display, sizeof the_only_x_display);
 the_only_x_display.background_pixel = 7; /* White */
 the_only_x_display.foreground_pixel = 0; /* Black */
 bright_bg ();
 colors = getenv ("EMACSCOLORS");
 {
 #ifndef HAVE_X_WINDOWS
 *screen = startup_screen_buffer;
 *cols = startup_screen_size_X;
 *rows = startup_screen_size_Y;
-return 1;
+return *screen != (char *)0;
 #else
 return 0;
 #endif
 }
 		      while (i != statecount - 1)
 			{
 			  statecount--;
 			  mouse_off ();
 			  ScreenUpdate (state[statecount].screen_behind);
+			  if (screen_virtual_segment)
+			    dosv_refresh_virtual_screen (0, screen_size);
 			  xfree (state[statecount].screen_behind);
 			}
 		    if (i == statecount - 1 && state[i].menu->submenu[dy])
 		      {
 			IT_menu_display (state[i].menu,
 	}
 }
 mouse_off ();
 ScreenUpdate (state[0].screen_behind);
+if (screen_virtual_segment)
+dosv_refresh_virtual_screen (0, screen_size);
 while (statecount--)
 xfree (state[statecount].screen_behind);
 IT_display_cursor (1);	/* turn cursor back on */
 return result;
 }
 {
 dos_ttcooked ();
 ScreenSetCursor (10, 0);
 cputs ("\r\n\nEmacs aborted!\r\n");
 #if __DJGPP__ > 1
+#if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2
+if (screen_virtual_segment)
+dosv_refresh_virtual_screen (2 * 10 * screen_size_X, 4 * screen_size_X);
+#endif /* __DJGPP_MINOR__ < 2 */
 /* Generate traceback, so we could tell whodunit.  */
 signal (SIGINT, SIG_DFL);
 __asm__ __volatile__ ("movb $0x1b,%al;call ___djgpp_hw_exception");
 #endif
 exit (2);

Mercurial > emacs

comparison src/msdos.c @ 20240:963e9cda8f04