mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-13 23:27:12 +00:00
ef6a6554ac
* Remove unnecessary calls to XLOCK/XUNLOCK The X methods called by flush_display_region() and flush_display_lineregion() handle the locking/unlocking, therefore it is unnecessary to invoke the locking here. * Remove explict signals when doing XUNLOCK() Call getXsignaldata() directly if a signal happened while X code was locked, instead of generating a signal and then handling it. Some macros and functions needed to pass the DspInterface instead of extracting the X display and window and passing those so that the correct structure was available for the XUNLOCK() call.
294 lines
11 KiB
C
294 lines
11 KiB
C
#ifndef DEVIF_H
|
|
#define DEVIF_H 1
|
|
/* $Id: devif.h,v 1.2 1999/01/03 02:05:57 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989, 1990, 1990, 1991, 1992, 1993, 1994, 1995 Venue. */
|
|
/* All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
#include "lispemul.h" /* for LispPTR, DLword */
|
|
|
|
typedef void (*PFV)(); /* Pointer to Function returning Void */
|
|
typedef int (*PFI)(); /* Pointer to Function returning Int */
|
|
typedef char (*PFC)(); /* Pointer to Function returning Char */
|
|
typedef float (*PFF)(); /* Pointer to Function returning Float */
|
|
typedef int (*PFP)(); /* Pointer to Function returning a Pointer */
|
|
typedef unsigned long (*PFUL)(); /* Pointer to Function returning an unsigned long */
|
|
|
|
#ifdef XWINDOW
|
|
#include <X11/Xlib.h>
|
|
#endif /* XWINDOW */
|
|
|
|
typedef struct
|
|
{
|
|
short type; /* Type of event */
|
|
short next; /* Index to next event */
|
|
} IRQEvent;
|
|
|
|
|
|
|
|
/**************************************************************/
|
|
/* P o s i t i o n */
|
|
/* */
|
|
/* Support structure for the geometry calculations. */
|
|
/**************************************************************/
|
|
typedef struct
|
|
{
|
|
int x;
|
|
int y;
|
|
} Mposition;
|
|
|
|
|
|
|
|
/**************************************************************/
|
|
/* R e g i o n */
|
|
/* */
|
|
/* Support structure for the geometry calculations. */
|
|
/**************************************************************/
|
|
typedef struct
|
|
{
|
|
int x;
|
|
int y;
|
|
int width;
|
|
int height;
|
|
} MRegion;
|
|
|
|
|
|
|
|
/**************************************************************/
|
|
/* D e v R e c */
|
|
/* */
|
|
/* Definition common to all devices. Used for mouse, kbd and */
|
|
/* display. */
|
|
/**************************************************************/
|
|
typedef struct
|
|
{
|
|
int active; /* ACTIVE, a flag.
|
|
TRUE if this device is activated. Use this
|
|
to prevent multiple consecutive initializations. */
|
|
int locked; /* LOCK, a semaphore: 0 if dev is free.
|
|
Test and increment to use this device. */
|
|
void (* enter)(); /* ENTER, a function
|
|
args: self
|
|
Called to set up the device. Has to be called before
|
|
anything else is done to the device. */
|
|
void (* exit)(); /* EXIT, a function
|
|
args: self
|
|
Called to deactivate the device and restore the
|
|
device to its previous state */
|
|
void (* before_raid)(); /* BEFORE_RAID, a function.
|
|
args: self
|
|
Prepare this device for uraid. */
|
|
void (* after_raid)(); /* BEFORE_RAID, a function.
|
|
args: self
|
|
Cleanup and restart device after uraid. */
|
|
void (* sync_device)(); /* SYNC_DEVICE, a function.
|
|
args: self
|
|
Make reality and emulator coincide with each other */
|
|
} DevRec;
|
|
|
|
|
|
|
|
/**************************************************************/
|
|
/* M o u s e I n t e r f a c e */
|
|
/* */
|
|
/* Definition of the mouse. Note that the mouse is also */
|
|
/* dependent on the IOPage68K */
|
|
/**************************************************************/
|
|
typedef struct
|
|
{
|
|
unsigned TwoButtonP: 1;
|
|
/* Interface towards Lisp */
|
|
unsigned Left: 1; /* Left button state. */
|
|
unsigned Middle: 1; /* Middle button state. */
|
|
unsigned Right: 1; /* Right button state. */
|
|
/* Mouse chording machinery */
|
|
unsigned StateLeft: 1;
|
|
unsigned StateMiddle: 1; /* real middle state */
|
|
unsigned StateRight: 1;
|
|
unsigned FakeMiddle: 1;
|
|
unsigned nil: 8;
|
|
short tick; /* Clock for timeout. */
|
|
long StartTime; /* The maximum timeout */
|
|
long RunTimer; /* Chording timer activate flag. */
|
|
PFV NextHandler; /* Pointer to the next timer (used with 2button) */
|
|
} Button;
|
|
|
|
|
|
typedef struct {
|
|
MRegion Last; /* Last position the mouse was in. */
|
|
Mposition New; /* The place to move the mouse when we have time */
|
|
Mposition Hotspot; /* The current hotspot for the mousecursor */
|
|
long Moved; /* Did the mouse move? */
|
|
DLword Savebitmap[16]; /* The bitmap under the mouse. Taking down the
|
|
mouse involves blitting this bitmap to the screen.
|
|
When bringing the mouse back up to the screen you
|
|
first have to save the contents of the screen under
|
|
the mouse here.*/
|
|
} MCursor;
|
|
|
|
typedef struct
|
|
{
|
|
DevRec device;
|
|
void (* Handler)(); /* Event handler for the mouse. */
|
|
MCursor Cursor;
|
|
Button Button;
|
|
LispPTR *timestamp;
|
|
unsigned int keyeventsize; /* The sizeof() one kbd event */
|
|
unsigned int maxkeyevent; /* Offset to the end of the ringbuffer. */
|
|
int eurokbd; /* Keep tabs of the euro-ness of the kbd */
|
|
} MouseInterfaceRec, *MouseInterface;
|
|
|
|
|
|
|
|
/**************************************************************/
|
|
/* K b d I n t e r f a c e */
|
|
/* */
|
|
/* Definition of the keyboard. Note that the keyboard is also */
|
|
/* dependent on the IOPage68K */
|
|
/**************************************************************/
|
|
typedef struct
|
|
{
|
|
DevRec device;
|
|
PFV device_event; /* Event handler for the keyboard. */
|
|
#ifdef DOS
|
|
u_char KeyMap[0x80]; /* The key translation table. Use the keycode you
|
|
get from the keyboard as an index. The value
|
|
gives the lispkeycode.*/
|
|
unsigned char lastbyte; /* Last byte that we got from the keyboard. */
|
|
unsigned int keyeventsize; /* The sizeof() one kbd event */
|
|
unsigned int maxkeyevent; /* Offset to the end of the ringbuffer. */
|
|
int eurokbd; /* Keep tabs of the euro-ness of the kbd */
|
|
PFV prev_handler; /* The previous keyboard handler.
|
|
Keep this around
|
|
to restore when we exit Medley */
|
|
int URaid; /* Put this in a better place later.. /jarl */
|
|
#endif /* DOS */
|
|
} KbdInterfaceRec, *KbdInterface;
|
|
|
|
|
|
|
|
/**************************************************************/
|
|
/* D s p I n t e r f a c e */
|
|
/* */
|
|
/* Definition of the display. This structure collects all the */
|
|
/* special knowledge needed to manipulate the screen. */
|
|
/**************************************************************/
|
|
typedef struct
|
|
{
|
|
DevRec device;
|
|
|
|
void (* drawline)(); /* DRAWLINE
|
|
args: dont know yet. Not yet implemented.*/
|
|
void (* cleardisplay)(); /* CLEARDISPLAY, a function
|
|
args: self
|
|
clears the screen.*/
|
|
|
|
unsigned long (* get_color_map_entry)();
|
|
unsigned long (* set_color_map_entry)();
|
|
unsigned long (* available_colors)(); /* How many colors do I have on my palette */
|
|
unsigned long (* possible_colors)(); /* How many colors is it possible to select from */
|
|
|
|
#ifdef NOTYET
|
|
unsigned long (* get_color_map)(); /* get a pointer to a colormap */
|
|
unsigned long (* set_color_map)(); /* set the current colormap */
|
|
unsigned long (* make_color_map)(); /* return a brand new colormap */
|
|
#endif /* NOTYET */
|
|
|
|
unsigned long (* medley_to_native_bm)(); /* 1 bit/pix to native bit/pix */
|
|
unsigned long (* native_to_medley_bm)(); /* native bit/pix to 1 bit/pix */
|
|
|
|
unsigned long (* bitblt_to_screen)(); /* BITBLT_TO_SCREEN, a function
|
|
args: self, buffer left top width height.
|
|
biblt's buffer to the screen. */
|
|
unsigned long (* bitblt_from_screen)();
|
|
unsigned long (* scroll_region)(); /* ie. bbt from screen to screen */
|
|
|
|
void (* mouse_invisible)(); /* MOUSE_INVISIBLE
|
|
args: self (a dsp), iop (an IOPAGE preferably the one and only)
|
|
This method makes the mouse invisible on the screen. Note that
|
|
the dsp supplies the method and the iop supplies the data. */
|
|
void (* mouse_visible)(); /* MOUSE_VISIBLE
|
|
args: self (a dsp), iop (an IOPAGE preferably the one and only)
|
|
This method makes the mouse visible on the screen. Note that
|
|
the dsp supplies the method and the iop supplies the data. */
|
|
MRegion Display; /* Dimensions of the physical display. */
|
|
unsigned short bitsperpixel;
|
|
unsigned long colors; /* cash for the available_colors */
|
|
unsigned long oldstate; /* Keep the old state around */
|
|
unsigned long graphicsmode; /* Magic cookie used to set the state. */
|
|
unsigned long numberofbanks;
|
|
#ifdef DOS
|
|
unsigned long BytesPerLine;
|
|
unsigned long DisplayStartAddr;
|
|
unsigned long DisplaySegSize;
|
|
unsigned long DisplaySegMagnitude;
|
|
unsigned long LinesPerBank;
|
|
unsigned short LastLineLen[32]; /* length of last line fragment per bank */
|
|
unsigned short LinesInBank[32]; /* True # of full lines in this bank */
|
|
/* # of lines we can do with the full-line dumpline */
|
|
/* for sure. */
|
|
unsigned short LinesBeforeBank[32]; /* Scan lines before start of this bank. */
|
|
|
|
void (* SwitchBank)(); /* Method to switch the bank (see vesa standard) */
|
|
#elif XWINDOW
|
|
char *identifier;
|
|
int BitGravity;
|
|
Display *display_id;
|
|
Window LispWindow;
|
|
Window DisplayWindow;
|
|
Window HorScrollBar;
|
|
Window VerScrollBar;
|
|
Window HorScrollButton;
|
|
Window VerScrollButton;
|
|
Window NEGrav;
|
|
Window SEGrav;
|
|
Window SWGrav;
|
|
Window NWGrav;
|
|
GC Copy_GC;
|
|
MRegion Visible;
|
|
unsigned int InternalBorderWidth;
|
|
unsigned int ScrollBarWidth;
|
|
Pixmap ScrollBarPixmap;
|
|
Pixmap GravityOnPixmap;
|
|
Pixmap GravityOffPixmap;
|
|
XImage ScreenBitmap;
|
|
Mask DisableEventMask;
|
|
Mask EnableEventMask;
|
|
#endif /* XWINDOW */
|
|
} DspInterfaceRec, *DspInterface;
|
|
|
|
|
|
|
|
#ifdef XWINDOW
|
|
#define DefineCursor(dsp, window, mycursor) \
|
|
do { \
|
|
XLOCK; \
|
|
XDefineCursor((dsp)->display_id, window, *(mycursor) ); \
|
|
XUNLOCK(dsp); \
|
|
} while (0)
|
|
#endif /* XWINDOW */
|
|
|
|
#define OUTER_SB_WIDTH(dsp) ((dsp)->ScrollBarWidth + 2*((dsp)->InternalBorderWidth))
|
|
|
|
#ifndef min
|
|
#define min( a, b ) (((a)<(b))?(a):(b))
|
|
#endif /* min */
|
|
|
|
#ifndef max
|
|
#define max( a, b ) (((a)>(b))?(a):(b))
|
|
#endif /* max */
|
|
|
|
#ifndef mid
|
|
#define mid(a, b, c) max( min( b, max( a, c ), min( a, max( b, c ))))
|
|
#endif /* mid */
|
|
|
|
#define MINKEYEVENT 2 /* leave 2 words for read,write offsets */
|
|
#define NUMBEROFKEYEVENTS 383
|
|
|
|
#endif
|
|
|