Revision: 76332
http://sourceforge.net/p/brlcad/code/76332
Author: starseeker
Date: 2020-07-14 19:16:50 +0000 (Tue, 14 Jul 2020)
Log Message:
-----------
Variety of libtclcad adjustments. Expose only the Tclcad init.
Modified Paths:
--------------
brlcad/trunk/include/tclcad.h
brlcad/trunk/src/libtclcad/bu_funcs.c
brlcad/trunk/src/libtclcad/cmdhist_obj.c
brlcad/trunk/src/libtclcad/dm_obj.c
brlcad/trunk/src/libtclcad/dm_tcl.c
brlcad/trunk/src/libtclcad/fb_obj.c
brlcad/trunk/src/libtclcad/tclcad_init.c
brlcad/trunk/src/libtclcad/tclcad_private.h
brlcad/trunk/src/mged/attach.c
Modified: brlcad/trunk/include/tclcad.h
===================================================================
--- brlcad/trunk/include/tclcad.h 2020-07-14 18:58:44 UTC (rev 76331)
+++ brlcad/trunk/include/tclcad.h 2020-07-14 19:16:50 UTC (rev 76332)
@@ -172,9 +172,7 @@
TCLCAD_EXPORT extern int tclcad_tk_setup(Tcl_Interp *interp);
TCLCAD_EXPORT extern void tclcad_auto_path(Tcl_Interp *interp);
TCLCAD_EXPORT extern void tclcad_tcl_library(Tcl_Interp *interp);
-TCLCAD_EXPORT extern int Bu_Init(void *interp);
TCLCAD_EXPORT extern void tclcad_bn_setup(Tcl_Interp *interp);
-TCLCAD_EXPORT extern int Bn_Init(Tcl_Interp *interp);
TCLCAD_EXPORT extern void tclcad_bn_mat_print(Tcl_Interp *interp, const char
*title, const mat_t m);
@@ -532,8 +530,6 @@
/* dm_tcl.c */
/* The presence of Tcl_Interp as an arg prevents giving arg list */
TCLCAD_EXPORT extern void fb_tcl_setup(void);
-TCLCAD_EXPORT extern int Fb_Init(Tcl_Interp *interp);
-TCLCAD_EXPORT extern int Dm_Init(void *interp);
__END_DECLS
Modified: brlcad/trunk/src/libtclcad/bu_funcs.c
===================================================================
--- brlcad/trunk/src/libtclcad/bu_funcs.c 2020-07-14 18:58:44 UTC (rev
76331)
+++ brlcad/trunk/src/libtclcad/bu_funcs.c 2020-07-14 19:16:50 UTC (rev
76332)
@@ -466,10 +466,8 @@
int
-Bu_Init(void *p)
+Bu_Init(Tcl_Interp *interp)
{
- Tcl_Interp *interp = (Tcl_Interp *)p;
-
static struct bu_cmdtab cmds[] = {
{"bu_units_conversion", tcl_bu_units_conversion},
{"bu_dir", tcl_bu_dir},
Modified: brlcad/trunk/src/libtclcad/cmdhist_obj.c
===================================================================
--- brlcad/trunk/src/libtclcad/cmdhist_obj.c 2020-07-14 18:58:44 UTC (rev
76331)
+++ brlcad/trunk/src/libtclcad/cmdhist_obj.c 2020-07-14 19:16:50 UTC (rev
76332)
@@ -30,6 +30,7 @@
#include "bu/malloc.h"
#include "bu/str.h"
#include "tclcad.h"
+#include "tclcad_private.h"
/* FIXME: this is apparently used by src/tclscripts/lib/Command.tcl so
Modified: brlcad/trunk/src/libtclcad/dm_obj.c
===================================================================
--- brlcad/trunk/src/libtclcad/dm_obj.c 2020-07-14 18:58:44 UTC (rev 76331)
+++ brlcad/trunk/src/libtclcad/dm_obj.c 2020-07-14 19:16:50 UTC (rev 76332)
@@ -46,6 +46,7 @@
#include "dm.h"
#include "../libdm/include/private.h"
#include "tclcad.h"
+#include "tclcad_private.h"
/**
*@brief
Modified: brlcad/trunk/src/libtclcad/dm_tcl.c
===================================================================
--- brlcad/trunk/src/libtclcad/dm_tcl.c 2020-07-14 18:58:44 UTC (rev 76331)
+++ brlcad/trunk/src/libtclcad/dm_tcl.c 2020-07-14 19:16:50 UTC (rev 76332)
@@ -45,16 +45,11 @@
/* private headers */
#include "../libdm/include/private.h"
#include "brlcad_version.h"
+#include "tclcad_private.h"
/* from libdm/query.c */
extern int dm_validXType(const char *dpy_string, const char *name);
-/* from libdm/dm_obj.c */
-extern int Dmo_Init(Tcl_Interp *interp);
-
-/* from lib./fb_obj.c */
-extern int Fbo_Init(Tcl_Interp *interp);
-
HIDDEN int
dm_validXType_tcl(void *clientData, int argc, const char **argv)
{
@@ -166,10 +161,8 @@
int
-Dm_Init(void *interpreter)
+Dm_Init(Tcl_Interp *interp)
{
- Tcl_Interp *interp = (Tcl_Interp *)interpreter;
-
static struct bu_cmdtab cmdtab[] = {
{"dm_validXType", dm_validXType_tcl},
{"dm_bestXType", dm_bestXType_tcl},
Modified: brlcad/trunk/src/libtclcad/fb_obj.c
===================================================================
--- brlcad/trunk/src/libtclcad/fb_obj.c 2020-07-14 18:58:44 UTC (rev 76331)
+++ brlcad/trunk/src/libtclcad/fb_obj.c 2020-07-14 19:16:50 UTC (rev 76332)
@@ -45,6 +45,7 @@
#include "../libdm/include/private.h"
#include "dm.h"
#include "tclcad.h"
+#include "tclcad_private.h"
/* defined in libfb/tcl.c */
extern int fb_refresh(struct fb *ifp, int x, int y, int w, int h);
Modified: brlcad/trunk/src/libtclcad/tclcad_init.c
===================================================================
--- brlcad/trunk/src/libtclcad/tclcad_init.c 2020-07-14 18:58:44 UTC (rev
76331)
+++ brlcad/trunk/src/libtclcad/tclcad_init.c 2020-07-14 19:16:50 UTC (rev
76332)
@@ -43,10 +43,6 @@
#include "brlcad_version.h"
#include "tclcad_private.h"
-/* defined in cmdhist_obj.c */
-extern int Cho_Init(Tcl_Interp *interp);
-
-
int
library_initialized(int setit)
{
Modified: brlcad/trunk/src/libtclcad/tclcad_private.h
===================================================================
--- brlcad/trunk/src/libtclcad/tclcad_private.h 2020-07-14 18:58:44 UTC (rev
76331)
+++ brlcad/trunk/src/libtclcad/tclcad_private.h 2020-07-14 19:16:50 UTC (rev
76332)
@@ -53,6 +53,16 @@
extern int tclcad_eval_noresult(Tcl_Interp *interp, const char *command,
size_t num_args, const char * const *args);
+/* Tcl initialization routines */
+extern int Bu_Init(Tcl_Interp *interp);
+extern int Bn_Init(Tcl_Interp *interp);
+extern int Cho_Init(Tcl_Interp *interp);
+extern int Dm_Init(Tcl_Interp *interp);
+extern int Dmo_Init(Tcl_Interp *interp);
+extern int Fbo_Init(Tcl_Interp *interp);
+extern int Go_Init(Tcl_Interp *interp);
+extern int Rt_Init(Tcl_Interp *interp);
+
__END_DECLS
#endif /* LIBTCLCAD_TCLCAD_PRIVATE_H */
Modified: brlcad/trunk/src/mged/attach.c
===================================================================
--- brlcad/trunk/src/mged/attach.c 2020-07-14 18:58:44 UTC (rev 76331)
+++ brlcad/trunk/src/mged/attach.c 2020-07-14 19:16:50 UTC (rev 76332)
@@ -561,8 +561,8 @@
return TCL_ERROR;
}
- /* Initialize libdm */
- (void)Dm_Init(INTERP);
+ /* Initialize libtclcad */
+ (void)Tclcad_Init(INTERP);
#ifdef HAVE_TK
if ((tkwin = Tk_MainWindow(INTERP)) == NULL) {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
