Otj61ddlmZmZmZddlmZmZddlmZm Z m Z ddl Z ddl Z ddl Z ddlZddlmZiZded<ded <ed ed <iZd ed <ed ed <d ed<iZgd ed<gded<gded<gded<gdZdZd$dZdZdZgZgZeD]H\ZZeeZeeereeef1eeefIdZdZ dZ!dZ"dZ#d Z$d!Z%d"Z&d#Z'dS)%)xyz)IS_WASMskip)codegen make_routineget_code_generatorN)Pathzy program main include "codegen.h" integer :: result; result = 0 %(statements)s call exit(result) end program F95z #include "codegen.h" #include #include int main() { int result = 0; %(statements)s return result; } C89C99z if (fabs(%(call)s)>%(threshold)s) { printf("Numerical validation failed: %(call)s=%%e threshold=%(threshold)s\n", %(call)s); result = -1; } z if (abs(%(call)s)>%(threshold)s) then write(6,"('Numerical validation failed:')") write(6,"('%(call)s=',e15.5,'threshold=',e15.5)") %(call)s, %(threshold)s result = -1; end if )zcc -c codegen.c -o codegen.ozcc -c main.c -o main.oz#cc main.o codegen.o -lm -o test.execc)z$gfortran -c codegen.f90 -o codegen.oz6gfortran -ffree-line-length-none -c main.f90 -o main.oz%gfortran main.o codegen.o -o test.exegfortran)zg95 -c codegen.f90 -o codegen.oz1g95 -ffree-line-length-huge -c main.f90 -o main.oz g95 main.o codegen.o -o test.exeg95)z!ifort -c codegen.f90 -o codegen.ozifort -c main.f90 -o main.oz"ifort main.o codegen.o -o test.exeifort)r rrrr rr rr rctrdSttjd5}|D]8}t j||dtj}|dkrddddS9 dddn #1swxYwYdS)z>Run a series of commands and only return True if all ran fine.FwT)stdoutshellstderrrN)ropenosdevnull subprocesscallSTDOUT)commandsnullcommandretcodes _/var/www/html/CA-Chatbot/venv/lib/python3.11/site-packages/sympy/external/tests/test_codegen.pytry_runr(tsu bj#  $  G ogd$%,...G!||   4s.A-A--A14A1Tc<|}|tvsJ|tvsJtjdd}|dvrt dtjd|zd|z}tj }tj ||rt||dd n(t|d} | |dd g} |D]\} } } }| d d d | Dd | d}|dkr+t|}tt!|}| t|||dz|dkrd}n*|drd}nt'd|zt)|t|dd| izt-|}|rt-dg}nd}|dks |dkr|r|rd}|d|d|d|d|d|d|d|d tj |tj|n2t1d!|zt2j"tj ||s#Jd#|d$d%||s#Jd&|d'd%|d(S))a|A driver for the codegen tests. This driver assumes that a compiler ifort is present in the PATH and that ifort is (at least) a Fortran 90 compiler. The generated code is written in a temporary directory, together with a main program that validates the generated code. The test passes when the compilation and the validation run correctly. SYMPY_TEST_CLEAN_TEMPalways)r+successneverzSSYMPY_TEST_CLEAN_TEMP must be one of the following: 'always', 'success' or 'never'.z_sympy_%s_testz%s_rT)to_files(,c34K|]}t|VdSN)str).0args r' zrun_test..s(773c#hh777777z)-()r )r! thresholdzmain.f90Czmain.cz2FIXME: filename extension unknown for language: %s statementsz ./test.exeFr,cptj|rtj|dSdSr2)rpathisfileremove)filenames r' safe_removezrun_test..safe_removes8w~~h'' $ (##### $ $r7z codegen.f90z codegen.cz codegen.hz codegen.ozmain.oztest.exezTEST NOT REMOVED: %s)filezfailed to compile z code with:  zfailed to execute z code from: N)upper main_templatenumerical_test_templatergetenvlower ValueErrortempfilemkdtempgetcwdchdirrr writejoinfortranize_double_constantsr3append startswithNotImplementedErrorr write_textr(rmdirprintsysr)labelroutinesnumerical_testslanguager#friendlycleanworkoldworkcode_gen test_stringsfn_nameargsexpectedr9 call_stringf_namecompiledexecutedrBs r'run_testrjs~~H } $ $ $ $ . . . . . I-x 8 8 > > @ @E 222nooo  ,x7 G GDikkGHTNNN; (I=====%h ::xT:::L.=   *x GGSXX77$7777777C u  5kBBK3C NNCCI3H="A A      5   S ! !M! @8 KMM M LLh<1F1F"GGIIIx  HL>** Ui//H// $ $ $  M""" K    K    K    J H H J   $t+#*====  '''$))H%%%'''8 '''$))H%%%'''8''r7cddld}d}fd}d}|||}|||}|S)z; Replaces every literal float with literal doubles rNz\d+(\.)?\d*[eE]-?\d+z\d+\.\d*(?!\d*d)cXdd|dS)Nz[eE]dr)subgroup)matchobjres r'subs_expz-fortranize_double_constants..subs_exps%vvfc8>>!#4#4555r7c2d|dzS)Nz%sd0r)ro)rps r' subs_floatz/fortranize_double_constants..subs_floatsq))))r7)rqcompilern) code_string pattern_exp pattern_floatrrrtrqs @r'rQrQsIII**455KJJ233M66666***//(K88K##J <>>>>> uuQ{{# QTIOJJ d= J JJD$q1d++00D99::H  " "D4,%#H I I I I J.PPh"IhOOOOPPr7cddlm}ddlm}m}m}d|t |tz|tzdz fd||||||||t tztzfg}g}|D]\}}dD]x\}} } || t | t|  t| } | ||| | f| dfytD]\} } td ||| | dS) Nrr)rrrtest1test2))rrg333333ӿ)rrg)rg@rg-q=complicated_codegen)rrrrrrrrrexpandrrRrrj)rrrrrr[rrrrzvalrerr#s r'test_complicated_codegenris""""""HHHHHHHHHH CCFFSSVVOcc!ff,q088::; ##cc##cc##cc##cc!a%!)nn*=*=&>&>"?"?@@AABBCCDIOPP d S P P D$q1d++00D99>>q$GGHHH  " "D4t*rs0........MMMMMMMMMM     e  e%U+ e" "9!?"          \'\'\'\'~(   088ND()H{4""8""D(#34444%%tX&67777;;; ;;; 888 ;;; 666NNN#2#2#2LPPP"OOOOOr7