#ifndef lint
static char SccsId[] = "%W% %G%";
#endif
/* Module: mainevnt.c (Main Event)
* Purpose: Main Event Loop and Dispatcher
* Subroutine: control_event_loop() returns: void
* Xlib calls: XPending(), XNextEvent()
* UNIX calls: select()
* Copyright: 1989 Smithsonian Astrophysical Observatory
* You may do anything you like with this file except remove
* this copyright. The Smithsonian Astrophysical Observatory
* makes no representations about the suitability of this
* software for any purpose. It is provided "as is" without
* express or implied warranty.
* Modified: {0} Michael VanHilst initial version 9 May 1989
* {1} Jay Travisano (STScI) VMS,IMTOOL changes 10 Nov 1989
* {n} <who> -- <does what> -- <when>
*/
#include <stdio.h> /* stderr, NULL, etc. */
#include <sys/time.h> /* get struct timeval */
#include <X11/Xlib.h> /* X window stuff */
#include <X11/Xutil.h> /* X window manager stuff */
#include "hfiles/constant.h" /* define codes */
#include "hfiles/define.h" /* YES, NO, MIN, MAX and more */
#include "hfiles/struct.h" /* declare structure types */
#include "hfiles/cgraph.h" /* color graph structures */
#include "hfiles/extern.h" /* extern main parameter structures */
extern struct cgraphRec cgraph; /* get access to subwindow ID's */
extern struct windowRec desktop;
extern Display *display; /* server connection */
#if VMS && IMTOOL
void XZ_ast();
int XZ_efn = 10;
#endif
/*
* Subroutine: control_event_loop
* Purpose: Main event loop and dispatcher
* Xlib calls: XNextEvent();
*/
void control_event_loop ( )
{
#ifdef SYSV
int mask[2];
#else
int mask[4];
#endif
GC set_gc_with_background();
int *response, *control_buttonbox();
void map_windows(), dispatch_select(), redraw_window();
void control_cursor(), control_cgraph(), control_pan(), control_color();
void magnify_disp(), magnify_pan(), map_graphbox(), close_input_pipe();
void adjust_desktop(), adjust_graphbox(), key_response(), control_blink();
#ifdef VMS
#ifdef IMTOOL
/* Set asynch notification for all Xwindow events and Imtool pipe
* (`Z') events. Note that buttonbox event notification is set
* separately (see buttonlib/makebox.c and buttonlib/remotectrl.c).
* The same goes for some other dynamic window/displays (see
* editctrl.c and grphcinit.c).
*/
{
extern Window root;
int all_events = 0xFFFFFFFF;
sys$clref (XZ_efn);
XSelectAsyncInput (display, root, all_events, XZ_ast, XZ_efn);
}
#endif
#endif
/* the event loop */
control.priority = 0;
/* set mask to screen events */
while( 1 ) {
if( control.remote_connected ) {
#ifdef IMTOOL
#ifndef VMS
/* AIX is the only UNIX we have seen which can't handle the select!! */
if( XPending(display) ) {
XNextEvent(display, &control.event);
} else {
mask[0] = control.select_mask[0];
mask[1] = control.select_mask[1];
/* check for either pipe or X server event */
if( select(control.select_size, (fd_set *)mask,
(fd_set *)0, (fd_set *)0, (struct timeval *)0) <0 ) {
perror("select error");
continue;
}
if( (mask[0] & control.Xserver.mask[0]) ||
(mask[1] & control.Xserver.mask[1]) ) {
XNextEvent(display, &control.event);
} else {
/* call routine to read from pipe */
respond_to_connection(mask);
continue;
}
}
#else
/* For VMS, do the equivalent of Unix select() by
* using ASTs and event flags.
*/
if( XPending(display) ) {
XNextEvent(display, &control.event);
} else {
int not_found, i;
struct connectRec *port = control.Xserver.next;
not_found = 1;
for( i=0; (port != NULL) && (i<control.remote_connected); i++ ) {
if( ZPending(port->fd) ) {
respond_to_connection(&port->fd);
/* reset AST on connections for which events can be pending */
ZSelectAsyncInput(port->fd, XZ_ast, XZ_efn);
port = NULL;
not_found = 0;
} else {
port = port->next;
}
}
if( not_found ) {
/* Wait for event flag. When set, clear it for the next go around
* and jump back to the while loop and process all the events that
* are pending.
*/
sys$waitfr (XZ_efn);
sys$clref (XZ_efn);
continue;
} else {
continue;
}
}
#endif
#endif
} else {
XNextEvent(display, &control.event);
}
control.completed = 0;
/* priority event loop invoked by certain eventloop subroutines */
/* usual application is to track mouse while buttons held down */
if( control.event.type & control.priority ) {
switch( control.mode ) {
case COP:
control_cursor();
break;
case VOP:
control_color();
break;
case GOP:
control_cgraph();
break;
case ZOP:
control_pan();
break;
case SOP:
control_blink();
break;
default:
(void)fprintf(stderr, "do-nothing mode\n");
}
}
/* priority events can speed up by returning to the while(1) */
/* from here - by setting event processing completed flag */
/* if a priority event has not claimed an exclusive */
if( control.completed ) continue;
/* check for buttonbox events */
/* set the colors for the button menu bitmaps, in case it draws */
(void)set_gc_with_background(&color.gcset.menu,
color.gcset.menu.background);
if( (response = control_buttonbox(&control.event)) != 0 ) {
/* respond to the buttonbox event (uses extern.h) */
dispatch_select (response);
/* ok, go directly for the next event */
continue;
}
/* check the type of event */
switch( control.event.type ) {
/* if all or part of the window is newly exposed */
case Expose:
/* redraw entire window once (not parts of windows) */
if( control.event.xexpose.count == 0 )
redraw_window(control.event.xexpose.window);
break;
case MotionNotify:
/* track with magnibox if in picturbox w/o shift key */
if( control.event.xmotion.window == dispbox.ID ) {
int shift;
shift = ((control.event.xmotion.state & (ShiftMask | LockMask)) !=0);
/* if magni_track or shift, but not both */
if( control.magni_track != shift ) {
magnify_disp(&control.event, 1, control.coord_track || shift);
} else if( control.coord_track && (!shift) )
/* else if coord_track alone, just show coords */
magnify_disp(&control.event, 0, 1);
} else if( (control.event.xmotion.window == panbox.ID) &&
(control.event.xmotion.state & ShiftMask) ) {
magnify_pan(&control.event);
}
break;
case ButtonPress:
/* if a mouse button is pressed */
if( control.event.xbutton.window == dispbox.ID ) {
/* avoid duplication with same response under priority */
if( !control.priority ) {
/* simple button pressed response depends on mode */
switch( control.mode ) {
case COP:
control_cursor();
break;
case VOP:
control_color();
break;
case ZOP:
control_pan();
break;
case SOP:
control_blink();
break;
default:
(void)fprintf(stderr, "do-nothing mode\n");
}
}
} else if( control.event.xbutton.window == cgraph.graph.ID ) {
/* button pressed in color graph window */
/* avoid duplication with priority response to same */
if( !control.priority ) {
control_cgraph();
}
} else if( control.event.xbutton.window == panbox.ID ) {
/* button pressed in pan window */
/* avoid duplication with priority response to same */
if( !control.priority ) {
control_pan();
}
} else if( control.event.xbutton.window == colorbox.ID ) {
/* button pressed in color bar window */
/* this window is not used with halftone */
if( color.ncolors > 1 )
map_graphbox();
}
break;
case KeyPress:
/* if a key is pressed */
key_response();
break;
case ConfigureNotify:
/* if the main window is reconfigured */
if( control.event.xconfigure.window == desktop.ID )
adjust_desktop(&control.event.xconfigure);
else if( control.event.xconfigure.window == graphbox.ID )
adjust_graphbox(&control.event.xconfigure);
break;
default:
break;
}
}
}
#ifdef VMS
#ifdef IMTOOL
/* XZ_ast - Asynchronous System Trap routine for X window and Z events.
* Simply set the appropriate event flag.
*/
void XZ_ast (int efn)
{
sys$setef (efn);
}
#endif
#endif
syntax highlighted by Code2HTML, v. 0.9.1