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