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

cde/lib/DtSvc/DtUtil1/CmdSpc.c

@@ -0,0 +1,99 @@
+/* $XConsortium: CmdSpc.c /main/4 1995/10/26 15:02:34 rswiston $ */
+/***************************************************************************
+*
+* File:         CmdSpc.c
+* Description:  Messaging support for the command execution system.
+* Language:     C
+*
+** (c) Copyright 1993, 1994 Hewlett-Packard Company
+** (c) Copyright 1993, 1994 International Business Machines Corp.
+** (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+** (c) Copyright 1993, 1994 Novell, Inc.
+***************************************************************************/
+
+#include "CmdInvP.h"
+
+#include <Dt/UserMsg.h>
+#include <Dt/CommandM.h>
+
+
+/******************************************************************************
+ *
+ * _DtCmdSPCAddInputHandler - Register the Command Invoker AddInputHandler
+ *
+ * PARAMETERS: Those need by a SPC Add Input Handler.
+ *
+ * NOTES:
+ *
+ *   This function is needed by SPC to get a process termination 
+ *   callback to get invoked.
+ *
+ *****************************************************************************/
+
+SbInputId
+_DtCmdSPCAddInputHandler ( 
+	int fd,
+	SbInputCallbackProc proc,
+	void *data)
+{
+   if (cmd_Globals.app_context == NULL)
+      return(XtAddInput(fd, 
+			(XtPointer) XtInputReadMask, 
+			proc, 
+			data));
+   else
+      return(XtAppAddInput(cmd_Globals.app_context, 
+			   fd, 
+			   (XtPointer) XtInputReadMask, 
+	                   proc, 
+			   data));
+}
+
+/******************************************************************************
+ *
+ * _DtCmdSPCAddExceptionHandler - Register the Command Invoker AddExceptionHandler
+ *
+ * PARAMETERS: Those need by a SPC Add Exception Input Handler.
+ *
+ * NOTES:
+ *
+ *   This function is needed by SPC to get a process termination 
+ *   callback to get invoked.
+ *
+ *****************************************************************************/
+
+SbInputId
+_DtCmdSPCAddExceptionHandler ( 
+	int fd,
+	SbInputCallbackProc proc,
+	void *data)
+{
+   if (cmd_Globals.app_context == NULL)
+      return(XtAddInput(fd, 
+			(XtPointer) XtInputExceptMask, 
+		        proc, 
+			data));
+   else
+      return(XtAppAddInput(cmd_Globals.app_context, 
+			  fd, 
+			  (XtPointer) XtInputExceptMask, 
+	                  proc, 
+			  data));
+}
+
+/******************************************************************************
+ * 
+ * _DtCmdLogErrorMessage - write an error message to the default log file.
+ *
+ * PARAMETERS:
+ *
+ *   char *message;	- The error message to log.
+ *
+ *****************************************************************************/
+
+void 
+_DtCmdLogErrorMessage(
+        char *message )
+{
+   _DtSimpleError (DtProgName, DtError, NULL, "%.2000s", message);
+}