2 * Copyright (C) 1994-1995, Index Data I/S
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.7 1995-09-27 16:17:32 adam
8 * More work on retrieve.
10 * Revision 1.6 1995/09/08 08:53:22 adam
11 * Record buffer maintained in server_info.
13 * Revision 1.5 1995/09/06 16:11:18 adam
14 * Option: only one word key per file.
16 * Revision 1.4 1995/09/06 10:33:04 adam
17 * More work on present. Some log messages removed.
19 * Revision 1.3 1995/09/05 15:28:40 adam
20 * More work on search engine.
22 * Revision 1.2 1995/09/04 12:33:43 adam
23 * Various cleanup. YAZ util used instead.
25 * Revision 1.1 1995/09/04 09:10:41 adam
26 * More work on index add/del/update.
27 * Merge sort implemented.
28 * Initial work on z39 server.
41 ZServerInfo server_info;
43 bend_initresult *bend_init (bend_initrequest *q)
45 static bend_initresult r;
46 static char *name = "zserver";
52 server_info.sets = NULL;
53 if (!(server_info.sys_idx_fd = open (FNAME_SYS_IDX, O_RDONLY)))
56 r.errstring = "dict_open fail: filedict";
59 if (!(server_info.fileDict = dict_open (FNAME_FILE_DICT, 10, 0)))
62 r.errstring = "dict_open fail: filedict";
65 if (!(server_info.wordDict = dict_open (FNAME_WORD_DICT, 40, 0)))
67 dict_close (server_info.fileDict);
69 r.errstring = "dict_open fail: worddict";
72 if (!(server_info.wordIsam = is_open (FNAME_WORD_ISAM, key_compare, 0,
73 sizeof (struct it_key))))
75 dict_close (server_info.wordDict);
76 dict_close (server_info.fileDict);
78 r.errstring = "is_open fail: wordisam";
81 server_info.recordBuf = NULL;
85 bend_searchresult *bend_search (void *handle, bend_searchrequest *q, int *fd)
87 static bend_searchresult r;
93 switch (q->query->which)
96 r.errcode = rpn_search (&server_info, q->query->u.type_1,
97 q->num_bases, q->basenames, q->setname,
106 bend_fetchresult *bend_fetch (void *handle, bend_fetchrequest *q, int *num)
108 static bend_fetchresult r;
110 ZServerSetSysno *records;
116 xfree (server_info.recordBuf);
117 server_info.recordBuf = NULL;
118 positions[0] = q->number;
119 records = resultSetSysnoGet (&server_info, q->setname, 1, positions);
122 logf (LOG_DEBUG, "resultSetRecordGet, error");
126 if (!records[0].sysno)
129 logf (LOG_DEBUG, "Out of range. pos=%d", q->number);
133 r.len = records[0].size;
134 server_info.recordBuf = r.record = xmalloc (r.len+1);
135 strcpy (r.record, records[0].buf);
136 resultSetRecordDel (&server_info, records, 1);
137 r.format = VAL_SUTRS;
143 bend_deleteresult *bend_delete (void *handle, bend_deleterequest *q, int *num)
148 bend_scanresult *bend_scan (void *handle, bend_scanrequest *q, int *num)
150 static struct scan_entry list[200];
151 static char buf[200][200];
152 static bend_scanresult r;
155 r.term_position = q->term_position;
156 r.num_entries = q->num_entries;
158 for (i = 0; i < r.num_entries; i++)
160 list[i].term = buf[i];
161 sprintf(list[i].term, "term-%d", i+1);
162 list[i].occurrences = rand() % 100000;
169 void bend_close (void *handle)
171 dict_close (server_info.fileDict);
172 dict_close (server_info.wordDict);
173 is_close (server_info.wordIsam);
174 close (server_info.sys_idx_fd);
175 xfree (server_info.recordBuf);
176 server_info.recordBuf = NULL;
180 int main (int argc, char **argv)
182 char *base_name = "base";
184 if (!(common_resource = res_open (base_name)))
186 logf (LOG_FATAL, "Cannot open resource `%s'", base_name);
189 return statserv_main (argc, argv);