f1dZdZddlZddlmZmZddlmZddlm Z m Z ddl m Z m Z mZe e dzZdd lmZd Zd Zd Zd ZdZdZdZdZdZdZdZdZdS)a Lib/ctypes.util.find_library() support for AIX Similar approach as done for Darwin support by using separate files but unlike Darwin - no extension such as ctypes.macholib.* dlopen() is an interface to AIX initAndLoad() - primary documentation at: https://www.ibm.com/support/knowledgecenter/en/ssw_aix_61/com.ibm.aix.basetrf1/dlopen.htm https://www.ibm.com/support/knowledgecenter/en/ssw_aix_61/com.ibm.aix.basetrf1/load.htm AIX supports two styles for dlopen(): svr4 (System V Release 4) which is common on posix platforms, but also a BSD style - aka SVR3. From AIX 5.3 Difference Addendum (December 2004) 2.9 SVR4 linking affinity Nowadays, there are two major object file formats used by the operating systems: XCOFF: The COFF enhanced by IBM and others. The original COFF (Common Object File Format) was the base of SVR3 and BSD 4.2 systems. ELF: Executable and Linking Format that was developed by AT&T and is a base for SVR4 UNIX. While the shared library content is identical on AIX - one is located as a filepath name (svr4 style) and the other is located as a member of an archive (and the archive is located as a filepath name). The key difference arises when supporting multiple abi formats (i.e., 32 and 64 bit). For svr4 either only one ABI is supported, or there are two directories, or there are different file names. The most common solution for multiple ABI is multiple directories. For the XCOFF (aka AIX) style - one directory (one archive file) is sufficient as multiple shared libraries can be in the archive - even sharing the same name. In documentation the archive is also referred to as the "base" and the shared library object is referred to as the "member". For dlopen() on AIX (read initAndLoad()) the calls are similar. Default activity occurs when no path information is provided. When path information is provided dlopen() does not search any other directories. For SVR4 - the shared library name is the name of the file expected: libFOO.so For AIX - the shared library is expressed as base(member). The search is for the base (e.g., libFOO.a) and once the base is found the shared library - identified by member (e.g., libFOO.so, or shr.o) is located and loaded. The mode bit RTLD_MEMBER tells initAndLoad() that it needs to use the AIX (SVR3) naming style. z%Michael Felt N)environpath) executable)c_void_psizeof)PopenPIPEDEVNULL)maxsizecJfd}tt||S)Nc|}g} |r7|dt||7n#t$rYnwxYw|pt gS)Nr)splitinsertintpop ValueErrorr )libnamepartsnumsseps ../lib/python3.11/ctypes/_aix.py _num_versionz#_last_version.._num_version>s c""  1 As599;;//000 1    D  y s9A A! A!)key)maxreversed)libnamesrrs ` r _last_versionr=s9 ! ! ! ! ! x!!| 4 4 44cd}|jD]5}|dr|}d|vr|dcS6dS)N)/z./z../INDEX )stdout startswithrstrip)p ld_headerlines r get_ld_headerr*JsaI** ??- . . *II __##D)) ) ) ) 4rctg}|jD]-}tjd|r||-|S)Nz[0-9])r$rematchappend)r'infor)s rget_ld_header_infor0TsM D 8GT " "  KK      Krc(g}tddtd|gdtt} t |}|r%||t |fnn8|j| |S)z Parse the header of the loader section of executable and archives This function calls /usr/bin/dump -H as a subprocess and returns a list of (ld_header, ld_header_info) tuples. z /usr/bin/dumpz-Xz-HT)universal_newlinesr$stderr) rAIX_ABIr r r*r.r0r$closewait)file ldr_headersr'r(s rget_ld_headersr9asK Wd;W > > >A!!$$      +=a+@+@A B B B B   HNNFFHHH rcg}|D]9\}}d|vr0|||dd:|S)z extract the shareable objects from ld_headers character "[" is used to strip off the path information. Note: the "[" and "]" characters that are part of dump -H output are not removed here. [)r.index) ld_headerssharedr)_s r get_sharedrAysSF44 q $;; MM$tzz#r12 3 3 3 Mrcddttdfd|D}t|dkr|ddSdS)zy Must be only one match, otherwise result is None. When there is a match, strip leading "[" and trailing "]" z\[(z)\]Nc3BK|]}tj|VdS)N)r,search).0r)exprs r z get_one_match..s/ I I44!6!6 I I I I I Irr)listfilterlengroup)rFlinesmatchess` r get_one_matchrOso $   D6$ I I I I5 I I IJJKKG 7||qqz"""trctdkrd}t||}|r|Sn-dD]*}ttj||}|r|cS+dS)z This routine provides historical aka legacy naming schemes started in AIX4 shared library support for library members names. e.g., in /usr/lib/libc.a the member name shr.o for 32-bit binary and shr_64.o for 64-bit binary. @z shr4?_?64\.o)zshr.ozshr4.oN)r4rOr,escape)membersrFmembernames r get_legacyrVsv"}}tW--  M  (  D"29T??G<>#&&Z((G11 E 1 1D::<<?Dd{{  3000  1 Orc|D]}|dkr d|d}tj||}tj|rItt |}t t j||}|||fcSdSdS)a paths is a list of directories to search for an archive. name is the abbreviated name given to find_library(). Process: search "paths" for archive, and if an archive is found return the result of get_member(). If an archive is not found then return None /librXz.aN)NN)rjoinexistsrAr9r_r,rR)pathsrUdirbasearchiverSrTs r find_sharedrq s$$ &== T~~~)C&& ;w   $ !8!899G $99F!f~%%%#||  $ rsi--\5 ########++++++++++ &  Q  5 5 5   0   .$$$L###842(((((r