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

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

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


Revision 1.22 - (show annotations) (download) (as text)
Tue Feb 25 06:52:19 2003 UTC (16 years, 6 months ago) by stdarg
Branch: MAIN
CVS Tags: HEAD
Changes since 1.21: +1 -1 lines
File MIME type: text/x-csrc
FILE REMOVED
* Well, I think Tcl is finally removed from the core (except for detection/configuration).

1 /*
2 * tclegg.h --
3 *
4 * stuff used by tcl.c and tclhash.c
5 */
6 /*
7 * Copyright (C) 1997 Robey Pointer
8 * Copyright (C) 1999, 2000, 2001, 2002, 2003 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 * $Id: tclegg.h,v 1.21 2003/01/30 08:20:20 wcc Exp $
26 */
27
28 #ifndef _EGG_TCLEGG_H
29 #define _EGG_TCLEGG_H
30
31 #include "lush.h" /* Include this here, since it's needed
32 in this file */
33 /* Used for stub functions:
34 */
35
36 #define BADARGS(nl, nh, example) do { \
37 if ((argc < (nl)) || (argc > (nh))) { \
38 Tcl_AppendResult(irp, "wrong # args: should be \"", \
39 argv[0], (example), "\"", NULL); \
40 return TCL_ERROR; \
41 } \
42 } while (0)
43
44
45 typedef struct _tcl_strings {
46 char *name;
47 char *buf;
48 int length;
49 int flags;
50 } tcl_strings;
51
52 typedef struct _tcl_int {
53 char *name;
54 int *val;
55 int readonly;
56 } tcl_ints;
57
58 typedef struct _tcl_coups {
59 char *name;
60 int *lptr;
61 int *rptr;
62 } tcl_coups;
63
64 typedef struct _tcl_cmds {
65 char *name;
66 Function func;
67 } tcl_cmds;
68
69 void add_tcl_commands(tcl_cmds *);
70 void rem_tcl_commands(tcl_cmds *);
71 void add_tcl_strings(tcl_strings *);
72 void rem_tcl_strings(tcl_strings *);
73 void add_tcl_coups(tcl_coups *);
74 void rem_tcl_coups(tcl_coups *);
75 void add_tcl_ints(tcl_ints *);
76 void rem_tcl_ints(tcl_ints *);
77
78 #endif /* !_EGG_TCLEGG_H */

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23