projects
/
ir-tcl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
03ca923
)
Minor changes really.
author
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 16 Mar 1995 17:54:03 +0000
(17:54 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 16 Mar 1995 17:54:03 +0000
(17:54 +0000)
client.tcl
patch
|
blob
|
history
ir-tcl.c
patch
|
blob
|
history
diff --git
a/client.tcl
b/client.tcl
index
8f8a58b
..
b600918
100644
(file)
--- a/
client.tcl
+++ b/
client.tcl
@@
-1,6
+1,9
@@
#
# $Log: client.tcl,v $
#
# $Log: client.tcl,v $
-# Revision 1.6 1995-03-15 19:10:20 adam
+# Revision 1.7 1995-03-16 17:54:03 adam
+# Minor changes really.
+#
+# Revision 1.6 1995/03/15 19:10:20 adam
# Database setup in protocol-setup (rather target setup).
#
# Revision 1.5 1995/03/15 13:59:23 adam
# Database setup in protocol-setup (rather target setup).
#
# Revision 1.5 1995/03/15 13:59:23 adam
@@
-24,7
+27,7
@@
set hotTargets {}
set hotInfo {}
set busy 0
set hotInfo {}
set busy 0
-set profile(Default) {{} {} 16384 8192 tcpip {books names} }
+set profile(Default) {{} {} 16384 8192 tcpip {books names demo} }
set hostname Default
wm minsize . 360 200
set hostname Default
wm minsize . 360 200
@@
-123,8
+126,8
@@
proc show-full-marc {no} {
pack $w.bot -fill both
text $w.top.record -width 60 -height 10 \
pack $w.bot -fill both
text $w.top.record -width 60 -height 10 \
- -yscrollcommand "$w.top.s set"
- scrollbar $w.top.s -command "$w.top.record yview"
+ -yscrollcommand [list $w.top.s set]
+ scrollbar $w.top.s -command [list $w.top.record yview]
set new 1
}
set new 1
}
diff --git
a/ir-tcl.c
b/ir-tcl.c
index
b7cd50f
..
efe1fcb
100644
(file)
--- a/
ir-tcl.c
+++ b/
ir-tcl.c
@@
-3,7
+3,10
@@
* (c) Index Data 1995
*
* $Log: ir-tcl.c,v $
* (c) Index Data 1995
*
* $Log: ir-tcl.c,v $
- * Revision 1.10 1995-03-15 16:14:50 adam
+ * Revision 1.11 1995-03-16 17:54:03 adam
+ * Minor changes really.
+ *
+ * Revision 1.10 1995/03/15 16:14:50 adam
* Blocking arg in cs_create changed.
*
* Revision 1.9 1995/03/15 13:59:24 adam
* Blocking arg in cs_create changed.
*
* Revision 1.9 1995/03/15 13:59:24 adam
@@
-631,7
+634,7
@@
static int ir_obj_method (ClientData clientData, Tcl_Interp *interp,
{ 0, "protocolVersion", do_protocolVersion },
{ 0, "options", do_options },
{ 1, "preferredMessageSize", do_preferredMessageSize },
{ 0, "protocolVersion", do_protocolVersion },
{ 0, "options", do_options },
{ 1, "preferredMessageSize", do_preferredMessageSize },
- { 1, "maximumRecordSize", do_maximumRecordSize },
+ { 1, "maximumRecordSize", do_maximumRecordSize },
{ 1, "implementationName", do_implementationName },
{ 1, "implementationId", do_implementationId },
{ 1, "idAuthentication", do_idAuthentication },
{ 1, "implementationName", do_implementationName },
{ 1, "implementationId", do_implementationId },
{ 1, "idAuthentication", do_idAuthentication },
@@
-1345,6
+1348,8
@@
void ir_select_proc (ClientData clientData)
ir_select_remove (cs_fileno (p->cs_link), p);
return;
}
ir_select_remove (cs_fileno (p->cs_link), p);
return;
}
+ if (r == 1)
+ return ;
odr_setbuf (p->odr_in, p->buf_in, r);
printf ("cs_get ok, got %d\n", r);
if (!z_APDU (p->odr_in, &apdu, 0))
odr_setbuf (p->odr_in, p->buf_in, r);
printf ("cs_get ok, got %d\n", r);
if (!z_APDU (p->odr_in, &apdu, 0))