/[cvs]/eggdrop1.8/src/tclhash.c
ViewVC logotype

Diff of /eggdrop1.8/src/tclhash.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3.2.5 by thommey, Sat Jun 16 15:59:49 2012 UTC revision 1.6 by thommey, Sat Jun 16 16:04:02 2012 UTC
# Line 73  static inline void *n_malloc_null(int si Line 73  static inline void *n_malloc_null(int si
73    void *ptr = nmalloc(size);    void *ptr = nmalloc(size);
74  #endif  #endif
75    
76    memset(ptr, 0, size);    egg_memset(ptr, 0, size);
77    return ptr;    return ptr;
78  }  }
79    
# Line 259  void kill_bind(void) Line 259  void kill_bind(void)
259      tl_next = tl->next;      tl_next = tl->next;
260    
261      if (!(tl->flags |= HT_DELETED))      if (!(tl->flags |= HT_DELETED))
262        putlog(LOG_DEBUG, "*", _("De-Allocated bind table %s"), tl->name);        putlog(LOG_DEBUG, "*", "De-Allocated bind table %s", tl->name);
263      tcl_bind_list_delete(tl);      tcl_bind_list_delete(tl);
264    }    }
265    H_log = NULL;    H_log = NULL;
# Line 298  tcl_bind_list_t *add_bind_table(const ch Line 298  tcl_bind_list_t *add_bind_table(const ch
298      bind_table_list = tl;      bind_table_list = tl;
299    }    }
300    
301    putlog(LOG_DEBUG, "*", _("Allocated bind table %s (flags %d)"), nme, flg);    putlog(LOG_DEBUG, "*", "Allocated bind table %s (flags %d)", nme, flg);
302    return tl;    return tl;
303  }  }
304    
# Line 311  void del_bind_table(tcl_bind_list_t *tl_ Line 311  void del_bind_table(tcl_bind_list_t *tl_
311        continue;        continue;
312      if (tl == tl_which) {      if (tl == tl_which) {
313        tl->flags |= HT_DELETED;        tl->flags |= HT_DELETED;
314        putlog(LOG_DEBUG, "*", _("De-Allocated bind table %s"), tl->name);        putlog(LOG_DEBUG, "*", "De-Allocated bind table %s", tl->name);
315        return;        return;
316      }      }
317    }    }
318    putlog(LOG_DEBUG, "*", _("??? Tried to delete not listed bind table ???"));    putlog(LOG_DEBUG, "*", "??? Tried to delete not listed bind table ???");
319  }  }
320    
321  tcl_bind_list_t *find_bind_table(const char *nme)  tcl_bind_list_t *find_bind_table(const char *nme)
# Line 943  int check_tcl_dcc(const char *cmd, int i Line 943  int check_tcl_dcc(const char *cmd, int i
943    x = check_tcl_bind(H_dcc, cmd, &fr, " $_dcc1 $_dcc2 $_dcc3",    x = check_tcl_bind(H_dcc, cmd, &fr, " $_dcc1 $_dcc2 $_dcc3",
944                       MATCH_PARTIAL | BIND_USE_ATTR | BIND_HAS_BUILTINS);                       MATCH_PARTIAL | BIND_USE_ATTR | BIND_HAS_BUILTINS);
945    if (x == BIND_AMBIGUOUS) {    if (x == BIND_AMBIGUOUS) {
946      dprintf(idx, _("Ambiguous command.\n"));      dprintf(idx, MISC_AMBIGUOUS);
947      return 0;      return 0;
948    }    }
949    if (x == BIND_NOMATCH) {    if (x == BIND_NOMATCH) {
950      dprintf(idx, _("What?  You need '.help'\n"));      dprintf(idx, MISC_NOSUCHCMD);
951      return 0;      return 0;
952    }    }
953    
# Line 1259  void tell_binds(int idx, char *par) Line 1259  void tell_binds(int idx, char *par)
1259    if (tl_kind == NULL && name && name[0] && egg_strcasecmp(name, "all"))    if (tl_kind == NULL && name && name[0] && egg_strcasecmp(name, "all"))
1260      patmatc = 1;      patmatc = 1;
1261    
1262    dprintf(idx, _("Command bindings:\n"));    dprintf(idx, MISC_CMDBINDS);
1263    dprintf(idx, _("  TYPE FLAGS    COMMAND              HITS BINDING (TCL)\n"));    dprintf(idx, "  TYPE FLAGS    COMMAND              HITS BINDING (TCL)\n");
1264    
1265    for (tl = tl_kind ? tl_kind : bind_table_list; tl;    for (tl = tl_kind ? tl_kind : bind_table_list; tl;
1266         tl = tl_kind ? 0 : tl->next) {         tl = tl_kind ? 0 : tl->next) {
# Line 1296  void tell_binds(int idx, char *par) Line 1296  void tell_binds(int idx, char *par)
1296    }    }
1297    if (!fnd) {    if (!fnd) {
1298      if (patmatc)      if (patmatc)
1299        dprintf(idx, _("No command bindings found that match %s\n"), name);        dprintf(idx, "No command bindings found that match %s\n", name);
1300      else if (tl_kind)      else if (tl_kind)
1301        dprintf(idx, _("No command bindings for type: %s.\n"), name);        dprintf(idx, "No command bindings for type: %s.\n", name);
1302      else      else
1303        dprintf(idx, _("No command bindings exist.\n"));        dprintf(idx, "No command bindings exist.\n");
1304    }    }
1305  }  }
1306    

Legend:
Removed from v.1.3.2.5  
changed lines
  Added in v.1.6

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23