Fix rpm.unregister() Lua extension
[platform/upstream/rpm.git] / misc / strspn.c
1 /* strspn.c -- return numbers of chars at start of string in a class
2    Copyright (C) 1987, 1990 Free Software Foundation, Inc.
3
4    This program is free software; you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation; either version 2, or (at your option)
7    any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License
15    along with this program; if not, write to the Free Software
16    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
17
18 #ifdef HAVE_CONFIG_H
19 #include "config.h"
20 #endif
21
22 #if defined(HAVE_STRING_H)
23 #include <string.h>
24 #else
25 #include <strings.h>
26 #ifndef strchr
27 #define strchr index
28 #endif
29 #endif
30
31 int
32 strspn (str, class)
33      char *str, *class;
34 {
35   register char *st = str;
36
37   while (*st && strchr (class, *st))
38     ++st;
39   return st - str;
40 }