| 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 | 
  | 
  | 
} |