home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / UTILITYS / XWP11SRC.ARC / XWPFILES.C < prev    next >
Text File  |  1990-07-21  |  2KB  |  88 lines
  1. /*    XWPFILES.C
  2. **
  3. **    File Utilities for XWP
  4. */
  5.  
  6. #include "a:stdio.h"
  7. #include "b:oxege.h"
  8.  
  9. char FLprint;            /* Flag for print active    */
  10. char GLpline;            /* Print line             */
  11. char filename[15];        /* Filename to print out    */
  12. int prnfp;            /* Printout file identifier */
  13. extern char scratch[];
  14.  
  15. initprn()
  16.     {
  17.     spoke( 2, 15,  " FILE TO PRINT:  ", ATTDIM );
  18.     spoke( 3, 15, "                 ", ATTBRT | INVATT);
  19.     adr( 3, 16 );
  20.     fflush( stdin );
  21.     defcursor( 3 );
  22.     gets( filename );
  23.     defcursor( 0 );
  24.     stoupper( filename );
  25.     if ( ( prnfp = fopen( filename, "r" ) ) == NULL )
  26.         {
  27.         fill( 2, 15, 3, 32, FILL1, ATTDIM | ATTALT );
  28.         return 0;
  29.         }
  30.     strcpy( scratch, "PRINTING " );
  31.     strcat( scratch, filename );
  32.     strcat( scratch, "..." );
  33.     message( 2, 0, scratch );
  34.     FLprint = 1;
  35.     GLpline = 1;
  36.     fill( 2, 15, 3, 32, FILL1, ATTDIM | ATTALT );
  37.     }
  38.  
  39. print()
  40.     {
  41.     char c;
  42.     if ( FLprint == NULL ) return;
  43.     if ( (c = getc( prnfp )) == EOF)
  44.         {
  45.         endprn();
  46.         }
  47.     else    
  48.         { 
  49.         lo( c );
  50.         if ( c == LF )
  51.             {
  52.             ++GLpline;
  53.             }
  54.         if ( GLpline == 55 )
  55.             {
  56.             GLpline = 1;
  57.             lo( FF );
  58.             }
  59.         }
  60.     }
  61.  
  62. endprn()
  63.     {
  64.     lo( FF);
  65.     fclose( prnfp );
  66.     message( 2, 0, greeting() ); 
  67.     FLprint = 0;
  68.     }
  69.  
  70. stoupper( string )
  71.     char *string;
  72.     {
  73.     char *character;
  74.     character = string;
  75.     while ( *character )
  76.         {
  77.         *character = toupper( *character );
  78.         character++;
  79.         }
  80.     return string;
  81.     }
  82. racter = string;
  83.     while ( *character )
  84.         {
  85.         *character = toupper( *character );
  86.         character++;
  87.         }
  88.     return