1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #pragma prototyped
23*b30d1939SAndy Fiddaman /*
24*b30d1939SAndy Fiddaman * Glenn Fowler
25*b30d1939SAndy Fiddaman * AT&T Bell Laboratories
26*b30d1939SAndy Fiddaman *
27*b30d1939SAndy Fiddaman * time conversion support
28*b30d1939SAndy Fiddaman */
29*b30d1939SAndy Fiddaman
30*b30d1939SAndy Fiddaman #include <ast.h>
31*b30d1939SAndy Fiddaman #include <tm.h>
32*b30d1939SAndy Fiddaman #include <ctype.h>
33*b30d1939SAndy Fiddaman
34*b30d1939SAndy Fiddaman /*
35*b30d1939SAndy Fiddaman * match s against t ignoring case and .'s
36*b30d1939SAndy Fiddaman *
37*b30d1939SAndy Fiddaman * suf is an n element table of suffixes that may trail s
38*b30d1939SAndy Fiddaman * if all isalpha() chars in s match then 1 is returned
39*b30d1939SAndy Fiddaman * and if e is non-null it will point to the first unmatched
40*b30d1939SAndy Fiddaman * char in s, otherwise 0 is returned
41*b30d1939SAndy Fiddaman */
42*b30d1939SAndy Fiddaman
43*b30d1939SAndy Fiddaman int
tmword(register const char * s,char ** e,register const char * t,char ** suf,int n)44*b30d1939SAndy Fiddaman tmword(register const char* s, char** e, register const char* t, char** suf, int n)
45*b30d1939SAndy Fiddaman {
46*b30d1939SAndy Fiddaman register int c;
47*b30d1939SAndy Fiddaman const char* b;
48*b30d1939SAndy Fiddaman
49*b30d1939SAndy Fiddaman if (*s && *t)
50*b30d1939SAndy Fiddaman {
51*b30d1939SAndy Fiddaman b = s;
52*b30d1939SAndy Fiddaman while (c = *s++)
53*b30d1939SAndy Fiddaman {
54*b30d1939SAndy Fiddaman if (c != '.')
55*b30d1939SAndy Fiddaman {
56*b30d1939SAndy Fiddaman if (!isalpha(c) || c != *t && (islower(c) ? toupper(c) : tolower(c)) != *t)
57*b30d1939SAndy Fiddaman break;
58*b30d1939SAndy Fiddaman t++;
59*b30d1939SAndy Fiddaman }
60*b30d1939SAndy Fiddaman }
61*b30d1939SAndy Fiddaman s--;
62*b30d1939SAndy Fiddaman if (!isalpha(c))
63*b30d1939SAndy Fiddaman {
64*b30d1939SAndy Fiddaman if (c == '_')
65*b30d1939SAndy Fiddaman s++;
66*b30d1939SAndy Fiddaman if (e)
67*b30d1939SAndy Fiddaman *e = (char*)s;
68*b30d1939SAndy Fiddaman return s > b;
69*b30d1939SAndy Fiddaman }
70*b30d1939SAndy Fiddaman if (!*t && s > (b + 1))
71*b30d1939SAndy Fiddaman {
72*b30d1939SAndy Fiddaman b = s;
73*b30d1939SAndy Fiddaman while (n-- && (t = *suf++))
74*b30d1939SAndy Fiddaman {
75*b30d1939SAndy Fiddaman s = b;
76*b30d1939SAndy Fiddaman while (isalpha(c = *s++) && (c == *t || (islower(c) ? toupper(c) : tolower(c)) == *t)) t++;
77*b30d1939SAndy Fiddaman if (!*t && !isalpha(c))
78*b30d1939SAndy Fiddaman {
79*b30d1939SAndy Fiddaman if (c != '_')
80*b30d1939SAndy Fiddaman s--;
81*b30d1939SAndy Fiddaman if (e)
82*b30d1939SAndy Fiddaman *e = (char*)s;
83*b30d1939SAndy Fiddaman return 1;
84*b30d1939SAndy Fiddaman }
85*b30d1939SAndy Fiddaman }
86*b30d1939SAndy Fiddaman }
87*b30d1939SAndy Fiddaman }
88*b30d1939SAndy Fiddaman return 0;
89*b30d1939SAndy Fiddaman }
90