Fix bug in sortIdx_type so that it returns error always
[idzebra-moved-to-github.git] / index / trav.c
1 /*
2  * Copyright (C) 1994-1999, Index Data
3  * All rights reserved.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Log: trav.c,v $
7  * Revision 1.36  1999-05-15 14:36:38  adam
8  * Updated dictionary. Implemented "compression" of dictionary.
9  *
10  * Revision 1.35  1999/02/02 14:51:09  adam
11  * Updated WIN32 code specific sections. Changed header.
12  *
13  * Revision 1.34  1998/06/08 14:43:14  adam
14  * Added suport for EXPLAIN Proxy servers - added settings databasePath
15  * and explainDatabase to facilitate this. Increased maximum number
16  * of databases and attributes in one register.
17  *
18  * Revision 1.33  1998/01/12 15:04:08  adam
19  * The test option (-s) only uses read-lock (and not write lock).
20  *
21  * Revision 1.32  1997/09/25 14:56:51  adam
22  * Windows NT interface code to the stat call.
23  *
24  * Revision 1.31  1997/09/17 12:19:17  adam
25  * Zebra version corresponds to YAZ version 1.4.
26  * Changed Zebra server so that it doesn't depend on global common_resource.
27  *
28  * Revision 1.30  1997/09/09 13:38:09  adam
29  * Partial port to WIN95/NT.
30  *
31  * Revision 1.29  1997/02/12 20:39:47  adam
32  * Implemented options -f <n> that limits the log to the first <n>
33  * records.
34  * Changed some log messages also.
35  *
36  * Revision 1.28  1996/11/01 08:58:44  adam
37  * Interface to isamc system now includes update and delete.
38  *
39  * Revision 1.27  1996/10/29 14:06:56  adam
40  * Include zebrautl.h instead of alexutil.h.
41  *
42  * Revision 1.26  1996/06/04 10:19:01  adam
43  * Minor changes - removed include of ctype.h.
44  *
45  * Revision 1.25  1996/05/01  13:46:37  adam
46  * First work on multiple records in one file.
47  * New option, -offset, to the "unread" command in the filter module.
48  *
49  * Revision 1.24  1996/04/26  10:00:23  adam
50  * Added option -V to zebraidx to display version information.
51  * Removed stupid warnings from file update.
52  *
53  * Revision 1.23  1996/04/12  07:02:25  adam
54  * File update of single files.
55  *
56  * Revision 1.22  1996/04/09 06:50:50  adam
57  * Bug fix: bad reference in function fileUpdateR.
58  *
59  * Revision 1.21  1996/03/22 15:34:18  quinn
60  * Fixed bad reference
61  *
62  * Revision 1.20  1996/03/21  14:50:10  adam
63  * File update uses modify-time instead of change-time.
64  *
65  * Revision 1.19  1996/03/20  16:16:55  quinn
66  * Added diagnostic output
67  *
68  * Revision 1.18  1996/03/19  12:43:27  adam
69  * Bug fix: File update traversal didn't handle trailing slashes correctly.
70  * Bug fix: Update of sub directory groups wasn't handled correctly.
71  *
72  * Revision 1.17  1996/02/12  18:45:17  adam
73  * Changed naming of some functions.
74  *
75  * Revision 1.16  1996/02/05  12:30:02  adam
76  * Logging reduced a bit.
77  * The remaining running time is estimated during register merge.
78  *
79  * Revision 1.15  1995/12/07  17:38:48  adam
80  * Work locking mechanisms for concurrent updates/commit.
81  *
82  * Revision 1.14  1995/12/06  12:41:26  adam
83  * New command 'stat' for the index program.
84  * Filenames can be read from stdin by specifying '-'.
85  * Bug fix/enhancement of the transformation from terms to regular
86  * expressons in the search engine.
87  *
88  * Revision 1.13  1995/11/28  09:09:46  adam
89  * Zebra config renamed.
90  * Use setting 'recordId' to identify record now.
91  * Bug fix in recindex.c: rec_release_blocks was invokeded even
92  * though the blocks were already released.
93  * File traversal properly deletes records when needed.
94  *
95  * Revision 1.12  1995/11/24  11:31:37  adam
96  * Commands add & del read filenames from stdin if source directory is
97  * empty.
98  * Match criteria supports 'constant' strings.
99  *
100  * Revision 1.11  1995/11/22  17:19:19  adam
101  * Record management uses the bfile system.
102  *
103  * Revision 1.10  1995/11/21  15:01:16  adam
104  * New general match criteria implemented.
105  * New feature: document groups.
106  *
107  * Revision 1.9  1995/11/21  09:20:32  adam
108  * Yet more work on record match.
109  *
110  * Revision 1.8  1995/11/20  16:59:46  adam
111  * New update method: the 'old' keys are saved for each records.
112  *
113  * Revision 1.7  1995/11/20  11:56:28  adam
114  * Work on new traversal.
115  *
116  * Revision 1.6  1995/11/17  15:54:42  adam
117  * Started work on virtual directory structure.
118  *
119  * Revision 1.5  1995/10/17  18:02:09  adam
120  * New feature: databases. Implemented as prefix to words in dictionary.
121  *
122  * Revision 1.4  1995/09/28  09:19:46  adam
123  * xfree/xmalloc used everywhere.
124  * Extract/retrieve method seems to work for text records.
125  *
126  * Revision 1.3  1995/09/06  16:11:18  adam
127  * Option: only one word key per file.
128  *
129  * Revision 1.2  1995/09/04  12:33:43  adam
130  * Various cleanup. YAZ util used instead.
131  *
132  * Revision 1.1  1995/09/01  14:06:36  adam
133  * Split of work into more files.
134  *
135  */
136
137
138 #include <stdio.h>
139 #include <assert.h>
140 #include <sys/types.h>
141 #include <sys/stat.h>
142 #ifdef WIN32
143 #include <io.h>
144 #define S_ISREG(x) (x & _S_IFREG)
145 #define S_ISDIR(x) (x & _S_IFDIR)
146 #else
147 #include <unistd.h>
148 #endif
149 #include <direntz.h>
150 #include <fcntl.h>
151 #include <time.h>
152
153 #include "index.h"
154
155 static int repComp (const char *a, const char *b, size_t len)
156 {
157     if (!len)
158         return 0;
159     return memcmp (a, b, len);
160 }
161
162 static void repositoryExtractR (int deleteFlag, char *rep,
163                                 struct recordGroup *rGroup,
164                                 int level)
165 {
166     struct dir_entry *e;
167     int i;
168     size_t rep_len = strlen (rep);
169
170     e = dir_open (rep);
171     if (!e)
172         return;
173     logf (LOG_LOG, "dir %s", rep);
174     if (rep[rep_len-1] != '/')
175         rep[rep_len] = '/';
176     else
177         --rep_len;
178     
179     for (i=0; e[i].name; i++)
180     {
181         char *ecp;
182         strcpy (rep +rep_len+1, e[i].name);
183         if ((ecp = strrchr (e[i].name, '/')))
184             *ecp = '\0';
185         if (level == 0 && rGroup->databaseNamePath)
186             rGroup->databaseName = e[i].name;
187
188         switch (e[i].kind)
189         {
190         case dirs_file:
191             fileExtract (NULL, rep, rGroup, deleteFlag);
192             break;
193         case dirs_dir:
194             repositoryExtractR (deleteFlag, rep, rGroup, level+1);
195             break;
196         }
197     }
198     dir_free (&e);
199
200 }
201
202 static void fileDeleteR (struct dirs_info *di, struct dirs_entry *dst,
203                                const char *base, char *src,
204                                struct recordGroup *rGroup)
205 {
206     char tmppath[1024];
207     size_t src_len = strlen (src);
208
209     while (dst && !repComp (dst->path, src, src_len+1))
210     {
211         switch (dst->kind)
212         {
213         case dirs_file:
214             sprintf (tmppath, "%s%s", base, dst->path);
215             fileExtract (&dst->sysno, tmppath, rGroup, 1);
216              
217             strcpy (tmppath, dst->path);
218             dst = dirs_read (di); 
219             dirs_del (di, tmppath);
220             break;
221         case dirs_dir:
222             strcpy (tmppath, dst->path);
223             dst = dirs_read (di);
224             dirs_rmdir (di, tmppath);
225             break;
226         default:
227             dst = dirs_read (di);
228         }
229     }
230 }
231
232 static void fileUpdateR (struct dirs_info *di, struct dirs_entry *dst,
233                          const char *base, char *src, 
234                          struct recordGroup *rGroup,
235                          int level)
236 {
237     struct dir_entry *e_src;
238     int i_src = 0;
239     static char tmppath[1024];
240     size_t src_len = strlen (src);
241
242     sprintf (tmppath, "%s%s", base, src);
243     e_src = dir_open (tmppath);
244     logf (LOG_LOG, "dir %s", tmppath);
245
246 #if 0
247     if (!dst || repComp (dst->path, src, src_len))
248 #else
249     if (!dst || strcmp (dst->path, src))
250 #endif
251     {
252         if (!e_src)
253             return;
254
255         if (src_len && src[src_len-1] != '/')
256         {
257             src[src_len] = '/';
258             src[++src_len] = '\0';
259         }
260         dirs_mkdir (di, src, 0);
261         if (dst && repComp (dst->path, src, src_len))
262             dst = NULL;
263     }
264     else if (!e_src)
265     {
266         strcpy (src, dst->path);
267         fileDeleteR (di, dst, base, src, rGroup);
268         return;
269     }
270     else
271     {
272         if (src_len && src[src_len-1] != '/')
273         {
274             src[src_len] = '/';
275             src[++src_len] = '\0';
276         }
277         dst = dirs_read (di); 
278     }
279     dir_sort (e_src);
280
281     while (1)
282     {
283         int sd;
284
285         if (dst && !repComp (dst->path, src, src_len))
286         {
287             if (e_src[i_src].name)
288             {
289                 logf (LOG_DEBUG, "dst=%s src=%s", dst->path + src_len,
290                       e_src[i_src].name);
291                 sd = strcmp (dst->path + src_len, e_src[i_src].name);
292             }
293             else
294                 sd = -1;
295         }
296         else if (e_src[i_src].name)
297             sd = 1;
298         else
299             break;
300         logf (LOG_DEBUG, "trav sd=%d", sd);
301
302         if (level == 0 && rGroup->databaseNamePath)
303             rGroup->databaseName = e_src[i_src].name;
304         if (sd == 0)
305         {
306             strcpy (src + src_len, e_src[i_src].name);
307             sprintf (tmppath, "%s%s", base, src);
308             
309             switch (e_src[i_src].kind)
310             {
311             case dirs_file:
312                 if (e_src[i_src].mtime > dst->mtime)
313                 {
314                     if (fileExtract (&dst->sysno, tmppath, rGroup, 0))
315                     {
316                         dirs_add (di, src, dst->sysno, e_src[i_src].mtime);
317                     }
318                     logf (LOG_DEBUG, "old: %s", ctime (&dst->mtime));
319                     logf (LOG_DEBUG, "new: %s", ctime (&e_src[i_src].mtime));
320                 }
321                 dst = dirs_read (di);
322                 break;
323             case dirs_dir:
324                 fileUpdateR (di, dst, base, src, rGroup, level+1);
325                 dst = dirs_last (di);
326                 logf (LOG_DEBUG, "last is %s", dst ? dst->path : "null");
327                 break;
328             default:
329                 dst = dirs_read (di); 
330             }
331             i_src++;
332         }
333         else if (sd > 0)
334         {
335             SYSNO sysno = 0;
336             strcpy (src + src_len, e_src[i_src].name);
337             sprintf (tmppath, "%s%s", base, src);
338
339             switch (e_src[i_src].kind)
340             {
341             case dirs_file:
342                 if (fileExtract (&sysno, tmppath, rGroup, 0))
343                     dirs_add (di, src, sysno, e_src[i_src].mtime);            
344                 break;
345             case dirs_dir:
346                 fileUpdateR (di, dst, base, src, rGroup, level+1);
347                 if (dst)
348                     dst = dirs_last (di);
349                 break;
350             }
351             i_src++;
352         }
353         else  /* sd < 0 */
354         {
355             strcpy (src, dst->path);
356             sprintf (tmppath, "%s%s", base, dst->path);
357
358             switch (dst->kind)
359             {
360             case dirs_file:
361                 fileExtract (&dst->sysno, tmppath, rGroup, 1);
362                 dirs_del (di, dst->path);
363                 dst = dirs_read (di);
364                 break;
365             case dirs_dir:
366                 fileDeleteR (di, dst, base, src, rGroup);
367                 dst = dirs_last (di);
368             }
369         }
370     }
371     dir_free (&e_src);
372 }
373
374 static void groupRes (struct recordGroup *rGroup)
375 {
376     char resStr[256];
377     char gPrefix[256];
378
379     if (!rGroup->groupName || !*rGroup->groupName)
380         *gPrefix = '\0';
381     else
382         sprintf (gPrefix, "%s.", rGroup->groupName);
383
384     sprintf (resStr, "%srecordId", gPrefix);
385     rGroup->recordId = res_get (common_resource, resStr);
386     sprintf (resStr, "%sdatabasePath", gPrefix);
387     rGroup->databaseNamePath =
388         atoi (res_get_def (common_resource, resStr, "0"));
389 }
390
391 void repositoryShow (struct recordGroup *rGroup)
392 {
393     char src[1024];
394     int src_len;
395     struct dirs_entry *dst;
396     Dict dict;
397     struct dirs_info *di;
398     
399     if (!(dict = dict_open (rGroup->bfs, FMATCH_DICT, 50, 0, 0)))
400     {
401         logf (LOG_FATAL, "dict_open fail of %s", FMATCH_DICT);
402         return;
403     }
404     
405     assert (rGroup->path);    
406     strcpy (src, rGroup->path);
407     src_len = strlen (src);
408     
409     if (src_len && src[src_len-1] != '/')
410     {
411         src[src_len] = '/';
412         src[++src_len] = '\0';
413     }
414     
415     di = dirs_open (dict, src, rGroup->flagRw);
416     
417     while ( (dst = dirs_read (di)) )
418         logf (LOG_LOG, "%s", dst->path);
419     dirs_free (&di);
420     dict_close (dict);
421 }
422
423 static void fileUpdate (Dict dict, struct recordGroup *rGroup,
424                         const char *path)
425 {
426     struct dirs_info *di;
427     struct stat sbuf;
428     char src[1024];
429     char dst[1024];
430     int src_len;
431
432     assert (path);
433     strcpy (src, path);
434     src_len = strlen (src);
435
436     stat (src, &sbuf);
437     if (S_ISREG(sbuf.st_mode))
438     {
439         struct dirs_entry *e_dst;
440         di = dirs_fopen (dict, src);
441
442         e_dst = dirs_read (di);
443         if (e_dst)
444         {
445             if (sbuf.st_mtime > e_dst->mtime)
446                 if (fileExtract (&e_dst->sysno, src, rGroup, 0))
447                     dirs_add (di, src, e_dst->sysno, sbuf.st_mtime);
448         }
449         else
450         {
451             SYSNO sysno = 0;
452             if (fileExtract (&sysno, src, rGroup, 0))
453                  dirs_add (di, src, sysno, sbuf.st_mtime);
454         }
455         dirs_free (&di);
456     }
457     else if (S_ISDIR(sbuf.st_mode))
458     {
459         if (src_len && src[src_len-1] != '/')
460         {
461             src[src_len] = '/';
462             src[++src_len] = '\0';
463         }
464         di = dirs_open (dict, src, rGroup->flagRw);
465         *dst = '\0';
466         fileUpdateR (di, dirs_read (di), src, dst, rGroup, 0);
467         dirs_free (&di);
468     }
469     else
470     {
471         logf (LOG_WARN, "Ignoring path %s", src);
472     }
473 }
474
475
476 static void repositoryExtract (int deleteFlag, struct recordGroup *rGroup,
477                                const char *path)
478 {
479     struct stat sbuf;
480     char src[1024];
481
482     assert (path);
483     strcpy (src, path);
484
485     stat (src, &sbuf);
486     if (S_ISREG(sbuf.st_mode))
487         fileExtract (NULL, src, rGroup, deleteFlag);
488     else if (S_ISDIR(sbuf.st_mode))
489         repositoryExtractR (deleteFlag, src, rGroup, 0);
490     else
491         logf (LOG_WARN, "Ignoring path %s", src);
492 }
493
494 static void repositoryExtractG (int deleteFlag, struct recordGroup *rGroup)
495 {
496     if (*rGroup->path == '\0' || !strcmp(rGroup->path, "-"))
497     {
498         char src[1024];
499
500         while (scanf ("%s", src) == 1)
501             repositoryExtract (deleteFlag, rGroup, src);
502     }
503     else
504         repositoryExtract (deleteFlag, rGroup, rGroup->path);
505 }
506
507 void repositoryUpdate (struct recordGroup *rGroup)
508 {
509     groupRes (rGroup);
510     assert (rGroup->path);
511     if (rGroup->recordId && !strcmp (rGroup->recordId, "file"))
512     {
513         Dict dict;
514         if (!(dict = dict_open (rGroup->bfs, FMATCH_DICT, 50,
515                                 rGroup->flagRw, 0)))
516         {
517             logf (LOG_FATAL, "dict_open fail of %s", FMATCH_DICT);
518             return ;
519         }
520         if (*rGroup->path == '\0' || !strcmp(rGroup->path, "-"))
521         {
522             char src[1024];
523             while (scanf ("%s", src) == 1)
524                 fileUpdate (dict, rGroup, src);
525         }
526         else
527             fileUpdate (dict, rGroup, rGroup->path);
528         dict_close (dict);
529     }
530     else 
531         repositoryExtractG (0, rGroup);
532 }
533
534 void repositoryDelete (struct recordGroup *rGroup)
535 {
536     repositoryExtractG (1, rGroup);
537 }
538