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);
}