form.h

   1 /* $Header: form.h,v 3.0 89/10/18 15:17:39 lwall Locked $
   2  *
   3  *    Copyright (c) 1989, Larry Wall
   4  *
   5  *    You may distribute under the terms of the GNU General Public License
   6  *    as specified in the README file that comes with the perl 3.0 kit.
   7  *
   8  * $Log:        form.h,v $
   9  * Revision 3.0  89/10/18  15:17:39  lwall
  10  * 3.0 baseline
  11  *
  12  */
  13
  14 #define F_NULL 0
  15 #define F_LEFT 1
  16 #define F_RIGHT 2
  17 #define F_CENTER 3
  18 #define F_LINES 4
  19
  20 struct formcmd {
  21     struct formcmd *f_next;
  22     ARG *f_expr;
  23     STR *f_unparsed;
  24     line_t f_line;
  25     char *f_pre;
  26     short f_presize;
  27     short f_size;
  28     char f_type;
  29     char f_flags;
  30 };
  31
  32 #define FC_CHOP 1
  33 #define FC_NOBLANK 2
  34 #define FC_MORE 4
  35 #define FC_REPEAT 8
  36
  37 #define Nullfcmd Null(FCMD*)
  38
  39 EXT char *chopset INIT(" \n-");