Added some names to Setup.in, and added syslogmodule.c.

posixmodule.c: use pclose, not fclose!
selectmodule.c: trap negative fileno's, change some error messages.
stropmodule.c: change semantics of rindex to match string.py.

1 files changed, 199 insertions, 0 deletions

diff --git a/Modules/syslogmodule.c b/Modules/syslogmodule.c
new file mode 100644
index 0000000..dd0ba35
--- /dev/null
+++ b/Modules/syslogmodule.c
@@ -0,0 +1,199 @@
+/***********************************************************
+Copyright 1991, 1992, 1993, 1994 by Stichting Mathematisch Centrum,
+Amsterdam, The Netherlands.
+
+                        All Rights Reserved
+
+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 and that
+both that copyright notice and this permission notice appear in 
+supporting documentation, and that the names of Stichting Mathematisch
+Centrum or CWI not be used in advertising or publicity pertaining to
+distribution of the software without specific, written prior permission.
+
+STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
+THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
+FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
+FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
+OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+******************************************************************/
+
+/* syslog module */
+/* (By Lance Ellinghouse) */
+
+#include "allobjects.h"
+#include "modsupport.h"
+
+#include <syslog.h>
+
+static object *
+syslog_openlog(self, args)
+     object *self;
+     object *args;
+{
+  char *ident = "";
+  object *ident_o;
+  long logopt = LOG_PID;
+  long facility = LOG_USER;
+  if (!getargs(args, "(Sll);ident string, logoption, facility", &ident_o, &logopt, &facility))
+    if (!getargs(args, "(Sl);ident string, logoption", &ident_o, &logopt))
+      if (!getargs(args, "S;ident string", &ident_o))
+	return NULL;
+  INCREF(ident_o); /* This is needed because openlog() does NOT make a copy
+		      and syslog() later uses it.. cannot trash it. */
+  ident = getstringvalue(ident_o);
+  openlog(ident,logopt,facility);
+  INCREF(None);
+  return None;
+}
+
+static object *
+syslog_syslog(self, args)
+     object *self;
+     object *args;
+{
+  int   priority = LOG_INFO;
+  char *message;
+
+  if (!getargs(args,"(is);priority, message string",&priority,&message))
+    if (!getargs(args,"s;message string",&message))
+      return NULL;
+  syslog(priority, message);
+  INCREF(None);
+  return None;
+}
+
+static object *
+syslog_closelog(self, args)
+     object *self;
+     object *args;
+{
+	if (!getnoarg(args))
+		return NULL;
+	closelog();
+	INCREF(None);
+	return None;
+}
+
+static object *
+syslog_setlogmask(self, args)
+     object *self;
+     object *args;
+{
+  long maskpri;
+  if (!getargs(args,"l;mask for priority",&maskpri))
+    return NULL;
+  setlogmask(maskpri);
+  INCREF(None);
+  return None;
+}
+
+static object *
+syslog_log_mask(self, args)
+     object *self;
+     object *args;
+{
+  long mask;
+  long pri;
+  if (!getargs(args,"l",&pri))
+    return NULL;
+  mask = LOG_MASK(pri);
+  return newintobject(mask);
+}
+
+static object *
+syslog_log_upto(self, args)
+     object *self;
+     object *args;
+{
+  long mask;
+  long pri;
+  if (!getargs(args,"l",&pri))
+    return NULL;
+  mask = LOG_UPTO(pri);
+  return newintobject(mask);
+}
+
+/* List of functions defined in the module */
+
+static struct methodlist syslog_methods[] = {
+	{"openlog",		syslog_openlog},
+	{"closelog",		syslog_closelog},
+	{"syslog",              syslog_syslog},
+	{"setlogmask",          syslog_setlogmask},
+	{"LOG_MASK",            syslog_log_mask},
+	{"LOG_UPTO",            syslog_log_upto},
+	{NULL,		NULL}		/* sentinel */
+};
+
+/* Initialization function for the module */
+
+void
+initsyslog()
+{
+	object *m, *d, *x;
+
+	/* Create the module and add the functions */
+	m = initmodule("syslog", syslog_methods);
+
+	/* Add some symbolic constants to the module */
+	d = getmoduledict(m);
+	x = newintobject(LOG_EMERG);
+	dictinsert(d, "LOG_EMERG", x);
+	x = newintobject(LOG_ALERT);
+	dictinsert(d, "LOG_ALERT", x);
+	x = newintobject(LOG_CRIT);
+	dictinsert(d, "LOG_CRIT", x);
+	x = newintobject(LOG_ERR);
+	dictinsert(d, "LOG_ERR", x);
+	x = newintobject(LOG_WARNING);
+	dictinsert(d, "LOG_WARNING", x);
+	x = newintobject(LOG_NOTICE);
+	dictinsert(d, "LOG_NOTICE", x);
+	x = newintobject(LOG_INFO);
+	dictinsert(d, "LOG_INFO", x);
+	x = newintobject(LOG_DEBUG);
+	dictinsert(d, "LOG_DEBUG", x);
+	x = newintobject(LOG_PID);
+	dictinsert(d, "LOG_PID", x);
+	x = newintobject(LOG_CONS);
+	dictinsert(d, "LOG_CONS", x);
+	x = newintobject(LOG_NDELAY);
+	dictinsert(d, "LOG_NDELAY", x);
+	x = newintobject(LOG_NOWAIT);
+	dictinsert(d, "LOG_NOWAIT", x);
+	x = newintobject(LOG_KERN);
+	dictinsert(d, "LOG_KERN", x);
+	x = newintobject(LOG_USER);
+	dictinsert(d, "LOG_USER", x);
+	x = newintobject(LOG_MAIL);
+	dictinsert(d, "LOG_MAIL", x);
+	x = newintobject(LOG_DAEMON);
+	dictinsert(d, "LOG_DAEMON", x);
+	x = newintobject(LOG_LPR);
+	dictinsert(d, "LOG_LPR", x);
+	x = newintobject(LOG_LOCAL0);
+	dictinsert(d, "LOG_LOCAL0", x);
+	x = newintobject(LOG_LOCAL1);
+	dictinsert(d, "LOG_LOCAL1", x);
+	x = newintobject(LOG_LOCAL2);
+	dictinsert(d, "LOG_LOCAL2", x);
+	x = newintobject(LOG_LOCAL3);
+	dictinsert(d, "LOG_LOCAL3", x);
+	x = newintobject(LOG_LOCAL4);
+	dictinsert(d, "LOG_LOCAL4", x);
+	x = newintobject(LOG_LOCAL5);
+	dictinsert(d, "LOG_LOCAL5", x);
+	x = newintobject(LOG_LOCAL6);
+	dictinsert(d, "LOG_LOCAL6", x);
+	x = newintobject(LOG_LOCAL7);
+	dictinsert(d, "LOG_LOCAL7", x);
+
+	/* Check for errors */
+	if (err_occurred())
+		fatal("can't initialize module syslog");
+}