mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-23 18:57:14 +00:00
60e13a774d
devif.h, mnxdefs.h: Update MRegion to reflect that width/height are unsigned. Update ...EventMask fields in XWINDOW section of DspInterfaceRec to match parameter type used in XSelectInput() to which they are passed. Add padding to explicitly align colors field (short among longs) xbitmaps.h: Reorder fields in LISP_CURSOR struct to avoid requiring padding for alignment constraints, and adjust initialization to match. Declare cursors static const. Move Lisp_Icon from xbitmaps.h to xmkicon.c xinit.c, xinitdefs.h Replace bound() (xwinmandefs.h) with static inline unsigned ubound() in xinit.c Change signature of X_init() to use unsigned values for width, height, depth. Add casts where necessary to avoid implicit signedness conversions. Add extern declarations for all globals defined in xinit.c xwinman.c, xwinmandefs.h Remove bound() from xwinmandefs.h and use static inline unsigned ubound() in xwinman.c Change signature of lisp_Xconfigure() to use unsigned width and height parameters. Make GravSize unsigned to match its usage context. Add casts where necessary to avoid implicit signedness conversions. Add missing break to correct switch case fall-through warning. dspif.c Change LispDisplayRequestedWidth/Height to unsigned to reflect context of use. xlspwin.c Eliminate declaration for unused XEvent report. Move global variable gcv, used only locally, to local variable in the procedures where needed. Change various variables used in width/height calculation to unsigned to match usage context. Add casts where necessary to avoid implicit signedness conversions. xmkicon.c Move Lisp_Icon from xbitmaps.h to xmkicon.c. Move global XImage IconImage to local in function where it is required. Add cast where necessary to avoid implicit signedness conversions. xrdopt.c Remove incorrect casts for signedness causing implicit sign conversion warnings. Add extern declarations for all globals defined in xrdopt.c xscroll.c Replace bound() (xwinmandefs.h) with static inline signed sbound() in xscroll.c initdsp.c, initdspdefs.h Change signedness of various display variables from int to unsigned. Change signature of init_display2() to unsigned display_max. Add extern declarations for some globals defined in initdsp.c xbbt.c Add explicit casts for type warnings from MRegion width/height change. Add explicit casts for type warnings in arguments to XPutImage().
295 lines
11 KiB
C
295 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;
|
|
unsigned width;
|
|
unsigned 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 unused0; /* alignment padding for next field */
|
|
unsigned short bitsperpixel;
|
|
unsigned long colors; /* cache 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;
|
|
long DisableEventMask;
|
|
long 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
|
|
|