#include #define IS_TCL_7_5 ((TCL_MAJOR_VERSION * 100 + TCL_MINOR_VERSION) >= 705) #if IS_TCL_7_5 int main(argc, argv) int argc; /* Number of command-line arguments. */ char **argv; /* Values of command-line arguments. */ { Tcl_Main(argc, argv, Tcl_AppInit); return 0; /* Needed only to prevent compiler warning. */ } #else /* * The following variable is a special hack that allows applications * to be linked using the procedure "main" from the Tcl library. The * variable generates a reference to "main", which causes main to * be brought in from the library (and all of Tcl with it). */ extern int main(); int *tclDummyMainPtr = (int *) main; #endif int Tcl_AppInit(Tcl_Interp *interp) { Tcl_ovsec_kadm_init(interp); Tcl_kadm5_init(interp); return(TCL_OK); }