#include <tcl.h>
#ifdef __CYGWIN__
# define EXPORT __declspec(dllexport)
#else
# define EXPORT
#endif
int extra_text (ClientData clientData,
Tcl_Interp *interp,
int argc, char *argv[]);
int
extra_text (ClientData clientData,
Tcl_Interp *interp,
int argc, char *argv[])
{
interp->result = "\nThis is a sample plug-in\n";
return TCL_OK;
}
int EXPORT
Rhabout_Init (Tcl_Interp *interp)
{
Tcl_CreateCommand (interp, "rhabout_extra_text", extra_text,
(ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
Tcl_PkgProvide (interp, "RHABOUT", "1.0");
return TCL_OK;
}
#ifdef __CYGWIN__
#include <windows.h>
#include <tclInt.h>
struct _reent *_impure_ptr;
extern struct _reent *_imp__reent_data;
BOOL APIENTRY
DllMain (HINSTANCE hInstance, DWORD reason, LPVOID reserved)
{
_impure_ptr = _imp__reent_data;
return TRUE;
}
#endif