a ”$aCã@s:ddlmZddlmZddlmZiZed dd„ƒZdS) é)ÚUtils©Úconf)Ú get_stringT©érrc sBdtvr dSdtd<ˆjdd|dˆ d¡ˆ d¡}ˆjj|kˆj_ˆ |¡‡fdd„‰‡‡fdd „}|d ƒ}d}|ˆjjkrŒ|d ƒ}|dur˜d }ˆ d ¡ˆ  d|d¡|ˆj_ d}|ˆjjkrÒ|dƒ}|durÞd}ˆ d¡ˆ  d|d¡|ˆj_ ˆdƒ}d|vr|  d¡ˆ d¡ˆ  d|d¡|ˆj_ dS)NÚdoneTZperlÚPERL)ÚvarÚ mandatorycs6t ˆj d¡dd|g¡}t|tƒs,t|ƒ}t |¡S)Nr z-MConfigz-e)rÚ cmd_outputÚenvÚget_flatÚ isinstanceÚstrrÚto_list)ÚcmdÚoutputr©úk/home/jack/SDK/ZBT-AX3000-OpenWrt-21.02/build_dir/hostpkg/samba-4.14.12/./buildtools/wafsamba/samba_perl.pyÚread_perl_config_vars z.SAMBA_CHECK_PERL..read_perl_config_varcsXˆ d|¡z&ˆd|ƒd}ˆ d|d¡|WStyRˆ dd¡Yn0dS)NzChecking for perl $Config{%s}:zprint $Config{%s}rú'%s'ÚGREENFÚYELLOW)Ú start_msgÚend_msgÚ IndexError)r Úv©rrrrÚcheck_perl_config_vars  z/SAMBA_CHECK_PERL..check_perl_config_varZ vendorprefixZ vendorarchz${LIBDIR}/perl5zPERL_ARCH_INSTALL_DIR: rrZ vendorlibz${DATADIR}/perl5zPERL_LIB_INSTALL_DIR: z print "@INC"Ú.z PERL_INC: z%s)rÚ find_programÚloadr r ÚPERL_SPECIFIEDZcheck_perl_versionÚPREFIXrrZPERL_ARCH_INSTALL_DIRÚPERL_LIB_INSTALL_DIRÚremoveÚPERL_INC) rr ÚversionZ path_perlrZ vendor_prefixZperl_arch_install_dirZperl_lib_install_dirZperl_incrrrÚSAMBA_CHECK_PERLsB            r)N)Tr)ÚwaflibrÚwaflib.ConfigurerÚ samba_utilsrrr)rrrrÚs