perlapi.h

来自「MSYS在windows下模拟了一个类unix的终端」· C头文件 代码 · 共 927 行 · 第 1/3 页

/* !!!!!!!   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__
#define __perlapi_h__

#if defined(PERL_OBJECT) || defined (MULTIPLICITY)

#if defined(PERL_OBJECT)
#  undef  aTHXo
#  define aTHXo			pPerl
#  undef  aTHXo_
#  define aTHXo_		aTHXo,
#endif /* PERL_OBJECT */

START_EXTERN_C

#undef PERLVAR
#undef PERLVARA
#undef PERLVARI
#undef PERLVARIC
#define PERLVAR(v,t)	EXTERN_C t* Perl_##v##_ptr(pTHXo);
#define PERLVARA(v,n,t)	typedef t PL_##v##_t[n];			\
			EXTERN_C PL_##v##_t* Perl_##v##_ptr(pTHXo);
#define PERLVARI(v,t,i)	PERLVAR(v,t)
#define PERLVARIC(v,t,i) PERLVAR(v, const t)

#include "thrdvar.h"
#include "intrpvar.h"
#include "perlvars.h"

#undef PERLVAR
#undef PERLVARA
#undef PERLVARI
#undef PERLVARIC

END_EXTERN_C

#if defined(PERL_CORE)

/* accessor functions for Perl variables (provide binary compatibility) */

/* these need to be mentioned here, or most linkers won't put them in
   the perl executable */

#ifndef PERL_NO_FORCE_LINK

START_EXTERN_C

#ifndef DOINIT
EXT void *PL_force_link_funcs[];
#else
EXT void *PL_force_link_funcs[] = {
#undef PERLVAR
#undef PERLVARA
#undef PERLVARI
#undef PERLVARIC
#define PERLVAR(v,t)	(void*)Perl_##v##_ptr,
#define PERLVARA(v,n,t)	PERLVAR(v,t)
#define PERLVARI(v,t,i)	PERLVAR(v,t)
#define PERLVARIC(v,t,i) PERLVAR(v,t)

#include "thrdvar.h"
#include "intrpvar.h"
#include "perlvars.h"

#undef PERLVAR
#undef PERLVARA
#undef PERLVARI
#undef PERLVARIC
};
#endif	/* DOINIT */

START_EXTERN_C

#endif	/* PERL_NO_FORCE_LINK */

#else	/* !PERL_CORE */

#undef  PL_Argv
#define PL_Argv			(*Perl_IArgv_ptr(aTHXo))
#undef  PL_Cmd
#define PL_Cmd			(*Perl_ICmd_ptr(aTHXo))
#undef  PL_DBcv
#define PL_DBcv			(*Perl_IDBcv_ptr(aTHXo))
#undef  PL_DBgv
#define PL_DBgv			(*Perl_IDBgv_ptr(aTHXo))
#undef  PL_DBline
#define PL_DBline		(*Perl_IDBline_ptr(aTHXo))
#undef  PL_DBsignal
#define PL_DBsignal		(*Perl_IDBsignal_ptr(aTHXo))
#undef  PL_DBsingle
#define PL_DBsingle		(*Perl_IDBsingle_ptr(aTHXo))
#undef  PL_DBsub
#define PL_DBsub		(*Perl_IDBsub_ptr(aTHXo))
#undef  PL_DBtrace
#define PL_DBtrace		(*Perl_IDBtrace_ptr(aTHXo))
#undef  PL_Dir
#define PL_Dir			(*Perl_IDir_ptr(aTHXo))
#undef  PL_Env
#define PL_Env			(*Perl_IEnv_ptr(aTHXo))
#undef  PL_LIO
#define PL_LIO			(*Perl_ILIO_ptr(aTHXo))
#undef  PL_Mem
#define PL_Mem			(*Perl_IMem_ptr(aTHXo))
#undef  PL_MemParse
#define PL_MemParse		(*Perl_IMemParse_ptr(aTHXo))
#undef  PL_MemShared
#define PL_MemShared		(*Perl_IMemShared_ptr(aTHXo))
#undef  PL_Proc
#define PL_Proc			(*Perl_IProc_ptr(aTHXo))
#undef  PL_Sock
#define PL_Sock			(*Perl_ISock_ptr(aTHXo))
#undef  PL_StdIO
#define PL_StdIO		(*Perl_IStdIO_ptr(aTHXo))
#undef  PL_amagic_generation
#define PL_amagic_generation	(*Perl_Iamagic_generation_ptr(aTHXo))
#undef  PL_an
#define PL_an			(*Perl_Ian_ptr(aTHXo))
#undef  PL_argvgv
#define PL_argvgv		(*Perl_Iargvgv_ptr(aTHXo))
#undef  PL_argvout_stack
#define PL_argvout_stack	(*Perl_Iargvout_stack_ptr(aTHXo))
#undef  PL_argvoutgv
#define PL_argvoutgv		(*Perl_Iargvoutgv_ptr(aTHXo))
#undef  PL_basetime
#define PL_basetime		(*Perl_Ibasetime_ptr(aTHXo))
#undef  PL_beginav
#define PL_beginav		(*Perl_Ibeginav_ptr(aTHXo))
#undef  PL_beginav_save
#define PL_beginav_save		(*Perl_Ibeginav_save_ptr(aTHXo))
#undef  PL_bitcount
#define PL_bitcount		(*Perl_Ibitcount_ptr(aTHXo))
#undef  PL_bufend
#define PL_bufend		(*Perl_Ibufend_ptr(aTHXo))
#undef  PL_bufptr
#define PL_bufptr		(*Perl_Ibufptr_ptr(aTHXo))
#undef  PL_checkav
#define PL_checkav		(*Perl_Icheckav_ptr(aTHXo))
#undef  PL_collation_ix
#define PL_collation_ix		(*Perl_Icollation_ix_ptr(aTHXo))
#undef  PL_collation_name
#define PL_collation_name	(*Perl_Icollation_name_ptr(aTHXo))
#undef  PL_collation_standard
#define PL_collation_standard	(*Perl_Icollation_standard_ptr(aTHXo))
#undef  PL_collxfrm_base
#define PL_collxfrm_base	(*Perl_Icollxfrm_base_ptr(aTHXo))
#undef  PL_collxfrm_mult
#define PL_collxfrm_mult	(*Perl_Icollxfrm_mult_ptr(aTHXo))
#undef  PL_compcv
#define PL_compcv		(*Perl_Icompcv_ptr(aTHXo))
#undef  PL_compiling
#define PL_compiling		(*Perl_Icompiling_ptr(aTHXo))
#undef  PL_comppad
#define PL_comppad		(*Perl_Icomppad_ptr(aTHXo))
#undef  PL_comppad_name
#define PL_comppad_name		(*Perl_Icomppad_name_ptr(aTHXo))
#undef  PL_comppad_name_fill
#define PL_comppad_name_fill	(*Perl_Icomppad_name_fill_ptr(aTHXo))
#undef  PL_comppad_name_floor
#define PL_comppad_name_floor	(*Perl_Icomppad_name_floor_ptr(aTHXo))
#undef  PL_cop_seqmax
#define PL_cop_seqmax		(*Perl_Icop_seqmax_ptr(aTHXo))
#undef  PL_copline
#define PL_copline		(*Perl_Icopline_ptr(aTHXo))
#undef  PL_cred_mutex
#define PL_cred_mutex		(*Perl_Icred_mutex_ptr(aTHXo))
#undef  PL_cryptseen
#define PL_cryptseen		(*Perl_Icryptseen_ptr(aTHXo))
#undef  PL_cshlen
#define PL_cshlen		(*Perl_Icshlen_ptr(aTHXo))
#undef  PL_cshname
#define PL_cshname		(*Perl_Icshname_ptr(aTHXo))
#undef  PL_curcopdb
#define PL_curcopdb		(*Perl_Icurcopdb_ptr(aTHXo))
#undef  PL_curstname
#define PL_curstname		(*Perl_Icurstname_ptr(aTHXo))
#undef  PL_curthr
#define PL_curthr		(*Perl_Icurthr_ptr(aTHXo))
#undef  PL_dbargs
#define PL_dbargs		(*Perl_Idbargs_ptr(aTHXo))
#undef  PL_debstash
#define PL_debstash		(*Perl_Idebstash_ptr(aTHXo))
#undef  PL_debug
#define PL_debug		(*Perl_Idebug_ptr(aTHXo))
#undef  PL_defgv
#define PL_defgv		(*Perl_Idefgv_ptr(aTHXo))
#undef  PL_diehook
#define PL_diehook		(*Perl_Idiehook_ptr(aTHXo))
#undef  PL_doextract
#define PL_doextract		(*Perl_Idoextract_ptr(aTHXo))
#undef  PL_doswitches
#define PL_doswitches		(*Perl_Idoswitches_ptr(aTHXo))
#undef  PL_dowarn
#define PL_dowarn		(*Perl_Idowarn_ptr(aTHXo))
#undef  PL_dummy1_bincompat
#define PL_dummy1_bincompat	(*Perl_Idummy1_bincompat_ptr(aTHXo))
#undef  PL_e_script
#define PL_e_script		(*Perl_Ie_script_ptr(aTHXo))
#undef  PL_egid
#define PL_egid			(*Perl_Iegid_ptr(aTHXo))
#undef  PL_endav
#define PL_endav		(*Perl_Iendav_ptr(aTHXo))
#undef  PL_envgv
#define PL_envgv		(*Perl_Ienvgv_ptr(aTHXo))
#undef  PL_errgv
#define PL_errgv		(*Perl_Ierrgv_ptr(aTHXo))
#undef  PL_error_count
#define PL_error_count		(*Perl_Ierror_count_ptr(aTHXo))
#undef  PL_euid
#define PL_euid			(*Perl_Ieuid_ptr(aTHXo))
#undef  PL_eval_cond
#define PL_eval_cond		(*Perl_Ieval_cond_ptr(aTHXo))
#undef  PL_eval_mutex
#define PL_eval_mutex		(*Perl_Ieval_mutex_ptr(aTHXo))
#undef  PL_eval_owner
#define PL_eval_owner		(*Perl_Ieval_owner_ptr(aTHXo))
#undef  PL_eval_root
#define PL_eval_root		(*Perl_Ieval_root_ptr(aTHXo))
#undef  PL_eval_start
#define PL_eval_start		(*Perl_Ieval_start_ptr(aTHXo))
#undef  PL_evalseq
#define PL_evalseq		(*Perl_Ievalseq_ptr(aTHXo))
#undef  PL_exit_flags
#define PL_exit_flags		(*Perl_Iexit_flags_ptr(aTHXo))
#undef  PL_exitlist
#define PL_exitlist		(*Perl_Iexitlist_ptr(aTHXo))
#undef  PL_exitlistlen
#define PL_exitlistlen		(*Perl_Iexitlistlen_ptr(aTHXo))
#undef  PL_expect
#define PL_expect		(*Perl_Iexpect_ptr(aTHXo))
#undef  PL_fdpid
#define PL_fdpid		(*Perl_Ifdpid_ptr(aTHXo))
#undef  PL_fdpid_mutex
#define PL_fdpid_mutex		(*Perl_Ifdpid_mutex_ptr(aTHXo))
#undef  PL_filemode
#define PL_filemode		(*Perl_Ifilemode_ptr(aTHXo))
#undef  PL_forkprocess
#define PL_forkprocess		(*Perl_Iforkprocess_ptr(aTHXo))
#undef  PL_formfeed
#define PL_formfeed		(*Perl_Iformfeed_ptr(aTHXo))
#undef  PL_generation
#define PL_generation		(*Perl_Igeneration_ptr(aTHXo))
#undef  PL_gensym
#define PL_gensym		(*Perl_Igensym_ptr(aTHXo))
#undef  PL_gid
#define PL_gid			(*Perl_Igid_ptr(aTHXo))
#undef  PL_glob_index
#define PL_glob_index		(*Perl_Iglob_index_ptr(aTHXo))
#undef  PL_globalstash
#define PL_globalstash		(*Perl_Iglobalstash_ptr(aTHXo))
#undef  PL_he_arenaroot
#define PL_he_arenaroot		(*Perl_Ihe_arenaroot_ptr(aTHXo))
#undef  PL_he_root
#define PL_he_root		(*Perl_Ihe_root_ptr(aTHXo))
#undef  PL_hintgv
#define PL_hintgv		(*Perl_Ihintgv_ptr(aTHXo))
#undef  PL_hints
#define PL_hints		(*Perl_Ihints_ptr(aTHXo))
#undef  PL_in_clean_all
#define PL_in_clean_all		(*Perl_Iin_clean_all_ptr(aTHXo))
#undef  PL_in_clean_objs
#define PL_in_clean_objs	(*Perl_Iin_clean_objs_ptr(aTHXo))
#undef  PL_in_my
#define PL_in_my		(*Perl_Iin_my_ptr(aTHXo))
#undef  PL_in_my_stash
#define PL_in_my_stash		(*Perl_Iin_my_stash_ptr(aTHXo))
#undef  PL_incgv
#define PL_incgv		(*Perl_Iincgv_ptr(aTHXo))
#undef  PL_initav
#define PL_initav		(*Perl_Iinitav_ptr(aTHXo))
#undef  PL_inplace
#define PL_inplace		(*Perl_Iinplace_ptr(aTHXo))
#undef  PL_last_lop
#define PL_last_lop		(*Perl_Ilast_lop_ptr(aTHXo))
#undef  PL_last_lop_op
#define PL_last_lop_op		(*Perl_Ilast_lop_op_ptr(aTHXo))
#undef  PL_last_swash_hv
#define PL_last_swash_hv	(*Perl_Ilast_swash_hv_ptr(aTHXo))
#undef  PL_last_swash_key
#define PL_last_swash_key	(*Perl_Ilast_swash_key_ptr(aTHXo))
#undef  PL_last_swash_klen
#define PL_last_swash_klen	(*Perl_Ilast_swash_klen_ptr(aTHXo))
#undef  PL_last_swash_slen
#define PL_last_swash_slen	(*Perl_Ilast_swash_slen_ptr(aTHXo))
#undef  PL_last_swash_tmps
#define PL_last_swash_tmps	(*Perl_Ilast_swash_tmps_ptr(aTHXo))
#undef  PL_last_uni
#define PL_last_uni		(*Perl_Ilast_uni_ptr(aTHXo))
#undef  PL_lastfd
#define PL_lastfd		(*Perl_Ilastfd_ptr(aTHXo))
#undef  PL_laststatval
#define PL_laststatval		(*Perl_Ilaststatval_ptr(aTHXo))
#undef  PL_laststype
#define PL_laststype		(*Perl_Ilaststype_ptr(aTHXo))
#undef  PL_lex_brackets
#define PL_lex_brackets		(*Perl_Ilex_brackets_ptr(aTHXo))
#undef  PL_lex_brackstack
#define PL_lex_brackstack	(*Perl_Ilex_brackstack_ptr(aTHXo))
#undef  PL_lex_casemods
#define PL_lex_casemods		(*Perl_Ilex_casemods_ptr(aTHXo))
#undef  PL_lex_casestack
#define PL_lex_casestack	(*Perl_Ilex_casestack_ptr(aTHXo))
#undef  PL_lex_defer
#define PL_lex_defer		(*Perl_Ilex_defer_ptr(aTHXo))
#undef  PL_lex_dojoin