/* Autoconf patching by David Hedbor, neotron@lysator.liu.se */
/*********************************************************************/
/* file: alias.c - funtions related the the alias command            */
/*                             TINTIN III                            */
/*          (T)he K(I)cki(N) (T)ickin D(I)kumud Clie(N)t             */
/*                     coded by peter unold 1992                     */
/*********************************************************************/
#ifdef HAVE_STRING_H
#include <string.h>
#else
#ifdef HAVE_STRINGS_H
#include <strings.h>
#endif
#endif

#include "tintin.h"

extern char *get_arg_in_braces();
extern void show_aliases();
extern void prompt();
extern struct listnode *search_node_with_wild();
extern struct listnode *searchnode_list();
extern struct listnode *deletenode_list();

extern struct listnode *common_aliases;
extern char vars[10][BUFFER_SIZE];	/* the %0, %1, %2,....%9 variables */
extern int alnum;
extern int mesvar[6];
/**********************/
/* the #alias command */
/**********************/
void alias_command(arg, ses)
     char *arg;
     struct session *ses;
{
	char left[BUFFER_SIZE], right[BUFFER_SIZE], arg2[BUFFER_SIZE];
	struct listnode *myaliases, *ln;

	myaliases = (ses) ? ses->aliases : common_aliases;
	arg = get_arg_in_braces(arg, left, 0);
	arg = get_arg_in_braces(arg, right, 1);

	if (!*left) {
		tintin_puts2("#Defined aliases:", ses);
		show_list(myaliases);
		prompt(ses);
	}

	else if (*left && !*right) {
        if ((ln = search_node_with_wild(myaliases, left)) != NULL) {
            do {
                shownode_list(ln);
            } while ((ln = search_node_with_wild(ln->next, left)));
            prompt(ses);
        }
		else if (mesvar[0]) {
			sprintf(right, "#No match(es) found for {%s}", left);
			tintin_puts2(right, ses);
		}
	}

	else {
		if ((ln = searchnode_list(myaliases, left)) != NULL)
			deletenode_list(myaliases, ln);
		insertnode_list(myaliases, left, right, "0", ALPHA);
		if (mesvar[0]) {
			sprintf(arg2, "#Ok. {%s} aliases {%s}.", left, right);
			tintin_puts2(arg2, ses);
		}
		alnum++;
	}
}

/************************/
/* the #unalias command */
/************************/
void unalias_command(arg, ses)
     char *arg;
     struct session *ses;
{
	char left[BUFFER_SIZE], result[BUFFER_SIZE];
	struct listnode *myaliases, *ln, *temp;
	int flag;

	flag = FALSE;
	myaliases = (ses) ? ses->aliases : common_aliases;
	arg = get_arg_in_braces(arg, left, 1);
	temp = myaliases;
	while ((ln = search_node_with_wild(temp, left)) != NULL) {
		if (mesvar[0]) {
			sprintf(result, "#Ok. {%s} is no longer an alias.", ln->left);
			tintin_puts2(result, ses);
		}
		/* @@@changed -- perry (ln is deleted and free'd by deletenode!!!)
		   deletenode_list(myaliases, ln);
		   temp = ln;
		 */
		temp = deletenode_list(myaliases, ln);
		flag = TRUE;
	}
	if (!flag && mesvar[0]) {
		sprintf(result, "#No match(es) found for {%s}", left);
		tintin_puts2(result, ses);
	}
}