#include <string.h>
#include "daemon.h"
/*
 * typedef struct daemoncmd { char *cmdname; char *usage; int argc; int
 * (*main) ARG((FILE*,FILE*,int,char**,char*)); } daemoncmd_t;
 * 
 */

void deargify   ARG((char ***));
static daemoncmd_t *dcmdp = NULL;
static char    *startupmessage = NULL;
static int      startupcode = 100;
static FILE    *DIN, *DOUT, *DIO;
typedef int     (*F) ();

void 
installdaemon(cmds, code, startupmsg)
    daemoncmd_t    *cmds;
    int             code;
    char           *startupmsg;
{
    dcmdp = cmds;
    startupcode = code;
    startupmessage = startupmsg;
}

daemoncmd_t    *
searchcmd(cmd)
    char           *cmd;
{
    daemoncmd_t    *p;
    for (p = dcmdp; p->name != NULL; p++) {
#ifdef DEBUGCMD
	printf("searching name %s for cmd %s\n", p->name, cmd);
#endif
	if (!strncasecmp(p->name, cmd, 1024))
	    return p;
    }
    return NULL;
}

#if 0
int 
daemon(dfd)
    int             dfd;
{
    static char     BUF[1024];
    /* hash_init(); */
    if (dfd > 0) {
	DIO = fdopen(dfd, "rw");
	DIN = fdopen(dfd, "r");
	DOUT = fdopen(dfd, "w");
	if (DIO == NULL || DIN == NULL || DOUT == NULL) {
	    perror("fdopen");
	    return -1;
	}
    }
    if (startupmessage) {
	fprintf(DOUT, "%d %s\n", startupcode, startupmessage);
	fflush(DOUT);
    }
    while (fgets(BUF, 1024, DIN) != NULL) {
	int             i;
	int             (*Main) ();
	daemoncmd_t    *dp;
	argv_t          Argv;

	char           *p = (char *)strchr(BUF, '\r');
	if (p == NULL)
	    p = (char *)strchr(BUF, '\n');
	if (p == NULL)
	    continue;
	*p = '\0';
	if (p == BUF)
	    continue;

	Argv.argc = 0, Argv.argv = NULL, Argv.inputline = BUF;
	Argv.in = DIN, Argv.out = DOUT;
	printf("command entered: %s\n", BUF);
#ifdef DEBUGSERVER
	fprintf(DOUT, "BUF in client %s\n", BUF);
	fprintf(stdout, "BUF in server %s\n", BUF);
	fflush(DOUT);
#endif
	Argv.argc = argify(BUF, &Argv.argv);
#ifdef DEBUGSERVER
	fprintf(stdout, "argc %d argv ", Argv.argc);
	for (i = 0; i < Argv.argc; ++i)
	    fprintf(stdout, "%s ", Argv.argv[i]);
	fprintf(stdout, "\n");
#endif
	dp = searchcmd(Argv.argv[0]);
	Argv.dc = dp;
	if (dp) {
#ifdef DEBUGSERVER
	    printf("find cmd %s by %s\n", dp->name, dp->usage);
#endif
	    if (Argv.argc < dp->argc) {
		fprintf(DOUT, "%d Usage: %s\n", dp->errorcode, dp->usage);
		fflush(DOUT);
		goto cont;
	    }
	    if (dp->argno != 0 && Argv.argc > dp->argno) {
		fprintf(DOUT, "%d Usage: %s\n", dp->errorcode, dp->usage);
		fflush(DOUT);
		goto cont;
	    }
	    Main = dp->main;
	    if (Main) {
		fflush(stdout);
		(*Main) (&Argv);
	    }
	} else {
	    fprintf(DOUT, "99 command %s not available\n", Argv.argv[0]);
	    fflush(DOUT);
	}
cont:
	deargify(&Argv.argv);
    }
    /* hash_reclaim(); */
}
#endif

#define MAX_ARG 32
#define MAX_ARG_SIZE 16384

int 
argify(line, argvp)
    char           *line, ***argvp;
{
    static char    *argvbuffer[MAX_ARG + 2];
    char          **argv = argvbuffer;
    int             i;
    static char     argifybuffer[MAX_ARG_SIZE];
    char           *p;
    while (strchr("\t\n\r ", *line))
	line++;
    i = strlen(line);
    /* p=(char*) mymalloc(i+1); */
    p = argifybuffer;
    strncpy(p, line, sizeof argifybuffer);
    for (*argvp = argv, i = 0; *p && i < MAX_ARG;) {
	for (*argv++ = p; *p && !strchr("\t\r\n ", *p); p++);
	if (*p == '\0')
	    break;
	for (*p++ = '\0'; strchr("\t\r\n ", *p) && *p; p++);
    }
    *argv = NULL;
    return argv - *argvp;
}

void 
deargify(argv)
    char         ***argv;
{
    return;
    /*
     * if (*argv != NULL) { if (*argv[0] != NULL){ free(*argv[0]); argv[0] =
     * NULL; } free(*argv); argv = NULL; }
     */
}

int 
daemonprintf(format)
    char           *format;
{
    fprintf(DOUT, format);
    fflush(DOUT);
}

int 
daemonputs(output)
    char           *output;
{
    fputs(output, DOUT);
    fflush(DOUT);
}