File Manager

003 File Manager

Current Path: /usr/local/lib/perl5/5.32/mach/CORE

usr / local / lib / perl5 / 5.32 / mach / CORE /

📁 ..
📄 EXTERN.h(1.59 KB)
📄 INTERN.h(1.28 KB)
📄 XSUB.h(24 KB)
📄 av.h(3.24 KB)
📄 bitcount.h(850 B)
📄 charclass_invlists.h(4.15 MB)
📄 config.h(159.81 KB)
📄 cop.h(41.01 KB)
📄 cv.h(12.04 KB)
📄 dosish.h(5.3 KB)
📄 ebcdic_tables.h(48.6 KB)
📄 embed.h(98.87 KB)
📄 embedvar.h(21.32 KB)
📄 fakesdio.h(3.13 KB)
📄 feature.h(10.79 KB)
📄 form.h(1.43 KB)
📄 git_version.h(357 B)
📄 gv.h(10.46 KB)
📄 handy.h(126.72 KB)
📄 hv.h(24.99 KB)
📄 hv_func.h(11.26 KB)
📄 hv_macro.h(3.04 KB)
📄 inline.h(72.74 KB)
📄 intrpvar.h(31.47 KB)
📄 invlist_inline.h(7.25 KB)
📄 iperlsys.h(48.23 KB)
📄 keywords.h(6.45 KB)
📄 l1_char_class_tab.h(119.64 KB)
📄 libperl.so(3.56 MB)
📄 libperl.so.5.32(3.56 MB)
📄 libperl.so.5.32.1(3.56 MB)
📄 malloc_ctl.h(1.49 KB)
📄 metaconfig.h(692 B)
📄 mg.h(2.94 KB)
📄 mg_data.h(4.9 KB)
📄 mg_raw.h(4.27 KB)
📄 mg_vtable.h(9.34 KB)
📄 mydtrace.h(1.65 KB)
📄 nostdio.h(3.31 KB)
📄 op.h(37.35 KB)
📄 op_reg_common.h(5.77 KB)
📄 opcode.h(91.73 KB)
📄 opnames.h(8.72 KB)
📄 overload.h(3.2 KB)
📄 pad.h(16.83 KB)
📄 parser.h(6.83 KB)
📄 patchlevel.h(5.2 KB)
📄 perl.h(276.92 KB)
📄 perl_inc_macro.h(6.08 KB)
📄 perl_langinfo.h(2.85 KB)
📄 perlapi.h(7.5 KB)
📄 perldtrace.h(3.43 KB)
📄 perlio.h(9.33 KB)
📄 perliol.h(13.44 KB)
📄 perlsdio.h(527 B)
📄 perlvars.h(12.63 KB)
📄 perly.h(4.58 KB)
📄 pp.h(28.3 KB)
📄 pp_proto.h(11.78 KB)
📄 proto.h(270.88 KB)
📄 reentr.h(84.61 KB)
📄 regcharclass.h(163.82 KB)
📄 regcomp.h(51.81 KB)
📄 regexp.h(35.75 KB)
📄 regnodes.h(39.4 KB)
📄 sbox32_hash.h(55.95 KB)
📄 scope.h(11.61 KB)
📄 stadtx_hash.h(9 KB)
📄 sv.h(86.76 KB)
📄 thread.h(11.81 KB)
📄 time64.h(1.14 KB)
📄 time64_config.h(2 KB)
📄 uconfig.h(160.08 KB)
📄 uni_keywords.h(541.71 KB)
📄 unicode_constants.h(7.84 KB)
📄 unixish.h(5.15 KB)
📄 utf8.h(49.25 KB)
📄 utfebcdic.h(64.1 KB)
📄 util.h(10.33 KB)
📄 uudmap.h(904 B)
📄 vutil.h(7.81 KB)
📄 warnings.h(11.2 KB)
📄 zaphod32_hash.h(9.43 KB)

Editing: perl_inc_macro.h

/* just define a list of macros to push elements in INC
*  so we can easily use them and change order on demand
*
* list of available INCPUSH macros
* - INCPUSH_APPLLIB_EXP
* - INCPUSH_SITEARCH_EXP
* - INCPUSH_SITELIB_EXP
* - INCPUSH_PERL_VENDORARCH_EXP
* - INCPUSH_PERL_VENDORLIB_EXP
* - INCPUSH_ARCHLIB_EXP
* - INCPUSH_PRIVLIB_EXP
* - INCPUSH_PERL_OTHERLIBDIRS
* - INCPUSH_PERL5LIB
* - INCPUSH_APPLLIB_OLD_EXP
* - INCPUSH_SITELIB_STEM
* - INCPUSH_PERL_VENDORLIB_STEM
* - INCPUSH_PERL_OTHERLIBDIRS_ARCHONLY
*/

#ifndef DEFINE_INC_MACROS

/* protect against multiple inclusions */
#define DEFINE_INC_MACROS 1

#ifdef APPLLIB_EXP
#	define INCPUSH_APPLLIB_EXP  S_incpush_use_sep(aTHX_ STR_WITH_LEN(APPLLIB_EXP), \
		      INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
#endif

#ifdef SITEARCH_EXP
    /* sitearch is always relative to sitelib on Windows for
     * 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);
#  endif
#endif

#ifdef SITELIB_EXP
#  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);
#  else
#	  define INCPUSH_SITELIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_EXP), \
		INCPUSH_CAN_RELOCATE);
#  endif
#endif

#ifdef PERL_VENDORARCH_EXP
    /* vendorarch is always relative to vendorlib on Windows for
     * DLL-based path intuition to work correctly */
#  if !defined(WIN32)
#		define INCPUSH_PERL_VENDORARCH_EXP  S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORARCH_EXP), INCPUSH_CAN_RELOCATE);
#  endif
#endif

#ifdef PERL_VENDORLIB_EXP
#  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);
#  else
#		define INCPUSH_PERL_VENDORLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_EXP), INCPUSH_CAN_RELOCATE);
#  endif
#endif

#ifdef ARCHLIB_EXP
#	define INCPUSH_ARCHLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(ARCHLIB_EXP), INCPUSH_CAN_RELOCATE);
#endif

/* used by INCPUSH_PRIVLIB_EXP */
#ifndef PRIVLIB_EXP
#  define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
#endif

#if defined(WIN32)
#	define INCPUSH_PRIVLIB_EXP s = PerlEnv_lib_path(PERL_FS_VERSION, &len); \
    if (s) incpush_use_sep(s, len, INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
#elif defined(NETWARE)
#	define INCPUSH_PRIVLIB_EXP S_incpush_use_sep(aTHX_ PRIVLIB_EXP, 0, INCPUSH_CAN_RELOCATE);
#else
#	define INCPUSH_PRIVLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(PRIVLIB_EXP), INCPUSH_CAN_RELOCATE);
#endif

#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);
#endif

/* submacros for INCPUSH_PERL5LIB */

#if defined(PERL_USE_SAFE_PUTENV) && ! defined(HAS_UNSETENV)
# 	define _INCPUSH_PERL5LIB_IF	if (perl5lib && *perl5lib != '\0')
#else
# 	define _INCPUSH_PERL5LIB_IF	if (perl5lib)
#endif

#ifndef VMS
/*
 * It isn't possible to delete an environment variable with
 * PERL_USE_SAFE_PUTENV set unless unsetenv() is also available, so in that
 * case we treat PERL5LIB as undefined if it has a zero-length value.
 */
# 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.
	 */
# 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));
#endif

/* this macro is special and use submacros from above */
#define INCPUSH_PERL5LIB if (!TAINTING_get) { _INCPUSH_PERL5LIB_ADD }

/* Use the ~-expanded versions of APPLLIB (undocumented),
    SITELIB and VENDORLIB for older versions
*/
#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);
#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);
#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);
#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);
#endif

/* define all undefined macros... */
#ifndef INCPUSH_APPLLIB_EXP
#define INCPUSH_APPLLIB_EXP
#endif
#ifndef INCPUSH_SITEARCH_EXP
#define INCPUSH_SITEARCH_EXP
#endif
#ifndef INCPUSH_SITELIB_EXP
#define INCPUSH_SITELIB_EXP
#endif
#ifndef INCPUSH_PERL_VENDORARCH_EXP
#define INCPUSH_PERL_VENDORARCH_EXP
#endif
#ifndef INCPUSH_PERL_VENDORLIB_EXP
#define INCPUSH_PERL_VENDORLIB_EXP
#endif
#ifndef INCPUSH_ARCHLIB_EXP
#define INCPUSH_ARCHLIB_EXP
#endif
#ifndef INCPUSH_PRIVLIB_EXP
#define INCPUSH_PRIVLIB_EXP
#endif
#ifndef INCPUSH_PERL_OTHERLIBDIRS
#define INCPUSH_PERL_OTHERLIBDIRS
#endif
#ifndef INCPUSH_PERL5LIB
#define INCPUSH_PERL5LIB
#endif
#ifndef INCPUSH_APPLLIB_OLD_EXP
#define INCPUSH_APPLLIB_OLD_EXP
#endif
#ifndef INCPUSH_SITELIB_STEM
#define INCPUSH_SITELIB_STEM
#endif
#ifndef INCPUSH_PERL_VENDORLIB_STEM
#define INCPUSH_PERL_VENDORLIB_STEM
#endif
#ifndef INCPUSH_PERL_OTHERLIBDIRS_ARCHONLY
#define INCPUSH_PERL_OTHERLIBDIRS_ARCHONLY
#endif

#endif /* DEFINE_INC_MACROS */

003 File Manager

Editing: perl_inc_macro.h

Upload File

Create Folder