1 |
< |
/* Copyright (c) 1991 Regents of the University of California */ |
1 |
> |
/* Copyright (c) 1996 Regents of the University of California */ |
2 |
|
|
3 |
|
#ifndef lint |
4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
44 |
|
s++; |
45 |
|
while (*s && !isspace(*s)) |
46 |
|
s++; |
47 |
+ |
while (isspace(*s)) |
48 |
+ |
s++; |
49 |
|
return(s); |
50 |
|
} |
51 |
|
|
71 |
|
fskip(s) /* skip float in string */ |
72 |
|
register char *s; |
73 |
|
{ |
74 |
< |
register char *cp = s; |
74 |
> |
register char *cp; |
75 |
|
|
76 |
< |
while (isspace(*cp)) |
77 |
< |
cp++; |
78 |
< |
if (*cp == '-' || *cp == '+') |
79 |
< |
cp++; |
80 |
< |
s = cp; |
76 |
> |
while (isspace(*s)) |
77 |
> |
s++; |
78 |
> |
if (*s == '-' || *s == '+') |
79 |
> |
s++; |
80 |
> |
cp = s; |
81 |
|
while (isdigit(*cp)) |
82 |
|
cp++; |
83 |
|
if (*cp == '.') { |
109 |
|
register char *cp; |
110 |
|
|
111 |
|
cp = iskip(s); |
112 |
< |
return(cp != NULL && strchr(*cp, ds) != NULL); |
112 |
> |
return(cp != NULL && strchr(ds, *cp) != NULL); |
113 |
|
} |
114 |
|
|
115 |
|
|
129 |
|
register char *cp; |
130 |
|
|
131 |
|
cp = fskip(s); |
132 |
< |
return(cp != NULL && strchr(*cp, ds) != NULL); |
132 |
> |
return(cp != NULL && strchr(ds, *cp) != NULL); |
133 |
|
} |