time/scheck.c

   1 #ifndef lint
   2 #ifndef NOID
   3 static char     elsieid[] = "@(#)scheck.c       8.13";
   4 #endif /* !defined lint */
   5 #endif /* !defined NOID */
   6
   7 /*LINTLIBRARY*/
   8
   9 #include "private.h"
  10
  11 extern char *   imalloc P((int n));
  12 extern void     ifree P((char * p));
  13
  14 char *
  15 scheck(string, format)
  16 const char * const      string;
  17 char * const            format;
  18 {
  19         register char *         fbuf;
  20         register const char *   fp;
  21         register char *         tp;
  22         register int            c;
  23         register char *         result;
  24         char                    dummy;
  25         static char             nada;
  26
  27         result = &nada;
  28         if (string == NULL || format == NULL)
  29                 return result;
  30         fbuf = imalloc((int) (2 * strlen(format) + 4));
  31         if (fbuf == NULL)
  32                 return result;
  33         fp = format;
  34         tp = fbuf;
  35         while ((*tp++ = c = *fp++) != '\0') {
  36                 if (c != '%')
  37                         continue;
  38                 if (*fp == '%') {
  39                         *tp++ = *fp++;
  40                         continue;
  41                 }
  42                 *tp++ = '*';
  43                 if (*fp == '*')
  44                         ++fp;
  45                 while (is_digit(*fp))
  46                         *tp++ = *fp++;
  47                 if (*fp == 'l' || *fp == 'h')
  48                         *tp++ = *fp++;
  49                 else if (*fp == '[')
  50                         do *tp++ = *fp++;
  51                                 while (*fp != '\0' && *fp != ']');
  52                 if ((*tp++ = *fp++) == '\0')
  53                         break;
  54         }
  55         *(tp - 1) = '%';
  56         *tp++ = 'c';
  57         *tp = '\0';
  58         if (sscanf(string, fbuf, &dummy) != 1)
  59                 result = (char *) format;
  60         ifree(fbuf);
  61         return result;
  62 }