o
    ʩZh                     @   s   d dl Z d dlZd dlZd dlZd dlmZ d dlmZ d dlm	Z	 d dl
mZ dgZG dd deZedkrMd d	lmZ ed
 eedd  dS dS )    N)	FCompiler)find_executable)make_temp_file)logIBMFCompilerc                   @   sh   e Zd ZdZdZdZddgdgddgdgd	gd
dgdgdZdd Zdd Zdd Z	dd Z
dd ZdS )r   ibmzIBM XL Fortran Compilerzo(xlf\(1\)\s*|)IBM XL Fortran ((Advanced Edition |)Version |Enterprise Edition V|for AIX, V)(?P<version>[^\s*]*)z<F77>z	-qversionxlfZxlf90z-qfixedZxlf95arz-crranlib)Zversion_cmdZcompiler_f77Zcompiler_fixZcompiler_f90Z	linker_soZarchiverr
   c           
   	      s  t j| g|R i |}|d u rNtjdrNtd}td}tj|rNtj|rNz
t	
|ddg}W n tt	jfy@   Y nw td|}|rN|d}d |d u rtj rtt }|   fd	d
|D }|rddlm}	 |	|d  | _}|S )Naixlslppr   z-LcZxlfcmpz xlfcmp:(?P<version>\d+([.]\d+)+)versionz/etc/opt/ibmcmp/xlfc              	      s(   g | ]}t jt j |d r|qS )zxlf.cfg)ospathisfilejoin).0dZxlf_dir T/var/www/html/lang_env/lib/python3.10/site-packages/numpy/distutils/fcompiler/ibm.py
<listcomp>5   s   ( z,IBMFCompiler.get_version.<locals>.<listcomp>r   )LooseVersion)r   get_versionsysplatform
startswithr   r   r   exists
subprocesscheck_outputOSErrorCalledProcessErrorresearchgroupisdirsortedlistdirreverseZdistutils.versionr   r   )
selfargskwdsr   r   r   omlr   r   r   r   r      s*   zIBMFCompiler.get_versionc                 C      dgS )Nz	-qextnamer   r)   r   r   r   	get_flags;      zIBMFCompiler.get_flagsc                 C   r/   )Nz-gr   r0   r   r   r   get_flags_debug>   r2   zIBMFCompiler.get_flags_debugc           
      C   s   g }t jdkr|d n|d | jddgd}|d uryt jdr'd}nd	| }td
d\}}td|  t|)}t	
dj}|D ]}||}	|	rY|d|	d  qF|| qFW d    n1 siw   Y  |  |d|  |S )Ndarwinz/-Wl,-bundle,-flat_namespace,-undefined,suppressz-bsharedr   (   )Z	ok_statusr   z/etc/xlf.cfgz/etc/opt/ibmcmp/xlf/%s/xlf.cfgz_xlf.cfg)suffixz	Creating z \s*crt\s*=\s*(?P<path>.*)/crt1.ozcrt = %s/bundle1.o
r   z-F)r   r   appendr   r   r   r   infoopenr"   compilematchwriter$   close)
r)   optr   Zxlf_cfgfoZnew_cfgfiZ
crt1_matchliner-   r   r   r   get_flags_linker_soA   s.   


z IBMFCompiler.get_flags_linker_soc                 C   r/   )Nz-O3r   r0   r   r   r   get_flags_opt[   r2   zIBMFCompiler.get_flags_optN)__name__
__module____qualname__Zcompiler_typedescriptionZversion_patternZexecutablesr   r1   r3   rB   rC   r   r   r   r   r      s"    
__main__)customized_fcompiler   r   )compiler)r   r"   r   r   Znumpy.distutils.fcompilerr   Znumpy.distutils.exec_commandr   Znumpy.distutils.misc_utilr   	distutilsr   Z	compilersr   rD   Znumpy.distutilsrI   Zset_verbosityprintr   r   r   r   r   <module>   s    Q
