This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 1.0 patch 9: 3 portability problems
[perl5.git] / spat.h
CommitLineData
8d063cd8
LW
1/* $Header: spat.h,v 1.0 87/12/18 13:06:10 root Exp $
2 *
3 * $Log: spat.h,v $
4 * Revision 1.0 87/12/18 13:06:10 root
5 * Initial revision
6 *
7 */
8
9struct scanpat {
10 SPAT *spat_next; /* list of all scanpats */
11 COMPEX spat_compex; /* compiled expression */
12 ARG *spat_repl; /* replacement string for subst */
13 ARG *spat_runtime; /* compile pattern at runtime */
14 STR *spat_first; /* for a fast bypass of execute() */
15 bool spat_flags;
16 char spat_flen;
17};
18
19#define SPAT_USED 1 /* spat has been used once already */
20#define SPAT_USE_ONCE 2 /* use pattern only once per article */
21#define SPAT_SCANFIRST 4 /* initial constant not anchored */
22#define SPAT_SCANALL 8 /* initial constant is whole pat */
23
24EXT SPAT *spat_root; /* list of all spats */
25EXT SPAT *curspat; /* what to do \ interps from */
26
27#define Nullspat Null(SPAT*)