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

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

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


Revision 1.1 - (hide 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 wingman 1.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