cvs commit: modperl-2.0/xs/ModPerl/Const Const.xs

[dougm]

dougm       01/10/21 20:41:38

  Modified:    src/modules/perl modperl_const.h
               xs/APR/Const Const.xs
               xs/Apache/Const Const.xs
               xs/ModPerl/Const Const.xs
  Log:
  tweak {ModPerl,APR,Apache}::Const so XS_modperl_const_compile is not directly 
referenced outside ModPerl/Const.so
  
  Revision  Changes    Path
  1.2       +5 -0      modperl-2.0/src/modules/perl/modperl_const.h
  
  Index: modperl_const.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_const.h,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- modperl_const.h   2001/04/11 22:48:29     1.1
  +++ modperl_const.h   2001/10/22 03:41:37     1.2
  @@ -9,4 +9,9 @@
   
   XS(XS_modperl_const_compile);
   
  +#define MP_newModPerlConstXS(name) \
  +   newXS(name "::Const::compile", \
  +         CvXSUB(get_cv("ModPerl::Const::compile", TRUE)), \
  +         __FILE__)
  +
   #endif /* MODPERL_CONST_H */
  
  
  
  1.3       +2 -1      modperl-2.0/xs/APR/Const/Const.xs
  
  Index: Const.xs
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/Const/Const.xs,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- Const.xs  2001/06/17 03:39:19     1.2
  +++ Const.xs  2001/10/22 03:41:37     1.3
  @@ -6,4 +6,5 @@
   PROTOTYPES: disable        
   
   BOOT:
  -    newXS("APR::Const::compile", XS_modperl_const_compile, __FILE__);
  +    MP_newModPerlConstXS("APR");
  +
  
  
  
  1.4       +1 -1      modperl-2.0/xs/Apache/Const/Const.xs
  
  Index: Const.xs
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/Const/Const.xs,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- Const.xs  2001/06/16 19:14:09     1.3
  +++ Const.xs  2001/10/22 03:41:37     1.4
  @@ -6,4 +6,4 @@
   PROTOTYPES: disable
   
   BOOT:
  -    newXS("Apache::Const::compile", XS_modperl_const_compile, __FILE__);
  +    MP_newModPerlConstXS("Apache");
  
  
  
  1.4       +8 -0      modperl-2.0/xs/ModPerl/Const/Const.xs
  
  Index: Const.xs
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/ModPerl/Const/Const.xs,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- Const.xs  2001/06/16 19:14:08     1.3
  +++ Const.xs  2001/10/22 03:41:38     1.4
  @@ -1,6 +1,14 @@
   #include "mod_perl.h"
  +#include "modperl_const.h"
   
   MODULE = ModPerl::Const    PACKAGE = ModPerl::Const
   
   PROTOTYPES: disable
  +
  +BOOT:
  +#XXX:
  +#currently used just for {APR,Apache}/Const.{so,dll} to lookup
  +#XS_modperl_const_compile
  +#linking is fun.
  +newXS("ModPerl::Const::compile", XS_modperl_const_compile, __FILE__);