/*
- * $Source$
- * $Header$
+ * $Header$
*/
#ifndef lint
static char *rcsid_gdb_fserv_c = "$Header$";
-#endif lint
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-/************************************************************************/
-/*
-/* gdb_fserv.c
-/*
-/* GDB - Routines to implement forking servers.
-/*
-/* Author: Noah Mendelsohn
-/* Copyright: 1986 MIT Project Athena
-/* For copying and distribution information, please see
-/* the file <mit-copyright.h>.
-/*
-/************************************************************************/
+#endif
+
+
+/************************************************************************
+ *
+ * gdb_fserv.c
+ *
+ * GDB - Routines to implement forking servers.
+ *
+ * Author: Noah Mendelsohn
+ * Copyright: 1986 MIT Project Athena
+ * For copying and distribution information, please see
+ * the file <mit-copyright.h>.
+ *
+ ************************************************************************/
#include <mit-copyright.h>
#include <stdio.h>
#include <sys/signal.h>
#include "gdb.h"
#include <sys/resource.h>
-\f
-/************************************************************************/
-/*
-/* create_forking_server (create_forking_server)
-/*
-/* Called by an application to turn itself into a forking model
-/* server. Returns from this routine occur only in the forked
-/* children. The parent lives in this routine forever, waiting
-/* for incoming connection requests and doing the appropriate
-/* forking.
-/*
-/* Children are expected to do their own cleanup, but this routine
-/* does do the work of reaping the resulting zombie processes.
-/*
-/* ARGUMENTS:
-/* ----------
-/*
-/* service-id identifies the port to be used for
-/* listening. Same rules as for
-/* create_listening_connection.
-/*
-/* validate-rtn pointer to a function to be called to
-/* validate the incoming client. Should
-/* return TRUE if client is acceptable,
-/* else false. If this is NULL, all clients
-/* are accepted.
-/*
-/* GLOBAL VARIABLES
-/* ----------------
-/*
-/* Children created by this routine inherit the global variables
-/* gdb_sockaddr_of_client, which is of type sockaddr_in and
-/* gdb_socklen, which is the returned length of the sockaddr.
-/* These are the Berkeley identifiers of the clients as accepted.
-/* Use of this interface is non-portable to other than Berkeley
-/* systems.
-/*
-/* The client's request tuple may be found in gdb_client_tuple.
-/*
-/************************************************************************/
+#ifdef POSIX
+#include <unistd.h>
+#endif
+
+
+/************************************************************************
+ *
+ * create_forking_server (create_forking_server)
+ *
+ * Called by an application to turn itself into a forking model
+ * server. Returns from this routine occur only in the forked
+ * children. The parent lives in this routine forever, waiting
+ * for incoming connection requests and doing the appropriate
+ * forking.
+ *
+ * Children are expected to do their own cleanup, but this routine
+ * does do the work of reaping the resulting zombie processes.
+ *
+ * ARGUMENTS:
+ * ----------
+ *
+ * service-id identifies the port to be used for
+ * listening. Same rules as for
+ * create_listening_connection.
+ *
+ * validate-rtn pointer to a function to be called to
+ * validate the incoming client. Should
+ * return TRUE if client is acceptable,
+ * else false. If this is NULL, all clients
+ * are accepted.
+ *
+ * GLOBAL VARIABLES
+ * ----------------
+ *
+ * Children created by this routine inherit the global variables
+ * gdb_sockaddr_of_client, which is of type sockaddr_in and
+ * gdb_socklen, which is the returned length of the sockaddr.
+ * These are the Berkeley identifiers of the clients as accepted.
+ * Use of this interface is non-portable to other than Berkeley
+ * systems.
+ *
+ * The client's request tuple may be found in gdb_client_tuple.
+ *
+ ************************************************************************/
CONNECTION
char *service;
int (*validate)();
{
-
+ void start_accepting_client();
CONNECTION incoming; /* listen for incoming */
/* children here */
CONNECTION client = NULL; /* connection to client */
g_do_signals(); /* set up signal handling */
incoming = create_listening_connection(service);
- if (incoming == NULL)
+ if (incoming == NULL || connection_status(incoming) != CON_UP)
GDB_GIVEUP("create_forking_server: can't create listening connection")
/*----------------------------------------------------------*/
gdb_sockaddr_of_client, &gdb_socklen,
&gdb_client_tuple);
if(complete_operation(listenop) != OP_COMPLETE ||
- client == NULL)
- GDB_GIVEUP("create_forking_server: failed to accept client")
+ client == NULL) {
+ gdb_perror("GDB create_forking_server: failed to accept client");
+ reset_operation(listenop);
+ (void) sever_connection(client);
+ continue;
+ }
/*
/* Called on SIGCHILD to reap all dead children.
/*
/************************************************************************/
+#ifndef POSIX
int
+#else
+void
+#endif
gdb_reaper()
{
+#ifdef POSIX
+ int status;
+#else
union wait status;
- extern char *sys_siglist[];
+#endif
- while (wait3(&status, WNOHANG, (struct rusage *)0) >0) {
-#ifdef notdef
- if (WIFEXITED(status)) {
- if (status.w_retcode)
- printf("exited with code %d\n",
- status.w_retcode);
- }
- if (WIFSIGNALED(status)) {
- printf("exited on %s signal%s\n",
- sys_siglist[status.w_termsig],
- (status.w_coredump?"; core dumped":0));
- }
-#endif notdef
- }
+#ifdef POSIX
+ while (waitpid(-1, &status, WNOHANG) >0);
+#else
+ while (wait3(&status, WNOHANG, (struct rusage *)0) >0);
+#endif
}
\f
/************************************************************************/
int
g_do_signals()
{
- (void) signal(SIGCHLD, gdb_reaper);
+#ifdef POSIX
+ struct sigaction act;
+
+ act.sa_handler = gdb_reaper;
+ sigemptyset(&act.sa_mask);
+ act.sa_flags = 0;
+ (void) sigaction(SIGCHLD, &act, (struct sigaction *)0);
+#else /* sun */
+ (void) signal(SIGCHLD, gdb_reaper);
+#endif
}