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

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

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


Revision 1.13 - (hide annotations) (download) (as text)
Thu Sep 20 19:50:19 2001 UTC (18 years, 1 month ago) by stdarg
Branch: MAIN
Changes since 1.12: +2 -1 lines
File MIME type: text/x-csrc
STill removing tcl from the bind table.
Created first non-tcl bind entry ("event") and bind2/unbind2.

1 guppy 1.8 /*
2 fabian 1.3 * tclhash.h
3 guppy 1.8 *
4 stdarg 1.13 * $Id: tclhash.h,v 1.12 2001/08/26 03:52:32 stdarg Exp $
5 fabian 1.3 */
6 guppy 1.8 /*
7     * Copyright (C) 1997 Robey Pointer
8     * Copyright (C) 1999, 2000, 2001 Eggheads Development Team
9     *
10 fabian 1.3 * 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 guppy 1.8 *
15 fabian 1.3 * 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 guppy 1.8 *
20 fabian 1.3 * 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 segfault 1.1
28    
29 fabian 1.7 #define TC_DELETED 0x0001 /* This command/trigger was deleted. */
30 stdarg 1.12
31     /* Does the callback want their client_data inserted as the first argument? */
32     #define BIND_WANTS_CD 1
33 fabian 1.7
34 stdarg 1.9 /* Will replace tcl_cmd_t */
35 stdarg 1.10 /* This holds the final information for a function listening on a bind
36     table. */
37 stdarg 1.9 typedef struct bind_entry_b {
38     struct bind_entry_b *next;
39     struct flag_record user_flags;
40     char *function_name;
41     Function callback;
42     void *client_data;
43     int hits;
44     int bind_flags;
45     } bind_entry_t;
46    
47 fabian 1.7 typedef struct tcl_cmd_b {
48     struct tcl_cmd_b *next;
49    
50     struct flag_record flags;
51     char *func_name; /* Proc name. */
52     int hits; /* Number of times this proc
53     was triggered. */
54     u_8bit_t attributes; /* Flags for this entry. TC_* */
55 segfault 1.1 } tcl_cmd_t;
56    
57 fabian 1.7
58     #define TBM_DELETED 0x0001 /* This mask was deleted. */
59    
60 stdarg 1.9 /* Will replace tcl_bind_mask_t */
61 stdarg 1.10 /* This is the list of bind masks in a given table.
62     For instance, in the "msg" table you might have "pass", "op",
63     and "invite". */
64 stdarg 1.9 typedef struct bind_chain_b {
65 stdarg 1.11 struct bind_chain_b *next;
66 stdarg 1.9 bind_entry_t *entries;
67     char *mask;
68     int flags;
69     } bind_chain_t;
70    
71 fabian 1.7 typedef struct tcl_bind_mask_b {
72     struct tcl_bind_mask_b *next;
73    
74     tcl_cmd_t *first; /* List of commands registered
75     for this bind. */
76     char *mask;
77     u_8bit_t flags; /* Flags for this entry. TBM_* */
78     } tcl_bind_mask_t;
79    
80    
81     #define HT_STACKABLE 0x0001 /* Triggers in this bind list may be
82     stacked. */
83     #define HT_DELETED 0x0002 /* This bind list was already deleted.
84     Do not use it anymore. */
85 stdarg 1.9
86     /* Will replace tcl_bind_list_b */
87 stdarg 1.10 /* This is the highest-level structure. It's like the "msg" table
88     or the "pubm" table. */
89 stdarg 1.9 typedef struct bind_table_b {
90 stdarg 1.11 struct bind_table_b *next;
91 stdarg 1.9 bind_chain_t *chains;
92     char *name;
93 stdarg 1.13 char *syntax;
94 stdarg 1.9 int flags;
95     } bind_table_t;
96 fabian 1.7
97     typedef struct tcl_bind_list_b {
98     struct tcl_bind_list_b *next;
99    
100     tcl_bind_mask_t *first; /* Pointer to registered binds
101     for this list. */
102     char name[5]; /* Name of the bind. */
103     u_8bit_t flags; /* Flags for this element. HT_* */
104     Function func; /* Function used as the Tcl
105     calling interface for procs
106     actually representing C
107     functions. */
108     } tcl_bind_list_t, *p_tcl_bind_list;
109 segfault 1.1
110 fabian 1.5
111 segfault 1.1 #ifndef MAKING_MODS
112 fabian 1.5
113 fabian 1.7 inline void garbage_collect_tclhash(void);
114    
115     void init_bind(void);
116     void kill_bind(void);
117     int expmem_tclhash(void);
118    
119     tcl_bind_list_t *add_bind_table(const char *nme, int flg, Function func);
120     void del_bind_table(tcl_bind_list_t *tl_which);
121    
122     tcl_bind_list_t *find_bind_table(const char *nme);
123    
124     int check_tcl_bind(tcl_bind_list_t *, const char *, struct flag_record *, const char *, int);
125     int check_tcl_dcc(const char *, int, const char *);
126     void check_tcl_chjn(const char *, const char *, int, char, int, const char *);
127     void check_tcl_chpt(const char *, const char *, int, int);
128     void check_tcl_bot(const char *, const char *, const char *);
129     void check_tcl_link(const char *, const char *);
130     void check_tcl_disc(const char *);
131     const char *check_tcl_filt(int, const char *);
132     int check_tcl_note(const char *, const char *, const char *);
133     void check_tcl_listen(const char *, int);
134 segfault 1.1 void check_tcl_time(struct tm *);
135     void tell_binds(int, char *);
136 fabian 1.7 void check_tcl_nkch(const char *, const char *);
137     void check_tcl_away(const char *, int, const char *);
138     void check_tcl_chatactbcst(const char *, int, const char *, tcl_bind_list_t *);
139     void check_tcl_event(const char *);
140    
141     #define check_tcl_chat(a, b, c) check_tcl_chatactbcst(a ,b, c, H_chat)
142     #define check_tcl_act(a, b, c) check_tcl_chatactbcst(a, b, c, H_act)
143     #define check_tcl_bcst(a, b, c) check_tcl_chatactbcst(a, b, c, H_bcst)
144     void check_tcl_chonof(char *, int, tcl_bind_list_t *);
145    
146     #define check_tcl_chon(a, b) check_tcl_chonof(a, b, H_chon)
147     #define check_tcl_chof(a, b) check_tcl_chonof(a, b, H_chof)
148     void check_tcl_loadunld(const char *, tcl_bind_list_t *);
149 segfault 1.1
150 fabian 1.7 #define check_tcl_load(a) check_tcl_loadunld(a, H_load)
151     #define check_tcl_unld(a) check_tcl_loadunld(a, H_unld)
152 segfault 1.1
153 fabian 1.7 void rem_builtins(tcl_bind_list_t *, cmd_t *);
154     void add_builtins(tcl_bind_list_t *, cmd_t *);
155 segfault 1.1
156     int check_validity(char *, Function);
157     extern p_tcl_bind_list H_chat, H_act, H_bcst, H_chon, H_chof;
158     extern p_tcl_bind_list H_load, H_unld, H_dcc, H_bot, H_link;
159     extern p_tcl_bind_list H_away, H_nkch, H_filt, H_disc, H_event;
160    
161     #endif
162    
163 fabian 1.5
164 fabian 1.6 #define CHECKVALIDITY(a) do { \
165 fabian 1.5 if (!check_validity(argv[0], (a))) { \
166     Tcl_AppendResult(irp, "bad builtin command call!", \
167     NULL); \
168     return TCL_ERROR; \
169 fabian 1.6 } \
170     } while (0)
171 fabian 1.3
172     #endif /* _EGG_TCLHASH_H */

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23