This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
a "replacement" for awk and sed
[perl5.git] / form.h
CommitLineData
8d063cd8
LW
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*)