/[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 by pseudo, Sat Oct 23 11:16:13 2010 UTC revision 1.4 by thommey, Thu Jan 27 01:41:08 2011 UTC
# Line 1181  void check_tcl_cron(struct tm *tm) Line 1181  void check_tcl_cron(struct tm *tm)
1181                   MATCH_CRON | BIND_STACKABLE);                   MATCH_CRON | BIND_STACKABLE);
1182  }  }
1183    
1184  int check_tcl_event(const char *event)  void check_tcl_event(const char *event)
1185    {
1186      Tcl_SetVar(interp, "_event1", (char *) event, 0);
1187      check_tcl_bind(H_event, event, 0, " $_event1",
1188                     MATCH_EXACT | BIND_STACKABLE);
1189    }
1190    
1191    int check_tcl_signal(const char *event)
1192  {  {
1193    int x;    int x;
1194    
1195    Tcl_SetVar(interp, "_event1", (char *) event, 0);    Tcl_SetVar(interp, "_event1", (char *) event, 0);
1196    x = check_tcl_bind(H_event, event, 0, " $_event1",    x = check_tcl_bind(H_event, event, 0, " $_event1",
1197                   MATCH_EXACT | BIND_STACKABLE | BIND_WANTRET);                   MATCH_EXACT | BIND_STACKABLE | BIND_STACKRET);
1198    return (x == BIND_EXEC_LOG);    return (x == BIND_EXEC_LOG);
1199  }  }
1200    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23