[perl5.git] / util.h

/*    util.h
 *
 *    Copyright (C) 1991, 1992, 1993, 1999, 2001, 2002, 2003, 2004, 2005,
 *    2007, by Larry Wall and others
 *
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 */

#ifndef PERL_UTIL_H_
#define PERL_UTIL_H_


#ifdef VMS
#  define PERL_FILE_IS_ABSOLUTE(f) \
        (*(f) == '/'							\
         || (strchr(f,':')						\
             || ((*(f) == '[' || *(f) == '<')				\
                 && (isWORDCHAR((f)[1]) || memCHRs("$-_]>",(f)[1])))))

#elif defined(WIN32) || defined(__CYGWIN__)
#  define PERL_FILE_IS_ABSOLUTE(f) \
        (*(f) == '/' || *(f) == '\\'		/* UNC/rooted path */	\
         || ((f)[0] && (f)[1] == ':'))		/* drive name */
#elif defined(DOSISH)
#  define PERL_FILE_IS_ABSOLUTE(f) \
        (*(f) == '/'							\
         || ((f)[0] && (f)[1] == ':'))		/* drive name */
#else	/* NOT DOSISH */
#  define PERL_FILE_IS_ABSOLUTE(f)	(*(f) == '/')
#endif

/*
=for apidoc_section $string

=for apidoc ibcmp

This is a synonym for S<C<(! foldEQ())>>

=for apidoc ibcmp_locale

This is a synonym for S<C<(! foldEQ_locale())>>

=for apidoc ibcmp_utf8

This is a synonym for S<C<(! foldEQ_utf8())>>

=cut
*/
#define ibcmp(s1, s2, len)         cBOOL(! foldEQ(s1, s2, len))
#define ibcmp_locale(s1, s2, len)  cBOOL(! foldEQ_locale(s1, s2, len))
#define ibcmp_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2) \
                    cBOOL(! foldEQ_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2))

/* outside the core, perl.h undefs HAS_QUAD if IV isn't 64-bit
   We can't swap this to HAS_QUAD, because the logic here affects the type of
   perl_drand48_t below, and that is visible outside of the core.  */
#if defined(U64TYPE)
/* use a faster implementation when quads are available */
#    define PERL_DRAND48_QUAD
#endif

#ifdef PERL_DRAND48_QUAD

/* U64 is only defined under PERL_CORE, but this needs to be visible
 * elsewhere so the definition of PerlInterpreter is complete.
 */
typedef U64TYPE perl_drand48_t;

#else

struct PERL_DRAND48_T {
    U16 seed[3];
};

typedef struct PERL_DRAND48_T perl_drand48_t;

#endif

#define PL_RANDOM_STATE_TYPE perl_drand48_t

#define Perl_drand48_init(seed) (Perl_drand48_init_r(&PL_random_state, (seed)))
#define Perl_drand48() (Perl_drand48_r(&PL_random_state))

#ifdef PERL_CORE
/* uses a different source of randomness to avoid interfering with the results
 * of rand() */
#define Perl_internal_drand48() (Perl_drand48_r(&PL_internal_random_state))
#endif

#ifdef USE_C_BACKTRACE

typedef struct {
    /* The number of frames returned. */
    UV frame_count;
    /* The total size of the Perl_c_backtrace, including this header,
     * the frames, and the name strings. */
    UV total_bytes;
} Perl_c_backtrace_header;

typedef struct {
    void*  addr;  /* the program counter at this frame */

    /* We could use Dl_info (as used by dladdr()) for many of these but
     * that would be naughty towards non-dlfcn systems (hi there, Win32). */

    void*  symbol_addr; /* symbol address (hint: try symbol_addr - addr) */
    void*  object_base_addr;   /* base address of the shared object */

    /* The offsets are from the beginning of the whole backtrace,
     * which makes the backtrace relocatable. */
    STRLEN object_name_offset; /* pathname of the shared object */
    STRLEN object_name_size;   /* length of the pathname */
    STRLEN symbol_name_offset; /* symbol name */
    STRLEN symbol_name_size;   /* length of the symbol name */
    STRLEN source_name_offset; /* source code file name */
    STRLEN source_name_size;   /* length of the source code file name */
    STRLEN source_line_number; /* source code line number */

    /* OS X notes: atos(1) (more recently, "xcrun atos"), but the C
     * API atos() uses is unknown (private "Symbolicator" framework,
     * might require Objective-C even if the API would be known).
     * Currently we open read pipe to "xcrun atos" and parse the
     * output - quite disgusting.  And that won't work if the
     * Developer Tools isn't installed. */

    /* FreeBSD notes: execinfo.h exists, but probably would need also
     * the library -lexecinfo.  BFD exists if the pkg devel/binutils
     * has been installed, but there seems to be a known problem that
     * the "bfd.h" getting installed refers to "ansidecl.h", which
     * doesn't get installed. */

    /* Win32 notes: as moral equivalents of backtrace() + dladdr(),
     * one could possibly first use GetCurrentProcess() +
     * SymInitialize(), and then CaptureStackBackTrace() +
     * SymFromAddr(). */

    /* Note that using the compiler optimizer easily leads into much
     * of this information, like the symbol names (think inlining),
     * and source code locations getting lost or confused.  In many
     * cases keeping the debug information (-g) is necessary.
     *
     * Note that for example with gcc you can do both -O and -g.
     *
     * Note, however, that on some platforms (e.g. OSX + clang (cc))
     * backtrace() + dladdr() works fine without -g. */

    /* For example: the mere presence of <bfd.h> is no guarantee: e.g.
     * OS X has that, but BFD does not seem to work on the OSX executables.
     *
     * Another niceness would be to able to see something about
     * the function arguments, however gdb/lldb manage to do that. */
} Perl_c_backtrace_frame;

typedef struct {
    Perl_c_backtrace_header header;
    Perl_c_backtrace_frame  frame_info[1];
    /* After the header come:
     * (1) header.frame_count frames
     * (2) frame_count times the \0-terminated strings (object_name
     * and so forth).  The frames contain the pointers to the starts
     * of these strings, and the lengths of these strings. */
} Perl_c_backtrace;

#define Perl_free_c_backtrace(bt) Safefree(bt)

#endif /* USE_C_BACKTRACE */

/* Use a packed 32 bit constant "key" to start the handshake. The key defines
   ABI compatibility, and how to process the vararg list.

   Note, some bits may be taken from INTRPSIZE (but then a simple x86 AX register
   can't be used to read it) and 4 bits from API version len can also be taken,
   since v00.00.00 is 9 bytes long. XS version length should not have any bits
   taken since XS_VERSION lengths can get quite long since they are user
   selectable. These spare bits allow for additional features for the varargs
   stuff or ABI compat test flags in the future.
*/
#define HSm_APIVERLEN 0x0000001F /* perl version string won't be more than 31 chars */
#define HS_APIVERLEN_MAX HSm_APIVERLEN
#define HSm_XSVERLEN 0x0000FF00 /* if 0, not present, dont check, die if over 255*/
#define HS_XSVERLEN_MAX 0xFF
/* uses var file to set default filename for newXS_deffile to use for CvFILE */
#define HSf_SETXSUBFN 0x00000020
#define HSf_POPMARK 0x00000040 /* popmark mode or you must supply ax and items */
#define HSf_IMP_CXT 0x00000080 /* ABI, threaded/MULTIPLICITY, pTHX_ present */
#define HSm_INTRPSIZE 0xFFFF0000 /* ABI, interp struct size */
/* A mask of bits in the key which must always match between a XS mod and interp.
   Also if all ABI bits in a key are true, skip all ABI checks, it is very
   the unlikely interp size will all 1 bits */
/* Maybe HSm_APIVERLEN one day if Perl_xs_apiversion_bootcheck is changed to a memcmp */
#define HSm_KEY_MATCH (HSm_INTRPSIZE|HSf_IMP_CXT)
#define HSf_NOCHK HSm_KEY_MATCH  /* if all ABI bits are 1 in the key, dont chk */


#define HS_GETINTERPSIZE(key) ((key) >> 16)
/* if in the future "" and NULL must be separated, XSVERLEN would be 0
means arg not present, 1 is empty string/null byte */
/* (((key) & 0x0000FF00) >> 8) is less efficient on Visual C */
#define HS_GETXSVERLEN(key) ((U8) ((key) >> 8))
#define HS_GETAPIVERLEN(key) ((key) & HSm_APIVERLEN)

/* internal to util.h macro to create a packed handshake key, all args must be constants */
/* U32 return = (U16 interpsize, bool cxt, bool setxsubfn, bool popmark,
   U5 (FIVE!) apiverlen, U8 xsverlen) */
#define HS_KEYp(interpsize, cxt, setxsubfn, popmark, apiverlen, xsverlen) \
    (((interpsize)  << 16) \
    | ((xsverlen) > HS_XSVERLEN_MAX \
        ? (Perl_croak_nocontext("panic: handshake overflow"), HS_XSVERLEN_MAX) \
        : (xsverlen) << 8) \
    | (cBOOL(setxsubfn) ? HSf_SETXSUBFN : 0) \
    | (cBOOL(cxt) ? HSf_IMP_CXT : 0) \
    | (cBOOL(popmark) ? HSf_POPMARK : 0) \
    | ((apiverlen) > HS_APIVERLEN_MAX \
        ? (Perl_croak_nocontext("panic: handshake overflow"), HS_APIVERLEN_MAX) \
        : (apiverlen)))
/* overflows above will optimize away unless they will execute */

/* public macro for core usage to create a packed handshake key but this is
   not public API. This more friendly version already collected all ABI info */
/* U32 return = (bool setxsubfn, bool popmark, "litteral_string_api_ver",
   "litteral_string_xs_ver") */
#ifdef MULTIPLICITY
#  define HS_KEY(setxsubfn, popmark, apiver, xsver) \
    HS_KEYp(sizeof(PerlInterpreter), TRUE, setxsubfn, popmark, \
    sizeof("" apiver "")-1, sizeof("" xsver "")-1)
#  define HS_CXT aTHX
#else
#  define HS_KEY(setxsubfn, popmark, apiver, xsver) \
    HS_KEYp(sizeof(struct PerlHandShakeInterpreter), FALSE, setxsubfn, popmark, \
    sizeof("" apiver "")-1, sizeof("" xsver "")-1)
#  define HS_CXT cv
#endif

/*
=for apidoc instr
Same as L<strstr(3)>, which finds and returns a pointer to the first occurrence
of the NUL-terminated substring C<little> in the NUL-terminated string C<big>,
returning NULL if not found.  The terminating NUL bytes are not compared.

=cut
*/


#define instr(haystack, needle) strstr((char *) haystack, (char *) needle)

#ifdef HAS_MEMMEM
#   define ninstr(big, bigend, little, lend)                                \
            (__ASSERT_(bigend >= big)                                       \
             __ASSERT_(lend >= little)                                      \
             (char *) memmem((big), (bigend) - (big),                       \
                             (little), (lend) - (little)))
#else
#   define ninstr(a,b,c,d) Perl_ninstr(a,b,c,d)
#endif

#ifdef __Lynx__
/* Missing proto on LynxOS */
int mkstemp(char*);
#endif

#ifdef PERL_CORE
#   if defined(VMS)
/* only useful for calls to our mkostemp() emulation */
#       define O_VMS_DELETEONCLOSE 0x40000000
#       ifdef HAS_MKOSTEMP
#           error 134221 will need a new solution for VMS
#       endif
#   else
#       define O_VMS_DELETEONCLOSE 0
#   endif
#endif
#if defined(HAS_MKOSTEMP) && defined(PERL_CORE)
#   define Perl_my_mkostemp(templte, flags) mkostemp(templte, flags)
#endif
#if defined(HAS_MKSTEMP) && defined(PERL_CORE)
#   define Perl_my_mkstemp(templte) mkstemp(templte)
#endif

#endif /* PERL_UTIL_H_ */

/*
 * ex: set ts=8 sts=4 sw=4 et:
 */
Commit	Line	Data
a0d0e21e	1	/* util.h
a687059c	2	*
663f364b NC	3	* Copyright (C) 1991, 1992, 1993, 1999, 2001, 2002, 2003, 2004, 2005,
663f364b NC	4	* 2007, by Larry Wall and others
a687059c	5	*
d48672a2 LW	6	* You may distribute under the terms of either the GNU General Public
d48672a2 LW	7	* License or the Artistic License, as specified in the README file.
8d063cd8	8	*
8d063cd8	9	*/
57843af0	10
28922db9 DM	11	#ifndef PERL_UTIL_H_
	12	#define PERL_UTIL_H_
	13
	14
57843af0 GS	15	#ifdef VMS
57843af0 GS	16	# define PERL_FILE_IS_ABSOLUTE(f) \
1604cfb0 MS	17	(*(f) == '/' \
	18	\|\| (strchr(f,':') \
	19	\|\| (((f) == '[' \|\| (f) == '<') \
	20	&& (isWORDCHAR((f)[1]) \|\| memCHRs("$-_]>",(f)[1])))))
57843af0	21
d1f9b933 AC	22	#elif defined(WIN32) \|\| defined(__CYGWIN__)
d1f9b933 AC	23	# define PERL_FILE_IS_ABSOLUTE(f) \
1604cfb0 MS	24	((f) == '/' \|\| (f) == '\\' /* UNC/rooted path */ \
1604cfb0 MS	25	\|\| ((f)[0] && (f)[1] == ':')) /* drive name */
822c8b4d	26	#elif defined(DOSISH)
d1f9b933	27	# define PERL_FILE_IS_ABSOLUTE(f) \
1604cfb0 MS	28	(*(f) == '/' \
1604cfb0 MS	29	\|\| ((f)[0] && (f)[1] == ':')) /* drive name */
822c8b4d	30	#else /* NOT DOSISH */
d1f9b933 AC	31	# define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/')
d1f9b933 AC	32	#endif
e9a8c099 MHM	33
e9a8c099 MHM	34	/*
3f620621	35	=for apidoc_section $string
dcccc8ff	36
e6226b18 KW	37	=for apidoc ibcmp
e6226b18 KW	38
61b16eb9	39	This is a synonym for S<C<(! foldEQ())>>
e6226b18 KW	40
	41	=for apidoc ibcmp_locale
	42
61b16eb9	43	This is a synonym for S<C<(! foldEQ_locale())>>
e6226b18	44
1c4bbd05 KW	45	=for apidoc ibcmp_utf8
	46
	47	This is a synonym for S<C<(! foldEQ_utf8())>>
	48
e6226b18 KW	49	=cut
	50	*/
	51	#define ibcmp(s1, s2, len) cBOOL(! foldEQ(s1, s2, len))
	52	#define ibcmp_locale(s1, s2, len) cBOOL(! foldEQ_locale(s1, s2, len))
1c4bbd05	53	#define ibcmp_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2) \
1604cfb0	54	cBOOL(! foldEQ_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2))
e6226b18	55
cb4d37a7 NC	56	/* outside the core, perl.h undefs HAS_QUAD if IV isn't 64-bit
	57	We can't swap this to HAS_QUAD, because the logic here affects the type of
	58	perl_drand48_t below, and that is visible outside of the core. */
7adf2470 SH	59	#if defined(U64TYPE)
7adf2470 SH	60	/* use a faster implementation when quads are available */
63835f79	61	# define PERL_DRAND48_QUAD
3be8f094 TC	62	#endif
	63
	64	#ifdef PERL_DRAND48_QUAD
	65
	66	/* U64 is only defined under PERL_CORE, but this needs to be visible
	67	* elsewhere so the definition of PerlInterpreter is complete.
	68	*/
	69	typedef U64TYPE perl_drand48_t;
	70
	71	#else
	72
	73	struct PERL_DRAND48_T {
	74	U16 seed[3];
	75	};
	76
	77	typedef struct PERL_DRAND48_T perl_drand48_t;
	78
	79	#endif
	80
	81	#define PL_RANDOM_STATE_TYPE perl_drand48_t
	82
	83	#define Perl_drand48_init(seed) (Perl_drand48_init_r(&PL_random_state, (seed)))
	84	#define Perl_drand48() (Perl_drand48_r(&PL_random_state))
e6226b18	85
f26b33bd TC	86	#ifdef PERL_CORE
	87	/* uses a different source of randomness to avoid interfering with the results
	88	* of rand() */
	89	#define Perl_internal_drand48() (Perl_drand48_r(&PL_internal_random_state))
	90	#endif
	91
470dd224 JH	92	#ifdef USE_C_BACKTRACE
	93
	94	typedef struct {
	95	/* The number of frames returned. */
	96	UV frame_count;
	97	/* The total size of the Perl_c_backtrace, including this header,
	98	* the frames, and the name strings. */
	99	UV total_bytes;
	100	} Perl_c_backtrace_header;
	101
	102	typedef struct {
	103	void* addr; /* the program counter at this frame */
	104
	105	/* We could use Dl_info (as used by dladdr()) for many of these but
	106	* that would be naughty towards non-dlfcn systems (hi there, Win32). */
	107
	108	void* symbol_addr; /* symbol address (hint: try symbol_addr - addr) */
	109	void* object_base_addr; /* base address of the shared object */
	110
	111	/* The offsets are from the beginning of the whole backtrace,
	112	* which makes the backtrace relocatable. */
	113	STRLEN object_name_offset; /* pathname of the shared object */
	114	STRLEN object_name_size; /* length of the pathname */
	115	STRLEN symbol_name_offset; /* symbol name */
	116	STRLEN symbol_name_size; /* length of the symbol name */
	117	STRLEN source_name_offset; /* source code file name */
	118	STRLEN source_name_size; /* length of the source code file name */
	119	STRLEN source_line_number; /* source code line number */
	120
	121	/* OS X notes: atos(1) (more recently, "xcrun atos"), but the C
	122	* API atos() uses is unknown (private "Symbolicator" framework,
	123	* might require Objective-C even if the API would be known).
	124	* Currently we open read pipe to "xcrun atos" and parse the
	125	* output - quite disgusting. And that won't work if the
	126	* Developer Tools isn't installed. */
	127
0762e42f JH	128	/* FreeBSD notes: execinfo.h exists, but probably would need also
	129	* the library -lexecinfo. BFD exists if the pkg devel/binutils
	130	* has been installed, but there seems to be a known problem that
	131	* the "bfd.h" getting installed refers to "ansidecl.h", which
	132	* doesn't get installed. */
	133
470dd224 JH	134	/* Win32 notes: as moral equivalents of backtrace() + dladdr(),
	135	* one could possibly first use GetCurrentProcess() +
	136	* SymInitialize(), and then CaptureStackBackTrace() +
	137	* SymFromAddr(). */
	138
	139	/* Note that using the compiler optimizer easily leads into much
	140	* of this information, like the symbol names (think inlining),
	141	* and source code locations getting lost or confused. In many
	142	* cases keeping the debug information (-g) is necessary.
	143	*
	144	* Note that for example with gcc you can do both -O and -g.
	145	*
	146	* Note, however, that on some platforms (e.g. OSX + clang (cc))
	147	* backtrace() + dladdr() works fine without -g. */
	148
	149	/* For example: the mere presence of <bfd.h> is no guarantee: e.g.
	150	* OS X has that, but BFD does not seem to work on the OSX executables.
	151	*
	152	* Another niceness would be to able to see something about
	153	* the function arguments, however gdb/lldb manage to do that. */
	154	} Perl_c_backtrace_frame;
	155
	156	typedef struct {
	157	Perl_c_backtrace_header header;
	158	Perl_c_backtrace_frame frame_info[1];
	159	/* After the header come:
	160	* (1) header.frame_count frames
	161	* (2) frame_count times the \0-terminated strings (object_name
	162	* and so forth). The frames contain the pointers to the starts
	163	* of these strings, and the lengths of these strings. */
	164	} Perl_c_backtrace;
	165
	166	#define Perl_free_c_backtrace(bt) Safefree(bt)
	167
	168	#endif /* USE_C_BACKTRACE */
	169
db6e00bd DD	170	/* Use a packed 32 bit constant "key" to start the handshake. The key defines
	171	ABI compatibility, and how to process the vararg list.
	172
	173	Note, some bits may be taken from INTRPSIZE (but then a simple x86 AX register
	174	can't be used to read it) and 4 bits from API version len can also be taken,
	175	since v00.00.00 is 9 bytes long. XS version length should not have any bits
	176	taken since XS_VERSION lengths can get quite long since they are user
	177	selectable. These spare bits allow for additional features for the varargs
	178	stuff or ABI compat test flags in the future.
	179	*/
9a189793	180	#define HSm_APIVERLEN 0x0000001F /* perl version string won't be more than 31 chars */
db6e00bd DD	181	#define HS_APIVERLEN_MAX HSm_APIVERLEN
	182	#define HSm_XSVERLEN 0x0000FF00 /* if 0, not present, dont check, die if over 255*/
	183	#define HS_XSVERLEN_MAX 0xFF
9a189793 DD	184	/* uses var file to set default filename for newXS_deffile to use for CvFILE */
9a189793 DD	185	#define HSf_SETXSUBFN 0x00000020
db6e00bd	186	#define HSf_POPMARK 0x00000040 /* popmark mode or you must supply ax and items */
6e512bc2	187	#define HSf_IMP_CXT 0x00000080 /* ABI, threaded/MULTIPLICITY, pTHX_ present */
db6e00bd	188	#define HSm_INTRPSIZE 0xFFFF0000 /* ABI, interp struct size */
9a189793 DD	189	/* A mask of bits in the key which must always match between a XS mod and interp.
	190	Also if all ABI bits in a key are true, skip all ABI checks, it is very
	191	the unlikely interp size will all 1 bits */
	192	/* Maybe HSm_APIVERLEN one day if Perl_xs_apiversion_bootcheck is changed to a memcmp */
db6e00bd	193	#define HSm_KEY_MATCH (HSm_INTRPSIZE\|HSf_IMP_CXT)
9a189793	194	#define HSf_NOCHK HSm_KEY_MATCH /* if all ABI bits are 1 in the key, dont chk */
db6e00bd DD	195
	196
	197	#define HS_GETINTERPSIZE(key) ((key) >> 16)
	198	/* if in the future "" and NULL must be separated, XSVERLEN would be 0
	199	means arg not present, 1 is empty string/null byte */
	200	/* (((key) & 0x0000FF00) >> 8) is less efficient on Visual C */
b74cfaff	201	#define HS_GETXSVERLEN(key) ((U8) ((key) >> 8))
db6e00bd DD	202	#define HS_GETAPIVERLEN(key) ((key) & HSm_APIVERLEN)
	203
	204	/* internal to util.h macro to create a packed handshake key, all args must be constants */
9a189793 DD	205	/* U32 return = (U16 interpsize, bool cxt, bool setxsubfn, bool popmark,
	206	U5 (FIVE!) apiverlen, U8 xsverlen) */
	207	#define HS_KEYp(interpsize, cxt, setxsubfn, popmark, apiverlen, xsverlen) \
db6e00bd DD	208	(((interpsize) << 16) \
	209	\| ((xsverlen) > HS_XSVERLEN_MAX \
	210	? (Perl_croak_nocontext("panic: handshake overflow"), HS_XSVERLEN_MAX) \
	211	: (xsverlen) << 8) \
9a189793	212	\| (cBOOL(setxsubfn) ? HSf_SETXSUBFN : 0) \
db6e00bd DD	213	\| (cBOOL(cxt) ? HSf_IMP_CXT : 0) \
	214	\| (cBOOL(popmark) ? HSf_POPMARK : 0) \
	215	\| ((apiverlen) > HS_APIVERLEN_MAX \
	216	? (Perl_croak_nocontext("panic: handshake overflow"), HS_APIVERLEN_MAX) \
	217	: (apiverlen)))
	218	/* overflows above will optimize away unless they will execute */
	219
	220	/* public macro for core usage to create a packed handshake key but this is
	221	not public API. This more friendly version already collected all ABI info */
9a189793 DD	222	/* U32 return = (bool setxsubfn, bool popmark, "litteral_string_api_ver",
9a189793 DD	223	"litteral_string_xs_ver") */
6e512bc2	224	#ifdef MULTIPLICITY
9a189793 DD	225	# define HS_KEY(setxsubfn, popmark, apiver, xsver) \
9a189793 DD	226	HS_KEYp(sizeof(PerlInterpreter), TRUE, setxsubfn, popmark, \
db6e00bd DD	227	sizeof("" apiver "")-1, sizeof("" xsver "")-1)
	228	# define HS_CXT aTHX
	229	#else
9a189793 DD	230	# define HS_KEY(setxsubfn, popmark, apiver, xsver) \
9a189793 DD	231	HS_KEYp(sizeof(struct PerlHandShakeInterpreter), FALSE, setxsubfn, popmark, \
db6e00bd DD	232	sizeof("" apiver "")-1, sizeof("" xsver "")-1)
	233	# define HS_CXT cv
	234	#endif
	235
fa39cb42 KW	236	/*
	237	=for apidoc instr
	238	Same as L<strstr(3)>, which finds and returns a pointer to the first occurrence
	239	of the NUL-terminated substring C<little> in the NUL-terminated string C<big>,
	240	returning NULL if not found. The terminating NUL bytes are not compared.
	241
	242	=cut
	243	*/
	244
	245
4e528812	246	#define instr(haystack, needle) strstr((char ) haystack, (char ) needle)
4ee010a8	247
b8070b07 KW	248	#ifdef HAS_MEMMEM
b8070b07 KW	249	# define ninstr(big, bigend, little, lend) \
602ec335 KW	250	(__ASSERT_(bigend >= big) \
	251	__ASSERT_(lend >= little) \
	252	(char *) memmem((big), (bigend) - (big), \
45d67106	253	(little), (lend) - (little)))
54c193ae KW	254	#else
54c193ae KW	255	# define ninstr(a,b,c,d) Perl_ninstr(a,b,c,d)
b8070b07 KW	256	#endif
b8070b07 KW	257
d333cbeb Z	258	#ifdef __Lynx__
	259	/* Missing proto on LynxOS */
	260	int mkstemp(char*);
	261	#endif
	262
74b421cc TC	263	#ifdef PERL_CORE
	264	# if defined(VMS)
	265	/* only useful for calls to our mkostemp() emulation */
	266	# define O_VMS_DELETEONCLOSE 0x40000000
	267	# ifdef HAS_MKOSTEMP
	268	# error 134221 will need a new solution for VMS
	269	# endif
	270	# else
	271	# define O_VMS_DELETEONCLOSE 0
	272	# endif
	273	#endif
2517ba99 Z	274	#if defined(HAS_MKOSTEMP) && defined(PERL_CORE)
	275	# define Perl_my_mkostemp(templte, flags) mkostemp(templte, flags)
	276	#endif
e48855bd TC	277	#if defined(HAS_MKSTEMP) && defined(PERL_CORE)
	278	# define Perl_my_mkstemp(templte) mkstemp(templte)
	279	#endif
	280
28922db9 DM	281	#endif /* PERL_UTIL_H_ */
28922db9 DM	282
e6226b18	283	/*
14d04a33	284	* ex: set ts=8 sts=4 sw=4 et:
e9a8c099	285	*/