Posted to tcl by patthoyts at Fri Apr 14 20:06:22 GMT 2006view pretty
/* useful.c - Copyright (C) 2005 Pat Thoyts <patthoyts@users.sourceforge.net> */ #include <tcl.h> #define PACKAGE_NAME "Useful" #define PACKAGE_VERSION "1.0" int DLLEXPORT Useful_Init(Tcl_Interp *interp) { #ifdef USE_TCL_STUBS if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } #endif Tcl_SetResult(interp, PACKAGE_VERSION, TCL_STATIC); return Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION); }