heirloom-ed

annotate regexpr.c @ 1:db609ba8ab93

Added tag 0.1 for changeset 1493bea5ac22
author markus schnalke <meillo@marmaro.de>
date Mon, 05 Sep 2011 16:36:26 +0200
parents
children
rev   line source
meillo@0 1 /*
meillo@0 2 * Simple Regular Expression functions. Derived from Unix 7th Edition,
meillo@0 3 * /usr/src/cmd/expr.y
meillo@0 4 *
meillo@0 5 * Modified by Gunnar Ritter, Freiburg i. Br., Germany, January 2003.
meillo@0 6 *
meillo@0 7 * Copyright(C) Caldera International Inc. 2001-2002. All rights reserved.
meillo@0 8 *
meillo@0 9 * Redistribution and use in source and binary forms, with or without
meillo@0 10 * modification, are permitted provided that the following conditions
meillo@0 11 * are met:
meillo@0 12 * Redistributions of source code and documentation must retain the
meillo@0 13 * above copyright notice, this list of conditions and the following
meillo@0 14 * disclaimer.
meillo@0 15 * Redistributions in binary form must reproduce the above copyright
meillo@0 16 * notice, this list of conditions and the following disclaimer in the
meillo@0 17 * documentation and/or other materials provided with the distribution.
meillo@0 18 * All advertising materials mentioning features or use of this software
meillo@0 19 * must display the following acknowledgement:
meillo@0 20 * This product includes software developed or owned by Caldera
meillo@0 21 * International, Inc.
meillo@0 22 * Neither the name of Caldera International, Inc. nor the names of
meillo@0 23 * other contributors may be used to endorse or promote products
meillo@0 24 * derived from this software without specific prior written permission.
meillo@0 25 *
meillo@0 26 * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
meillo@0 27 * INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR
meillo@0 28 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
meillo@0 29 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
meillo@0 30 * ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE
meillo@0 31 * LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR
meillo@0 32 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
meillo@0 33 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
meillo@0 34 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
meillo@0 35 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
meillo@0 36 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
meillo@0 37 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
meillo@0 38 */
meillo@0 39
meillo@0 40 /* Sccsid @(#)regexpr.c 1.8 (gritter) 10/13/04 */
meillo@0 41
meillo@0 42 #include <stdlib.h>
meillo@0 43 #include "regexpr.h"
meillo@0 44
meillo@0 45 int regerrno, reglength;
meillo@0 46 static int circf;
meillo@0 47
meillo@0 48 static char *regexpr_compile(char *, char *, const char *, int);
meillo@0 49
meillo@0 50 char *
meillo@0 51 compile(const char *instring, char *ep, char *endbuf)
meillo@0 52 {
meillo@0 53 char *cp;
meillo@0 54 int sz = 0;
meillo@0 55
meillo@0 56 if (ep == 0) {
meillo@0 57 for (cp = (char *)instring; *cp != '\0'; cp++)
meillo@0 58 if (*cp == '[')
meillo@0 59 sz += 32;
meillo@0 60 sz += 2 * (cp - instring) + 5;
meillo@0 61 if ((ep = malloc(sz)) == 0) {
meillo@0 62 regerrno = 11;
meillo@0 63 return 0;
meillo@0 64 }
meillo@0 65 endbuf = &ep[sz];
meillo@0 66 ep[1] = '\0';
meillo@0 67 }
meillo@0 68 if ((cp=regexpr_compile((char *)instring, &ep[1], endbuf, '\0')) == 0) {
meillo@0 69 if (sz)
meillo@0 70 free(ep);
meillo@0 71 return 0;
meillo@0 72 }
meillo@0 73 ep[0] = circf;
meillo@0 74 reglength = cp - ep;
meillo@0 75 return sz ? ep : cp;
meillo@0 76 }
meillo@0 77
meillo@0 78 #define INIT register char *sp = instring;
meillo@0 79 #define GETC() (*sp++)
meillo@0 80 #define PEEKC() (*sp)
meillo@0 81 #define UNGETC(c) (--sp)
meillo@0 82 #define RETURN(c) return (c);
meillo@0 83 #define ERROR(c) { regerrno = c; return 0; }
meillo@0 84
meillo@0 85 #define compile(a, b, c, d) regexpr_compile(a, b, c, d)
meillo@0 86 #define regexp_h_static static
meillo@0 87 #define REGEXP_H_STEP_INIT circf = *p2++;
meillo@0 88 #define REGEXP_H_ADVANCE_INIT circf = *ep++;
meillo@0 89
meillo@0 90 #include "regexp.h"