| Commit | Line | Data |
|---|
| adfe19db |
1 | ################################################################################ |
| 2 | ## |
| 51d6c659 |
3 | ## $Revision: 10 $ |
| adfe19db |
4 | ## $Author: mhx $ |
| 51d6c659 |
5 | ## $Date: 2009/01/18 14:10:54 +0100 $ |
| adfe19db |
6 | ## |
| 7 | ################################################################################ |
| 8 | ## |
| 51d6c659 |
9 | ## Version 3.x, Copyright (C) 2004-2009, 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 */ |
projects / p5sagit/p5-mst-13.2.git / blame