summaryrefslogtreecommitdiff
path: root/gdb/gdbtk/plugins/rhabout/rhabout.c
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/gdbtk/plugins/rhabout/rhabout.c')
-rw-r--r--gdb/gdbtk/plugins/rhabout/rhabout.c57
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