X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=tclmain.c;h=a238fbaaee2a312a9924d9a084ea72b3c2f2fb28;hb=0c66cddf6e923db676ed30691cd1d47b50db0d4a;hp=33a34078a1f5a9a957bdc8d2fae36399f1609f1d;hpb=ed6b88adb8132f4668c60113532d5c2da34523e7;p=ir-tcl-moved-to-github.git diff --git a/tclmain.c b/tclmain.c index 33a3407..a238fba 100644 --- a/tclmain.c +++ b/tclmain.c @@ -5,7 +5,46 @@ * Sebastian Hammer, Adam Dickmeiss * * $Log: tclmain.c,v $ - * Revision 1.6 1995-05-29 08:44:28 adam + * Revision 1.16 1996-02-05 17:58:05 adam + * Ported ir-tcl to use the beta releases of tcl7.5/tk4.1. + * + * Revision 1.15 1996/01/10 09:18:45 adam + * PDU specific callbacks implemented: initRespnse, searchResponse, + * presentResponse and scanResponse. + * Bug fix in the command line shell (tclmain.c) - discovered on OSF/1. + * + * 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 + * Bug fix: loadFile didn't set record type. + * The MARC routines are a little less strict in the interpretation. + * Script display.tcl replaces the old marc.tcl. + * New interactive script: shell.tcl. + * + * Revision 1.9 1995/06/26 10:20:20 adam + * ir-tk works like wish. + * + * Revision 1.8 1995/06/21 15:16:44 adam + * More work on configuration. + * + * Revision 1.7 1995/06/21 11:04:54 adam + * Uses GNU autoconf 2.3. + * Install procedure implemented. + * boook bitmaps moved to sub directory bitmaps. + * + * Revision 1.6 1995/05/29 08:44:28 adam * Work on delete of objects. * * Revision 1.5 1995/03/20 08:53:30 adam @@ -16,22 +55,25 @@ * */ +#include #include #include +#ifdef _AIX +#include +#endif #include -#include #include - +#include #include "ir-tcl.h" 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 @@ -45,7 +87,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; } @@ -79,11 +121,34 @@ int main (int argc, char **argv) exit (1); tcl_mainloop (interp, 0); } - else + else if (isatty(0)) { + Tcl_SetVar (interp, "tcl_interactive", "1", TCL_GLOBAL_ONLY); tcl_mainloop (interp, 1); } + else + { + Tcl_DString command; + char input_buf[1024]; + int count; + + printf ("xx\n"); + Tcl_DStringInit (&command); + while (fgets (input_buf, 1024, stdin)) + { + count = strlen(input_buf); + Tcl_DStringAppend (&command, input_buf, count); + if (Tcl_CommandComplete (Tcl_DStringValue (&command))) + { + int code = Tcl_Eval (interp, Tcl_DStringValue (&command)); + Tcl_DStringFree (&command); + if (code) + printf ("Error: %s\n", interp->result); + } + } + tcl_mainloop (interp, 0); + } exit (0); } @@ -101,7 +166,7 @@ void tcl_mainloop (Tcl_Interp *interp, int interactive) if (interactive) { Tcl_DStringInit (&command); - printf ("[TCL]"); fflush (stdout); + printf ("%% "); fflush (stdout); } while (1) { @@ -142,24 +207,24 @@ void tcl_mainloop (Tcl_Interp *interp, int interactive) { if (FD_ISSET (i, &fdset_tcl_r)) { - assert (callback_table[i].r_handle); - (*callback_table[i].r_handle) (callback_table[i].obj); + if (callback_table[i].r_handle) + (*callback_table[i].r_handle) (callback_table[i].obj); } if (FD_ISSET (i, &fdset_tcl_w)) { - assert (callback_table[i].w_handle); - (*callback_table[i].w_handle) (callback_table[i].obj); + if (callback_table[i].w_handle) + (*callback_table[i].w_handle) (callback_table[i].obj); } if (FD_ISSET (i, &fdset_tcl_x)) { - assert (callback_table[i].x_handle); - (*callback_table[i].x_handle) (callback_table[i].obj); + if (callback_table[i].x_handle) + (*callback_table[i].x_handle) (callback_table[i].obj); } } if (interactive && FD_ISSET(0, &fdset_tcl_r)) { - char input_buf[256]; - int count = read (0, input_buf, 256); + char input_buf[1024]; + int count = read (0, input_buf, 1024); if (count <= 0) exit (0); @@ -169,17 +234,23 @@ void tcl_mainloop (Tcl_Interp *interp, int interactive) int code = Tcl_Eval (interp, Tcl_DStringValue (&command)); Tcl_DStringFree (&command); if (code) - printf ("[ERR:%s]\n", interp->result); - else - printf ("[RES:%s]\n", interp->result); - printf ("[TCL]"); fflush (stdout); + printf ("Error: %s\n", interp->result); + else if (*interp->result) + printf ("%s\n", interp->result); + printf ("%% "); fflush (stdout); } } } } +#if IRTCL_GENERIC_FILES +void ir_select_add (Tcl_File file, void *obj) +{ + int fd = (int) Tcl_GetFileInfo (file, NULL); +#else void ir_select_add (int fd, void *obj) { +#endif callback_table[fd].obj = obj; callback_table[fd].r_handle = ir_select_read; callback_table[fd].w_handle = NULL; @@ -188,20 +259,38 @@ void ir_select_add (int fd, void *obj) max_fd = fd; } +#if IRTCL_GENERIC_FILES +void ir_select_add_write (Tcl_File file, void *obj) +{ + int fd = (int) Tcl_GetFileInfo (file, NULL); +#else void ir_select_add_write (int fd, void *obj) { +#endif callback_table[fd].w_handle = ir_select_write; if (fd > max_fd) max_fd = fd; } +#if IRTCL_GENERIC_FILES +void ir_select_remove_write (Tcl_File file, void *obj) +{ + int fd = (int) Tcl_GetFileInfo (file, NULL); +#else void ir_select_remove_write (int fd, void *obj) { +#endif callback_table[fd].w_handle = NULL; } +#if IRTCL_GENERIC_FILES +void ir_select_remove (Tcl_File file, void *obj) +{ + int fd = (int) Tcl_GetFileInfo (file, NULL); +#else void ir_select_remove (int fd, void *obj) { +#endif callback_table[fd].r_handle = NULL; callback_table[fd].w_handle = NULL; callback_table[fd].x_handle = NULL;