Commit | Line | Data |
---|---|---|
adfe19db MHM |
1 | ################################################################################ |
2 | ## | |
3 | ## $Revision: 2 $ | |
4 | ## $Author: mhx $ | |
5 | ## $Date: 2004/08/13 12:45:54 +0200 $ | |
6 | ## | |
7 | ################################################################################ | |
8 | ## | |
9 | ## Version 3.x, Copyright (C) 2004, Marcus Holland-Moritz. | |
10 | ## Version 2.x, Copyright (C) 2001, Paul Marquess. | |
11 | ## Version 1.x, Copyright (C) 1999, Kenneth Albanowski. | |
12 | ## | |
13 | ## This program is free software; you can redistribute it and/or | |
14 | ## modify it under the same terms as Perl itself. | |
15 | ## | |
16 | ################################################################################ | |
17 | ||
18 | =provides | |
19 | ||
20 | /^#\s*define\s+(\w+)/ | |
21 | ||
22 | =implementation | |
23 | ||
24 | #ifndef IVdf | |
25 | # if IVSIZE == LONGSIZE | |
26 | # define IVdf "ld" | |
27 | # define UVuf "lu" | |
28 | # define UVof "lo" | |
29 | # define UVxf "lx" | |
30 | # define UVXf "lX" | |
31 | # else | |
32 | # if IVSIZE == INTSIZE | |
33 | # define IVdf "d" | |
34 | # define UVuf "u" | |
35 | # define UVof "o" | |
36 | # define UVxf "x" | |
37 | # define UVXf "X" | |
38 | # endif | |
39 | # endif | |
40 | #endif | |
41 | ||
42 | #ifndef NVef | |
43 | # if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \ | |
44 | defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */ | |
45 | # define NVef PERL_PRIeldbl | |
46 | # define NVff PERL_PRIfldbl | |
47 | # define NVgf PERL_PRIgldbl | |
48 | # else | |
49 | # define NVef "e" | |
50 | # define NVff "f" | |
51 | # define NVgf "g" | |
52 | # endif | |
53 | #endif | |
54 |