home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c072 / 1.ddi / PRG5_3.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-09-19  |  3.8 KB  |  135 lines
  1. /* Program 5_3 -- Pretty print (2nd vers)
  2.     by Stephen R. Davis, 1987
  3.  
  4.   Accepts up to two arguments which are assumed to be file names.
  5.   Prints first argument to second argument after adding line
  6.   numbers and noting the "nesting level".  If the second file name
  7.   is missing, assumes 'stdout'.  If first argument is missing, this
  8.   is assumed to be an error and an error message is given.
  9. */
  10.  
  11. #include <stdio.h>
  12. #include <process.h>
  13. #include <errno.h>
  14.  
  15. /*the system error list is known at link time*/
  16. extern char *sys_errlist [];
  17.  
  18. /*define a few macros we can use*/
  19. #define min(x,y) ((x)<(y)) ? (x):(y)
  20. #define lpp 66
  21.  
  22. /*prototype definitions --*/
  23. void main (int, char **);
  24. void nesting (unsigned *, char *);
  25. char *fgetstr (char *, int, FILE *);
  26. void errexit (unsigned);
  27.  
  28. /*Main - open the first and second arguments and proceed
  29.      as in Prog1*/
  30. void main (argc, argv)
  31.     int argc;
  32.     char *argv[];
  33. {
  34.     FILE *input,*output;
  35.     char string[256];
  36.     unsigned linenum,level,newlevel;
  37.  
  38.     if (argc > 3 || argc < 2)          /*wrong number args?*/
  39.          errexit (1);
  40.  
  41.     if ((input = fopen (argv[1], "r")) == 0) /*get input file*/
  42.          errexit (2);
  43.  
  44.     if (argc == 2)                     /*if no output file...*/
  45.          output = stdout;              /*...use stdout, else...*/
  46.     else {                             /*...open output file*/
  47.          if ((output = fopen (argv[2], "r")) != 0)
  48.               errexit (3);             /*file exists already!*/
  49.          fclose (output);
  50.          if ((output = fopen (argv[2], "w")) == 0)
  51.               errexit (4);
  52.     }
  53.  
  54.     linenum = 0;
  55.     newlevel = 0;
  56.     while (fgetstr(string, 255, input)) {
  57.          level = newlevel;
  58.          nesting(&newlevel, string);
  59.          string[70] = '\0';
  60.          if (fprintf (output, "%3u[%2u]: %s\n", ++linenum,
  61.                              min(level, newlevel), string) < 0)
  62.               errexit (5); /*note: '\n' removed for fgets*/
  63.     };
  64.  
  65.     while (linenum++ % lpp)            /*<--use this...*/
  66.          fprintf (output, "\n");
  67.     /*fprintf (output, "\f\n");*/      /*<--...or this */
  68.  
  69.     if (fclose (input))                /*put our toys away*/
  70.          errexit (6);
  71.     if (fclose (output))
  72.          errexit (7);
  73.  
  74.     /*exit normally*/
  75.     exit (0);
  76. }
  77.  
  78. /*Nesting - examine the given string for "{" and "}".  Increment
  79.             level for every "{" and decrement for "}"s.*/
  80. void nesting (levelptr,stringptr)
  81.     unsigned *levelptr;
  82.     char *stringptr;
  83. {
  84.     do {
  85.          if (*stringptr == '{')
  86.               *levelptr += 1;
  87.          if (*stringptr == '}')
  88.               *levelptr -= 1;
  89.     } while (*stringptr++);
  90. }
  91.  
  92. /*fgetstr - 'gets' does not return '\n' -- 'fgets' does.
  93.             this routine makes 'fgets' like 'gets'*/
  94. char *fgetstr (string, n, filptr)
  95.     char string[];
  96.     int n;
  97.     FILE *filptr;
  98. {
  99.     char *retval, *ptr;
  100.     if (retval = fgets (string, n, filptr))
  101.          for (ptr = string; *ptr; ptr++)
  102.               if (*ptr == '\n') {
  103.                    *ptr = '\0';
  104.                    break;
  105.               }
  106.     return retval;
  107. }
  108.  
  109. /*Errexit - handle errors as they arise*/
  110. char *errlist[] =
  111.     {"invalid error",
  112.  
  113.      "wrong number of arguments."
  114.      " Try: prg5_3 input_file [output_file]",
  115.  
  116.      "input file does not exist",
  117.      "output file already exists",
  118.      "output file cannot be created",
  119.      "error on output file write",
  120.      "error on closing input file",
  121.      "error on closing output file",
  122.      "debug error"};
  123.  
  124. void errexit (errnum)
  125.     unsigned errnum;
  126. {
  127.     if (errnum > 7)
  128.          errnum = 7;
  129.     fprintf (stderr, "pretty printer error:  %s\n"
  130.                      "system error:          %s\n",
  131.                      errlist[errnum],
  132.                      sys_errlist [errno]);
  133.     exit (errnum);
  134. }
  135.