BSD 4 release

[unix-history] / usr / src / lib / libpc / READE.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)READE.c 1.1 10/29/80";

#include "h00vars.h"
#include "h01errs.h"

READE(curfile, name)

       register struct iorec   *curfile;
       char                    *name;
{
       long                    data;

       register short  *sptr;
       register int    len;
       register int    nextlen;
       register int    cnt;
       char            *cp;
       char            namebuf[NAMSIZ];

       if (curfile->funit & FWRITE) {
               ERROR(EREADIT, curfile->pfname);
               return;
       }
       UNSYNC(curfile);
       if (fscanf(curfile->fbuf,
           "%*[ \t\n]%74[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]",
           namebuf) == 0) {
               ERROR(ENUMNTFD, namebuf);
               return;
       }
       curfile->funit |= SYNC;
       for (len = 0; len < NAMSIZ && namebuf[len]; len++)
               /* void */;
       len++;
       sptr = (short *)name;
       cnt = *sptr++;
       cp = name + sizeof (short) + *sptr;
       do      {
               nextlen = *sptr++;
               nextlen = *sptr - nextlen;
               if (nextlen == len && RELEQ(len, namebuf, cp)) {
                       return *((short *) name) - cnt;
               }
               cp += nextlen;
       } while (--cnt);
       ERROR(ENUMNTFD, namebuf);
}