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
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
15 struct 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*)