mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-28 04:38:00 +00:00
Maiko sources matching state as of 020102 prior to initial patching for Mac OSX
This commit is contained in:
Nick Briggs
393
src/xinit.c
Executable file
393
src/xinit.c
Executable file
@@ -0,0 +1,393 @@
|
||||
/* $Id: xinit.c,v 1.5 2001/12/26 22:17:06 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
static char *id = "$Id: xinit.c,v 1.5 2001/12/26 22:17:06 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (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. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
|
||||
#include <stdio.h>
|
||||
#include <X11/X.h>
|
||||
#include <X11/Xlib.h>
|
||||
#include <X11/Xutil.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/file.h>
|
||||
|
||||
#include "lispemul.h"
|
||||
#include "dbprint.h"
|
||||
|
||||
#include "xdefs.h"
|
||||
#include "devif.h"
|
||||
|
||||
#include "adr68k.h"
|
||||
|
||||
#ifdef HPUX
|
||||
#define FASYNC O_NONBLOCK
|
||||
#endif /* HPUX */
|
||||
|
||||
#include <fcntl.h>
|
||||
#include <sys/ioctl.h>
|
||||
|
||||
#ifndef APOLLO
|
||||
#ifndef HPUX
|
||||
#ifndef ULTRIX
|
||||
#ifndef LINUX
|
||||
#include <stropts.h>
|
||||
#endif /* LINUX */
|
||||
#endif /* ULTRIX */
|
||||
#endif /* HPUX */
|
||||
#endif /* APOLLO */
|
||||
|
||||
#ifdef ISC
|
||||
#define FASYNC O_NONBLOCK
|
||||
#define SIGIO SIGPOLL
|
||||
#endif /* ISC */
|
||||
|
||||
#define FALSE 0
|
||||
#define TRUE !FALSE
|
||||
#define PERCENT_OF_SCREEN 95
|
||||
#define DISPLAY_MAX 65536*16*2 /* same magic number is */
|
||||
/* in loadsysout.c */
|
||||
extern DLword *Lisp_world;
|
||||
extern int Lisp_Xinitialized;
|
||||
extern char Display_Name[128];
|
||||
extern DLword *DisplayRegion68k;
|
||||
int xsync = False;
|
||||
|
||||
int Byte_Order
|
||||
, Bitmap_Bit_Order
|
||||
, Bitmap_Pad
|
||||
, Default_Depth
|
||||
, Display_Height
|
||||
, Display_Width;
|
||||
|
||||
int LispWindowRequestedX = 0;
|
||||
int LispWindowRequestedY = 0;
|
||||
int LispWindowRequestedWidth = DEF_WIN_WIDTH;
|
||||
int LispWindowRequestedHeight = DEF_WIN_HEIGHT;
|
||||
|
||||
int LispDisplayRequestedX,
|
||||
LispDisplayRequestedY,
|
||||
LispDisplayRequestedWidth,
|
||||
LispDisplayRequestedHeight;
|
||||
|
||||
Colormap Colors;
|
||||
|
||||
int XLocked = 0; /* non-zero while doing X ops, to avoid signals */
|
||||
extern int LispReadFds;
|
||||
extern PFUL GenericReturnT();
|
||||
extern PFUL clipping_Xbitblt();
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* i n i t _ X e v e n t */
|
||||
/* */
|
||||
/* Turn on the X window we've been using for display. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
void init_Xevent(dsp)
|
||||
DspInterface dsp;
|
||||
{
|
||||
int GravMask, BarMask, LispMask, DisplayMask;
|
||||
|
||||
GravMask = ButtonPressMask | ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | StructureNotifyMask;
|
||||
BarMask = GravMask;
|
||||
DisplayMask = GravMask | PointerMotionMask | ExposureMask | KeyPressMask | KeyReleaseMask;
|
||||
LispMask = StructureNotifyMask;
|
||||
|
||||
|
||||
XSelectInput(dsp->display_id, dsp->LispWindow, dsp->EnableEventMask);
|
||||
XSelectInput(dsp->display_id, dsp->DisplayWindow, dsp->EnableEventMask);
|
||||
XSelectInput(dsp->display_id, dsp->HorScrollBar, BarMask);
|
||||
XSelectInput(dsp->display_id, dsp->VerScrollBar, BarMask);
|
||||
XSelectInput(dsp->display_id, dsp->HorScrollButton, NoEventMask);
|
||||
XSelectInput(dsp->display_id, dsp->VerScrollButton, NoEventMask);
|
||||
XSelectInput(dsp->display_id, dsp->NEGrav, GravMask);
|
||||
XSelectInput(dsp->display_id, dsp->SEGrav, GravMask);
|
||||
XSelectInput(dsp->display_id, dsp->SWGrav, GravMask);
|
||||
XSelectInput(dsp->display_id, dsp->NWGrav, GravMask);
|
||||
|
||||
#ifdef SYSVONLY
|
||||
#ifndef LINUX
|
||||
ioctl(ConnectionNumber(dsp->display_id)
|
||||
, I_SETSIG, S_INPUT); /* so we see X events fast */
|
||||
#endif
|
||||
#endif /* SYSVONLY */
|
||||
} /*end init_Xevent */
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* l i s p _ X e x i t */
|
||||
/* */
|
||||
/* Turn off the X window we've been using for display. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
void lisp_Xexit(dsp)
|
||||
DspInterface dsp;
|
||||
{
|
||||
#ifdef SYSVONLY
|
||||
#ifndef LINUX
|
||||
ioctl(ConnectionNumber(dsp->display_id)
|
||||
, I_SETSIG, 0); /* so no interrupts happen during */
|
||||
#endif
|
||||
#endif /* SYSVONLY */
|
||||
|
||||
XDestroySubwindows( dsp->display_id, dsp->LispWindow );
|
||||
XDestroyWindow( dsp->display_id, dsp->LispWindow );
|
||||
XCloseDisplay( dsp->display_id );
|
||||
|
||||
Lisp_Xinitialized = FALSE;
|
||||
} /* end lisp_Xexit */
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* X e v e n t _ b e f o r e _ r a i d */
|
||||
/* */
|
||||
/* Called before Medley enters URAID, to turn off events in */
|
||||
/* the X windows we use for Medley's display. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
void Xevent_before_raid(dsp)
|
||||
DspInterface dsp;
|
||||
{
|
||||
TPRINT(( "TRACE: Xevent_before_raid()\n" ));
|
||||
|
||||
XSelectInput( dsp->display_id, dsp->LispWindow, NoEventMask );
|
||||
XSelectInput( dsp->display_id, dsp->DisplayWindow, NoEventMask );
|
||||
XSelectInput( dsp->display_id, dsp->VerScrollBar, NoEventMask );
|
||||
XSelectInput( dsp->display_id, dsp->HorScrollBar, NoEventMask );
|
||||
XSelectInput( dsp->display_id, dsp->NEGrav, NoEventMask);
|
||||
XSelectInput( dsp->display_id, dsp->SEGrav, NoEventMask);
|
||||
XSelectInput( dsp->display_id, dsp->SWGrav, NoEventMask);
|
||||
XSelectInput (dsp->display_id, dsp->NWGrav, NoEventMask);
|
||||
|
||||
XLOCK;
|
||||
XFlush( dsp->display_id );
|
||||
XUNLOCK;
|
||||
} /* end Xevent_before_raid */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* X e v e n t _ a f t e r _ r a i d */
|
||||
/* */
|
||||
/* Called after Medley returns from URAID, to re-enable events */
|
||||
/* from the X server in the windows we use for the display. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
void Xevent_after_raid(dsp)
|
||||
DspInterface dsp;
|
||||
{
|
||||
init_Xevent( dsp );
|
||||
(dsp->bitblt_to_screen)( dsp, 0,
|
||||
dsp->Vissible.x,
|
||||
dsp->Vissible.y,
|
||||
dsp->Vissible.width,
|
||||
dsp->Vissible.height );
|
||||
XLOCK;
|
||||
XFlush( dsp->display_id );
|
||||
XUNLOCK;
|
||||
|
||||
} /* end Xevent_after_raid */
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* O p e n _ D i s p l a y */
|
||||
/* */
|
||||
/* Open the connection to the X client/window manager display, */
|
||||
/* gather information from it that we'll need (pixel depth, etc), */
|
||||
/* and initialize the lisp display-bank size to fit the screen. */
|
||||
/* */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
void Open_Display( dsp )
|
||||
DspInterface dsp;
|
||||
{
|
||||
|
||||
LispReadFds |= (1 << ConnectionNumber(dsp->display_id));
|
||||
#ifndef ISC
|
||||
#ifndef HPUX
|
||||
fcntl(ConnectionNumber(dsp->display_id), F_SETOWN, getpid());
|
||||
#endif /* HPUX */
|
||||
#endif /* ISC */
|
||||
|
||||
|
||||
/****************************************************/
|
||||
/* If debugging, set the X connection so that */
|
||||
/* we run synchronized--so a debugger can */
|
||||
/* 'stop in _XError' and know EXACTLY where */
|
||||
/* an error got caused. */
|
||||
/****************************************************/
|
||||
XSynchronize(dsp->display_id, xsync);
|
||||
|
||||
Colors = DefaultColormapOfScreen ( ScreenOfDisplay( dsp->display_id,
|
||||
DefaultScreen( dsp->display_id ) ) );
|
||||
|
||||
/* When we make the initial screen we haven't yet read in the */
|
||||
/* displayregion bitmap. Fix this now. */
|
||||
if (dsp->ScreenBitmap.data == NULL)
|
||||
dsp->ScreenBitmap.data = (char *)DisplayRegion68k;
|
||||
|
||||
Create_LispWindow(dsp); /* Make the main window */
|
||||
Lisp_Xinitialized = TRUE;
|
||||
init_Xevent( dsp ); /* Turn on the intrpts. */
|
||||
} /* end OpenDisplay */
|
||||
|
||||
|
||||
/*********************************************************************/
|
||||
/* */
|
||||
/* X _ i n i t */
|
||||
/* dsp: a display structure to be filled with all the neccessary */
|
||||
/* information. */
|
||||
/* */
|
||||
/* lispbitmap: The bitmapdata that is to be dumped to the screen. */
|
||||
/* width_hint and height_hint: The requested size of the screen. The */
|
||||
/* width and height hints will be obeyed as close as possible */
|
||||
/* with respect to the physicalk limitations. This makes it */
|
||||
/* possible to get a screen that is larger (or smaller) than */
|
||||
/* the physical screen. 0 will give you some default value */
|
||||
/* depth_hint: The requested depth in bits. depth 1 can allways be */
|
||||
/* granted. Any value of 1 or less will yeild depth 1. */
|
||||
/* */
|
||||
/* Return value: the lispbitmap or 1 if all is ok. else FALSE is */
|
||||
/* returned */
|
||||
/* */
|
||||
/* This is the init function for X displays. To create a new display */
|
||||
/* you call this function. If you want to know what you got you will */
|
||||
/* have to read the individual fields of the dsp structure. */
|
||||
/* */
|
||||
/*********************************************************************/
|
||||
|
||||
DspInterface X_init( DspInterface dsp,
|
||||
char *lispbitmap,
|
||||
int width_hint,
|
||||
int height_hint,
|
||||
int depth_hint )
|
||||
{
|
||||
Screen *Xscreen;
|
||||
|
||||
dsp->identifier = Display_Name; /* This is a hack. The display name */
|
||||
/* has to dealt with in a more */
|
||||
/* gracefull way. */
|
||||
|
||||
/* Try to open the X display. If this isn't possible, we just */
|
||||
/* return FALSE. */
|
||||
if( (dsp->display_id = XOpenDisplay( dsp->identifier )) == NULL )
|
||||
return(NULL);
|
||||
/* Load the dsp structure */
|
||||
|
||||
Xscreen = ScreenOfDisplay( dsp->display_id, DefaultScreen( dsp->display_id ) );
|
||||
|
||||
/* Set the scrollbar and border widths */
|
||||
dsp->ScrollBarWidth = SCROLL_WIDTH;
|
||||
dsp->InternalBorderWidth = DEF_BDRWIDE;
|
||||
|
||||
dsp->Vissible.x = LispDisplayRequestedX;
|
||||
dsp->Vissible.y = LispDisplayRequestedY;
|
||||
|
||||
/* Set the width and height of the display. */
|
||||
if ( height_hint == 0 ){
|
||||
dsp->Display.height = HeightOfScreen( Xscreen ) -
|
||||
OUTER_SB_WIDTH(dsp); /* In the default case,
|
||||
adjust for scroll gadgets*/
|
||||
}
|
||||
else dsp->Display.height = bound(WIN_MIN_HEIGHT,
|
||||
height_hint,
|
||||
WIN_MAX_HEIGHT);
|
||||
|
||||
if ( width_hint == 0 ){
|
||||
dsp->Display.width = WidthOfScreen( Xscreen ) -
|
||||
OUTER_SB_WIDTH(dsp); /* In the default case,
|
||||
adjust for scroll gadgets*/
|
||||
}
|
||||
else dsp->Display.width = bound(WIN_MIN_WIDTH,
|
||||
width_hint,
|
||||
WIN_MAX_WIDTH);
|
||||
|
||||
/************************************************************/
|
||||
/* Set the size of ScreenBitMap */
|
||||
/* The display's width is rounded to a 32-bit multiple, */
|
||||
/* so that little-Endian machines can display right. */
|
||||
/************************************************************/
|
||||
dsp->Display.width = ((dsp->Display.width+31) >> 5) << 5;
|
||||
|
||||
dsp->device.enter = (PFV)Open_Display;
|
||||
dsp->device.exit = (PFV)lisp_Xexit;
|
||||
|
||||
dsp->bitblt_to_screen = (PFUL)clipping_Xbitblt;
|
||||
|
||||
dsp->device.before_raid = (PFV)Xevent_before_raid;
|
||||
dsp->device.after_raid = (PFV)Xevent_after_raid;
|
||||
|
||||
dsp->BitGravity = NorthWestGravity;
|
||||
|
||||
dsp->cleardisplay = (PFV)GenericReturnT;
|
||||
dsp->set_color_map_entry = (PFUL)GenericReturnT;
|
||||
|
||||
/* Set the geometry of the Vissible (Lisp) window. */
|
||||
dsp->Vissible.width = bound(OUTER_SB_WIDTH(dsp),
|
||||
LispWindowRequestedWidth,
|
||||
min(dsp->Display.width,
|
||||
(WidthOfScreen( Xscreen ) -
|
||||
OUTER_SB_WIDTH(dsp))));
|
||||
dsp->Vissible.height = bound(OUTER_SB_WIDTH(dsp),
|
||||
LispWindowRequestedHeight,
|
||||
min(dsp->Display.height,
|
||||
(HeightOfScreen( Xscreen ) -
|
||||
OUTER_SB_WIDTH(dsp))));
|
||||
|
||||
/* Initialize the screen image structure. */
|
||||
dsp->ScreenBitmap.width = dsp->Display.width;
|
||||
dsp->ScreenBitmap.height = dsp->Display.height;
|
||||
dsp->ScreenBitmap.xoffset = 0;
|
||||
dsp->bitsperpixel = DefaultDepthOfScreen( ScreenOfDisplay( dsp->display_id,
|
||||
DefaultScreen( dsp->display_id ) ) );
|
||||
#if (defined(BYTESWAP))
|
||||
dsp->ScreenBitmap.byte_order = LSBFirst;
|
||||
#else /* BYTESWAP */
|
||||
dsp->ScreenBitmap.byte_order = MSBFirst;
|
||||
#endif /* BYTESWAP */
|
||||
|
||||
dsp->ScreenBitmap.data = (char *)(lispbitmap?Addr68k_from_LADDR((LispPTR)lispbitmap):0);
|
||||
|
||||
switch(depth_hint){
|
||||
case 8: /* Color Screen */
|
||||
dsp->ScreenBitmap.format = ZPixmap;
|
||||
dsp->ScreenBitmap.bitmap_unit = BitmapUnit( dsp->display_id );
|
||||
dsp->ScreenBitmap.bitmap_bit_order = MSBFirst;
|
||||
dsp->ScreenBitmap.bitmap_pad = 32;
|
||||
dsp->ScreenBitmap.depth = 8;
|
||||
dsp->ScreenBitmap.bits_per_pixel = 8;
|
||||
dsp->ScreenBitmap.bytes_per_line = (dsp->Display.width);
|
||||
dsp->ScreenBitmap.red_mask = 7;
|
||||
dsp->ScreenBitmap.green_mask = 7;
|
||||
dsp->ScreenBitmap.blue_mask = 3;
|
||||
break;
|
||||
default: /* B/W Screen */
|
||||
dsp->ScreenBitmap.format = XYBitmap;
|
||||
dsp->ScreenBitmap.bitmap_unit = BitmapUnit( dsp->display_id );
|
||||
dsp->ScreenBitmap.bitmap_bit_order = MSBFirst;
|
||||
dsp->ScreenBitmap.bitmap_pad = 32;
|
||||
dsp->ScreenBitmap.depth = 1;
|
||||
dsp->ScreenBitmap.bytes_per_line = ((dsp->Display.width+(BITSPER_DLWORD-1))
|
||||
/BITSPER_DLWORD) * (BITSPER_DLWORD/8);
|
||||
break;
|
||||
}
|
||||
return( dsp );
|
||||
}
|
||||
Reference in New Issue
Block a user