home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FIDO / PUP_V2B.ZIP / MODEMIO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-12-28  |  12.8 KB  |  526 lines
  1. #include <puppy.h>
  2. #include <ascii.h>
  3. #include <pupmem.h>
  4.  
  5. /*
  6.     These are all "medium low" level I/O for Puppy. There shouldnt be
  7. any DOS dependencies in here; the hardware drivers do that. These call the
  8. "generic" hardware as described in the interface docs.
  9.  
  10.     They may seem large for just a bunch of I/O routines, but there are
  11. things in here that eliminate many so-called "high-level" functions such as
  12. word wrap, command-ahead and input buffer control, etc. 
  13.  
  14.  
  15.     T. Jennings
  16.     Fido Software
  17.     164 Shipley
  18.     San Francisco CA 94107
  19.  
  20.     (k) all rights reversed
  21.  
  22.  
  23.     All of the following functions call functions from the same
  24.     list, or ones below it. 
  25.  
  26.  
  27.     Puppy's Console I/O. These will log the caller off due to
  28.     time limits, inactivity for 10 minutes or carrier loss. 
  29.  
  30. getargs(prompt)    Displays the prompt, returns a pointer to the inputted string.
  31. isargs()    Return true if there are more args that could be read.
  32. input(prompt,buff,length) Displays a prompt, inputs a line of text. This is
  33.         the thing that does the actual prompting and input when
  34.         getargs runs out of things to return.
  35. ask(ques)    Prints a string, inputs Y or N, returns true if Y. This
  36.         does a nice neat question input.
  37. cmdflush()    Flush any command-ahead.
  38.  
  39.     These do "formatted" I/O; printf() type stuff, word wrap, etc.
  40.  
  41. mprintf()    Same as PRINTF, except goes to the modem. 
  42. mputs()        Put a string to the modem.
  43. fmconout(c)    Outputs characters to the console, wrapping words to fit
  44.         within the set screen width. NOTE: You must issue a ^Z
  45.         after the last character to flush out any characters
  46.         stuck in the word buffer. 
  47.  
  48.     These are "plain" console I/O.
  49.  
  50. mconout(c)    Output C to the console. Maintains line/column
  51.         cursor position, handles control codes, etc.
  52. mconin()    Returns a character from the console. 
  53. mconstat()    Return true if a character available.
  54. mconflush()    Throw away all keyboard input.
  55. ques(q)        A low level question asker: accepts various things
  56.         for input. Does minimal cursor motion & cleanup.
  57.  
  58.     Puppy's Modem I/O. These will log the caller off if carrier
  59.     is lost. These do no control code processing or other
  60.     console type functions.
  61.  
  62. modin(n)    Returns character available, else -1 if N centiseconds elapse.
  63. modout(c)    Outputs C to the modem.
  64. modstat()    Returns true if a modem character available.
  65.  
  66.     Puppy's low level I/O support functions.
  67.  
  68. limitchk()    Checks the set time limit, and logs off if exceeded.
  69. flush(n)    Flush the modem until it is clear for n centiseconds.
  70. cd()        Returns true if Carrier Detect is true or cd_flag is true.
  71. carrierchk()    Checks for modem carrier via cd() and logs off if not present.
  72. limitchk()    Checks caller time limits in effect and logs off if exceeded.
  73.  
  74. */
  75.  
  76. /* NOTE: There is a subtle kludge here that enables the detection of 
  77. incoming Crash Mail.
  78.  
  79.     The keyboard input routines in BUFIO.C (mconstat(),
  80. mconin(), etc) strip parity of incoming characters, EXCEPT for TSYNC.
  81.  
  82.     If input() detects a TSYNC at anytime, it clears any
  83. input it may have accumulated and returns a string with the single
  84. character TSYNC in it. 
  85.  
  86.     If getarg() detects a TSYNC in its input, it immediately
  87. returns a pointer to the TSYNC.
  88.  
  89.     All this for Crash Mail. I hate this kludge.
  90.  
  91. */
  92.  
  93. static char line_buff[SS] = "";        /* command line buffer */
  94. static char *_nargp = line_buff;    /* pointer into it */
  95.  
  96. /* These are used by fmconout() */
  97.  
  98. static char word[SS];            /* word we're building */
  99. static char wordi = 0;            /* index/length of word */
  100. #define MARGIN 2            /* right margin on screen */
  101.  
  102. /* This buffer lets Puppy do typeahead even on systems that
  103. dont have interrupts. The input is polled during output & input
  104. and any characters are stored away in here. Input requests check the
  105. buffer and do further polling. */
  106.  
  107. static char conbuf[SS];            /* console type ahead buffer */
  108. static int head = 1;            /* indices into it */
  109. static int tail = 0;
  110.  
  111. /* Main command line input. This function returns a pointer to the
  112. next available argument, if none is available, it displays the prompt
  113. and inputs a string from the console. */
  114.  
  115. char *getarg(prompt)
  116. char *prompt;
  117. {
  118. char *cp;
  119.  
  120.     if (! isargs()) {            /* if line empty, */
  121.         input(prompt,line_buff,sizeof(line_buff)); /* get some input, */
  122.         _nargp= skip_delim(line_buff);    /* init the arg pointer */
  123.     }
  124.     cp= _nargp;                /* ptr to current arg */
  125.     _nargp= next_arg(_nargp);        /* skip to the next one, */
  126.     return(cp);
  127. }
  128. /* Return true if there are any args left. */
  129.  
  130. isargs() {
  131.  
  132.     return(num_args(_nargp));
  133. }
  134.  
  135. /* Flush the command buffer */
  136.  
  137. cmdflush() {
  138.  
  139.     _nargp= line_buff;
  140.     *_nargp= NUL;
  141. }
  142.  
  143. /* Ask a question, return true if "Y" pressed, 0 if "N". */
  144.  
  145. ask(s)
  146. char *s;
  147. {
  148. char c,cp,buff[SS];
  149.  
  150.     strcpy(buff,s);
  151.     strcat(buff,"? [Y,n]: ");
  152.  
  153.     while (1) {
  154.         switch (tolower(*getarg(buff))) {
  155.             case NUL: return(1);    /* CR is Yes */
  156.             case 'y': return(1);    /* Y is Yes */
  157.             case 'n': return(0);    /* N is No */
  158.         }
  159.         cmdflush();            /* else garbage */
  160.     }
  161. }
  162.  
  163. /* Ask a question, get a "hot" (single key) answer. Must ignore ^S and ^Q, 
  164. as it may get things all out of sync. */
  165.  
  166. ques(q)
  167. char *q;
  168. {
  169.     line= 0;            /* AVOID INFINITE RECURSION!!! */
  170.     while (*q) mconout(*q++);    /* output directly, */
  171.  
  172.     while (1) {
  173.         switch (mconin()) {
  174.             case XOF:    /* ignore Control-S */
  175.             case XON:    /* and Control-Q */
  176.             case ACK:    /* Ignore Control-F */
  177.                 break;
  178.  
  179.             case 'n':
  180.             case 'N':
  181.             case ETX:
  182.             case VT:
  183.                 return(0);
  184.                 break;
  185.  
  186.             case ' ':
  187.             case 'y':
  188.             case 'Y':
  189.             case CR:
  190.                 return(1);
  191.                 break;
  192.  
  193.             default: mconout(BEL); break;
  194.         }
  195.     }
  196. }
  197.  
  198. /* Issue a prompt, get a line of input. */
  199.  
  200. input(prompt,buff,len)
  201. char *prompt,*buff;
  202. int len;
  203. {
  204. char c;
  205. int n,i;
  206.  
  207.     mputs(prompt);                /* output the prompt, */
  208.     i= 0;
  209.     line= 0;                /* reset "more" */
  210.     while (1) {
  211.         c= mconin();            /* get a key, */
  212.         switch (c) {
  213.             case TSYNC:        /* KLUDGE */
  214.                 i= 0;        /* clear buffer ... */
  215.                 buff[i]= NUL;
  216.                 return(i);
  217.  
  218.             case CR:        /* end of input */
  219.                 buff[i]= NUL;
  220.                 mputs("\r\n");
  221.                 abort= 0;
  222.                 return(i);
  223.  
  224.             case BS:        /* delete character */
  225.             case DEL:
  226.                 n= 1; goto del;
  227.             case CAN:        /* delete line */
  228.             case ETX:
  229.             case VT:
  230.                 n= i;
  231. del:;                while (n && i) {
  232.                     mconout(BS);
  233.                     mconout(' ');
  234.                     mconout(BS);
  235.                     --n; --i;
  236.                 }
  237.                 break;
  238.  
  239.             case ACK: break;    /* ignore Control-F */
  240.  
  241.             default:        /* insert character */
  242.                 if ((c >= ' ') && (c <= '~') && (i < len-1)) {
  243.                     buff[i++]= c;
  244.                     mconout(c);
  245.  
  246.                 } else mconout(BEL);
  247.                 break;
  248.         }
  249.     }
  250. }
  251.  
  252. /* Output characters to the screen, building words and wrapping them
  253. as necessary to fit within the current width. */
  254.  
  255. fmconout(c)
  256. char c;
  257. {
  258.     if (c >= ' ') {                /* printable chars */
  259.         word[wordi++]= c;        /* build a word */
  260.         if ((wordi + MARGIN < caller.cols) && !delim(c)) return;
  261.     }
  262.     word[wordi]= NUL;            /* terminate it for output */
  263.  
  264. /* End of a word, word too large, or a control character. */
  265.  
  266.     if (column + wordi + MARGIN > caller.cols) {/* if word is too long, */
  267.         mconout(CR);            /* go to next line first */
  268.         mconout(LF);
  269.     }
  270.     if (*word) {                /* if there is a word there, */
  271.         for (wordi= 0; word[wordi]; wordi++)
  272.             mconout(word[wordi]);    /* output it */
  273.         wordi= 0;             /* now its gone */
  274.     }
  275.     if ((c < ' ') && (c != SUB)) mconout(c); /* do control chars */
  276. }
  277.  
  278. /* Output a character to the console, and poll for ^C, etc. */
  279.  
  280. mconout(c)
  281. char c;
  282. {
  283.     if (mconstat() == XOF) {        /* if a pause, */
  284.         while (mconin() == XOF);    /* wait for anything but XOF */
  285.     }
  286.  
  287.     modout(c);                /* to the modem, */
  288.     if (c && (c != BEL)) lconout(c);    /* one to console if not bell */
  289.  
  290.     if (c >= ' ') ++column;            /* "cursor" motion */
  291.     else if (c == CR) column= 0;
  292.     else if (c == LF) {            /* next line */
  293.         ++line;
  294.         if (line >= caller.lines - 1) {    /* screen pause, set abort */
  295.             line= 0;        /* reset it, */
  296.             if (caller.lines) {    /* if line pause enabled */
  297.                 mconflush();    /* flush typeahead, */
  298.                 abort= ! ques(" <- More\r");    
  299.             }
  300.         }
  301.     }
  302. }
  303.  
  304. /* Wait for a character from the keyboard. Check for activity, log the guy 
  305. off if he times out. */
  306.  
  307. #define ONEMIN (60L * 1000L)            /* milliseconds in one minute */
  308. #define EIGHTMIN (ONEMIN * 8L)
  309. #define TENMIN (ONEMIN * 10L)            /* ten minutes */
  310.  
  311. mconin() {
  312. FLAG warned;
  313.  
  314.     millisec= 0L;                /* clear the timer, */
  315.     warned= 0;                /* not warned yet */
  316.     while (! mconstat()) {
  317.         if ((millisec > EIGHTMIN) && (!warned)) {
  318.             mputs("\r\nPup says: \07\"I'll hang up on you if you sit idle too long!\"\r\n");
  319.             ++warned;
  320.         }
  321.         if (millisec > TENMIN) {
  322.             mputs("\r\nPup says: \"You were warned!\"\r\n");
  323.             logoff(0,1);
  324.         }
  325.     }
  326.     tail= ++tail % sizeof(conbuf);
  327.     return( (int) conbuf[tail]);
  328. }
  329.  
  330. /* Return 0 if no key available, else the key. */
  331.  
  332. mconstat() {
  333.  
  334. int t;
  335.     pollkbd();                /* poll for chars, */
  336.     t= (tail + 1) % sizeof(conbuf);        /* wrap pointer, */
  337.     return((t == head) ? 0 : conbuf[t]);    /* the char or 0 */
  338. }
  339.  
  340. /* Poll both keyboards, stuff characters into the ring buffer. This handles
  341. all background tasks, like type mode, etc. NOTE: This strips parity off
  342. all incoming characters EXCEPT TSYNC! This lets us support Continuous Mail. */
  343.  
  344. pollkbd() {
  345.  
  346. char c;
  347.  
  348.     limitusr();                /* maybe forced logoff */
  349.  
  350.     if (! test) {                /* if online, */
  351.         carrierchk();            /* watch carrier! */
  352.         if (_mconstat()) {        /* if modem character there */
  353.             c= _mconin();        /* read it, */
  354.             if (c != TSYNC) c &= 0x7f;
  355.             put_c(c);        /* use it */
  356.         }
  357.  
  358.     } else {
  359.         c= keyhit();
  360.         if (c) put_c(c);        /* else just local input */
  361.     }
  362. }
  363.  
  364. /* Put this character into the ring buffer, process the special
  365. control characters as necessary. */
  366.  
  367. put_c(c)
  368. char c;
  369. {
  370.     switch (c) {
  371.         case ETX:            /* Control-C */
  372.         case VT:            /* Control-K */
  373.             abort= 1;        /* flag as an abort, */
  374.         case TSYNC:            /* Continuous Mail ... */
  375.         case XOF:             /* Control-S */
  376.         case ACK:            /* Control-F */
  377.             mconflush();        /* flush typeahead, */
  378.             cmdflush();        /* flush command buffer, */
  379.             break;
  380.  
  381.         case NUL: return;        /* ignore NULs */
  382.     }
  383.     if (head != tail) {            /* if room, install it */
  384.         conbuf[head]= c;
  385.         head= ++head % sizeof(conbuf);
  386.     }
  387. }
  388.  
  389. /* Flush the console buffer. */
  390.  
  391. mconflush() {
  392.  
  393.     while (mconstat()) mconin();        /* flush all characters, */
  394. }
  395.  
  396. /* Formatted print to the modem. */
  397.  
  398. mprintf(f)
  399. char *f;
  400. {
  401. char buf[500];
  402.  
  403.     _spr(buf,&f);
  404.     mputs(buf);
  405. }
  406.  
  407. /* Output a string to the modem. */
  408.  
  409. mputs(s)
  410. char *s;
  411. {
  412.     while (*s) fmconout(*s++);
  413.     fmconout(SUB);                /* flush the word buffer */
  414. }
  415.  
  416. /* Watch the time limits set, and give warnings when the limit comes 
  417. up. When the limit reaches 0, display a message and log the caller off. */
  418.  
  419. limitusr() {
  420. int n;
  421.  
  422.     n= limit - minutes;            /* time left */
  423.  
  424.     if (limit == 0) {            /* if no limit, */
  425.         return;                /* do nothing */
  426.  
  427.     } else if (n < 1) {            /* time is over */
  428.         if (lmtstate < 3) {
  429.             lmtstate= 3;        /* only once */
  430.             limit= 0;        /* DISABLE LIMITS */
  431.             mprintf("\r\n\r\n\07 Pup Says: \"Your time is up!\"\r\n\r\n");
  432.             logoff(0,1);        /* disconnect */
  433.         }
  434.  
  435.     } else if (n < 2) {            /* final PUP SAYS: */
  436.         if (lmtstate < 2) {
  437.             lmtstate= 2;        /* do only once */
  438.             mprintf("\r\n\r\n\07Pup Says: \"I'm gonna hang up on you in 60 seconds!\"r\n\r\n");
  439.         }
  440.  
  441.     } else if (n < 5) {            /* two minute PUP SAYS: */
  442.         if (lmtstate < 1) {        /* if no PUP SAYS: yet, */
  443.             lmtstate= 1;        /* remember this, BEFORE THE MSG */
  444.             mprintf("\r\n\07Pup Says: \"You have %d minutes left!\"\r\n",n);
  445.         }
  446.     }
  447. }
  448.  
  449. /* Check the time limit, and if over, bump the guy off. */
  450.  
  451. limitchk() {
  452.  
  453.     if (limit && (minutes >= limit)) logoff(0,1);
  454. }
  455. /* Output to the modem. */
  456.  
  457. modout(c)
  458. char c;
  459. {
  460.     if (test) return;
  461.  
  462.     carrierchk();                /* always watch this */
  463.     _mconout(c);                /* limit will get checked eventually */
  464. }
  465. /* Get a character from the modem, with a maximum wait time, in
  466. centiseconds. Returns -1 if timeout. */
  467.  
  468. modin(n)
  469. unsigned n;
  470. {
  471. long dly;
  472.  
  473.     if (test) return(-1);        /* cant in test mode */
  474.  
  475.     if (_mconstat()) return(_mconin() & 0xff); /* why wait? */
  476.  
  477.     dly= n * 10L;            /* time, in milliseconds */
  478.  
  479.     millis2= 0L;            /* clear the ticker, */
  480.     while (millis2 < dly) {
  481.         carrierchk();        /* watch disconnect, */
  482.         if (_mconstat())     /* if a char avail, return it. */
  483.             return(_mconin() & 0xff);
  484.     }
  485.     return(-1);            /* timeout */
  486. }
  487.  
  488. /* Delay N centiseconds. Do nothing in the mean time. */
  489.  
  490. delay(n)
  491. int n;
  492. {
  493. long dly;
  494.  
  495.     dly= n * 10L;
  496.     millisec= 0L;
  497.     while (millisec < dly);
  498. }
  499.  
  500. /* Logoff if carrier is lost. */
  501.  
  502. carrierchk() {
  503.  
  504.     if (! cd()) logoff(0,1);
  505. }
  506.  
  507. /* Return true if carrier detect is true or "ignore CD" is true. */
  508.  
  509. cd() {
  510.  
  511.     if (cd_flag || test) return(1);    /* fake on-line */
  512.     return(_cd());            /* real online */
  513. }
  514.  
  515. /* Flush the modem until its quiet for N centiseconds or just flush
  516. whatever is there if n == 0. */
  517.  
  518. flush(n)
  519. int n;
  520. {
  521.     if (test) return;
  522.  
  523.     if (n) while (modin(n) != -1);
  524.     else while (_mconstat()) _mconin();
  525. }
  526.