Initial import of the CDE 2.1.30 sources from the Open Group.

cde/lib/csa/xtclient.c

@@ -0,0 +1,118 @@
+/* $XConsortium: xtclient.c /main/1 1996/04/21 19:24:58 drk $ */
+/*
+ *  (c) Copyright 1993, 1994 Hewlett-Packard Company
+ *  (c) Copyright 1993, 1994 International Business Machines Corp.
+ *  (c) Copyright 1993, 1994 Novell, Inc.
+ *  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+ */
+
+#include <EUSCompat.h>
+#include <stdlib.h>
+#include <X11/Intrinsic.h>
+#include <rpc/rpc.h>
+#include "debug.h"
+
+typedef struct _appctlist {
+	XtAppContext	appct;
+	struct _appctlist *next;
+} AppCtList;
+
+static AppCtList *registered_appct = NULL;
+
+/*****************************************************************************
+ * forward declaration of static functions
+ *****************************************************************************/
+static void xtcallback(XtPointer data, int *fid, XtInputId *id);
+static boolean_t new_appct(XtAppContext apptct);
+
+/*****************************************************************************
+ * extern functions used in the library
+ *****************************************************************************/
+
+/*
+ * register callback for all file descriptors that's set
+ * (since we don't know which one is ours).
+ */
+extern void
+_DtCm_register_xtcallback(XtAppContext appct)
+{
+	XtInputId	id;
+	int	i, j;
+	fd_mask	fmask, *bits;
+	fd_set	fdset = svc_fdset;
+
+	DP(("xtclient.c: _DtCm_register_xtcallback()\n"));
+
+	if (new_appct(appct) == B_FALSE)
+		return;
+
+	/* assuming only 1 bit is set */
+	bits = fdset.fds_bits;
+	for (i = 0; i < FD_SETSIZE; i += NFDBITS) {
+		fmask = *bits;
+		for (j = 0; fmask != 0; j++, fmask >>= 1) {
+			if (fmask & 0x1) {
+
+				if ((i + j) >= FD_SETSIZE)
+					break;
+
+        			/* register callback with XtAppAddInput
+				 * for rpc input
+				 */
+				id = XtAppAddInput(appct, ((i *NFDBITS) + j),
+					(XtPointer)XtInputReadMask,
+					xtcallback, NULL);
+
+				DP(("xtclient.c: id %d for input at fd %d\n",
+					id, ((i * NFDBITS) + j)));
+			}
+		}
+		bits++;
+	}
+}
+
+/*****************************************************************************
+ * static functions used within the file
+ *****************************************************************************/
+
+/*
+ * callback for rpc events
+ */
+static void
+xtcallback(XtPointer data, int *fid, XtInputId *id)
+{
+	fd_set rpc_bits;
+
+	DP(("xtcallback called\n"));
+
+	FD_ZERO(&rpc_bits);
+	FD_SET(*fid, &rpc_bits);
+	svc_getreqset(&rpc_bits);
+}
+
+/*
+ * need to lock registered_appct
+ */
+static boolean_t
+new_appct(XtAppContext appct)
+{
+	AppCtList	*lptr;
+	boolean_t	newappct = B_TRUE;
+
+	for (lptr = registered_appct; lptr != NULL; lptr = lptr->next) {
+		if (lptr->appct == appct) {
+			newappct = B_FALSE;
+			break;
+		}
+	}
+
+	if (newappct == B_TRUE) {
+		lptr = (AppCtList *)calloc(1, sizeof(AppCtList));
+		lptr->appct = appct;
+		lptr->next = registered_appct;
+		registered_appct = lptr;
+	}
+
+	return (newappct);
+}
+