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)
{
