perl
view release on metacpan or search on metacpan
# define no_fh_allowed(a) S_no_fh_allowed(aTHX_ a)
# define op_integerize(a) S_op_integerize(aTHX_ a)
# define op_std_init(a) S_op_std_init(aTHX_ a)
# define opslab_slot_offset S_opslab_slot_offset
# define pmtrans(a,b,c) S_pmtrans(aTHX_ a,b,c)
# define process_special_blocks(a,b,c,d) S_process_special_blocks(aTHX_ a,b,c,d)
# define ref_array_or_hash(a) S_ref_array_or_hash(aTHX_ a)
# define refkids(a,b) S_refkids(aTHX_ a,b)
# define scalar_mod_type S_scalar_mod_type
# define scalarboolean(a) S_scalarboolean(aTHX_ a)
# define scalarkids(a) S_scalarkids(aTHX_ a)
# define search_const(a) S_search_const(aTHX_ a)
# define simplify_sort(a) S_simplify_sort(aTHX_ a)
# define size_to_psize S_size_to_psize
# define too_few_arguments_pv(a,b,c) S_too_few_arguments_pv(aTHX_ a,b,c)
# define too_many_arguments_pv(a,b,c) S_too_many_arguments_pv(aTHX_ a,b,c)
# define voidnonfinal(a) S_voidnonfinal(aTHX_ a)
# if defined(DEBUGGING)
# define get_displayable_tr_operand(a,b,c) S_get_displayable_tr_operand(aTHX_ a,b,c)
# endif
# endif /* defined(PERL_IN_OP_C) */
# if defined(PERL_IN_OP_C) || defined(PERL_IN_PAD_C)
# define PadnameIN_SCOPE S_PadnameIN_SCOPE
# endif
# if defined(PERL_IN_OP_C) || defined(PERL_IN_PEEP_C)
# define check_hash_fields_and_hekify(a,b,c) Perl_check_hash_fields_and_hekify(aTHX_ a,b,c)
# define no_bareword_allowed(a) Perl_no_bareword_allowed(aTHX_ a)
# define op_prune_chain_head Perl_op_prune_chain_head
# define op_varname(a) Perl_op_varname(aTHX_ a)
# define warn_elem_scalar_context(a,b,c,d) Perl_warn_elem_scalar_context(aTHX_ a,b,c,d)
# endif
# if defined(PERL_IN_OP_C) || defined(PERL_IN_SV_C)
# define report_redefined_cv(a,b,c) Perl_report_redefined_cv(aTHX_ a,b,c)
# define varname(a,b,c,d,e,f) Perl_varname(aTHX_ a,b,c,d,e,f)
# endif
# if defined(PERL_IN_PAD_C)
# define pad_alloc_name(a,b,c,d) S_pad_alloc_name(aTHX_ a,b,c,d)
# define pad_check_dup(a,b,c) S_pad_check_dup(aTHX_ a,b,c)
# define pad_findlex(a,b,c,d,e,f,g,h,i) S_pad_findlex(aTHX_ a,b,c,d,e,f,g,h,i)
# define pad_reset() S_pad_reset(aTHX)
# if defined(DEBUGGING)
# define cv_dump(a,b) S_cv_dump(aTHX_ a,b)
# endif
# endif
# if defined(PERL_IN_PEEP_C)
# define finalize_op(a) S_finalize_op(aTHX_ a)
# define optimize_op(a) S_optimize_op(aTHX_ a)
# define traverse_op_tree(a,b) S_traverse_op_tree(aTHX_ a,b)
# endif
# if defined(PERL_IN_PERL_C)
# define find_beginning(a,b) S_find_beginning(aTHX_ a,b)
# define forbid_setid(a,b) S_forbid_setid(aTHX_ a,b)
# define incpush(a,b,c) S_incpush(aTHX_ a,b,c)
# define incpush_use_sep(a,b,c) S_incpush_use_sep(aTHX_ a,b,c)
# define init_ids() S_init_ids(aTHX)
# define init_interp() S_init_interp(aTHX)
# define init_main_stash() S_init_main_stash(aTHX)
# define init_perllib() S_init_perllib(aTHX)
# define init_postdump_symbols(a,b,c) S_init_postdump_symbols(aTHX_ a,b,c)
# define init_predump_symbols() S_init_predump_symbols(aTHX)
# define mayberelocate(a,b,c) S_mayberelocate(aTHX_ a,b,c)
# define minus_v() S_minus_v(aTHX)
# define my_exit_jump() S_my_exit_jump(aTHX)
# define nuke_stacks() S_nuke_stacks(aTHX)
# define open_script(a,b,c) S_open_script(aTHX_ a,b,c)
# define parse_body(a,b) S_parse_body(aTHX_ a,b)
# define run_body(a) S_run_body(aTHX_ a)
# define usage() S_usage(aTHX)
# if !defined(PERL_IS_MINIPERL)
# define incpush_if_exists(a,b,c) S_incpush_if_exists(aTHX_ a,b,c)
# endif
# endif /* defined(PERL_IN_PERL_C) */
# if defined(PERL_IN_PP_C)
# define do_chomp(a,b,c) S_do_chomp(aTHX_ a,b,c)
# define do_delete_local() S_do_delete_local(aTHX)
# define refto(a) S_refto(aTHX_ a)
# endif
# if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C)
# define lossless_NV_to_IV S_lossless_NV_to_IV
# endif
# if defined(PERL_IN_PP_C) || defined(PERL_IN_UTF8_C)
# define to_upper_title_latin1_(a,b,c,d) Perl_to_upper_title_latin1_(aTHX_ a,b,c,d)
# endif
# if defined(PERL_IN_PP_CTL_C)
# define check_type_and_open(a) S_check_type_and_open(aTHX_ a)
# define destroy_matcher(a) S_destroy_matcher(aTHX_ a)
# define do_smartmatch(a,b,c) S_do_smartmatch(aTHX_ a,b,c)
# define docatch(a) S_docatch(aTHX_ a)
# define doeval_compile(a,b,c,d) S_doeval_compile(aTHX_ a,b,c,d)
# define dofindlabel(a,b,c,d,e,f) S_dofindlabel(aTHX_ a,b,c,d,e,f)
# define doparseform(a) S_doparseform(aTHX_ a)
# define dopoptoeval(a) S_dopoptoeval(aTHX_ a)
# define dopoptogivenfor(a) S_dopoptogivenfor(aTHX_ a)
# define dopoptolabel(a,b,c) S_dopoptolabel(aTHX_ a,b,c)
# define dopoptoloop(a) S_dopoptoloop(aTHX_ a)
# define dopoptosub_at(a,b) S_dopoptosub_at(aTHX_ a,b)
# define dopoptowhen(a) S_dopoptowhen(aTHX_ a)
# define make_matcher(a) S_make_matcher(aTHX_ a)
# define matcher_matches_sv(a,b) S_matcher_matches_sv(aTHX_ a,b)
# define num_overflow S_num_overflow
# define path_is_searchable S_path_is_searchable
# define run_user_filter(a,b,c) S_run_user_filter(aTHX_ a,b,c)
# define rxres_free(a) S_rxres_free(aTHX_ a)
# define rxres_restore(a,b) S_rxres_restore(aTHX_ a,b)
# define save_lines(a,b) S_save_lines(aTHX_ a,b)
# if !defined(PERL_DISABLE_PMC)
# define doopen_pm(a) S_doopen_pm(aTHX_ a)
# endif
# endif /* defined(PERL_IN_PP_CTL_C) */
# if defined(PERL_IN_PP_CTL_C) || defined(PERL_IN_UTIL_C)
# define invoke_exception_hook(a,b) Perl_invoke_exception_hook(aTHX_ a,b)
# endif
# if defined(PERL_IN_PP_HOT_C)
# define do_oddball(a,b) S_do_oddball(aTHX_ a,b)
# define opmethod_stash(a) S_opmethod_stash(aTHX_ a)
# define should_we_output_Debug_r(a) S_should_we_output_Debug_r(aTHX_ a)
# endif
# if defined(PERL_IN_PP_PACK_C)
# define div128(a,b) S_div128(aTHX_ a,b)
# define first_symbol S_first_symbol
# define get_num(a,b) S_get_num(aTHX_ a,b)
# define yyerror_non_ascii_message(a) S_yyerror_non_ascii_message(aTHX_ a)
# define yywarn(a,b) S_yywarn(aTHX_ a,b)
# if defined(DEBUGGING)
# define printbuf(a,b) S_printbuf(aTHX_ a,b)
# define tokereport(a,b) S_tokereport(aTHX_ a,b)
# endif
# if !defined(PERL_NO_UTF16_FILTER)
# define add_utf16_textfilter(a,b) S_add_utf16_textfilter(aTHX_ a,b)
# define utf16_textfilter(a,b,c) S_utf16_textfilter(aTHX_ a,b,c)
# endif
# endif /* defined(PERL_IN_TOKE_C) */
# if defined(PERL_IN_UNIVERSAL_C)
# define isa_lookup(a,b,c,d,e) S_isa_lookup(aTHX_ a,b,c,d,e)
# define sv_derived_from_svpvn(a,b,c,d,e) S_sv_derived_from_svpvn(aTHX_ a,b,c,d,e)
# endif
# if defined(PERL_IN_UTF8_C)
# define check_locale_boundary_crossing(a,b,c,d) S_check_locale_boundary_crossing(aTHX_ a,b,c,d)
# define does_utf8_overflow S_does_utf8_overflow
# define isFF_overlong S_isFF_overlong
# define is_utf8_overlong S_is_utf8_overlong
# define new_msg_hv(a,b,c) S_new_msg_hv(aTHX_ a,b,c)
# define to_case_cp_list(a,b,c,d,e,f,g,h) S_to_case_cp_list(aTHX_ a,b,c,d,e,f,g,h)
# define to_lower_latin1 S_to_lower_latin1
# define to_utf8_case_(a,b,c,d,e,f,g,h,i) S_to_utf8_case_(aTHX_ a,b,c,d,e,f,g,h,i)
# define turkic_fc(a,b,c,d) S_turkic_fc(aTHX_ a,b,c,d)
# define turkic_lc(a,b,c,d) S_turkic_lc(aTHX_ a,b,c,d)
# define turkic_uc(a,b,c,d) S_turkic_uc(aTHX_ a,b,c,d)
# define unexpected_non_continuation_text(a,b,c,d) S_unexpected_non_continuation_text(aTHX_ a,b,c,d)
# if 0
# define warn_on_first_deprecated_use(a,b,c,d,e,f) S_warn_on_first_deprecated_use(aTHX_ a,b,c,d,e,f)
# endif
# endif /* defined(PERL_IN_UTF8_C) */
# if defined(PERL_IN_UTIL_C)
# define ckwarn_common(a) S_ckwarn_common(aTHX_ a)
# define mess_alloc() S_mess_alloc(aTHX)
# define with_queued_errors(a) S_with_queued_errors(aTHX_ a)
# if defined(PERL_MEM_LOG) && !defined(PERL_MEM_LOG_NOIMPL)
# define mem_log_common S_mem_log_common
# endif
# if defined(PERL_USES_PL_PIDSTATUS)
# define pidgone(a,b) S_pidgone(aTHX_ a,b)
# endif
# endif /* defined(PERL_IN_UTIL_C) */
# if defined(PERL_USE_3ARG_SIGHANDLER)
# define sighandler Perl_sighandler
# else
# define sighandler Perl_sighandler
# endif
# if defined(USE_C_BACKTRACE)
# define get_c_backtrace(a,b) Perl_get_c_backtrace(aTHX_ a,b)
# endif
# if defined(USE_ITHREADS)
# define mro_meta_dup(a,b) Perl_mro_meta_dup(aTHX_ a,b)
# define padlist_dup(a,b) Perl_padlist_dup(aTHX_ a,b)
# define padname_dup(a,b) Perl_padname_dup(aTHX_ a,b)
# define padnamelist_dup(a,b) Perl_padnamelist_dup(aTHX_ a,b)
# if !defined(PERL_IMPLICIT_SYS)
# define PerlEnv_putenv(a) S_PerlEnv_putenv(aTHX_ a)
# endif
# if defined(PERL_IN_OP_C) || defined(PERL_IN_PEEP_C)
# define op_relocate_sv(a,b) Perl_op_relocate_sv(aTHX_ a,b)
# endif
# endif /* defined(USE_ITHREADS) */
# if defined(USE_LOCALE_COLLATE)
# define magic_freecollxfrm(a,b) Perl_magic_freecollxfrm(aTHX_ a,b)
# define magic_setcollxfrm(a,b) Perl_magic_setcollxfrm(aTHX_ a,b)
# endif
# if defined(USE_PERLIO)
# define PerlIO_restore_errno(a) Perl_PerlIO_restore_errno(aTHX_ a)
# define PerlIO_save_errno(a) Perl_PerlIO_save_errno(aTHX_ a)
# endif
# if defined(USE_QUADMATH)
# define quadmath_format_needed Perl_quadmath_format_needed
# define quadmath_format_valid Perl_quadmath_format_valid
# endif
# if defined(USE_THREADS)
# define Perl_sv_2num(mTHX,a) sv_2num(a)
# else
# define Perl_sv_2num(a) sv_2num(a)
# endif
# if defined(WIN32)
# define get_win32_message_utf8ness(a) Perl_get_win32_message_utf8ness(aTHX_ a)
# else
# define do_exec3(a,b,c) Perl_do_exec3(aTHX_ a,b,c)
# endif
# else /* if !defined(PERL_CORE) */
/* Compatibility stubs. Compile extensions with -DPERL_NOCOMPAT to
* disable them.
*/
# define sv_setptrobj(rv,ptr,name) sv_setref_iv(rv,name,PTR2IV(ptr))
# define sv_setptrref(rv,ptr) sv_setref_iv(rv,NULL,PTR2IV(ptr))
# if !defined(PERL_NOCOMPAT)
/* Compatibility for this renamed function. */
# define perl_atexit(a,b) Perl_call_atexit(aTHX_ a,b)
/* Compatibility for these functions that had a 'perl_' prefix before
* 'Perl_' became the standard */
# define perl_call_argv(a,b,c) Perl_call_argv(aTHX_ a,b,c)
# define perl_call_method(a,b) Perl_call_method(aTHX_ a,b)
# define perl_call_pv(a,b) Perl_call_pv(aTHX_ a,b)
# define perl_call_sv(a,b) Perl_call_sv(aTHX_ a,b)
# define perl_eval_pv(a,b) Perl_eval_pv(aTHX_ a,b)
# define perl_eval_sv(a,b) Perl_eval_sv(aTHX_ a,b)
# define perl_get_av(a,b) Perl_get_av(aTHX_ a,b)
# define perl_get_cv(a,b) Perl_get_cv(aTHX_ a,b)
# define perl_get_hv(a,b) Perl_get_hv(aTHX_ a,b)
# define perl_get_sv(a,b) Perl_get_sv(aTHX_ a,b)
# define perl_init_i18nl10n(a) Perl_init_i18nl10n(aTHX_ a)
# define perl_require_pv(a) Perl_require_pv(aTHX_ a)
/* Before C99, macros could not wrap varargs functions. This
provides a set of compatibility functions that don't take an
extra argument but grab the context pointer using the macro dTHX.
*/
# if defined(MULTIPLICITY) && !defined(PERL_WANT_VARARGS)
# define deb Perl_deb_nocontext
# define form Perl_form_nocontext
# define load_module Perl_load_module_nocontext
# define mess Perl_mess_nocontext
( run in 0.592 second using v1.01-cache-2.11-cpan-84de2e75c66 )