WS Cleanup Stage #9 - break remaining long line comments

Author: demerphq

XSUB.h

@@ -360,7 +360,8 @@ Rethrows a previously caught exception.  See L<perlguts/"Exception Handling">.
        Perl_xs_handshake(HS_KEY(FALSE, FALSE, "v" PERL_API_VERSION_STRING, XS_VERSION), \
            HS_CXT, __FILE__, items, ax, "v" PERL_API_VERSION_STRING, XS_VERSION)
 #else
-/* should this be a #error? if you want both checked, you better supply XS_VERSION right? */
+/* should this be a #error? if you want both checked,
+   you better supply XS_VERSION right? */
 #  define XS_BOTHVERSION_BOOTCHECK    XS_APIVERSION_BOOTCHECK
 #endif
 
@@ -373,7 +374,8 @@ Rethrows a previously caught exception.  See L<perlguts/"Exception Handling">.
        Perl_xs_handshake(HS_KEY(FALSE, TRUE, "v" PERL_API_VERSION_STRING, XS_VERSION),  \
            HS_CXT, __FILE__, "v" PERL_API_VERSION_STRING, XS_VERSION)
 #else
-/* should this be a #error? if you want both checked, you better supply XS_VERSION right? */
+/* should this be a #error? if you want both checked,
+   you better supply XS_VERSION right? */
 #  define XS_BOTHVERSION_POPMARK_BOOTCHECK    XS_APIVERSION_POPMARK_BOOTCHECK
 #endif
 
@@ -385,7 +387,8 @@ Rethrows a previously caught exception.  See L<perlguts/"Exception Handling">.
        Perl_xs_handshake(HS_KEY(TRUE, TRUE, "v" PERL_API_VERSION_STRING, XS_VERSION),   \
            HS_CXT, __FILE__, "v" PERL_API_VERSION_STRING, XS_VERSION)
 #else
-/* should this be a #error? if you want both checked, you better supply XS_VERSION right? */
+/* should this be a #error? if you want both checked,
+   you better supply XS_VERSION right? */
 #  define XS_BOTHVERSION_SETXSUBFN_POPMARK_BOOTCHECK    \
        XS_APIVERSION_SETXSUBFN_POPMARK_BOOTCHECK
 #endif

cop.h

@@ -829,7 +829,8 @@ struct block_loop {
         }       lazysv;
     }       state_u;
 #ifdef USE_ITHREADS
-    PAD     *oldcomppad;    /* needed to map itervar_u.svp during thread clone */
+    PAD     *oldcomppad;    /* needed to map itervar_u.svp
+                               during thread clone */
 #endif
 };
 
@@ -1086,9 +1087,11 @@ struct context {
 #define G_DISCARD                  0x4  /* Call FREETMPS.
                                    Don't change this without consulting the
                                    hash actions codes defined in hv.h */
-#define G_EVAL                     0x8  /* Assume eval {} around subroutine call. */
+#define G_EVAL                     0x8  /* Assume eval {} around
+                                           subroutine call. */
 #define G_NOARGS                  0x10  /* Don't construct a @_ array. */
-#define G_KEEPERR                 0x20  /* Warn for errors, don't overwrite $@ */
+#define G_KEEPERR                 0x20  /* Warn for errors, don't
+                                           overwrite $@ */
 #define G_NODEBUG                 0x40  /* Disable debugging at toplevel.  */
 #define G_METHOD                  0x80  /* Calling method. */
 #define G_FAKINGEVAL             0x100  /* Faking an eval context for call_sv or
@@ -1099,16 +1102,19 @@ struct context {
 #define G_WRITING_TO_STDERR      0x400  /* Perl_write_to_stderr() is calling
                                     Perl_magic_methcall().  */
 #define G_RE_REPARSING           0x800  /* compiling a run-time /(?{..})/ */
-#define G_METHOD_NAMED          0x1000  /* calling named method, eg without :: or ' */
+#define G_METHOD_NAMED          0x1000  /* calling named method, eg
+                                           without :: or ' */
 #define G_RETHROW               0x2000  /* eval_sv(): re-throw any error */
 
 /* flag bits for PL_in_eval */
 #define EVAL_NULL                    0  /* not in an eval */
 #define EVAL_INEVAL                  1  /* some enclosing scope is an eval */
-#define EVAL_WARNONLY                2  /* used by yywarn() when calling yyerror() */
+#define EVAL_WARNONLY                2  /* used by yywarn() when
+                                           calling yyerror() */
 #define EVAL_KEEPERR                 4  /* set by Perl_call_sv if G_KEEPERR */
 #define EVAL_INREQUIRE               8  /* The code is being required. */
-#define EVAL_RE_REPARSING         0x10  /* eval_sv() called with G_RE_REPARSING */
+#define EVAL_RE_REPARSING         0x10  /* eval_sv() called with
+                                           G_RE_REPARSING */
 /* if adding extra bits, make sure they can fit in CxOLD_OP_TYPE() */
 
 /* Support for switching (stack and block) contexts.

cv.h

@@ -63,11 +63,13 @@ See L<perlguts/Autoloading with XSUBs>.
    Must be assert protected as in Perl_CvDEPTH before use. */
 #define CvDEPTHunsafe(sv)   ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_depth
 
-/* these CvPADLIST/CvRESERVED asserts can be reverted one day, once stabilized */
+/* these CvPADLIST/CvRESERVED asserts can be
+   reverted one day, once stabilized */
 #define CvPADLIST(sv)                   \
     (*(assert_(!CvISXSUB((CV*)(sv)))    \
         &(((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_padlist_u.xcv_padlist)))
-/* CvPADLIST_set is not public API, it can be removed one day, once stabilized */
+/* CvPADLIST_set is not public API, it can
+   be removed one day, once stabilized */
 #ifdef DEBUGGING
 #  define CvPADLIST_set(sv, padlist)  Perl_set_padlist((CV*)sv, padlist)
 #else
@@ -115,15 +117,17 @@ See L<perlguts/Autoloading with XSUBs>.
  * renamed to avoid collision with an upcoming feature */
 #define CVf_NOWARN_AMBIGUOUS    0x0001
 
-#define CVf_LVALUE              0x0002  /* CV return value can be used as lvalue */
+#define CVf_LVALUE              0x0002  /* CV return value can be
+                                           used as lvalue */
 #define CVf_CONST               0x0004  /* inlinable sub */
 #define CVf_ISXSUB              0x0008  /* CV is an XSUB, not pure perl.  */
 
 #define CVf_WEAKOUTSIDE         0x0010  /* CvOUTSIDE isn't ref counted */
 #define CVf_CLONE               0x0020  /* anon CV uses external lexicals */
 #define CVf_CLONED              0x0040  /* a clone of one of those */
 #define CVf_ANON                0x0080  /* CV is not pointed to by a GV */
-#define CVf_UNIQUE              0x0100  /* sub is only called once (eg PL_main_cv,
+#define CVf_UNIQUE              0x0100  /* sub is only called once
+                                           (eg PL_main_cv,
                                    require, eval). */
 #define CVf_NODEBUG             0x0200  /* no DB::sub indirection for this CV
                                    (esp. useful for special XSUBs) */
@@ -132,13 +136,15 @@ See L<perlguts/Autoloading with XSUBs>.
 # define CVf_SLABBED     0x0800  /* Holds refcount on op slab  */
 #endif
 #define CVf_DYNFILE              0x1000     /* The filename is malloced  */
-#define CVf_AUTOLOAD             0x2000     /* SvPVX contains AUTOLOADed sub name  */
+#define CVf_AUTOLOAD             0x2000     /* SvPVX contains AUTOLOADed
+                                               sub name */
 #define CVf_HASEVAL              0x4000     /* contains string eval  */
 #define CVf_NAMED                0x8000     /* Has a name HEK */
 #define CVf_LEXICAL             0x10000     /* Omit package from name */
 #define CVf_ANONCONST           0x20000     /* :const - create anonconst op */
 #define CVf_SIGNATURE           0x40000     /* CV uses a signature */
-#define CVf_REFCOUNTED_ANYSV    0x80000     /* CvXSUBANY().any_sv is refcounted */
+#define CVf_REFCOUNTED_ANYSV    0x80000     /* CvXSUBANY().any_sv
+                                               is refcounted */
 
 /* This symbol for optimised communication between toke.c and op.c: */
 #define CVf_BUILTIN_ATTRS           (CVf_NOWARN_AMBIGUOUS|CVf_LVALUE|CVf_ANONCONST)

form.h

@@ -12,9 +12,11 @@
 #define FF_LITERAL       2  /* append <arg> literal chars */
 #define FF_SKIP          3  /* skip <arg> chars in format */
 #define FF_FETCH         4  /* get next item and set field size to <arg> */
-#define FF_CHECKNL       5  /* find max len of item (up to \n) that fits field */
+#define FF_CHECKNL       5  /* find max len of item (up to
+                               \n) that fits field */
 #define FF_CHECKCHOP     6  /* like CHECKNL, but up to highest split point */
-#define FF_SPACE         7  /* append padding space (diff of field, item size) */
+#define FF_SPACE         7  /* append padding space (diff
+                               of field, item size) */
 #define FF_HALFSPACE     8  /* like FF_SPACE, but only append half as many */
 #define FF_ITEM          9  /* append a text item, while blanking ctrl chars */
 #define FF_CHOP         10  /* (for ^*) chop the current item */

gv.h

@@ -238,13 +238,18 @@ Return the CV from the GV.
                                 if type != PVGV */
 /* This is used by toke.c to avoid turing placeholder constants in the symbol
    table into full PVGVs with attached constant subroutines.  */
-#define GV_NOADD_NOINIT           0x20  /* Don't add the symbol if it's not there.
+#define GV_NOADD_NOINIT           0x20  /* Don't add the symbol
+                                           if it's not there.
                                    Don't init it if it is there but ! PVGV */
-#define GV_NOEXPAND               0x40  /* Don't expand SvOK() entries to PVGV */
-#define GV_NOTQUAL                0x80  /* A plain symbol name, not qualified with a
+#define GV_NOEXPAND               0x40  /* Don't expand SvOK()
+                                           entries to PVGV */
+#define GV_NOTQUAL                0x80  /* A plain symbol name, not
+                                           qualified with a
                                    package (so skip checks for :: and ')  */
-#define GV_AUTOLOAD              0x100  /* gv_fetchmethod_flags() should AUTOLOAD  */
-#define GV_CROAK                 0x200  /* gv_fetchmethod_flags() should croak  */
+#define GV_AUTOLOAD              0x100  /* gv_fetchmethod_flags()
+                                           should AUTOLOAD */
+#define GV_CROAK                 0x200  /* gv_fetchmethod_flags()
+                                           should croak */
 #define GV_ADDMG                 0x400  /* add if magical */
 #define GV_NO_SVGMAGIC           0x800  /* Skip get-magic on an SV argument;
                                    used only by gv_fetchsv(_nomg) */

handy.h

@@ -133,7 +133,8 @@ required, but is kept for backwards compatibility.
 #if (defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L) || (defined(__SUNPRO_C)) /* C99 or close enough. */
 #  define FUNCTION__          __func__
 #  define SAFE_FUNCTION__     __func__
-#elif (defined(__DECC_VER)) /* Tru64 or VMS, and strict C89 being used, but not modern enough cc (in Tru64, -c99 not known, only -std1). */
+#elif (defined(__DECC_VER)) /* Tru64 or VMS, and strict C89 being used, but not
+                     modern enough cc (in Tru64, -c99 not known, only -std1). */
 #  define FUNCTION__          ("")
 #  define SAFE_FUNCTION__     ("UNKNOWN")
 #else
@@ -1640,7 +1641,8 @@ END_EXTERN_C
 #   define isPUNCT_A(c)            generic_isCC_A_(c, CC_PUNCT_)
 #   define isSPACE_A(c)            generic_isCC_A_(c, CC_SPACE_)
 #   define isWORDCHAR_A(c)         generic_isCC_A_(c, CC_WORDCHAR_)
-#   define isXDIGIT_A(c)           generic_isCC_(c, CC_XDIGIT_)    /* No non-ASCII
+#   define isXDIGIT_A(c)           generic_isCC_(c, CC_XDIGIT_)    /* No
+                                                                      non-ASCII
                                                           xdigits */
 #   define isIDFIRST_A(c)          generic_isCC_A_(c, CC_IDFIRST_)
 #   define isALPHA_L1(c)           generic_isCC_(c, CC_ALPHA_)

hv.h

@@ -8,7 +8,8 @@
  *
  */
 
-/* These control hash traversal randomization and the environment variable PERL_PERTURB_KEYS.
+/* These control hash traversal randomization and
+   the environment variable PERL_PERTURB_KEYS.
  * Currently disabling this functionality will break a few tests, but should otherwise work fine.
  * See perlrun for more details. */
 
@@ -79,7 +80,8 @@ struct mro_alg {
     AV          *(*resolve)(pTHX_ HV* stash, U32 level);
     const char  *name;
     U16         length;
-    U16         kflags;                     /* For the hash API - set HVhek_UTF8 if name is UTF-8 */
+    U16         kflags;                     /* For the hash API - set HVhek_UTF8
+                                               if name is UTF-8 */
     U32         hash;                       /* or 0 */
 };
 
@@ -91,13 +93,19 @@ struct mro_meta {
        value stored in and owned by mro_linear_all.  */
     SV                      *mro_linear_current;
     HV                      *mro_nextmethod;        /* next::method caching */
-    U32                     cache_gen;              /* Bumping this invalidates our method cache */
-    U32                     pkg_gen;                /* Bumps when local methods/@ISA change */
-    const struct mro_alg    *mro_which;             /* which mro alg is in use? */
-    HV                      *isa;                   /* Everything this class @ISA */
+    U32                     cache_gen;              /* Bumping this invalidates
+                                                       our method cache */
+    U32                     pkg_gen;                /* Bumps when local
+                                                       methods/@ISA change */
+    const struct mro_alg    *mro_which;             /* which mro alg is
+                                                       in use? */
+    HV                      *isa;                   /* Everything this
+                                                       class @ISA */
     HV                      *super;                 /* SUPER method cache */
-    CV                      *destroy;               /* DESTROY method if destroy_gen non-zero */
-    U32                     destroy_gen;            /* Generation number of DESTROY cache */
+    CV                      *destroy;               /* DESTROY method if
+                                                       destroy_gen non-zero */
+    U32                     destroy_gen;            /* Generation number of
+                                                       DESTROY cache */
 };
 
 #define MRO_GET_PRIVATE_DATA(smeta, which)                  \
@@ -116,7 +124,8 @@ union _xhvnameu {
 
 struct xpvhv_aux {
     union _xhvnameu xhv_name_u;             /* name, if a symbol table */
-    AV              *xhv_backreferences;    /* back references for weak references */
+    AV              *xhv_backreferences;    /* back references for
+                                               weak references */
     HE              *xhv_eiter;             /* current entry of iterator */
     I32             xhv_riter;              /* current root of iterator */
 
@@ -129,15 +138,19 @@ struct xpvhv_aux {
     I32             xhv_name_count;
     struct mro_meta *xhv_mro_meta;
 #ifdef PERL_HASH_RANDOMIZE_KEYS
-    U32             xhv_rand;               /* random value for hash traversal */
-    U32             xhv_last_rand;          /* last random value for hash traversal,
+    U32             xhv_rand;               /* random value for hash
+                                               traversal */
+    U32             xhv_last_rand;          /* last random value for
+                                               hash traversal,
                                                used to detect each() after insert for warnings */
 #endif
     U32             xhv_aux_flags;          /* assorted extra flags */
 };
 
-#define HvAUXf_SCAN_STASH           0x1     /* stash is being scanned by gv_check */
-#define HvAUXf_NO_DEREF             0x2     /* @{}, %{} etc (and nomethod) not present */
+#define HvAUXf_SCAN_STASH           0x1     /* stash is being scanned
+                                               by gv_check */
+#define HvAUXf_NO_DEREF             0x2     /* @{}, %{} etc (and nomethod)
+                                               not present */
 
 /* hash structure: */
 /* This structure must match the beginning of struct xpvmg in sv.h. */
@@ -449,7 +462,8 @@ whether it is valid to call C<HvAUX()>.
 #define HEK_FLAGS(hek)  (*((unsigned char *)(HEK_KEY(hek))+HEK_LEN(hek)+1))
 
 #define HVhek_UTF8           0x01   /* Key is utf8 encoded. */
-#define HVhek_WASUTF8        0x02   /* Key is bytes here, but was supplied as utf8. */
+#define HVhek_WASUTF8        0x02   /* Key is bytes here, but was
+                                       supplied as utf8. */
 #define HVhek_NOTSHARED      0x04   /* This key isn't a shared hash key. */
 /* the following flags are options for functions, they are not stored in heks */
 #define HVhek_FREEKEY       0x100   /* Internal flag to say key is Newx()ed.  */
@@ -634,7 +648,8 @@ instead of a string/length pair, and no precomputed hash.
 
 /* Flag bits are HVhek_UTF8, HVhek_WASUTF8, then */
 #define HVrhek_undef        0x00    /* Value is undef. */
-#define HVrhek_delete       0x10    /* Value is placeholder - signifies delete. */
+#define HVrhek_delete       0x10    /* Value is placeholder -
+                                       signifies delete. */
 #define HVrhek_IV           0x20    /* Value is IV. */
 #define HVrhek_UV           0x30    /* Value is UV. */
 #define HVrhek_PV           0x40    /* Value is a (byte) string. */

hv_func.h

@@ -115,7 +115,8 @@
 #else
 
 #define PVT_PERL_HASH_FUNC  "SBOX32_WITH_" PVT__PERL_HASH_FUNC
-/* note the 4 in the below code comes from the fact the seed to initialize the SBOX is 128 bits */
+/* note the 4 in the below code comes from the fact
+   the seed to initialize the SBOX is 128 bits */
 #define PVT_PERL_HASH_SEED_BYTES    \
     ( PVT__PERL_HASH_SEED_BYTES + (int)( 4 * sizeof(U32)) )
 

hv_macro.h

@@ -66,7 +66,8 @@
   #define ROTL64(x,r)     _rotl64(x,r)
   #define ROTR64(x,r)     _rotr64(x,r)
 #else
-  /* gcc recognises this code and generates a rotate instruction for CPUs with one */
+  /* gcc recognises this code and generates a
+     rotate instruction for CPUs with one */
   #define ROTL32(x,r)     (((U32)(x) << (r)) | ((U32)(x) >> (32 - (r))))
   #define ROTR32(x,r)     (((U32)(x) << (32 - (r))) | ((U32)(x) >> (r)))
   #define ROTL64(x,r)     ( ( (U64)(x) << (r) ) | ( (U64)(x) >> ( 64 - (r) ) ) )