[inseparable changes from patch from perl5.003_12 to perl5.003_13]
[p5sagit/p5-mst-13.2.git] / proto.h
diff --git a/proto.h b/proto.h
index 51d50c0..cbf38d4 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -28,8 +28,8 @@ SV**  av_store _((AV* ar, I32 key, SV* val));
 void   av_undef _((AV* ar));
 void   av_unshift _((AV* ar, I32 num));
 OP*    bind_match _((I32 type, OP* left, OP* pat));
-OP*    block_end _((int line, int floor, OP* seq));
-int    block_start _((void));
+OP*    block_end _((I32 floor, OP* seq));
+int    block_start _((int full));
 void   boot_core_UNIVERSAL _((void));
 void   calllist _((AV* list));
 I32    cando _((I32 bit, I32 effective, struct stat* statbufp));
@@ -113,7 +113,7 @@ void        dump_op _((OP* arg));
 void   dump_pm _((PMOP* pm));
 void   dump_packsubs _((HV* stash));
 void   dump_sub _((GV* gv));
-void   fbm_compile _((SV* sv, I32 iflag));
+void   fbm_compile _((SV* sv));
 char*  fbm_instr _((unsigned char* big, unsigned char* bigend, SV* littlesv));
 OP*    force_list _((OP* arg));
 OP*    fold_constants _((OP * arg));
@@ -158,8 +158,10 @@ void       hv_magic _((HV* hv, GV* gv, int how));
 SV**   hv_store _((HV* tb, char* key, U32 klen, SV* val, U32 hash));
 HE*    hv_store_ent _((HV* tb, SV* key, SV* val, U32 hash));
 void   hv_undef _((HV* tb));
-I32    ibcmp _((U8* a, U8* b, I32 len));
+I32    ibcmp _((char* a, char* b, I32 len));
+I32    ibcmp_locale _((char* a, char* b, I32 len));
 I32    ingroup _((I32 testgid, I32 effective));
+U32    intro_my _((void));
 char*  instr _((char* big, char* little));
 bool   io_close _((IO* io));
 OP*    invert _((OP* cmd));
@@ -176,7 +178,8 @@ I32 looks_like_number _((SV* sv));
 int    magic_clearenv  _((SV* sv, MAGIC* mg));
 int    magic_clearpack _((SV* sv, MAGIC* mg));
 int    magic_clearsig  _((SV* sv, MAGIC* mg));
-int    magic_existspack        _((SV* sv, MAGIC* mg));
+int    magic_existspack _((SV* sv, MAGIC* mg));
+int    magic_freevivary _((SV* sv, MAGIC* mg));
 int    magic_get       _((SV* sv, MAGIC* mg));
 int    magic_getarylen _((SV* sv, MAGIC* mg));
 int    magic_getpack   _((SV* sv, MAGIC* mg));
@@ -194,7 +197,9 @@ int magic_setamagic _((SV* sv, MAGIC* mg));
 int    magic_setarylen _((SV* sv, MAGIC* mg));
 int    magic_setbm     _((SV* sv, MAGIC* mg));
 int    magic_setdbline _((SV* sv, MAGIC* mg));
+int    magic_setcollxfrm _((SV* sv, MAGIC* mg));
 int    magic_setenv    _((SV* sv, MAGIC* mg));
+int    magic_setfm     _((SV* sv, MAGIC* mg));
 int    magic_setisa    _((SV* sv, MAGIC* mg));
 int    magic_setglob   _((SV* sv, MAGIC* mg));
 int    magic_setmglob  _((SV* sv, MAGIC* mg));
@@ -206,20 +211,14 @@ int       magic_setsubstr _((SV* sv, MAGIC* mg));
 int    magic_settaint  _((SV* sv, MAGIC* mg));
 int    magic_setuvar   _((SV* sv, MAGIC* mg));
 int    magic_setvec    _((SV* sv, MAGIC* mg));
+int    magic_setvivary _((SV* sv, MAGIC* mg));
 int    magic_wipepack  _((SV* sv, MAGIC* mg));
 void   magicname _((char* sym, char* name, I32 namlen));
 int    main _((int argc, char** argv, char** env));
-#if !defined(STANDARD_C)
-Malloc_t       malloc _((MEM_SIZE nbytes));
-#endif
-#if defined(MYMALLOC) && defined(HIDEMYMALLOC)
-extern Malloc_t malloc _((MEM_SIZE nbytes));
-extern Malloc_t realloc _((Malloc_t, MEM_SIZE));
-extern Free_t   free _((Malloc_t));
-extern Malloc_t calloc _((MEM_SIZE, MEM_SIZE));
-#endif
 void   markstack_grow _((void));
-char*  mem_collxfrm _((const char *m, const Size_t n, Size_t * nx));
+#ifdef USE_LOCALE_COLLATE
+char*  mem_collxfrm _((const char *s, STRLEN len, STRLEN *xlen));
+#endif
 char*  mess _((char* pat, va_list* args));
 int    mg_clear _((SV* sv));
 int    mg_copy _((SV *, SV *, char *, I32));
@@ -232,14 +231,16 @@ int       mg_set _((SV* sv));
 OP*    mod _((OP* op, I32 type));
 char*  moreswitches _((char* s));
 OP *   my _(( OP *));
+#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
 char*  my_bcopy _((char* from, char* to, I32 len));
+#endif
 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
 char*  my_bzero _((char* loc, I32 len));
 #endif
 void   my_exit _((U32 status)) __attribute__((noreturn));
 I32    my_lstat _((void));
-#ifndef HAS_MEMCMP
-I32    my_memcmp _((unsigned char* s1, unsigned char* s2, I32 len));
+#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
+I32    my_memcmp _((char* s1, char* s2, I32 len));
 #endif
 I32    my_pclose _((PerlIO* ptr));
 PerlIO*        my_popen _((char* cmd, char* mode));
@@ -329,8 +330,13 @@ SV*        perl_get_sv _((char* name, I32 create));
 AV*    perl_get_av _((char* name, I32 create));
 HV*    perl_get_hv _((char* name, I32 create));
 CV*    perl_get_cv _((char* name, I32 create));
-int    perl_init_fold _(());
 int    perl_init_i18nl10n _((int printwarn));
+int    perl_init_i18nl14n _((int printwarn));
+void   perl_new_collate _((char *newcoll));
+void   perl_new_ctype _((char *newctype));
+void   perl_new_numeric _((char *newcoll));
+void   perl_set_numeric_local _((void));
+void   perl_set_numeric_standard _((void));
 int    perl_parse _((PerlInterpreter* sv_interp, void(*xsinit)(void), int argc, char** argv, char** env));
 void   perl_require_pv _((char* pv));
 #define perl_requirepv perl_require_pv
@@ -355,23 +361,11 @@ char*     regnext _((char* p));
 char*  regprop _((char* op));
 void   repeatcpy _((char* to, char* from, I32 len, I32 count));
 char*  rninstr _((char* big, char* bigend, char* little, char* lend));
+Sighandler_t rsignal _((int, Sighandler_t));
+int    rsignal_restore _((int, Sigsave_t*));
+int    rsignal_save _((int, Sighandler_t, Sigsave_t*));
+Sighandler_t rsignal_state _((int));
 int    runops _((void));
-#ifndef safemalloc
-void   safefree _((Malloc_t where));
-Malloc_t       safemalloc _((MEM_SIZE size));
-#ifndef MSDOS
-Malloc_t       saferealloc _((Malloc_t where, MEM_SIZE size));
-#else
-Malloc_t       saferealloc _((Malloc_t where, unsigned long size));
-#endif
-Malloc_t       safecalloc _((MEM_SIZE cnt, MEM_SIZE size));
-#endif
-#ifdef LEAKTEST
-void   safexfree _((Malloc_t where));
-Malloc_t       safexmalloc _((I32 x, MEM_SIZE size));
-Malloc_t       safexrealloc _((Malloc_t where, MEM_SIZE size));
-Malloc_t       safexcalloc _((I32 x, MEM_SIZE size, MEM_SIZE size));
-#endif
 #ifndef HAS_RENAME
 I32    same_dirent _((char* a, char* b));
 #endif
@@ -379,6 +373,8 @@ char*       savepv _((char* sv));
 char*  savepvn _((char* sv, I32 len));
 char*  sharepvn _((char* sv, I32 len, U32 hash));
 void   unsharepvn _((char* sv, I32 len, U32 hash));
+HEK*   share_hek _((char* sv, I32 len, U32 hash));
+void   unshare_hek _((HEK* hek));
 void   savestack_grow _((void));
 void   save_aptr _((AV** aptr));
 AV*    save_ary _((GV* gv));
@@ -390,11 +386,14 @@ void      save_destructor _((void (*f)(void*), void* p));
 void   save_freesv _((SV* sv));
 void   save_freeop _((OP* op));
 void   save_freepv _((char* pv));
+void   save_gp _((GV* gv, I32 empty));
 HV*    save_hash _((GV* gv));
 void   save_hptr _((HV** hptr));
+void   save_I16 _((I16* intp));
 void   save_I32 _((I32* intp));
 void   save_int _((int* intp));
 void   save_item _((SV* item));
+void   save_iv _((IV* iv));
 void   save_list _((SV** sarg, I32 maxsarg));
 void   save_long _((long *longp));
 void   save_nogv _((GV* gv));
@@ -407,9 +406,9 @@ OP* scalar _((OP* o));
 OP*    scalarkids _((OP* op));
 OP*    scalarseq _((OP* o));
 OP*    scalarvoid _((OP* op));
-unsigned long  scan_hex _((char* start, I32 len, I32* retlen));
+UV     scan_hex _((char* start, I32 len, I32* retlen));
 char*  scan_num _((char* s));
-unsigned long  scan_oct _((char* start, I32 len, I32* retlen));
+UV     scan_oct _((char* start, I32 len, I32* retlen));
 OP*    scope _((OP* o));
 char*  screaminstr _((SV* bigsv, SV* littlesv));
 #ifndef VMS
@@ -426,6 +425,7 @@ IV  sv_2iv _((SV* sv));
 SV*    sv_2mortal _((SV* sv));
 double sv_2nv _((SV* sv));
 char*  sv_2pv _((SV* sv, STRLEN* lp));
+UV     sv_2uv _((SV* sv));
 void   sv_add_arena _((char* ptr, U32 size, U32 flags));
 int    sv_backoff _((SV* sv));
 SV*    sv_bless _((SV* sv, HV* stash));
@@ -437,8 +437,13 @@ void       sv_clean_all _((void));
 void   sv_clean_objs _((void));
 void   sv_clear _((SV* sv));
 I32    sv_cmp _((SV* sv1, SV* sv2));
+I32    sv_cmp_locale _((SV* sv1, SV* sv2));
+#ifdef USE_LOCALE_COLLATE
+char*  sv_collxfrm _((SV* sv, STRLEN* nxp));
+#endif
 void   sv_dec _((SV* sv));
 void   sv_dump _((SV* sv));
+bool   sv_derived_from _((SV* sv, char* name));
 I32    sv_eq _((SV* sv1, SV* sv2));
 void   sv_free _((SV* sv));
 void   sv_free_arenas _((void));
@@ -464,6 +469,7 @@ void        sv_replace _((SV* sv, SV* nsv));
 void   sv_report_used _((void));
 void   sv_reset _((char* s, HV* stash));
 void   sv_setiv _((SV* sv, IV num));
+void   sv_setuv _((SV* sv, UV num));
 void   sv_setnv _((SV* sv, double num));
 SV*    sv_setref_iv _((SV *rv, char *classname, IV iv));
 SV*    sv_setref_nv _((SV *rv, char *classname, double nv));
@@ -472,12 +478,14 @@ SV*       sv_setref_pvn _((SV *rv, char *classname, char* pv, I32 n));
 void   sv_setpv _((SV* sv, char* ptr));
 void   sv_setpvn _((SV* sv, char* ptr, STRLEN len));
 void   sv_setsv _((SV* dsv, SV* ssv));
+void   sv_taint _((SV* sv));
+bool   sv_tainted _((SV* sv));
 int    sv_unmagic _((SV* sv, int type));
 void   sv_unref _((SV* sv));
+void   sv_untaint _((SV* sv));
 bool   sv_upgrade _((SV* sv, U32 mt));
 void   sv_usepvn _((SV* sv, char* ptr, STRLEN len));
 void   taint_env _((void));
-void   taint_not _((char *s));
 void   taint_proper _((char* f, char* s));
 #ifdef UNLINK_ALL_VERSIONS
 I32    unlnk _((char* f));
@@ -491,3 +499,24 @@ int        yyerror _((char* s));
 int    yylex _((void));
 int    yyparse _((void));
 int    yywarn _((char* s));
+
+#if defined(MYMALLOC) || !defined(STANDARD_C)
+Malloc_t malloc _((MEM_SIZE nbytes));
+Malloc_t calloc _((MEM_SIZE elements, MEM_SIZE size));
+Malloc_t realloc _((Malloc_t where, MEM_SIZE nbytes));
+Free_t   free _((Malloc_t where));
+#endif
+
+#ifndef MYMALLOC
+Malloc_t safemalloc _((MEM_SIZE nbytes));
+Malloc_t safecalloc _((MEM_SIZE elements, MEM_SIZE size));
+Malloc_t saferealloc _((Malloc_t where, MEM_SIZE nbytes));
+Free_t   safefree _((Malloc_t where));
+#endif
+
+#ifdef LEAKTEST
+Malloc_t safexmalloc _((I32 x, MEM_SIZE size));
+Malloc_t safexcalloc _((I32 x, MEM_SIZE elements, MEM_SIZE size));
+Malloc_t safexrealloc _((Malloc_t where, MEM_SIZE size));
+void     safexfree _((Malloc_t where));
+#endif