BRL-CAD
tclcad_private.h
Go to the documentation of this file.
1 /* T C L C A D _ P R I V A T E . H
2  * BRL-CAD
3  *
4  * Copyright (c) 2012-2014 United States Government as represented by
5  * the U.S. Army Research Laboratory.
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public License
9  * version 2.1 as published by the Free Software Foundation.
10  *
11  * This library is distributed in the hope that it will be useful, but
12  * WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this file; see the file named COPYING for more
18  * information.
19  */
20 /** @file tclcad_private.h
21  *
22  * Private header for libtclcad.
23  *
24  */
25 
26 #ifndef LIBTCLCAD_TCLCAD_PRIVATE_H
27 #define LIBTCLCAD_TCLCAD_PRIVATE_H
28 
29 #include "common.h"
30 
31 #include <tcl.h>
32 
34 
35 /**
36  * function returns truthfully whether the library has been
37  * initialized. calling this routine with setit true considers the
38  * library henceforth initialized. there is presently no way to unset
39  * or reset initialization.
40  */
41 extern int library_initialized(int setit);
42 
43 
44 /**
45  * Evaluates a TCL command, escaping the list of arguments.
46  */
47 extern int tclcad_eval(Tcl_Interp *interp, const char *command, size_t num_args, const char * const *args);
48 
49 
50 /**
51  * Evaluates a TCL command, escaping the list of arguments and preserving the TCL result object.
52  */
53 extern int tclcad_eval_noresult(Tcl_Interp *interp, const char *command, size_t num_args, const char * const *args);
54 
55 
57 
58 #endif /* LIBTCLCAD_TCLCAD_PRIVATE_H */
59 
60 /** @} */
61 /*
62  * Local Variables:
63  * mode: C
64  * tab-width: 8
65  * indent-tabs-mode: t
66  * c-file-style: "stroustrup"
67  * End:
68  * ex: shiftwidth=4 tabstop=8
69  */
ustring interp
int tclcad_eval(Tcl_Interp *interp, const char *command, size_t num_args, const char *const *args)
Definition: tclcad_eval.c:33
Header file for the BRL-CAD common definitions.
#define __BEGIN_DECLS
Definition: common.h:73
#define __END_DECLS
Definition: common.h:74
int library_initialized(int setit)
Definition: tclcad.c:52
int tclcad_eval_noresult(Tcl_Interp *interp, const char *command, size_t num_args, const char *const *args)
Definition: tclcad_eval.c:54