diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-10-25 20:57:49 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-10-25 20:57:49 (GMT) |
commit | d1c4bf158203c4e8ec29fdeb83fd311e36320885 (patch) | |
tree | 15874534e282f67505ce4af5ba805a1ff70ec43e /funtools/funtclmainlib.c | |
parent | e19a18e035dc4d0e8e215f9b452bb9ef6f58b9d7 (diff) | |
parent | 339420dd5dd874c41f6bab5808291fb4036dd022 (diff) | |
download | blt-d1c4bf158203c4e8ec29fdeb83fd311e36320885.zip blt-d1c4bf158203c4e8ec29fdeb83fd311e36320885.tar.gz blt-d1c4bf158203c4e8ec29fdeb83fd311e36320885.tar.bz2 |
Merge commit '339420dd5dd874c41f6bab5808291fb4036dd022' as 'funtools'
Diffstat (limited to 'funtools/funtclmainlib.c')
-rw-r--r-- | funtools/funtclmainlib.c | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/funtools/funtclmainlib.c b/funtools/funtclmainlib.c new file mode 100644 index 0000000..e2f9569 --- /dev/null +++ b/funtools/funtclmainlib.c @@ -0,0 +1,46 @@ +#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 |