/*
 *	$Source: /afs/sipb.mit.edu/project/sipb-athena/repository/src/moira/server/mr_util.c,v $
 *	$Author: ghudson $
 *	$Header: /afs/sipb.mit.edu/project/sipb-athena/repository/src/moira/server/mr_util.c,v 1.21 1996/06/02 07:44:46 ghudson Exp $
 *
 *	Copyright (C) 1987 by the Massachusetts Institute of Technology
 *	For copying and distribution information, please see the file
 *	<mit-copyright.h>.
 */

#ifndef lint
static char *rcsid_mr_util_c = "$Header: /afs/sipb.mit.edu/project/sipb-athena/repository/src/moira/server/mr_util.c,v 1.21 1996/06/02 07:44:46 ghudson Exp $";
#endif lint

#include <mit-copyright.h>
#include "mr_server.h"

#include <ctype.h>
#include <sys/types.h>

extern char *whoami;

char *
requote(buf, cp, len)
	char *buf;
	register 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');
		}
	}
	if (len > 1) { *buf++ = '"'; count++; len--; }
	if (len > 3 && count >= 40) {
		*buf++ = '.'; count++; len--;
		*buf++ = '.'; count++; len--;
		*buf++ = '.'; count++; len--;
	}
	if (len > 1) *buf = '\0';
	return buf;
}

log_args(tag, version, argc, argv)
	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);
}
	
void mr_com_err(whoami, code, fmt, pvar)
	char *whoami;
	int code;
	char *fmt;
	caddr_t 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);
}


/* mr_trim_args: passed an argument vector, it will trim any trailing
 * spaces on the args by writing a null into the string.  If an argument
 * appears to be binary instead of ASCII, it will not be trimmed.
 */

int mr_trim_args(argc, argv)
int argc;
char **argv;
{
    register char **arg;
    register unsigned char *p, *lastch;

    for (arg = argv; argc--; arg++) {
	for (lastch = p = (unsigned char *) *arg; *p; p++) {
	    /* If any byte in the string has the high bit set, assume
	     * that it is binary and we do not want to trim it.
	     * Setting p = lastch will cause us not to trim the string
	     * when we break out of this inner loop.
	     */
	    if (*p >= 0x80) {
		p = lastch;
		break;
	    }
	    if (!isspace(*p))
	      lastch = p;
	}
	if (p != lastch) {
	    if (isspace(*lastch))
	      *lastch = 0;
	    else
	      *(++lastch) = 0;
	}
    }
    return(0);
}


/* returns a copy of the argv and all of it's strings */

char **mr_copy_args(argv, argc)
char **argv;
int argc;
{
    char **a;
    int i;

    a = (char **) malloc(argc * sizeof(char *));
    if (a == 0)
      return(a);
    for (i = 0; i < argc; i++)
      a[i] = strsave(argv[i]);
    return(a);
}