This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use the return value from sprintf and avoid a call to strlen
[perl5.git] / form.h
1 /*    form.h
2  *
3  *    Copyright (C) 1991, 1992, 1993, 2000, 2004 by Larry Wall and others
4  *
5  *    You may distribute under the terms of either the GNU General Public
6  *    License or the Artistic License, as specified in the README file.
7  *
8  */
9
10 #define FF_END          0
11 #define FF_LINEMARK     1
12 #define FF_LITERAL      2
13 #define FF_SKIP         3
14 #define FF_FETCH        4
15 #define FF_CHECKNL      5
16 #define FF_CHECKCHOP    6
17 #define FF_SPACE        7
18 #define FF_HALFSPACE    8
19 #define FF_ITEM         9
20 #define FF_CHOP         10
21 #define FF_LINEGLOB     11
22 #define FF_DECIMAL      12
23 #define FF_NEWLINE      13
24 #define FF_BLANK        14
25 #define FF_MORE         15
26 #define FF_0DECIMAL     16
27 #define FF_LINESNGL     17