Skip to content

Commit 3389f53

Browse files
demerphqdemerphq
committed
WS Cleanup Stage #3 - break multiline define
1 parent 0c007da commit 3389f53

26 files changed

+758
-526
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: 43 additions & 29 deletions
Original file line numberDiff line numberDiff line change
@@ -557,8 +557,9 @@ typedef struct rcpv RCPV;
557557

558558
# define CopFILE(c) ((c)->cop_file)
559559
# define CopFILE_LEN(c) (CopFILE(c) ? RCPV_LEN(CopFILE(c)) : 0)
560-
# define CopFILEGV(c) (CopFILE(c) \
561-
? gv_fetchfile(CopFILE(c)) : NULL)
560+
# define CopFILEGV(c) \
561+
(CopFILE(c)\
562+
? gv_fetchfile(CopFILE(c)) : NULL)
562563

563564
# define CopFILE_set_x(c,pv) ((c)->cop_file = rcpv_new((pv),0,RCPVf_USE_STRLEN))
564565
# define CopFILE_setn_x(c,pv,l) ((c)->cop_file = rcpv_new((pv),(l),0))
@@ -602,17 +603,21 @@ typedef struct rcpv RCPV;
602603
} STMT_END
603604

604605

605-
# define CopFILESV(c) (CopFILE(c) \
606-
? GvSV(gv_fetchfile(CopFILE(c))) : NULL)
607-
# define CopFILEAV(c) (CopFILE(c) \
608-
? GvAV(gv_fetchfile(CopFILE(c))) : NULL)
609-
# define CopFILEAVx(c) (assert_(CopFILE(c)) \
610-
GvAV(gv_fetchfile(CopFILE(c))))
606+
# define CopFILESV(c) \
607+
(CopFILE(c)\
608+
? GvSV(gv_fetchfile(CopFILE(c))) : NULL)
609+
# define CopFILEAV(c) \
610+
(CopFILE(c)\
611+
? GvAV(gv_fetchfile(CopFILE(c))) : NULL)
612+
# define CopFILEAVx(c) \
613+
(assert_(CopFILE(c))\
614+
GvAV(gv_fetchfile(CopFILE(c))))
611615
# define CopFILEAVn(c) (cop_file_avn(c))
612616
# define CopSTASH(c) PL_stashpad[(c)->cop_stashoff]
613-
# define CopSTASH_set(c,hv) ((c)->cop_stashoff = (hv) \
614-
? alloccopstash(hv) \
615-
: 0)
617+
# define CopSTASH_set(c,hv) \
618+
((c)->cop_stashoff = (hv)\
619+
? alloccopstash(hv) \
620+
: 0)
616621

617622
#else /* Above: yes threads; Below no threads */
618623

@@ -629,10 +634,12 @@ typedef struct rcpv RCPV;
629634
# define CopFILEAVx(c) (GvAV(CopFILEGV(c)))
630635
# endif
631636
# define CopFILEAVn(c) (CopFILEGV(c) ? GvAVn(CopFILEGV(c)) : NULL)
632-
# define CopFILE(c) (CopFILEGV(c) /* +2 for '_<' */ \
633-
? GvNAME(CopFILEGV(c))+2 : NULL)
634-
# define CopFILE_LEN(c) (CopFILEGV(c) /* -2 for '_<' */ \
635-
? GvNAMELEN(CopFILEGV(c))-2 : 0)
637+
# define CopFILE(c) \
638+
(CopFILEGV(c) /* +2 for '_<' */\
639+
? GvNAME(CopFILEGV(c))+2 : NULL)
640+
# define CopFILE_LEN(c) \
641+
(CopFILEGV(c) /* -2 for '_<' */\
642+
? GvNAMELEN(CopFILEGV(c))-2 : 0)
636643
# define CopSTASH(c) ((c)->cop_stash)
637644
# define CopSTASH_set(c,hv) ((c)->cop_stash = (hv))
638645
# define CopFILE_free(c) (SvREFCNT_dec(CopFILEGV(c)),(CopFILEGV(c) = NULL))
@@ -781,9 +788,10 @@ by setting C<*flags> to 0 or C<SVf_UTF8>.
781788
#define OutCopFILE(c) CopFILE(c)
782789

783790
#define CopHINTS_get(c) ((c)->cop_hints + 0)
784-
#define CopHINTS_set(c, h) STMT_START { \
785-
(c)->cop_hints = (h); \
786-
} STMT_END
791+
#define CopHINTS_set(c, h) \
792+
STMT_START {\
793+
(c)->cop_hints = (h); \
794+
} STMT_END
787795

788796
/*
789797
* Here we have some enormously heavy (or at least ponderous) wizardry.
@@ -1036,7 +1044,8 @@ struct subst {
10361044
#define sb_rxres cx_u.cx_subst.sbu_rxres
10371045
#define sb_rx cx_u.cx_subst.sbu_rx
10381046

1039-
# define CX_PUSHSUBST(cx) CXINC, cx = CX_CUR(), \
1047+
# define CX_PUSHSUBST(cx) \
1048+
CXINC, cx = CX_CUR(),\
10401049
cx->blk_oldsaveix = oldsave, \
10411050
cx->sb_iters = iters, \
10421051
cx->sb_maxiters = maxiters, \
@@ -1131,17 +1140,22 @@ struct context {
11311140
#define CXp_ONCE 0x10 /* What was sbu_once in struct subst */
11321141

11331142
#define CxTYPE(c) ((c)->cx_type & CXTYPEMASK)
1134-
#define CxTYPE_is_LOOP(c) ( CxTYPE(cx) >= CXt_LOOP_ARY \
1135-
&& CxTYPE(cx) <= CXt_LOOP_PLAIN)
1143+
#define CxTYPE_is_LOOP(c) \
1144+
( CxTYPE(cx) >= CXt_LOOP_ARY\
1145+
&& CxTYPE(cx) <= CXt_LOOP_PLAIN)
11361146
#define CxMULTICALL(c) ((c)->cx_type & CXp_MULTICALL)
1137-
#define CxREALEVAL(c) (((c)->cx_type & (CXTYPEMASK|CXp_REAL)) \
1138-
== (CXt_EVAL|CXp_REAL))
1139-
#define CxEVALBLOCK(c) (((c)->cx_type & (CXTYPEMASK|CXp_EVALBLOCK)) \
1140-
== (CXt_EVAL|CXp_EVALBLOCK))
1141-
#define CxTRY(c) (((c)->cx_type & (CXTYPEMASK|CXp_TRY)) \
1142-
== (CXt_EVAL|CXp_TRY))
1143-
#define CxFOREACH(c) ( CxTYPE(cx) >= CXt_LOOP_ARY \
1144-
&& CxTYPE(cx) <= CXt_LOOP_LIST)
1147+
#define CxREALEVAL(c) \
1148+
(((c)->cx_type & (CXTYPEMASK|CXp_REAL))\
1149+
== (CXt_EVAL|CXp_REAL))
1150+
#define CxEVALBLOCK(c) \
1151+
(((c)->cx_type & (CXTYPEMASK|CXp_EVALBLOCK))\
1152+
== (CXt_EVAL|CXp_EVALBLOCK))
1153+
#define CxTRY(c) \
1154+
(((c)->cx_type & (CXTYPEMASK|CXp_TRY))\
1155+
== (CXt_EVAL|CXp_TRY))
1156+
#define CxFOREACH(c) \
1157+
( CxTYPE(cx) >= CXt_LOOP_ARY\
1158+
&& CxTYPE(cx) <= CXt_LOOP_LIST)
11451159

11461160
/* private flags for CXt_DEFER */
11471161
#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)