2.11BSD#431 - /usr/src/new/PORT/perl.1.0.16/spat.h

   1: /* $Header: spat.h,v 1.0.1.1 88/02/02 11:24:37 root Exp $
   2:  *
   3:  * $Log:	spat.h,v $
   4:  * Revision 1.0.1.1  88/02/02  11:24:37  root
   5:  * patch13: added flag for stripping leading spaces on split.
   6:  *
   7:  * Revision 1.0  87/12/18  13:06:10  root
   8:  * Initial revision
   9:  *
  10:  */
  11: 
  12: struct scanpat {
  13:     SPAT    *spat_next;     /* list of all scanpats */
  14:     COMPEX  spat_compex;        /* compiled expression */
  15:     ARG     *spat_repl;     /* replacement string for subst */
  16:     ARG     *spat_runtime;      /* compile pattern at runtime */
  17:     STR     *spat_first;        /* for a fast bypass of execute() */
  18:     bool    spat_flags;
  19:     char    spat_flen;
  20: };
  21: 
  22: #define SPAT_USED 1         /* spat has been used once already */
  23: #define SPAT_USE_ONCE 2         /* use pattern only once per article */
  24: #define SPAT_SCANFIRST 4        /* initial constant not anchored */
  25: #define SPAT_SCANALL 8          /* initial constant is whole pat */
  26: #define SPAT_SKIPWHITE 16       /* skip leading whitespace for split */
  27: 
  28: EXT SPAT *spat_root;        /* list of all spats */
  29: EXT SPAT *curspat;      /* what to do \ interps from */
  30: 
  31: #define Nullspat Null(SPAT*)

Defined struct's

Defined macros

Usage of this include