efax-36/efax/efax.c

597 int send_data ( TFILE *mf, IFILE *f, int page, int pages,
627   done = err = ttymode ( mf, SEND ) ;
631   mf->start = time(0) ;
632   mf->mstart = proc_ms() ;
633   mf->bytes = mf->pad = mf->lines = 0 ;
646   mf->lines=0 ;
690 	  mf->pad ++ ;
694 	sendbuf ( mf, buf, p - buf, dcecps ) ;
695 	mf->bytes += p - buf ;
696 	mf->lines++ ;
700       if ( tdata ( mf, 0 ) ) noise = 1 ;
706     if (mf->lines % 100 == 0)
710 			((float)mf->lines * 2 / (float)f->page->h) * 100 :
711 			((float)mf->lines / (float)f->page->h) * 100;
726   sendbuf ( mf, buf, p - buf, dcecps ) ;
727   mf->bytes += p - buf ;
735 int end_data ( TFILE *mf, cap session, int ppm, int *good )
750   tput ( mf, p, 2 ) ;
752   dt = time(0) - mf->start ;
754   draintime = ( 2 * ( mf->bytes / cps[ session[BR] ] + 1 - dt ) + 4 ) * 10 ;
757   c = ckcmd ( mf, 0, 0, (int) draintime, OK ) ;
761   dt = time(0) - mf->start ;
766        HDRSPCE, mf->lines-HDRSPCE,
767        mf->bytes-mf->pad, mf->pad, (int) dt, (mf->bytes*8)/dt ) ;
769   if ( mf->bytes / (dt+1) > cps[session[BR]] )
772   if ( ! err ) err = ttymode ( mf, COMMAND ) ;
864 int receive_data ( TFILE *mf, OFILE *f, cap session, int *nerr, int *nline )
879   for ( line=0 ; ( nr = readfaxruns ( mf, &d, runs, &len ) ) >= 0 ; line++ ) {
891       tput ( mf, CAN_STR, 1 ) ;
903     while ( tgetd ( mf, TO_CHAR ) >= 0 ) ; /* got RTC, wait for DLE-ETX */
1187 int getfr ( TFILE *mf, uchar *buf, int getcmd )
1203     c = cmd ( mf, "+FRH=3", t ) ;
1210     tput ( mf, CAN_STR, 1 ) ;
1211     ckcmd ( mf, 0, 0, TO_ABRT, OK ) ;
1231     err = receive_frame_data ( mf, buf, MAXFRLEN, &frlen ) ;
1241     frlen = fixframe ( buf, frlen, mf ) ;
1295 	      TFILE *mf, cap local, char *localid,
1319   frame = getfr ( mf, buf, T1 ) ;
1367     err = putframe ( TSI | MORE_FR | disbit, buf, IDLEN, mf, -1 ) ;
1371     err = putframe ( DCS | SUB_FR | disbit, buf, DCSLEN, mf, -1 ) ;
1374   if ( cmd ( mf, "+FTS=" MODDLY, T3S ) != OK )
1379     err = puttrain ( mf, c1cmd[SND][TRN][session[BR]],
1384     cmd ( mf, "+FRS=1", T3S ) ; /* wait for TCF carrier to drop */
1385     frame = getfr ( mf, buf, 0 ) ;
1426   ckcmd ( mf, &err, c1cmd [SND][DTA][session[BR]], TO_FT, CONNECT ) ;
1432     err = send_data ( mf, inf, page, pages, local, session, header, font ) ;
1438     err = end_data ( mf, session, 0, 0 ) ;
1441   if ( cmd ( mf, "+FTS=" MODDLY, T3S ) != OK )
1450   if ( !err ) err = putframe ( ppm | disbit, buf, 0, mf, -1 ) ;
1453   frame = getfr ( mf, buf, 0 ) ;
1534       cmd ( mf, "+FRS=20", T3S ) ; /* wait for ppr carrier to drop */
1560       err = putframe ( CSI | disbit | MORE_FR, buf, IDLEN, mf, -1 ) ;
1564       err = putframe ( DIS | disbit | SUB_FR, buf, DEFDISLEN, mf, -1 ) ;
1566     frame = getfr ( mf, buf, 0 ) ;
1580   frame = getfr ( mf, buf, 1 ) ;
1613     gettrain ( mf, c1cmd [RCV][TRN][session[BR]], cps[session[BR]], &good ) ;
1615     if ( putframe ( ( good ? CFR : FTT ) | disbit, buf, 0, mf, -1 ) ||
1629     if ( cmd ( mf, c1cmd [RCV][DTA][session[BR]], TO_FT ) != CONNECT )
1636     switch ( receive_data ( mf, outf, session, &nerr, &nlines) ) {
1688     ckcmd ( mf, 0, 0, TO_RTCMD, NO ) ;
1700     putframe ( ( good ? MCF : RTN ) | disbit, buf, 0, mf, -1 ) ;
1717   putframe ( DCN, buf, 0, mf, -1 ) ;
1720   ckcmd ( mf, 0, "H", TO_RESET, OK ) ;	/* hang up */
1797 void getstartc ( TFILE *mf )
1801   for ( noise=0 ; ( c = tgetc ( mf, TO_C2X ) ) != XON && c != DC2 ; noise++ ) {
1834 	      TFILE *mf, cap local, char *localid,
1879       ckcmd ( mf, 0, buf, TO_FT, OK ) ;
1885     ckcmd ( mf, &err, "+FDT", -TO_C2B, CONNECT ) ;
1893     if ( ! c20 ) getstartc ( mf ) ;
1895     send_data ( mf, inf, page, pages, local, session, header, font ) ;
1899       end_data ( mf, session, ppm, &good ) ;
1901       end_data ( mf, session, 0, 0 ) ;
1906 	ckcmd ( mf, &err, ppm == EOP ? "+FET=2" :
1976       c = cmd ( mf, "+FDR", -TO_C2R ) ;
1989 	tput ( mf, &startchar, 1 ) ;
1991 	if ( receive_data ( mf, outf, session, &nerr, NULL) == 0 ) {
2011 	ckcmd ( mf, &err, 0, TO_C2EOR, OK ) ;
2022 	  ckcmd ( mf, 0, c20 ? "+FPS=2" : "+FPTS=2",  T3S, OK ) ;
2043   if ( hsc < 0 ) ckcmd ( mf, 0, c20 ? "+FKS" : "+FK", TO_RESET, OK ) ;
2334 int modem_init ( TFILE *mf, cap c, char *id,
2350   cmd ( mf, "E0", t ) ;
2352   if ( cmd ( mf, "I3", t ) == OK ) {
2360     if ( cmd ( mf, "+FCLASS=?", t ) != OK ) {
2374   ckcmd ( mf, &err, c1 ? "+FCLASS=1" :
2381       if ( cmd ( mf, *p, t ) == OK ) {
2401     ckcmd ( mf, &err, calling ? "+FTM=?" : "+FRM=?", t, OK ) ;
2411       ckcmd ( mf, 0, "+FIP", t, OK ) ;
2412       ckcmd ( mf, 0, "+FNR=1,1,1,0", t, OK ) ;
2414       ckcmd ( mf, 0, "+FLO=1", t, OK ) ;
2415       ckcmd ( mf, 0, "+FBO=0", t, OK ) ;
2418     ckcmd ( mf, &err, "+FCR=1", t, OK ) ;
2421       if ( cmd ( mf, c20 ? "+FIS?" : "+FDIS?", -t ) == OK &&
2434       ckcmd ( mf, 0, buf, -t, OK ) ;
2439     ckcmd ( mf, 0, buf, -t, OK ) ;
2443       ckcmd ( mf, 0, c20 ? "+FSP=1" : "+FSPL=1", -t, OK ) ;
2447       ckcmd ( mf, 0, buf, -t, OK ) ;
2455     cmd ( mf, "+FAR=1", t );