mirror of
https://github.com/python/cpython.git
synced 2025-08-02 08:02:56 +00:00
Putting TCL mods for Python under CVS.
This commit is contained in:
Jack Jansen
parent
0072bfb126
commit
b0195ec9c1
3 changed files with 967 additions and 0 deletions
425
Mac/tclmods/tclMacNotify.c
Normal file
425
Mac/tclmods/tclMacNotify.c
Normal file
|
|
@ -0,0 +1,425 @@
|
|||
/*
|
||||
* tclMacNotify.c --
|
||||
*
|
||||
* This file contains Macintosh-specific procedures for the notifier,
|
||||
* which is the lowest-level part of the Tcl event loop. This file
|
||||
* works together with ../generic/tclNotify.c.
|
||||
*
|
||||
* Copyright (c) 1995-1996 Sun Microsystems, Inc.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution
|
||||
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
*
|
||||
* SCCS: @(#) tclMacNotify.c 1.36 97/05/07 19:09:29
|
||||
*/
|
||||
|
||||
#include "tclInt.h"
|
||||
#include "tclPort.h"
|
||||
#include "tclMac.h"
|
||||
#include "tclMacInt.h"
|
||||
#include <signal.h>
|
||||
#include <Events.h>
|
||||
#include <LowMem.h>
|
||||
#include <Processes.h>
|
||||
#include <Timer.h>
|
||||
|
||||
|
||||
/*
|
||||
* This is necessary to work around a bug in Apple's Universal header files
|
||||
* for the CFM68K libraries.
|
||||
*/
|
||||
|
||||
#ifdef __CFM68K__
|
||||
#undef GetEventQueue
|
||||
extern pascal QHdrPtr GetEventQueue(void)
|
||||
THREEWORDINLINE(0x2EBC, 0x0000, 0x014A);
|
||||
#pragma import list GetEventQueue
|
||||
#define GetEvQHdr() GetEventQueue()
|
||||
#endif
|
||||
|
||||
/*
|
||||
* The follwing static indicates whether this module has been initialized.
|
||||
*/
|
||||
|
||||
static int initialized = 0;
|
||||
|
||||
/*
|
||||
* The following structure contains the state information for the
|
||||
* notifier module.
|
||||
*/
|
||||
|
||||
static struct {
|
||||
int timerActive; /* 1 if timer is running. */
|
||||
Tcl_Time timer; /* Time when next timer event is expected. */
|
||||
int flags; /* OR'ed set of flags defined below. */
|
||||
Point lastMousePosition; /* Last known mouse location. */
|
||||
RgnHandle utilityRgn; /* Region used as the mouse region for
|
||||
* WaitNextEvent and the update region when
|
||||
* checking for events. */
|
||||
Tcl_MacConvertEventPtr eventProcPtr;
|
||||
/* This pointer holds the address of the
|
||||
* function that will handle all incoming
|
||||
* Macintosh events. */
|
||||
} notifier;
|
||||
|
||||
/*
|
||||
* The following defines are used in the flags field of the notifier struct.
|
||||
*/
|
||||
|
||||
#define NOTIFY_IDLE (1<<1) /* Tcl_ServiceIdle should be called. */
|
||||
#define NOTIFY_TIMER (1<<2) /* Tcl_ServiceTimer should be called. */
|
||||
|
||||
/*
|
||||
* Prototypes for procedures that are referenced only in this file:
|
||||
*/
|
||||
|
||||
static int HandleMacEvents _ANSI_ARGS_((void));
|
||||
static void InitNotifier _ANSI_ARGS_((void));
|
||||
static void NotifierExitHandler _ANSI_ARGS_((
|
||||
ClientData clientData));
|
||||
|
||||
/*
|
||||
*----------------------------------------------------------------------
|
||||
*
|
||||
* InitNotifier --
|
||||
*
|
||||
* Initializes the notifier structure.
|
||||
*
|
||||
* Results:
|
||||
* None.
|
||||
*
|
||||
* Side effects:
|
||||
* Creates a new exit handler.
|
||||
*
|
||||
*----------------------------------------------------------------------
|
||||
*/
|
||||
|
||||
static void
|
||||
InitNotifier(void)
|
||||
{
|
||||
initialized = 1;
|
||||
memset(¬ifier, 0, sizeof(notifier));
|
||||
Tcl_CreateExitHandler(NotifierExitHandler, NULL);
|
||||
}
|
||||
|
||||
/*
|
||||
*----------------------------------------------------------------------
|
||||
*
|
||||
* NotifierExitHandler --
|
||||
*
|
||||
* This function is called to cleanup the notifier state before
|
||||
* Tcl is unloaded.
|
||||
*
|
||||
* Results:
|
||||
* None.
|
||||
*
|
||||
* Side effects:
|
||||
* None.
|
||||
*
|
||||
*----------------------------------------------------------------------
|
||||
*/
|
||||
|
||||
static void
|
||||
NotifierExitHandler(
|
||||
ClientData clientData) /* Not used. */
|
||||
{
|
||||
initialized = 0;
|
||||
}
|
||||
|
||||
/*
|
||||
*----------------------------------------------------------------------
|
||||
*
|
||||
* HandleMacEvents --
|
||||
*
|
||||
* This function checks for events from the Macintosh event queue.
|
||||
*
|
||||
* Results:
|
||||
* Returns 1 if event found, 0 otherwise.
|
||||
*
|
||||
* Side effects:
|
||||
* Pulls events off of the Mac event queue and then calls
|
||||
* convertEventProc.
|
||||
*
|
||||
*----------------------------------------------------------------------
|
||||
*/
|
||||
|
||||
static int
|
||||
HandleMacEvents(void)
|
||||
{
|
||||
EventRecord theEvent;
|
||||
int eventFound = 0, needsUpdate = 0;
|
||||
Point currentMouse;
|
||||
WindowRef windowRef;
|
||||
Rect mouseRect;
|
||||
|
||||
/*
|
||||
* Check for mouse moved events. These events aren't placed on the
|
||||
* system event queue unless we call WaitNextEvent.
|
||||
*/
|
||||
|
||||
GetGlobalMouse(¤tMouse);
|
||||
if ((notifier.eventProcPtr != NULL) &&
|
||||
!EqualPt(currentMouse, notifier.lastMousePosition)) {
|
||||
notifier.lastMousePosition = currentMouse;
|
||||
theEvent.what = nullEvent;
|
||||
if ((*notifier.eventProcPtr)(&theEvent) == true) {
|
||||
eventFound = 1;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* Check for update events. Since update events aren't generated
|
||||
* until we call GetNextEvent, we may need to force a call to
|
||||
* GetNextEvent, even if the queue is empty.
|
||||
*/
|
||||
|
||||
for (windowRef = FrontWindow(); windowRef != NULL;
|
||||
windowRef = GetNextWindow(windowRef)) {
|
||||
GetWindowUpdateRgn(windowRef, notifier.utilityRgn);
|
||||
if (!EmptyRgn(notifier.utilityRgn)) {
|
||||
needsUpdate = 1;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* Process events from the OS event queue.
|
||||
*/
|
||||
|
||||
while (needsUpdate || (GetEvQHdr()->qHead != NULL)) {
|
||||
GetGlobalMouse(¤tMouse);
|
||||
SetRect(&mouseRect, currentMouse.h, currentMouse.v,
|
||||
currentMouse.h + 1, currentMouse.v + 1);
|
||||
RectRgn(notifier.utilityRgn, &mouseRect);
|
||||
|
||||
WaitNextEvent(everyEvent, &theEvent, 5, notifier.utilityRgn);
|
||||
needsUpdate = 0;
|
||||
if ((notifier.eventProcPtr != NULL)
|
||||
&& ((*notifier.eventProcPtr)(&theEvent) == true)) {
|
||||
eventFound = 1;
|
||||
}
|
||||
}
|
||||
|
||||
return eventFound;
|
||||
}
|
||||
|
||||
/*
|
||||
*----------------------------------------------------------------------
|
||||
*
|
||||
* Tcl_SetTimer --
|
||||
*
|
||||
* This procedure sets the current notifier timer value. The
|
||||
* notifier will ensure that Tcl_ServiceAll() is called after
|
||||
* the specified interval, even if no events have occurred.
|
||||
*
|
||||
* Results:
|
||||
* None.
|
||||
*
|
||||
* Side effects:
|
||||
* Replaces any previous timer.
|
||||
*
|
||||
*----------------------------------------------------------------------
|
||||
*/
|
||||
|
||||
void
|
||||
Tcl_SetTimer(
|
||||
Tcl_Time *timePtr) /* New value for interval timer. */
|
||||
{
|
||||
if (!timePtr) {
|
||||
notifier.timerActive = 0;
|
||||
} else {
|
||||
/*
|
||||
* Compute when the timer should fire.
|
||||
*/
|
||||
|
||||
TclpGetTime(¬ifier.timer);
|
||||
notifier.timer.sec += timePtr->sec;
|
||||
notifier.timer.usec += timePtr->usec;
|
||||
if (notifier.timer.usec >= 1000000) {
|
||||
notifier.timer.usec -= 1000000;
|
||||
notifier.timer.sec += 1;
|
||||
}
|
||||
notifier.timerActive = 1;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
*----------------------------------------------------------------------
|
||||
*
|
||||
* Tcl_WaitForEvent --
|
||||
*
|
||||
* This function is called by Tcl_DoOneEvent to wait for new
|
||||
* events on the message queue. If the block time is 0, then
|
||||
* Tcl_WaitForEvent just polls the event queue without blocking.
|
||||
*
|
||||
* Results:
|
||||
* Always returns 0.
|
||||
*
|
||||
* Side effects:
|
||||
* None.
|
||||
*
|
||||
*----------------------------------------------------------------------
|
||||
*/
|
||||
|
||||
int
|
||||
Tcl_WaitForEvent(
|
||||
Tcl_Time *timePtr) /* Maximum block time. */
|
||||
{
|
||||
int found;
|
||||
EventRecord macEvent;
|
||||
long sleepTime = 5;
|
||||
long ms;
|
||||
Point currentMouse;
|
||||
void * timerToken;
|
||||
Rect mouseRect;
|
||||
|
||||
/*
|
||||
* Compute the next timeout value.
|
||||
*/
|
||||
|
||||
if (!timePtr) {
|
||||
ms = INT_MAX;
|
||||
} else {
|
||||
ms = (timePtr->sec * 1000) + (timePtr->usec / 1000);
|
||||
}
|
||||
timerToken = TclMacStartTimer((long) ms);
|
||||
|
||||
/*
|
||||
* Poll the Mac event sources. This loop repeats until something
|
||||
* happens: a timeout, a socket event, mouse motion, or some other
|
||||
* window event. Note that we don't call WaitNextEvent if another
|
||||
* event is found to avoid context switches. This effectively gives
|
||||
* events coming in via WaitNextEvent a slightly lower priority.
|
||||
*/
|
||||
|
||||
found = 0;
|
||||
if (notifier.utilityRgn == NULL) {
|
||||
notifier.utilityRgn = NewRgn();
|
||||
}
|
||||
|
||||
while (!found) {
|
||||
/*
|
||||
* Check for generated and queued events.
|
||||
*/
|
||||
|
||||
if (HandleMacEvents()) {
|
||||
found = 1;
|
||||
}
|
||||
|
||||
/*
|
||||
* Check for time out.
|
||||
*/
|
||||
|
||||
if (!found && TclMacTimerExpired(timerToken)) {
|
||||
found = 1;
|
||||
}
|
||||
|
||||
/*
|
||||
* Mod by Jack: poll for select() events. Code is in TclSelectNotify.c
|
||||
*/
|
||||
{
|
||||
int Tcl_PollSelectEvent(void);
|
||||
if (!found && Tcl_PollSelectEvent())
|
||||
found = 1;
|
||||
}
|
||||
|
||||
/*
|
||||
* Check for window events. We may receive a NULL event for
|
||||
* various reasons. 1) the timer has expired, 2) a mouse moved
|
||||
* event is occuring or 3) the os is giving us time for idle
|
||||
* events. Note that we aren't sharing the processor very
|
||||
* well here. We really ought to do a better job of calling
|
||||
* WaitNextEvent for time slicing purposes.
|
||||
*/
|
||||
|
||||
if (!found) {
|
||||
/*
|
||||
* Set up mouse region so we will wake if the mouse is moved.
|
||||
* We do this by defining the smallest possible region around
|
||||
* the current mouse position.
|
||||
*/
|
||||
|
||||
GetGlobalMouse(¤tMouse);
|
||||
SetRect(&mouseRect, currentMouse.h, currentMouse.v,
|
||||
currentMouse.h + 1, currentMouse.v + 1);
|
||||
RectRgn(notifier.utilityRgn, &mouseRect);
|
||||
|
||||
WaitNextEvent(everyEvent, &macEvent, sleepTime,
|
||||
notifier.utilityRgn);
|
||||
|
||||
if (notifier.eventProcPtr != NULL) {
|
||||
if ((*notifier.eventProcPtr)(&macEvent) == true) {
|
||||
found = 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
TclMacRemoveTimer(timerToken);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/*
|
||||
*----------------------------------------------------------------------
|
||||
*
|
||||
* Tcl_Sleep --
|
||||
*
|
||||
* Delay execution for the specified number of milliseconds. This
|
||||
* is not a very good call to make. It will block the system -
|
||||
* you will not even be able to switch applications.
|
||||
*
|
||||
* Results:
|
||||
* None.
|
||||
*
|
||||
* Side effects:
|
||||
* Time passes.
|
||||
*
|
||||
*----------------------------------------------------------------------
|
||||
*/
|
||||
|
||||
void
|
||||
Tcl_Sleep(
|
||||
int ms) /* Number of milliseconds to sleep. */
|
||||
{
|
||||
EventRecord dummy;
|
||||
void *timerToken;
|
||||
|
||||
if (ms <= 0) {
|
||||
return;
|
||||
}
|
||||
|
||||
timerToken = TclMacStartTimer((long) ms);
|
||||
while (1) {
|
||||
WaitNextEvent(0, &dummy, (ms / 16.66) + 1, NULL);
|
||||
|
||||
if (TclMacTimerExpired(timerToken)) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
TclMacRemoveTimer(timerToken);
|
||||
}
|
||||
|
||||
/*
|
||||
*----------------------------------------------------------------------
|
||||
*
|
||||
* Tcl_MacSetEventProc --
|
||||
*
|
||||
* This function sets the event handling procedure for the
|
||||
* application. This function will be passed all incoming Mac
|
||||
* events. This function usually controls the console or some
|
||||
* other entity like Tk.
|
||||
*
|
||||
* Results:
|
||||
* None.
|
||||
*
|
||||
* Side effects:
|
||||
* Changes the event handling function.
|
||||
*
|
||||
*----------------------------------------------------------------------
|
||||
*/
|
||||
|
||||
void
|
||||
Tcl_MacSetEventProc(
|
||||
Tcl_MacConvertEventPtr procPtr)
|
||||
{
|
||||
notifier.eventProcPtr = procPtr;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue