2 * IR toolkit for tcl/tk
4 * See the file LICENSE for details.
5 * Sebastian Hammer, Adam Dickmeiss
8 * Revision 1.10 1995-06-16 12:28:20 adam
9 * Implemented preferredRecordSyntax.
10 * Minor changes in diagnostic handling.
11 * Record list deleted when connection closes.
13 * Revision 1.9 1995/06/14 15:08:01 adam
14 * Bug fix in cascade-target-list. Uses yaz-version.h.
16 * Revision 1.8 1995/06/14 13:37:18 adam
17 * Setting recordType implemented.
18 * Setting implementationVersion implemented.
19 * Settings implementationId / implementationName edited.
21 * Revision 1.7 1995/06/01 07:31:28 adam
22 * Rename of many typedefs -> IrTcl_...
24 * Revision 1.6 1995/05/31 08:36:40 adam
25 * Bug fix in client.tcl: didn't save options on clientrc.tcl.
26 * New method: referenceId. More work on scan.
28 * Revision 1.5 1995/05/29 08:44:25 adam
29 * Work on delete of objects.
31 * Revision 1.4 1995/05/26 11:44:10 adam
32 * Bugs fixed. More work on MARC utilities and queries. Test
33 * client is up-to-date again.
35 * Revision 1.3 1995/05/26 08:54:17 adam
36 * New MARC utilities. Uses prefix query.
38 * Revision 1.2 1995/05/24 14:10:23 adam
39 * Work on idAuthentication, protocolVersion and options.
41 * Revision 1.1 1995/05/23 15:34:49 adam
42 * Many new settings, userInformationField, smallSetUpperBound, etc.
43 * A number of settings are inherited when ir-set is executed.
44 * This version is incompatible with the graphical test client (client.tcl).
66 #include <yaz-version.h>
76 int num_databaseNames;
78 enum oid_value *preferredRecordSyntax;
82 int smallSetUpperBound;
83 int largeSetLowerBound;
84 int mediumSetPresentNumber;
95 int preferredMessageSize;
96 int maximumRecordSize;
98 Odr_bitmask protocolVersion;
100 char *idAuthenticationOpen;
101 char *idAuthenticationGroupId;
102 char *idAuthenticationUserId;
103 char *idAuthenticationPassword;
105 char *implementationName;
106 char *implementationId;
107 char *implementationVersion;
109 char *targetImplementationName;
110 char *targetImplementationId;
111 char *targetImplementationVersion;
112 char *userInformationField;
134 struct IrTcl_SetObj_ *set_child;
135 struct IrTcl_ScanObj_ *scan_child;
137 IrTcl_SetCObj set_inher;
145 typedef struct IrTcl_RecordList_ {
156 IrTcl_Diagnostic *list;
157 } surrogateDiagnostics;
159 struct IrTcl_RecordList_ *next;
162 typedef struct IrTcl_SetObj_ {
167 int nextResultSetPosition;
170 int numberOfRecordsReturned;
174 int nonSurrogateDiagnosticNum;
175 IrTcl_Diagnostic *nonSurrogateDiagnosticList;
176 IrTcl_RecordList *record_list;
177 IrTcl_SetCObj set_inher;
180 typedef struct IrTcl_ScanEntry_ {
185 int globalOccurrences;
188 IrTcl_Diagnostic *list;
194 typedef struct IrTcl_ScanObj_ {
197 int numberOfTermsRequested;
198 int preferredPositionInResponse;
201 int numberOfEntriesReturned;
210 IrTcl_ScanEntry *entries;
211 IrTcl_Diagnostic *nonSurrogateDiagnosticList;
212 int nonSurrogateDiagnosticNum;
215 struct ir_named_entry {
220 int ir_tcl_get_marc (Tcl_Interp *interp, const char *buf,
221 int argc, char **argv);
222 char *ir_tcl_fread_marc (FILE *inf, size_t *size);