Commit | Line | Data |
adfe19db |
1 | ################################################################################ |
2 | ## |
bfc37ff7 |
3 | ## $Revision: 11 $ |
adfe19db |
4 | ## $Author: mhx $ |
bfc37ff7 |
5 | ## $Date: 2010/03/07 13:15:48 +0100 $ |
adfe19db |
6 | ## |
7 | ################################################################################ |
8 | ## |
bfc37ff7 |
9 | ## Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz. |
adfe19db |
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 | PERL_REVISION |
21 | PERL_VERSION |
22 | PERL_SUBVERSION |
23 | PERL_BCDVERSION |
24 | |
25 | =dontwarn |
26 | |
27 | PERL_PATCHLEVEL_H_IMPLICIT |
af36fda7 |
28 | _dpppDEC2BCD |
adfe19db |
29 | |
30 | =implementation |
31 | |
32 | #ifndef PERL_REVISION |
cd266515 |
33 | # if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION)) |
adfe19db |
34 | # define PERL_PATCHLEVEL_H_IMPLICIT |
35 | # include <patchlevel.h> |
36 | # endif |
37 | # if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL))) |
38 | # include <could_not_find_Perl_patchlevel.h> |
39 | # endif |
40 | # ifndef PERL_REVISION |
41 | # define PERL_REVISION (5) |
42 | /* Replace: 1 */ |
43 | # define PERL_VERSION PATCHLEVEL |
44 | # define PERL_SUBVERSION SUBVERSION |
45 | /* Replace PERL_PATCHLEVEL with PERL_VERSION */ |
46 | /* Replace: 0 */ |
47 | # endif |
48 | #endif |
49 | |
af36fda7 |
50 | #define _dpppDEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10)) |
51 | #define PERL_BCDVERSION ((_dpppDEC2BCD(PERL_REVISION)<<24)|(_dpppDEC2BCD(PERL_VERSION)<<12)|_dpppDEC2BCD(PERL_SUBVERSION)) |
adfe19db |
52 | |
4a582685 |
53 | /* It is very unlikely that anyone will try to use this with Perl 6 |
adfe19db |
54 | (or greater), but who knows. |
55 | */ |
56 | #if PERL_REVISION != 5 |
57 | # error ppport.h only works with Perl version 5 |
58 | #endif /* PERL_REVISION != 5 */ |