This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
style: Detabify indentation of the C code maintained by the core.
[perl5.git] / perl_inc_macro.h
index 5a2f20d..b9cd609 100644 (file)
@@ -24,7 +24,7 @@
 
 #ifdef APPLLIB_EXP
 #      define INCPUSH_APPLLIB_EXP  S_incpush_use_sep(aTHX_ STR_WITH_LEN(APPLLIB_EXP), \
-                     INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
+                      INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
 #endif
 
 #ifdef SITEARCH_EXP
@@ -32,7 +32,7 @@
      * DLL-based path intuition to work correctly */
 #  if !defined(WIN32)
 #      define INCPUSH_SITEARCH_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITEARCH_EXP), \
-                         INCPUSH_CAN_RELOCATE);
+                          INCPUSH_CAN_RELOCATE);
 #  endif
 #endif
 
 #  if defined(WIN32)
     /* this picks up sitearch as well */
 #        define INCPUSH_SITELIB_EXP s = PerlEnv_sitelib_path(PERL_FS_VERSION, &len); \
-               if (s) incpush_use_sep(s, len, INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
+                if (s) incpush_use_sep(s, len, INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
 #  else
 #        define INCPUSH_SITELIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_EXP), \
-               INCPUSH_CAN_RELOCATE);
+                INCPUSH_CAN_RELOCATE);
 #  endif
 #endif
 
@@ -59,7 +59,7 @@
 #  if defined(WIN32)
     /* this picks up vendorarch as well */
 #              define INCPUSH_PERL_VENDORLIB_EXP s = PerlEnv_vendorlib_path(PERL_FS_VERSION, &len); \
-                       if (s) incpush_use_sep(s, len, INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
+                        if (s) incpush_use_sep(s, len, INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
 #  else
 #              define INCPUSH_PERL_VENDORLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_EXP), INCPUSH_CAN_RELOCATE);
 #  endif
@@ -85,7 +85,7 @@
 
 #ifdef PERL_OTHERLIBDIRS
 #      define INCPUSH_PERL_OTHERLIBDIRS S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), \
-                     INCPUSH_ADD_VERSIONED_SUB_DIRS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
+                      INCPUSH_ADD_VERSIONED_SUB_DIRS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
 #endif
 
 
 # define _INCPUSH_PERL5LIB_ADD _INCPUSH_PERL5LIB_IF incpush_use_sep(perl5lib, 0, INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR);
 #else
 /* VMS */
-       /* Treat PERL5?LIB as a possible search list logical name -- the
-        * "natural" VMS idiom for a Unix path string.  We allow each
-        * element to be a set of |-separated directories for compatibility.
-        */
+        /* Treat PERL5?LIB as a possible search list logical name -- the
+         * "natural" VMS idiom for a Unix path string.  We allow each
+         * element to be a set of |-separated directories for compatibility.
+         */
 # define _INCPUSH_PERL5LIB_ADD char buf[256]; \
-       int idx = 0; \
-       if (vmstrnenv("PERL5LIB",buf,0,NULL,0)) \
-           do { \
-               incpush_use_sep(buf, 0, \
-                               INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR); \
-           } while (vmstrnenv("PERL5LIB",buf,++idx,NULL,0));
+        int idx = 0; \
+        if (vmstrnenv("PERL5LIB",buf,0,NULL,0)) \
+            do { \
+                incpush_use_sep(buf, 0, \
+                                INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR); \
+            } while (vmstrnenv("PERL5LIB",buf,++idx,NULL,0));
 #endif
 
 /* this macro is special and use submacros from above */
 */
 #ifdef APPLLIB_EXP
 #      define INCPUSH_APPLLIB_OLD_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(APPLLIB_EXP), \
-           INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
+            INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR|INCPUSH_CAN_RELOCATE);
 #endif
 
 #if defined(SITELIB_STEM) && defined(PERL_INC_VERSION_LIST)
     /* Search for version-specific dirs below here */
 #      define INCPUSH_SITELIB_STEM   S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM), \
-                     INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
+                      INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
 #endif
 
 
 #if defined(PERL_VENDORLIB_STEM) && defined(PERL_INC_VERSION_LIST)
     /* Search for version-specific dirs below here */
 #      define INCPUSH_PERL_VENDORLIB_STEM    S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_STEM), \
-                     INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
+                      INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
 #endif
 
 #ifdef PERL_OTHERLIBDIRS
 #      define INCPUSH_PERL_OTHERLIBDIRS_ARCHONLY  S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), \
-                     INCPUSH_ADD_OLD_VERS|INCPUSH_ADD_ARCHONLY_SUB_DIRS|INCPUSH_CAN_RELOCATE);
+                      INCPUSH_ADD_OLD_VERS|INCPUSH_ADD_ARCHONLY_SUB_DIRS|INCPUSH_CAN_RELOCATE);
 #endif