ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/common/badarg.c
Revision: 2.10
Committed: Sat Mar 1 18:56:41 2014 UTC (10 years, 2 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.9: +1 -3 lines
Log Message:
Removed unnecessary test (whoops)

File Contents

# User Rev Content
1 greg 1.1 #ifndef lint
2 greg 2.10 static const char RCSid[] = "$Id: badarg.c,v 2.9 2014/03/01 18:54:08 greg Exp $";
3 greg 1.1 #endif
4     /*
5     * Check argument list against format string.
6 greg 2.2 *
7 greg 2.5 * External symbols declared in rtio.h
8 greg 2.2 */
9    
10 greg 2.3 #include "copyright.h"
11 greg 1.1
12 greg 1.2 #include <ctype.h>
13    
14 greg 2.5 #include "rtio.h"
15 schorsch 2.4
16 greg 1.1
17     int
18 schorsch 2.6 badarg( /* check argument list */
19     int ac,
20 greg 2.7 char **av,
21     char *fl
22 schorsch 2.6 )
23 greg 1.1 {
24 greg 2.7 int i;
25     char *s;
26 greg 1.1
27     if (fl == NULL)
28     fl = ""; /* no arguments? */
29     for (i = 1; *fl; i++,av++,fl++) {
30     if (i > ac || *av == NULL)
31     return(-1);
32 greg 2.7 s = *av;
33 greg 1.1 switch (*fl) {
34     case 's': /* string */
35 greg 2.9 while (*s == ' ')
36 greg 2.7 ++s;
37 greg 2.9 do
38     if (!isprint(*s))
39 greg 2.7 return(i);
40 greg 2.9 while (*++s);
41 greg 1.1 break;
42     case 'i': /* integer */
43 greg 2.7 if (!isintd(s, " \t\r\n"))
44 greg 1.1 return(i);
45     break;
46     case 'f': /* float */
47 greg 2.7 if (!isfltd(s, " \t\r\n"))
48 greg 1.1 return(i);
49     break;
50     default: /* bad call! */
51     return(-1);
52     }
53     }
54     return(0); /* all's well */
55     }