diff options
Diffstat (limited to 'spat.h')
| -rw-r--r-- | spat.h | 15 |
1 files changed, 10 insertions, 5 deletions
@@ -1,11 +1,15 @@ -/* $Header: spat.h,v 4.0 91/03/20 01:39:36 lwall Locked $ +/* $RCSfile: spat.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:51:59 $ * - * Copyright (c) 1989, Larry Wall + * Copyright (c) 1991, Larry Wall * - * You may distribute under the terms of the GNU General Public License - * as specified in the README file that comes with the perl 3.0 kit. + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. * * $Log: spat.h,v $ + * Revision 4.0.1.1 91/06/07 11:51:59 lwall + * patch4: new copyright notice + * patch4: added global modifier for pattern matches + * * Revision 4.0 91/03/20 01:39:36 lwall * 4.0 baseline. * @@ -17,7 +21,7 @@ struct scanpat { ARG *spat_repl; /* replacement string for subst */ ARG *spat_runtime; /* compile pattern at runtime */ STR *spat_short; /* for a fast bypass of execute() */ - bool spat_flags; + short spat_flags; char spat_slen; }; @@ -29,6 +33,7 @@ struct scanpat { #define SPAT_FOLD 32 /* case insensitivity */ #define SPAT_CONST 64 /* subst replacement is constant */ #define SPAT_KEEP 128 /* keep 1st runtime pattern forever */ +#define SPAT_GLOBAL 256 /* pattern had a g modifier */ EXT SPAT *curspat; /* what to do \ interps from */ EXT SPAT *lastspat; /* what to use in place of null pattern */ |