17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate * CDDL HEADER START
37c478bd9Sstevel@tonic-gate *
47c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the
57c478bd9Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
67c478bd9Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance
77c478bd9Sstevel@tonic-gate * with the License.
87c478bd9Sstevel@tonic-gate *
97c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
107c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
117c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions
127c478bd9Sstevel@tonic-gate * and limitations under the License.
137c478bd9Sstevel@tonic-gate *
147c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
157c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
167c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
177c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
187c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
197c478bd9Sstevel@tonic-gate *
207c478bd9Sstevel@tonic-gate * CDDL HEADER END
217c478bd9Sstevel@tonic-gate */
227c478bd9Sstevel@tonic-gate /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
237c478bd9Sstevel@tonic-gate /* All Rights Reserved */
247c478bd9Sstevel@tonic-gate
257c478bd9Sstevel@tonic-gate
267c478bd9Sstevel@tonic-gate /*
277c478bd9Sstevel@tonic-gate * Copyright 2004 Sun Microsystems, Inc. All rights reserved.
287c478bd9Sstevel@tonic-gate * Use is subject to license terms.
297c478bd9Sstevel@tonic-gate */
307c478bd9Sstevel@tonic-gate
317c478bd9Sstevel@tonic-gate /* EMACS_MODES: !fill, lnumb, !overwrite, !nodelete, !picture */
327c478bd9Sstevel@tonic-gate
337c478bd9Sstevel@tonic-gate #include "sys/types.h"
347c478bd9Sstevel@tonic-gate #include "regexpr.h"
357c478bd9Sstevel@tonic-gate #include "regex.h"
367c478bd9Sstevel@tonic-gate #include "string.h"
377c478bd9Sstevel@tonic-gate
387c478bd9Sstevel@tonic-gate /**
397c478bd9Sstevel@tonic-gate ** match() - TEST MATCH OF TEMPLATE/PATTERN WITH PARAMETER
407c478bd9Sstevel@tonic-gate **/
417c478bd9Sstevel@tonic-gate
427c478bd9Sstevel@tonic-gate int
437c478bd9Sstevel@tonic-gate #if defined(__STDC__)
match(char * re,char * value)447c478bd9Sstevel@tonic-gate match (
457c478bd9Sstevel@tonic-gate char * re,
467c478bd9Sstevel@tonic-gate char * value
477c478bd9Sstevel@tonic-gate )
487c478bd9Sstevel@tonic-gate #else
497c478bd9Sstevel@tonic-gate match (re, value)
507c478bd9Sstevel@tonic-gate register char * re;
517c478bd9Sstevel@tonic-gate register char * value;
527c478bd9Sstevel@tonic-gate #endif
537c478bd9Sstevel@tonic-gate {
547c478bd9Sstevel@tonic-gate int ret;
557c478bd9Sstevel@tonic-gate
567c478bd9Sstevel@tonic-gate /*
577c478bd9Sstevel@tonic-gate * We want exact matches, just as if the regular expression
587c478bd9Sstevel@tonic-gate * was ^...$, to explicitly match the beginning and end of line.
597c478bd9Sstevel@tonic-gate * Using "advance" instead of "step" takes care of the ^ and
607c478bd9Sstevel@tonic-gate * checking where the match left off takes care of the $.
617c478bd9Sstevel@tonic-gate * We don't do something silly like add the ^ and $ ourselves,
627c478bd9Sstevel@tonic-gate * because the user may have done that already.
637c478bd9Sstevel@tonic-gate */
647c478bd9Sstevel@tonic-gate ret = advance(value, re);
657c478bd9Sstevel@tonic-gate if (ret && *loc2)
667c478bd9Sstevel@tonic-gate ret = 0;
677c478bd9Sstevel@tonic-gate return (ret);
687c478bd9Sstevel@tonic-gate }
697c478bd9Sstevel@tonic-gate
707c478bd9Sstevel@tonic-gate /**
717c478bd9Sstevel@tonic-gate ** replace() - REPLACE TEMPLATE WITH EXPANDED REGULAR EXPRESSION MATCH
727c478bd9Sstevel@tonic-gate **/
737c478bd9Sstevel@tonic-gate
747c478bd9Sstevel@tonic-gate size_t
757c478bd9Sstevel@tonic-gate #if defined(__STDC__)
replace(char ** pp,char * result,char * value,int nbra)767c478bd9Sstevel@tonic-gate replace (
777c478bd9Sstevel@tonic-gate char ** pp,
787c478bd9Sstevel@tonic-gate char * result,
797c478bd9Sstevel@tonic-gate char * value,
807c478bd9Sstevel@tonic-gate int nbra
817c478bd9Sstevel@tonic-gate )
827c478bd9Sstevel@tonic-gate #else
837c478bd9Sstevel@tonic-gate replace (pp, result, value)
847c478bd9Sstevel@tonic-gate char ** pp;
857c478bd9Sstevel@tonic-gate char * result;
867c478bd9Sstevel@tonic-gate char * value;
877c478bd9Sstevel@tonic-gate int nbra;
887c478bd9Sstevel@tonic-gate #endif
897c478bd9Sstevel@tonic-gate {
907c478bd9Sstevel@tonic-gate register char * p;
917c478bd9Sstevel@tonic-gate register char * q;
927c478bd9Sstevel@tonic-gate
937c478bd9Sstevel@tonic-gate register size_t ncount = 0;
947c478bd9Sstevel@tonic-gate
957c478bd9Sstevel@tonic-gate
967c478bd9Sstevel@tonic-gate /*
977c478bd9Sstevel@tonic-gate * Count and perhaps copy a single character:
987c478bd9Sstevel@tonic-gate */
997c478bd9Sstevel@tonic-gate #define CCPY(SRC) if ((ncount++, pp)) \
1007c478bd9Sstevel@tonic-gate *p++ = SRC
1017c478bd9Sstevel@tonic-gate
1027c478bd9Sstevel@tonic-gate /*
1037c478bd9Sstevel@tonic-gate * Count and perhaps copy a string:
1047c478bd9Sstevel@tonic-gate */
1057c478bd9Sstevel@tonic-gate #define SCPY(SRC) if (pp) { \
1067c478bd9Sstevel@tonic-gate register char * r; \
1077c478bd9Sstevel@tonic-gate for (r = (SRC); *r; ncount++) \
1087c478bd9Sstevel@tonic-gate *p++ = *r++; \
1097c478bd9Sstevel@tonic-gate } else \
1107c478bd9Sstevel@tonic-gate ncount += strlen(SRC)
1117c478bd9Sstevel@tonic-gate
1127c478bd9Sstevel@tonic-gate
113*2a8bcb4eSToomas Soome if (pp)
1147c478bd9Sstevel@tonic-gate p = *pp;
1157c478bd9Sstevel@tonic-gate
1167c478bd9Sstevel@tonic-gate for (q = result; *q; q++) switch (*q) {
1177c478bd9Sstevel@tonic-gate
1187c478bd9Sstevel@tonic-gate case '*':
1197c478bd9Sstevel@tonic-gate case '&':
1207c478bd9Sstevel@tonic-gate SCPY (value);
1217c478bd9Sstevel@tonic-gate break;
1227c478bd9Sstevel@tonic-gate
1237c478bd9Sstevel@tonic-gate case '\\':
1247c478bd9Sstevel@tonic-gate switch (*++q) {
1257c478bd9Sstevel@tonic-gate case '1':
1267c478bd9Sstevel@tonic-gate case '2':
1277c478bd9Sstevel@tonic-gate case '3':
1287c478bd9Sstevel@tonic-gate case '4':
1297c478bd9Sstevel@tonic-gate case '5':
1307c478bd9Sstevel@tonic-gate case '6':
1317c478bd9Sstevel@tonic-gate case '7':
1327c478bd9Sstevel@tonic-gate case '8':
1337c478bd9Sstevel@tonic-gate case '9':
1347c478bd9Sstevel@tonic-gate {
1357c478bd9Sstevel@tonic-gate register int n = *q-'1';
1367c478bd9Sstevel@tonic-gate
1377c478bd9Sstevel@tonic-gate if (n < nbra) {
1387c478bd9Sstevel@tonic-gate register char c = *(braelist[n]);
1397c478bd9Sstevel@tonic-gate
1407c478bd9Sstevel@tonic-gate *(braelist[n]) = 0;
1417c478bd9Sstevel@tonic-gate SCPY (braslist[n]);
1427c478bd9Sstevel@tonic-gate *(braelist[n]) = c;
1437c478bd9Sstevel@tonic-gate }
1447c478bd9Sstevel@tonic-gate break;
1457c478bd9Sstevel@tonic-gate }
1467c478bd9Sstevel@tonic-gate
1477c478bd9Sstevel@tonic-gate default:
1487c478bd9Sstevel@tonic-gate CCPY (*q);
1497c478bd9Sstevel@tonic-gate break;
1507c478bd9Sstevel@tonic-gate }
1517c478bd9Sstevel@tonic-gate break;
1527c478bd9Sstevel@tonic-gate
1537c478bd9Sstevel@tonic-gate default:
1547c478bd9Sstevel@tonic-gate CCPY (*q);
1557c478bd9Sstevel@tonic-gate break;
1567c478bd9Sstevel@tonic-gate }
1577c478bd9Sstevel@tonic-gate
1587c478bd9Sstevel@tonic-gate if (pp)
1597c478bd9Sstevel@tonic-gate *pp = p;
1607c478bd9Sstevel@tonic-gate
1617c478bd9Sstevel@tonic-gate return (ncount);
1627c478bd9Sstevel@tonic-gate }
163