init.c

   1 /*
   2  * $Id: init.c,v 1.2 1998/10/15 12:31:02 adam Exp $
   3  */
   4 #include "tclrobot.h"
   5
   6 int Tclrobot_Init (Tcl_Interp *interp)
   7 {
   8     Tcl_CreateCommand (interp, "htmlSwitch", htmlSwitch, (ClientData) NULL,
   9                        (Tcl_CmdDeleteProc *) NULL);
  10     return TCL_OK;
  11 }