/* 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 *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) {      while((myaliases=search_node_with_wild(myaliases, left))!=NULL) {        shownode_list(myaliases);      }      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) {    flag=TRUE;    if (mesvar[0]) {      sprintf(result, "#Ok. {%s} is no longer an alias.", ln->left);      tintin_puts2(result, ses);    }    temp=ln;    deletenode_list(myaliases, ln);  }  if (!flag && mesvar[0]) {    sprintf(result, "#No match(es) found for {%s}", left);    tintin_puts2(result, ses);  }    }