* Sebastian Hammer, Adam Dickmeiss
*
* $Log: tclmain.c,v $
- * Revision 1.11 1995-08-03 13:23:02 adam
+ * Revision 1.14 1995-09-21 13:11:53 adam
+ * Support of dynamic loading.
+ * Test script uses load command if necessary.
+ *
+ * Revision 1.13 1995/08/28 12:21:22 adam
+ * Removed lines and list as synonyms of list in MARC extractron.
+ * Configure searches also for tk4.0 / tcl7.4.
+ *
+ * Revision 1.12 1995/08/28 11:07:16 adam
+ * Minor changes.
+ *
+ * Revision 1.11 1995/08/03 13:23:02 adam
* Request queue.
*
* Revision 1.10 1995/06/30 12:39:28 adam
/* select(2) callbacks */
struct callback {
- void (*r_handle)(void *p);
- void (*w_handle)(void *p);
- void (*x_handle)(void *p);
+ void (*r_handle)(ClientData);
+ void (*w_handle)(ClientData);
+ void (*x_handle)(ClientData);
void *obj;
};
#define MAX_CALLBACK 200
{
if (Tcl_Init(interp) == TCL_ERROR)
return TCL_ERROR;
- if (ir_tcl_init(interp) == TCL_ERROR)
+ if (Irtcl_Init(interp) == TCL_ERROR)
return TCL_ERROR;
return TCL_OK;
}
if (argc == 2)
fileName = argv[1];
- log_init (LOG_ALL, "", NULL);
if (Tcl_AppInit(interp) != TCL_OK) {
fprintf(stderr, "Tcl_AppInit failed: %s\n", interp->result);
}