cpan/Devel-PPPort/module2.c

   1 /*******************************************************************************
   2 *
   3 *  Perl/Pollution/Portability
   4 *
   5 ********************************************************************************
   6 *
   7 *  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
   8 *  Version 2.x, Copyright (C) 2001, Paul Marquess.
   9 *  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
  10 *
  11 *  This program is free software; you can redistribute it and/or
  12 *  modify it under the same terms as Perl itself.
  13 *
  14 *******************************************************************************/
  15
  16 #include "EXTERN.h"
  17 #include "perl.h"
  18 #include "XSUB.h"
  19
  20 #ifndef PATCHLEVEL
  21 #include "patchlevel.h"
  22 #endif
  23
  24 #define NEED_newCONSTSUB_GLOBAL
  25 #define NEED_PL_signals_GLOBAL
  26 #define NEED_PL_parser
  27 #define DPPP_PL_parser_NO_DUMMY
  28 #include "ppport.h"
  29
  30 void call_newCONSTSUB_2(void)
  31 {
  32   newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_2", newSViv(2));
  33 }
  34
  35 U32 get_PL_signals_2(void)
  36 {
  37   return PL_signals;
  38 }
  39
  40 int no_dummy_parser_vars(int check)
  41 {
  42   if (check == 0 || PL_parser)
  43   {
  44     line_t volatile my_copline;
  45     line_t volatile *my_p_copline;
  46     my_copline = PL_copline;
  47     my_p_copline = &PL_copline;
  48     PL_copline = my_copline;
  49     PL_copline = *my_p_copline;
  50     return 1;
  51   }
  52
  53   return 0;
  54 }