-/*
- * $Source$
- * $Author$
- * $Header$
- *
- * Copyright (C) 1987 by the Massachusetts Institute of Technology
+/* $Id$
*
+ * Copyright (C) 1987-1998 by the Massachusetts Institute of Technology
+ * For copying and distribution information, please see the file
+ * <mit-copyright.h>.
*/
-#ifndef lint
-static char *rcsid_sms_util_c = "$Header$";
-#endif lint
-
-#include "sms_server.h"
+#include <mit-copyright.h>
+#include "mr_server.h"
#include <ctype.h>
-#include <strings.h>
-#include <sys/types.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+RCSID("$Header$");
extern char *whoami;
-char *
-requote(buf, cp, len)
- char *buf;
- register char *cp;
+char *requote(char *cp)
{
- register int count = 0;
- register unsigned char c;
- if (len <= 2) return buf;
- *buf++ = '"'; count++; len--;
- for(; (count < 40) && (len > 1) && (c = *cp);
- cp++, --len, ++count) {
- if (c == '\\' || c == '"') *buf++ = '\\';
- if (isprint(c)) *buf++ = c;
- else {
- sprintf(buf, "\\%03o", c);
- buf = index(buf, '\0');
- }
+ int len = 0;
+ char *out = xmalloc(4 * strlen(cp) + 3), *op = out;
+
+ *op++ = '"';
+ len++;
+ while (*cp)
+ {
+ if (*cp == '\\' || *cp == '"')
+ {
+ *op++ = '\\';
+ len++;
+ }
+ if (isprint(*cp))
+ {
+ *op++ = *cp++;
+ len++;
}
- if (len > 1) { *buf++ = '"'; count++; len--; }
- if (len > 3 && count >= 40) {
- *buf++ = '.'; count++; len--;
- *buf++ = '.'; count++; len--;
- *buf++ = '.'; count++; len--;
+ else
+ {
+ sprintf(op, "\\%03o", (unsigned char)*cp++);
+ op += 4;
+ len += 4;
}
- if (len > 1) *buf = '\0';
- return buf;
+ }
+
+ strcpy(op, "\"");
+ len += 2;
+
+ out = realloc(out, len); /* shrinking, so can't fail */
+ return out;
}
-log_args(tag, version, argc, argv)
- char *tag;
- int version;
- int argc;
- char **argv;
+void log_args(char *tag, int version, int argc, char **argv)
{
- char buf[BUFSIZ];
- register int i;
- register char *bp;
-
- i = strlen(tag);
- sprintf(buf, "%s[%d]: ", tag, version);
- for (bp = buf; *bp; bp++);
-
- for (i = 0; i < argc && ((buf - bp) + 1024) > 2; i++) {
- if (i != 0) {
- *bp++ = ',';
- *bp++ = ' ';
- }
- bp = requote(bp, argv[i], (buf - bp) + 1024);
- }
- *bp = '\0';
- com_err(whoami, 0, "%s", buf);
+ char *buf, **qargv;
+ int i, len;
+ char *bp;
+
+ qargv = xmalloc(argc * sizeof(char *));
+
+ for (i = len = 0; i < argc; i++)
+ {
+ qargv[i] = requote(argv[i]);
+ len += strlen(qargv[i]) + 2;
+ }
+
+ buf = xmalloc(len + 1);
+
+ for (i = 0, *buf = '\0'; i < argc; i++)
+ {
+ if (i)
+ strcat(buf, ", ");
+ strcat(buf, qargv[i]);
+ free(qargv[i]);
+ }
+ free(qargv);
+
+ com_err(whoami, 0, "%s[%d]: %s", tag, version, buf);
+ free(buf);
}
-
-void sms_com_err(whoami, code, fmt, pvar)
- char *whoami;
- int code;
- char *fmt;
- caddr_t pvar;
+
+void mr_com_err(const char *whoami, long code, const char *fmt, va_list pvar)
{
- extern char *error_message();
- extern client *cur_client;
-
- if (whoami) {
- fputs(whoami, stderr);
- if (cur_client) fprintf(stderr, "[#%d]", cur_client->id);
- fputs(": ", stderr);
- }
- if (code) {
- fputs(error_message(code), stderr);
- }
- if (fmt) {
- _doprnt(fmt, pvar, stderr);
- }
- putc('\n', stderr);
+ extern client *cur_client;
+
+ if (whoami)
+ {
+ fputs(whoami, stderr);
+ if (cur_client)
+ fprintf(stderr, "[#%d]", cur_client->id);
+ fputs(": ", stderr);
+ }
+ if (code) {
+ fputs(error_message(code), stderr);
+ fputs(" ", stderr);
+ }
+ if (fmt)
+ vfprintf(stderr, fmt, pvar);
+ putc('\n', stderr);
}
-/* sms_trim_args: passed an argument vector, it will trim any trailing
+/* mr_trim_args: passed an argument vector, it will trim any trailing
* spaces on the args by writing a null into the string.
*/
-int sms_trim_args(argc, argv)
-int argc;
-char **argv;
+int mr_trim_args(int argc, char **argv)
{
- register char **arg;
- register char *p, *lastch;
+ char **arg;
+ unsigned char *p, *lastch;
- for (arg = argv; argc--; arg++) {
- for (lastch = p = *arg; *p; p++)
+ for (arg = argv; argc--; arg++)
+ {
+ for (lastch = p = (unsigned char *) *arg; *p; p++)
+ {
if (!isspace(*p))
lastch = p;
- if (p != lastch) {
- if (isspace(*lastch))
- *lastch = 0;
- else
- *(++lastch) = 0;
+ }
+ if (p != lastch)
+ {
+ if (isspace(*lastch))
+ *lastch = '\0';
+ else
+ if (*(++lastch))
+ *lastch = '\0';
}
}
- return(0);
+ return 0;
}
-trim(s)
-register char *s;
+/* returns a copy of the argv and all of it's strings */
+
+char **mr_copy_args(char **argv, int argc)
{
- register char *p;
-
- for (p = s; *s; s++)
- if (*s != ' ')
- p = s;
- if (p != s) {
- if (*p == ' ')
- *p = 0;
- else
- p[1] = 0;
- }
+ char **a;
+ int i;
+
+ a = xmalloc(argc * sizeof(char *));
+ for (i = 0; i < argc; i++)
+ a[i] = xstrdup(argv[i]);
+ return a;
+}
+
+
+/* malloc or die! */
+void *xmalloc(size_t bytes)
+{
+ void *buf = malloc(bytes);
+
+ if (buf)
+ return buf;
+
+ critical_alert(whoami, "moirad", "Out of memory");
+ exit(1);
+}
+
+void *xrealloc(void *ptr, size_t bytes)
+{
+ void *buf = realloc(ptr, bytes);
+
+ if (buf)
+ return buf;
+
+ critical_alert(whoami, "moirad", "Out of memory");
+ exit(1);
+}
+
+char *xstrdup(char *str)
+{
+ char *buf = strdup(str);
+
+ if (buf)
+ return buf;
+
+ critical_alert(whoami, "moirad", "Out of memory");
+ exit(1);
}