Commit | Line | Data |
---|---|---|
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 | |
21 | struct 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 | |
42 | EXT char *chopset INIT(" \n-"); |