This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 4.0 patch 5: patch #4, continued
[perl5.git] / form.h
CommitLineData
fe14fcc3 1/* $Header: form.h,v 4.0 91/03/20 01:19:37 lwall Locked $
a687059c
LW
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.
8d063cd8
LW
7 *
8 * $Log: form.h,v $
fe14fcc3
LW
9 * Revision 4.0 91/03/20 01:19:37 lwall
10 * 4.0 baseline.
8d063cd8
LW
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
d9d8d8de 19#define F_DECIMAL 5
8d063cd8
LW
20
21struct formcmd {
22 struct formcmd *f_next;
23 ARG *f_expr;
a687059c
LW
24 STR *f_unparsed;
25 line_t f_line;
8d063cd8
LW
26 char *f_pre;
27 short f_presize;
28 short f_size;
d9d8d8de 29 short f_decimals;
8d063cd8
LW
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
a687059c 37#define FC_REPEAT 8
d9d8d8de 38#define FC_DP 16
8d063cd8
LW
39
40#define Nullfcmd Null(FCMD*)
a687059c
LW
41
42EXT char *chopset INIT(" \n-");