Posted to tcl by patthoyts at Fri Apr 14 20:06:22 GMT 2006view raw

  1. /* useful.c - Copyright (C) 2005 Pat Thoyts <patthoyts@users.sourceforge.net> */
  2. #include <tcl.h>
  3. #define PACKAGE_NAME "Useful"
  4. #define PACKAGE_VERSION "1.0"
  5. int DLLEXPORT
  6. Useful_Init(Tcl_Interp *interp)
  7. {
  8. #ifdef USE_TCL_STUBS
  9. if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
  10. return TCL_ERROR;
  11. }
  12. #endif
  13. Tcl_SetResult(interp, PACKAGE_VERSION, TCL_STATIC);
  14. return Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION);
  15. }
  16.