contrib/tcp_wrappers/vfprintf.c

   1  /*
   2   * vfprintf() and vprintf() clones. They will produce unexpected results
   3   * when excessive dynamic ("*") field widths are specified. To be used for
   4   * testing purposes only.
   5   *
   6   * Author: Wietse Venema, Eindhoven University of Technology, The Netherlands.
   7   */
   8
   9 #ifndef lint
  10 static char sccsid[] = "@(#) vfprintf.c 1.2 94/03/23 17:44:46";
  11 #endif
  12
  13 #include <stdio.h>
  14 #include <ctype.h>
  15 #ifdef __STDC__
  16 #include <stdarg.h>
  17 #else
  18 #include <varargs.h>
  19 #endif
  20
  21 /* vfprintf - print variable-length argument list to stream */
  22
  23 int     vfprintf(fp, format, ap)
  24 FILE   *fp;
  25 char   *format;
  26 va_list ap;
  27 {
  28     char    fmt[BUFSIZ];                /* format specifier */
  29     register char *fmtp;
  30     register char *cp;
  31     int     count = 0;
  32
  33     /*
  34      * Iterate over characters in the format string, picking up arguments
  35      * when format specifiers are found.
  36      */
  37
  38     for (cp = format; *cp; cp++) {
  39         if (*cp != '%') {
  40             putc(*cp, fp);                      /* ordinary character */
  41             count++;
  42         } else {
  43
  44             /*
  45              * Format specifiers are handled one at a time, since we can only
  46              * deal with arguments one at a time. Try to determine the end of
  47              * the format specifier. We do not attempt to fully parse format
  48              * strings, since we are ging to let fprintf() do the hard work.
  49              * In regular expression notation, we recognize:
  50              *
  51              * %-?0?([0-9]+|\*)?\.?([0-9]+|\*)?l?[a-z]
  52              *
  53              * which includes some combinations that do not make sense.
  54              */
  55
  56             fmtp = fmt;
  57             *fmtp++ = *cp++;
  58             if (*cp == '-')                     /* left-adjusted field? */
  59                 *fmtp++ = *cp++;
  60             if (*cp == '0')                     /* zero-padded field? */
  61                 *fmtp++ = *cp++;
  62             if (*cp == '*') {                   /* dynamic field witdh */
  63                 sprintf(fmtp, "%d", va_arg(ap, int));
  64                 fmtp += strlen(fmtp);
  65                 cp++;
  66             } else {
  67                 while (isdigit(*cp))            /* hard-coded field width */
  68                     *fmtp++ = *cp++;
  69             }
  70             if (*cp == '.')                     /* width/precision separator */
  71                 *fmtp++ = *cp++;
  72             if (*cp == '*') {                   /* dynamic precision */
  73                 sprintf(fmtp, "%d", va_arg(ap, int));
  74                 fmtp += strlen(fmtp);
  75                 cp++;
  76             } else {
  77                 while (isdigit(*cp))            /* hard-coded precision */
  78                     *fmtp++ = *cp++;
  79             }
  80             if (*cp == 'l')                     /* long whatever */
  81                 *fmtp++ = *cp++;
  82             if (*cp == 0)                       /* premature end, punt */
  83                 break;
  84             *fmtp++ = *cp;                      /* type (checked below) */
  85             *fmtp = 0;
  86
  87             /* Execute the format string - let fprintf() do the hard work. */
  88
  89             switch (fmtp[-1]) {
  90             case 's':                           /* string-valued argument */
  91                 count += fprintf(fp, fmt, va_arg(ap, char *));
  92                 break;
  93             case 'c':                           /* integral-valued argument */
  94             case 'd':
  95             case 'u':
  96             case 'o':
  97             case 'x':
  98                 if (fmtp[-2] == 'l')
  99                     count += fprintf(fp, fmt, va_arg(ap, long));
 100                 else
 101                     count += fprintf(fp, fmt, va_arg(ap, int));
 102                 break;
 103             case 'e':                           /* float-valued argument */
 104             case 'f':
 105             case 'g':
 106                 count += fprintf(fp, fmt, va_arg(ap, double));
 107                 break;
 108             default:                            /* anything else */
 109                 putc(fmtp[-1], fp);
 110                 count++;
 111                 break;
 112             }
 113         }
 114     }
 115     return (count);
 116 }
 117
 118 /* vprintf - print variable-length argument list to stdout */
 119
 120 vprintf(format, ap)
 121 char   *format;
 122 va_list ap;
 123 {
 124     return (vfprintf(stdout, format, ap));
 125 }