Skip to content

Commit 86e8d31

Browse files
demerphqdemerphq
committed
WS Cleanup Stage #3 - break multiline define
1 parent 828b3e4 commit 86e8d31

26 files changed

+755
-524
lines changed

‎XSUB.h

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -186,8 +186,9 @@ is a lexical C<$_> in scope.
186186
I32 ax = XS_SETXSUBFN_POPMARK; \
187187
SV **mark = PL_stack_base + ax - 1; dSP; dITEMS
188188

189-
#define dXSTARG SV * const targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \
190-
? PAD_SV(PL_op->op_targ) : sv_newmortal())
189+
#define dXSTARG \
190+
SV * const targ = ((PL_op->op_private & OPpENTERSUB_HASTARG)\
191+
? PAD_SV(PL_op->op_targ) : sv_newmortal())
191192

192193
/* Should be used before final PUSHi etc. if not in PPCODE section. */
193194
#define XSprePUSH (sp = PL_stack_base + ax - 1)

‎av.h

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -93,8 +93,9 @@ If all you need is to look up an array element, then prefer C<av_fetch>.
9393

9494
#define AvREALISH(av) (SvFLAGS(av) & (SVpav_REAL|SVpav_REIFY))
9595

96-
#define AvFILL(av) ((SvRMAGICAL((const SV *) (av))) \
97-
? mg_size(MUTABLE_SV(av)) : AvFILLp(av))
96+
#define AvFILL(av) \
97+
((SvRMAGICAL((const SV *) (av)))\
98+
? mg_size(MUTABLE_SV(av)) : AvFILLp(av))
9899
#define av_top_index(av) AvFILL(av)
99100
#define av_tindex(av) av_top_index(av)
100101

‎cop.h

Lines changed: 40 additions & 27 deletions
Original file line numberDiff line numberDiff line change
@@ -509,23 +509,28 @@ string C<p>, creating the package if necessary.
509509
#ifdef USE_ITHREADS
510510

511511
# define CopFILE(c) ((c)->cop_file)
512-
# define CopFILEGV(c) (CopFILE(c) \
513-
? gv_fetchfile(CopFILE(c)) : NULL)
512+
# define CopFILEGV(c) \
513+
(CopFILE(c)\
514+
? gv_fetchfile(CopFILE(c)) : NULL)
514515

515516
# define CopFILE_set(c,pv) ((c)->cop_file = savesharedpv(pv))
516517
# define CopFILE_setn(c,pv,l) ((c)->cop_file = savesharedpvn((pv),(l)))
517518

518-
# define CopFILESV(c) (CopFILE(c) \
519-
? GvSV(gv_fetchfile(CopFILE(c))) : NULL)
520-
# define CopFILEAV(c) (CopFILE(c) \
521-
? GvAV(gv_fetchfile(CopFILE(c))) : NULL)
522-
# define CopFILEAVx(c) (assert_(CopFILE(c)) \
523-
GvAV(gv_fetchfile(CopFILE(c))))
519+
# define CopFILESV(c) \
520+
(CopFILE(c)\
521+
? GvSV(gv_fetchfile(CopFILE(c))) : NULL)
522+
# define CopFILEAV(c) \
523+
(CopFILE(c)\
524+
? GvAV(gv_fetchfile(CopFILE(c))) : NULL)
525+
# define CopFILEAVx(c) \
526+
(assert_(CopFILE(c))\
527+
GvAV(gv_fetchfile(CopFILE(c))))
524528
# define CopFILEAVn(c) (cop_file_avn(c))
525529
# define CopSTASH(c) PL_stashpad[(c)->cop_stashoff]
526-
# define CopSTASH_set(c,hv) ((c)->cop_stashoff = (hv) \
527-
? alloccopstash(hv) \
528-
: 0)
530+
# define CopSTASH_set(c,hv) \
531+
((c)->cop_stashoff = (hv)\
532+
? alloccopstash(hv) \
533+
: 0)
529534
# define CopFILE_free(c) (PerlMemShared_free(CopFILE(c)),(CopFILE(c) = NULL))
530535

531536
#else /* Above: yes threads; Below no threads */
@@ -542,8 +547,9 @@ string C<p>, creating the package if necessary.
542547
# define CopFILEAVx(c) (GvAV(CopFILEGV(c)))
543548
# endif
544549
# define CopFILEAVn(c) (CopFILEGV(c) ? GvAVn(CopFILEGV(c)) : NULL)
545-
# define CopFILE(c) (CopFILEGV(c) /* +2 for '_<' */ \
546-
? GvNAME(CopFILEGV(c))+2 : NULL)
550+
# define CopFILE(c) \
551+
(CopFILEGV(c) /* +2 for '_<' */\
552+
? GvNAME(CopFILEGV(c))+2 : NULL)
547553
# define CopSTASH(c) ((c)->cop_stash)
548554
# define CopSTASH_set(c,hv) ((c)->cop_stash = (hv))
549555
# define CopFILE_free(c) (SvREFCNT_dec(CopFILEGV(c)),(CopFILEGV(c) = NULL))
@@ -690,9 +696,10 @@ by setting C<*flags> to 0 or C<SVf_UTF8>.
690696
#define OutCopFILE(c) CopFILE(c)
691697

692698
#define CopHINTS_get(c) ((c)->cop_hints + 0)
693-
#define CopHINTS_set(c, h) STMT_START { \
694-
(c)->cop_hints = (h); \
695-
} STMT_END
699+
#define CopHINTS_set(c, h) \
700+
STMT_START {\
701+
(c)->cop_hints = (h); \
702+
} STMT_END
696703

697704
/*
698705
* Here we have some enormously heavy (or at least ponderous) wizardry.
@@ -945,7 +952,8 @@ struct subst {
945952
#define sb_rxres cx_u.cx_subst.sbu_rxres
946953
#define sb_rx cx_u.cx_subst.sbu_rx
947954

948-
# define CX_PUSHSUBST(cx) CXINC, cx = CX_CUR(), \
955+
# define CX_PUSHSUBST(cx) \
956+
CXINC, cx = CX_CUR(),\
949957
cx->blk_oldsaveix = oldsave, \
950958
cx->sb_iters = iters, \
951959
cx->sb_maxiters = maxiters, \
@@ -1040,17 +1048,22 @@ struct context {
10401048
#define CXp_ONCE 0x10 /* What was sbu_once in struct subst */
10411049

10421050
#define CxTYPE(c) ((c)->cx_type & CXTYPEMASK)
1043-
#define CxTYPE_is_LOOP(c) ( CxTYPE(cx) >= CXt_LOOP_ARY \
1044-
&& CxTYPE(cx) <= CXt_LOOP_PLAIN)
1051+
#define CxTYPE_is_LOOP(c) \
1052+
( CxTYPE(cx) >= CXt_LOOP_ARY\
1053+
&& CxTYPE(cx) <= CXt_LOOP_PLAIN)
10451054
#define CxMULTICALL(c) ((c)->cx_type & CXp_MULTICALL)
1046-
#define CxREALEVAL(c) (((c)->cx_type & (CXTYPEMASK|CXp_REAL)) \
1047-
== (CXt_EVAL|CXp_REAL))
1048-
#define CxEVALBLOCK(c) (((c)->cx_type & (CXTYPEMASK|CXp_EVALBLOCK)) \
1049-
== (CXt_EVAL|CXp_EVALBLOCK))
1050-
#define CxTRY(c) (((c)->cx_type & (CXTYPEMASK|CXp_TRY)) \
1051-
== (CXt_EVAL|CXp_TRY))
1052-
#define CxFOREACH(c) ( CxTYPE(cx) >= CXt_LOOP_ARY \
1053-
&& CxTYPE(cx) <= CXt_LOOP_LIST)
1055+
#define CxREALEVAL(c) \
1056+
(((c)->cx_type & (CXTYPEMASK|CXp_REAL))\
1057+
== (CXt_EVAL|CXp_REAL))
1058+
#define CxEVALBLOCK(c) \
1059+
(((c)->cx_type & (CXTYPEMASK|CXp_EVALBLOCK))\
1060+
== (CXt_EVAL|CXp_EVALBLOCK))
1061+
#define CxTRY(c) \
1062+
(((c)->cx_type & (CXTYPEMASK|CXp_TRY))\
1063+
== (CXt_EVAL|CXp_TRY))
1064+
#define CxFOREACH(c) \
1065+
( CxTYPE(cx) >= CXt_LOOP_ARY\
1066+
&& CxTYPE(cx) <= CXt_LOOP_LIST)
10541067

10551068
/* private flags for CXt_DEFER */
10561069
#define CXp_FINALLY 0x20 /* `finally` block; semantically identical

‎cv.h

Lines changed: 8 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -62,15 +62,17 @@ See L<perlguts/Autoloading with XSUBs>.
6262
#define CvDEPTHunsafe(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_depth
6363

6464
/* these CvPADLIST/CvRESERVED asserts can be reverted one day, once stabilized */
65-
#define CvPADLIST(sv) (*(assert_(!CvISXSUB((CV*)(sv))) \
65+
#define CvPADLIST(sv) \
66+
(*(assert_(!CvISXSUB((CV*)(sv)))\
6667
&(((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_padlist_u.xcv_padlist)))
6768
/* CvPADLIST_set is not public API, it can be removed one day, once stabilized */
6869
#ifdef DEBUGGING
6970
# define CvPADLIST_set(sv, padlist) Perl_set_padlist((CV*)sv, padlist)
7071
#else
7172
# define CvPADLIST_set(sv, padlist) (CvPADLIST(sv) = (padlist))
7273
#endif
73-
#define CvHSCXT(sv) *(assert_(CvISXSUB((CV*)(sv))) \
74+
#define CvHSCXT(sv) \
75+
*(assert_(CvISXSUB((CV*)(sv)))\
7476
&(((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_padlist_u.xcv_hscxt))
7577
#ifdef DEBUGGING
7678
# if PTRSIZE == 8
@@ -279,15 +281,17 @@ CvNAME_HEK(CV *sv)
279281
/* helper for the common pattern:
280282
CvNAMED(sv) ? CvNAME_HEK((CV *)sv) : GvNAME_HEK(CvGV(sv))
281283
*/
282-
#define CvGvNAME_HEK(sv) ( \
284+
#define CvGvNAME_HEK(sv) \
285+
(\
283286
CvNAMED((CV*)sv) ? \
284287
((XPVCV*)MUTABLE_PTR(SvANY((SV*)sv)))->xcv_gv_u.xcv_hek\
285288
: GvNAME_HEK(CvGV( (SV*) sv)) \
286289
)
287290

288291
/* This lowers the reference count of the previous value, but does *not*
289292
increment the reference count of the new value. */
290-
#define CvNAME_HEK_set(cv, hek) ( \
293+
#define CvNAME_HEK_set(cv, hek) \
294+
(\
291295
CvNAME_HEK((CV *)(cv)) \
292296
? unshare_hek(SvANY((CV *)(cv))->xcv_gv_u.xcv_hek) \
293297
: (void)0, \

‎gv.h

Lines changed: 12 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -100,9 +100,10 @@ Return the CV from the GV.
100100

101101
#define GvSV(gv) (GvGP(gv)->gp_sv)
102102
#ifdef PERL_DONT_CREATE_GVSV
103-
#define GvSVn(gv) (*(GvGP(gv)->gp_sv ? \
104-
&(GvGP(gv)->gp_sv) : \
105-
&(GvGP(gv_SVadd(gv))->gp_sv)))
103+
#define GvSVn(gv) \
104+
(*(GvGP(gv)->gp_sv ?\
105+
&(GvGP(gv)->gp_sv) : \
106+
&(GvGP(gv_SVadd(gv))->gp_sv)))
106107
#else
107108
#define GvSVn(gv) GvSV(gv)
108109
#endif
@@ -125,14 +126,16 @@ Return the CV from the GV.
125126
#define GvFORM(gv) (GvGP(gv)->gp_form)
126127
#define GvAV(gv) (GvGP(gv)->gp_av)
127128

128-
#define GvAVn(gv) (GvGP(gv)->gp_av ? \
129-
GvGP(gv)->gp_av : \
130-
GvGP(gv_AVadd(gv))->gp_av)
129+
#define GvAVn(gv) \
130+
(GvGP(gv)->gp_av ?\
131+
GvGP(gv)->gp_av : \
132+
GvGP(gv_AVadd(gv))->gp_av)
131133
#define GvHV(gv) ((GvGP(gv))->gp_hv)
132134

133-
#define GvHVn(gv) (GvGP(gv)->gp_hv ? \
134-
GvGP(gv)->gp_hv : \
135-
GvGP(gv_HVadd(gv))->gp_hv)
135+
#define GvHVn(gv) \
136+
(GvGP(gv)->gp_hv ?\
137+
GvGP(gv)->gp_hv : \
138+
GvGP(gv_HVadd(gv))->gp_hv)
136139

137140
#define GvCV(gv) ((CV*)GvGP(gv)->gp_cv)
138141
#define GvCV_set(gv,cv) (GvGP(gv)->gp_cv = (cv))

0 commit comments

Comments
 (0)