cvs commit: modperl-2.0/src/modules/perl modperl_util.c modperl_util.h

[dougm]

dougm       01/05/03 23:20:37

  Modified:    src/modules/perl modperl_util.c modperl_util.h
  Log:
  add modperl_sv2server_rec function
  
  Revision  Changes    Path
  1.14      +7 -0      modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- modperl_util.c    2001/05/04 05:49:19     1.13
  +++ modperl_util.c    2001/05/04 06:20:36     1.14
  @@ -55,6 +55,13 @@
       return SvROK(sv) ? SvRV(sv) : sv;
   }
   
  +MP_INLINE server_rec *modperl_sv2server_rec(pTHX_ SV *sv)
  +{
  +    return SvOBJECT(sv) ?
  +        (server_rec *)SvObjIV(sv) :
  +        modperl_global_get_server_rec();
  +}
  +
   MP_INLINE request_rec *modperl_sv2request_rec(pTHX_ SV *sv)
   {
       return modperl_xs_sv2request_rec(aTHX_ sv, NULL, Nullcv);
  
  
  
  1.14      +1 -0      modperl-2.0/src/modules/perl/modperl_util.h
  
  Index: modperl_util.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.h,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- modperl_util.h    2001/04/30 07:17:46     1.13
  +++ modperl_util.h    2001/05/04 06:20:36     1.14
  @@ -20,6 +20,7 @@
   
   #define SvObjIV(o) SvIV((SV*)SvRV(o))
   
  +MP_INLINE server_rec *modperl_sv2server_rec(pTHX_ SV *sv);
   MP_INLINE request_rec *modperl_sv2request_rec(pTHX_ SV *sv);
   
   request_rec *modperl_xs_sv2request_rec(pTHX_ SV *sv, char *classname, CV *cv);