perl 1.0 patch 12: scripts made by a2p doen't handle leading white space right on...
[p5sagit/p5-mst-13.2.git] / form.h
CommitLineData
8d063cd8 1/* $Header: form.h,v 1.0 87/12/18 13:05:10 root Exp $
2 *
3 * $Log: form.h,v $
4 * Revision 1.0 87/12/18 13:05:10 root
5 * Initial revision
6 *
7 */
8
9#define F_NULL 0
10#define F_LEFT 1
11#define F_RIGHT 2
12#define F_CENTER 3
13#define F_LINES 4
14
15struct formcmd {
16 struct formcmd *f_next;
17 ARG *f_expr;
18 char *f_pre;
19 short f_presize;
20 short f_size;
21 char f_type;
22 char f_flags;
23};
24
25#define FC_CHOP 1
26#define FC_NOBLANK 2
27#define FC_MORE 4
28
29#define Nullfcmd Null(FCMD*)