home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c033 / 4.ddi / CPRINT.C next >
Encoding:
C/C++ Source or Header  |  1987-05-15  |  4.0 KB  |  148 lines
  1. /************************************************************************
  2.                                                                                             
  3.          cprint.c  --  pretty printer for C programs                            
  4.  
  5. Synopsis:    This program is used to output C source files to a printer
  6.     or print file. It prints a page header with date,time and copyright,
  7.     as well as line numbers for each file. The format is:
  8.  
  9.         cprint <-o outfile> file1...filen
  10.  
  11.     where <-o outfile> is used to print to a file for spooling.
  12.  
  13.                                                                                              
  14.     Rev    Date        by        Reason        
  15.     ----- --------    ---    ------------------------------------
  16.     0001    04/16/84    jlk    Fixed tab for HT on printer                                 
  17.     0002    01/06/85    jlk    Modified for IBM pc                                             
  18.    0003  04/08/86 jlk    Updated for v3.0 compilers              
  19.     0004    05/01/87 jlk    added comments, other printers
  20.                                                                                                 
  21. ************************************************************************/
  22.  
  23. #include "stdio.h"
  24. #include "blackstr.h"
  25. #include "kb_head.h"
  26. #include "pr_head.h"
  27. #include "ut_head.h"
  28.  
  29. #define LPP 60
  30. #define ERROR -1
  31. #define PRINTER EPSONRX80
  32.  
  33. FILE *fpp;                    /* printer file pointer */
  34. char    *name;
  35. char    sdate[10],stime[8];
  36. int    toprinter,page,line;
  37. long ut_timel(),ut_datel();
  38.  
  39. main(argc,argv)
  40. int    argc;
  41. char    *argv[];
  42. {
  43.     int    i,j,c,st,year;
  44.     long    cdate,ctime;    /* current date & time */
  45.     FILE    *fp,*prn;
  46.     char    *ofile;        /* output file name (if any)*/
  47. /************************
  48.     PARSE COMMAND LINE
  49. ************************/
  50.     if (argc<2)
  51.     { 
  52.       printf("Input filename required for numbered print");
  53.       exit();
  54.     } else {
  55.        if (*argv[1] != '-')
  56.        {    
  57.             ofile = "prn";                        /* output to standard printer */
  58.             st = 1;
  59.             fpp = stdprn;
  60.        } else { 
  61.             ofile = argv[2];                        /* output to a file */
  62.             st = 3;
  63.        }
  64.     }
  65. /*************************
  66.     GET DATE AND TIME 
  67. **************************/
  68.     cdate=ut_datel();                                /* get current day */
  69.     ctime=ut_timel();                                /* and current time */
  70.     if (cdate<840000)
  71.     {
  72.         printf("\n\r System date not set -- Please set ");
  73.         exit();
  74.     } else  ut_ldatestr(sdate,cdate);        /* date to string */
  75.     year = cdate/10000;
  76.     ut_ltimestr(stime,ctime);                    /* time to string */
  77. /****************************
  78.     OPEN OUTPUT FOR PRINTING
  79. ****************************/
  80.     pr_init(EPSONRX80);                            /*set printer type */
  81.     if(!(fpp = fopen(ofile,"w")))                /* printer */
  82.     {
  83.           printf("ERROR opening %s \n\r",ofile);
  84.           exit();
  85.     }
  86.     fprintf(fpp,"%s",pr_attr(CONDENS));     /* set columns to 132 on printer */
  87.     fprintf(fpp,"%s",pr_tabs());
  88. /**************************
  89.     PRINT EACH FILE
  90. ***************************/
  91.     for (j=st ; j < argc ; j++) 
  92.     {
  93.         line = 1;
  94.         page = 1;
  95.         name = argv[j];
  96.         if (!(fp = fopen(argv[j], "r")))
  97.         {
  98.             printf ("error opening file -- %s\n",argv[j]);
  99.             break;
  100.         }
  101.         pr_shdr(year,sdate,stime);                    /* print page header */
  102.         fprintf (fpp,"%6d  ",line);
  103.         while (( c = fgetc(fp)) != EOF) 
  104.         {
  105.           if(c != '\f')
  106.             fputc(c,fpp);
  107.           if (c == '\n') 
  108.           {
  109.             if ((line % LPP) == 0) 
  110.                 pr_shdr(year,sdate,stime,toprinter);
  111.                 line++;
  112.                 fprintf (fpp,"%6d  ",line);
  113.           }
  114.         }
  115.         fputc(CR,fpp);    /* clear buffer */
  116.         fclose (fp);
  117.     }
  118.     fputc('\f',fpp);
  119.     fclose(fpp);
  120.     exit();
  121. }
  122. /***************************
  123.   pr_shdr(year,sdate,stime)                print header
  124. ***************************/                                    
  125. pr_shdr(year,sdate,stime)
  126. int year;
  127. char *sdate,*stime;
  128. {
  129.     fputc('\f',fpp);
  130.     fprintf(fpp,"\tCopyright (c), 19%2d by Tymon,Inc.",year);
  131.     fprintf (fpp,"\t\t\t\t\t\t    ");
  132.     fprintf(fpp,"%s",pr_attr(DWIDE));/* double width printing */
  133.     fprintf(fpp,"%s",pr_attr(BOLD));    /* and bold */
  134.     fprintf(fpp,"%12s\n",name);
  135.     fprintf(fpp,"%s",pr_attr(NODWIDE));
  136.     fprintf(fpp,"%s",pr_attr(NOBOLD));
  137.     fprintf(fpp,"\tDate: %8s",sdate);
  138.     fprintf(fpp,"  Time: %8s",stime);
  139.     fprintf (fpp,"\t\t\t\t\t\t\t\t\tPage: ");
  140.     fprintf(fpp,"%s",pr_attr(DWIDE));/* double width printing */
  141.     fprintf(fpp,"%s",pr_attr(BOLD));    /* and bold */
  142.     fprintf(fpp,"%3d\n\n\r",page++);
  143.     fprintf(fpp,"%s",pr_attr(NODWIDE));
  144.     fprintf(fpp,"%s",pr_attr(NOBOLD));
  145.     return;
  146. }
  147.  
  148.