embed.h

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

#endif
#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define unpack_rec		S_unpack_rec
#define pack_rec		S_pack_rec
#define mul128			S_mul128
#define measure_struct		S_measure_struct
#define next_symbol		S_next_symbol
#define is_an_int		S_is_an_int
#define div128			S_div128
#define group_end		S_group_end
#define get_num			S_get_num
#define need_utf8		S_need_utf8
#define first_symbol		S_first_symbol
#define sv_exp_grow		S_sv_exp_grow
#define bytes_to_uni		S_bytes_to_uni
#endif
#endif
#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define docatch			S_docatch
#define dofindlabel		S_dofindlabel
#define doparseform		S_doparseform
#define num_overflow		S_num_overflow
#define dopoptoeval		S_dopoptoeval
#define dopoptogiven		S_dopoptogiven
#define dopoptolabel		S_dopoptolabel
#define dopoptoloop		S_dopoptoloop
#define dopoptosub_at		S_dopoptosub_at
#define dopoptowhen		S_dopoptowhen
#define save_lines		S_save_lines
#define doeval			S_doeval
#define check_type_and_open	S_check_type_and_open
#endif
#ifndef PERL_DISABLE_PMC
#ifdef PERL_CORE
#define doopen_pm		S_doopen_pm
#endif
#endif
#ifdef PERL_CORE
#define path_is_absolute	S_path_is_absolute
#define run_user_filter		S_run_user_filter
#define make_matcher		S_make_matcher
#define matcher_matches_sv	S_matcher_matches_sv
#define destroy_matcher		S_destroy_matcher
#define do_smartmatch		S_do_smartmatch
#endif
#endif
#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define do_oddball		S_do_oddball
#define method_common		S_method_common
#endif
#endif
#if defined(PERL_IN_PP_SORT_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define sv_ncmp			S_sv_ncmp
#define sv_i_ncmp		S_sv_i_ncmp
#define amagic_ncmp		S_amagic_ncmp
#define amagic_i_ncmp		S_amagic_i_ncmp
#define amagic_cmp		S_amagic_cmp
#define amagic_cmp_locale	S_amagic_cmp_locale
#define sortcv			S_sortcv
#define sortcv_xsub		S_sortcv_xsub
#define sortcv_stacked		S_sortcv_stacked
#define qsortsvu		S_qsortsvu
#endif
#endif
#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define doform			S_doform
#endif
#  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
#ifdef PERL_CORE
#define dooneliner		S_dooneliner
#endif
#  endif
#ifdef PERL_CORE
#define space_join_names_mortal	S_space_join_names_mortal
#endif
#endif
#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
#if defined(PERL_CORE) || defined(PERL_EXT)
#define reg			S_reg
#define reganode		S_reganode
#define regatom			S_regatom
#define regbranch		S_regbranch
#define reguni			S_reguni
#define regclass		S_regclass
#define regcurly		S_regcurly
#define reg_node		S_reg_node
#define reg_recode		S_reg_recode
#define regpiece		S_regpiece
#define reg_namedseq		S_reg_namedseq
#define reginsert		S_reginsert
#define regtail			S_regtail
#define reg_scan_name		S_reg_scan_name
#define join_exact		S_join_exact
#define regwhite		S_regwhite
#define nextchar		S_nextchar
#define reg_skipcomment		S_reg_skipcomment
#define scan_commit		S_scan_commit
#define cl_anything		S_cl_anything
#define cl_is_anything		S_cl_is_anything
#define cl_init			S_cl_init
#define cl_init_zero		S_cl_init_zero
#define cl_and			S_cl_and
#define cl_or			S_cl_or
#define study_chunk		S_study_chunk
#define add_data		S_add_data
#endif
#ifdef PERL_CORE
#define re_croak2		S_re_croak2
#endif
#if defined(PERL_CORE) || defined(PERL_EXT)
#define regpposixcc		S_regpposixcc
#define checkposixcc		S_checkposixcc
#define make_trie		S_make_trie
#define make_trie_failtable	S_make_trie_failtable
#endif
#  ifdef DEBUGGING
#if defined(PERL_CORE) || defined(PERL_EXT)
#define regdump_extflags	S_regdump_extflags
#define dumpuntil		S_dumpuntil
#define put_byte		S_put_byte
#define dump_trie		S_dump_trie
#define dump_trie_interim_list	S_dump_trie_interim_list
#define dump_trie_interim_table	S_dump_trie_interim_table
#define regtail_study		S_regtail_study
#endif
#  endif
#endif
#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
#if defined(PERL_CORE) || defined(PERL_EXT)
#define regmatch		S_regmatch
#define regrepeat		S_regrepeat
#define regtry			S_regtry
#define reginclass		S_reginclass
#define regcppush		S_regcppush
#define regcppop		S_regcppop
#define reghop3			S_reghop3
#endif
#ifdef XXX_dmq
#if defined(PERL_CORE) || defined(PERL_EXT)
#define reghop4			S_reghop4
#endif
#endif
#if defined(PERL_CORE) || defined(PERL_EXT)
#define reghopmaybe3		S_reghopmaybe3
#define find_byclass		S_find_byclass
#define swap_match_buff		S_swap_match_buff
#define to_utf8_substr		S_to_utf8_substr
#define to_byte_substr		S_to_byte_substr
#define reg_check_named_buff_matched	S_reg_check_named_buff_matched
#endif
#  ifdef DEBUGGING
#if defined(PERL_CORE) || defined(PERL_EXT)
#define dump_exec_pos		S_dump_exec_pos
#define debug_start_match	S_debug_start_match
#endif
#  endif
#endif
#if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define deb_curcv		S_deb_curcv
#define debprof			S_debprof
#define sequence		S_sequence
#define sequence_tail		S_sequence_tail
#define sequence_num		S_sequence_num
#define pm_description		S_pm_description
#endif
#endif
#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define save_scalar_at		S_save_scalar_at
#endif
#endif
#if defined(PERL_IN_GV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_HV_C) || defined(PERL_IN_MG_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define uiv_2buf		S_uiv_2buf
#define sv_unglob		S_sv_unglob
#define not_a_number		S_not_a_number
#define visit			S_visit
#define sv_del_backref		S_sv_del_backref
#define varname			S_varname
#endif
#  ifdef DEBUGGING
#ifdef PERL_CORE
#define del_sv			S_del_sv
#endif
#  endif
#  if !defined(NV_PRESERVES_UV)
#ifdef PERL_CORE
#define sv_2iuv_non_preserve	S_sv_2iuv_non_preserve
#endif
#  endif
#ifdef PERL_CORE
#define expect_number		S_expect_number
#endif
#ifdef PERL_CORE
#define sv_pos_u2b_forwards	S_sv_pos_u2b_forwards
#define sv_pos_u2b_midway	S_sv_pos_u2b_midway
#define sv_pos_u2b_cached	S_sv_pos_u2b_cached
#define utf8_mg_pos_cache_update	S_utf8_mg_pos_cache_update
#define sv_pos_b2u_midway	S_sv_pos_b2u_midway
#define F0convert		S_F0convert
#endif
#  if defined(PERL_OLD_COPY_ON_WRITE)
#ifdef PERL_CORE
#define sv_release_COW		S_sv_release_COW
#endif
#  endif
#ifdef PERL_CORE
#define more_sv			S_more_sv
#define more_bodies		S_more_bodies
#define sv_2iuv_common		S_sv_2iuv_common
#define glob_assign_glob	S_glob_assign_glob
#define glob_assign_ref		S_glob_assign_ref
#define ptr_table_find		S_ptr_table_find
#endif
#endif
#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define check_uni		S_check_uni
#define force_next		S_force_next
#define force_version		S_force_version
#define force_word		S_force_word
#define tokeq			S_tokeq
#define readpipe_override	S_readpipe_override
#define scan_const		S_scan_const
#define scan_formline		S_scan_formline
#define scan_heredoc		S_scan_heredoc
#define scan_ident		S_scan_ident
#define scan_inputsymbol	S_scan_inputsymbol
#define scan_pat		S_scan_pat
#define scan_str		S_scan_str
#define scan_subst		S_scan_subst
#define scan_trans		S_scan_trans
#define scan_word		S_scan_word
#define update_debugger_info	S_update_debugger_info
#define skipspace		S_skipspace
#define swallow_bom		S_swallow_bom
#define checkcomma		S_checkcomma
#define feature_is_enabled	S_feature_is_enabled
#define force_ident		S_force_ident
#define incline			S_incline
#define intuit_method		S_intuit_method
#define intuit_more		S_intuit_more
#define lop			S_lop
#define missingterm		S_missingterm
#define no_op			S_no_op
#define sublex_done		S_sublex_done
#define sublex_push		S_sublex_push
#define sublex_start		S_sublex_start
#define filter_gets		S_filter_gets
#define find_in_my_stash	S_find_in_my_stash
#define tokenize_use		S_tokenize_use
#endif
#ifdef PERL_CORE
#define ao			S_ao
#endif
#  if defined(PERL_CR_FILTER)
#ifdef PERL_CORE
#define cr_textfilter		S_cr_textfilter
#define strip_return		S_strip_return
#endif
#  endif
#  if defined(DEBUGGING)
#ifdef PERL_CORE
#define tokereport		S_tokereport
#define printbuf		S_printbuf
#endif
#  endif
#endif
#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define isa_lookup		S_isa_lookup
#endif
#endif
#if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
#if defined(USE_LOCALE_NUMERIC) || defined(USE_LOCALE_COLLATE)
#ifdef PERL_CORE
#define stdize_locale		S_stdize_locale
#endif
#endif
#endif
#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define closest_cop		S_closest_cop
#define mess_alloc		S_mess_alloc
#define vdie_croak_common	S_vdie_croak_common
#define vdie_common		S_vdie_common
#define write_no_mem		S_write_no_mem
#endif
#endif
#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define mulexp10		S_mulexp10
#endif
#endif
#if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define is_utf8_char_slow	S_is_utf8_char_slow
#define is_utf8_common		S_is_utf8_common
#define swash_get		S_swash_get
#endif
#endif
#define sv_setsv_flags		Perl_sv_setsv_flags
#define sv_catpvn_flags		Perl_sv_catpvn_flags
#define sv_catsv_flags		Perl_sv_catsv_flags
#define sv_utf8_upgrade_flags	Perl_sv_utf8_upgrade_flags
#define sv_pvn_force_flags	Perl_sv_pvn_force_flags
#define sv_copypv		Perl_sv_copypv
#define my_atof2		Perl_my_atof2
#define my_socketpair		Perl_my_socketpair
#define my_dirfd		Perl_my_dirfd
#ifdef PERL_OLD_COPY_ON_WRITE
#if defined(PERL_CORE) || defined(PERL_EXT)
#define sv_setsv_cow		Perl_sv_setsv_cow
#endif
#endif
#if defined(USE_PERLIO) && !defined(USE_SFIO)
#define PerlIO_close		Perl_PerlIO_close
#define PerlIO_fill		Perl_PerlIO_fill
#define PerlIO_fileno		Perl_PerlIO_fileno
#define PerlIO_eof		Perl_PerlIO_eof
#define PerlIO_error		Perl_PerlIO_error
#define PerlIO_flush		Perl_PerlIO_flush
#define PerlIO_clearerr		Perl_PerlIO_clearerr
#define PerlIO_set_cnt		Perl_PerlIO_set_cnt
#define PerlIO_set_ptrcnt	Perl_PerlIO_set_ptrcnt
#define PerlIO_setlinebuf	Perl_PerlIO_setlinebuf
#define PerlIO_read		Perl_PerlIO_read
#define PerlIO_write		Perl_PerlIO_write
#define PerlIO_unread		Perl_PerlIO_unread
#define PerlIO_tell		Perl_PerlIO_tell
#define PerlIO_seek		Perl_PerlIO_seek
#define PerlIO_get_base		Perl_PerlIO_get_base
#define PerlIO_get_ptr		Perl_PerlIO_get_ptr
#define PerlIO_get_bufsiz	Perl_PerlIO_get_bufsiz
#define PerlIO_get_cnt		Perl_PerlIO_get_cnt
#define PerlIO_stdin		Perl_PerlIO_stdin
#define PerlIO_stdout		Perl_PerlIO_stdout
#define PerlIO_stderr		Perl_PerlIO_stderr
#endif /* PERLIO_LAYERS */
#ifdef PERL_CORE
#define deb_stack_all		Perl_deb_stack_all
#endif
#ifdef PERL_IN_DEB_C
#ifdef PERL_CORE
#define deb_stack_n		S_deb_stack_n
#endif
#endif
#ifdef PERL_CORE
#define pad_new			Perl_pad_new
#define pad_undef		Perl_pad_undef
#define pad_add_name		Perl_pad_add_name
#define pad_add_anon		Perl_pad_add_anon
#define pad_check_dup		Perl_pad_check_dup
#endif
#ifdef DEBUGGING
#ifdef PERL_CORE
#define pad_setsv		Perl_pad_setsv
#endif
#endif
#ifdef PERL_CORE
#define pad_block_start		Perl_pad_block_start
#define pad_tidy		Perl_pad_tidy
#define do_dump_pad		Perl_do_dump_pad
#define pad_fixup_inner_anons	Perl_pad_fixup_inner_anons
#endif
#ifdef PERL_CORE
#define pad_push		Perl_pad_push
#define pad_compname_type	Perl_pad_compname_type
#endif
#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define pad_findlex		S_pad_findlex
#endif
#  if defined(DEBUGGING)
#ifdef PERL_CORE
#define cv_dump			S_cv_dump
#endif
#  endif
#endif
#define find_runcv		Perl_find_runcv
#ifdef PERL_CORE
#define free_tied_hv_pool	Perl_free_tied_hv_pool
#endif
#if defined(DEBUGGING)
#ifdef PERL_CORE
#define get_debug_opts		Perl_get_debug_opts
#endif
#endif
#define save_set_svflags	Perl_save_set_svflags
#define hv_scalar		Perl_hv_scalar
#define hv_name_set		Perl_hv_name_set
#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
#endif
#define hv_clear_placeholders	Perl_hv_clear_placeholders
#ifdef PERL_CORE
#define magic_scalarpack	Perl_magic_scalarpack
#endif
#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define find_hash_subscript	S_find_hash_subscript
#define find_array_subscript	S_find_array_subscript
#define find_uninit_var		S_find_uninit_var
#endif
#endif
#ifdef PERL_NEED_MY_HTOLE16
#ifdef PERL_CORE
#define my_htole16		Perl_my_htole16
#endif
#endif
#ifdef PERL_NEED_MY_LETOH16
#ifdef PERL_CORE
#define my_letoh16		Perl_my_letoh16
#endif
#endif
#ifdef PERL_NEED_MY_HTOBE16
#ifdef PERL_CORE