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 * scheck(string,format)17scheck(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 } 64