BSD 4_2 release

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

#ifndef lint
static char sccsid[] = "@(#)dn11.c      4.14 (Berkeley) 6/25/83";
#endif

/*
* Routines for dialing up on DN-11
*/
#include "tip.h"

int dn_abort(), alarmtr();
static jmp_buf jmpbuf;
static int child = -1, dn;

dn_dialer(num, acu)
       char *num, *acu;
{
       extern errno;
       char *p, *q, phone[40];
       int lt, nw, connected = 1;
       register int timelim;

       if (boolean(value(VERBOSE)))
               printf("\nstarting call...");
       if ((dn = open(acu, 1)) < 0) {
               if (errno == EBUSY)
                       printf("line busy...");
               else
                       printf("acu open error...");
               return (0);
       }
       if (setjmp(jmpbuf)) {
               kill(child, SIGKILL);
               close(dn);
               return (0);
       }
       signal(SIGALRM, alarmtr);
       timelim = 5 * strlen(num);
       alarm(timelim < 30 ? 30 : timelim);
       if ((child = fork()) == 0) {
               /*
                * ignore this stuff for aborts
                */
               signal(SIGALRM, SIG_IGN);
               signal(SIGINT, SIG_IGN);
               signal(SIGQUIT, SIG_IGN);
               sleep(2);
               nw = write(dn, num, lt = strlen(num));
               exit(nw != lt);
       }
       /*
        * open line - will return on carrier
        */
       if ((FD = open(DV, 2)) < 0) {
               if (errno == EIO)
                       printf("lost carrier...");
               else
                       printf("dialup line open failed...");
               alarm(0);
               kill(child, SIGKILL);
               close(dn);
               return (0);
       }
       alarm(0);
       ioctl(dn, TIOCHPCL, 0);
       signal(SIGALRM, SIG_DFL);
       while ((nw = wait(&lt)) != child && nw != -1)
               ;
       fflush(stdout);
       close(dn);
       if (lt != 0) {
               close(FD);
               return (0);
       }
       return (1);
}

alarmtr()
{

       alarm(0);
       longjmp(jmpbuf, 1);
}

/*
* Insurance, for some reason we don't seem to be
*  hanging up...
*/
dn_disconnect()
{

       sleep(2);
       if (FD > 0)
               ioctl(FD, TIOCCDTR, 0);
       close(FD);
}

dn_abort()
{

       sleep(2);
       if (child > 0)
               kill(child, SIGKILL);
       if (dn > 0)
               close(dn);
       if (FD > 0)
               ioctl(FD, TIOCCDTR, 0);
       close(FD);
}