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

/*      df.c    4.1     81/05/09        */
/*
* Dial the DF02-AC
*/

#include "tip.h"
#if DF02
#include <setjmp.h>

static jmp_buf  Sjbuf;
static timeout();

df_dialer(num, acu)
char *num, *acu;
{
       register int f = FD;
       int c;

       ioctl(f, TIOCHPCL, 0);          /* make sure it hangs up when done */
       if (setjmp(Sjbuf)) {
               printf("connection timed out\r\n");
               df_disconnect();
               return(0);
       }
       if (boolean(value(VERBOSE)))
               printf("\ndialing...");
       fflush(stdout);
       signal(SIGALRM, timeout);
       alarm(5 * strlen(num) + 10);
       ioctl(f, TIOCFLUSH, 0);
       write(f, "\001", 1);
       sleep(0);               /* this must waste 70 ms. */
       write(f, "\002", 1);
       write(f, num, strlen(num));
       c = 0;
       read(f, (char *)&c, 1);
       return(c == 'A');
}


df_disconnect()
{
       write(FD, "\001", 1);
       sleep(1);
       ioctl(FD, TIOCFLUSH, 0);
}


df_abort()
{
       write(FD, "\001", 1);
       sleep(1);
       ioctl(FD, TIOCFLUSH, 0);
}


static
timeout()
{
       longjmp(Sjbuf, 1);
}
#endif