diff options
Diffstat (limited to 'gdb/gdbtk/plugins/rhabout/rhabout.c')
-rw-r--r-- | gdb/gdbtk/plugins/rhabout/rhabout.c | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/gdb/gdbtk/plugins/rhabout/rhabout.c b/gdb/gdbtk/plugins/rhabout/rhabout.c deleted file mode 100644 index fd6cc87eb4a..00000000000 --- a/gdb/gdbtk/plugins/rhabout/rhabout.c +++ /dev/null @@ -1,57 +0,0 @@ -/* Sample command procedure library for a plug-in. */ - -/* You have to include the Tcl headers, of course. */ -#include <tcl.h> - -/* Define the functions that implement your commands as required by Tcl */ -#ifdef __CYGWIN__ -# define EXPORT __declspec(dllexport) -#else -# define EXPORT /* nothing */ -#endif - -int extra_text (ClientData clientData, - Tcl_Interp *interp, - int argc, char *argv[]); - -/* Here you actually do whatever you want, like calling your target - libraries etc. Here we just return a string. */ - -int -extra_text (ClientData clientData, - Tcl_Interp *interp, - int argc, char *argv[]) -{ - interp->result = "\nThis is a sample plug-in\n"; - return TCL_OK; -} - -/* Initialization function required in Tcl libraries. */ - -int EXPORT -Rhabout_Init (Tcl_Interp *interp) -{ - /* Register your command as a Tcl command with this interpreter. */ - Tcl_CreateCommand (interp, "rhabout_extra_text", extra_text, - (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); - - /* Register this package */ - Tcl_PkgProvide (interp, "RHABOUT", "1.0"); - return TCL_OK; -} - -/* This is REQUIRED for cygwin */ -#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 |