/*
   hash.c -- handles:
   (non-Tcl) procedure lookups for msg/dcc/file commands
   (Tcl) binding internal procedures to msg/dcc/file commands
 
   dprintf'ized, 15nov95
 */
/*
   This file is part of the eggdrop source code
   copyright (c) 1997 Robey Pointer
   and is distributed according to the GNU general public license.
   For full details, read the top of 'main.c' or the file called
   COPYING that was distributed with this code.
 */
 
#if HAVE_CONFIG_H
#include <config.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include "eggdrop.h"
#include "proto.h"
#include "cmdt.h"
#include "hash.h"
#include "tclegg.h"
 
extern struct dcc_t dcc[];
extern int dcc_total;
extern int serv;
extern Tcl_HashTable H_msg, H_dcc, H_fil;
extern Tcl_Interp *interp;
extern int hashtot;
 
 
/* new hashing function */
void gotcmd PROTO4(char *, nick, char *, from, char *, msg, int, ignoring)
{
   char code[512], hand[41], s[121], total[512];
   sprintf(s, "%s!%s", nick, from);
   strcpy(total, msg);
   rmspace(msg);
   nsplit(code, msg);
   get_handle_by_host(hand, s);
   rmspace(msg);
#ifndef TRIGGER_BINDS_ON_IGNORE
   if (!ignoring)
#endif
      check_tcl_msgm(code, nick, from, hand, msg);
   if (!ignoring)
      if (check_tcl_msg(code, nick, from, hand, msg))
         return;
   if (ignoring)
      return;
   putlog(LOG_MSGS, "*", "[%s!%s] %s", nick, from, total);
}
 
/* for dcc commands -- hash the function */
int got_dcc_cmd PROTO2(int, idx, char *, msg)
{
   char total[512], code[512];
   strcpy(total, msg);
   rmspace(msg);
   nsplit(code, msg);
   rmspace(msg);
   return check_tcl_dcc(code, idx, msg);
}
 
/* hash function for tandem bot commands */
void dcc_bot PROTO2(int, idx, char *, msg)
{
   char total[512], code[512];
   int i, f;
   strcpy(total, msg);
   nsplit(code, msg);
   f = 0;
   i = 0;
   while ((C_bot[i].name != NULL) && (!f)) {
      if (strcasecmp(code, C_bot[i].name) == 0) {
         /* found a match */
         (C_bot[i].func) (idx, msg);
         f = 1;
      }
      i++;
   }
}
 
/* bring the default msg/dcc/fil commands into the Tcl interpreter */
int add_builtins PROTO2(int, table, cmd_t *, cc)
{
   int i, flags, new;
   Tcl_HashTable *ht = NULL;
   Tcl_HashEntry *he;
   tcl_cmd_t *tt;
   char s[2], *p;
 
   switch (table) {
   case BUILTIN_DCC:
      ht = &H_dcc;
      p = "*dcc:";
      break;
   case BUILTIN_MSG:
      ht = &H_msg;
      p = "*msg:";
      break;
   case BUILTIN_FILES:
      ht = &H_fil;
      p = "*fil:";
      break;
   default:
      return -1;
   }
   i = 0;
   s[1] = 0;
   while (cc[i].name != NULL) {
      s[0] = cc[i].flag;
      flags = str2flags(s);
      tt = (tcl_cmd_t *) tclcmd_alloc(strlen(cc[i].name) + 6);
      tt->flags_needed = flags;
      tt->next = NULL;
      strcpy(tt->func_name, p);
      strcat(tt->func_name, cc[i].name);
      he = Tcl_CreateHashEntry(ht, cc[i].name, &new);
      if (!new) {
         /* append old entry */
         tcl_cmd_t *ttx = (tcl_cmd_t *) Tcl_GetHashValue(he);
         Tcl_DeleteHashEntry(he);
         tt->next = ttx;
      }
      Tcl_SetHashValue(he, tt);
      /* create command entry in Tcl interpreter */
      Tcl_CreateCommand(interp, tt->func_name, tcl_builtin,
                        (ClientData) cc[i].func, NULL);
      i++;
   }
   return i;
}
 
/* bring the default msg/dcc/fil commands into the Tcl interpreter */
int rem_builtins PROTO2(int, table, cmd_t *, cc)  
{
   int i;
   Tcl_HashTable *ht = NULL;
   Tcl_HashEntry *he;
   char s[200], *p;
 
   switch (table) {
   case BUILTIN_DCC:
      ht = &H_dcc;
      p = "*dcc:";
      break;
   case BUILTIN_MSG:
      ht = &H_msg;
      p = "*msg:";
      break;
   case BUILTIN_FILES:
      ht = &H_fil;
      p = "*fil:";
      break;
   default:
      return -1;
   }
   i = 0;
   while (cc[i].name != NULL) {
      strcpy(s, p);
      strcat(s, cc[i].name);
      he = Tcl_FindHashEntry(ht, cc[i].name);
      if (he != NULL) {
         tcl_cmd_t *ttx = (tcl_cmd_t *) Tcl_GetHashValue(he), *tt = NULL;
         while (ttx) {
            if (strcmp(ttx->func_name, s)) {
               tt = ttx;
               ttx = ttx->next;
            } else
               break;
         }
         if (ttx) {
            if (tt) {
               tt->next = ttx->next;
            } else if (ttx->next) {
               Tcl_SetHashValue(he, ttx->next);
            } else {
               Tcl_DeleteHashEntry(he);
            }
            tclcmd_free(ttx);
            Tcl_DeleteCommand(interp, s);
         }
      }
      i++;
   }
   return i;
}
 
void init_builtins()
{
   add_builtins(BUILTIN_DCC, C_dcc);
#ifndef NO_IRC
   add_builtins(BUILTIN_MSG, C_msg);
#endif
#ifndef NO_FILE_SYSTEM
#ifndef MODULES
   add_builtins(BUILTIN_FILES, C_file);
#endif
#endif
}