Subversion Repositories or1k

/* 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 */

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

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

  return TCL_OK;

}