home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / refer / inv2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  1.6 KB  |  90 lines
  1. # include "stdio.h"
  2. # include "assert.h"
  3. newkeys (outf, inf, recf, nhash, fd, iflong)
  4.     FILE *outf, *inf, *recf, *fd;
  5.     int *iflong;
  6. {
  7. /* reads key lines from inf; hashes and writes on outf; writes orig
  8.    key on recf, records pointer on outf too.
  9.    format of outf is : hash code space record pointer
  10. */
  11.  
  12. # define LINESIZ 1250
  13. long lp, ftell();
  14. long ld 0; int ll 0, lt 0;
  15. char line[LINESIZ];
  16. char key[30], bkeys[40];
  17. char *p, *s;
  18. char *keyv[500];
  19. int i, nk, ndoc 0, more 0, c;
  20.  
  21. lp = ftell (recf);
  22. while (fgets(line, LINESIZ, inf))
  23.     {
  24.     p = line;
  25.     while (*p != '\t') p++;
  26.     *p++ =0;
  27.     fputs(line, recf);
  28.     if (fd)
  29.         {
  30.         sprintf(bkeys, ";%ld", ld);
  31.         ll = strlen(p);
  32.         lt = strlen(bkeys);
  33.         fputs(bkeys, recf);
  34.         sprintf(bkeys, ",%d", ll);
  35.         lt += strlen(bkeys);
  36.         fputs(bkeys, recf);
  37.         ld += ll;
  38.         fputs(p, fd);
  39.         }
  40.     putc('\n',recf);
  41.     for(s=p; *s; s++);
  42.     if (*--s == '\n')
  43.         {
  44.         more=0;
  45.         *s=0;
  46.         }
  47.     else
  48.         more=1;
  49.     _assert (fd==0 || more==0);
  50.     nk = getargs(p, keyv);
  51.     if (more)
  52.         nk--;
  53.     for(i=0; i<nk; i++)
  54.         fprintf(outf,"%04d %06ld\n",hash(keyv[i])%nhash, lp);
  55. # if D1
  56.     for(i=0; i<nk; i++)
  57.         printf("key %s hash %d\n",keyv[i],hash(keyv[i])%nhash);
  58. # endif
  59.     if (more) /* allow more than LINESIZ keys */
  60.         {
  61.         strcpy(key, keyv[nk]);
  62.         for(s=key; *s; s++);
  63.         while ( (c=getc(inf)) != '\n')
  64.             {
  65.             if (c != ' ')
  66.                 {
  67.                 *s++ = c;
  68.                 continue;
  69.                 }
  70.             *s=0;
  71.             if (s>key)
  72.                 fprintf(outf, "%04d %06ld\n",hash(key)%nhash, lp);
  73.             s = key;
  74.             }
  75.         }
  76.     lp += (strlen(line)+lt+1);
  77.     ndoc++;
  78.     }
  79. *iflong = (lp>=65536L);
  80. fclose(recf);
  81. return(ndoc);
  82. }
  83. trimnl(p)
  84.     char *p;
  85. {
  86. while (*p) p++;
  87. p--;
  88. if (*p == '\n') *p=0;
  89. }
  90.