xhe`dZddlZddlZddlZddlZddlZddlZddlZddlZddl Z ddl m Z m Z ddl m Z ddlmZddlmZmZmZmZddlZddlmZdd lmZmZmZmZmZmZmZmZdd l m!Z!m"Z"dd l#m$Z$m%Z%m&Z&dd l'm(Z(dd l)m*Z+dZ,dZ-dZ.gZ/Gdde0Z1GddeZ2dZ3dZ4dZ5dZ6dZ7d2dZ8dZ9dZ:dZ; d3d"Z<e d#d$Z=d%Z>e d#d&Z?d'Z@d(ZAd)ZBd*ZCd+ZDd,ZEe d#d-ZFd.ZGd/ZHd0ZId1ZJdS)4z6 Tools for converting CPAN packages to conda recipes. N) lru_cachepartial)glob)makedirs)basenamedirnameexistsjoin)environ) CondaErrorCondaHTTPError MatchSpecResolveTemporaryDirectory TmpDownloaddownload get_index)Configget_or_merge_config)check_call_envon_linuxon_win)get_default_variant)_parsea{{% set name = "{packagename}" %}} {{% set version = "{version}" %}} {{% set sha256 = "{sha256}" %}} package: name: {{{{ name }}}} version: {{{{ version }}}} {source_comment}source: {useurl}url: {cpanurl} {usesha256}sha256: {{{{ sha256 }}}} # If this is a new build for the same version, increment the build # number. If you do not include this key, it defaults to 0. build: number: 0 run_exports: weak: - {{{{ name }}}} ={{{{ version }}}} requirements: build:{build_depends} # Run exports are used now host: - perl{host_depends} run: - perl{run_depends} {import_comment}test: # Perl 'use' tests {import_comment}imports:{import_tests} # You can also put a file called run_test.pl (or run_test.py) in the recipe # that will be run at test time. about: home: {homeurl} license: {license} summary: {summary} # See # https://docs.conda.io/projects/conda-build for # more information about meta.yaml a#!/bin/bash set -o errexit -o pipefail # If it has Build.PL use that, otherwise use Makefile.PL if [[ -f Build.PL ]]; then perl Build.PL perl ./Build perl ./Build test # Make sure this goes in site perl ./Build install --installdirs site elif [[ -f Makefile.PL ]]; then # Make sure this goes in site perl Makefile.PL INSTALLDIRS=site make make test make install else echo 'Unable to find Build.PL or Makefile.PL. You need to modify build.sh.' exit 1 fi # Add more build steps here, if they are necessary. # See # https://docs.conda.io/projects/conda-build # for a list of environment variables that are set during the build process. aG:: If it has Build.PL use that, otherwise use Makefile.PL IF exist Build.PL ( perl Build.PL IF %ERRORLEVEL% NEQ 0 exit /B 1 Build IF %ERRORLEVEL% NEQ 0 exit /B 1 Build test :: Make sure this goes in site Build install --installdirs site IF %ERRORLEVEL% NEQ 0 exit /B 1 ) ELSE IF exist Makefile.PL ( :: Make sure this goes in site perl Makefile.PL INSTALLDIRS=site IF %ERRORLEVEL% NEQ 0 exit /B 1 make IF %ERRORLEVEL% NEQ 0 exit /B 1 make test IF %ERRORLEVEL% NEQ 0 exit /B 1 make install ) ELSE ( ECHO 'Unable to find Build.PL or Makefile.PL. You need to modify bld.bat.' exit 1 ) :: Add more build steps here, if they are necessary. :: See :: https://docs.conda.io/projects/conda-build :: for a list of environment variables that are set during the build process. ceZdZdZdS)InvalidReleaseErrorzR An exception that is raised when a release is not available on MetaCPAN. N)__name__ __module__ __qualname____doc__:lib/python3.11/site-packages/conda_build/skeletons/cpan.pyrrs Dr#rceZdZdZdZdS)PerlTmpDownloadz_ Subclass Conda's TmpDownload to replace : in download filenames. Critical on win. c d|jvrd|_|jSd|jvr#|jd}|d}nt|j}|dd}t j|_tj d}t|dd t|jdd}t||}|dd}t|}t|st|t|||jf }ttj |s,ttj |t|st|j||S) Nz:// CHECKSUMSzid/::-~ .conda-buildcpan) cache_dirfilename_prefix other_hashed)urltmp_dirsplitrreplacetempfilemkdtempospath expanduserr rr rget_pickle_file_pathr)selfturlfilenamehomebase_dirdsts r$ __enter__zPerlTmpDownload.__enter__s  DL8Odh&&x~~e,,7#DH--''c22H#+--DL7%%c**Dnfhtx.@.@.H.Hs.S.SHx**C++dC((Cs||H(## #"""&"HDH;C"'//#..// /--...#;; (3'''Jr#N)rrr r!rBr"r#r$r&r&s- """""r#r&cddl}ddlm}||d||d\}}g}||5}t d|D} | rdnt d|D} t d |D} t d |D} t | | | | frdnt d |D} | s| s| r|d | r|d | r|d| rT|d|d|d|d| r*|d|ddddn #1swxYwYtdtj |d||S)Nrr )source)r2sha256cfg|].}|jd/S))z.fz.f90z.f77z.f95z.f03namelowerendswith.0fs r$ z;get_build_dependencies_from_src_archive..sA    ''(NOO   r#Tcfg|].}|jd/S))z.cz.xsrHrLs r$rOz;get_build_dependencies_from_src_archive..s0IIIafllnn--m<<IIIr#cfg|].}|jd/S))z.cxxz.cppz.ccz.c++rHrLs r$rOz;get_build_dependencies_from_src_archive..s1 R R R!QV\\^^ $ $%D E E R R Rr#cfg|].}|jd/S)z /configurerHrLs r$rOz;get_build_dependencies_from_src_archive..s0PPPafllnn55lCCPPPr#cfg|].}|jd/S))z /makefilez /makevarsrHrLs r$rOz;get_build_dependencies_from_src_archive..s1VVVaafllnn--.HIIVVVr#z{{ compiler('c') }}z{{ compiler('cxx') }}z{{ compiler('fortran') }}zautoconf # [not win]zautomake # [not win]zm2-autoconf # [win]zm2-automake-wrapper # [win]zmake # [not win]zm2-make # [win]z INFO :: For z%, we need the following build tools: ) tarfilerErDdownload_to_cacheopenanyappendprintr8r9r) package_urlrF src_cacherTrD cached_path_resulttfneed_fneed_cneed_cxxneed_autotools need_makes r$'get_build_dependencies_from_src_archiveresNNN--2{f==NKF k " "#.b        KDDIIbIIIJJ   R Rr R R R  PPRPPPQQNFHf=>> XDDVVSUVVVWW   1X 1 1 MM/ 0 0 0  3 MM1 2 2 2  7 MM5 6 6 6  : MM1 2 2 2 MM1 2 2 2 MM0 1 1 1 MM8 9 9 9  . MM- . . . MM, - - -G#.#.#.#.#.#.#.#.#.#.#.#.#.#.#.H drw'' 44dd\bdd MsE"F--F14F1cTttt|S)N)str parse_version)vers r$ loose_versionrjs }SXX&& ' ''r#c(|s|dd}t|5} tj|5}|}dddn #1swxYwYt |dr|d}tj|}nW#t$r=tjtj|d}Ynt$rd}YnwxYwdddn #1swxYwY|S)Nr*r+decode utf-8-sigutf-8)encoding) r5r&gziprVreadhasattrrljsonloadsOSErrorcodecsr)r2colons json_pathdist_json_fileoutputrel_dicts r$get_cpan_api_urlr|s %kk$$$     9%% /',,.. / / / / / / / / / / / / / / /vx(( 4{33z&))HH S S Sz&+i'"J"J"J"O"O"Q"QRRHHH   HHH                 OsdDB$A B$A# #B$&A# 'r1sha1rNdataothers r$md5d_file_and_otherr#s ;==D h   66%==D  KK       RR WUH-E-EPELL)))5QQQQ >>  s0A!!A%(A%r"cdtt|ddz}tj||dddz|zdzS)Nhr r*r+.z.p)r__file__r8r9r r5)r/r0r1rs r$r;r;0sV !(L99!B$??A 7<< ?#:#:4#E#E#Ka#ORV#V W WWr#cDt|||z}t|rft|d5}tj|}|r(|r&||kr tj|cdddSdddn #1swxYwY|} t jt j|n#YnxYwt|d5}tj ||tj ||dddn #1swxYwY|S)N)r/r0rwb) r;r rVpickleloadr8rr9rdump)r0 base_folder data_partialkeypickledrN key_storedr^s r$load_or_pickler5s#/DG g& '4  &AQJ &z &cZ&7&7{1~~ & & & & & & & & & & & & & & & & & & & & & & &\^^F  BGOOG,,----   gt   C FA Ms/2A??BB1CC +DDDc | t}trd}n trd}nd}t5}t j|d|gd||dt |g|ddRd d g}tj|d  d  dd d}|cdddS#1swxYwYna#t$rT}td|d|t|jYd}~nd}~wwxYwgS)N)zwin-64Librarybinzperl.exe)zlinux-64rperl)zosx-64rrzperl=hostr)envconfigsubdirr)z-ezuse Module::CoreList; my @modules = grep {Module::CoreList::is_core($_)} Module::CoreList->find_modules(qr/.*/); print join " ", @modules;F)shellrnz  zHFailed to query perl={} for core modules list, attempted command was: {} )rrrrr create_envr r check_outputrlr5r4 ExceptionrYformatmessage)versionrsubdirstmpdirargsall_core_moduleses r$install_perl_get_core_modulesrNs&  0>GG  01GG/G  ! ! $V  """#qz     ----/-D'E:::&&t  $+ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $,  W ^ ^$     ai  Is<2CBC CCCCC D9%A D44D9cNtd|tt||S)Nzperl-core-modules)rrr)rrr)rr/s r$&get_core_modules_for_this_perl_versionrzs0 :GDD     r#rhttps://fastapi.metacpan.org/v1Fct|}tj|jdd}|jdt|d} t| |} | dd} i} d} d} t}|}g}|D]}d}| ||f|}|r| \}}d |vr| d \}}}n|}||vr?|||}t||| |r|n|}|dkrt!d |d ||| d d hvrt!d |d|d|dt#||| |r|n||}t%|}| |d z|z|vs|d z|dz|vr| ||ddddddddddd }||}n t#||| |t)|}t|||d}t+||r)|st!d|zd|d<d|d<d|d<d}nt-||||||| \}}d|d<d|d<|drs|d|d<t/|d\|d<}t!d|d||t3|d|d|j}ng}d|d<d|d<d|d<|d xx| dg|zz cc<|d!xx| dgt7|d"d#|d$d#zzz cc<|d%xx| dgt7|d$d#zz cc<|D]3}||vr| |t!d&j|4d'}d}t9|r|st!d(|zdt9|r|rt!d)|z |d*d+|d,<n#t:$r d-|z|d,<YnwxYwd.|vr-t=|d.d/} | |d0< tA|d1t6r|d1d2n|d1|d1<n#t:$rd3|d1<YnwxYw|d|d<||d z|dz| d d !d d2}!d4|vrQtEt|d4D].}"|"#|!rd5|"vr|d6xx| |"zz cc</|d6rd|d7<nd|d7<t9|stI|t!d8||dtKt|d9d:5}#|#&tOjdAi|(d;dddn #1swxYwYtKt|d<d:5}#|r|#&d=n7|#&tSjdAi|(d;dddn #1swxYwYtKt|d>d?5}#|r|#&d@n$|#&tUjdAi|dddn #1swxYwY|dSdS)BzS Loops over packages, outputting conda recipes converted from CPAN metata. r-z pickled.cbrz.*rEz - z #- N= WARNING: zj is a Perl core module that is not developed outside of Perl, so we are skipping creating a recipe for it.r*r+z was part of the z- distribution, so we are making a recipe for z instead.rz# z'') packagename build_depends host_depends run_depends build_comment test_commands usesha256useurlsource_commentsummary import_testsz2We found core module %s. Skipping recipe creation.#rrrT) release_data output_dirr/ meta_cpan_url recursive core_modulescpanurlrF download_urlzUsing url {} ({}) for {}.rrbuildnoncorerunrz/INFO :: Already building package {} (module {})Fz?Directory %s already exists and you have not specified --force z8Directory %s already exists, but forcing recipe creation resourceshomepagehomeurlzhttp://metacpan.org/pod/abstracturlicenserperl_5providesz::_rimport_commentzWriting recipe for {}-{}z meta.yamlrrnzbuild.shs"#!/bin/bash echo "Nothing to do." zbld.batwzecho "Nothing to do." r")+rr8r9r src_cache_rootvariantgetrrr5setrXpop partitionadddist_for_modulerYget_release_info perl_to_conda setdefaultrhmetacpan_api_is_core_versiondeps_for_packageget_checksum_and_sizerrer[listr KeyErrorreprlstrip isinstancer4sorted startswithrrVwrite CPAN_METAr CPAN_BUILD_SH CPAN_BLD_BAT)$packagesrrrrforcer write_corer/ perl_versionr package_dictsindent indent_coreprocessed_packages orig_version new_packagespackagemoduler] orig_packagelatest_release_datardrdir_path empty_recipedepspackages_to_appendsizesrc_build_dependspkgr module_prefix provided_modrNs$ r$ skeletonizersD ! ( (F V2NLQQI>%%f.A&.I.I&.QRRL9, RRL ''b11LM FKLL / /Wf-....H Q2",,.. '>>")"3"3C"8"8 GQ"G ( ( ( w''' ! 9lf4QFF'   f   L     \<+?+?c+J+JK K K :L::7::'.:::    /    .FF,    $G,,   #g-2DDD 3 !4Y!? ?DV V V   $ $ *!# "!!%!#"$ "    $ ?.LL+y,wAWAWL  Ki1HII ( w ? ?= ! H;VAhK AkN"%A LL(8)%#+#)((( $D$AiLAhK// *+N;) $9,~:V$W$W!( T1889tWUUVVV$K 0!H+v?O%%!!%'!!( !$+&)"# o   &++rd5F.F"G"G G    n   tDM)4tE{97MMNNN""     m    0 0"T%[=S8T8T1T U U U   *  h&&OOC((((PIPRUV!L (   YE Y Q     H   Y% Y LxW X X X @' 4Z@AiLL @ @ @5?AiLLL @  % %< 344;;C@@G"AiL $l95t<<- Y'**!), iLL  $ $ $#AiLLL $#I.) {S01Y<?@@@ c2288==a@  % % &s< +C'D'D E E ? ? **=99?e<>W>Wn%%%,)>>%%% ^  '"$A  "&A h  X    (// Qy\JJKKK $x--t 4 4 ; GGI$))q))0099 : : : ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; $x,,d 3 3 Cq C?@@@@ ,11q1188AABBB  C C C C C C C C C C C C C C C $x++S 1 1 2Q 212222 +00a00111  2 2 2 2 2 2 2 2 2 2 2 2 2 2 2[ Q2Q2Q2Q2Q2s[ QQ10Q1&4SS-,S-8YY #Y A[!![%([% =]]])maxsizecD|dS||dvs|t|krdSdS)NF)NrET)rh) core_versionrs r$is_core_versionrs:u  ! J  LM'4J4J$J$Jtur#c|dd}|ddd|dd d |d d |ddd|ddd|ddd|ddddS)Nr.zy Create recipe skeleton for packages hosted on the Comprehensive Perl Archive Network (CPAN) (cpan.org). )helpr+z-CPAN packages to create recipe skeletons for.)nargsrz --output-dirz5Directory to write recipes to (default: %(default)s).r)rdefaultz --versionz(Version to use. Applies to all packages.z--meta-cpan-urlrzBURL to use for MetaCPAN API. It must include a version, such as v1)rrz --recursive store_truezTCreate recipes for dependencies if they do not already exist (default: %(default)s).)actionrz--forcez;Force overwrite of existing recipes (default: %(default)s).z --write_corezrEundef0zWARNING: The version of z listed as a dependency for z, zS, is not available on MetaCPAN, so we are just assuming the latest version is okay.rz6We have got an expected error with dependency versionsz Module {}z Pkg_version z Dep Version r*r+rz-[v1-9][0-9.]*r%rzSkipping {} dependency {}zmodule z adds )rrYsysstdoutflushrrrXrrrJrhrrrjr#metacpan_api_get_core_versionrr r r5rrrr r)rrrr/rrrrphase_to_dep_typernew_depsdepdep_dict orig_dist dep_entry dep_versionr"r%cb_phases r$rrs6%%CEE2235511#%%00  D     - 7R@@@@J   L ) )('''HL) c>>c'li77 299#h-HH I I I  __X)!;!;*CMM __X*!/,Q,Q@AAAcr""""   """+!9lHX?AXv.229====Xy155i@@@@3::8G;LiXXN+    H  7G 7 7#5 7 7888 # ##sjR-B R;$R H:9R:2I/,R.I//A R:0K+*R+A%MRMERR.-R.ctd|vrtdd} t||}|d}nk#t|||}|Q|d|ddkr)td||d|d}YnxYw|std|s Jd |S) z] Given a name that could be a module or a distribution, return the distribution. z Git::Checkz debug thisN distributionr*r+z-WARNING :: module {} found in distribution {}debugzdist_for_module must succeed)rYcore_module_dictrelease_module_dictr5r)cpan_urlr/rrrAmod_dictr{s r$rrys v lL 4#L&99/  4&xFCC  '6>>$+D+DDDCJJ 8 $N3L  g 777777 s 0A&Bc d|vrtd|n-d|vrtd|nd|vrtd| |d|}td|t|d}n#t$rd}Ynt$rd}YnwxYw|std ||d d }|rd |vr]|r d |vr |d }ntd|d |d|}t|d}|}n1#t$rd}Yn#t$rd}YnwxYwtd||rd |vrtd|d|d|d||S)NzDist-Zilla-Plugin-Gitzdebug zDist::Zilla::Plugin::Gitz Time::Zone/module/zINFO :: url_module Trwz,WARNING :: Did not find rel_dict for module r*r+r,rAz%WARNING :: 'distribution' was not in z's module info, making it up /release/Fz)INFO :: OK, found 'dependency' in module z,WARNING :: No dependencies found for module z in distribution z WARNING :: Please check z and )rYr| RuntimeErrorrr5)rEr/r url_moduler{rA url_release rel_dict2s r$release_module_dict_directrOsi&(( v    #v - - v       v    22&22  0J00111#Jt<<<   G EVEEFFF>>$,,L D|833  (22#N3LL \\\\    %>> >>K(UCCCI HH   HHH   HHH  B&BBCCC  |833  F6 F FT` F F'1 F F8C F F    Os0*A11 B ? B  B #C>> D DDcd|vrtdt|||}|st||dz}|d|} tjtj|n#YnxYwt||t|d5}| }dddn #1swxYwYt|dr| d}tj |}|d|d r8td ||dd |d zd } ntd |tj|t#|d} t|d| t%j| 5} | }dddn #1swxYwYt||| }|S)Nz Regexp-CommonrBz.dl_urlz/download_url/rrlrmreleaserz Up to date: r+rEzNot up to date: r)rYrOr;r8rr9rrrVrqrrrlrsrtrKr5r rrp) rEr/rr{rr2 dl_url_jsonrz dl_url_dictdistrArys r$rDrDs~&   g)(IvFFH (M'y&92DEE1111  K00 1 1 1 1  Dg '4  (K %%''F ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( 68 $ $ 0]];//Fj(( y ! * *;y+A B B M ))) * * *y)11# I8N2NPRSSDD -V-- . . .',,y(;~3N*O*OPPC [0# 6 6 63 />',,.. / / / / / / / / / / / / / / /2(ItLLH Os01A55A9B==CC G**G.1G.cd|vrtdd|vrtd t|d|d}ddi}n6#t$r)}tjd |d |jYd}~nd}~wwxYw|S) Nr.rBr/rHTrIrArz3Error: Could not find module or distribution named z on MetaCPAN. Error was: )rYr|rr4exitr)rErrFrs r$core_module_dict_oldrWsF gV g ,#x$A$A$A$A$OOO#F+      = = =12 = =          OsA A6 A11A6c||vrddiSdS)NrArr")rrs r$rCrCs '' 4r#c&d|vrtd|d|}|dd}tj|}|jdkrdS|d|}tj|}|jdkrd St jd |zdS) Nr.rBrJr*r+FrHTzBError: Could not find module or distribution named %s on MetaCPAN.)rYr5requestsr status_coder4rV)rErr2reqs r$rrsF g  ( ( ( (C ++dC C ,s  C #u++6++l3 ?c ! !4 H'      r#cvt||} |ddd}n#t$rd}YnwxYw|S)Nrrr)rCr)rr module_dictrs r$r7r7'sW"<88Kh'+I6  Ns ' 66c|}t||||} t|d|d}t|dd|d<nj#t$r]t ||}|1|||kr)t d|dt|d d gid }ntjd |zYnwxYwd}|t|} t|d} tt| } |duo?td t| kot| t| k}n#t$r} t dt | t d|t d|t d |dt d| Yd} ~ nd} ~ wwxYw|r't d|t d| d| |S)z Return a dictionary of the JSON information stored at cpan.metacpan.org corresponding to the given package/dist/module. rJFrIrvNrz is not available on MetaCPAN, but it's a core module, so we do not actually need the source file, and are omitting the URL and MD5 from the recipe entirely.rEr)rrrr,z=Error: Could not find any versions of package %s on MetaCPAN.r3z> ? ? ? .9.. / / / / / / / /  0O 999::: M[MM MMNNN Os-AAA$B?>B?AE GAr)z', z'size})rrr&rVstriprr4) rbase_urlr> checksum_path checksum_file found_filerFr lines r$rrrs |$$H %%H L0 1 1] -  MJFD%  zz||??3>22 !%JJz22!%D!1!1!!4!:!:5!A!A11#zz$//288??--!               $ 4<s6ECD* E*D. .E1D. 2EEEcXd|ddzS)z>Sanitizes a Perl package name for use as a conda package name.zperl-r*r+)r5rJ)rIs r$rrs' T\\$,,2244 44r#)r")rNrFFNF)Kr!rvrprrsr8rrr4r6 functoolsrrrros.pathrrr r r[rEr conda_interfacer rrrrrrrrrrutilsrrrvariantsrrrrhrrr perl_corerKrr&rerjr|rrr;rrrrrrr#rrrOrDrWrCrr7rrrr"r#r$rvs   ((((((((333333333333                    100000004444444444******------.  ` < @       ,   )))))k)))X000f((($      XXXX 2)))X 3  y2y2y2y2x 4)))X 4    m$m$m$`>)))X...b&  40>>>B855555r#