home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2954 < prev    next >
Encoding:
Internet Message Format  |  1991-03-04  |  45.2 KB
  1. From: lee@sq.sq.com (Liam R. E. Quin)
  2. Newsgroups: alt.sources
  3. Subject: lq-text Full Text Retrieval Database Part 06/13
  4. Message-ID: <1991Mar4.020500.16494@sq.sq.com>
  5. Date: 4 Mar 91 02:05:00 GMT
  6.  
  7. : cut here --- cut here --
  8. : To unbundle, sh this file
  9. #! /bin/sh
  10. : part 06
  11. echo x - lq-text/src/liblqtext/progname.c 1>&2
  12. sed 's/^X//' >lq-text/src/liblqtext/progname.c <<'@@@End of lq-text/src/liblqtext/progname.c'
  13. X/* progname.c -- Copyright 1989 Liam R. Quin.  All Rights Reserved.
  14. X * This code is NOT in the public domain.
  15. X * See the file COPYRIGHT for full details.
  16. X * This file simply declares progname.
  17. X * This variable MUST be set by main().
  18. X */
  19. X
  20. Xchar *progname = (char *) 0;
  21. X
  22. X/* $Id: progname.c,v 1.2 90/10/06 00:12:19 lee Rel1-10 $
  23. X *
  24. X * $Log:    progname.c,v $
  25. X * Revision 1.2  90/10/06  00:12:19  lee
  26. X * Prepared for first beta release.
  27. X * 
  28. X * Revision 1.1  90/03/24  17:07:22  lee
  29. X * Initial revision
  30. X * 
  31. X *
  32. X */
  33. @@@End of lq-text/src/liblqtext/progname.c
  34. echo x - lq-text/src/liblqtext/smalldb.c 1>&2
  35. sed 's/^X//' >lq-text/src/liblqtext/smalldb.c <<'@@@End of lq-text/src/liblqtext/smalldb.c'
  36. X/* smalldb.c -- Copyright 1989 Liam R. Quin.  All Rights Reserved.
  37. X * This code is NOT in the public domain.
  38. X * See the file COPYRIGHT for full details.
  39. X */
  40. X
  41. X/* Simple interface to start and end dbm.
  42. X * You may also need to supply dbm_store() and dbm_fetch(), but these
  43. X * should certainly be macros.
  44. X *
  45. X * $Id: smalldb.c,v 1.5 91/03/03 00:15:22 lee Rel1-10 $
  46. X *
  47. X * $Log:    smalldb.c,v $
  48. X * Revision 1.5  91/03/03  00:15:22  lee
  49. X * Improved an error message and fixed a permissions bug.
  50. X * 
  51. X * Revision 1.4  91/03/02  18:52:48  lee
  52. X * Default access is now read only -- lqWriteAccess must be called otherwise.
  53. X * 
  54. X * Revision 1.3  90/10/06  00:12:20  lee
  55. X * Prepared for first beta release.
  56. X * 
  57. X * Revision 1.2  90/09/20  17:53:26  lee
  58. X * slight error reporting improvement.
  59. X * 
  60. X * Revision 1.1  90/08/09  19:16:56  lee
  61. X * Initial revision
  62. X * 
  63. X * Revision 2.2  89/10/08  20:47:14  lee
  64. X * Working version of nx-text engine.  Addfile and wordinfo work OK.
  65. X * 
  66. X * Revision 2.1  89/10/02  01:15:55  lee
  67. X * New index format, with Block/WordInBlock/Flags/BytesSkipped info.
  68. X * 
  69. X * Revision 1.2  89/09/16  21:18:39  lee
  70. X * First demonstratable version.
  71. X * 
  72. X * Revision 1.1  89/09/07  21:06:11  lee
  73. X * Initial revision
  74. X * 
  75. X *
  76. X */
  77. X
  78. X#include "globals.h"
  79. X
  80. X#include <stdio.h>
  81. X
  82. X#include <fcntl.h>
  83. X#ifdef BSD
  84. X# include <sys/param.h>
  85. X# define PATH_MAX MAXPATHLEN /* untested, sorry */
  86. X#else /*!BSD*/
  87. X# include <limits.h> /* for PATH_MAX */
  88. X#endif
  89. X#include "smalldb.h"
  90. X#include "emalloc.h"
  91. X
  92. Xextern int strcmp();
  93. Xextern char *strcpy();
  94. X
  95. X/* The physical database for the list of words, and for the list
  96. X * of files, uses ndbm.
  97. X * The advantage of this is that it takes only two file system accesses
  98. X * to retrieve any data item (honest!).
  99. X * It's also reasonably fast at insertion.
  100. X * One disadvantage is that it doesn't cope if too many words have the
  101. X * same (32-bit) hash function, although publicly available replacements
  102. X * such as the GNU project's gdbm fix this.
  103. X *
  104. X * Since starting the database is expensive (two opens and a malloc),
  105. X * I have a cache of DBM pointers and keep them open.  Versions of the
  106. X * dbm routines that don't support more than one database will have to
  107. X * have a cache-size of one!
  108. X * I am not sure what the impact of this would be on performance; for
  109. X * adding a new file it shouldn't be too bad, as the file list is examined
  110. X * only once for each file, during reading, and the word database is looked
  111. X * at (at least once for each distinct word) only on writing.
  112. X * For retrieval, however, the word database will be looked at for each
  113. X * word in the query, and the file database for (potentially) each match
  114. X * of each word, so the requests will be more interspersed.
  115. X * Under no circumstances is it acceptable to dispense with the cache, as
  116. X * otherwise you will be doing (literally) thousands of calls to
  117. X * open() and close() per second!
  118. X *
  119. X */
  120. X
  121. X#undef startdb
  122. X
  123. X#ifndef CACHE
  124. X/* It's unusual to deal with lots of databases at once, so let's not
  125. X * waste RAM...
  126. X */
  127. X# define CACHE 3
  128. X#endif
  129. X
  130. Xstatic char NameCache[CACHE][PATH_MAX + 1]; /* + 1 for \0, I think */
  131. Xstatic DBM *Cache[CACHE]; /* (set to zero by definition) */
  132. X
  133. Xstatic int MaxInCache = (-1);
  134. X
  135. X/* FileFlags and Mode are passed to dbm_open */
  136. Xstatic int FileFlags = O_RDONLY;
  137. Xstatic int FileModes = 0;
  138. X
  139. Xvoid
  140. XlqWriteAccess()
  141. X{
  142. X    FileFlags = O_RDWR|O_CREAT;
  143. X    FileModes = 0664; /* owner and group write, others read only */
  144. X}
  145. X
  146. XDBM *
  147. Xstartdb(FilePrefix)
  148. X    char *FilePrefix;
  149. X{
  150. X    extern int errno;
  151. X    register int i;
  152. X
  153. X    for (i = 0; i <= MaxInCache; i++) {
  154. X    if (Cache[i] && STREQ(NameCache[i], FilePrefix)) {
  155. X        return Cache[i];
  156. X    }
  157. X    }
  158. X
  159. X    /* Find an empty slot */
  160. X    for (i = 0; i <= MaxInCache; i++) {
  161. X    if (Cache[i] == (DBM *) 0) break;
  162. X    }
  163. X
  164. X    if (i > MaxInCache) {
  165. X    if (i >= CACHE) i = 0;
  166. X    }
  167. X
  168. X    if (Cache[i]) dbm_close(Cache[i]);
  169. X    NameCache[i][0] = '\0';
  170. X
  171. X    errno = 0;
  172. X
  173. X    if ((Cache[i] = dbm_open(FilePrefix, FileFlags, FileModes)) == (DBM *)0) {
  174. X    int e = errno;
  175. X    (void) fprintf(stderr, "%s: dbm_open error %d: ", progname, errno);
  176. X    errno = e;
  177. X    perror(FilePrefix);
  178. X    exit(1);
  179. X    }
  180. X    (void) strcpy(NameCache[i], FilePrefix);
  181. X    if (i > MaxInCache) MaxInCache = i;
  182. X
  183. X    return Cache[i];
  184. X}
  185. X
  186. X#undef enddb
  187. X
  188. X/*ARGSUSED*/
  189. Xvoid
  190. Xenddb(db)
  191. X    DBM *db;
  192. X{
  193. X    /* no-op */
  194. X}
  195. X
  196. Xvoid
  197. Xcleanupdb()
  198. X{
  199. X    register int i;
  200. X
  201. X    for (i = 0; i <= MaxInCache; i++) {
  202. X    if (Cache[i]) dbm_close(Cache[i]);
  203. X    Cache[i] = (DBM *) 0;
  204. X    NameCache[i][0] = '\0';
  205. X    }
  206. X}
  207. @@@End of lq-text/src/liblqtext/smalldb.c
  208. echo x - lq-text/src/liblqtext/system.c 1>&2
  209. sed 's/^X//' >lq-text/src/liblqtext/system.c <<'@@@End of lq-text/src/liblqtext/system.c'
  210. X/* system.c -- Copyright 1989 Liam R. Quin.  All Rights Reserved.
  211. X * This code is NOT in the public domain.
  212. X * See the file COPYRIGHT for full details.
  213. X *
  214. X * This is not a very portable way of doing things... and certainly not
  215. X * a very fast one.  MUST be re-written.
  216. X * Only for use from within curses.
  217. X *
  218. X * Lee
  219. X *
  220. X * $Id: system.c,v 1.3 90/10/06 00:21:37 lee Rel1-10 $
  221. X */
  222. X
  223. X#ifdef ultrix
  224. X# include <cursesX.h>
  225. X#else
  226. X# include <curses.h>
  227. X#endif
  228. X
  229. X#ifndef echo
  230. Xextern int echo();
  231. X#endif
  232. X#ifndef wmove
  233. Xextern int wmove();
  234. X#endif
  235. X#ifndef nl
  236. Xextern int nl();
  237. X#endif
  238. X#ifndef noecho
  239. Xextern int noecho();
  240. X#endif
  241. X#ifndef nonl
  242. Xextern int nonl();
  243. X#endif
  244. X#ifndef wrefresh
  245. Xextern int wrefresh();
  246. X#endif
  247. X#ifndef waddstr
  248. Xextern int waddstr();
  249. X#endif
  250. X#ifndef wclear
  251. Xextern int wclear();
  252. X#endif
  253. X
  254. Xint
  255. XMySystem(string)
  256. X    char *string;
  257. X{
  258. X    int val;
  259. X
  260. X    clearok(stdscr, TRUE);
  261. X    clear();
  262. X    refresh();
  263. X    noraw();
  264. X    echo();
  265. X    nl();
  266. X    val = system("stty opost icanon onlcr icrnl echo");
  267. X    (void) system(string);
  268. X    fprintf(stderr, "\n[press  return  to continue] ");
  269. X    raw();
  270. X    noecho();
  271. X    nonl();
  272. X    (void) getch();
  273. X    clearok(stdscr, TRUE);
  274. X    mvwaddstr(stdscr, 10, 10, "                        "); /* ???!?? */
  275. X
  276. X    return val;
  277. X}
  278. X
  279. @@@End of lq-text/src/liblqtext/system.c
  280. echo x - lq-text/src/lqtext/FindCommon.sh 1>&2
  281. sed 's/^X//' >lq-text/src/lqtext/FindCommon.sh <<'@@@End of lq-text/src/lqtext/FindCommon.sh'
  282. X:
  283. X# FindCommon -- Copyright 1990 Liam R. Quin.  All Rights Reserved.
  284. X# This code is NOT in the public domain.
  285. X# See the file COPYRIGHT for full details.
  286. X#
  287. X# $Id: FindCommon.sh,v 1.2 90/10/06 00:50:31 lee Rel1-10 $
  288. X
  289. X# Find the most common words in the database.
  290. X# usage is % n, where n is the n most comon words to find
  291. X
  292. Xlqword -a | sed -e 's/^......................\(.........\)..\(..*\)$/\1    \2/' |
  293. Xsort -nr | sed ${1-500}q
  294. X
  295. Xexit $?
  296. X
  297. X#         1 |       0 |       2 | pcpaintbrush
  298. X#         2 |       0 |       2 | escape
  299. X#         3 |       0 |       1 | durham
  300. X#         4 |   60928 |      12 | making
  301. X#         5 |       0 |       1 | ethical
  302. X#         6 |       0 |       1 | committing
  303. X
  304. X# $Log:    FindCommon.sh,v $
  305. X# Revision 1.2  90/10/06  00:50:31  lee
  306. X# Prepared for first beta release.
  307. X# 
  308. X#
  309. @@@End of lq-text/src/lqtext/FindCommon.sh
  310. echo x - lq-text/src/lqtext/Makefile 1>&2
  311. sed 's/^X//' >lq-text/src/lqtext/Makefile <<'@@@End of lq-text/src/lqtext/Makefile'
  312. X# Makefile for LQ-Text, a full text retrieval package by Liam R. Quin
  313. X# This Makefile belongs in the "src/lqtext" directory.
  314. X#
  315. X# Note that most of the actual configuration is done in ../Makefile and
  316. X# in ../h/global.h, and not here.
  317. X
  318. X# Makefile -- Copyright 1990 Liam R. Quin.  All Rights Reserved.
  319. X# This code is NOT in the public domain.
  320. X# See the file ../COPYRIGHT for full details.
  321. X#
  322. X# $Id: Makefile,v 1.5 91/03/03 00:19:26 lee Rel1-10 $
  323. X
  324. X
  325. XPWD=lqtext
  326. X
  327. XTARGETS = lqaddfile lqfile lqword lqphrase lqshow lqkwik lq
  328. XBINFILES =lqaddfile lqfile lqword lqshow lqphrase lqkwik
  329. X
  330. XDESTDIR=../bin
  331. XMODE=755
  332. XRANLIB=echo
  333. X
  334. XEXTRA=-I../h
  335. X
  336. Xall: $(TARGETS)
  337. X
  338. X# for ndbm (simplest), leave empty or use -lndbm if you need it
  339. X# for sdbm (best so far), use ../lib/libsdbm.a
  340. X# for gdbm... well, I dunno.
  341. XDBMLIBS=../lib/libsdbm.a
  342. X# DBMLIBS=-lndbm
  343. X# DBMLIBS=ndbm.o bcopy.o
  344. X
  345. XTEXTLIB=../lib/liblqtext.a ../lib/liblq.a
  346. X
  347. X# The following are for "make depend" and for sabre to load...
  348. XDEPENDFILES = ReadAhead.c SixBit.c fileindex.c lqaddfile.c lqphrase.c \
  349. X          lqshow.c lqword.c sizes.c wordtable.c
  350. X
  351. X# MALLFILES=/usr/lib/debug/malloc.o /usr/lib/debug/mallocmap.o
  352. XMALLFILES = 
  353. X
  354. Xinstall: all
  355. X    for i in $(BINFILES); do cp "$$i" $(DESTDIR); \
  356. X    strip "$(DESTDIR)/$$i" ; \
  357. X    done ; \
  358. X    mv lq $(DESTDIR)/lq; chmod $(MODE) $(DESTDIR)/lq;
  359. X
  360. X.SUFFIXES: .c .o .src .obj
  361. X
  362. X.c.src:
  363. X    #load $(CFLAGS) $<
  364. X
  365. X.o.obj:
  366. X    #load $(CFLAGS) $<
  367. X
  368. X# If you are going to use saber on these, you should name the programs.
  369. Xsaber_src:
  370. X
  371. Xsaber_obj:
  372. X
  373. Xlq: lq.sh
  374. X    cp lq.sh lq
  375. X    chmod +x lq
  376. X
  377. Xlqshow: lqshow.o $(TEXTLIB)
  378. X    $(CC) $(CFLAGS) -o lqshow lqshow.o $(TEXTLIB) $(TERMCAP) $(DBMLIBS)
  379. X
  380. Xlqaddfile: lqaddfile.o wordtable.o $(TEXTLIB)
  381. X    $(CC) $(CFLAGS) -o lqaddfile lqaddfile.o wordtable.o \
  382. X            $(TEXTLIB) $(MALLOC) $(DBMLIBS) $(MALLFILES)
  383. X
  384. Xlqfile: fileindex.o $(TEXTLIB)
  385. X    $(CC) $(CFLAGS) -o lqfile fileindex.o $(TEXTLIB) $(MALLOC) $(DBMLIBS)
  386. X    
  387. Xlqword: lqword.o $(TEXTLIB)
  388. X    $(CC) $(CFLAGS) -o lqword lqword.o $(TEXTLIB) $(MALLOC) $(DBMLIBS)
  389. X
  390. Xlqkwik: lqkwik.o $(TEXTLIB)
  391. X    $(CC) $(CFLAGS) -o lqkwik lqkwik.o $(TEXTLIB) $(MALLOC) $(DBMLIBS)
  392. X
  393. Xlqphrase: lqphrase.o $(TEXTLIB)
  394. X    $(CC) $(CFLAGS) -o lqphrase lqphrase.o $(TEXTLIB) $(DBMLIBS)
  395. X
  396. Xlint: AddFile.Lint News.Lint FileInfo.Lint Phrase.Lint
  397. X
  398. Xtidy:
  399. X    /bin/rm -f *.o core
  400. X
  401. Xclean: tidy
  402. X    /bin/rm -f $(TARGETS) $(TEST)
  403. X
  404. Xdepend:
  405. X    mkdep $(CFLAGS) *.c
  406. X
  407. X#
  408. X# $Log:    Makefile,v $
  409. X# Revision 1.5  91/03/03  00:19:26  lee
  410. X# added lqkwik
  411. X# 
  412. X# Revision 1.4  90/10/06  00:50:42  lee
  413. X# Prepared for first beta release.
  414. X# 
  415. X# Revision 1.3  90/10/05  23:54:57  lee
  416. X# deleted mkdep output.
  417. X# 
  418. X# Revision 1.2  90/09/28  21:54:01  lee
  419. X# No longer uses OWNER.
  420. X# 
  421. X# Revision 1.1  90/08/09  19:17:39  lee
  422. X# Initial revision
  423. X# 
  424. X 
  425. X# DO NOT DELETE THIS LINE -- mkdep uses it.
  426. X# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY.
  427. X
  428. XSixBit.o: SixBit.c ../h/globals.h 
  429. XSixBit.o: ../h/wordrules.h
  430. Xfileindex.o: fileindex.c ../h/globals.h 
  431. Xfileindex.o: ../h/emalloc.h ../h/fileinfo.h
  432. Xlqaddfile.o: lqaddfile.c 
  433. Xlqaddfile.o: ../h/globals.h ../h/fileinfo.h ../h/emalloc.h
  434. Xlqaddfile.o: ../h/wordinfo.h ../h/pblock.h ../h/wordrules.h ../h/filter.h
  435. Xlqkwik.o: lqkwik.c ../h/globals.h ../h/fileinfo.h
  436. Xlqkwik.o: ../h/wordinfo.h ../h/pblock.h ../h/wordrules.h ../h/pblock.h
  437. Xlqkwik.o: ../h/emalloc.h
  438. Xlqphrase.o: lqphrase.c ../h/globals.h ../h/emalloc.h
  439. Xlqphrase.o: ../h/fileinfo.h ../h/wordinfo.h ../h/pblock.h ../h/pblock.h
  440. Xlqphrase.o: ../h/phrase.h
  441. Xlqshow.o: lqshow.c ../h/globals.h
  442. Xlqword.o: lqword.c ../h/globals.h 
  443. Xwordtable.o: wordtable.c ../h/globals.h
  444. X
  445. X# IF YOU PUT ANYTHING HERE IT WILL GO AWAY
  446. @@@End of lq-text/src/lqtext/Makefile
  447. echo x - lq-text/src/lqtext/ReadAhead.c 1>&2
  448. sed 's/^X//' >lq-text/src/lqtext/ReadAhead.c <<'@@@End of lq-text/src/lqtext/ReadAhead.c'
  449. @@@End of lq-text/src/lqtext/ReadAhead.c
  450. echo x - lq-text/src/lqtext/fileindex.c 1>&2
  451. sed 's/^X//' >lq-text/src/lqtext/fileindex.c <<'@@@End of lq-text/src/lqtext/fileindex.c'
  452. X/* fileindex.c -- Copyright 1989, 1990 Liam R. Quin.  All Rights Reserved.
  453. X * This code is NOT in the public domain.
  454. X * See the file COPYRIGHT for full details.
  455. X */
  456. X
  457. X/* A simple program to give information about one or more files about
  458. X * which information is stored in the NX-Text database.
  459. X *
  460. X * $Id: fileindex.c,v 1.4 91/03/02 18:56:53 lee Rel1-10 $
  461. X */
  462. X
  463. X#include "globals.h" /* defines and declarations for database filenames */
  464. X
  465. X#include <stdio.h>
  466. X#include <sys/types.h>
  467. X#include <malloc.h>
  468. X#include "emalloc.h"
  469. X#include "fileinfo.h"
  470. X
  471. Xstatic char *Revision = "@(#) lqtext 2.3 89/11/34";
  472. X
  473. X/* The position of the \n in the 26-char string returned by ctime(3): */
  474. X#define DATENEWLINE 24
  475. X
  476. Xchar *progname;
  477. Xint AsciiTrace = 0;
  478. X
  479. X/** System calls and library functions used in this file: **/
  480. X
  481. X/** Unix System calls: **/
  482. Xextern void exit();
  483. X/** System Library Functions: **/
  484. X
  485. X/** external lqtext functions: **/
  486. Xextern void cleanupdb(), SetDefaults();
  487. Xint SaveFileInfo(), GetFilterType();
  488. X#ifndef efree
  489. X extern void efree();
  490. X#endif
  491. X/** Functions defined within this file: **/
  492. Xvoid AddInfo(), AllInfo(), Display(), PrintInfo();
  493. X
  494. Xint AllFiles = 0;
  495. Xint ListMode = 0;
  496. Xint AddFiles = 0;
  497. X
  498. Xint
  499. Xmain(argc, argv)
  500. X    int argc;
  501. X    char *argv[];
  502. X{
  503. X    extern int optind, getopt();
  504. X    /** extern char *optarg; (unused at the moment) **/
  505. X    int ch;
  506. X    int ErrorFlag = 0;
  507. X
  508. X    progname = argv[0];
  509. X
  510. X    SetDefaults(argc, argv);
  511. X
  512. X    /* All programs take Zz:Vv */
  513. X    while ((ch = getopt(argc, argv, "Zz:VvAax")) != EOF) {
  514. X    switch (ch) {
  515. X    case 'z':
  516. X    case 'Z':
  517. X        break; /* done by SetDefaults(); */
  518. X    case 'V':
  519. X        fprintf(stderr, "%s version %s\n", progname, Revision);
  520. X        break;
  521. X    case 'v':
  522. X        AsciiTrace = 1;
  523. X        break;
  524. X    case 'A':
  525. X        AddFiles = 1;
  526. X        break;
  527. X    case 'a':
  528. X        AllFiles = 1;
  529. X        break;
  530. X    case 'l':
  531. X        ListMode = 1;
  532. X        break;
  533. X    case 'x':
  534. X        ErrorFlag = (-1);
  535. X        break;
  536. X    case '?':
  537. X        ErrorFlag = 1;
  538. X        break;
  539. X    }
  540. X    }
  541. X
  542. X    /* Normally put call to lrqError here to give a helpful message,
  543. X     * but not yet ready to ship the error handling package, sorry
  544. X     */
  545. X    if (ErrorFlag) {
  546. X    fprintf(stderr, "%s: usage: %s [options] [files]\n",progname,progname);
  547. X    fprintf(stderr, "%s: options are:\n", progname);
  548. X    fputs("\
  549. X    -c file -- treat the named file as a list of common words\n\
  550. X    -d dir    -- use the lq-text database in the directory \"dir\"\n\
  551. X    -l    -- list mode: no header output or lines drawn\n\
  552. X    -s    -- show the list of saved files\n\
  553. X    -t N    -- set trace level to N [default: 0]\n\
  554. X    -V    -- print version information\n\
  555. X    -v    -- be verbose (same as -t 1)\n\
  556. X    -x    -- print this explanation\n\
  557. X\n\
  558. XIn addition, if no files are given, the following are understood:\n\
  559. X    -A    -- add the named files to the list of known files\n\
  560. X    -a    -- list information about all files\n", stderr);
  561. X    exit((ErrorFlag > 0) ? 1 : 0);
  562. X    }
  563. X
  564. X    if (AllFiles && AddFiles) {
  565. X    fprintf(stderr, "%s: do not use both -a and -A options\n", progname);
  566. X    fprintf(stderr, "\tuse %s -x for further explanation.\n", progname);
  567. X    exit(1);
  568. X    }
  569. X
  570. X    if (optind >= argc && !AllFiles && !AddFiles) {
  571. X    fprintf(stderr,
  572. X    "%s: You must either give the -a option or specify files to list.\n",
  573. X        progname);
  574. X    fprintf(stderr, "\tuse %s -x for further explanation.\n", progname);
  575. X    exit(1);
  576. X    }
  577. X
  578. X    if (!AddFiles || !ListMode) {
  579. X    printf("%-7.7s | T | %-20.20s | %s\n",
  580. X        "FID", "Date Last indexed", "Current Location");
  581. X    puts(
  582. X"========|===|======================|=========================================="
  583. X    );
  584. X    }
  585. X    if (AllFiles) {
  586. X    AllInfo();
  587. X    } else {
  588. X    if (AddFiles) {
  589. X        extern lqWriteAccess();
  590. X
  591. X        lqWriteAccess();
  592. X    }
  593. X
  594. X    while (optind < argc) {
  595. X        if (AddFiles) {
  596. X        AddInfo(argv[optind++]);
  597. X        } else {
  598. X        PrintInfo(argv[optind++]); /* ugh */
  599. X        }
  600. X    }
  601. X    }
  602. X    cleanupdb(); /* close dbm files */
  603. X    exit(0);
  604. X    /*NOTREACHED*/
  605. X    return 1; /* for lint and gcc... */
  606. X}
  607. X
  608. Xvoid
  609. XPrintInfo(Name)
  610. X    char *Name;
  611. X{
  612. X    extern t_FileInfo *GetFileInfo();
  613. X    long FID;
  614. X    extern long atol();
  615. X    extern t_FID Name2FID();
  616. X
  617. X    t_FileInfo *FileInfo;
  618. X
  619. X    if ((FID = Name2FID(Name)) == (t_FID) 0) {
  620. X    fprintf(stderr, "No FID information for filename: %s\n", Name);
  621. X        if ((FID = atol(Name)) == (t_FID) 0) {
  622. X        return;
  623. X    }
  624. X    }
  625. X
  626. X    /* get info from the list */
  627. X    if ((FileInfo = GetFileInfo(FID)) == (t_FileInfo *) 0) {
  628. X    fprintf(stderr, "No index information for: %s\n", Name);
  629. X    return;
  630. X    }
  631. X    Display(FileInfo);
  632. X}
  633. X
  634. Xvoid
  635. XDisplay(FileInfo)
  636. X    t_FileInfo *FileInfo;
  637. X{
  638. X    extern char *ctime();
  639. X    char *DateString;
  640. X
  641. X    DateString = ctime(&(FileInfo->Date));
  642. X    DateString[DATENEWLINE] = '\0'; /* delete the trailing newline */
  643. X
  644. X    if (ListMode) {
  645. X    printf("%lu %d %s %s\n",
  646. X    FileInfo->FID, FileInfo->FilterType, &DateString[4], FileInfo->Name);
  647. X    } else {
  648. X    printf("%7lu | %d | %-20.20s | %s\n",
  649. X        FileInfo->FID, FileInfo->FilterType, &DateString[4], FileInfo->Name);
  650. X    }
  651. X}
  652. X
  653. X/**
  654. XMon Sep 25 23:58:53 BST 1989
  655. XFID     | T | Date Last indexed    | Current Location
  656. X========|===|======================|===========================================
  657. X      1 | 0 | Sep 25 20:31:26 1989 | /usr2/liam/Bible/NT/John/john01.kjv
  658. X      2 | 0 | Sep 25 20:31:28 1989 | /usr2/liam/Bible/NT/John/john02.kjv
  659. X      3 | 0 | Sep 25 20:31:30 1989 | /usr2/liam/Bible/NT/John/john03.kjv
  660. X**/
  661. X
  662. Xvoid
  663. XAllInfo()
  664. X{
  665. X    extern long GetMaxFID();
  666. X    extern t_FileInfo *GetFileInfo();
  667. X
  668. X    t_FileInfo *FileInfo;
  669. X    long FID;
  670. X    long MaxFid = GetMaxFID();
  671. X
  672. X    for (FID = 0L; FID <= MaxFid; FID++) {
  673. X    if ((FileInfo = GetFileInfo(FID)) != (t_FileInfo *) 0) {
  674. X        Display(FileInfo);
  675. X        efree(FileInfo); /* NOTDONE use destroyfileinfo() */
  676. X    }
  677. X    }
  678. X    printf("Max File Identifier is %lu\n", MaxFid);
  679. X}
  680. X
  681. Xvoid
  682. XAddInfo(FileName)
  683. X    char *FileName;
  684. X{
  685. X    extern time_t time();
  686. X    extern unsigned long GetNextFID();
  687. X    t_FileInfo FileInfo;
  688. X
  689. X    FileInfo.Name = FileName;
  690. X    (void) time(&(FileInfo.Date));
  691. X    FileInfo.FID = GetNextFID();
  692. X    FileInfo.Stream = 0; /* force GetFilterType to use open()? */
  693. X
  694. X    /* determine filter type */
  695. X    FileInfo.FilterType = GetFilterType(&FileInfo);
  696. X
  697. X    printf("%d %s (type %d) %s\n",
  698. X        FileInfo.FID,
  699. X        FileInfo.Name,
  700. X        FileInfo.FilterType,
  701. X        SaveFileInfo(&FileInfo) == 0 ?
  702. X                "saved successfully." :
  703. X                "not saved."
  704. X    );
  705. X}
  706. X
  707. X/*
  708. X * $Log:    fileindex.c,v $
  709. X * Revision 1.4  91/03/02  18:56:53  lee
  710. X * Now asks for write access iff [sic] necessary
  711. X * 
  712. X * Revision 1.3  90/10/06  00:50:50  lee
  713. X * Prepared for first beta release.
  714. X * 
  715. X * Revision 1.2  90/08/29  21:44:51  lee
  716. X * Alpha release
  717. X * 
  718. X * Revision 1.1  90/08/09  19:17:11  lee
  719. X * Initial revision
  720. X * 
  721. X * Revision 2.2  89/10/08  20:45:46  lee
  722. X * Working version of nx-text engine.  Addfile and wordinfo work OK.
  723. X * 
  724. X * Revision 2.1  89/10/02  01:14:18  lee
  725. X * New index format, with Block/WordInBlock/Flags/BytesSkipped info.
  726. X * 
  727. X * Revision 1.2  89/09/16  21:16:17  lee
  728. X * First demonstratable version.
  729. X * 
  730. X * Revision 1.1  89/09/07  21:05:55  lee
  731. X * Initial revision
  732. X *
  733. X */
  734. @@@End of lq-text/src/lqtext/fileindex.c
  735. echo x - lq-text/src/lqtext/intersect.sh 1>&2
  736. sed 's/^X//' >lq-text/src/lqtext/intersect.sh <<'@@@End of lq-text/src/lqtext/intersect.sh'
  737. X:
  738. X# intersect word-one word-two
  739. X#
  740. X# intersect -- Copyright 1990 Liam R. Quin.  All Rights Reserved.
  741. X# This code is NOT in the public domain.
  742. X# See the file ../COPYRIGHT for full details.
  743. X#
  744. X# $Id: intersect.sh,v 1.3 91/03/03 00:18:59 lee Rel1-10 $
  745. X#
  746. X
  747. X
  748. XFileNumber=0
  749. XFileList=
  750. XProgram=lqphrase
  751. XProgOpts=
  752. XAll=/tmp/iAll$$
  753. Xexport All
  754. X
  755. Xtrap '/bin/rm -f $All $tmp $First $FileList; exit' 0 1 2 3 15
  756. X
  757. Xif [ x"$1" = x"" ]
  758. Xthen
  759. X    echo "$0: Usage: `basename $0` {-w word} | {-p phrase} ..." 1>&2
  760. X    exit 1
  761. Xfi
  762. X
  763. X
  764. Xfor i
  765. Xdo
  766. X    if [ x"$i" = x"-p" ]
  767. X    then
  768. X    Program=lqphrase
  769. X    ProgOpts=
  770. X    elif [ x"$i" = x"-w" ]
  771. X    then
  772. X    Program=lqword
  773. X    ProgOpts=-l
  774. X    else
  775. X    tmp=/tmp/inter.$FileNumber
  776. X    $Program $ProgOpts "$i" | tee -a $ALL | awk '{ print $3 }' | sort -u > $tmp
  777. X    if [ x"$First" = x"" ]
  778. X    then
  779. X        First="$tmp"
  780. X    else
  781. X        FileList="$FileList $tmp"
  782. X    fi
  783. X    FileNumber=`expr $FileNumber + 1`
  784. X    fi
  785. Xdone
  786. X
  787. X# Find matches...
  788. Xtmp=/tmp/inter.tmp$$
  789. X
  790. Xfor i in $FileList
  791. Xdo
  792. X    fgrep -x -f $First $i | sort -u > $tmp
  793. X    mv $tmp $First
  794. Xdone
  795. X
  796. Xmv $First $tmp
  797. Xsed 's/^/ /' $tmp > $First
  798. X
  799. Xfgrep -f $First $All
  800. Xexit 0
  801. X
  802. X#
  803. X#
  804. X# $Log:    intersect.sh,v $
  805. X# Revision 1.3  91/03/03  00:18:59  lee
  806. X# brought up to date a little...
  807. X# 
  808. X# Revision 1.2  90/10/06  00:50:52  lee
  809. X# Prepared for first beta release.
  810. X# 
  811. X# Revision 1.1  90/08/29  21:45:01  lee
  812. X# Initial revision
  813. X# 
  814. X#
  815. X#
  816. @@@End of lq-text/src/lqtext/intersect.sh
  817. echo x - lq-text/src/lqtext/lq.sh 1>&2
  818. sed 's/^X//' >lq-text/src/lqtext/lq.sh <<'@@@End of lq-text/src/lqtext/lq.sh'
  819. X#! /bin/sh
  820. X: use /bin/sh
  821. X# put the : line first on System V
  822. X
  823. X# lq -- Copyright 1990 Liam R. Quin.  All Rights Reserved.
  824. X# This code is NOT in the public domain.
  825. X# See the file ../COPYRIGHT for full details.
  826. X#
  827. X# $Id: lq.sh,v 1.3 90/10/06 00:50:53 lee Rel1-10 $
  828. X#
  829. X
  830. Xif [ x"`echo -n hello`" = x'hello' ]
  831. Xthen
  832. X    N=-n
  833. X    C=
  834. Xelse
  835. X    N=
  836. X    C='\c'
  837. Xfi
  838. X
  839. Xquit=no
  840. Xt=/tmp/lq$$
  841. XListFile=/tmp/lqshow$$
  842. Xexport ListFile
  843. X
  844. Xtrap '/bin/rm -f $t; exit' 0 1 2 3 15
  845. X
  846. X
  847. Xwhile  [ x"$quit" != x"yes" ]
  848. Xdo
  849. X    cat << boy
  850. X| Type a words or phrases to find, one per line,
  851. X| and then press return.
  852. Xboy
  853. X    x='fhdjfd'
  854. X    Phrases=
  855. X    while [ x"$x" != x"" ]
  856. X    do
  857. X    echo $N "| $C"
  858. X    read x
  859. X    if [ x"$x" != x"" ]
  860. X    then
  861. X        New=`echo "$x" | sed 's/"/:/g'`
  862. X        Phrases="${Phrases} \"$x\""
  863. X    fi
  864. X    done
  865. X    echo $Phrases
  866. X    eval lqphrase -p $Phrases \> $t
  867. X    if [ ! -s $t ]
  868. X    then
  869. X    echo "No match"
  870. X    else
  871. X    # determine the order in which matches will be presented to the user:
  872. X    sort +2 -o "$t" "$t" # (this is our ranking function)
  873. X    # (it only makes a difference if there was more than one phrase)
  874. X
  875. X    # Now some arcanery, I'm afraid...  The trick is that lqshow can be
  876. X    # given the name of a file descriptor in which to save the names of
  877. X    # any files the user selects (with "s").
  878. X    old_t="$t"
  879. X    t="$t ${ListFile}"
  880. X    lqshow -o 3 -f $t 3>> ${ListFile}
  881. X    t="$old_t"
  882. X    if [ -s ${ListFile} ]
  883. X    then ## the user typed s/k/whatever to save some files...
  884. X        # make the list by interpreting the list file:
  885. X        LIST=`awk '
  886. X        /^#.*$/ { next }
  887. X        ($1 == "s") { SAVE[$2]++ }
  888. X        ($1 == "d") { SAVE[$2] = 0 }
  889. X        END {
  890. X        for (i in SAVE) {
  891. X            if (SAVE[i] > 0) print i
  892. X        }
  893. X        }' $ListFile | sort -u`
  894. X        # make a new list file...
  895. X        echo "$LIST" | sed '/^[     ]*$/d' > $ListFile
  896. X        LIST="" # save memory
  897. X    fi
  898. X    # now see if it's still non-empty...
  899. X    if [ -s ${ListFile} ]
  900. X    then
  901. X        List="Type S filename to save the list of files (s also quits) "
  902. X    else
  903. X        /bin/rm -f ${ListFile}
  904. X    fi
  905. X    fi
  906. X    echo $List
  907. X    echo $N "Type q to quit, or return to continue: $C"
  908. X    read quit rest
  909. X    case "$quit" in
  910. X    [qQ]*) quit="yes" ;;
  911. X    [sS]) # save the list of matches
  912. X    cat $ListFile
  913. X
  914. X    if [ ! -s "$ListFile" ]
  915. X    then
  916. X        echo "No files in the list to save."
  917. X        quit=no
  918. X    else
  919. X        if [ -z "$rest" ]
  920. X        then rest="lq.list"
  921. X        fi
  922. X
  923. X        if [ -f "$rest" ]
  924. X        then echo "Appending to existing file $rest"
  925. X        fi
  926. X
  927. X        cat $ListFile >> $rest
  928. X        rm $ListFile
  929. X        if [ x"$quit" = x"s" ]
  930. X        then quit=yes
  931. X        else quit=no
  932. X        fi
  933. X    fi
  934. X    ;;
  935. X    *)       quit=no ;;
  936. X    esac
  937. Xdone
  938. X
  939. X#
  940. X# $Log:    lq.sh,v $
  941. X# Revision 1.3  90/10/06  00:50:53  lee
  942. X# Prepared for first beta release.
  943. X# 
  944. X#
  945. X#
  946. @@@End of lq-text/src/lqtext/lq.sh
  947. echo x - lq-text/src/lqtext/lqaddfile.c 1>&2
  948. sed 's/^X//' >lq-text/src/lqtext/lqaddfile.c <<'@@@End of lq-text/src/lqtext/lqaddfile.c'
  949. X/* lqaddfile.c -- Copyright 1989, 1990 Liam R. Quin.  All Rights Reserved.
  950. X * This code is NOT in the public domain.
  951. X * See the file COPYRIGHT for full details.
  952. X */
  953. X
  954. X/* addfile -- add a file to the LQ-Text text retrieval index
  955. X * Liam Quin, August 1989 and later...
  956. X *
  957. X * $Id: lqaddfile.c,v 1.14 91/03/02 21:22:39 lee Rel1-10 $ 
  958. X */
  959. X
  960. Xstatic char *Version = "@(#) $Id: lqaddfile.c,v 1.14 91/03/02 21:22:39 lee Rel1-10 $";
  961. X
  962. X#ifdef SYSV
  963. Xextern int _filbuf(); /* used but not defined in stdio.h */
  964. X#endif
  965. X#include <stdio.h>
  966. X#include <malloc.h>
  967. X#include <ctype.h>
  968. X#include <sys/types.h>
  969. X#include <sys/stat.h>
  970. X#ifdef BSD
  971. X# include <strings.h>
  972. X#else
  973. X# include <string.h>
  974. X#endif
  975. X
  976. X#include "globals.h" /* defines and declarations for database filenames */
  977. X#include "fileinfo.h"
  978. X#include "wordinfo.h"
  979. X#include "wordrules.h"
  980. X#include "filter.h"
  981. X
  982. X#include "emalloc.h"
  983. X
  984. X#define enew(var, type) (var = (type *) emalloc(sizeof(type)))
  985. X
  986. X#ifdef SYSV
  987. X#define TOLOWER(ch) ch = tolower(ch)
  988. X#else
  989. X#define TOLOWER(ch) if (isupper(ch)) ch = tolower(ch)
  990. X#endif
  991. X
  992. Xvoid DestroyFileInfo(), SaveFileInfo(), AddStream(), AddFrom();
  993. Xextern lqWriteAccess(); /* Allow write access to the database */
  994. X/* Symbol Table Interface */
  995. Xextern void AddWord(), WriteCurrentMaxWID();
  996. Xextern void DumpCache(), cleanupdb();
  997. Xextern char *WordRoot();
  998. Xextern int TooCommon(), GetFilterType();
  999. Xint RealGetChar(), AddFile();
  1000. X
  1001. X/** System calls and library routines used in this file: **/
  1002. X/** System calls: **/
  1003. Xextern void exit();
  1004. Xextern int stat();
  1005. X/** Library Functions: **/
  1006. Xextern int atoi();
  1007. X#ifndef tolower
  1008. X extern int tolower();
  1009. X#endif
  1010. Xextern void perror();
  1011. X/**/
  1012. X
  1013. Xchar *progname = "@(#) : addfile.c,v 1.1 89/08/28 20:16:05 lee Locked $";
  1014. Xstatic int UseLineNumbers = 0;
  1015. X
  1016. X/* FROM pblock.c */
  1017. Xextern int AsciiTrace; /* provide increasingly verbose info if not zero */
  1018. X
  1019. Xstatic int LastChar = 0;
  1020. Xstatic int _chForLee = 0;
  1021. X
  1022. X#define GetChar(F) \
  1023. X    ( LastChar ? \
  1024. X    (++BytesRead, (_chForLee = LastChar), (LastChar = 0), _chForLee) : \
  1025. X    ( (_chForLee = getc(FileInfo->Stream)) != '\'' || !InWord) ? \
  1026. X        (++BytesRead, _chForLee) : RealGetChar(F) )
  1027. X     
  1028. Xint
  1029. Xmain(argc, argv)
  1030. X    int argc;
  1031. X    char *argv[];
  1032. X{
  1033. X    extern char *strrchr();
  1034. X    extern int getopt(), cknatstr();
  1035. X    extern void SetDefaults();
  1036. X    extern char *optarg;
  1037. X    extern int optind;
  1038. X    extern int MaxWordsInCache; /* see wordtable.c */
  1039. X
  1040. X    int c;
  1041. X    int ErrorFlag = 0;
  1042. X    int DoNothing = 0;
  1043. X    char *InputFile = (char *) 0;
  1044. X
  1045. X#ifdef MALLOCTRACE
  1046. X    malloc_debug(2);
  1047. X#endif
  1048. X
  1049. X    progname = argv[0]; /* retain the full path at first */
  1050. X
  1051. X#ifdef M_MXFAST
  1052. X    (void) mallopt(M_MXFAST, sizeof(t_WordPlace));
  1053. X    /* may need to comment mallopt() out entirely for BSD -- use ifndef.
  1054. X     * seems to work under SunOS, though.
  1055. X     * When it works, it says "Allocate 100 or so chunks of this size at a
  1056. X     * time, and whenver I ask for this much or less, give me one of the
  1057. X     * chunks".  Clearly it had better not be too large, but it is a big
  1058. X     * win with a structure allocated for every occurrence of every word!
  1059. X     */
  1060. X#endif
  1061. X
  1062. X    SetDefaults(argc, argv);
  1063. X
  1064. X    while ((c = getopt(argc, argv, "w:f:xVZz:")) != -1) {
  1065. X    switch (c) {
  1066. X    case 'w':
  1067. X        if (!cknatstr(optarg)) {
  1068. X        fprintf(stderr,
  1069. X                "%s: -w must be given a number >= 0, not \"%s\"\n",
  1070. X                                progname, optarg);
  1071. X        fprintf(stderr, "\tuse %s -xv for further information\n");
  1072. X        exit(1);
  1073. X        }
  1074. X        MaxWordsInCache = atoi(optarg);
  1075. X        break;
  1076. X    case 'Z':
  1077. X    case 'z':
  1078. X        break; /* work done in SetDefault() */
  1079. X    case 'V':
  1080. X        fprintf(stderr, "%s: version: %s\n", progname, Version);
  1081. X        DoNothing = 1;
  1082. X        break;
  1083. X    case 'f':
  1084. X        if (InputFile) {
  1085. X        fprintf(stderr,
  1086. X"%s: only one -f option allowed; use -xv for explanation\n", progname);
  1087. X
  1088. X        exit(1);
  1089. X        }
  1090. X        InputFile = optarg;
  1091. X        break;
  1092. X    case 'x':
  1093. X        ErrorFlag = (-1);
  1094. X        break;
  1095. X    default:
  1096. X    case '?':
  1097. X        ErrorFlag = 1;
  1098. X    }
  1099. X    }
  1100. X
  1101. X    if ((progname = strrchr(progname, '/')) != (char *) NULL) {
  1102. X    ++progname; /* step over the last / */
  1103. X    } else {
  1104. X    progname = argv[0];
  1105. X    }
  1106. X
  1107. X    if (ErrorFlag > 0) {
  1108. X    fprintf(stderr, "use %s -x or %s -xv for an explanation.\n",
  1109. X                            progname, progname);
  1110. X    exit(1);
  1111. X    } else if (ErrorFlag < 0) { /* -x was used */
  1112. X    fprintf(stderr, "%s -- add files to an lq-text retrieval database\n",
  1113. X                                    progname);
  1114. X
  1115. X    fputs("Options are:\n\
  1116. X    -f file -- read the list of files to index from \"file\"\n\
  1117. X    -c file    -- cfile contains a list of common words to be ignored\n\
  1118. X    -d dir    -- use the lq-text database in the named directory\n\
  1119. X    -t N    -- set the trace level to N [default: N = 0]\n\
  1120. X    -V    -- print Version number and exit\n\
  1121. X    -v    -- be verbose (equivalent to -t 1)\n\
  1122. X    -w n    -- dump the word-cache every n words\n\
  1123. X    -x    -- print this eXplanation and exit\n\
  1124. X    --    -- all following arguments are file names\n\
  1125. X\n\
  1126. X", stderr);
  1127. X    if (AsciiTrace == 1) {
  1128. X        /* used -v or -t1 */
  1129. X    fprintf(stderr, "\n\
  1130. X    Any remaining arguments are taken to be file names.  The current\n\
  1131. XDOCPATH (%s) is searched for the files, and they are read and added\n\
  1132. Xto the index.  (If you use the -f option, you should not give filename\n\
  1133. Xarguments on the command line, although you can use \"-f -\" to read the\n\
  1134. Xlist of files from standard input, one per line.\n\
  1135. XSetting (with -w) the size of the cache may dramatically\n\
  1136. Ximprove performance.  Systems with memory larger than the data can try -w0.\n\
  1137. XSee lqtext(1) for more information.\n", DocPath);
  1138. X    }
  1139. X    exit(0);
  1140. X
  1141. X    }
  1142. X
  1143. X    if (DoNothing) {
  1144. X    if (optind < argc) {
  1145. X        fprintf(stderr, "%s: warning: %d extra argument%s ignored...\n",
  1146. X                progname, argc - optind,
  1147. X                argc - optind == 1 ? "" : "%s" );
  1148. X        fprintf(stderr, "Use %s -x for an explanation\n", progname);
  1149. X    }
  1150. X    exit(0);
  1151. X    }
  1152. X
  1153. X    lqWriteAccess();
  1154. X
  1155. X    if (InputFile) {
  1156. X    if (optind < argc) {
  1157. X        fprintf(stderr, "%s: -f: too many arguments; use -xv\n", progname);
  1158. X        exit(1);
  1159. X    }
  1160. X    AddFrom(InputFile);
  1161. X    } else for (; optind < argc; ++optind) {
  1162. X    if (AddFile(argv[optind]) < 0 && AsciiTrace >= 1) {
  1163. X        fprintf(stderr, "%s: warning: Problem adding file %s\n",
  1164. X            progname, argv[optind]);
  1165. X    }
  1166. X    }
  1167. X
  1168. X#ifndef MALLOCTRACE
  1169. X    DumpCache(0); /* the 0 means don't bother calling free() */
  1170. X#else
  1171. X    DumpCache(1); /* Free everthing so whatever is left is a memory leak */
  1172. X#endif
  1173. X
  1174. X    cleanupdb(); /* empty the dbm cache */
  1175. X    WriteCurrentMaxWID();
  1176. X
  1177. X#ifdef MALLOCTRACE
  1178. X    (void) fprintf(stderr, "%s: Malloctrace: checking...\n", progname);
  1179. X    malloc_verify();
  1180. X    (void) fprintf(stderr, "%s: Malloc Map\n", progname);
  1181. X    mallocmap();
  1182. X#endif
  1183. X
  1184. X    exit(0);
  1185. X    /*NOTREACHED*/
  1186. X    return 1; /* disaster if we get here -- it's just for lint! */
  1187. X}
  1188. X
  1189. Xvoid
  1190. XAddFrom(Name)
  1191. X    char *Name;
  1192. X{
  1193. X    char *GetLine();
  1194. X
  1195. X    FILE *fp;
  1196. X    char *Line;
  1197. X
  1198. X    if (Name[0] == '-' && Name[1] == '\0') {
  1199. X    fp = stdin;
  1200. X    } else {
  1201. X    fp = fopen(Name, "r");
  1202. X    }
  1203. X
  1204. X    if (fp == (FILE *) 0) {
  1205. X    extern int errno;
  1206. X    int e = errno;
  1207. X
  1208. X    fprintf(stderr, "%s: -f: can't open ", progname);
  1209. X    errno = e;
  1210. X    perror(Name);
  1211. X    exit(1);
  1212. X    }
  1213. X
  1214. X    while ((Line = GetLine(fp, Name)) != (char *) 0) {
  1215. X    if (AddFile(Line) < 0 && AsciiTrace >= 1) {
  1216. X        /* we already got one error message from AddFile() */
  1217. X        fprintf(stderr, "%s: warning: Problem adding file %s\n",
  1218. X            progname, Line);
  1219. X    }
  1220. X    }
  1221. X
  1222. X    if (fp != stdin) {
  1223. X    (void) fclose(fp);
  1224. X    }
  1225. X}
  1226. X
  1227. Xstatic int LineInFile = 0;
  1228. Xstatic FILE *LastFile = 0;
  1229. X
  1230. Xchar *
  1231. XGetLine(fp, Name)
  1232. X    FILE *fp;
  1233. X    char *Name;
  1234. X{
  1235. X    static char *Line = (char *) 0;
  1236. X    static int Length = 0;
  1237. X    int ch;
  1238. X    register char *p;
  1239. X
  1240. X    if (!Line) {
  1241. X    if (Length <= 10) Length = 30;
  1242. X    Line = emalloc(Length);
  1243. X    }
  1244. X
  1245. X    p = Line;
  1246. X
  1247. X    if (fp == LastFile) {
  1248. X    ++LineInFile;
  1249. X    } else {
  1250. X    LineInFile = 0; /* number lines from zero! */
  1251. X    LastFile = fp;
  1252. X    }
  1253. X
  1254. X    while ((ch = getc(fp)) != EOF) {
  1255. X    static int HaveWarned = 0;
  1256. X
  1257. X    if (isspace(ch)) {
  1258. X        if (p == Line) { /* ignore blank lines and leading blanks */
  1259. X        continue;
  1260. X        }
  1261. X        if (ch == '\n') {
  1262. X        if (p == (char *) 0) {
  1263. X            /* how could this ever happen?  do I need it? */
  1264. X            p = Line;
  1265. X            continue;
  1266. X        }
  1267. X        *p = '\0';
  1268. X        return Line;
  1269. X        }
  1270. X        if (AsciiTrace && !HaveWarned) {
  1271. X        fprintf(stderr,
  1272. X"%s: -f: Warning: spaces found in filenames read from \"%s\"\n",
  1273. X                                progname, Name);
  1274. X        HaveWarned = 1;
  1275. X        }
  1276. X    }
  1277. X
  1278. X    /* add the character to the string */
  1279. X    if (p - Line + 1 >= Length) {
  1280. X        int SaveWhere = p - Line;
  1281. X        Length += 30;
  1282. X        Line = erealloc(Line, Length);
  1283. X        p = &Line[SaveWhere];
  1284. X    }
  1285. X    *p++ = ch;
  1286. X    }
  1287. X
  1288. X    if (p && Line && p != Line) {
  1289. X    fprintf(stderr, "%s: -f: warning: no newline at the end of \"%s\"\n",
  1290. X                        progname, Name);
  1291. X    *p = '\0';
  1292. X    return Line;
  1293. X    }
  1294. X
  1295. X    return (char *) 0;
  1296. X}
  1297. X
  1298. Xextern int fclose(), pclose();
  1299. X
  1300. Xt_FileInfo *
  1301. XMakeFileInfo(Name)
  1302. X    char *Name;
  1303. X{
  1304. X#ifdef BSD
  1305. X    extern time_t time();
  1306. X#else
  1307. X    extern long time();
  1308. X#endif
  1309. X    extern t_FID Name2FID();
  1310. X    extern t_FileInfo *GetFileInfo();
  1311. X    extern t_FID GetNextFID();
  1312. X    FILE *MakeInput();
  1313. X    struct stat StatBuf;
  1314. X
  1315. X    t_FileInfo *FileInfo = 0;
  1316. X    t_FID FID;
  1317. X
  1318. X    if (!Name || !*Name) return (t_FileInfo *) 0; /* sanity */
  1319. X
  1320. X    if (stat(Name, &StatBuf) < 0) {
  1321. X#ifndef FindFile /* it is a macro these days... */
  1322. X    extern char *FindFile();
  1323. X#endif
  1324. X    extern int errno;
  1325. X
  1326. X    int e = errno;
  1327. X    char *doc;
  1328. X
  1329. X    if ((doc = FindFile(Name)) == (char *) 0) {
  1330. X        fprintf(stderr, "Can't index ");
  1331. X        errno = e; /* fprintf might well clobber errno! */
  1332. X        perror(Name);
  1333. X        return (t_FileInfo *) 0;
  1334. X    }
  1335. X
  1336. X    if (stat(doc, &StatBuf) < 0) {
  1337. X        e = errno;
  1338. X        fprintf(stderr, "Can't index ");
  1339. X        errno = e; /* fprintf might well clobber errno! */
  1340. X        perror(Name);
  1341. X        return (t_FileInfo *) 0;
  1342. X    }
  1343. X    Name = doc;
  1344. X    }
  1345. X
  1346. X    if (StatBuf.st_size == 0L) {
  1347. X    if (AsciiTrace) {
  1348. X        fprintf(stderr, "%s empty -- not indexed\n", Name);
  1349. X    }
  1350. X    return (t_FileInfo *) 0;
  1351. X    }
  1352. X    /* See if it's in the index already: */
  1353. X    if ((FID = Name2FID(Name)) != (t_FID) 0) {
  1354. X
  1355. X    if ((FileInfo = GetFileInfo(FID)) != (t_FileInfo *) 0) {
  1356. X        /* Check to see if the file hass changed since it was last
  1357. X         * indexed.  If it has, we should delete the old one from
  1358. X         * the database and give this one a new FID, but I have
  1359. X         * not done that yet -- that's /usr/local/lib/lqtextd or
  1360. X         * something, I suppose!
  1361. X         */
  1362. X        if (FileInfo->Date >= StatBuf.st_mtime) {
  1363. X        if (AsciiTrace) {
  1364. X            fprintf(stderr, "%s unchanged -- not indexed\n", Name);
  1365. X        }
  1366. X        DestroyFileInfo(FileInfo);
  1367. X        return (t_FileInfo *) 0;
  1368. X        }
  1369. X    }
  1370. X    } else {
  1371. X    FID = GetNextFID((long) StatBuf.st_size);
  1372. X    }
  1373. X
  1374. X    if (FileInfo == (t_FileInfo *) 0) {
  1375. X    /* Allocate Structure */
  1376. X    enew(FileInfo, t_FileInfo);
  1377. X
  1378. X    /* Although not always necessary, call emalloc here so that a
  1379. X     * FileInfo can always be deleted with DestroyFileInfo()
  1380. X     */
  1381. X    FileInfo->Name = emalloc((unsigned)(strlen(Name) + 1));
  1382. X    (void) strcpy(FileInfo->Name, Name);
  1383. X
  1384. X    /* Other bits to set: */
  1385. X
  1386. X    /* date */
  1387. X    FileInfo->Date = StatBuf.st_mtime;
  1388. X
  1389. X    /* file type */
  1390. X    if ((FileInfo->FilterType = GetFilterType(FileInfo, &StatBuf)) < 0) {
  1391. X        if (AsciiTrace) {
  1392. X        fprintf(stderr, "%s unknown file type -- not indexed\n", Name);
  1393. X        }
  1394. X        (void) efree(FileInfo->Name);
  1395. X        (void) efree((char *) FileInfo);
  1396. X        return (t_FileInfo *) 0;
  1397. X    }
  1398. X    }
  1399. X
  1400. X    FileInfo->FID = FID;
  1401. X    FileInfo->Date = (long) time((long *) 0); /* it's a time_t on BSD */
  1402. X
  1403. X    if ((FileInfo->Stream = MakeInput(FileInfo)) == (FILE *) 0) {
  1404. X    fprintf(stderr, "%s: couldn't open filter for %s -- not indexed\n",
  1405. X                            progname, FileInfo->Name);
  1406. X    (void) efree(FileInfo->Name);
  1407. X    (void) efree((char *) FileInfo);
  1408. X    return (t_FileInfo *) 0;
  1409. X    }
  1410. X
  1411. X    return FileInfo;
  1412. X}
  1413. X
  1414. Xvoid
  1415. XDestroyFileInfo(FileInfo)
  1416. X    t_FileInfo *FileInfo;
  1417. X{
  1418. X    if (FileInfo->Stream) {
  1419. X    if (FileInfo->FilterType >= 0 && FileInfo->FilterType < MaxFilterType){
  1420. X        (* FilterTable[FileInfo->FilterType].close)(FileInfo->Stream);
  1421. X    }
  1422. X    FileInfo->Stream = (FILE *) 0;
  1423. X    }
  1424. X    if (FileInfo->Name) (void) efree(FileInfo->Name);
  1425. X    (void) efree((char *) FileInfo);
  1426. X}
  1427. X
  1428. Xint
  1429. XAddFile(Name)
  1430. X    char *Name;
  1431. X{
  1432. X    t_FileInfo *FileInfo;
  1433. X
  1434. X    if (!Name || !*Name) return -1;
  1435. X    if ((FileInfo = MakeFileInfo(Name)) == (t_FileInfo *) 0) return -1;
  1436. X
  1437. X    AddStream(FileInfo);
  1438. X    SaveFileInfo(FileInfo);
  1439. X    DestroyFileInfo(FileInfo);
  1440. X
  1441. X    return 0;
  1442. X}
  1443. X
  1444. XFILE *
  1445. XMakeInput(FileInfo)
  1446. X    t_FileInfo *FileInfo;
  1447. X{
  1448. X    FILE *fp;
  1449. X    char *Buffer;
  1450. X    unsigned BufLen;
  1451. X    extern FILE *fopen(), *popen();
  1452. X
  1453. X#define FSTRING FilterTable[FileInfo->FilterType].String
  1454. X
  1455. X    if (FileInfo->FilterType > MaxFilterType) {
  1456. X    fprintf(stderr, "%s: Warning: filter type %d for %s too high (max %d)\n",
  1457. X        progname, FileInfo->FilterType, FileInfo->Name, MaxFilterType);
  1458. X    return (FILE *) 0;
  1459. X    }
  1460. X
  1461. X    if (FilterTable[FileInfo->FilterType].Type != FileInfo->FilterType) {
  1462. X    fprintf(stderr, "Fatal Filter table error, %d\n", FileInfo->FilterType);
  1463. X    exit(3);
  1464. X    }
  1465. X
  1466. X    if (FSTRING == (char *) 0) {
  1467. X    return fopen(FileInfo->Name, "r");
  1468. X    }
  1469. X
  1470. X    BufLen = strlen(FileInfo->Name) * 2 + 4 + strlen(FSTRING);
  1471. X    /* The +4 is to allow for an embedded " < " plus a \0;
  1472. X     * we append "< Name", but also expand %s to be the Name, hence
  1473. X     * the strlen * 2
  1474. X     */
  1475. X    Buffer = emalloc(BufLen);
  1476. X
  1477. X    (void) sprintf(Buffer, FSTRING, FileInfo->Name);
  1478. X    (void) strcat(Buffer, " < ");
  1479. X    (void) strcat(Buffer, FileInfo->Name);
  1480. X
  1481. X    fp = popen(Buffer, "r");
  1482. X    (void) efree(Buffer);
  1483. X    return fp;
  1484. X}
  1485. X
  1486. Xstatic long BytesRead = 0L;
  1487. Xstatic int InWord = 0;
  1488. X
  1489. X/* Character input */
  1490. X
  1491. X#ifdef __GNU__
  1492. Xinline
  1493. X#endif
  1494. Xint
  1495. XRealGetChar(FileInfo)
  1496. X    t_FileInfo *FileInfo;
  1497. X{
  1498. X    /* ASSERT: InWord && _chForLee == '\'' */
  1499. X    LastChar = getc(FileInfo->Stream);
  1500. X    if (WithinWord(LastChar) && LastChar != '\'') {
  1501. X    BytesRead++;
  1502. X    return '\'';
  1503. X    } else {
  1504. X    /* delete the single quote, as it was at the end of
  1505. X     * a word, not in the middle
  1506. X     */
  1507. X    BytesRead++;
  1508. X    return ' ';
  1509. X    }
  1510. X    /*NOTREACHED*/
  1511. X    /* exit(1); */
  1512. X}
  1513. X
  1514. Xt_WordInfo *
  1515. XReadWord(FileInfo)
  1516. X    t_FileInfo *FileInfo;
  1517. X{
  1518. X    /* use two static storage areas so we can be called twice in a row.
  1519. X     * This is necessary to implement the WPF_LASTINBLOCK flag.
  1520. X     */
  1521. X    static t_WordInfo This, That;
  1522. X    static int ThisOrThat = 0;
  1523. X    t_WordInfo *WordInfo;
  1524. X    static char Buffer[MaxWordLength + 1];
  1525. X    int ch;
  1526. X    register char *q = Buffer;
  1527. X    static int WordInBlock;
  1528. X    static t_FID LastFid = 0L;
  1529. X    static long LastPos = 0L;
  1530. X    static int SawCommon = 0;
  1531. X    static int SawLetters = 0;
  1532. X    static int BlockInFile = 0L;
  1533. X    static unsigned long LastBlock;
  1534. X    unsigned long Start;
  1535. X
  1536. X    WordInfo = (ThisOrThat ? &This : &That);
  1537. X
  1538. X    if (FileInfo->FID != LastFid) {
  1539. X    LastFid = FileInfo->FID;
  1540. X    WordInBlock = (-1); /* none, yet! */
  1541. X    LastPos = BlockInFile = LastBlock = 0L;
  1542. X    BytesRead = 0L;
  1543. X    SawCommon = SawLetters = 0;
  1544. X    if (AsciiTrace) {
  1545. X        fprintf(stderr, "Reading file \"%s\"", FileInfo->Name);
  1546. X    }
  1547. X    }
  1548. X
  1549. X    /* Skip non-word characters */
  1550. X    while ((ch = GetChar(FileInfo)) != EOF) {
  1551. X    if (StartsWord(ch)) break;
  1552. X    }
  1553. X
  1554. X    /* ASSERT: we have read at least one character */
  1555. X
  1556. X    if (ch == EOF) {
  1557. X    if (AsciiTrace) {
  1558. X        fprintf(stderr, "\n");
  1559. X    }
  1560. X    return (t_WordInfo *) 0;
  1561. X    }
  1562. X
  1563. X    Start = BytesRead - 1;
  1564. X
  1565. X    if (UseLineNumbers) {
  1566. X    BlockInFile = LineInFile;
  1567. X    } else {
  1568. X    BlockInFile = Start / FileBlockSize;
  1569. X    }
  1570. X
  1571. X    if (BlockInFile != LastBlock) {
  1572. X    LastBlock = BlockInFile;
  1573. X    if (AsciiTrace > 1) {
  1574. X        fprintf(stderr, ".");
  1575. X#ifdef sun
  1576. X        /* SunOS seems to line-buffer stderr! */
  1577. X        fflush(stderr);
  1578. X#endif
  1579. X    }
  1580. X    WordInBlock = (-1);
  1581. X    }
  1582. X
  1583. X    if (isupper(ch)) {
  1584. X    WordInfo->WordPlace.Flags = WPF_UPPERCASE;
  1585. X    ch = tolower(ch);
  1586. X    } else {
  1587. X    WordInfo->WordPlace.Flags = 0;
  1588. X    }
  1589. X
  1590. X    InWord = 1; /* For GetChar() */
  1591. X
  1592. X    do {
  1593. X    if (q - Buffer < MaxWordLength) {
  1594. X        *q++ = ch;
  1595. X    }
  1596. X    ch = GetChar(FileInfo);
  1597. X    TOLOWER(ch);
  1598. X    } while (WithinWord(ch) || EndsWord(ch));
  1599. X
  1600. X    *q = '\0';
  1601. X    InWord = 0;
  1602. X
  1603. X#ifdef __GNUC__
  1604. X    /* this is to get round a gcc bug... */
  1605. X    {
  1606. X    int i = q - Buffer;
  1607. X    WordInfo->Length = i;
  1608. X
  1609. X    if (i < MinWordLength) {
  1610. X        register char *p;
  1611. X
  1612. X        for (p = Buffer; p < q; p++) {
  1613. X        if (isalpha(*p)) {
  1614. X            SawLetters = 1;
  1615. X            break;
  1616. X        }
  1617. X        }
  1618. X        return ReadWord(FileInfo);
  1619. X    }
  1620. X    }
  1621. X#else
  1622. X    if ((WordInfo->Length = q - Buffer) < MinWordLength) {
  1623. X    register char *p;
  1624. X
  1625. X    for (p = Buffer; p < q; p++) {
  1626. X        if (isalpha(*p)) {
  1627. X        SawLetters = 1;
  1628. X        break;
  1629. X        }
  1630. X    }
  1631. X    return ReadWord(FileInfo);
  1632. X    }
  1633. X#endif
  1634. X
  1635. X    WordInfo->Word = Buffer;
  1636. X
  1637. X    (void) WordRoot(WordInfo);
  1638. X
  1639. X    WordInfo->Length = strlen(WordInfo->Word);
  1640. X
  1641. X    if (TooCommon(WordInfo)) {
  1642. X    SawCommon++;
  1643. X    WordInBlock++;
  1644. X#ifdef ASCIITRACE
  1645. X    if (AsciiTrace > 10) {
  1646. X        fprintf(stderr, "%s too common to index\n", WordInfo->Word);
  1647. X    }
  1648. X#endif
  1649. X    return ReadWord(FileInfo);
  1650. X    } else if (SawCommon) {
  1651. X    SawCommon = 0;
  1652. X    WordInfo->WordPlace.Flags |= (WPF_LASTWASCOMMON|WPF_LASTHADLETTERS);
  1653. X    }
  1654. X    if (SawLetters) {
  1655. X    SawLetters = 0;
  1656. X    WordInfo->WordPlace.Flags |= WPF_LASTHADLETTERS;
  1657. X    }
  1658. X
  1659. X    /* StuffBefore is the # of chars between the end of the last word and
  1660. X     * the start of this one.
  1661. X     */
  1662. X    if (Start > 1L) {
  1663. X    if (Start - (LastPos + 1) <= 0) {
  1664. X        WordInfo->WordPlace.StuffBefore = 1; /* save a byte in the index */
  1665. X    } else if (Start - (LastPos + 1) >= 255 ) {
  1666. X        WordInfo->WordPlace.StuffBefore = 255;
  1667. X    } else {
  1668. X        WordInfo->WordPlace.StuffBefore = Start - (LastPos + 1);
  1669. X    }
  1670. X    } else {
  1671. X    WordInfo->WordPlace.StuffBefore = 1; /* i.e., the default */
  1672. X    }
  1673. X
  1674. X    WordInfo->WordPlace.FID = WordInfo->FID = FileInfo->FID;
  1675. X    WordInfo->WID = (t_WID) 0;
  1676. X    WordInfo->Next = (t_WordInfo *) 0;
  1677. X    WordInfo->WordPlaces = (t_WordPlace *) 0;
  1678. X    WordInfo->WordPlacesInHere = 0;
  1679. X    WordInfo->WordPlace.WordInBlock = (++WordInBlock);
  1680. X    WordInfo->WordPlace.BlockInFile = BlockInFile;
  1681. X    WordInfo->DataBlock = (char *) 0;
  1682. X
  1683. X    WordInfo->Word[WordInfo->Length] = '\0';
  1684. X
  1685. X    {
  1686. X    /* I want to avoid using malloc() here... 
  1687. X     * Another kludge would be to malloc sizeof(t_WordInfo) +
  1688. X     * strlen(WordInfo->Word + 1) and to put the string at the end
  1689. X     * of (i.e. just after) the struct.
  1690. X     */
  1691. X    static char Word2[MaxWordLength + 1];
  1692. X    static char Word1[MaxWordLength + 1];
  1693. X    char *p = (ThisOrThat) ? Word1 : Word2;
  1694. X
  1695. X    (void) strncpy(p, WordInfo->Word, (int) WordInfo->Length);
  1696. X    WordInfo->Word = p;
  1697. X    WordInfo->Word[WordInfo->Length] = '\0';
  1698. X    }
  1699. X
  1700. X    LastPos = BytesRead - 1;
  1701. X
  1702. X    ThisOrThat = !ThisOrThat;
  1703. X    /* toggle between 0 and 1.  Boring life, really */
  1704. X
  1705. X    if (!WordInfo->Word[0]) {
  1706. X    fprintf(stderr, "Null word in ReadWord()\n");
  1707. X    }
  1708. X    return WordInfo;
  1709. X}
  1710. X
  1711. Xvoid
  1712. XAddStream(FileInfo)
  1713. X    t_FileInfo *FileInfo;
  1714. X{
  1715. X    /* I have to mark the last word in the block.
  1716. X     * I do that by marking the previous word if it was in a differant block
  1717. X     * than the current one.
  1718. X     */
  1719. X    t_WordInfo *WordInfo;
  1720. X    t_WordInfo *LastWord = 0;
  1721. X
  1722. X    BytesRead = 0;
  1723. X
  1724. X    while ((WordInfo = ReadWord(FileInfo)) != (t_WordInfo *) 0) {
  1725. X    if (LastWord) {
  1726. X        if (LastWord->WordPlace.BlockInFile !=
  1727. X                        WordInfo->WordPlace.BlockInFile) {
  1728. X        LastWord->WordPlace.Flags |= WPF_LASTINBLOCK;
  1729. X        }
  1730. X        AddWord(LastWord);
  1731. X    }
  1732. X    LastWord = WordInfo;
  1733. X    }
  1734. X    if (LastWord) {
  1735. X    /* it's the last in the file, so it is also the last in the block */
  1736. X    LastWord->WordPlace.Flags |= WPF_LASTINBLOCK;
  1737. X    AddWord(LastWord);
  1738. X    }
  1739. X
  1740. X    if (AsciiTrace) {
  1741. X    fprintf(stderr, "Read %lu bytes from \"%s\"\n", BytesRead, FileInfo->Name);
  1742. X    }
  1743. X}
  1744. X
  1745. X/* lqaddfile has been carried through several incarnations of lq-text,
  1746. X * and hence has more than one Inital Revision in the following history.
  1747. X *
  1748. X * $Log:    lqaddfile.c,v $
  1749. X * Revision 1.14  91/03/02  21:22:39  lee
  1750. X * Added write access call.
  1751. X * 
  1752. X * Revision 1.13  91/03/02  18:53:25  lee
  1753. X * Common words are now counted, so you can now edit the common word list
  1754. X * without invalidating the index.
  1755. X * 
  1756. X * Revision 1.12  90/10/06  00:50:54  lee
  1757. X * Prepared for first beta release.
  1758. X * 
  1759. X * Revision 1.11  90/10/05  23:46:11  lee
  1760. X * Allow compilation with -UASCIITRACE
  1761. X * 
  1762. X * Revision 1.10  90/10/04  17:54:46  lee
  1763. X * fixed a typo in the usage message.
  1764. X * 
  1765. X * Revision 1.9  90/09/28  23:20:22  lee
  1766. X * Put more of GetChar into a macro and parameterised TOLOWER.
  1767. X * 
  1768. X * Revision 1.8  90/09/28  22:19:04  lee
  1769. X * Did the previous fix _properly_!
  1770. X * 
  1771. X * Revision 1.7  90/09/28  22:12:35  lee
  1772. X * Made getchar a macro, and deleted the call to CallFree...
  1773. X * 
  1774. X * Revision 1.6  90/09/20  18:46:03  lee
  1775. X * Closed up a (very small) memory leak.
  1776. X * 
  1777. X * Revision 1.5  90/09/19  20:16:41  lee
  1778. X * Fixed problems associated with indexing an empty file.
  1779. X * 
  1780. X * Revision 1.4  90/08/29  21:45:18  lee
  1781. X * Alpha release
  1782. X * 
  1783. X * Revision 1.3  90/08/09  19:17:12  lee
  1784. X * *** empty log message ***
  1785. X * 
  1786. X * Revision 1.1  90/02/27  11:05:02  lee
  1787. X * Initial revision
  1788. X * 
  1789. X * Revision 2.2  89/10/08  20:45:13  lee
  1790. X * Working version of nx-text engine.  Addfile and wordinfo work OK.
  1791. X * 
  1792. X * Revision 2.1  89/10/02  01:14:12  lee
  1793. X * New index format, with Block/WordInBlock/Flags/BytesSkipped info.
  1794. X * 
  1795. X * Revision 1.3  89/09/17  23:02:42  lee
  1796. X * Various fixes; NumberInBlock now a short...
  1797. X * 
  1798. X * Revision 1.2  89/09/16  21:16:11  lee
  1799. X * First demonstratable version.
  1800. X * 
  1801. X * Revision 1.1  89/09/07  21:05:52  lee
  1802. X * Initial revision
  1803. X *
  1804. X */
  1805. @@@End of lq-text/src/lqtext/lqaddfile.c
  1806. echo end of part 06
  1807. -- 
  1808. Liam R. E. Quin,  lee@sq.com, SoftQuad Inc., Toronto, +1 (416) 963-8337
  1809.