form.h

   1 /* $Header: form.h,v 4.0 91/03/20 01:19:37 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 4.0  91/03/20  01:19:37  lwall
  10  * 4.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 #define F_DECIMAL 5
  20
  21 struct formcmd {
  22     struct formcmd *f_next;
  23     ARG *f_expr;
  24     STR *f_unparsed;
  25     line_t f_line;
  26     char *f_pre;
  27     short f_presize;
  28     short f_size;
  29     short f_decimals;
  30     char f_type;
  31     char f_flags;
  32 };
  33
  34 #define FC_CHOP 1
  35 #define FC_NOBLANK 2
  36 #define FC_MORE 4
  37 #define FC_REPEAT 8
  38 #define FC_DP 16
  39
  40 #define Nullfcmd Null(FCMD*)
  41
  42 EXT char *chopset INIT(" \n-");