mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-19 13:55:39 +00:00
Maiko sources matching state as of 020102 prior to initial patching for Mac OSX
This commit is contained in:
Nick Briggs
309
inc/devif.h
Executable file
309
inc/devif.h
Executable file
@@ -0,0 +1,309 @@
|
||||
/* $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. */
|
||||
/* */
|
||||
/* 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. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#ifndef __DEVIF__
|
||||
#define __DEVIF__ 1
|
||||
|
||||
|
||||
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 emualtor coinside with eachother */
|
||||
} 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 knowlege 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_invissible)(); /* MOUSE_INVISSIBLE
|
||||
args: self (a dsp), iop (an IOPAGE preferably the one and only)
|
||||
This method makes the mouse invissible on the screen. Note that
|
||||
the dsp supplys the method and the iop supplys the data. */
|
||||
void (* mouse_vissible)(); /* MOUSE_VISSIBLE
|
||||
args: self (a dsp), iop (an IOPAGE preferably the one and only)
|
||||
This method makes the mouse vissible on the screen. Note that
|
||||
the dsp supplys the method and the iop supplys 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 Vissible;
|
||||
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(display, window, mycursor) { \
|
||||
XLOCK;\
|
||||
XDefineCursor( display, window, *(mycursor) );\
|
||||
XUNLOCK;\
|
||||
}
|
||||
#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 */
|
||||
|
||||
#ifndef FALSE
|
||||
#define FALSE 0
|
||||
#endif /* FALSE */
|
||||
|
||||
#ifndef TRUE
|
||||
#define TRUE !FALSE
|
||||
#endif /* TRUE */
|
||||
|
||||
#define MINKEYEVENT 2 /* leave 2 words for read,write offsets */
|
||||
#define NUMBEROFKEYEVENTS 383
|
||||
|
||||
#endif /* __DEVIF__ */
|
||||
|
||||
Reference in New Issue
Block a user