cosmetics

[unix-history] / usr / src / usr.bin / tip / hunt.c

/*      hunt.c  4.4     81/11/20        */
#include "tip.h"

#define RD      04

extern char *getremote();
extern char *rindex();

int deadfl;

dead()
{
       deadfl = 1;
}

hunt(name)
       char *name;
{
       register char *cp;

       deadfl = 0;
       signal(SIGALRM, dead);
       while(cp = getremote(name)){
               if (access(cp, RD))
                       continue;
               uucplock = rindex(cp, '/')+1;
               if (mlock(uucplock) < 0) {
                       delock(uucplock);
                       continue;
               }
               /*
                * Straight through call units, such as the BIZCOMP
                *  and the DF, must indicate they're hardwired in
                *  order to get an open file descriptor placed in FD.
                * Otherwise, as for a DN-11, the open will have to
                *  be done in the "open" routine.
                */
               if (!HW)
                       break;
               alarm(10);
               if((FD = open(cp, 2)) >= 0){
                       alarm(0);
                       if(!deadfl) {
                               ioctl(FD, TIOCEXCL, 0);
                               signal(SIGALRM, SIG_DFL);
                               return((int)cp);
                       }
               }
               alarm(0);
               signal(SIGALRM, dead);
               delock(uucplock);
       }
       signal(SIGALRM, SIG_DFL);
       return(deadfl ? -1 : (int)cp);
}