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

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

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


Revision 1.1 - (show annotations) (download) (as text)
Sun May 5 15:21:30 2002 UTC (17 years, 2 months ago) by wingman
Branch: MAIN
File MIME type: text/x-csrc
i knew i forgot something :-P

1 /*
2 * tcl.h
3 *
4 * $Id$
5 */
6 /*
7 * Copyright (C) 2000, 2001, 2002 Eggheads Development Team
8 *
9 * This program is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU General Public License
11 * as published by the Free Software Foundation; either version 2
12 * of the License, or (at your option) any later version.
13 *
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
18 *
19 * You should have received a copy of the GNU General Public License
20 * along with this program; if not, write to the Free Software
21 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
22 */
23
24 #ifndef _EGG_TCL_H
25 #define _EGG_TCL_H
26
27 /* For pre Tcl7.5p1 versions */
28 #ifndef HAVE_TCL_FREE
29 # define Tcl_Free(x) free(x)
30 #endif
31
32 /* For pre7.6 Tcl versions */
33 #ifndef TCL_PATCH_LEVEL
34 # define TCL_PATCH_LEVEL Tcl_GetVar(interp, "tcl_patchLevel", TCL_GLOBAL_ONLY)
35 #endif
36
37 void do_tcl(char *, char *);
38 int readtclprog(char *fname);
39 int findanyidx(int);
40
41 #endif /* _EGG_TCL_H */

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23