Tcl Source Code: Artifact [3a8a75fb6f]

Artifact 3a8a75fb6fab26b693d50606082a7ba3b2d37e5d002ffe7ac49fb55797d94223:

Attachment "onexit.c" to ticket [3d768414de] added by sbron 2020-07-14 15:28:53. (unpublished)

#include <tcl.h>

void onexit(ClientData clientData, Tcl_Interp *interp)
{
    fprintf(stderr, "OnExitHandler for interp %p\n", interp);
}
	    
int Onexit_Init(Tcl_Interp *interp)
{
#ifdef USE_TCL_STUBS
    if (Tcl_InitStubs(interp, "8.5", 0) == NULL)
      return TCL_ERROR;
#else
    if (Tcl_PkgRequire(interp, "Tcl", "8.5", 0) == NULL)
      return TCL_ERROR;
#endif
    Tcl_CallWhenDeleted(interp, onexit, NULL);
    return Tcl_PkgProvide(interp, "onexit", "1.0");
}