Return to va212.c CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.bin / uucp / aculib

Annotation of 43BSD/usr.bin/uucp/aculib/va212.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char sccsid[] = "@(#)va212.c    4.2 (Berkeley) 6/23/85";
                      3: #endif
                      4: 
                      5: #include "../condevs.h"
                      6: 
                      7: #ifdef VA212
                      8: va212opn(telno, flds, dev)
                      9: char *telno;
                     10: char *flds[];
                     11: struct Devices *dev;
                     12: {
                     13:        int     dh = -1;
                     14:        int     i, ok, er = 0, delay;
                     15:        extern errno;
                     16:        char dcname[20];
                     17: 
                     18:        sprintf(dcname, "/dev/%s", dev->D_line);
                     19:        if (setjmp(Sjbuf)) {
                     20:                DEBUG(1, "timeout va212 open\n", 0);
                     21:                logent("va212 open", "TIMEOUT");
                     22:                if (dh >= 0)
                     23:                        close(dh);
                     24:                delock(dev->D_line);
                     25:                return CF_NODEV;
                     26:        }
                     27:        signal(SIGALRM, alarmtr);
                     28:        getnextfd();
                     29:        alarm(10);
                     30:        dh = open(dcname, 2);
                     31:        alarm(0);
                     32: 
                     33:        /* modem is open */
                     34:        next_fd = -1;
                     35:        if (dh < 0) {
                     36:                DEBUG (4, errno == 4 ? "%s: no carrier\n" : "%s: can't open\n",
                     37:                dcname);
                     38:                delock(dev->D_line);
                     39:                return errno == 4 ? CF_DIAL : CF_NODEV;
                     40:        }
                     41:        fixline(dh, dev->D_speed);
                     42: 
                     43:        /* translate - to K for Vadic */
                     44:        DEBUG(4, "calling %s -> ", telno);
                     45:        delay = 0;
                     46:        for (i = 0; i < strlen(telno); ++i) {
                     47:                switch(telno[i]) {
                     48:                case '=':       /* await dial tone */
                     49:                case '-':       /* delay */
                     50:                case '<':
                     51:                        telno[i] = 'K';
                     52:                        delay += 5;
                     53:                        break;
                     54:                }
                     55:        }
                     56:        DEBUG(4, "%s\n", telno);
                     57:        for(i = 0; i < TRYCALLS; ++i) { /* make TRYCALLS tries */
                     58:                /* wake up Vadic */
                     59:                sendthem("\005\\d", dh);
                     60:                DEBUG(4, "wanted * ", CNULL);
                     61:                ok = expect("*", dh);
                     62:                DEBUG(4, "got %s\n", ok ? "?" : "that");
                     63:                if (ok != 0)
                     64:                        continue;
                     65: 
                     66:                sendthem("D\\d", dh);   /* "D" (enter number) command */
                     67:                DEBUG(4, "wanted NUMBER? ", CNULL);
                     68:                ok = expect("NUMBER?", dh);
                     69:                if (ok == 0)
                     70:                        ok = expect("\n", dh);
                     71:                DEBUG(4, "got %s\n", ok ? "?" : "that");
                     72:                if (ok != 0)
                     73:                        continue;
                     74: 
                     75:                /* send telno, send \r */
                     76:                sendthem(telno, dh);
                     77:                DEBUG(4, "wanted %s ", telno);
                     78:                ok = expect(telno, dh);
                     79:                if (ok == 0)
                     80:                        ok = expect("\n", dh);
                     81:                DEBUG(4, "got %s\n", ok ? "?" : "that");
                     82:                if (ok != 0)
                     83:                        continue;
                     84: 
                     85:                sendthem("", dh); /* confirm number */
                     86:                DEBUG(4, "wanted %s ", "DIALING...");
                     87:                ok = expect("DIALING...", dh);
                     88:                if (ok == 0) {
                     89:                        ok = expect("\n", dh);
                     90:                        DEBUG(4, "wanted ANSWER TONE", CNULL);
                     91:                        ok = expect("ANSWER TONE", dh);
                     92:                        if (ok == 0)
                     93:                                ok = expect("\n", dh);
                     94:                }
                     95:                DEBUG(4, "got %s\n", ok ? "?" : "that");
                     96:                if (ok == 0)
                     97:                        break;
                     98:        }
                     99: 
                    100:        if (ok == 0) {
                    101:                DEBUG(4, "wanted ON LINE\\r\\n ", CNULL);
                    102:                ok = expect("ON LINE\r\n", dh);
                    103:                DEBUG(4, "got %s\n", ok ? "?" : "that");
                    104:        }
                    105: 
                    106:        if (ok != 0) {
                    107:                sendthem("I\\d", dh);   /* back to idle */
                    108:                if (dh > 2)
                    109:                        close(dh);
                    110:                DEBUG(4, "vadDial failed\n", CNULL);
                    111:                delock(dev->D_line);
                    112:                return CF_DIAL;
                    113:        }
                    114:        DEBUG(4, "va212 ok\n", 0);
                    115:        return dh;
                    116: }
                    117: 
                    118: va212cls(fd)
                    119: {
                    120:        if (fd > 0) {
                    121:                close(fd);
                    122:                sleep(5);
                    123:                delock(devSel);
                    124:        }
                    125: }
                    126: #endif VA212

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.