diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/util.h')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CORE/util.h | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/util.h b/Master/tlpkg/tlperl/lib/CORE/util.h index 3310b119d8e..12a1c470eef 100644 --- a/Master/tlpkg/tlperl/lib/CORE/util.h +++ b/Master/tlpkg/tlperl/lib/CORE/util.h @@ -8,6 +8,10 @@ * */ +#ifndef PERL_UTIL_H_ +#define PERL_UTIL_H_ + + #ifdef VMS # define PERL_FILE_IS_ABSOLUTE(f) \ (*(f) == '/' \ @@ -229,6 +233,15 @@ means arg not present, 1 is empty string/null byte */ # define HS_CXT cv #endif +#define instr(haystack, needle) strstr(haystack, needle) + +#ifdef HAS_MEMMEM +# define ninstr(big, bigend, little, lend) \ + ((char *) memmem(big, bigend - big, little, lend - little)) +#endif + +#endif /* PERL_UTIL_H_ */ + /* * ex: set ts=8 sts=4 sw=4 et: */ |