ext/Devel/PPPort/parts/inc/version

   1 ################################################################################
   2 ##
   3 ##  $Revision: 10 $
   4 ##  $Author: mhx $
   5 ##  $Date: 2009/01/18 14:10:54 +0100 $
   6 ##
   7 ################################################################################
   8 ##
   9 ##  Version 3.x, Copyright (C) 2004-2009, 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 PERL_REVISION
  21 PERL_VERSION
  22 PERL_SUBVERSION
  23 PERL_BCDVERSION
  24
  25 =dontwarn
  26
  27 PERL_PATCHLEVEL_H_IMPLICIT
  28 _dpppDEC2BCD
  29
  30 =implementation
  31
  32 #ifndef PERL_REVISION
  33 #  if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
  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
  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))
  52
  53 /* It is very unlikely that anyone will try to use this with Perl 6
  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 */