BSD 4_4 release

[unix-history] / usr / src / usr.bin / uucp / libacu / hys.c

/*-
* Copyright (c) 1985, 1993
*      The Regents of the University of California.  All rights reserved.
*
* This module is believed to contain source code proprietary to AT&T.
* Use and redistribution is subject to the Berkeley Software License
* Agreement and your Software Agreement with AT&T (Western Electric).
*/

#ifndef lint
static char sccsid[] = "@(#)hys.c       8.1 (Berkeley) 6/6/93";
#endif /* not lint */

#include "condevs.h"

#ifdef USR2400
#define DROPDTR
/*
* The "correct" switch settings for a USR Courier 2400 are
*      Dialin/out:     0 0 1 1 0 0 0 1 0 0
*      Dialout only:   0 0 1 1 1 1 0 1 0 0
* where 0 = off and 1 = on
*/
#endif USR2400

/*
*      hyspopn(telno, flds, dev) connect to hayes smartmodem (pulse call)
*      hystopn(telno, flds, dev) connect to hayes smartmodem (tone call)
*      char *flds[], *dev[];
*
*      return codes:
*              >0  -  file number  -  ok
*              CF_DIAL,CF_DEVICE  -  failed
*/

hyspopn(telno, flds, dev)
char *telno, *flds[];
struct Devices *dev;
{
       return hysopn(telno, flds, dev, 0);
}

hystopn(telno, flds, dev)
char *telno, *flds[];
struct Devices *dev;
{
       return hysopn(telno, flds, dev, 1);
}

/* ARGSUSED */
hysopn(telno, flds, dev, toneflag)
char *telno;
char *flds[];
struct Devices *dev;
int toneflag;
{
       extern errno;
       char dcname[20];
       char cbuf[MAXPH];
       register char *cp;
       register int i;
       int dh = -1, nrings = 0;

       sprintf(dcname, "/dev/%s", dev->D_line);
       DEBUG(4, "dc - %s\n", dcname);
       if (setjmp(Sjbuf)) {
               logent(dcname, "TIMEOUT");
               if (dh >= 0)
                       hyscls(dh);
               return CF_DIAL;
       }
       signal(SIGALRM, alarmtr);
       getnextfd();
       alarm(10);
       dh = open(dcname, 2); /* read/write */
       alarm(0);

       /* modem is open */
       next_fd = -1;
       if (dh >= 0) {
               fixline(dh, dev->D_speed);
               if (dochat(dev, flds, dh)) {
                       logent(dcname, "CHAT FAILED");
                       hyscls(dh);
                       return CF_DIAL;
               }
               write(dh, "ATV1E0H\r", 8);
               if (expect("OK\r\n", dh) != 0) {
                       logent(dcname, "HSM seems dead");
                       hyscls(dh);
                       return CF_DIAL;
               }
#ifdef USR2400
               write(dh, "ATX6S7=44\r", 10);
               if (expect("OK\r\n", dh) != 0) {
                       logent(dcname, "HSM seems dead");
                       hyscls(dh);
                       return CF_DIAL;
               }
#endif USR2400
               if (toneflag)
                       write(dh, "\rATDT", 5);
               else
#ifdef USR2400
                       write(dh, "\rATD", 4);
#else HAYES
                       write(dh, "\rATDP", 5);
#endif HAYES
               write(dh, telno, strlen(telno));
               write(dh, "\r", 1);

               if (setjmp(Sjbuf)) {
                       logent(dcname, "TIMEOUT");
                       strcpy(devSel, dev->D_line);
                       hyscls(dh);
                       return CF_DIAL;
               }
               signal(SIGALRM, alarmtr);
               alarm(2*MAXMSGTIME);
               do {
                       cp = cbuf;
                       while (read(dh, cp ,1) == 1)
                               if (*cp >= ' ')
                                       break;
                       while (++cp < &cbuf[MAXPH] && read(dh, cp, 1) == 1 && *cp != '\n')
                               ;
                       alarm(0);
                       *cp-- = '\0';
                       if (*cp == '\r')
                               *cp = '\0';
                       DEBUG(4,"\nGOT: %s", cbuf);
                       alarm(MAXMSGTIME);
               } while ((strncmp(cbuf, "RING", 4) == 0 ||
                        strncmp(cbuf, "RRING", 5) == 0) && nrings++ < 5);
               if (strncmp(cbuf, "CONNECT", 7) != 0) {
                       logent(cbuf, _FAILED);
                       strcpy(devSel, dev->D_line);
                       hyscls(dh);
                       return CF_DIAL;
               }
#undef DONTRESETBAUDRATE
#ifndef DONTRESETBAUDRATE
               i = atoi(&cbuf[8]);
               if (i > 0 && i != dev->D_speed) {       
                       DEBUG(4,"Baudrate reset to %d\n", i);
                       fixline(dh, i);
               }
#endif /* DONTRESETBAUDRATE */

       }
       if (dh < 0) {
               logent(dcname, "CAN'T OPEN");
               return dh;
       }
       DEBUG(4, "hayes ok\n", CNULL);
       return dh;
}

hyscls(fd)
int fd;
{
       char dcname[20];
#ifdef DROPDTR
       struct sgttyb hup, sav;
#endif

       if (fd > 0) {
               sprintf(dcname, "/dev/%s", devSel);
               DEBUG(4, "Hanging up fd = %d\n", fd);
#ifdef DROPDTR
               /*
                * code to drop DTR -- change to 0 baud then back to default.
                */
               gtty(fd, &hup);
               gtty(fd, &sav);
               hup.sg_ispeed = B0;
               hup.sg_ospeed = B0;
               stty(fd, &hup);
               sleep(2);
               stty(fd, &sav);
               /*
                * now raise DTR -- close the device & open it again.
                */
               sleep(2);
               close(fd);
               sleep(2);
               fd = open(dcname, 2);
               stty(fd, &sav);
#else
               sleep(3);
               write(fd, "+++", 3);
#endif
               sleep(3);
               write(fd, "ATH\r", 4);
/*
               if (expect("OK",fd) != 0)
                       logent(devSel, "HSM did not respond to ATZ");
*/
               sleep(1);
               write(fd, "ATZ\r", 4);
               sleep(1);
               close(fd);
               delock(devSel);
       }
}