|
Packit |
7d6a7d |
################################################################################
|
|
Packit |
7d6a7d |
##
|
|
Packit |
7d6a7d |
## Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
|
|
Packit |
7d6a7d |
## Version 2.x, Copyright (C) 2001, Paul Marquess.
|
|
Packit |
7d6a7d |
## Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
|
|
Packit |
7d6a7d |
##
|
|
Packit |
7d6a7d |
## This program is free software; you can redistribute it and/or
|
|
Packit |
7d6a7d |
## modify it under the same terms as Perl itself.
|
|
Packit |
7d6a7d |
##
|
|
Packit |
7d6a7d |
################################################################################
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
=provides
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
PERL_REVISION
|
|
Packit |
7d6a7d |
PERL_VERSION
|
|
Packit |
7d6a7d |
PERL_SUBVERSION
|
|
Packit |
7d6a7d |
PERL_BCDVERSION
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
=dontwarn
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
PERL_PATCHLEVEL_H_IMPLICIT
|
|
Packit |
7d6a7d |
_dpppDEC2BCD
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
=implementation
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
#ifndef PERL_REVISION
|
|
Packit |
7d6a7d |
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
|
|
Packit |
7d6a7d |
# define PERL_PATCHLEVEL_H_IMPLICIT
|
|
Packit |
7d6a7d |
# include <patchlevel.h>
|
|
Packit |
7d6a7d |
# endif
|
|
Packit |
7d6a7d |
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
|
|
Packit |
7d6a7d |
# include <could_not_find_Perl_patchlevel.h>
|
|
Packit |
7d6a7d |
# endif
|
|
Packit |
7d6a7d |
# ifndef PERL_REVISION
|
|
Packit |
7d6a7d |
# define PERL_REVISION (5)
|
|
Packit |
7d6a7d |
/* Replace: 1 */
|
|
Packit |
7d6a7d |
# define PERL_VERSION PATCHLEVEL
|
|
Packit |
7d6a7d |
# define PERL_SUBVERSION SUBVERSION
|
|
Packit |
7d6a7d |
/* Replace PERL_PATCHLEVEL with PERL_VERSION */
|
|
Packit |
7d6a7d |
/* Replace: 0 */
|
|
Packit |
7d6a7d |
# endif
|
|
Packit |
7d6a7d |
#endif
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
#define _dpppDEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10))
|
|
Packit |
7d6a7d |
#define PERL_BCDVERSION ((_dpppDEC2BCD(PERL_REVISION)<<24)|(_dpppDEC2BCD(PERL_VERSION)<<12)|_dpppDEC2BCD(PERL_SUBVERSION))
|
|
Packit |
7d6a7d |
|
|
Packit |
7d6a7d |
/* It is very unlikely that anyone will try to use this with Perl 6
|
|
Packit |
7d6a7d |
(or greater), but who knows.
|
|
Packit |
7d6a7d |
*/
|
|
Packit |
7d6a7d |
#if PERL_REVISION != 5
|
|
Packit |
7d6a7d |
# error ppport.h only works with Perl version 5
|
|
Packit |
7d6a7d |
#endif /* PERL_REVISION != 5 */
|