perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/xs/Apache/Filter Apache__Filter.h
Date Wed, 12 May 2004 18:54:15 GMT
stas        2004/05/12 11:54:15

  Modified:    xs/Apache/Filter Apache__Filter.h
  Log:
  tidy up
  
  Revision  Changes    Path
  1.37      +21 -21    modperl-2.0/xs/Apache/Filter/Apache__Filter.h
  
  Index: Apache__Filter.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/Filter/Apache__Filter.h,v
  retrieving revision 1.36
  retrieving revision 1.37
  diff -u -u -r1.36 -r1.37
  --- Apache__Filter.h	10 May 2004 23:20:08 -0000	1.36
  +++ Apache__Filter.h	12 May 2004 18:54:15 -0000	1.37
  @@ -13,13 +13,13 @@
    * limitations under the License.
    */
   
  -#define mp_xs_sv2_modperl_filter(sv) \
  -((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \
  -|| (Perl_croak(aTHX_ "argument is not a blessed reference"),0) ? \
  -modperl_filter_mg_get(aTHX_ sv) : NULL)
  +#define mp_xs_sv2_modperl_filter(sv)                                    \
  +    ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG))                      \
  +     || (Perl_croak(aTHX_ "argument is not a blessed reference"),0) ?   \
  +     modperl_filter_mg_get(aTHX_ sv) : NULL)
   
  -#define mpxs_Apache__Filter_TIEHANDLE(stashsv, sv) \
  -modperl_newSVsv_obj(aTHX_ stashsv, sv)
  +#define mpxs_Apache__Filter_TIEHANDLE(stashsv, sv)      \
  +    modperl_newSVsv_obj(aTHX_ stashsv, sv)
   
   #define mpxs_Apache__Filter_PRINT mpxs_Apache__Filter_print
   
  @@ -84,9 +84,9 @@
   }
   
   #ifdef MP_TRACE
  -#define trace_attr() \
  -MP_TRACE_f(MP_FUNC, "applied %s attribute to %s handler\n", attribute, \
  -           HvNAME(stash))
  +#define trace_attr()                                                       \
  +    MP_TRACE_f(MP_FUNC, "applied %s attribute to %s handler\n", attribute, \
  +               HvNAME(stash))
   #else
   #define trace_attr()
   #endif
  @@ -94,18 +94,18 @@
   /* we can't eval at this stage, since the package is not compiled yet,
    * we are still parsing the source.
    */
  -#define MODPERL_FILTER_ATTACH_ATTR_CODE(cv, string, len)   \
  -{                                                     \
  -    char *str;                                        \
  -    len -= 2;        /* s/ \( | \) //x       */       \
  -    string++;        /* skip the opening '(' */       \
  -    New(0, str, len+1, char);                         \
  -    Copy(string, str, len+1, char);                   \
  -    str[len] = '\0'; /* remove the closing ')' */     \
  -    sv_magic(cv, Nullsv, '~', NULL, -1);              \
  -    SvMAGIC(cv)->mg_ptr = str;                        \
  -}
  -    
  +#define MODPERL_FILTER_ATTACH_ATTR_CODE(cv, string, len)        \
  +    {                                                           \
  +        char *str;                                              \
  +        len -= 2;           /* s/ \( | \) //x       */          \
  +        string++;           /* skip the opening '(' */          \
  +        New(0, str, len+1, char);                               \
  +        Copy(string, str, len+1, char);                         \
  +        str[len] = '\0';    /* remove the closing ')' */        \
  +        sv_magic(cv, Nullsv, '~', NULL, -1);                    \
  +        SvMAGIC(cv)->mg_ptr = str;                              \
  +    }
  +
   
   static XS(MPXS_modperl_filter_attributes)
   {
  
  
  

Mime
View raw message