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

2002-05-23 Thread dougm 

dougm   02/05/23 15:18:48

  Modified:src/modules/perl modperl_util.c modperl_util.h
  Log:
  add modperl_perl_sv_setref_uv function
  
  Revision  ChangesPath
  1.42  +8 -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.41
  retrieving revision 1.42
  diff -u -r1.41 -r1.42
  --- modperl_util.c19 May 2002 02:10:13 -  1.41
  +++ modperl_util.c23 May 2002 22:18:47 -  1.42
  @@ -164,6 +164,14 @@
   return sv;
   }
   
  +/* XXX: sv_setref_uv does not exist in 5.6.x */
  +MP_INLINE SV *modperl_perl_sv_setref_uv(pTHX_ SV *rv,
  +const char *classname, UV uv)
  +{
  +sv_setuv(newSVrv(rv, classname), uv);
  +return rv;
  +}
  +
   apr_pool_t *modperl_sv2pool(pTHX_ SV *obj)
   {
   apr_pool_t *p = NULL;
  
  
  
  1.33  +3 -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.32
  retrieving revision 1.33
  diff -u -r1.32 -r1.33
  --- modperl_util.h13 May 2002 03:17:54 -  1.32
  +++ modperl_util.h23 May 2002 22:18:47 -  1.33
  @@ -59,6 +59,9 @@
   
   MP_INLINE SV *modperl_ptr2obj(pTHX_ char *classname, void *ptr);
   
  +MP_INLINE SV *modperl_perl_sv_setref_uv(pTHX_ SV *rv,
  +const char *classname, UV uv);
  +
   apr_pool_t *modperl_sv2pool(pTHX_ SV *obj);
   
   char *modperl_apr_strerror(apr_status_t rv);

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

2001-05-03 Thread 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  ChangesPath
  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.c2001/05/04 05:49:19 1.13
  +++ modperl_util.c2001/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.h2001/04/30 07:17:46 1.13
  +++ modperl_util.h2001/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);