embed.h

视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.

#ifdef PERL_CORE
#define sv_add_arena		Perl_sv_add_arena
#endif
#define sv_backoff		Perl_sv_backoff
#define sv_bless		Perl_sv_bless
#define sv_catpvf		Perl_sv_catpvf
#define sv_vcatpvf		Perl_sv_vcatpvf
#define sv_catpv		Perl_sv_catpv
#define sv_chop			Perl_sv_chop
#ifdef PERL_CORE
#define sv_clean_all		Perl_sv_clean_all
#define sv_clean_objs		Perl_sv_clean_objs
#endif
#define sv_clear		Perl_sv_clear
#define sv_cmp			Perl_sv_cmp
#define sv_cmp_locale		Perl_sv_cmp_locale
#if defined(USE_LOCALE_COLLATE)
#define sv_collxfrm		Perl_sv_collxfrm
#endif
#define sv_compile_2op		Perl_sv_compile_2op
#define getcwd_sv		Perl_getcwd_sv
#define sv_dec			Perl_sv_dec
#define sv_dump			Perl_sv_dump
#define sv_derived_from		Perl_sv_derived_from
#define sv_does			Perl_sv_does
#define sv_eq			Perl_sv_eq
#define sv_free			Perl_sv_free
#ifdef PERL_CORE
#define sv_free_arenas		Perl_sv_free_arenas
#endif
#define sv_gets			Perl_sv_gets
#define sv_grow			Perl_sv_grow
#define sv_inc			Perl_sv_inc
#define sv_insert		Perl_sv_insert
#define sv_isa			Perl_sv_isa
#define sv_isobject		Perl_sv_isobject
#define sv_len			Perl_sv_len
#define sv_len_utf8		Perl_sv_len_utf8
#define sv_magic		Perl_sv_magic
#define sv_magicext		Perl_sv_magicext
#define sv_mortalcopy		Perl_sv_mortalcopy
#define sv_newmortal		Perl_sv_newmortal
#define sv_newref		Perl_sv_newref
#define sv_peek			Perl_sv_peek
#define sv_pos_u2b		Perl_sv_pos_u2b
#define sv_pos_b2u		Perl_sv_pos_b2u
#define sv_pvutf8n_force	Perl_sv_pvutf8n_force
#define sv_pvbyten_force	Perl_sv_pvbyten_force
#define sv_recode_to_utf8	Perl_sv_recode_to_utf8
#define sv_cat_decode		Perl_sv_cat_decode
#define sv_reftype		Perl_sv_reftype
#define sv_replace		Perl_sv_replace
#define sv_report_used		Perl_sv_report_used
#define sv_reset		Perl_sv_reset
#define sv_setpvf		Perl_sv_setpvf
#define sv_vsetpvf		Perl_sv_vsetpvf
#define sv_setiv		Perl_sv_setiv
#define sv_setpviv		Perl_sv_setpviv
#define sv_setuv		Perl_sv_setuv
#define sv_setnv		Perl_sv_setnv
#define sv_setref_iv		Perl_sv_setref_iv
#define sv_setref_uv		Perl_sv_setref_uv
#define sv_setref_nv		Perl_sv_setref_nv
#define sv_setref_pv		Perl_sv_setref_pv
#define sv_setref_pvn		Perl_sv_setref_pvn
#define sv_setpv		Perl_sv_setpv
#define sv_setpvn		Perl_sv_setpvn
#define sv_tainted		Perl_sv_tainted
#define sv_unmagic		Perl_sv_unmagic
#define sv_unref_flags		Perl_sv_unref_flags
#define sv_untaint		Perl_sv_untaint
#define sv_upgrade		Perl_sv_upgrade
#define sv_usepvn_flags		Perl_sv_usepvn_flags
#define sv_vcatpvfn		Perl_sv_vcatpvfn
#define sv_vsetpvfn		Perl_sv_vsetpvfn
#define str_to_version		Perl_str_to_version
#define swash_init		Perl_swash_init
#define swash_fetch		Perl_swash_fetch
#define taint_env		Perl_taint_env
#define taint_proper		Perl_taint_proper
#define to_utf8_case		Perl_to_utf8_case
#define to_utf8_lower		Perl_to_utf8_lower
#define to_utf8_upper		Perl_to_utf8_upper
#define to_utf8_title		Perl_to_utf8_title
#define to_utf8_fold		Perl_to_utf8_fold
#if defined(UNLINK_ALL_VERSIONS)
#define unlnk			Perl_unlnk
#endif
#define unpack_str		Perl_unpack_str
#define unpackstring		Perl_unpackstring
#define unsharepvn		Perl_unsharepvn
#ifdef PERL_CORE
#define unshare_hek		Perl_unshare_hek
#endif
#ifdef PERL_MAD
#ifdef PERL_CORE
#define utilize			Perl_utilize
#endif
#else
#ifdef PERL_CORE
#define utilize			Perl_utilize
#endif
#endif
#define utf16_to_utf8		Perl_utf16_to_utf8
#define utf16_to_utf8_reversed	Perl_utf16_to_utf8_reversed
#define utf8_length		Perl_utf8_length
#define utf8_distance		Perl_utf8_distance
#define utf8_hop		Perl_utf8_hop
#define utf8_to_bytes		Perl_utf8_to_bytes
#define bytes_from_utf8		Perl_bytes_from_utf8
#define bytes_to_utf8		Perl_bytes_to_utf8
#define utf8_to_uvchr		Perl_utf8_to_uvchr
#define utf8_to_uvuni		Perl_utf8_to_uvuni
#ifdef EBCDIC
#define utf8n_to_uvchr		Perl_utf8n_to_uvchr
#else
#endif
#define utf8n_to_uvuni		Perl_utf8n_to_uvuni
#ifdef EBCDIC
#define uvchr_to_utf8		Perl_uvchr_to_utf8
#else
#endif
#define uvchr_to_utf8_flags	Perl_uvchr_to_utf8_flags
#define uvuni_to_utf8_flags	Perl_uvuni_to_utf8_flags
#define pv_uni_display		Perl_pv_uni_display
#define sv_uni_display		Perl_sv_uni_display
#if defined(PERL_CORE) || defined(PERL_EXT)
#define vivify_defelem		Perl_vivify_defelem
#endif
#ifdef PERL_CORE
#define vivify_ref		Perl_vivify_ref
#define wait4pid		Perl_wait4pid
#define parse_unicode_opts	Perl_parse_unicode_opts
#endif
#define seed			Perl_seed
#ifdef PERL_CORE
#define get_hash_seed		Perl_get_hash_seed
#define report_evil_fh		Perl_report_evil_fh
#endif
#if defined(PERL_CORE) || defined(PERL_EXT)
#define report_uninit		Perl_report_uninit
#endif
#define warn			Perl_warn
#define vwarn			Perl_vwarn
#define warner			Perl_warner
#define vwarner			Perl_vwarner
#ifdef PERL_CORE
#define watch			Perl_watch
#endif
#define whichsig		Perl_whichsig
#ifdef PERL_CORE
#define write_to_stderr		Perl_write_to_stderr
#define yyerror			Perl_yyerror
#endif
#if defined(PERL_CORE) || defined(PERL_EXT)
#define yylex			Perl_yylex
#endif
#ifdef PERL_CORE
#define yyparse			Perl_yyparse
#define parser_free		Perl_parser_free
#define yywarn			Perl_yywarn
#endif
#if defined(MYMALLOC)
#define dump_mstats		Perl_dump_mstats
#define get_mstats		Perl_get_mstats
#endif
#define safesysmalloc		Perl_safesysmalloc
#define safesyscalloc		Perl_safesyscalloc
#define safesysrealloc		Perl_safesysrealloc
#define safesysfree		Perl_safesysfree
#if defined(PERL_GLOBAL_STRUCT)
#define GetVars			Perl_GetVars
#define init_global_struct	Perl_init_global_struct
#define free_global_struct	Perl_free_global_struct
#endif
#define runops_standard		Perl_runops_standard
#define runops_debug		Perl_runops_debug
#define sv_catpvf_mg		Perl_sv_catpvf_mg
#define sv_vcatpvf_mg		Perl_sv_vcatpvf_mg
#define sv_catpv_mg		Perl_sv_catpv_mg
#define sv_setpvf_mg		Perl_sv_setpvf_mg
#define sv_vsetpvf_mg		Perl_sv_vsetpvf_mg
#define sv_setiv_mg		Perl_sv_setiv_mg
#define sv_setpviv_mg		Perl_sv_setpviv_mg
#define sv_setuv_mg		Perl_sv_setuv_mg
#define sv_setnv_mg		Perl_sv_setnv_mg
#define sv_setpv_mg		Perl_sv_setpv_mg
#define sv_setpvn_mg		Perl_sv_setpvn_mg
#define sv_setsv_mg		Perl_sv_setsv_mg
#define get_vtbl		Perl_get_vtbl
#define pv_display		Perl_pv_display
#define pv_escape		Perl_pv_escape
#define pv_pretty		Perl_pv_pretty
#define dump_indent		Perl_dump_indent
#define dump_vindent		Perl_dump_vindent
#define do_gv_dump		Perl_do_gv_dump
#define do_gvgv_dump		Perl_do_gvgv_dump
#define do_hv_dump		Perl_do_hv_dump
#define do_magic_dump		Perl_do_magic_dump
#define do_op_dump		Perl_do_op_dump
#define do_pmop_dump		Perl_do_pmop_dump
#define do_sv_dump		Perl_do_sv_dump
#define magic_dump		Perl_magic_dump
#define reginitcolors		Perl_reginitcolors
#define sv_utf8_downgrade	Perl_sv_utf8_downgrade
#define sv_utf8_encode		Perl_sv_utf8_encode
#define sv_utf8_decode		Perl_sv_utf8_decode
#define sv_force_normal_flags	Perl_sv_force_normal_flags
#define tmps_grow		Perl_tmps_grow
#define sv_rvweaken		Perl_sv_rvweaken
#ifdef PERL_CORE
#define magic_killbackrefs	Perl_magic_killbackrefs
#endif
#define newANONATTRSUB		Perl_newANONATTRSUB
#define newATTRSUB		Perl_newATTRSUB
#ifdef PERL_MAD
#define newMYSUB		Perl_newMYSUB
#else
#define newMYSUB		Perl_newMYSUB
#endif
#ifdef PERL_CORE
#define my_attrs		Perl_my_attrs
#define boot_core_xsutils	Perl_boot_core_xsutils
#endif
#if defined(USE_ITHREADS)
#define cx_dup			Perl_cx_dup
#define si_dup			Perl_si_dup
#define ss_dup			Perl_ss_dup
#define any_dup			Perl_any_dup
#define he_dup			Perl_he_dup
#define hek_dup			Perl_hek_dup
#define re_dup			Perl_re_dup
#define fp_dup			Perl_fp_dup
#define dirp_dup		Perl_dirp_dup
#define gp_dup			Perl_gp_dup
#define mg_dup			Perl_mg_dup
#define sv_dup			Perl_sv_dup
#define rvpv_dup		Perl_rvpv_dup
#define parser_dup		Perl_parser_dup
#endif
#define ptr_table_new		Perl_ptr_table_new
#define ptr_table_fetch		Perl_ptr_table_fetch
#define ptr_table_store		Perl_ptr_table_store
#define ptr_table_split		Perl_ptr_table_split
#define ptr_table_clear		Perl_ptr_table_clear
#define ptr_table_free		Perl_ptr_table_free
#if defined(USE_ITHREADS)
#  if defined(HAVE_INTERP_INTERN)
#define sys_intern_dup		Perl_sys_intern_dup
#  endif
#endif
#if defined(HAVE_INTERP_INTERN)
#define sys_intern_clear	Perl_sys_intern_clear
#define sys_intern_init		Perl_sys_intern_init
#endif
#define custom_op_name		Perl_custom_op_name
#define custom_op_desc		Perl_custom_op_desc
#define sv_nosharing		Perl_sv_nosharing
#define sv_destroyable		Perl_sv_destroyable
#ifdef NO_MATHOMS
#else
#define sv_nounlocking		Perl_sv_nounlocking
#endif
#define nothreadhook		Perl_nothreadhook
#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define do_trans_simple		S_do_trans_simple
#define do_trans_count		S_do_trans_count
#define do_trans_complex	S_do_trans_complex
#define do_trans_simple_utf8	S_do_trans_simple_utf8
#define do_trans_count_utf8	S_do_trans_count_utf8
#define do_trans_complex_utf8	S_do_trans_complex_utf8
#endif
#endif
#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define gv_init_sv		S_gv_init_sv
#define gv_get_super_pkg	S_gv_get_super_pkg
#define require_tie_mod		S_require_tie_mod
#endif
#endif
#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define hsplit			S_hsplit
#define hfreeentries		S_hfreeentries
#define new_he			S_new_he
#define save_hek_flags		S_save_hek_flags
#define hv_magic_check		S_hv_magic_check
#define unshare_hek_or_pvn	S_unshare_hek_or_pvn
#define share_hek_flags		S_share_hek_flags
#define hv_notallowed		S_hv_notallowed
#define hv_auxinit		S_hv_auxinit
#define hv_delete_common	S_hv_delete_common
#define clear_placeholders	S_clear_placeholders
#define refcounted_he_value	S_refcounted_he_value
#endif
#endif
#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define save_magic		S_save_magic
#define magic_methpack		S_magic_methpack
#define magic_methcall		S_magic_methcall
#define restore_magic		S_restore_magic
#define unwind_handler_stack	S_unwind_handler_stack
#endif
#endif
#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define ck_anoncode		Perl_ck_anoncode
#define ck_bitop		Perl_ck_bitop
#define ck_concat		Perl_ck_concat
#define ck_defined		Perl_ck_defined
#define ck_delete		Perl_ck_delete
#define ck_die			Perl_ck_die
#define ck_eof			Perl_ck_eof
#define ck_eval			Perl_ck_eval
#define ck_exec			Perl_ck_exec
#define ck_exists		Perl_ck_exists
#define ck_exit			Perl_ck_exit
#define ck_ftst			Perl_ck_ftst
#define ck_fun			Perl_ck_fun
#define ck_glob			Perl_ck_glob
#define ck_grep			Perl_ck_grep
#define ck_index		Perl_ck_index
#define ck_join			Perl_ck_join
#define ck_lengthconst		Perl_ck_lengthconst
#define ck_lfun			Perl_ck_lfun
#define ck_listiob		Perl_ck_listiob
#define ck_match		Perl_ck_match
#define ck_method		Perl_ck_method
#define ck_null			Perl_ck_null
#define ck_open			Perl_ck_open
#define ck_readline		Perl_ck_readline
#define ck_repeat		Perl_ck_repeat
#define ck_require		Perl_ck_require
#define ck_retarget		Perl_ck_retarget
#define ck_return		Perl_ck_return
#define ck_rfun			Perl_ck_rfun
#define ck_rvconst		Perl_ck_rvconst
#define ck_sassign		Perl_ck_sassign
#define ck_select		Perl_ck_select
#define ck_shift		Perl_ck_shift
#define ck_sort			Perl_ck_sort
#define ck_spair		Perl_ck_spair
#define ck_split		Perl_ck_split
#define ck_subr			Perl_ck_subr
#define ck_substr		Perl_ck_substr
#define ck_svconst		Perl_ck_svconst
#define ck_trunc		Perl_ck_trunc
#define ck_unpack		Perl_ck_unpack
#define is_handle_constructor	S_is_handle_constructor
#define is_list_assignment	S_is_list_assignment
#endif
#  ifdef USE_ITHREADS
#  else
#  endif
#ifdef PERL_CORE
#define find_and_forget_pmops	S_find_and_forget_pmops
#define cop_free		S_cop_free
#define modkids			S_modkids
#define scalarboolean		S_scalarboolean
#define newDEFSVOP		S_newDEFSVOP
#define new_logop		S_new_logop
#define simplify_sort		S_simplify_sort
#define gv_ename		S_gv_ename
#define scalar_mod_type		S_scalar_mod_type
#define my_kid			S_my_kid
#define dup_attrlist		S_dup_attrlist
#define apply_attrs		S_apply_attrs
#define apply_attrs_my		S_apply_attrs_my
#define bad_type		S_bad_type
#define no_bareword_allowed	S_no_bareword_allowed
#define no_fh_allowed		S_no_fh_allowed
#define too_few_arguments	S_too_few_arguments
#define too_many_arguments	S_too_many_arguments
#define looks_like_bool		S_looks_like_bool
#define newGIVWHENOP		S_newGIVWHENOP
#define ref_array_or_hash	S_ref_array_or_hash
#define process_special_blocks	S_process_special_blocks
#endif
#endif
#if defined(PL_OP_SLAB_ALLOC)
#define Slab_Alloc		Perl_Slab_Alloc
#define Slab_Free		Perl_Slab_Free
#  if defined(PERL_DEBUG_READONLY_OPS)
#    if defined(PERL_IN_OP_C)
#ifdef PERL_CORE
#define Slab_to_rw		S_Slab_to_rw
#endif
#    endif
#  endif
#endif
#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define find_beginning		S_find_beginning
#define forbid_setid		S_forbid_setid
#define incpush			S_incpush
#define init_interp		S_init_interp
#define init_ids		S_init_ids
#define init_main_stash		S_init_main_stash
#define init_perllib		S_init_perllib
#define init_postdump_symbols	S_init_postdump_symbols
#define init_predump_symbols	S_init_predump_symbols
#define my_exit_jump		S_my_exit_jump
#define nuke_stacks		S_nuke_stacks
#define open_script		S_open_script
#define usage			S_usage
#define validate_suid		S_validate_suid
#endif
#  if defined(IAMSUID)
#ifdef PERL_CORE
#define fd_on_nosuid_fs		S_fd_on_nosuid_fs
#endif
#  endif
#ifdef PERL_CORE
#define parse_body		S_parse_body
#define run_body		S_run_body
#define incpush_if_exists	S_incpush_if_exists
#endif
#endif
#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define refto			S_refto
#endif
#endif
#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)