a Oc7V@s`ddlZddlZddlZddlZddlZddlZddlmZddl m Z da ddZ ddZ d d ZGd d d ZeZgd ZddgiZeddged<eddged<dged<dged<edddged<edddged<edddged<edddged<eddged<eddged<eddged<eddged<edddged<edgded<eddged<ejjdksejjdkr$ejdkr$eefd kr$egd!edgd"ed#<ed#gd$ed%<eddd&ged&<Gd'd(d(ZGd)d*d*ZGd+d,d,ZGd-d.d.ZdS)/N)typeinfo)utilcCsbtstdtdur^d}tjt}t ddddt ddt dd g}t ||d adS) z6 Build the required testing extension module zNo C compiler availableNz config.add_extension('test_array_from_pyobj_ext', sources=['wrapmodule.c', 'fortranobject.c'], define_macros=[]) testssrcZarray_from_pyobjz wrapmodule.czfortranobject.czfortranobject.hZtest_array_from_pyobj_ext) rZhas_c_compilerpytestskipwrapospathdirname__file__ZgetpathZbuild_module_distutils)Z config_codedrr]/var/www/html/gsl.tools/lib/python3.9/site-packages/numpy/f2py/tests/test_array_from_pyobj.py setup_modules    rcCst|d}t|S)N)r array_attrs flags2names)arrflagsrrr flags_info*srcCs0g}dD]"}t|tt|d@r||q|S)N) CONTIGUOUSFORTRANOWNDATAZ ENSURECOPYZ ENSUREARRAYZALIGNEDZ NOTSWAPPED WRITEABLEZWRITEBACKIFCOPYZBEHAVEDZ BEHAVED_ROZCARRAYZFARRAYr)absgetattrr append)rinfoZflagnamerrrr/s  rc@s@eZdZgfddZddZddZddZd d Zd d Zd S)IntentcCsP|dd|_d}|D].}|dkr.|tjO}q|ttd|O}q||_dS)NroptionalZ F2PY_INTENT_) intent_listr Z F2PY_OPTIONALrupperr)selfr"rirrr__init__Fs zIntent.__init__cCs&|}|dkrd}||j|gS)Nin_in)lower __class__r")r$namerrr __getattr__PszIntent.__getattr__cCsdd|jS)Nz intent(%s),)joinr"r$rrr__str__VszIntent.__str__cCs d|jS)Nz Intent(%r)r"r/rrr__repr__YszIntent.__repr__cGs|D]}||jvrdSqdS)NFTr1)r$namesr+rrr is_intent\s zIntent.is_intentcGst|jt|ko|j|SN)lenr"r4)r$r3rrris_intent_exactbszIntent.is_intent_exactN) __name__ __module__ __qualname__r&r,r0r2r4r7rrrrr Es  r )BOOLBYTEUBYTESHORTUSHORTINTUINTLONGULONGLONGLONG ULONGLONGFLOATDOUBLECFLOATr;r<r=r>r?r@rArBrCrDrErF)rArFrGrGrHwin32)Darwinarm) LONGDOUBLECDOUBLE CLONGDOUBLE)rCrFrGrNrN)rHrOrPrPrOc@sHeZdZiZddZddZddZddZd d Zd d Z d dZ dS)TypecCst|tjrD|}d}tD]&\}}t|ts|j|jur|}qDq|j|d}|durb|St |}| |||j|<|Sr5) isinstancenpdtyperitemstype _type_cachegetr#object__new___init)clsr+Zdtype0nr%objrrrrZs   z Type.__new__cCsd||_t|j}ttd|j|_|j|jks6Jt|j |_|j |_ |j d|_ |j |_ dS)NZNPY_rJ)r#NAMErrr type_numnumrSrTrVbitselsizechar dtypechar)r$r+rrrrr[s   z Type._initcsfddtjDS)Ncsg|]}|qSrr*.0_mr/rr z#Type.cast_types..) _cast_dictr_r/rr/r cast_typesszType.cast_typescsfddtDS)Ncsg|]}|qSrrfrgr/rrrjrkz"Type.all_types..) _type_namesr/rr/r all_typesszType.all_typescCs:t|jj}g}tD] }t|j|kr|t|q|Sr5rr_ alignmentrnrrQr$rbtypesr+rrr smaller_typess  zType.smaller_typescCsFt|jj}g}tD],}||jkr$qt|j|kr|t|q|Sr5rprrrrr equal_typess  zType.equal_typescCs:t|jj}g}tD] }t|j|kr|t|q|Sr5rprrrrr larger_typess  zType.larger_typesN) r8r9r:rWrZr[rmrortrurvrrrrrQs  rQc@s,eZdZddZddZddZddZd S) ArraycCs(||_||_||_t||_||_t|j ||j ||_ t |j t jsLJt|j |_t|dkr|jdr|j tj@sJ|j j drJ|j j dsJ|jdtj@rJnD|j tj@rJ|j j dsJ|j j drJ|jdtj@sJ|durd|_d|_dS|drXt |t js@Jtt|t |j||_nHt jt j||jdj||jdrdpd d |_|jj|ksJ|jj|j j d d |jj d sJ||ft|j|_t|dkrp|jdr6|jj dr J|jj dsJ|jdtj@rpJn:|jj dsHJ|jj drZJ|jdtj@spJ|jd|jdksJ|jd|jdksJ|jddkr|jd|jdksJt|jd|jd|j |jf|jddd|jdddks J|jd|jdkszJt|jd|jdtd|jd|jdt|jd|f|dr|jdd|jjksJn2|jdd|jjksJ| |j|j sJt |jt jr$|jt!|jjkr$|ds$|jddkr$|"s$JdS)NrcrrrcacherTCF)orderrwriterrcopy)#rVdimsintentrdeepcopyZobj_copyr^r callr`rrrRrSndarrayrarr_attrr6r4Z F2PY_INTENT_CrZpyarrZ pyarr_attrreprarrayZreshapererTsetflagstobytesrrc arr_equalrQhas_shared_memory)r$typrrr^rrrr&s     *  zArray.__init__cCs|j|jkrdS||kS)NF)shapeall)r$Zarr1Zarr2rrrr8s zArray.arr_equalcCs t|jSr5)strrr/rrrr0=sz Array.__str__cCs@|j|jurdSt|jtjs"dSt|j}|d|jdkS)z6Check that created array shares data with input array.TFr)r^rrRrSrr rr)r$Zobj_attrrrrr@s   zArray.has_shared_memoryN)r8r9r:r&rr0rrrrrrwsSrwc@seZdZddZdS) TestIntentcCstttjjdksJtjjds&Jtjjdr8JtjjddsLJtjjdds`JtjdrpJdS)Nzintent(in,out)rxr()rrr'outrxr4r7r/rrr test_in_outKs zTestIntent.test_in_outN)r8r9r:rrrrrrJsrc@s"eZdZddgZgdgdgZejddeddd Zd d Z d d Z ej dddgej dddgej dddgddZ ddZddZddZdd Zd!d"Zd#d$Zd%d&Zd'd(Zd)d*Zd+d,Zd-d.Zd/d0Zd1d2Zd3d4Zd5d6Zd7d8Zd9d:Zd;d<Zd=d>Z d?S)@TestSharedMemoryrr)rrr)rIrrTclass)ZautouseZscopeparamscs"tjj_fddj_dS)Ncsttj|||Sr5)rwrQparam)r$rrr^requestrr[sz-TestSharedMemory.setup_type..)rQrr\rVr)r$rrrr setup_typeXszTestSharedMemory.setup_typecCs$|dgtj|j}|r JdS)Nr)rrr'num2seqrr$arrrtest_in_from_2seq^sz"TestSharedMemory.test_in_from_2seqcCsx|jD]h}tj|j|jd}|t|jgtj|}|j |jj krf| srJt |jj|jfq | r Jq dSNrz) rVrmrSrrrTr6rr'rcrrr$tr^rrrrtest_in_from_2casttypebs  z'TestSharedMemory.test_in_from_2casttyperwror}r{r|inpZ2seqZ23seqcCsdt|d|}tj||jj|d}|j|dkd||j|dkrJtjj pNtj|}| s`JdS)z5Test if intent(in) array can be passed without copiesrarTr}rr~r{N) rrSrrVrTrrrr'rxr)r$rr}rseqr^rrrrtest_in_nocopykszTestSharedMemory.test_in_nocopyc Cstj|j|jjd}|t|jgtj|}|s8Jz|dgtj j|j}Wn4t y}zt | dsrWYd}~nd}~00t ddS)Nrzrz6failed to initialize intent(inout|inplace|cache) arrayz,intent(inout) should have failed on sequence)rSrrrVrTr6rinoutrr' TypeErrorr startswith SystemError)r$r^rmsgrrrtest_inout_2seqws z TestSharedMemory.test_inout_2seqc Cstj|j|jjdd}t|jt|jdf}||tjj|}| sLJtj|j|jjdd}t|jt|jdf}z||tjj|}Wn4t y}zt | dsWYd}~nd}~00t ddS)Nr|rrr{z(failed to initialize intent(inout) arrayz2intent(inout) should have failed on improper array)rSrnum23seqrVrTr6rr'rr ValueErrorrrr)r$r^rrrrrrtest_f_inout_23seqs  z#TestSharedMemory.test_f_inout_23seqcCsPtj|j|jjd}t|jt|jdf}||tjjj |}| sLJdSNrzr) rSrrrVrTr6rr'rxrrr$r^rrrrrtest_c_inout_23seqsz#TestSharedMemory.test_c_inout_23seqcCsL|jD]<}tj|j|jd}|t|jgtjj |}| r Jq dSr) rVrmrSrrrTr6rr'rrrrrrtest_in_copy_from_2casttypesz,TestSharedMemory.test_in_copy_from_2casttypecCs6|t|jt|jdgtj|j}|r2JdSNr)rr6rrr'rrrrrtest_c_in_from_23seqs z%TestSharedMemory.test_c_in_from_23seqcCsV|jD]F}tj|j|jd}|t|jt|jdgtj|}| r Jq dSr) rVrmrSrrrTr6rr'rrrrrtest_in_from_23casttypes z(TestSharedMemory.test_in_from_23casttypecCst|jD]d}tj|j|jdd}|t|jt|jdgtj|}|j |jj krb| snJq | r Jq dSNr|rr) rVrmrSrrrTr6rr'rcrrrrrtest_f_in_from_23casttypesz*TestSharedMemory.test_f_in_from_23casttypecCst|jD]d}tj|j|jd}|t|jt|jdgtjj |}|j |jj krb| snJq | r Jq dSr) rVrmrSrrrTr6rr'rxrcrrrrrtest_c_in_from_23casttypesz*TestSharedMemory.test_c_in_from_23casttypecCsZ|jD]J}tj|j|jdd}|t|jt|jdgtjj |}| r Jq dSr) rVrmrSrrrTr6rr'rrrrrrtest_f_copy_in_from_23casttypesz/TestSharedMemory.test_f_copy_in_from_23casttypecCsZ|jD]J}tj|j|jd}|t|jt|jdgtjj j |}| r Jq dSr) rVrmrSrrrTr6rr'rxrrrrrrtest_c_copy_in_from_23casttypesz/TestSharedMemory.test_c_copy_in_from_23casttypec Cs@|jD].}|j|jjkr q tj|j|jd}t|jf}||tj j j |}| s^J||tj j |}| s|Jtj|j|jdd}||tj j j |}| sJ||tj j |}| sJt |jz ||tj j |ddd}Wn8ty0}zt|dsWYd}~q d}~00tdq dS)Nrzr|r(failed to initialize intent(cache) arrayz8intent(cache) should have failed on multisegmented array)rVrorcrSrrrTr6rr'rxryrrrrrr)r$rr^rrrrrrtest_in_cache_from_2casttypes0     z-TestSharedMemory.test_in_cache_from_2casttypec Cs|jD]}|j|jjkrq tj|j|jd}t|jf}z||tj j |Wn4t y}zt | dsrWYd}~q d}~00tdq dS)Nrzrz1intent(cache) should have failed on smaller array)rVrorcrSrrrTr6rr'ryrrrr)r$rr^rrrrr$test_in_cache_from_2casttype_failures z5TestSharedMemory.test_in_cache_from_2casttype_failurec Csd}||tjjd}|jj|ks&Jd}||tjjd}|jj|ksLJd}z||tjjd}Wn4ty}zt|dsWYd}~nd}~00t ddS)Nrrrrr2failed to create intent(cache|hide)|optional arrayz8intent(cache) should have failed on undefined dimensions) rrryhiderrrrrrr$rrrrrrtest_cache_hiddens"z"TestSharedMemory.test_cache_hiddenc Cshd}||tjd}|jj|ks$J||jtj||jj dsDJd}||tjd}|jj|kshJ||jtj||jj dsJ|jj dr|jj drJd}||tj jd}|jj|ksJ||jtj||jj dsJ|jj ds|jj ds Jd}z||tjd}Wn8t yZ}zt |dsFWYd}~nd}~00tddS) Nrrzrrrrrz7intent(hide) should have failed on undefined dimensions)rrrrrrrSzerosrVrTrrxrrrrrrrr test_hiddens2    zTestSharedMemory.test_hiddencCsd}||tjd}|jj|ks$J||jtj||jj dsDJd}||tjd}|jj|kshJ||jtj||jj dsJ|jj dr|jj drJd}||tj jd}|jj|ksJ||jtj||jj dsJ|jj ds|jj ds JdS)Nrrzrrr) rrr!rrrrSrrVrTrrx)r$rrrrrtest_optional_none2s   z#TestSharedMemory.test_optional_nonecCs@|j}t|f}||tj|}|jj|ks0J|rsV  !   $>f