Maiko sources matching state as of 020102 prior to initial patching for Mac OSX

2026-01-27 04:12:51 +00:00 · 2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions
--- a/src/misc7.c
+++ b/src/misc7.c
@@ -0,0 +1,133 @@
+/* $Id: misc7.c,v 1.2 1999/01/03 02:07:22 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved  */
+static char *id = "$Id: misc7.c,v 1.2 1999/01/03 02:07:22 sybalsky Exp $ Copyright (C) Venue";
+
+
+/************************************************************************/
+/*									*/
+/*	(C) Copyright 1989-95 Venue. All Rights Reserved.		*/
+/*	Manufactured in the United States of America.			*/
+/*									*/
+/*	The contents of this file are proprietary information 		*/
+/*	belonging to Venue, and are provided to you under license.	*/
+/*	They may not be further distributed or disclosed to third	*/
+/*	parties without the specific permission of Venue.		*/
+/*									*/
+/************************************************************************/
+
+#include "version.h"
+
+
+/*	misc7.c
+ */
+#include <stdio.h>
+#ifndef DOS
+#include <sys/ioctl.h>
+#endif /* DOS */
+#include "lispemul.h"
+#include "lspglob.h"
+#include "adr68k.h"
+#include "lispmap.h"
+#include "lsptypes.h"
+#include "emlglob.h"
+#include "gc.h"
+#include "arith.h"
+#include "my.h"
+#include "bitblt.h"
+#include "dbprint.h"
+/* osamu '90/02/08
+ * add display.h, because in_display_secment() is changed as
+ * macro. difinition is in display.h 
+ */
+#include "display.h"
+
+#ifndef NOPIXRECT
+#include <sunwindow/window_hs.h>
+#include <sunwindow/win_ioctl.h>
+
+#include <suntool/sunview.h>
+#include <signal.h>
+#include <sunwindow/cms_mono.h>
+#include <suntool/canvas.h>
+#endif
+
+
+
+	/*************************************************/
+	/*  Possible operation fields for FBITMAPBIT     */
+	/*************************************************/
+
+#define OP_INVERT   0		/* Invert the bit at the given location */
+#define OP_ERASE    1		/* Turn the given bit off. */
+#define OP_READ     2		/* Just read the bit that's there. */
+#define OP_PAINT    3		/* Turn the bit on. */
+
+
+extern int LispWindowFd;
+extern int ScreenLocked;
+
+
+/***	N_OP_misc7  -- pseudocolor or fbitmapbit   ***/
+N_OP_misc7(arg1, arg2, arg3, arg4, arg5, arg6, arg7, alpha)
+  int alpha;
+  register LispPTR arg1, arg2, arg3, arg4, arg5, arg6, arg7;
+  {
+    DLword *base;
+    int x, y, operation, heightminus1, rasterwidth, oldbit;
+    int displayflg;
+
+    DBPRINT(("MISC7 op with alpha byte %d.\n", alpha));
+
+    if (alpha != 1) ERROR_EXIT(arg7);
+
+    base = Addr68k_from_LADDR(arg1);
+    N_GETNUMBER(arg2, x, doufn);
+    N_GETNUMBER(arg3, y, doufn);
+    N_GETNUMBER(arg4, operation, doufn);
+    N_GETNUMBER(arg5, heightminus1, doufn);
+    N_GETNUMBER(arg6, rasterwidth, doufn);
+
+    DBPRINT(("MISC7 args OK.\n"));
+
+    displayflg = n_new_cursorin(base, x, (heightminus1 - y), 1, 1);
+
+    base = base + (rasterwidth * (heightminus1 - y)) + (0xFFFF & (x>>4));
+    x = 32768 >> (x & 0xF);
+
+    oldbit = x & *base;
+
+    ScreenLocked = T;
+
+#ifdef SUNDISPLAY
+    if (displayflg) HideCursor;
+#endif /* SUNDISPLAY */
+
+
+    switch (operation)
+      {
+	case OP_INVERT:  *base ^= x;	break;
+	case OP_ERASE:   *base &= ~x;	break;
+	case OP_READ:  break;
+	default:  *base |= x;
+      };
+
+#ifdef SUNDISPLAY
+#ifdef DISPLAYBUFFER
+    if (in_display_segment(base)) flush_display_ptrregion(base, 0, 16, 1);
+#endif
+    if (displayflg) ShowCursor;
+#endif /* SUNDISPLAY */
+
+
+#ifdef XWINDOW
+    if (in_display_segment(base)) flush_display_ptrregion(base, 0, 16, 1);
+#endif /* XWINDOW */
+
+
+    ScreenLocked = NIL;
+    DBPRINT(("FBITMAPBIT old bit = 0x%x.\n", oldbit));
+    return(S_POSITIVE | (oldbit ? 1 : 0));
+
+doufn:		ERROR_EXIT(arg7);
+
+} /*  end N_OP_misc7()  */
+