X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=tclmain.c;h=376e56feaa312bfac842d6e851733216a2e3ba8d;hb=f25d0ab1672bff45ed845baf786f23aac60ca243;hp=0bfe572807111ad586ff798192ae357540869700;hpb=8caa5a124f21ce80bd6a4a02576bf00d38096d32;p=ir-tcl-moved-to-github.git

diff --git a/tclmain.c b/tclmain.c
index 0bfe572..376e56f 100644
--- a/tclmain.c
+++ b/tclmain.c
@@ -5,7 +5,18 @@
  * 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
@@ -52,9 +63,9 @@ static char *fileName = NULL;
 
 /* 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
@@ -68,7 +79,7 @@ int Tcl_AppInit (Tcl_Interp *interp)
 {
     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;
 }
@@ -84,7 +95,6 @@ int main (int argc, char **argv)
     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);
     }