home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / windows / help / fptext.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-03-10  |  2.6 KB  |  153 lines
  1. /*
  2. *
  3. *!AU: Michael A. Shiels
  4. *!CD: 1-Jun-86
  5. *!FR: Dr. Dobbs July 1985
  6. * 
  7. */
  8.  
  9. #define LINT_ARGS
  10. #include <stdio.h>
  11. #include    <signal.h>
  12.  
  13. #include "masdos.h"
  14.  
  15. #include    "waitfork.x"
  16.  
  17. #define PTEXT_IBM
  18.  
  19. static    int        ptextctrlchit = 0;
  20. static    int        (*oldsignal)();
  21.  
  22. static    ptextctrlc()
  23. {
  24.     ptextctrlchit = 1;
  25.     signal( SIGINT, ptextctrlc );
  26. }
  27.  
  28. /*    ptext( dirc, dirv, Arg_Num_Cols, 79 / Arg_Num_Cols,
  29.         (dirc/Arg_Num_Cols) + (dirc % Arg_Num_Cols != 0) ); */
  30.  
  31. fptexth( linec, linev, numcols, colwidth, numrows, where )
  32. int         linec, numcols, colwidth;
  33. char        **linev;
  34. int         numrows;
  35. FILE    *where;
  36. {
  37.     register int    j,i;
  38.     register char   **lineend, **line, **nextline;
  39.     register int    linenum = 0;
  40.  
  41.     ptextctrlchit = 0;
  42.     oldsignal = signal( SIGINT, ptextctrlc );
  43.  
  44.     for( j = numrows ; --j >= 0 && !ptextctrlchit ; )
  45.     {
  46. #ifdef PTEXT_IBM
  47.         putc( ' ', where );
  48. #endif
  49.         lineend = &linev[numcols - 1];
  50.      
  51.         for( i = numcols ; --i >= 0 && *linev ; linev++ )
  52.         {
  53.             pr_line( *linev, colwidth,
  54.                 linev < lineend, where );
  55.         }
  56.         mynewline( where );
  57.     }
  58.     fflush( where );
  59.     signal( SIGINT, oldsignal );
  60.     D_OUT("ptexth");
  61. }
  62.  
  63. fptextv( linec, linev, numcols, colwidth, numrows, where )
  64. int         linec, numcols, colwidth;
  65. char        **linev;
  66. int         numrows;
  67. FILE    *where;
  68. {
  69.     register int    j;
  70.     register char   **lineend, **line, **nextline;
  71.     register int    linenum = 0;
  72.  
  73.     lineend = &linev[linec - 1];
  74.      
  75.     for( j = numrows ; --j >= 0 ; )
  76.     {
  77. #ifdef PTEXT_IBM
  78.         putc( ' ', where );
  79. #endif
  80.         for( line = linev++ ; line <= lineend ; line = nextline )
  81.         {
  82.             nextline = line + numrows;
  83.             pr_line( *line, colwidth,
  84.                 nextline <= lineend );
  85.         }
  86.         mynewline( where );
  87.     }
  88.     D_OUT("ptextv");
  89. }
  90.  
  91. static pr_line( str, width, padded, where )
  92. register char  *str;
  93. int        width, padded;
  94. FILE    *where;
  95. {
  96.     int         col = 0;
  97.      
  98.     while( col < width && *str )
  99.     {
  100.         if( *str == '\n' )
  101.             break;
  102.         
  103.         else if( *str == '\r' )
  104.         {
  105.             while( col > 0 )
  106.             {
  107.                 --col;
  108.                 putc( '\b', where );
  109.             }
  110.  
  111.             str++;
  112.         }
  113.         else if( *str == '\t' )
  114.         {
  115.             str++;
  116.             col++;
  117.             putc( ' ', where );
  118.              
  119.             while( ( col % 8 ) && col < width )
  120.             {
  121.                 putc( ' ', where );
  122.                 col++;
  123.             }
  124.         }
  125.         else
  126.         {
  127.             if( *str == Q_ESC )
  128.             {
  129.                 putc( *str++, where );
  130.                 if( !*str )
  131.                     break;
  132.     
  133.                 putc( *str++, where );
  134.                 if( !*str )
  135.                     break;
  136.     
  137.                 putc( *str++, where );
  138.                 if( !*str )
  139.                     break;
  140.             }
  141.             else if( *str == '\b' )
  142.                 --col;
  143.             else if( *str >= ' ' )
  144.                 ++col;
  145.      
  146.         putc( *str++, where );
  147.         }
  148.     }
  149.     if( padded )
  150.         while( col++ < width )
  151.             putc( ' ', where );
  152. }
  153.