mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-13 15:18:14 +00:00
377a6f3f47
* Rewrite keyboard and async I/O handling to improve performance and reduce dependency on async I/O signals Replaces the SIGIO handler, which used to process X events in the interrupt context, with a stub routine that sets a flag to signal processing is required. Actual event processing is moved to the main dispatch loop where Lisp periodic interrupts are handled. Removes the X connection file descriptor from the set of fds contributing to SIGIO events and moves the processing of X events to where the Lisp periodic interrupt is handled in the main dispatch loop. This code is already guarded by a check for XPending() so can be called regardless of whether any file descriptors are known to be ready. Actual processing of async I/O events and X events are handled by procedures process_io_events() and process_Xevents() respectively. For the most part these are a renaming of getsignaldata() and getXsignaldata(). The Lisp periodic timer (VTALRM) was set to operate with a 25000 us period (40 Hz), but on modern hardware it is possible to run this timer with a period of 10000 us (100 Hz) Incidentally, a bug was noted (and fixed) in the X event handling code for motion events: Mouse motion without any keyboard activity should not add an entry to the keyboard event ring buffer as these events do not represent a key state change. Since the ring buffer is of limited size, when it is filled new events are ignored until the buffered events are processed. This resulted in the loss of a key/mouse button transition (up or down) if the mouse was moved about "too much" between keyboard events. A few incidental cleanups were also made: - KBDEventFlg initialization fixed (wrong semantic type) - Event_Req renamed to IO_Signalled (more appropriate name) - int_io_open() sets up process (self) to handle SIGIO generated by O_ASYNC operations - LOCK_X_EVENTS turned off since X library calls can no longer happen in an interrupt context * Use of O_ASYNC must depend on the symbol being defined (looking at you, Cygwin) * Add SA_RESTART flag to sigaction for SIGVTALRM periodic interrupt * LOCK_X_UPDATE is no longer needed and should not be defined by default for Solaris in version.h
256 lines
6.1 KiB
C
256 lines
6.1 KiB
C
#ifndef VERSION_H
|
|
#define VERSION_H 1
|
|
/* $Id: version.h,v 1.5 2001/12/26 22:17:01 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
|
|
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-98 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "maiko/platform.h"
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* V E R S I O N . H */
|
|
/* */
|
|
/* Version control: Set the two values that keep sysouts and emul- */
|
|
/* ators in sync: The LVERSION and MINBVERSION fields in the IFPAGE */
|
|
/* */
|
|
/* MINBVERSION is the current emulator version, incremented with each */
|
|
/* modification. This must be >= a sysout's ifpage.minbversion. */
|
|
/* */
|
|
/* LVERSION is the minimum lisp version that will run with this emu- */
|
|
/* lator. This must be <= a sysouts's ifpage.lversion. */
|
|
/* */
|
|
/* The loadup process sets both of these values in the sysout. */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/* C O N F I G U R A T I O N / O P T I O N C O N T R O L */
|
|
/* */
|
|
/* Given a release specification, set flags for the features */
|
|
/* that release has. This lets us set one flag in the make- */
|
|
/* file, rather than remembering all the options that must change. */
|
|
/* */
|
|
/* -DRELEASE=115 Medley 1.15, small atoms */
|
|
/* -DRELEASE=200 Medley 2.0 as released */
|
|
/* -DRELEASE=201 Medley with DOS & European kbd support */
|
|
/* -DRELEASE=210 Medley with big VM */
|
|
/* -DRELEASE=300 Medley bigvm as released. */
|
|
/* -DRELEASE=350 Medley with 256MB vm. */
|
|
/* -DRELEASE=351 Medley with 256MB vm and cursor fix */
|
|
/* */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
|
|
/* The current values */
|
|
|
|
#define LVERSION 21000
|
|
#define MINBVERSION 21001
|
|
|
|
|
|
/* But remember old values, if we can figure them out from ifdef's */
|
|
|
|
#if (RELEASE == 115)
|
|
|
|
#undef LVERSION
|
|
#undef MINBVERSION
|
|
#define LVERSION 15000
|
|
#define MINBVERSION 15000
|
|
#undef BIGATOMS
|
|
#define NOEUROKBD
|
|
#define NOVERSION
|
|
|
|
#elif (RELEASE == 200)
|
|
|
|
/* Medley 2.0 as released */
|
|
#undef LVERSION
|
|
#undef MINBVERSION
|
|
#define LVERSION 20000
|
|
#define MINBVERSION 20000
|
|
|
|
#define BIGATOMS
|
|
#define NOEUROKBD
|
|
#define NOVERSION
|
|
|
|
#elif (RELEASE == 201 )
|
|
|
|
|
|
/* Medley 2.0 with EUROKBD modification */
|
|
#undef LVERSION
|
|
#undef MINBVERSION
|
|
#define LVERSION 20100
|
|
#define MINBVERSION 20100
|
|
|
|
#define BIGATOMS
|
|
#undef NOEUROKBD
|
|
#define NOVERSION
|
|
|
|
#elif (RELEASE == 210)
|
|
|
|
/* Medley 2.1, big-vm Medley while in beta-test */
|
|
#undef LVERSION
|
|
#undef MINBVERSION
|
|
#define LVERSION 21000
|
|
#define MINBVERSION 21000
|
|
|
|
#define BIGATOMS
|
|
#define BIGVM 1
|
|
#define NEWCDRCODING
|
|
|
|
|
|
# elif (RELEASE == 300 )
|
|
|
|
/* Medley 301, big-vm Medley in release?? */
|
|
#undef LVERSION
|
|
#undef MINBVERSION
|
|
#define LVERSION 30000
|
|
#define MINBVERSION 30000
|
|
|
|
#define BIGATOMS
|
|
#define BIGVM
|
|
#define NEWCDRCODING
|
|
|
|
|
|
#elif (RELEASE == 350)
|
|
|
|
/* Medley 3.5, 256Mb version */
|
|
|
|
#undef LVERSION
|
|
#undef MINBVERSION
|
|
#define LVERSION 35000
|
|
#define MINBVERSION 35000
|
|
|
|
#define BIGATOMS
|
|
#define BIGVM
|
|
#define BIGBIGVM
|
|
#define NEWCDRCODING
|
|
|
|
|
|
#elif (RELEASE == 351)
|
|
|
|
/* Medley 3.5, 256Mb version, X cursor hotspot fix 1/00 */
|
|
|
|
#undef LVERSION
|
|
#undef MINBVERSION
|
|
#define LVERSION 35010
|
|
#define MINBVERSION 35010
|
|
|
|
#define BIGATOMS
|
|
#define BIGVM
|
|
#define BIGBIGVM
|
|
#define NEWCDRCODING
|
|
#define NEWXCURSOR
|
|
|
|
|
|
#else
|
|
error Must specify RELEASE to build Medley.
|
|
#endif
|
|
|
|
|
|
|
|
/****************************************************************/
|
|
/* */
|
|
/* There used to be a define NEW_STORAGE, but this wasn't tied */
|
|
/* clearly to any RELEASE values. There are comments related */
|
|
/* to this in LLPARAMS on the Lisp side. */
|
|
/* */
|
|
/****************************************************************/
|
|
|
|
/****************************************************************/
|
|
/* */
|
|
/* Architecture-specific flags: Set flags */
|
|
/* based on thing we know about the architecture */
|
|
/* or idiosyncrasies of the machine we're compiling for. */
|
|
/* */
|
|
/* Defaults: Unaligned fetches OK UNALIGNED_FETCH_OK */
|
|
/* fp values used with */
|
|
/* pointer-wide unsigned UNSIGNED */
|
|
/* pointer-wide int INT */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/****************************************************************/
|
|
|
|
|
|
|
|
|
|
#ifdef NOASM
|
|
#undef OPDISP
|
|
#undef PROFILE
|
|
#endif
|
|
|
|
/* Set up defaults */
|
|
#define UNALIGNED_FETCH_OK
|
|
#define UNSIGNED unsigned long
|
|
#define INT long
|
|
|
|
|
|
|
|
/* Not all platforms want to do unaligned reads, so
|
|
* we will disable those here. */
|
|
#if defined(MAIKO_ARCH_SPARC) || defined(MAIKO_ARCH_ARM)
|
|
#undef UNALIGNED_FETCH_OK
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/********************************************************/
|
|
/* */
|
|
/********************************************************/
|
|
#ifndef __has_builtin
|
|
#define __has_builtin(x) 0
|
|
#endif
|
|
|
|
#if __has_builtin(__builtin_sadd_overflow) && \
|
|
__has_builtin(__builtin_ssub_overflow) && \
|
|
__has_builtin(__builtin_smul_overflow)
|
|
#define USE_OVERFLOW_BUILTINS
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/********************************************************/
|
|
/* */
|
|
/********************************************************/
|
|
#ifdef OS5
|
|
/* Solaris, sort of SYSV-ish, but not really */
|
|
#define MAIKO_ENABLE_ETHERNET
|
|
#endif /* OS5 */
|
|
|
|
|
|
|
|
|
|
/********************************************************/
|
|
/* */
|
|
/********************************************************/
|
|
|
|
#ifdef DOS
|
|
typedef unsigned char u_char;
|
|
typedef unsigned long u_int;
|
|
typedef unsigned short u_short;
|
|
#undef UNALIGNED_FETCH_OK
|
|
#define USHORT unsigned
|
|
#else
|
|
#define USHORT unsigned short
|
|
#endif /* DOS */
|
|
|
|
/****************************************************************/
|
|
/* End of architecture-specific flag settings */
|
|
/* --Start of system-specific flags */
|
|
/* */
|
|
/****************************************************************/
|
|
|
|
/****************************************************************/
|
|
/* End of system-specific flag settings */
|
|
/****************************************************************/
|
|
|
|
#endif /* VERSION_H */
|