perl

 view release on metacpan or  search on metacpan

embed.h  view on Meta::CPAN

#     define newGIVWHENOP(a,b,c,d,e)            S_newGIVWHENOP(aTHX_ a,b,c,d,e)
#     define newMETHOP_internal(a,b,c,d)        S_newMETHOP_internal(aTHX_ a,b,c,d)
#     define new_logop(a,b,c,d)                 S_new_logop(aTHX_ a,b,c,d)
#     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)
#   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)

embed.h  view on Meta::CPAN

#     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 _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 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 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 ptr_hash                           S_ptr_hash
#     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(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
# endif /* defined(PERL_CORE) */
# if defined(PERL_CORE) || defined(PERL_EXT)
#   define _byte_dump_string(a,b,c)             Perl__byte_dump_string(aTHX_ a,b,c)
#   define _inverse_folds(a,b,c)                Perl__inverse_folds(aTHX_ a,b,c)
#   define append_utf8_from_native_byte         Perl_append_utf8_from_native_byte
#   define av_reify(a)                          Perl_av_reify(aTHX_ a)
#   define cntrl_to_mnemonic                    Perl_cntrl_to_mnemonic
#   define current_re_engine()                  Perl_current_re_engine(aTHX)
#   define cv_ckproto_len_flags(a,b,c,d,e)      Perl_cv_ckproto_len_flags(aTHX_ a,b,c,d,e)
#   define delimcpy_no_escape                   Perl_delimcpy_no_escape
#   define do_uniprop_match                     Perl_do_uniprop_match
#   define get_and_check_backslash_N_name(a,b,c,d) Perl_get_and_check_backslash_N_name(aTHX_ a,b,c,d)
#   define get_deprecated_property_msg          Perl_get_deprecated_property_msg
#   define get_prop_definition(a)               Perl_get_prop_definition(aTHX_ a)
#   define get_prop_values                      Perl_get_prop_values
#   define load_charnames(a,b,c,d)              Perl_load_charnames(aTHX_ a,b,c,d)
#   define mbtowc_(a,b,c)                       Perl_mbtowc_(aTHX_ a,b,c)
#   define mg_find_mglob(a)                     Perl_mg_find_mglob(aTHX_ a)
#   define multiconcat_stringify(a)             Perl_multiconcat_stringify(aTHX_ a)
#   define multideref_stringify(a,b)            Perl_multideref_stringify(aTHX_ a,b)
#   define op_clear(a)                          Perl_op_clear(aTHX_ a)
#   define qerror(a)                            Perl_qerror(aTHX_ a)
#   define reg_named_buff(a,b,c,d)              Perl_reg_named_buff(aTHX_ a,b,c,d)
#   define reg_named_buff_iter(a,b,c)           Perl_reg_named_buff_iter(aTHX_ a,b,c)
#   define reg_numbered_buff_fetch(a,b,c)       Perl_reg_numbered_buff_fetch(aTHX_ a,b,c)
#   define reg_numbered_buff_fetch_flags(a,b,c,d) Perl_reg_numbered_buff_fetch_flags(aTHX_ a,b,c,d)
#   define reg_numbered_buff_length(a,b,c)      Perl_reg_numbered_buff_length(aTHX_ a,b,c)
#   define reg_numbered_buff_store(a,b,c)       Perl_reg_numbered_buff_store(aTHX_ a,b,c)
#   define reg_qr_package(a)                    Perl_reg_qr_package(aTHX_ a)
#   define reg_temp_copy(a,b)                   Perl_reg_temp_copy(aTHX_ a,b)
#   define report_uninit(a)                     Perl_report_uninit(aTHX_ a)
#   define scan_str(a,b,c,d,e)                  Perl_scan_str(aTHX_ a,b,c,d,e)
#   define scan_word(a,b,c,d,e)                 Perl_scan_word(aTHX_ a,b,c,d,e)
#   define skipspace_flags(a,b)                 Perl_skipspace_flags(aTHX_ a,b)
#   define sv_magicext_mglob(a)                 Perl_sv_magicext_mglob(aTHX_ a)
#   define sv_only_taint_gmagic                 Perl_sv_only_taint_gmagic
#   define utf16_to_utf8_base(a,b,c,d,e,f)      Perl_utf16_to_utf8_base(aTHX_ a,b,c,d,e,f)
#   define utf8_to_utf16_base(a,b,c,d,e,f)      Perl_utf8_to_utf16_base(aTHX_ a,b,c,d,e,f)
#   define validate_proto(a,b,c,d)              Perl_validate_proto(aTHX_ a,b,c,d)
#   define vivify_defelem(a)                    Perl_vivify_defelem(aTHX_ a)
#   define yylex()                              Perl_yylex(aTHX)



( run in 0.983 second using v1.01-cache-2.11-cpan-5511b514fd6 )