diff options
Diffstat (limited to 'spat.h')
| -rw-r--r-- | spat.h | 16 |
1 files changed, 11 insertions, 5 deletions
@@ -1,8 +1,13 @@ -/* $Header: spat.h,v 2.0 88/06/05 00:10:58 root Exp $ +/* $Header: spat.h,v 3.0 89/10/18 15:23:14 lwall Locked $ + * + * Copyright (c) 1989, 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. * * $Log: spat.h,v $ - * Revision 2.0 88/06/05 00:10:58 root - * Baseline version 2.0. + * Revision 3.0 89/10/18 15:23:14 lwall + * 3.0 baseline * */ @@ -17,13 +22,14 @@ struct scanpat { }; #define SPAT_USED 1 /* spat has been used once already */ -#define SPAT_ONCE 2 /* use pattern only once per article */ +#define SPAT_ONCE 2 /* use pattern only once per reset */ #define SPAT_SCANFIRST 4 /* initial constant not anchored */ #define SPAT_ALL 8 /* initial constant is whole pat */ #define SPAT_SKIPWHITE 16 /* skip leading whitespace for split */ #define SPAT_FOLD 32 /* case insensitivity */ +#define SPAT_CONST 64 /* subst replacement is constant */ +#define SPAT_KEEP 128 /* keep 1st runtime pattern forever */ -EXT SPAT *spat_root; /* list of all spats */ EXT SPAT *curspat; /* what to do \ interps from */ EXT SPAT *lastspat; /* what to use in place of null pattern */ |