X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlapi.h;h=53e4ba8ec0d2153f362206960f369ef50355fa36;hb=53df3d8cb98cbfbef669eddaaa174212d27bd68c;hp=325b3607a142f29f0aa9cc795ba81386d03aa744;hpb=e41069f29fc7a1eb2dfac35a2b1b83885adc3694;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlapi.h b/perlapi.h
index 325b360..53e4ba8 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -1,7 +1,18 @@
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
-   This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
-   perlvars.h and thrdvar.h.  Any changes made here will be lost!
-*/
+/*
+ *    perlapi.h
+ *
+ *    Copyright (c) 1997-2002, Larry Wall
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by embed.pl from data in embed.fnc, embed.pl,
+ * pp.sym, intrpvar.h, perlvars.h and thrdvar.h.
+ * Any changes made here will be lost!
+ *
+ * Edit those files and run 'make regen_headers' to effect changes.
+ */
 
 /* declare accessor functions for Perl variables */
 #ifndef __perlapi_h__
@@ -103,6 +114,12 @@ END_EXTERN_C
 #define PL_MemParse		(*Perl_IMemParse_ptr(aTHX))
 #undef  PL_MemShared
 #define PL_MemShared		(*Perl_IMemShared_ptr(aTHX))
+#undef  PL_OpPtr
+#define PL_OpPtr		(*Perl_IOpPtr_ptr(aTHX))
+#undef  PL_OpSlab
+#define PL_OpSlab		(*Perl_IOpSlab_ptr(aTHX))
+#undef  PL_OpSpace
+#define PL_OpSpace		(*Perl_IOpSpace_ptr(aTHX))
 #undef  PL_Proc
 #define PL_Proc			(*Perl_IProc_ptr(aTHX))
 #undef  PL_Sock
@@ -133,6 +150,10 @@ END_EXTERN_C
 #define PL_bufptr		(*Perl_Ibufptr_ptr(aTHX))
 #undef  PL_checkav
 #define PL_checkav		(*Perl_Icheckav_ptr(aTHX))
+#undef  PL_checkav_save
+#define PL_checkav_save		(*Perl_Icheckav_save_ptr(aTHX))
+#undef  PL_clocktick
+#define PL_clocktick		(*Perl_Iclocktick_ptr(aTHX))
 #undef  PL_collation_ix
 #define PL_collation_ix		(*Perl_Icollation_ix_ptr(aTHX))
 #undef  PL_collation_name
@@ -159,8 +180,6 @@ END_EXTERN_C
 #define PL_cop_seqmax		(*Perl_Icop_seqmax_ptr(aTHX))
 #undef  PL_copline
 #define PL_copline		(*Perl_Icopline_ptr(aTHX))
-#undef  PL_cred_mutex
-#define PL_cred_mutex		(*Perl_Icred_mutex_ptr(aTHX))
 #undef  PL_cryptseen
 #define PL_cryptseen		(*Perl_Icryptseen_ptr(aTHX))
 #undef  PL_cshlen
@@ -171,8 +190,6 @@ END_EXTERN_C
 #define PL_curcopdb		(*Perl_Icurcopdb_ptr(aTHX))
 #undef  PL_curstname
 #define PL_curstname		(*Perl_Icurstname_ptr(aTHX))
-#undef  PL_curthr
-#define PL_curthr		(*Perl_Icurthr_ptr(aTHX))
 #undef  PL_custom_op_descs
 #define PL_custom_op_descs	(*Perl_Icustom_op_descs_ptr(aTHX))
 #undef  PL_custom_op_names
@@ -183,6 +200,10 @@ END_EXTERN_C
 #define PL_debstash		(*Perl_Idebstash_ptr(aTHX))
 #undef  PL_debug
 #define PL_debug		(*Perl_Idebug_ptr(aTHX))
+#undef  PL_debug_pad
+#define PL_debug_pad		(*Perl_Idebug_pad_ptr(aTHX))
+#undef  PL_def_layerlist
+#define PL_def_layerlist	(*Perl_Idef_layerlist_ptr(aTHX))
 #undef  PL_defgv
 #define PL_defgv		(*Perl_Idefgv_ptr(aTHX))
 #undef  PL_diehook
@@ -197,6 +218,8 @@ END_EXTERN_C
 #define PL_e_script		(*Perl_Ie_script_ptr(aTHX))
 #undef  PL_egid
 #define PL_egid			(*Perl_Iegid_ptr(aTHX))
+#undef  PL_encoding
+#define PL_encoding		(*Perl_Iencoding_ptr(aTHX))
 #undef  PL_endav
 #define PL_endav		(*Perl_Iendav_ptr(aTHX))
 #undef  PL_envgv
@@ -207,12 +230,6 @@ END_EXTERN_C
 #define PL_error_count		(*Perl_Ierror_count_ptr(aTHX))
 #undef  PL_euid
 #define PL_euid			(*Perl_Ieuid_ptr(aTHX))
-#undef  PL_eval_cond
-#define PL_eval_cond		(*Perl_Ieval_cond_ptr(aTHX))
-#undef  PL_eval_mutex
-#define PL_eval_mutex		(*Perl_Ieval_mutex_ptr(aTHX))
-#undef  PL_eval_owner
-#define PL_eval_owner		(*Perl_Ieval_owner_ptr(aTHX))
 #undef  PL_eval_root
 #define PL_eval_root		(*Perl_Ieval_root_ptr(aTHX))
 #undef  PL_eval_start
@@ -229,8 +246,6 @@ END_EXTERN_C
 #define PL_expect		(*Perl_Iexpect_ptr(aTHX))
 #undef  PL_fdpid
 #define PL_fdpid		(*Perl_Ifdpid_ptr(aTHX))
-#undef  PL_fdpid_mutex
-#define PL_fdpid_mutex		(*Perl_Ifdpid_mutex_ptr(aTHX))
 #undef  PL_filemode
 #define PL_filemode		(*Perl_Ifilemode_ptr(aTHX))
 #undef  PL_forkprocess
@@ -269,6 +284,8 @@ END_EXTERN_C
 #define PL_initav		(*Perl_Iinitav_ptr(aTHX))
 #undef  PL_inplace
 #define PL_inplace		(*Perl_Iinplace_ptr(aTHX))
+#undef  PL_known_layers
+#define PL_known_layers		(*Perl_Iknown_layers_ptr(aTHX))
 #undef  PL_last_lop
 #define PL_last_lop		(*Perl_Ilast_lop_ptr(aTHX))
 #undef  PL_last_lop_op
@@ -381,12 +398,6 @@ END_EXTERN_C
 #define PL_nice_chunk_size	(*Perl_Inice_chunk_size_ptr(aTHX))
 #undef  PL_nomemok
 #define PL_nomemok		(*Perl_Inomemok_ptr(aTHX))
-#undef  PL_nthreads
-#define PL_nthreads		(*Perl_Inthreads_ptr(aTHX))
-#undef  PL_nthreads_cond
-#define PL_nthreads_cond	(*Perl_Inthreads_cond_ptr(aTHX))
-#undef  PL_nullstash
-#define PL_nullstash		(*Perl_Inullstash_ptr(aTHX))
 #undef  PL_numeric_compat1
 #define PL_numeric_compat1	(*Perl_Inumeric_compat1_ptr(aTHX))
 #undef  PL_numeric_local
@@ -437,6 +448,8 @@ END_EXTERN_C
 #define PL_perl_destruct_level	(*Perl_Iperl_destruct_level_ptr(aTHX))
 #undef  PL_perldb
 #define PL_perldb		(*Perl_Iperldb_ptr(aTHX))
+#undef  PL_perlio
+#define PL_perlio		(*Perl_Iperlio_ptr(aTHX))
 #undef  PL_pidstatus
 #define PL_pidstatus		(*Perl_Ipidstatus_ptr(aTHX))
 #undef  PL_preambleav
@@ -479,6 +492,8 @@ END_EXTERN_C
 #define PL_sig_pending		(*Perl_Isig_pending_ptr(aTHX))
 #undef  PL_sighandlerp
 #define PL_sighandlerp		(*Perl_Isighandlerp_ptr(aTHX))
+#undef  PL_sort_RealCmp
+#define PL_sort_RealCmp		(*Perl_Isort_RealCmp_ptr(aTHX))
 #undef  PL_splitstr
 #define PL_splitstr		(*Perl_Isplitstr_ptr(aTHX))
 #undef  PL_srand_called
@@ -493,8 +508,6 @@ END_EXTERN_C
 #define PL_stdingv		(*Perl_Istdingv_ptr(aTHX))
 #undef  PL_strtab
 #define PL_strtab		(*Perl_Istrtab_ptr(aTHX))
-#undef  PL_strtab_mutex
-#define PL_strtab_mutex		(*Perl_Istrtab_mutex_ptr(aTHX))
 #undef  PL_sub_generation
 #define PL_sub_generation	(*Perl_Isub_generation_ptr(aTHX))
 #undef  PL_sublex_info
@@ -507,10 +520,6 @@ END_EXTERN_C
 #define PL_sv_arenaroot		(*Perl_Isv_arenaroot_ptr(aTHX))
 #undef  PL_sv_count
 #define PL_sv_count		(*Perl_Isv_count_ptr(aTHX))
-#undef  PL_sv_lock_mutex
-#define PL_sv_lock_mutex	(*Perl_Isv_lock_mutex_ptr(aTHX))
-#undef  PL_sv_mutex
-#define PL_sv_mutex		(*Perl_Isv_mutex_ptr(aTHX))
 #undef  PL_sv_no
 #define PL_sv_no		(*Perl_Isv_no_ptr(aTHX))
 #undef  PL_sv_objcount
@@ -521,20 +530,12 @@ END_EXTERN_C
 #define PL_sv_undef		(*Perl_Isv_undef_ptr(aTHX))
 #undef  PL_sv_yes
 #define PL_sv_yes		(*Perl_Isv_yes_ptr(aTHX))
-#undef  PL_svref_mutex
-#define PL_svref_mutex		(*Perl_Isvref_mutex_ptr(aTHX))
 #undef  PL_sys_intern
 #define PL_sys_intern		(*Perl_Isys_intern_ptr(aTHX))
+#undef  PL_taint_warn
+#define PL_taint_warn		(*Perl_Itaint_warn_ptr(aTHX))
 #undef  PL_tainting
 #define PL_tainting		(*Perl_Itainting_ptr(aTHX))
-#undef  PL_threadnum
-#define PL_threadnum		(*Perl_Ithreadnum_ptr(aTHX))
-#undef  PL_threads_mutex
-#define PL_threads_mutex	(*Perl_Ithreads_mutex_ptr(aTHX))
-#undef  PL_threadsv_names
-#define PL_threadsv_names	(*Perl_Ithreadsv_names_ptr(aTHX))
-#undef  PL_thrsv
-#define PL_thrsv		(*Perl_Ithrsv_ptr(aTHX))
 #undef  PL_tokenbuf
 #define PL_tokenbuf		(*Perl_Itokenbuf_ptr(aTHX))
 #undef  PL_uid
@@ -555,6 +556,10 @@ END_EXTERN_C
 #define PL_utf8_digit		(*Perl_Iutf8_digit_ptr(aTHX))
 #undef  PL_utf8_graph
 #define PL_utf8_graph		(*Perl_Iutf8_graph_ptr(aTHX))
+#undef  PL_utf8_idcont
+#define PL_utf8_idcont		(*Perl_Iutf8_idcont_ptr(aTHX))
+#undef  PL_utf8_idstart
+#define PL_utf8_idstart		(*Perl_Iutf8_idstart_ptr(aTHX))
 #undef  PL_utf8_lower
 #define PL_utf8_lower		(*Perl_Iutf8_lower_ptr(aTHX))
 #undef  PL_utf8_mark
@@ -565,6 +570,8 @@ END_EXTERN_C
 #define PL_utf8_punct		(*Perl_Iutf8_punct_ptr(aTHX))
 #undef  PL_utf8_space
 #define PL_utf8_space		(*Perl_Iutf8_space_ptr(aTHX))
+#undef  PL_utf8_tofold
+#define PL_utf8_tofold		(*Perl_Iutf8_tofold_ptr(aTHX))
 #undef  PL_utf8_tolower
 #define PL_utf8_tolower		(*Perl_Iutf8_tolower_ptr(aTHX))
 #undef  PL_utf8_totitle
@@ -577,6 +584,8 @@ END_EXTERN_C
 #define PL_utf8_xdigit		(*Perl_Iutf8_xdigit_ptr(aTHX))
 #undef  PL_uudmap
 #define PL_uudmap		(*Perl_Iuudmap_ptr(aTHX))
+#undef  PL_wantutf8
+#define PL_wantutf8		(*Perl_Iwantutf8_ptr(aTHX))
 #undef  PL_warnhook
 #define PL_warnhook		(*Perl_Iwarnhook_ptr(aTHX))
 #undef  PL_widesyscalls
@@ -719,6 +728,8 @@ END_EXTERN_C
 #define PL_modcount		(*Perl_Tmodcount_ptr(aTHX))
 #undef  PL_na
 #define PL_na			(*Perl_Tna_ptr(aTHX))
+#undef  PL_nrs
+#define PL_nrs			(*Perl_Tnrs_ptr(aTHX))
 #undef  PL_ofs_sv
 #define PL_ofs_sv		(*Perl_Tofs_sv_ptr(aTHX))
 #undef  PL_op
@@ -905,8 +916,6 @@ END_EXTERN_C
 #define PL_top_env		(*Perl_Ttop_env_ptr(aTHX))
 #undef  PL_toptarget
 #define PL_toptarget		(*Perl_Ttoptarget_ptr(aTHX))
-#undef  PL_unused_1
-#define PL_unused_1		(*Perl_Tunused_1_ptr(aTHX))
 #undef  PL_watchaddr
 #define PL_watchaddr		(*Perl_Twatchaddr_ptr(aTHX))
 #undef  PL_watchok
@@ -921,18 +930,28 @@ END_EXTERN_C
 #define PL_do_undump		(*Perl_Gdo_undump_ptr(NULL))
 #undef  PL_hexdigit
 #define PL_hexdigit		(*Perl_Ghexdigit_ptr(NULL))
+#undef  PL_lockhook
+#define PL_lockhook		(*Perl_Glockhook_ptr(NULL))
 #undef  PL_malloc_mutex
 #define PL_malloc_mutex		(*Perl_Gmalloc_mutex_ptr(NULL))
 #undef  PL_op_mutex
 #define PL_op_mutex		(*Perl_Gop_mutex_ptr(NULL))
 #undef  PL_patleave
 #define PL_patleave		(*Perl_Gpatleave_ptr(NULL))
-#undef  PL_sharedsv_space
-#define PL_sharedsv_space	(*Perl_Gsharedsv_space_ptr(NULL))
-#undef  PL_sharedsv_space_mutex
-#define PL_sharedsv_space_mutex	(*Perl_Gsharedsv_space_mutex_ptr(NULL))
+#undef  PL_ppid
+#define PL_ppid			(*Perl_Gppid_ptr(NULL))
+#undef  PL_runops_dbg
+#define PL_runops_dbg		(*Perl_Grunops_dbg_ptr(NULL))
+#undef  PL_runops_std
+#define PL_runops_std		(*Perl_Grunops_std_ptr(NULL))
+#undef  PL_sharehook
+#define PL_sharehook		(*Perl_Gsharehook_ptr(NULL))
 #undef  PL_thr_key
 #define PL_thr_key		(*Perl_Gthr_key_ptr(NULL))
+#undef  PL_threadhook
+#define PL_threadhook		(*Perl_Gthreadhook_ptr(NULL))
+#undef  PL_unlockhook
+#define PL_unlockhook		(*Perl_Gunlockhook_ptr(NULL))
 
 #endif /* !PERL_CORE */
 #endif /* MULTIPLICITY */