common/regex/regsub.c

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                                                                      *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*               This software is part of the ast package               *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner*          Copyright (c) 1985-2010 AT&T Intellectual Property          *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                      and is licensed under the                       *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                  Common Public License, Version 1.0                  *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin*                    by AT&T Intellectual Property                     *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                                                                      *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                A copy of the License is available at                 *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*            http://www.opensource.org/licenses/cpl1.0.txt             *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                                                                      *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*              Information and Software Systems Research               *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                            AT&T Research                             *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                           Florham Park NJ                            *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                                                                      *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                 Glenn Fowler <gsf@research.att.com>                  *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                  David Korn <dgk@research.att.com>                   *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                   Phong Vo <kpv@research.att.com>                    *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                                                                      *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * OBSOLETE Sfio_t buffer interface -- use regsubcomp(),regsubexec()
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "reglib.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * do a single substitution
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsubold(register Sfio_t* dp, const char* op, register const char* sp, size_t nmatch, register regmatch_t* match, register regflags_t flags, int sre)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    register int    c;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    char*       s;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    char*       e;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    const char* b;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    regflags_t  f;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    f = flags &= (REG_SUB_LOWER|REG_SUB_UPPER);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    for (;;)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        switch (c = *sp++)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case 0:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            return 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case '~':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (!sre || *sp != '(')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sfputc(dp, c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            b = sp - 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            sp++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case '\\':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (sre)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sfputc(dp, chresc(sp - 1, &s));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sp = (const char*)s;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (*sp == '&')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                c = *sp++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sfputc(dp, c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case '&':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (sre)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sfputc(dp, c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            sp--;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        default:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            switch (flags)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            case REG_SUB_UPPER:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (islower(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = toupper(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            case REG_SUB_LOWER:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (isupper(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = tolower(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            case REG_SUB_UPPER|REG_SUB_LOWER:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (isupper(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = tolower(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                else if (islower(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = toupper(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            sfputc(dp, c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        switch (c = *sp++)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case 0:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            sp--;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case '&':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            c = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case '0': case '1': case '2': case '3': case '4':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case '5': case '6': case '7': case '8': case '9':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            c -= '0';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (sre)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                while (isdigit(*sp))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = c * 10 + *sp++ - '0';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case 'l':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (sre && *sp != ')')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                c = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (c = *sp)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sp++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (isupper(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = tolower(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sfputc(dp, c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case 'u':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (sre)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (*sp != ')')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sp++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (c = *sp)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sp++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (islower(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = toupper(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sfputc(dp, c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case 'E':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (sre)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (*sp != ')')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sp++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            flags = f;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case 'L':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (sre)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (*sp != ')')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sp++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            f = flags;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            flags = REG_SUB_LOWER;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        case 'U':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (sre)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (*sp != ')')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sp++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            f = flags;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            flags = REG_SUB_UPPER;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        default:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (!sre)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sfputc(dp, chresc(sp - 2, &s));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sp = (const char*)s;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            sp--;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            c = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        if (sre)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (c < 0 || *sp != ')')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                for (; b < sp; b++)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    sfputc(dp, *b);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            sp++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        if (c >= nmatch)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            return REG_ESUBREG;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        s = (char*)op + match[c].rm_so;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        e = (char*)op + match[c].rm_eo;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        while (s < e)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            c = *s++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            switch (flags)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            case REG_SUB_UPPER:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (islower(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = toupper(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            case REG_SUB_LOWER:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (isupper(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = tolower(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            case REG_SUB_UPPER|REG_SUB_LOWER:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (isupper(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = tolower(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                else if (islower(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    c = toupper(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            sfputc(dp, c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * ed(1) style substitute using matches from last regexec()
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinregsub(const regex_t* p, Sfio_t* dp, const char* op, const char* sp, size_t nmatch, regmatch_t* match, regflags_t flags)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    int m;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    int r;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    int sre;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    if ((p->env->flags & REG_NOSUB) || !nmatch)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        return fatal(p->env->disc, REG_BADPAT, NiL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    m = (flags >> 16) & 0x3fff;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    sre = !!(p->env->flags & REG_SHELL);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin    r = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    do
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        if (--m > 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            sfwrite(dp, op, match->rm_eo);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            sfwrite(dp, op, match->rm_so);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (r = subold(dp, op, sp, nmatch, match, flags, sre))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                return fatal(p->env->disc, r, NiL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        op += match->rm_eo;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    } while ((m > 0 || (flags & REG_SUB_ALL)) && !(r = regexec(p, op, nmatch, match, p->env->flags|(match->rm_so == match->rm_eo ? REG_ADVANCE : 0))));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    if (r && r != REG_NOMATCH)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        return fatal(p->env->disc, r, NiL);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    sfputr(dp, op, -1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    return 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}