From f25d0ab1672bff45ed845baf786f23aac60ca243 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Thu, 21 Sep 1995 13:11:49 +0000 Subject: [PATCH] Support of dynamic loading. Test script uses load command if necessary. --- client.tcl | 14 ++++++++++++-- ir-tcl.c | 11 ++++++++--- ir-tcl.h | 8 ++++++-- tclmain.c | 8 ++++++-- 4 files changed, 32 insertions(+), 9 deletions(-) diff --git a/client.tcl b/client.tcl index 4a7841c..2ab73be 100644 --- a/client.tcl +++ b/client.tcl @@ -4,7 +4,11 @@ # Sebastian Hammer, Adam Dickmeiss # # $Log: client.tcl,v $ -# Revision 1.67 1995-09-20 14:35:19 adam +# Revision 1.68 1995-09-21 13:11:49 adam +# Support of dynamic loading. +# Test script uses load command if necessary. +# +# Revision 1.67 1995/09/20 14:35:19 adam # Minor changes. # # Revision 1.66 1995/08/29 15:30:13 adam @@ -3113,7 +3117,13 @@ pack .bot.a.target -side top -anchor nw -padx 2 -pady 2 pack .bot.a.status .bot.a.set .bot.a.message \ -side left -padx 2 -pady 2 -ipadx 1 -ipady 1 -catch {ir z39} +if {[catch {ir z39}]} { + set e [info sharedlibextension] + puts -nonewline "Loading irtcl..." + load irtcl$e + ir z39 + puts "ok" +} #z39 logLevel all show-logo 1 diff --git a/ir-tcl.c b/ir-tcl.c index 36d46f4..ab6ef29 100644 --- a/ir-tcl.c +++ b/ir-tcl.c @@ -5,7 +5,11 @@ * Sebastian Hammer, Adam Dickmeiss * * $Log: ir-tcl.c,v $ - * Revision 1.56 1995-08-29 15:30:14 adam + * Revision 1.57 1995-09-21 13:11:51 adam + * Support of dynamic loading. + * Test script uses load command if necessary. + * + * Revision 1.56 1995/08/29 15:30:14 adam * Work on GRS records. * * Revision 1.55 1995/08/28 09:43:25 adam @@ -3083,9 +3087,9 @@ void ir_select_write (ClientData clientData) /* ------------------------------------------------------- */ /* - * ir_tcl_init: Registration of TCL commands. + * Irtcl_init: Registration of TCL commands. */ -int ir_tcl_init (Tcl_Interp *interp) +int Irtcl_Init (Tcl_Interp *interp) { Tcl_CreateCommand (interp, "ir", ir_obj_mk, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); @@ -3095,3 +3099,4 @@ int ir_tcl_init (Tcl_Interp *interp) (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); return TCL_OK; } + diff --git a/ir-tcl.h b/ir-tcl.h index bd86627..6dd74ff 100644 --- a/ir-tcl.h +++ b/ir-tcl.h @@ -24,7 +24,11 @@ * OF THIS SOFTWARE. * * $Log: ir-tcl.h,v $ - * Revision 1.10 1995-06-22 07:15:59 adam + * Revision 1.11 1995-09-21 13:11:52 adam + * Support of dynamic loading. + * Test script uses load command if necessary. + * + * Revision 1.10 1995/06/22 07:15:59 adam * Version number moved to Makefile.in * Some work on autoconf. * @@ -56,7 +60,7 @@ #ifndef IR_TCL_H #define IR_TCL_H -int ir_tcl_init (Tcl_Interp *interp); +int Irtcl_Init (Tcl_Interp *interp); void ir_select_add (int fd, void *obj); void ir_select_add_write (int fd, void *obj); diff --git a/tclmain.c b/tclmain.c index 3168bc6..376e56f 100644 --- a/tclmain.c +++ b/tclmain.c @@ -5,7 +5,11 @@ * Sebastian Hammer, Adam Dickmeiss * * $Log: tclmain.c,v $ - * Revision 1.13 1995-08-28 12:21:22 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. * @@ -75,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; } -- 1.7.10.4