#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 #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