integrate with semantics of bib and bibargs.c

[unix-history] / usr / src / contrib / bib / src / listrefs.c

#ifndef lint
static char sccsid[] = "@(#)listrefs.c  2.3     %G%";
#endif not lint
/*
       Listrefs - list references for bib system

       Authored by: Tim Budd, University of Arizona, 1983.
               lookup routines written by gary levin 2/82

               version 7/4/83

       Various modifications suggested by:
               David Cherveny - Duke University Medical Center
               Phil Garrison - UC Berkeley
               M. J. Hawley - Yale University




                                                       */
# include <stdio.h>
# include <ctype.h>
# include "bib.h"
# include "streams.h"
# define MAXLIST 2000  /* maximum number of references that can be listed */
# define getch(c,fd) (c = getc(fd))

FILE *tfd;

#ifndef INCORE
FILE *rfd;                      /* reference file position */
char reffile[] = TMPREFFILE;    /* temporary file (see bib.h) */
#endif INCORE
struct refinfo refinfo[MAXLIST];      /* references temporary file, seek positions */
struct refinfo *refshash[HASHSIZE];
long int rend = 1;              /* last used position in reference file */
int numrefs = -1;               /* number of references */
extern int sort;                /* see if things are to be sorted */
extern char bibfname[];
extern int biblineno;

#include <signal.h>
main(argc, argv)
  int argc;
  char **argv;
{  char defult[120];
  int  i, rcomp(), intr();

  signal(SIGINT, intr);
  tfd = stdout;
  strcpy(defult, BMACLIB);
  strcat(defult,"/bib.list");
#ifndef INCORE
  mktemp(reffile);
  rfd = fopen(reffile,"w+");
  if (rfd == NULL)
     error("can't open temporary reference file");
  putc('x', rfd);      /* put garbage in first position */
#endif not INCORE

  doargs(argc, argv, defult);

  if (sort)
     qsort(refinfo, numrefs, sizeof(struct refinfo), rcomp);
  makecites();
  disambiguate();

  for (i = 0; i < numrefs; i++)
     dumpref(i, stdout);

  cleanup(0);
}
intr()
{
 cleanup(1);
}
cleanup(val)
{
#ifndef INCORE
 fclose(rfd);
 unlink(reffile);
#endif not INCORE
 exit(val);
}

/* rdtext - process a file */
  rdtext(ifile)
  FILE *ifile;
{  char c, *p, rec[REFSIZE];
  int i;
  int hash, lg;

  biblineno = 1;
  for (;;) {
     while (getch(c, ifile) == '\n')
        biblineno++;   /* skip leading newlines */
     if (c == EOF)
        return;

     p = rec;          /* read a reference */
     for (;;) {
        for (*p++ = c; getch(c, ifile) != '\n'; )
           if (c == EOF)
              error("ill formed reference file");
           else
              *p++ = c;
        if (getch(c, ifile) == '\n' || c == EOF) {
           biblineno++;
           *p++ = '\n';
           break;
           }
        if (c == '.' || c == '%')
           *p++ = '\n';
        else
           *p++ = ' ';
        }

     *p = 0;
     expand(rec);

     /* didn't match any existing reference, create new one */
     if (numrefs >= MAXLIST)
       error("too many references, max of %d", MAXLIST);
     hash = strhash(rec);
     lg = strlen(rec) + 1;
     refinfo[numrefs].ri_pos = rend;
     refinfo[numrefs].ri_length = lg;
     refinfo[numrefs].ri_hp = refshash[hash];
     refinfo[numrefs].ri_n = numrefs;
     refshash[hash] = &refinfo[numrefs];
     wrref(&refinfo[numrefs], rec);
     numrefs++;
     }
}