1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin *                                                                      *
3da2e3ebdSchin *               This software is part of the ast package               *
4*b30d1939SAndy Fiddaman *          Copyright (c) 1985-2011 AT&T Intellectual Property          *
5da2e3ebdSchin *                      and is licensed under the                       *
6*b30d1939SAndy Fiddaman *                 Eclipse Public License, Version 1.0                  *
77c2fbfb3SApril Chin *                    by AT&T Intellectual Property                     *
8da2e3ebdSchin *                                                                      *
9da2e3ebdSchin *                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)         *
12da2e3ebdSchin *                                                                      *
13da2e3ebdSchin *              Information and Software Systems Research               *
14da2e3ebdSchin *                            AT&T Research                             *
15da2e3ebdSchin *                           Florham Park NJ                            *
16da2e3ebdSchin *                                                                      *
17da2e3ebdSchin *                 Glenn Fowler <gsf@research.att.com>                  *
18da2e3ebdSchin *                  David Korn <dgk@research.att.com>                   *
19da2e3ebdSchin *                   Phong Vo <kpv@research.att.com>                    *
20da2e3ebdSchin *                                                                      *
21da2e3ebdSchin ***********************************************************************/
22da2e3ebdSchin #pragma prototyped
23da2e3ebdSchin /*
24da2e3ebdSchin  * regexp interface and partial implementation
25da2e3ebdSchin  * what a novel approach
26da2e3ebdSchin  * don't do it again
27da2e3ebdSchin  *
28da2e3ebdSchin  * OBSOLETE: use <regex.h>
29da2e3ebdSchin  */
30da2e3ebdSchin 
31da2e3ebdSchin #ifndef _REGEXP_H
32da2e3ebdSchin #define _REGEXP_H
33da2e3ebdSchin 
34da2e3ebdSchin #define NBRA		9
35da2e3ebdSchin 
36da2e3ebdSchin typedef struct
37da2e3ebdSchin {
38da2e3ebdSchin 	char*		re_braslist[NBRA];
39da2e3ebdSchin 	char*		re_braelist[NBRA];
40da2e3ebdSchin 	char*		re_loc1;
41da2e3ebdSchin 	char*		re_loc2;
42da2e3ebdSchin 	char*		re_locs;
43da2e3ebdSchin 	int		re_circf;
44da2e3ebdSchin 	int		re_nbra;
45da2e3ebdSchin 	int		re_nodelim;
46da2e3ebdSchin 	int		re_sed;
47da2e3ebdSchin } regexp_t;
48da2e3ebdSchin 
49da2e3ebdSchin #define braslist	_re_info.re_braslist
50da2e3ebdSchin #define braelist	_re_info.re_braelist
51da2e3ebdSchin #define circf		_re_info.re_circf
52da2e3ebdSchin #define loc1		_re_info.re_loc1
53da2e3ebdSchin #define loc2		_re_info.re_loc2
54da2e3ebdSchin #define locs		_re_info.re_locs
55da2e3ebdSchin #define nbra		_re_info.re_nbra
56da2e3ebdSchin #define nodelim		_re_info.re_nodelim
57da2e3ebdSchin #define sed		_re_info.re_sed
58da2e3ebdSchin 
59da2e3ebdSchin #define advance(a,b)		_re_exec(&_re_info,a,b,1)
60da2e3ebdSchin #define compile(a,b,c,d)	_re_read(&_re_info,a,b,c,d)
61da2e3ebdSchin #define step(a,b)		_re_exec(&_re_info,a,b,0)
62da2e3ebdSchin 
63da2e3ebdSchin #if _BLD_ast && defined(__EXPORT__)
64da2e3ebdSchin #define extern		__EXPORT__
65da2e3ebdSchin #endif
66da2e3ebdSchin 
67da2e3ebdSchin extern int	_re_comp(regexp_t*, const char*, char*, unsigned int);
68da2e3ebdSchin extern int	_re_exec(regexp_t*, const char*, const char*, int);
69da2e3ebdSchin extern char*	_re_putc(int);
70da2e3ebdSchin extern char*	_re_read(regexp_t*, const char*, char*, const char*, int);
71da2e3ebdSchin 
72da2e3ebdSchin #undef	extern
73da2e3ebdSchin 
74da2e3ebdSchin #ifndef _REGEXP_DECLARE
75da2e3ebdSchin 
76da2e3ebdSchin regexp_t	_re_info;
77da2e3ebdSchin 
78da2e3ebdSchin char*
_re_read(register regexp_t * re,const char * instring,char * ep,const char * endbuf,int seof)79da2e3ebdSchin _re_read(register regexp_t* re, const char* instring, char* ep, const char* endbuf, int seof)
80da2e3ebdSchin {
81da2e3ebdSchin 	register int		c;
82da2e3ebdSchin 
83da2e3ebdSchin 	static const char*	prev;
84da2e3ebdSchin 
85da2e3ebdSchin #ifdef INIT
86da2e3ebdSchin 	INIT;
87da2e3ebdSchin #endif
88da2e3ebdSchin 
89da2e3ebdSchin 	re->re_nodelim = 0;
90da2e3ebdSchin 	if ((c = GETC()) == seof || c == '\n' || c == -1 || c == 0)
91da2e3ebdSchin 	{
92da2e3ebdSchin 		if (c != seof)
93da2e3ebdSchin 		{
94da2e3ebdSchin 			UNGETC(c);
95da2e3ebdSchin 			re->re_nodelim = 1;
96da2e3ebdSchin 		}
97da2e3ebdSchin 		if (!re->re_sed && !prev)
98da2e3ebdSchin 			{ ERROR(41); }
99da2e3ebdSchin 		RETURN((char*)endbuf);
100da2e3ebdSchin 	}
101da2e3ebdSchin 	UNGETC(c);
102da2e3ebdSchin 	prev = 0;
103da2e3ebdSchin 	for (;;)
104da2e3ebdSchin 	{
105da2e3ebdSchin 		if ((c = GETC()) == seof || c == '\n' || c == -1 || c == 0)
106da2e3ebdSchin 		{
107da2e3ebdSchin 			if (re->re_sed)
108da2e3ebdSchin 				{ ERROR(36); }
109da2e3ebdSchin 			UNGETC(c);
110da2e3ebdSchin 			re->re_nodelim = 1;
111da2e3ebdSchin 			break;
112da2e3ebdSchin 		}
113da2e3ebdSchin 		if (c == '\\')
114da2e3ebdSchin 		{
115da2e3ebdSchin 			_re_putc(c);
116da2e3ebdSchin 			if ((c = GETC()) == seof || c == '\n' || c == -1 || c == 0)
117da2e3ebdSchin 				{ ERROR(36); }
118da2e3ebdSchin 		}
119da2e3ebdSchin 		_re_putc(c);
120da2e3ebdSchin 	}
121da2e3ebdSchin 	if (c = _re_comp(re, _re_putc(0), ep, (char*)endbuf - ep))
122da2e3ebdSchin 		{ ERROR(c); }
123da2e3ebdSchin 	prev = endbuf;
124da2e3ebdSchin 	RETURN((char*)prev);
125da2e3ebdSchin }
126da2e3ebdSchin 
127da2e3ebdSchin #endif
128da2e3ebdSchin 
129da2e3ebdSchin #endif
130