perl 1.0 patch 2: Various portability fixes.
[p5sagit/p5-mst-13.2.git] / spat.h
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
9 struct 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
24 EXT SPAT *spat_root;            /* list of all spats */
25 EXT SPAT *curspat;              /* what to do \ interps from */
26
27 #define Nullspat Null(SPAT*)