Help for this page

Select Code to Download

Select or download this
static int (* tclKit_AppInit)(Tcl_Interp *) = Tcl_Init;

Select or download this

void
Tcl_Init(interp)
    Tcl    interp
...
    }
    Tcl_CreateObjCommand(interp, "::perl::Eval", Tcl_EvalInPerl,
        (ClientData) NULL, NULL);