/*
 * This module implements the command dispatch for fc-loadtool
 */

#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include <strings.h>
#include <stdlib.h>

extern int cmd_baud();
extern int cmd_crc32();
extern int cmd_dieid();
extern int cmd_dump2bin();
extern int cmd_dump2srec();
extern int cmd_exec();
extern int cmd_exit();
extern int cmd_flash();
extern int cmd_help();
extern int loadtool_cmd_passthru();

static struct cmdtab {
	char *cmd;
	int minargs;
	int maxargs;
	int (*func)();
} cmdtab[] = {
	{"abbr", 2, 2, loadtool_cmd_passthru},
	{"abbw", 3, 3, loadtool_cmd_passthru},
	{"baud", 0, 1, cmd_baud},
	{"crc32", 2, 2, cmd_crc32},
	{"dieid", 0, 1, cmd_dieid},
	{"dump", 2, 2, loadtool_cmd_passthru},
	{"dump2bin", 3, 3, cmd_dump2bin},
	{"dump2srec", 3, 3, cmd_dump2srec},
	{"exec", 1, 1, cmd_exec},
	{"exit", 0, 1, cmd_exit},
	{"flash", 1, 5, cmd_flash},
	{"flash2", 1, 5, cmd_flash},
	{"help", 0, 2, cmd_help},
	{"quit", 0, 1, cmd_exit},
	{"r8", 1, 1, loadtool_cmd_passthru},
	{"r16", 1, 1, loadtool_cmd_passthru},
	{"r32", 1, 1, loadtool_cmd_passthru},
	{"w8", 2, 2, loadtool_cmd_passthru},
	{"w16", 2, 2, loadtool_cmd_passthru},
	{"w32", 2, 2, loadtool_cmd_passthru},
	{0, 0, 0, 0}
};

loadtool_dispatch_cmd(cmd, is_script)
	char *cmd;
{
	char *argv[10];
	char *cp, **ap;
	struct cmdtab *tp;

	for (cp = cmd; isspace(*cp); cp++)
		;
	if (!*cp || *cp == '#')
		return(0);
	if (is_script)
		printf("Script command: %s\n", cp);
	argv[0] = cp;
	while (*cp && !isspace(*cp))
		cp++;
	if (*cp)
		*cp++ = '\0';
	for (tp = cmdtab; tp->cmd; tp++)
		if (!strcmp(tp->cmd, argv[0]))
			break;
	if (!tp->func) {
		fprintf(stderr, "error: no such command\n");
		return(-1);
	}
	for (ap = argv + 1; ; ) {
		while (isspace(*cp))
			cp++;
		if (!*cp || *cp == '#')
			break;
		if (ap - argv - 1 >= tp->maxargs) {
			fprintf(stderr, "error: too many arguments\n");
			return(-1);
		}
		*ap++ = cp;
		while (*cp && !isspace(*cp))
			cp++;
		if (*cp)
			*cp++ = '\0';
	}
	if (ap - argv - 1 < tp->minargs) {
		fprintf(stderr, "error: too few arguments\n");
		return(-1);
	}
	*ap = 0;
	return tp->func(ap - argv, argv);
}