+++ /dev/null
-/* $XConsortium: iopreader.c,v 1.2 94/04/12 17:24:33 dpw Exp $ */
-
-/* Copyright (c) 1987 by the Regents of the University of California
- * Copyright (c) 1994 by the Vrije Universiteit, Amsterdam.
- *
- * Permission to use, copy, modify, and distribute this
- * software and its documentation for any purpose and without
- * fee is hereby granted, provided that the above copyright
- * notice appear in all copies. The University of California
- * and the Vrije Universiteit make no representations about
- * the suitability of this software for any purpose.
- * It is provided "as is" without express or implied warranty.
- */
-
-#ifdef AMOEBA
-/*
- * iopreader.c
- *
- */
-#define port am_port_t
-#include <amoeba.h>
-#include <ampolicy.h>
-#include <cmdreg.h>
-#include <stdcom.h>
-#include <stderr.h>
-#include <server/iop/iop.h>
-#undef port
-
-#include "osdep.h"
-
-#define DEVREADER_STACK 8000
-#define MAXEVENTQUEUE 32
-
-capability iopcap;
-
-static mutex lock;
-static semaphore empty, filled;
-
-static IOPEvent event_queue[MAXEVENTQUEUE];
-static int event_qin, event_qout;
-
-void IOPCleanUp();
-static void IOPServerReader();
-
-/*
- * Initialize the IOP server
- */
-void
-InitializeIOPServerReader()
-{
- capability hostcap;
- errstat err;
-
- /*
- * Initialize event queue
- */
- event_qin = event_qout = 0;
- sema_init(&empty, MAXEVENTQUEUE);
- sema_init(&filled, 0);
- mu_init(&lock);
-
- /*
- * Get IOP capability, and enable the server
- */
- if (XServerHostName == NULL)
- FatalError("No hostname, no screen\n");
-
- if ((err = host_lookup(XServerHostName, &hostcap)) != STD_OK ||
- (err = dir_lookup(&hostcap, DEF_IOPSVRNAME, &iopcap)) != STD_OK)
- {
- FatalError("Cannot find IOP server for %s: %s\n",
- XServerHostName, err_why(err));
- }
-
- /*
- * Enable IOP server
- */
- if ((err = iop_enable(&iopcap)) != STD_OK)
- FatalError("iop_enable failed (%s)\n", err_why(err));
-
- /*
- * Start IOP reader thread
- */
- atexit(IOPCleanUp);
- if (thread_newthread(IOPServerReader, DEVREADER_STACK, 0, 0) <= 0)
- FatalError("Cannot start IOP reader thread\n");
-}
-
-/*
- * IOP clean up, actuall disable the IOP server. Its the IOP's own choice
- * what do do (perhaps restore the screen?).
- */
-void
-IOPCleanUp()
-{
- errstat err;
-
- if ((err = iop_disable(&iopcap)) != STD_OK)
- ErrorF("iop_disable failed (%s)\n", err_why(err));
-}
-
-/*
- * This threads polls the IOP server for events. Once an event (or a
- * number of events) are read, they are queued up using a traditional
- * producer/consumer approach.
- */
-static void
-IOPServerReader()
-{
- IOPEvent queue[MAXEVENTQUEUE-1];
- int nevents, i;
- errstat err;
-
- WaitForInitialization();
-
-#ifdef XDEBUG
- if (amDebug) ErrorF("IOPServerReader() running ...\n");
-#endif
-
- for (;;) {
- do {
- nevents = MAXEVENTQUEUE - 1;
- err = iop_getevents(&iopcap, queue, &nevents);
- if (err != STD_OK) {
- if (err != RPC_FAILURE) {
- ErrorF("iop_getevents failed (%s)\n", err_why(err));
- }
- nevents = 0;
- }
- } while (nevents <= 0);
-
- /* store event(s) in the global event queue */
- sema_mdown(&empty, nevents);
- mu_lock(&lock);
- for (i = 0; i < nevents; i++) {
- event_queue[event_qin] = queue[i];
- event_qin = (event_qin + 1) % MAXEVENTQUEUE;
- }
- mu_unlock(&lock);
- sema_mup(&filled, nevents);
- WakeUpMainThread();
- }
-}
-
-/*
- * Return the number of IOP events waiting
- */
-int
-AmoebaEventsAvailable()
-{
- return sema_level(&filled);
-}
-
-/*
- * Get the IOP events from the queue. ``size'' is the maximum the
- * requestor cares to handle, the actual size read is returned as
- * result.
- */
-int
-AmoebaGetEvents(queue, size)
- IOPEvent *queue;
- int size;
-{
- int nevents, i;
-
- if (sema_level(&filled) <= 0) return 0;
- if ((nevents = sema_level(&filled)) > size)
- nevents = size;
- sema_mdown(&filled, nevents);
- mu_lock(&lock);
- for (i = 0; i < nevents; i++) {
- queue[i] = event_queue[event_qout];
- event_qout = (event_qout + 1) % MAXEVENTQUEUE;
- }
- mu_unlock(&lock);
- sema_mup(&empty, nevents);
- return nevents;
-}
-#endif /* AMOEBA */