home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / elm.lzh / ELM / SRC / BUILTIN.C < prev    next >
Text File  |  1991-01-11  |  9KB  |  306 lines
  1.  
  2. static char rcsid[] = "@(#)$Id: builtin.c,v 4.1 90/04/28 22:42:34 syd Exp $";
  3.  
  4. /*******************************************************************************
  5.  *  The Elm Mail System  -  $Revision: 4.1 $   $State: Exp $
  6.  *
  7.  *             Copyright (c) 1986, 1987 Dave Taylor
  8.  *             Copyright (c) 1988, 1989, 1990 USENET Community Trust
  9.  *******************************************************************************
  10.  * Bug reports, patches, comments, suggestions should be sent to:
  11.  *
  12.  *    Syd Weinstein, Elm Coordinator
  13.  *    elm@DSI.COM            dsinc!elm
  14.  *
  15.  *******************************************************************************
  16.  * $Log:    builtin.c,v $
  17.  * Revision 4.1  90/04/28  22:42:34  syd
  18.  * checkin of Elm 2.3 as of Release PL0
  19.  * 
  20.  *
  21.  ******************************************************************************/
  22.  
  23. /** This is the built-in pager for displaying messages while in the Elm
  24.     program.  It's a bare-bones pager with precious few options. The idea
  25.     is that those systems that are sufficiently slow that using an external
  26.     pager such as 'more' is too slow, then they can use this!
  27.  
  28.     Also added support for the "builtin+" pager (clears the screen for
  29.     each new page) including a two-line overlap for context...
  30.  
  31. **/
  32.  
  33. #include "headers.h"
  34. #include <ctype.h>
  35.  
  36. #define  BEEP        007        /* ASCII Bell character */
  37.  
  38. static    unfilled_lines,
  39.     form_title;
  40.  
  41. int    lines_displayed,        /* total number of lines displayed      */
  42.     total_lines_to_display,        /* total number of lines in message     */
  43.     pages_displayed;         /* for the nth page titles and all      */
  44.  
  45. start_builtin(lines_in_message)
  46. int lines_in_message;
  47. {
  48.     /** clears the screen and resets the internal counters... **/
  49.  
  50.     dprint(8,(debugfile, 
  51.         "displaying %d lines from message using internal pager\n",
  52.         lines_in_message));
  53.  
  54.     unfilled_lines = LINES;
  55.     form_title = 1;
  56.     lines_displayed = 0;
  57.         pages_displayed = 1;
  58.  
  59.     total_lines_to_display = lines_in_message;
  60. }
  61.  
  62. extern int tabspacing;
  63.  
  64. int
  65. next_line(inputptr, output, width)
  66. char **inputptr, *output;
  67. register unsigned width;
  68. {
  69.     /* Copy characters from input to output and copy
  70.      * remainder of output to output. In copying use ^X notation for
  71.      * control characters, '?' non-ascii characters, expand tabs
  72.      * to correct number of spaces till next tab stop.
  73.      * Column zero of the next line is considered to be the tab stop
  74.      * that follows the last one that fits on a line.
  75.      * Copy until newline/return encountered, null char encountered,
  76.      * width characters producted in output buffer.
  77.      * Formfeed is handled exceptionally. If encountered it
  78.      * is removed from input and 1 is returned. Otherwise 0 is returned.
  79.      */
  80.  
  81.     register char *optr, *iptr;
  82.     register unsigned chars_output, nt;
  83.     int ret_val;
  84.  
  85.     optr = output;
  86.     iptr = *inputptr;
  87.     chars_output = 0;
  88.  
  89.     ret_val = 0;    /* presume no formfeed */
  90.     while(1) {
  91.  
  92.       if(chars_output >= width) {        /* no more room on line */
  93.         *optr++ = '\l';
  94.         *optr++ = '\r';
  95.         /* if next input character is newline or return,
  96.          * we can skip over it since we are outputing a newline anyway */ 
  97.         if((*iptr == '\l') || (*iptr == '\r'))
  98.           iptr++;
  99.         break;        
  100.       } else if (*iptr == '\l' || *iptr == '\r') {    /*newline or return */
  101.         *optr++ = '\l';
  102.         *optr++ = '\r';
  103.         iptr++;
  104.         break;            /* end of line */
  105.       } else if(*iptr == '\f') {        /* formfeed */
  106.         /* if next input character is newline or return,
  107.          * we can skip over it since we are outputing a formfeed anyway */ 
  108.         if((*++iptr == '\l') || (*iptr == '\r'))
  109.           iptr++;
  110.         ret_val = 1;
  111.         break;            /* leave rest of screen clear */
  112.       } else if(*iptr == '\0') {        /* none left in input string */
  113.         break;
  114.       } else if(*iptr == '\t') {        /* tab stop */
  115.         if((nt=next_tab(chars_output+1)) > width) {
  116.           *optr++ = '\l';        /* won't fit on this line - autowrap */
  117.           *optr++ = '\r';        /* tab by tabbing so-to-speak to 1st */
  118.           iptr++;            /* column of next line */
  119.           break;
  120.         } else {        /* will fit - output proper num of spaces */
  121.           while(chars_output < nt-1) {
  122.         chars_output++;
  123.         *optr++ = ' ';
  124.           }
  125.           iptr++;
  126.         }
  127.       } else if(isprint(*iptr)) {
  128.         *optr++ = *iptr++;            /* printing character */
  129.         chars_output++;
  130.       } else {            /* non-white space control character */
  131.         if(chars_output + 2 <= width) {
  132.           *optr++ = '^';    
  133.           *optr++ = (*iptr == '\177' ? '?' : (*iptr&0177) + 'A' - 1);
  134.           iptr++;
  135.           chars_output += 2;
  136.         } else {            /* no space on line for both chars */
  137.           break;
  138.         }
  139.       }
  140.     }
  141.     *optr = '\0';
  142.     *inputptr = iptr;
  143.     return(ret_val);
  144. }
  145.  
  146.  
  147. int
  148. display_line(input_line)
  149. char *input_line;
  150. {
  151.     /** Display the given line on the screen, taking into account such
  152.         dumbness as wraparound and such.  If displaying this would put
  153.         us at the end of the screen, put out the "MORE" prompt and wait
  154.         for some input.   Return non-zero if the user terminates the
  155.         paging (e.g. 'i') or zero if we should continue. Also, 
  156.             this will pass back the value of any character the user types in 
  157.         at the prompt instead, if needed... (e.g. if it can't deal with
  158.         it at this point)
  159.     **/
  160.     
  161.     char *pending, footer[SLEN], display_buffer[SLEN], ch;
  162.     int formfeed, lines_more;
  163.  
  164. #ifdef MMDF
  165.     if (strcmp(input_line, MSG_SEPERATOR) == 0)
  166.       strcpy(input_line," ");
  167. #endif /* MMDF */
  168.     pending = input_line;
  169.     CarriageReturn();
  170.  
  171.     do {
  172.  
  173.       /* while there is more space on the screen - leave prompt line free */
  174.       while(unfilled_lines > 0) {
  175.  
  176.         /* display a screen's lineful of the input line
  177.          * and reset pending to point to remainder of input line */
  178.         formfeed = next_line(&pending, display_buffer, COLUMNS);
  179.  
  180.         if(*display_buffer == '\0') {    /* no line to display */
  181.           if(!formfeed)    /* no "formfeed" to display
  182.                       * need more lines for screen */
  183.         return(FALSE);
  184.         } else
  185.           Write_to_screen(display_buffer, 0);
  186.  
  187.         /* if formfeed, clear remainder of screen */
  188.         if(formfeed) {
  189.           CleartoEOS();
  190.           unfilled_lines=0;
  191.         }
  192.         else
  193.           unfilled_lines--;
  194.  
  195.         /* if screen is not full (leave room for prompt)
  196.          * but we've used up input line, return */
  197.  
  198.         if(unfilled_lines > 0 && *pending == '\0')
  199.           return(FALSE);    /* we need more lines to fill screen */
  200.  
  201.         /* otherwise continue to display next part of input line */
  202.       }
  203.  
  204.       /* screen is now full - prompt for user input */
  205.       lines_more = total_lines_to_display - lines_displayed;
  206.       sprintf(footer,
  207.           ( (user_level == 0) ?
  208.   " There %s %d line%s left (%d%%). Press <space> for more, or 'i' to return. "
  209.           : (user_level == 1) ?
  210.   " %s%d line%s more (%d%%). Press <space> for more, 'i' to return. "
  211.           :
  212.   " %s%d line%s more (you've seen %d%%) "),
  213.            (user_level == 0 ?
  214.              (lines_more == 1 ? "is" : "are") : ""),
  215.            lines_more, plural(lines_more),
  216.            (int)((100L * lines_displayed) / total_lines_to_display));
  217.  
  218.       MoveCursor(LINES, 0);
  219.       StartBold();
  220.       Write_to_screen(footer, 0);
  221.       EndBold();
  222.  
  223.       switch(ch = ReadCh()) {
  224.  
  225.         case '\l':
  226.         case '\r':    /* scroll down a line */
  227.             unfilled_lines = 1;
  228.             ClearLine(LINES);
  229.             break;
  230.  
  231.         case ' ':    /* scroll a screenful */
  232.             unfilled_lines = LINES;
  233.             if(clear_pages) {
  234.               ClearScreen();
  235.               MoveCursor(0,0);
  236.               CarriageReturn();
  237.  
  238.               /* output title */
  239.               if(title_messages && filter) {
  240.                 title_for_page(++pages_displayed);
  241.                 unfilled_lines -= 2;
  242.               }
  243.             } else ClearLine(LINES);
  244.  
  245.             /* and keep last line to be first line of next
  246.              * screenful unless we had a formfeed */
  247.             if(!formfeed) {
  248.               if(clear_pages)
  249.                 Write_to_screen(display_buffer, 0);
  250.               unfilled_lines--;
  251.             }
  252.             break;
  253.  
  254.         default:    return(ch);
  255.       }
  256.       CarriageReturn();
  257.     } while(*pending);
  258.     return(FALSE);
  259. }
  260.       
  261. title_for_page(page)
  262. int page;
  263. {
  264.     /** Output a nice title for the second thru last pages of the message 
  265.         we're currently reading. Note - this code is very similar to
  266.         that which produces the title for the first page, except that
  267.         page number replaces the date and the method by which it
  268.         gets to the screen **/
  269.  
  270.     char spfmt[80];
  271.     static char title1[SLEN], title2[SLEN];
  272.     char titlebuf[SLEN], title3[SLEN], who[SLEN];
  273.     static t1_len, t2_len;
  274.     register int padding, showing_to;
  275.  
  276.     /* format those parts of the title that are constant for a message */
  277.     if(form_title) {
  278.  
  279.       showing_to = tail_of(headers[current-1]->from, who,
  280.         headers[current-1]->to);
  281.  
  282.       sprintf(title1, "%s %d/%d  ",
  283.           headers[current-1]->status & DELETED ? "[deleted]" :
  284.           headers[current-1]->status & FORM_LETTER ? "Form": "Message",
  285.           current, message_count);
  286.       t1_len = strlen(title1);
  287.       sprintf(title2, "%s %s", showing_to? "To" : "From", who);
  288.       t2_len = strlen(title2);
  289.     }
  290.     /* format those parts of the title that vary between pages of a mesg */
  291.     sprintf(title3, "  Page %d", page);
  292.  
  293.     /* truncate or pad title2 portion on the right
  294.      * so that line fits exactly to the rightmost column */
  295.     padding = COLUMNS - (t1_len + t2_len + strlen(title3));
  296.  
  297.     sprintf(spfmt,"%%s%%-%d.%ds%%s\l\r\l\r", t2_len+padding, t2_len+padding);
  298.     
  299.     sprintf(titlebuf, spfmt, title1, title2, title3);
  300.  
  301.     /* extra newline is to give a blank line after title */
  302.  
  303.     Write_to_screen(titlebuf, 0);
  304.     form_title = 0;
  305. }
  306.