This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
One-argument syswrite
[perl5.git] / perlapi.h
index 355bf6f..693689f 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -1,7 +1,16 @@
-/* !!!!!!!   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.pl, pp.sym, intrpvar.h,
+ *  perlvars.h and thrdvar.h.  Any changes made here will be lost!
+ */
 
 /* declare accessor functions for Perl variables */
 #ifndef __perlapi_h__
@@ -103,6 +112,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
@@ -183,6 +198,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 +216,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
@@ -269,6 +290,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
@@ -437,6 +460,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 +504,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
@@ -525,6 +552,8 @@ END_EXTERN_C
 #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
@@ -555,6 +584,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 +598,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 +612,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
@@ -745,6 +782,8 @@ END_EXTERN_C
 #define PL_reg_leftiter                (*Perl_Treg_leftiter_ptr(aTHX))
 #undef  PL_reg_magic
 #define PL_reg_magic           (*Perl_Treg_magic_ptr(aTHX))
+#undef  PL_reg_match_utf8
+#define PL_reg_match_utf8      (*Perl_Treg_match_utf8_ptr(aTHX))
 #undef  PL_reg_maxiter
 #define PL_reg_maxiter         (*Perl_Treg_maxiter_ptr(aTHX))
 #undef  PL_reg_oldcurpm
@@ -769,8 +808,6 @@ END_EXTERN_C
 #define PL_reg_starttry                (*Perl_Treg_starttry_ptr(aTHX))
 #undef  PL_reg_sv
 #define PL_reg_sv              (*Perl_Treg_sv_ptr(aTHX))
-#undef  PL_reg_sv_utf8
-#define PL_reg_sv_utf8         (*Perl_Treg_sv_utf8_ptr(aTHX))
 #undef  PL_reg_whilem_seen
 #define PL_reg_whilem_seen     (*Perl_Treg_whilem_seen_ptr(aTHX))
 #undef  PL_regbol
@@ -921,14 +958,26 @@ 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_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 */