/[cvs]/eggdrop1.9/src/tclhash.h
ViewVC logotype

Contents of /eggdrop1.9/src/tclhash.h

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


Revision 1.23 - (show annotations) (download) (as text)
Sat Oct 20 21:57:15 2001 UTC (18 years ago) by stdarg
Branch: MAIN
Changes since 1.22: +5 -6 lines
File MIME type: text/x-csrc
* Added Oskar Liljeblad's patch to convert H_chat, H_act, and H_bcst.
* Experimented with changing around the chat bind so it's called before text is sent, and is breakable.

1 /*
2 * tclhash.h
3 *
4 * $Id: tclhash.h,v 1.22 2001/10/20 10:22:13 stdarg Exp $
5 */
6 /*
7 * Copyright (C) 1997 Robey Pointer
8 * Copyright (C) 1999, 2000, 2001 Eggheads Development Team
9 *
10 * This program is free software; you can redistribute it and/or
11 * modify it under the terms of the GNU General Public License
12 * as published by the Free Software Foundation; either version 2
13 * of the License, or (at your option) any later version.
14 *
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU General Public License for more details.
19 *
20 * You should have received a copy of the GNU General Public License
21 * along with this program; if not, write to the Free Software
22 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
23 */
24
25 #ifndef _EGG_TCLHASH_H
26 #define _EGG_TCLHASH_H
27
28
29 #define TC_DELETED 0x0001 /* This command/trigger was deleted. */
30
31 /* Flags for bind entries */
32 /* Does the callback want their client_data inserted as the first argument? */
33 #define BIND_WANTS_CD 1
34
35 /* Flags for bind tables */
36 #define BIND_STRICT_ATTR 0x80
37 #define BIND_BREAKABLE 0x100
38
39 /* Flags for return values from bind callbacks */
40 #define BIND_RET_LOG 1
41 #define BIND_RET_BREAK 2
42
43 /* Callback clientdata for a tcl bind */
44 typedef struct tcl_cmd_cdata_b {
45 Tcl_Interp *irp;
46 char *cmd;
47 char *syntax;
48 } tcl_cmd_cdata;
49
50 /* Will replace tcl_cmd_t */
51 /* This holds the final information for a function listening on a bind
52 table. */
53 typedef struct bind_entry_b {
54 struct bind_entry_b *next;
55 struct flag_record user_flags;
56 char *function_name;
57 Function callback;
58 void *client_data;
59 int hits;
60 int bind_flags;
61 } bind_entry_t;
62
63 typedef struct tcl_cmd_b {
64 struct tcl_cmd_b *next;
65
66 struct flag_record flags;
67 char *func_name; /* Proc name. */
68 int hits; /* Number of times this proc
69 was triggered. */
70 u_8bit_t attributes; /* Flags for this entry. TC_* */
71 } tcl_cmd_t;
72
73
74 #define TBM_DELETED 0x0001 /* This mask was deleted. */
75
76 /* Will replace tcl_bind_mask_t */
77 /* This is the list of bind masks in a given table.
78 For instance, in the "msg" table you might have "pass", "op",
79 and "invite". */
80 typedef struct bind_chain_b {
81 struct bind_chain_b *next;
82 bind_entry_t *entries;
83 char *mask;
84 int flags;
85 } bind_chain_t;
86
87 typedef struct tcl_bind_mask_b {
88 struct tcl_bind_mask_b *next;
89
90 tcl_cmd_t *first; /* List of commands registered
91 for this bind. */
92 char *mask;
93 u_8bit_t flags; /* Flags for this entry. TBM_* */
94 } tcl_bind_mask_t;
95
96
97 #define HT_STACKABLE 0x0001 /* Triggers in this bind list may be
98 stacked. */
99 #define HT_DELETED 0x0002 /* This bind list was already deleted.
100 Do not use it anymore. */
101
102 /* Will replace tcl_bind_list_b */
103 /* This is the highest-level structure. It's like the "msg" table
104 or the "pubm" table. */
105 typedef struct bind_table_b {
106 struct bind_table_b *next;
107 bind_chain_t *chains;
108 char *name;
109 char *syntax;
110 int nargs;
111 int match_type;
112 int flags;
113 } bind_table_t;
114
115 typedef struct tcl_bind_list_b {
116 struct tcl_bind_list_b *next;
117
118 tcl_bind_mask_t *first; /* Pointer to registered binds
119 for this list. */
120 char name[5]; /* Name of the bind. */
121 u_8bit_t flags; /* Flags for this element. HT_* */
122 Function func; /* Function used as the Tcl
123 calling interface for procs
124 actually representing C
125 functions. */
126 } tcl_bind_list_t, *p_tcl_bind_list;
127
128
129 #ifndef MAKING_MODS
130
131 inline void garbage_collect_tclhash(void);
132
133 void init_bind(void);
134 void init_bind2(void);
135 void kill_bind(void);
136 void kill_bind2(void);
137
138 tcl_bind_list_t *add_bind_table(const char *nme, int flg, Function func);
139 void del_bind_table(tcl_bind_list_t *tl_which);
140
141 tcl_bind_list_t *find_bind_table(const char *nme);
142
143 int check_tcl_bind(tcl_bind_list_t *, const char *, struct flag_record *, const char *, int);
144 void check_tcl_dcc(const char *, int, const char *);
145 void check_tcl_chjn(const char *, const char *, int, char, int, const char *);
146 void check_tcl_chpt(const char *, const char *, int, int);
147 void check_tcl_bot(const char *, const char *, const char *);
148 void check_tcl_link(const char *, const char *);
149 void check_tcl_disc(const char *);
150 const char *check_tcl_filt(int, const char *);
151 int check_tcl_note(const char *, const char *, const char *);
152 void check_tcl_listen(const char *, int);
153 void check_tcl_time(struct tm *);
154 void tell_binds(int, char *);
155 void check_tcl_nkch(const char *, const char *);
156 void check_tcl_away(const char *, int, const char *);
157 void check_tcl_event(const char *);
158
159 int check_tcl_chat(struct userrec *, int, const char *);
160 void check_tcl_act(const char *, int, const char *);
161 void check_tcl_bcst(const char *, int, const char *);
162 void check_tcl_chonof(char *, int, tcl_bind_list_t *);
163
164 #define check_tcl_chon(a, b) check_tcl_chonof(a, b, H_chon)
165 #define check_tcl_chof(a, b) check_tcl_chonof(a, b, H_chof)
166 void check_tcl_loadunld(const char *, tcl_bind_list_t *);
167
168 void rem_builtins(tcl_bind_list_t *, cmd_t *);
169 void add_builtins(tcl_bind_list_t *, cmd_t *);
170
171 int check_validity(char *, Function);
172 extern p_tcl_bind_list H_chon, H_chof;
173 extern p_tcl_bind_list H_bot, H_link;
174 extern p_tcl_bind_list H_nkch, H_filt, H_disc;
175
176 int check_bind(bind_table_t *table, const char *match, struct flag_record *_flags, ...);
177
178 bind_table_t *add_bind_table2(const char *name, int nargs, const char *syntax, int match_type, int flags);
179
180 void del_bind_table2(bind_table_t *table);
181
182 bind_table_t *find_bind_table2(const char *name);
183
184 int add_bind_entry(bind_table_t *table, const char *flags, const char *mask, const char *function_name, int bind_flags, Function callback, void *client_data);
185
186 int del_bind_entry(bind_table_t *table, const char *flags, const char *mask, const char *function_name);
187
188 void add_builtins2(bind_table_t *table, cmd_t *cmds);
189
190 void rem_builtins2(bind_table_t *table, cmd_t *cmds);
191
192 #endif
193
194
195 #define CHECKVALIDITY(a) do { \
196 if (!check_validity(argv[0], (a))) { \
197 Tcl_AppendResult(irp, "bad builtin command call!", \
198 NULL); \
199 return TCL_ERROR; \
200 } \
201 } while (0)
202
203 #endif /* _EGG_TCLHASH_H */

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23