diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-10-26 21:13:00 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-10-26 21:13:00 (GMT) |
commit | da2e3d212171bbe64c1af39114fd067308656990 (patch) | |
tree | 9601f7ed15fa1394762124630c12a792bc073ec2 /funtools/funtclmainlib.c | |
parent | 76b109ad6d97d19ab835596dc70149ef379f3733 (diff) | |
download | blt-da2e3d212171bbe64c1af39114fd067308656990.zip blt-da2e3d212171bbe64c1af39114fd067308656990.tar.gz blt-da2e3d212171bbe64c1af39114fd067308656990.tar.bz2 |
rm funtools for update
Diffstat (limited to 'funtools/funtclmainlib.c')
-rw-r--r-- | funtools/funtclmainlib.c | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/funtools/funtclmainlib.c b/funtools/funtclmainlib.c deleted file mode 100644 index e2f9569..0000000 --- a/funtools/funtclmainlib.c +++ /dev/null @@ -1,46 +0,0 @@ -#include <tclmainlib.h> - -int funcen_main(int argc, char **argv); -int funcnts_main(int argc, char **argv); -int fundisp_main(int argc, char **argv); -int funhead_main(int argc, char **argv); -int funhist_main(int argc, char **argv); -int funimage_main(int argc, char **argv); -int funmerge_main(int argc, char **argv); -int funtable_main(int argc, char **argv); -int funcalc_main(int argc, char **argv); -#if HAVE_TCL -#include <tcl.h> - -int Funtools_Init (void *vinterp) -{ - Tcl_Interp *interp = (Tcl_Interp *)vinterp; - - Tcl_CreateObjCommand(interp, "funcen", MainLib_Tcl, - (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); - Tcl_CreateObjCommand(interp, "funcnts", MainLib_Tcl, - (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); - Tcl_CreateObjCommand(interp, "fundisp", MainLib_Tcl, - (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); - Tcl_CreateObjCommand(interp, "funhead", MainLib_Tcl, - (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); - Tcl_CreateObjCommand(interp, "funhist", MainLib_Tcl, - (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); - Tcl_CreateObjCommand(interp, "funimage", MainLib_Tcl, - (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); - Tcl_CreateObjCommand(interp, "funmerge", MainLib_Tcl, - (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); - Tcl_CreateObjCommand(interp, "funtable", MainLib_Tcl, - (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); - Tcl_CreateObjCommand(interp, "funcalc", MainLib_Tcl, - (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); - - Tcl_PkgProvide(interp, "funtools", "1.0"); - return(TCL_OK); -} - -int funtclmainlib=1; -#else - -int funtclmainlib=0; -#endif |