src/common/words.c

/* Copyright (c) 1996 Regents of the University of California */

#ifndef lint
static char SCCSid[] = "$SunId$ LBL";
#endif

/*
 * Routines for recognizing and moving about words in strings.
 */

#include  <ctype.h>

#ifdef  BSD
#define  strchr         index
#endif

#define  NULL           0

extern char  *strchr();


char *
atos(rs, nb, s)                 /* get next word from string */
char  *rs;
register int  nb;
register char  *s;
{
        register char  *cp = rs;

        while (isspace(*s))
                s++;
        while (--nb > 0 && *s && !isspace(*s))
                *cp++ = *s++;
        *cp = '\0';
        return(rs);
}


char *
sskip(s)                        /* skip word in string */
register char  *s;
{
        while (isspace(*s))
                s++;
        while (*s && !isspace(*s))
                s++;
        while (isspace(*s))
                s++;
        return(s);
}


char *
iskip(s)                        /* skip integer in string */
register char  *s;
{
        while (isspace(*s))
                s++;
        if (*s == '-' || *s == '+')
                s++;
        if (!isdigit(*s))
                return(NULL);
        do
                s++;
        while (isdigit(*s));
        return(s);
}


char *
fskip(s)                        /* skip float in string */
register char  *s;
{
        register char  *cp;

        while (isspace(*s))
                s++;
        if (*s == '-' || *s == '+')
                s++;
        cp = s;
        while (isdigit(*cp))
                cp++;
        if (*cp == '.') {
                cp++; s++;
                while (isdigit(*cp))
                        cp++;
        }
        if (cp == s)
                return(NULL);
        if (*cp == 'e' || *cp == 'E')
                return(iskip(cp+1));
        return(cp);
}


isint(s)                        /* check integer format */
char  *s;
{
        register char  *cp;

        cp = iskip(s);
        return(cp != NULL && *cp == '\0');
}


isintd(s, ds)                   /* check integer format with delimiter set */
char  *s, *ds;
{
        register char  *cp;

        cp = iskip(s);
        return(cp != NULL && strchr(ds, *cp) != NULL);
}


isflt(s)                        /* check float format */
char  *s;
{
        register char  *cp;

        cp = fskip(s);
        return(cp != NULL && *cp == '\0');
}


isfltd(s, ds)                   /* check integer format with delimiter set */
char  *s, *ds;
{
        register char  *cp;

        cp = fskip(s);
        return(cp != NULL && strchr(ds, *cp) != NULL);
}
Revision:	2.2
Committed:	Wed Jan 10 21:04:21 1996 UTC (28 years, 3 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.1:	+3 -1 lines
Log Message:	improved sskip() behavior
#	User	Rev	Content
1	greg	2.2	/* Copyright (c) 1996 Regents of the University of California */
2	greg	1.1
3			#ifndef lint
4			static char SCCSid[] = "$SunId$ LBL";
5			#endif
6
7			/*
8			* Routines for recognizing and moving about words in strings.
9			*/
10
11			#include <ctype.h>
12
13			#ifdef BSD
14			#define strchr index
15			#endif
16
17			#define NULL 0
18
19			extern char *strchr();
20
21
22			char *
23	greg	1.2	atos(rs, nb, s) /* get next word from string */
24			char *rs;
25			register int nb;
26			register char *s;
27			{
28			register char *cp = rs;
29
30			while (isspace(*s))
31			s++;
32			while (--nb > 0 && s && !isspace(s))
33			cp++ = s++;
34			*cp = '\0';
35			return(rs);
36			}
37
38
39			char *
40	greg	1.1	sskip(s) /* skip word in string */
41			register char *s;
42			{
43			while (isspace(*s))
44			s++;
45			while (s && !isspace(s))
46	greg	2.2	s++;
47			while (isspace(*s))
48	greg	1.1	s++;
49			return(s);
50			}
51
52
53			char *
54			iskip(s) /* skip integer in string */
55	greg	1.2	register char *s;
56	greg	1.1	{
57	greg	1.2	while (isspace(*s))
58			s++;
59			if (s == '-' \|\| s == '+')
60			s++;
61			if (!isdigit(*s))
62			return(NULL);
63			do
64			s++;
65			while (isdigit(*s));
66			return(s);
67	greg	1.1	}
68
69
70			char *
71			fskip(s) /* skip float in string */
72	greg	1.2	register char *s;
73	greg	1.1	{
74	greg	1.4	register char *cp;
75	greg	1.1
76	greg	1.4	while (isspace(*s))
77			s++;
78			if (s == '-' \|\| s == '+')
79			s++;
80			cp = s;
81	greg	1.1	while (isdigit(*cp))
82			cp++;
83			if (*cp == '.') {
84	greg	1.2	cp++; s++;
85	greg	1.1	while (isdigit(*cp))
86			cp++;
87			}
88	greg	1.2	if (cp == s)
89			return(NULL);
90	greg	1.1	if (cp == 'e' \|\| cp == 'E')
91			return(iskip(cp+1));
92			return(cp);
93			}
94
95
96			isint(s) /* check integer format */
97			char *s;
98			{
99			register char *cp;
100
101			cp = iskip(s);
102	greg	1.2	return(cp != NULL && *cp == '\0');
103	greg	1.1	}
104
105
106			isintd(s, ds) /* check integer format with delimiter set */
107			char s, ds;
108			{
109			register char *cp;
110
111			cp = iskip(s);
112	greg	1.3	return(cp != NULL && strchr(ds, *cp) != NULL);
113	greg	1.1	}
114
115
116			isflt(s) /* check float format */
117			char *s;
118			{
119			register char *cp;
120
121			cp = fskip(s);
122	greg	1.2	return(cp != NULL && *cp == '\0');
123	greg	1.1	}
124
125
126			isfltd(s, ds) /* check integer format with delimiter set */
127			char s, ds;
128			{
129			register char *cp;
130
131			cp = fskip(s);
132	greg	1.3	return(cp != NULL && strchr(ds, *cp) != NULL);
133	greg	1.1	}