U
    ÉZj6M  ã                   @   sH  d dl Z 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	Z	ddl
mZ d dlmZ eddƒZdrd
d„Ze	jdd�dd„ ƒZe	jdd�dd„ ƒZe	jdd�dd„ ƒZdd„ Zdd„ Zdd„ Ze	jjdd„ ƒZdd„ Zdd„ Zd d!„ Zd"d#„ Zd$d%„ Zd&d'„ Z d(d)„ Z!d*d+„ Z"d,d-„ Z#d.d/„ Z$d0d1„ Z%d2d3„ Z&d4d5„ Z'e	jjd6d7�d8d9„ ƒZ(d:d;„ Z)d<d=„ Z*d>d?„ Z+d@dA„ Z,dBdC„ Z-dDdE„ Z.dFdG„ Z/dHdI„ Z0dJdK„ Z1e	jjd6d7�dLdM„ ƒZ2dNdO„ Z3dPdQ„ Z4dRdS„ Z5dTdU„ Z6dVdW„ Z7dXdY„ Z8dZd[„ Z9d\d]„ Z:d^d_„ Z;d`da„ Z<dbdc„ Z=ddde„ Z>dfdg„ Z?dhdi„ Z@djdk„ ZAdldm„ ZBdndo„ ZCdpdq„ ZDdS )sé    N)ÚPath)Ú
namedtupleé   )Úutil)ÚmainÚPPathsz(finp, f90inp, pyf, wrap77, wrap90, cmodfÚuntitledc              
   C   sR   t | ƒ}t| d¡| d¡| d¡| |› d�¡| |› d�¡| |› d�¡d�S )ax  Takes in a temporary file for testing and returns the expected output and input paths

    Here expected output is essentially one of any of the possible generated
    files.

    ..note::

         Since this does not actually run f2py, none of these are guaranteed to
         exist, and module names are typically incorrect

    Parameters
    ----------
    fname_inp : str
                The input filename
    mname : str, optional
                The name of the module, untitled by default

    Returns
    -------
    genp : NamedTuple PPaths
            The possible paths which are generated, not all of which exist
    z.fz.f90ú.pyfz-f2pywrappers.fz-f2pywrappers2.f90úmodule.c)ÚfinpÚf90inpÚpyfÚwrap77Zwrap90Úcmodf)r   r   Úwith_suffixÚ	with_name)Z	fname_inpÚmnameÚbpath© r   ú_/var/www/html/TRUCKING_PROJECT/venv/lib/python3.8/site-packages/numpy/f2py/tests/test_f2py2e.pyÚget_io_paths   s    úr   Úsession)Úscopec                 C   s2   t  dddd¡ ¡ }|  ¡ d }|j|dd� |S )z'Generates a single f90 file for testingÚtestsÚsrcÚclizhiworld.f90z	hello.f90Úascii©Úencoding©r   ZgetpathÚ	read_textZgetbasetempÚ
write_text©Ztmpdir_factoryZfdatÚfnr   r   r   Úhello_world_f908   s    r$   c                 C   s2   t  dddd¡ ¡ }|  ¡ d }|j|dd� |S )ú'Generates a single f77 file for testingr   r   r   zhi77.fzhello.fr   r   r   r"   r   r   r   Úhello_world_f77A   s    r&   c                 C   s2   t  dddd¡ ¡ }|  ¡ d }|j|dd� |S )r%   r   r   Zreturn_realzfoo77.fzfoo.fr   r   r   r"   r   r   r   Úretreal_f77J   s    r'   c              	   C   s€   t |ƒ}t |ƒjd }| tdd|› d|› � ¡ ¡ t |j¡�6 tƒ  |  	¡ \}}d|ks`t
‚t |› ƒ ¡ srt
‚W 5 Q R X dS )zIEnsures that a signature file is generated via the CLI
    CLI :: -h
    r	   Úargvzf2py -h ú úSaving signatures to fileN)r   ÚstemÚsetattrÚsysÚsplitr   Ú	switchdirÚparentÚf2pycliÚ
readouterrÚAssertionErrorÚexists)Úcapfdr$   ÚmonkeypatchÚipathZopathÚoutÚ_r   r   r   Útest_gen_pyfS   s    r:   c              	   C   sZ   t |ƒ}| tdd|› � ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ksLt	‚W 5 Q R X dS )zHEnsures that a signature file can be dumped to stdout
    CLI :: -h
    r(   zf2py -h stdout r*   N©
r   r,   r-   r.   r   r/   r0   r1   r2   r3   ©r5   r$   r6   r7   r8   r9   r   r   r   Útest_gen_pyf_stdoutb   s    r=   c              
   C   s‚   t |ƒ}| tdd|› � ¡ ¡ t |j¡�L t dƒjddd� t 	t
¡�$ tƒ  |  ¡ \}}d|ksjt‚W 5 Q R X W 5 Q R X dS )	zjEnsures that the CLI refuses to overwrite signature files
    CLI :: -h without --overwrite-signature
    r(   úf2py -h faker.pyf ú	faker.pyfú	Fake newsr   r   z&Use --overwrite-signature to overwriteN)r   r,   r-   r.   r   r/   r0   r!   ÚpytestÚraisesÚ
SystemExitr1   r2   r3   )r5   r$   r6   r7   r9   Úerrr   r   r   Útest_gen_pyf_no_overwriten   s    rE   c              	   C   sª   t |dd�}|j}d}d}| tdd|› d|› � ¡ ¡ t |j¡�\ tƒ  |  	¡ \}}| ¡ D ]}	d|	› d	�|ks`t
‚q`| ¡ D ]}
d
|
› d�|ks‚t
‚q‚W 5 Q R X dS )z9Tests that functions can be skipped
    CLI :: skip:
    Útest©r   út0 t4 t8 sd s8 s4útd s0r(   úf2py z -m test skip: z=buildmodule: Could not found the body of interfaced routine "ú". Skipping.úConstructing wrapper function "ú"N©r   r   r,   r-   r.   r   r/   r0   r1   r2   r3   )r5   r'   r6   Úfoutlr7   ÚtoskipÚ	remainingr8   rD   ÚskeyÚrkeyr   r   r   Útest_f2py_skip}   s&     þ
ÿÿrT   c              	   C   sª   t |dd�}|j}d}d}| tdd|› d|› � ¡ ¡ t |j¡�\ tƒ  |  	¡ \}}| ¡ D ]}	d|	› d	�|ks`t
‚q`| ¡ D ]}
d
|
› d�|ks‚t
‚q‚W 5 Q R X dS )z>Test that functions can be kept by only:
    CLI :: only:
    rF   rG   rH   rI   r(   rJ   z -m test only: ú<buildmodule: Could not find the body of interfaced routine "rK   rL   rM   NrN   )r5   r'   r6   rO   r7   rP   Útokeepr8   rD   rR   rS   r   r   r   Útest_f2py_only•   s&     þ
ÿÿrW   c                 C   sÂ   t |dd�}|j}d}t|ƒ}d}d}	| tdd|› d|	› d	|› d
|› � ¡ ¡ t |j¡�\ t	ƒ  |  
¡ \}
}| ¡ D ]}d|› d�|ksxt‚qx| ¡ D ]}d|› d�|
ksšt‚qšW 5 Q R X dS )zfTests that it is possible to return to file processing mode
    CLI :: :
    BUG: numpy-gh #20520
    rF   rG   rH   ztd s0 hiÚblahr(   rJ   ú -m z only: z : rU   rK   rL   rM   N)r   r   r   r,   r-   r.   r   r/   r0   r1   r2   r3   )r5   r$   r'   r6   rO   r7   rP   Zipath2rV   r   r8   rD   rR   rS   r   r   r   Útest_file_processing_switch¬   s*    ý
ÿÿrZ   c              	   C   sv   d}t ||d�}|j}| tdd|› d|› � ¡ ¡ t |j¡� tƒ  W 5 Q R X t	 
|j¡sbt‚t	 
|j¡srt‚dS )zHChecks the generation of files based on a module name
    CLI :: -m
    ÚhirG   r(   rJ   rY   N)r   r   r,   r-   r.   r   r/   r0   r1   r   r4   r   r3   r   )r5   r$   r6   ZMNAMErO   r7   r   r   r   Útest_mod_gen_f77Ê   s    r\   c           	   	   C   sú   t |dd�}|j}t d¡}t d¡}| tdd|› d� ¡ ¡ t |j	¡�< t
ƒ  |  ¡ \}}| |¡dk	srt‚| |¡dks„t‚W 5 Q R X | tdd|› d	� ¡ ¡ t |j	¡�< t
ƒ  |  ¡ \}}| |¡dksÚt‚| |¡dk	sìt‚W 5 Q R X dS )
zHLowers cases by flag or when -h is present

    CLI :: --[no-]lower
    rF   rG   zHI\(\)zhi\(\)r(   rJ   z -m test --lowerNz -m test --no-lower)r   r   ÚreÚcompiler,   r-   r.   r   r/   r0   r1   r2   Úsearchr3   ©	r5   r&   r6   rO   r7   ZcapshiZcapslor8   r9   r   r   r   Útest_lower_cmodÛ   s$    

ÿra   c           	   	   C   s
  t |dd�}|j}t d¡}t d¡}| tdd|› d|j› d� ¡ ¡ t 	|j
¡�< tƒ  |  ¡ \}}| |¡d	k	szt‚| |¡d	ksŒt‚W 5 Q R X | tdd|› d|j› d
� ¡ ¡ t 	|j
¡�< tƒ  |  ¡ \}}| |¡d	ksêt‚| |¡d	k	süt‚W 5 Q R X d	S )z^Lowers cases in signature files by flag or when -h is present

    CLI :: --[no-]lower -h
    rF   rG   z	Block: HIz	Block: hir(   rJ   z -h z -m test --overwrite-signatureNz) -m test --overwrite-signature --no-lower)r   r   r]   r^   r,   r-   r   r.   r   r/   r0   r1   r2   r_   r3   r`   r   r   r   Útest_lower_sigõ   s0    

ýýrb   c              
   C   sv   t |ƒ}d}d}| tdd|› d|› d|› � ¡ ¡ t |j¡�, tƒ  |  ¡ \}}d|› d�|ksht	‚W 5 Q R X d	S )
zNEnsures that the build directory can be specified

    CLI :: --build-dir
    rX   Ztttmpr(   úf2py -m r)   z --build-dir zWrote C/API module "rM   Nr;   )r5   r$   r6   r7   r   Zodirr8   r9   r   r   r   Útest_build_dir  s    ÿrd   c              	   C   sn   t |ƒ}| tdd|› d� ¡ ¡ t |j¡�6 t dƒjddd� tƒ  |  	¡ \}}d|ks`t
‚W 5 Q R X d	S )
zXEnsures that the build directory can be specified

    CLI :: --overwrite-signature
    r(   r>   z --overwrite-signaturer?   r@   r   r   r*   N)r   r,   r-   r.   r   r/   r0   r!   r1   r2   r3   r<   r   r   r   Útest_overwrite-  s     þre   c              
   C   s”   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�R tƒ  |  ¡ \}}d|ksXt	‚t |› d�ƒ 
¡ �}d| ¡ ks|t	‚W 5 Q R X W 5 Q R X d	S )
zJEnsures that TeX documentation is written out

    CLI :: --latex-doc
    rX   r(   rc   r)   z --latex-docúDocumentation is saved to fileú
module.texú\documentclassN©r   r,   r-   r.   r   r/   r0   r1   r2   r3   ÚopenÚread©r5   r$   r6   r7   r   r8   r9   Zotexr   r   r   Útest_latexdoc>  s    ÿrm   c              	   C   sf   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ksXt	‚W 5 Q R X dS )zMEnsures that TeX documentation is written out

    CLI :: --no-latex-doc
    rX   r(   rc   r)   z --no-latex-docrf   Nr;   ©r5   r$   r6   r7   r   r8   r9   r   r   r   Útest_nolatexdocP  s    ÿro   c              
   C   s–   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�T tƒ  |  ¡ \}}d|ksXt	‚t d|› d�ƒ 
¡ �}d	| ¡ ks~t	‚W 5 Q R X W 5 Q R X d
S )zžEnsures that truncated documentation is written out

    TODO: Test to ensure this has no effect without --latex-doc
    CLI :: --latex-doc --short-latex
    rX   r(   rc   r)   z --latex-doc --short-latexrf   ú./rg   rh   Nri   rl   r   r   r   Útest_shortlatex`  s    ýrq   c              
   C   s–   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�T tƒ  |  ¡ \}}d|ksXt	‚t d|› d�ƒ 
¡ �}d	| ¡ ks~t	‚W 5 Q R X W 5 Q R X d
S )zIEnsures that RsT documentation is written out

    CLI :: --rest-doc
    rX   r(   rc   r)   z --rest-docú#ReST Documentation is saved to filerp   zmodule.restz.. -*- rest -*-Nri   )r5   r$   r6   r7   r   r8   r9   Zorstr   r   r   Útest_restdocv  s    ÿrs   c              	   C   sf   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ksXt	‚W 5 Q R X dS )zLEnsures that TeX documentation is written out

    CLI :: --no-rest-doc
    rX   r(   rc   r)   z --no-rest-docrr   Nr;   rn   r   r   r   Útest_norestexdocˆ  s    ÿrt   c              
   C   s~   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�< tƒ  t d|› d�ƒ ¡ �}d| 	¡ ksft
‚W 5 Q R X W 5 Q R X d	S )
zIEnsures that debugging wrappers are written

    CLI :: --debug-capi
    rX   r(   rc   r)   z --debug-capirp   r
   z#define DEBUGCFUNCSN©r   r,   r-   r.   r   r/   r0   r1   rj   rk   r3   )r5   r$   r6   r7   r   Úocmodr   r   r   Útest_debugcapi˜  s    ÿrw   zConsistently fails on CI.)Úreasonc              	   C   s’   t | ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�P tƒ  t d¡}t	j
|ddd	�}d
}t d¡}|j|ksvt‚|j|ks„t‚W 5 Q R X dS )zEEnsures that debugging wrappers work

    CLI :: --debug-capi -c
    rX   r(   rc   r)   z -c --debug-capiz#python3 -c "import blah; blah.hi()"TúUTF-8©Úcapture_outputr   ú Hello World
a   debug-capi:Python C/API function blah.hi()
debug-capi:float hi=:output,hidden,scalar
debug-capi:hi=0
debug-capi:Fortran subroutine `f2pywraphi(&hi)'
debug-capi:hi=0
debug-capi:Building return value.
debug-capi:Python C/API function blah.hi: successful.
debug-capi:Freeing memory.
        N)r   r,   r-   r.   r   r/   r0   r1   ÚshlexÚ
subprocessÚrunÚtextwrapÚdedentÚstdoutr3   Ústderr)r$   r6   r7   r   Úcmd_runÚroutÚeoutZeerrr   r   r   Útest_debugcapi_bld¨  s    ÿ


r‡   c              	   C   sº   t |ƒ}d}| tdd|› d|› � ¡ ¡ t |j¡� tƒ  W 5 Q R X |  ¡ \}}d|ks`t	‚| tdd|› d|› d� ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ks¬t	‚W 5 Q R X dS )zoEnsures that fortran subroutine wrappers for F77 are included by default

    CLI :: --[no]-wrap-functions
    rX   r(   rc   r)   ú Fortran 77 wrappers are saved toz --wrap-functionsNr;   rn   r   r   r   Útest_wrapfunc_defÆ  s    ÿr‰   c              	   C   sf   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ksXt	‚W 5 Q R X dS )zeEnsures that fortran subroutine wrappers for F77 can be disabled

    CLI :: --no-wrap-functions
    rX   r(   rc   r)   z --no-wrap-functionsrˆ   Nr;   rn   r   r   r   Útest_nowrapfuncß  s    ÿrŠ   c              
   C   sŽ   t |ƒ}d}| tdd|› d|› d� ¡ ¡ t |j¡�L tƒ  t d|› d�ƒ ¡ �&}| 	¡ }d|ksjt
‚d	|ksvt
‚W 5 Q R X W 5 Q R X d
S )zcAdd to the include directories

    CLI :: -include
    TODO: Document this in the help string
    rX   r(   rc   r)   z' -include<stdbool.h> -include<stdio.h> rp   r
   z#include <stdbool.h>z#include <stdio.h>Nru   )r5   r$   r6   r7   r   rv   Zocmrr   r   r   Útest_inclheaderï  s    ýr‹   c                   C   s   dS )z?Add to the include directories

    CLI :: --include-paths
    Nr   r   r   r   r   Útest_inclpath  s    rŒ   c                   C   s   dS )z;Add to the include directories

    CLI :: --help-link
    Nr   r   r   r   r   Ú
test_hlink  s    r�   c                   C   s   dS )zOCheck that Fortran-to-Python KIND specs can be passed

    CLI :: --f2cmap
    Nr   r   r   r   r   Útest_f2cmap  s    rŽ   c              	   C   s`   t |ƒ}| tdd|› d� ¡ ¡ t |j¡�( tƒ  |  ¡ \}}t	|ƒdksRt
‚W 5 Q R X dS )z)Reduce verbosity

    CLI :: --quiet
    r(   úf2py -m blah z --quietr   N)r   r,   r-   r.   r   r/   r0   r1   r2   Úlenr3   r<   r   r   r   Ú
test_quiet!  s    r‘   c              	   C   s\   t |ƒ}| tdd|› d� ¡ ¡ t |j¡�$ tƒ  |  ¡ \}}d|ksNt	‚W 5 Q R X dS )z-Increase verbosity

    CLI :: --verbose
    r(   r�   z
 --verboseZanalyzelineNr;   r<   r   r   r   Útest_verbose/  s    r’   c              	   C   sX   |  tdd ¡ ¡ t t¡�2 tƒ  |  ¡ \}}ddl}|j	| 
¡ ksJt‚W 5 Q R X dS )z"Ensure version

    CLI :: -v
    r(   zf2py -vr   N)r,   r-   r.   rA   rB   rC   r1   r2   ÚnumpyÚ__version__Ústripr3   )r5   r6   r8   r9   Únpr   r   r   Útest_version=  s    r—   c              	   C   sp   t | ƒ}| tdd|› d� ¡ ¡ t |j¡�8 tƒ  t d¡}t	j
|ddd�}d}|j|ksbt‚W 5 Q R X d	S )
z
    CLI :: -c
    r(   r�   z -cz"python -c "import blah; blah.hi()"Try   rz   r|   N)r   r,   r-   r.   r   r/   r0   r1   r}   r~   r   r‚   r3   )r$   r6   r7   r„   r…   r†   r   r   r   Útest_npdistopK  s    
r˜   c                   C   s   dS )z
    CLI :: -c --fcompiler
    Nr   r   r   r   r   Útest_npd_fcompiler_  s    r™   c                   C   s   dS )z
    CLI :: -c --compiler
    Nr   r   r   r   r   Útest_npd_compilerg  s    rš   c                   C   s   dS )z$
    CLI :: -c --help-fcompiler
    Nr   r   r   r   r   Útest_npd_help_fcompilero  s    r›   c                   C   s   dS )z
    CLI :: -c --f77exec
    Nr   r   r   r   r   Útest_npd_f77execw  s    rœ   c                   C   s   dS )z
    CLI :: -c --f90exec
    Nr   r   r   r   r   Útest_npd_f90exec  s    r�   c                   C   s   dS )z
    CLI :: -c --f77flags
    Nr   r   r   r   r   Útest_npd_f77flags‡  s    rž   c                   C   s   dS )z
    CLI :: -c --f90flags
    Nr   r   r   r   r   Útest_npd_f90flags�  s    rŸ   c                   C   s   dS )z
    CLI :: -c --opt
    Nr   r   r   r   r   Útest_npd_opt—  s    r    c                   C   s   dS )z
    CLI :: -c --arch
    Nr   r   r   r   r   Útest_npd_archŸ  s    r¡   c                   C   s   dS )z
    CLI :: -c --noopt
    Nr   r   r   r   r   Útest_npd_noopt§  s    r¢   c                   C   s   dS )z
    CLI :: -c --noarch
    Nr   r   r   r   r   Útest_npd_noarch¯  s    r£   c                   C   s   dS )z
    CLI :: -c --debug
    Nr   r   r   r   r   Útest_npd_debug·  s    r¤   c                   C   s   dS )z%
    CLI :: -c --link-<resource>
    Nr   r   r   r   r   Útest_npd_link_auto¿  s    r¥   c                   C   s   dS )z/
    CLI :: -c -L/path/to/lib/ -l<libname>
    Nr   r   r   r   r   Útest_npd_libÇ  s    r¦   c                   C   s   dS )z
    CLI :: -D<define>
    Nr   r   r   r   r   Útest_npd_defineÏ  s    r§   c                   C   s   dS )z
    CLI :: -U<name>
    Nr   r   r   r   r   Útest_npd_undefine×  s    r¨   c                   C   s   dS )z$
    CLI :: -I/path/to/include/
    Nr   r   r   r   r   Útest_npd_inclß  s    r©   c                   C   s   dS )z8
    CLI :: <filename>.o <filename>.so <filename>.a
    Nr   r   r   r   r   Útest_npd_linkerç  s    rª   )r   )Er€   r]   r-   r~   r}   Úpathlibr   Úcollectionsr   rA   Ú r   Znumpy.f2py.f2py2er   r1   r   r   Zfixturer$   r&   r'   r:   r=   rE   ÚmarkZxfailrT   rW   rZ   r\   ra   rb   rd   re   rm   ro   rq   rs   rt   rw   r‡   r‰   rŠ   r‹   rŒ   r�   rŽ   r‘   r’   r—   r˜   r™   rš   r›   rœ   r�   rž   rŸ   r    r¡   r¢   r£   r¤   r¥   r¦   r§   r¨   r©   rª   r   r   r   r   Ú<module>   s|   (

'






'
			
