This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
embed.fnc: Formal param shouldn't be const
[perl5.git] / embed.fnc
diff --git a/embed.fnc b/embed.fnc
index ad4df86..c21272d 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -437,7 +437,6 @@ Ap  |int    |do_spawn_nowait|NN char* cmd
 #if !defined(WIN32)
 p      |bool|do_exec3  |NN const char *incmd|int fd|int do_report
 #endif
-p      |void   |do_execfree
 #if defined(PERL_IN_DOIO_C)
 s      |void   |exec_failed    |NN const char *cmd|int fd|int do_report
 #endif
@@ -465,6 +464,31 @@ Apmb       |bool   |do_open        |NN GV* gv|NN const char* name|I32 len|int as_raw \
 Ap     |bool   |do_open9       |NN GV *gv|NN const char *name|I32 len|int as_raw \
                                |int rawmode|int rawperm|NULLOK PerlIO *supplied_fp \
                                |NN SV *svs|I32 num
+pn     |void   |setfd_cloexec|int fd
+pn     |void   |setfd_inhexec|int fd
+p      |void   |setfd_cloexec_for_nonsysfd|int fd
+p      |void   |setfd_inhexec_for_sysfd|int fd
+p      |void   |setfd_cloexec_or_inhexec_by_sysfdness|int fd
+pR     |int    |PerlLIO_dup_cloexec|int oldfd
+p      |int    |PerlLIO_dup2_cloexec|int oldfd|int newfd
+pR     |int    |PerlLIO_open_cloexec|NN const char *file|int flag
+pR     |int    |PerlLIO_open3_cloexec|NN const char *file|int flag|int perm
+pnoR   |int    |my_mkstemp_cloexec|NN char *templte
+#ifdef HAS_PIPE
+pR     |int    |PerlProc_pipe_cloexec|NN int *pipefd
+#endif
+#ifdef HAS_SOCKET
+pR     |int    |PerlSock_socket_cloexec|int domain|int type|int protocol
+pR     |int    |PerlSock_accept_cloexec|int listenfd \
+                               |NULLOK struct sockaddr *addr \
+                               |NULLOK Sock_size_t *addrlen
+#endif
+#if defined (HAS_SOCKETPAIR) || \
+    (defined (HAS_SOCKET) && defined(SOCK_DGRAM) && \
+       defined(AF_INET) && defined(PF_INET))
+pR     |int    |PerlSock_socketpair_cloexec|int domain|int type|int protocol \
+                               |NN int *pairfd
+#endif
 #if defined(PERL_IN_DOIO_C)
 s      |IO *   |openn_setup    |NN GV *gv|NN char *mode|NN PerlIO **saveifp \
                                |NN PerlIO **saveofp|NN int *savefd \
@@ -497,7 +521,7 @@ p   |Off_t  |do_sysseek     |NN GV* gv|Off_t pos|int whence
 : Defined in doio.c, used only in pp_sys.c
 pR     |Off_t  |do_tell        |NN GV* gv
 : Defined in doop.c, used only in pp.c
-p      |I32    |do_trans       |NN SV* sv
+p      |Size_t |do_trans       |NN SV* sv
 : Used in my.c and pp.c
 p      |UV     |do_vecget      |NN SV* sv|STRLEN offset|int size
 : Defined in doop.c, used only in mg.c (with /* XXX slurp this routine */)
@@ -782,11 +806,14 @@ AndmoR    |bool   |is_utf8_invariant_string|NN const U8* const s              \
 AnidR  |bool   |is_utf8_invariant_string_loc|NN const U8* const s          \
                |STRLEN len                                                 \
                |NULLOK const U8 ** ep
+#ifndef EBCDIC
+AniR   |unsigned int|_variant_byte_number|PERL_UINTMAX_T word
+#endif
 #if defined(PERL_CORE) || defined(PERL_EXT)
 EinR   |Size_t |variant_under_utf8_count|NN const U8* const s              \
                |NN const U8* const e
 #endif
-AmnpdRP        |bool   |is_ascii_string|NN const U8* const s|const STRLEN len
+AmnpdRP        |bool   |is_ascii_string|NN const U8* const s|STRLEN len
 AmnpdRP        |bool   |is_invariant_string|NN const U8* const s|STRLEN len
 #if defined(PERL_CORE) || defined (PERL_EXT)
 EXnidR |bool   |is_utf8_non_invariant_string|NN const U8* const s          \
@@ -871,6 +898,8 @@ ADMpR       |bool   |is_utf8_punct  |NN const U8 *p
 ADMpR  |bool   |is_utf8_xdigit |NN const U8 *p
 AMpR   |bool   |_is_utf8_mark  |NN const U8 *p
 ADMpR  |bool   |is_utf8_mark   |NN const U8 *p
+EXdpR  |bool   |isSCRIPT_RUN   |NN const U8 *s|NN const U8 *send    \
+                               |const bool utf8_target
 : Used in perly.y
 p      |OP*    |jmaybe         |NN OP *o
 : Used in pp.c 
@@ -1790,10 +1819,10 @@ pn      |bool   |translate_substr_offsets|STRLEN curlen|IV pos1_iv \
 #if defined(UNLINK_ALL_VERSIONS)
 Ap     |I32    |unlnk          |NN const char* f
 #endif
-Apd    |I32    |unpack_str     |NN const char *pat|NN const char *patend|NN const char *s \
+Apd    |SSize_t|unpack_str     |NN const char *pat|NN const char *patend|NN const char *s \
                                |NULLOK const char *strbeg|NN const char *strend|NULLOK char **new_s \
                                |I32 ocnt|U32 flags
-Apd    |I32    |unpackstring   |NN const char *pat|NN const char *patend|NN const char *s \
+Apd    |SSize_t|unpackstring   |NN const char *pat|NN const char *patend|NN const char *s \
                                |NN const char *strend|U32 flags
 Ap     |void   |unsharepvn     |NULLOK const char* sv|I32 len|U32 hash
 : Used in gv.c, hv.c
@@ -2062,12 +2091,12 @@ Adp     |int    |nothreadhook
 p      |void   |init_constants
 
 #if defined(PERL_IN_DOOP_C)
-sR     |I32    |do_trans_simple        |NN SV * const sv
-sR     |I32    |do_trans_count         |NN SV * const sv
-sR     |I32    |do_trans_complex       |NN SV * const sv
-sR     |I32    |do_trans_simple_utf8   |NN SV * const sv
-sR     |I32    |do_trans_count_utf8    |NN SV * const sv
-sR     |I32    |do_trans_complex_utf8  |NN SV * const sv
+sR     |Size_t |do_trans_simple        |NN SV * const sv
+sR     |Size_t |do_trans_count         |NN SV * const sv
+sR     |Size_t |do_trans_complex       |NN SV * const sv
+sR     |Size_t |do_trans_simple_utf8   |NN SV * const sv
+sR     |Size_t |do_trans_count_utf8    |NN SV * const sv
+sR     |Size_t |do_trans_complex_utf8  |NN SV * const sv
 #endif
 
 #if defined(PERL_IN_GV_C)
@@ -2215,17 +2244,17 @@ pRxo    |GV*    |softref2xv     |NN SV *const sv|NN const char *const what \
 #endif
 
 #if defined(PERL_IN_PP_PACK_C)
-s      |I32    |unpack_rec     |NN struct tempsym* symptr|NN const char *s \
+s      |SSize_t|unpack_rec     |NN struct tempsym* symptr|NN const char *s \
                                |NN const char *strbeg|NN const char *strend|NULLOK const char **new_s
 s      |SV **  |pack_rec       |NN SV *cat|NN struct tempsym* symptr|NN SV **beglist|NN SV **endlist
 s      |SV*    |mul128         |NN SV *sv|U8 m
-s      |I32    |measure_struct |NN struct tempsym* symptr
+s      |SSize_t|measure_struct |NN struct tempsym* symptr
 s      |bool   |next_symbol    |NN struct tempsym* symptr
 sR     |SV*    |is_an_int      |NN const char *s|STRLEN l
 s      |int    |div128         |NN SV *pnum|NN bool *done
 s      |const char *|group_end |NN const char *patptr|NN const char *patend \
                                |char ender
-sR     |const char *|get_num   |NN const char *patptr|NN I32 *lenptr
+sR     |const char *|get_num   |NN const char *patptr|NN SSize_t *lenptr
 ns     |bool   |need_utf8      |NN const char *pat|NN const char *patend
 ns     |char   |first_symbol   |NN const char *pat|NN const char *patend
 sR     |char * |sv_exp_grow    |NN SV *sv|STRLEN needed
@@ -2497,6 +2526,8 @@ ERp       |bool   |_is_grapheme   |NN const U8 * strbeg|NN const U8 * s|NN const U8 *stren
 
 #if defined(PERL_IN_REGEXEC_C)
 ERs    |bool   |isFOO_utf8_lc  |const U8 classnum|NN const U8* character
+ERns   |char *|find_next_ascii|NN char* s|NN const char * send|const bool is_utf8
+ERns   |char *|find_next_non_ascii|NN char* s|NN const char * send|const bool is_utf8
 ERs    |SSize_t|regmatch       |NN regmatch_info *reginfo|NN char *startpos|NN regnode *prog
 WERs   |I32    |regrepeat      |NN regexp *prog|NN char **startposp \
                                |NN const regnode *p \
@@ -2696,7 +2727,7 @@ s |void   |incline        |NN const char *s|NN const char *end
 s      |int    |intuit_method  |NN char *s|NULLOK SV *ioname|NULLOK CV *cv
 s      |int    |intuit_more    |NN char *s|NN char *e
 s      |I32    |lop            |I32 f|U8 x|NN char *s
-rs     |void   |missingterm    |NULLOK char *s|const STRLEN len
+rs     |void   |missingterm    |NULLOK char *s|STRLEN len
 s      |void   |no_op          |NN const char *const what|NULLOK char *s
 s      |int    |pending_ident
 sR     |I32    |sublex_done
@@ -2732,6 +2763,7 @@ s |bool   |isa_lookup     |NN HV *stash|NN const char * const name \
 #endif
 
 #if defined(PERL_IN_LOCALE_C)
+sn     |const char*|category_name |const int category
 #  ifdef HAS_NL_LANGINFO
 sn     |const char*|my_nl_langinfo|const nl_item item|bool toggle
 #  else
@@ -3066,6 +3098,9 @@ Apnod     |Size_t |my_strlcpy     |NULLOK char *dst|NULLOK const char *src|Size_t si
 Apnod  |Size_t |my_strnlen     |NN const char *str|Size_t maxlen
 #endif
 
+#ifndef HAS_MKOSTEMP
+pno    |int    |my_mkostemp    |NN char *templte|int flags
+#endif
 #ifndef HAS_MKSTEMP
 pno    |int    |my_mkstemp     |NN char *templte
 #endif
Unnamed repository; edit this file 'description' to name the repository.