B d@s<ddlmZmZmZddlmZddlmZddlm Z ddlm Z ddlm Z ddl Z ddlmZed Zdd d ZdddZGdddeZdddZddZddZddZddZdddZGdd d eZeZed!Zd"d#Z d$d%Z!d&d'Z"d(d)Z#d*d+Z$d,d-Z%d.d/Z&Gd0d1d1eZ'Gd2d3d3eZ(Gd4d5d5eZ)Gd6d7d7e)Z*d8d9Z+d:d;Z,ddbdcZ?dddeZ@dfdgZAdhdiZBdjdkZCdldmZDdndoZEdpdqZFdrdsZGdtduZHddvdwZIddxdyZJdzd{ZKd|d}ZLdd~dZMddZNddZOddZPdZQddZRdddZSddZTGdddeZUddZVddZWdZXddddddddd>deXd>ed>d>d>didideeeeedddd>fddZYdS))absolute_importdivisionprint_function)range)product) group_args)mutable)AutoN)zipPFcs.fddt|}|kr(|dSx"t|D]}||dkr2Pq2Wt|j}|d|rh|dSg|}xt||kr||}d|dkr|} |} |d7}x6||kr|} ||}|d7}|| kr| dkrPqWtqt|d kr|d7}d|fqt|d |r$|d 7}d|fqt|d |s<|d |rT|d7}d|fqt|d|s|d|s|d|s|d|r|d7}d|fqt|d|s|d|r|d7}d|fqt|d|rPqt|d7}qtWd|f||} ddlm} m}t || | || |d }ddfdd}|d|rZd}nd }d}d}xttD]\}}fdd}||kr|kr|dks|s|| }dkr|||n ||d||}|}qtW|kr*||dddS)Ncs|tddS)N,)replacefmt_comma_placeholder)line)callbacki/mnt/filia/a/genomebrowser/www/genomebrowser/fleming/tools/molprobity/modules/cctbx_project/fable/cout.py cb_finalize sz,break_line_if_necessary..cb_finalize z//z"'r\(z, z = z), z + z - z * z / z && z || )iroundiceilcsxt|kr|drd}|td|}|dkrH|d}nDxBt|dddD]*}||dkrZ||ddkr|d8}PqZWtd|d|dd||d}qWd|dS) N"rrrrrr)len startswithrfindrrAssertionError)sij)rfmax_lenrrbreak_more_if_necessaryJs   z8break_line_if_necessary..break_more_if_necessaryzif (csDx>ttD],}|\}}|dkr|krdSqWdS)NrTF)rr!)jppriop)br(ipr)potential_break_pointsrrfollowing_point_is_betteras  z:break_line_if_necessary..following_point_is_better)r%) r!rr$r"findappendlibtbx.math_utilsrrmaxrstrip)rrr)Zmin_lenncZi_startZlswiccqZic_qZprev_cnrrlr*Z indent_widthZpprioppr,r-r1r%r)r.rrr(r/r)r0rbreak_line_if_necessary s                "        r>cs@ggfdd}x"d|D]}t||dq(WS)Ncs<ddks&|dks&|ds8||d<dS)Nrz//C)lstripr"r3)r) prev_lineresultrrrys    zbreak_lines..callback )rr)join splitlinesr>)cpp_textr@rrr)r@rAr break_linesvs rFc@seZdZdddgZddZdS)dynamic_parameter_propsnamectypedefaultcCs||_||_||_dS)N)rHrIrJ)OrHrIrJrrr__init__sz dynamic_parameter_props.__init__N)__name__ __module__ __qualname__ __slots__rLrrrrrGs rGdc Cs|t|krdd|DSdd|D}t|}t|||}g}d}d}xxt|D]l\} } || |kr| |ksx||kr|||| dd}| d}q|||| | }| }qT|| 7}qTW|t|kr|||dtdd|Dt|kst|S)NcSsg|] }|gqSrr).0bufferrrr sz(create_buffer_blocks..cSsg|] }t|qSr)r!)rRlinesrrrrTsrrcSsg|] }t|qSr)r!)rRblockrrrrTs)r!sumr5 enumerater3r$) target_number_of_blocksbuffersZmin_lines_per_blockZnumbers_of_linesZ sum_linesZlines_per_blockrAZblock_sum_linesr'r&r;rrrcreate_buffer_blockss0       r[cCsddl}t|jdddS)Nr)limit) tracebackprint format_exc)r]rrrshow_tracebacksr`cCsBx,tt|D]}||dkr||dSqWt|dkr>dSdS)N0r)rr!)stringr&rrrstrip_leading_zeross   rdcCs$|ddddddddS) Nrz\\rz\" z\tz??z\?\?)r)r%rrrescape_string_literals rfcCst|jdkstg}xZ|jddD]H}g}|\}}|dk rJ||j|t|d|d|d|q&Wdd|S)Nrrr)vmapleadingtokrbzfem::cmplx(%s)z, )r!valuer$r3 convert_tokenrC)rgriccpartr9sign_tokZval_tokrrrconvert_complex_literals rocCs6|j}|r|||S|rv|dkr0dS|dkrdS|d ksR|d!krVd"S|d#ksj|d$krnd%S||rd&t|jd&}|dks|js|Sd'|S|r|d(krd)Sd*S| r|S| rd+|S| r|d,S| r| d-d.S|r*t||d/S|dS)0Nz.not.!z.and.z && z.or.z || z.eqv.z == z.neqv.z != )+-r*zstar /z//Tz + :z1, z, z.eq.z==z.ne.z/=z.lt.z > z.ge.z>=z >= rz str_cref(%s)z.false.falsetrue0xr(de)rgri)rj is_identifiergetis_opraise_internal_errorraise_not_supported is_stringrf is_logical is_integeris_hexadecimalis_realis_double_precisionr is_complexro)rgrhrihad_str_concattvr%rrrrks               rkc@s"eZdZdgZddZddZdS)major_types_cache identifierscCs d|_dS)N)r)rKrrrrLszmajor_types_cache.__init__c Cs|jdkrt|_ddl}|jjddtjjd}d}t|}| }WdQRXx<|D]4}| |rZ| dsvt |j|t|dqZW||jkS)Nrfablezfem/major_types.hpp) module_namepathtestz using fem::;r )rsetlibtbx.load_envenv under_distosrisfileopenreadrDr"endswithr$addr!)rKrjlibtbxhppZ using_femr(rUrrrr __contains__s    zmajor_types_cache.__contains__N)rMrNrOrPrLrrrrrr sraand and_eq asm auto bitand bitor bool break case catch char class compl const const_cast continue default delete do double dynamic_cast else enum explicit export extern false float for friend goto if inline int long mutable namespace new not not_eq operator or or_eq private protected public register reinterpret_cast return short signed sizeof static static_cast struct switch template this throw true try typedef typeid typename union unsigned using virtual void volatile wchar_t while xor xor_eq argv argc cCs|tks|tkrd|S|S)NZ identifier_) major_types cpp_keywords) identifierrrrprepend_identifier_if_necessary/srcCs^|jdkr|jdd}n$|jdk r:|j|jdd}nd}|dk rZ|d|dS)Nrz//C%s) stmt_offstextindex_of_exclamation_markstmt expandtabsr6)rsltrrrproduce_comment_given_sl4s  rcCs,|dkr dSx|jD]}t||dqWdS)N)rr)source_line_clusterr)rsslrrrrproduce_comment_given_ssl>s  rcCsx|D]}t||dqWdS)N)rr)r)rssl_listrrrrproduce_commentsDs rcCs4x.|D]&}|dkrx|D] }||qWdSqWdS)Nz//Cr)rrSrrrrflush_comments_if_non_trivialHs    rcCs4g}t|j|jdt|j|jdt||ddS)N)rr)rr)rrS)rr3leading_commentsrtop_sslr)rfprocrSrrrproduce_leading_commentsOs rcCs4g}t|j|jdt|j|jdt||ddS)N)rr)rr)rrS)rr3end_sslrtrailing_commentsr)rrrSrrrproduce_trailing_commentsVs rc@s4eZdZddgZddZddZddZd d Zd S) comment_managersl_listindexcCsVg|_x2|jD](}|dk rx|jD]}|j|q"WqW|jjdddd|_dS)NcSs|jS)N)global_line_index) source_linerrrgz*comment_manager.__init__..)keyr)r body_linesrr3sortr)rKrrrrrrrLas  zcomment_manager.__init__cCs&t||j|jd|jd7_dS)N)rrr)rrr)rKrrrrproducejszcomment_manager.producecCsL|jjdj}x8|jt|jkrF|j|jj}||kr8P|j|dqWdS)Nr )r)rrrrr!rr)rKexecutable_inforr&r'rrr insert_beforens zcomment_manager.insert_beforecCs&x |jt|jkr |j|dqWdS)N)r)rr!rr)rKrrrrflush_remainingvszcomment_manager.flush_remainingN)rMrNrOrPrLrrrrrrrr]s  rc@s$eZdZddddddgZddZd S) conv_hook_infoignore_common_and_saveneeds_sve_dynamic_parametersvariant_common_namesneeds_is_called_first_timeneeds_variant_binddata_init_after_variant_bindcCs(d|_d|_d|_d|_d|_d|_dS)NF)rrrrrr)rKrrrrLs zconv_hook_info.__init__N)rMrNrOrPrLrrrrrzsrc @s6eZdZddddddddd d d g Zd d ZddZdS)global_conversion_infotopological_fprocsdynamic_parametersfortran_file_comments fem_do_safearr_nd_size_max inline_allfprocs_by_nameconverted_commons_infoseparate_namespacesdata_values_block_sizedata_specializationsc CsL||_||_||_||_||_||_|j|_||_||_ | |_ | |_ dS)N) rrrrrr all_fprocsrrrrr) rKrrrrrrrrrrrrrrLs  zglobal_conversion_info.__init__cCs t||dS)N)global_conv_infor)conversion_info)rKrrrr specializedsz"global_conversion_info.specializedN)rMrNrOrPrLrrrrrrsrc@sNeZdZejdddgZdddZddZd d Zd d Zd dZ ddZ dS)rrrrgNcCsrd}x,tjD]"}|dk r"t||}t|||q W||_|jdkrJd|_nt|jd|_|dkrhi|_n||_dS)N)r)rrPgetattrsetattrrrrg)rKrrrgvalslotrrrrLs   zconversion_info.__init__cCs|jj}t||j|<dS)N)id_tokrjrrg)rKfdeclrrrrset_vmap_force_localsz$conversion_info.set_vmap_force_localcCs~|jdk r8|j|}|dk r8|dt||j|<dS|dkrRd||j|<dSddlm}||jkrzd||j|<dSdS) Nz::T)Zgetargciargczcmn.%sr) intrinsicszfem::F)rr~rrgrrextra_set_lower)rKrnsrrrrset_vmap_for_callables    z%conversion_info.set_vmap_for_callablecCs|jj}|r$dt||j|<n|r@dt||j|<nd|r|dkr`d||j|<q|dkrtd|j|<qd||j|<n |j|jjds|j|d d Sd S) Nzcmn.zsve.)floatintcharzfem::frz cmn.iargczfem::)r)rFT) rrj is_commonrrgis_save is_intrinsicrr)rKrrrrrset_vmap_from_fdecls  z#conversion_info.set_vmap_from_fdeclcCs6|jj}|j|}|dkr2|j|d|j|}|S)N)r)rrjrgr~r)rKrrrArrrvmappeds    zconversion_info.vmappedcCs<|j|}|dkr8|j|ds.t||j|<|j|}|S)N)r)rgr~rr)rKrrArrrvmapped_callables    z conversion_info.vmapped_callable)NNN) rMrNrOrrPrLrrrrrrrrrrs rcCsT|jj|}|dkr|g}x2|D]*}|j|}|dk r"|jr"|jjs"dSq"WdS)NTF)r"externals_passed_by_arg_identifierr~r needs_cmn conv_hookr) conv_info called_nameZ called_namesZ sub_fprocrrrcalled_fproc_needs_cmns  rcCsP|dk rL|rL|jdk rL|jdk rL|jj|d}|rLt||jdrLdSdS)N)r)rrTF)r}rr get_fdeclis_user_defined_callablerrj)rprev_tokrrrrcmn_needs_to_be_inserteds   rcCsjd}|d}|rP|jdkr0d}|dd}n |jdkrPd|j}|dd}|dt||dd d S) Nzfem::powr1rb)234z fem::pow%srT)rtokenscommas))rrjconvert_tokens)rrfunZpow_tokrrr convert_powers    rFc Cszg}|j}d}|dkr tdd}ddlm}x0||dD] }|rt|jdkr|jdjddr|jdr|d |jdjn|t ||jd|d n| r t ||d rt|jdkrt|jdjdkrd } qd } nd} || t ||jd|d dnL| rt n<|r:|t||jdn|t|jt|dk||d|}q:W|rpd|Sd|S)NF)rjr) group_power)rrrsrzstar /* %s UNHANDLED */)rrrr)rrz(cmn, z(cmnrTr)rr)rgrhrirz, rb)r3rfable.tokenizationris_seqr!rj is_op_withrris_parenthesesr is_implied_dor$is_powerrrkrgrC) rrrrrArapprrrioprrrr,sL     "     rcCsP|dk rt|dkstt|dks0|ds<|dtt|djdS)Nrr)rc)r!r$rrrrdrj)rrrrconvert_to_int_literal[s rcs*|jdkrH|jdk st|jj|jjd|_|jdkrH|jjddt|jt r\|jn|jj|j |j }dkrdkrd}n t |d}d|}|dkrd}nxfd d }d kr|d d }nTdkr|dd }n>dkr|dd }n(dkr"dk rd d}ndkrHdk rBd d}nڈdkrdkrpd}|dkrd}nptd}|dkrd}|dkrd}nH|dkrd}|dkrd}n*|dkrd}|dkrd }n dn@d!krdk rdd}|dkr"d}n td"||fS)#NrzMissing data type)msg characterr)rrz fem::str<%s>z fem::char0csdkr |SdtdfS)Nzfem::%s_star_%d)r)r)rI)data_type_code size_tokensrrconvert_to_ctype_with_sizevsz5convert_data_type..convert_to_ctype_with_sizelogicalbool)rIintegerrrealrZdoubleprecisiondoublebytercomplexzstd::complexz fem::float0)rzstd::complexz fem::double0 zstd::complexzfem::long_double0Z doublecomplexz$Not implemented: data_type_code = %s) data_typerr$implicitr~rrjraise_semantic_error isinstancestrr dim_tokensrraise_syntax_errorrr RuntimeError)rrcrhsr$ZcsizerIrszr)rrrconvert_data_typeasx                         r)c Csd}x.|D]&}x |jD]}|jddrd}PqWq Wg}xbt|D]V\}}t||jd}|dkrfd}n |dd }|r|d |d |fqB||qBW|rd |}nd d|d}|S)NFru)rjT)rrzstar starz, * z, starz dim%d(%s)r.z dimension(z, r)rjr rXrrr3rC) rr$Z need_originrriZdimsZi_dimcdimrArrr convert_dimss&      r-cCsDddlm}m}||dt|ks4||dt|kr8|Sd|dS)Nr)unsigned_integer_scanidentifier_scan)coderr)rr.r/r!)exprr.r/rrrparenthesize_if_necessarys r2cs|fdd}x`t|D]T\}}|jddrt||d|dd}t|||dddd}d||fSqWd ||dS) Ncs t|dS)N)rr)r)toks)rrrconvsz(convert_dim_to_static_size..convru)rj)r3)r1rz%s-%s+1z%s)rXr r2)rrr4r&rir(r<r)rrconvert_dim_to_static_sizes  r5cCsNg}x |D]}|t||jdq Wt|dkr:|dSddd|DS)N)rrrz * cSsg|]}t|dqS))r1)r2)rRr1rrrrTsz/convert_dims_to_static_size..)r3r5rjr!rC)rr$Ztermsrrrrconvert_dims_to_static_sizes   r6cCspt|||d\}}|j}d}d}|dk rdd}|s|jdk rt|dkr|jj|dd} | ddkrt| } | t|jkrddl m } | |drt }t ||d d } nd d d | D} d| |f} | drd} nd} dt|| | f}|jdkrd}|dkrJt|dkr$d|t|f} n|} | dr:d} nd} d| | f}|}|dkrdt||d}||||fS)N)rrr'z fem::fill0rF)r$ allow_powerr)dimensions_are_simple)r$T)rrrz, cSsg|] }d|qS)z%dr)rRvrrrrTsz.convert_data_type_and_dims..z%s, %srwrrbz arr_%dd<%s%s>z fem::no_fill0rz%s, %dz arr<%s%s>)rr$)r)r$rr!reval_dimensions_simplecountrabs fable.readr8r rrCrr-)rrr' force_arrrIdtcdimscfill0Zatypevalsr(r8rtemplsrrrconvert_data_type_and_dimssL              rDrbcCs|dd|dS)Nzarr()zfem::%s0)r"r)rIr%rrrzero_shortcut_if_possibles    rGc st|||d\}}}}|j|d}|dkrb|dkr.const_qualifierz %s%s %s = %s;Fz %s %s(%s);z%s %s(%s, %s);T)rDrrGr ) r rrr'rHrIr@rAvnamerIr)rHrconvert_declaration s   rKc@seZdZddddddddgZd(d d Zd dZddZddZddZddZ ddZ ddZ ddZ d)ddZ dd Zd!d"Zd#d$Zd*d&d'Zd S)+scopeparent opening_textauto_close_parent closing_textdata insert_pointtrailing_statement_label_indextailNFcCs4||_||_||_d|_g|_d|_d|_d|_dS)N)rMrNrOrPrQrRrSrT)rKrMrNrOrrrrL)szscope.__init__cCs t|jS)N)r!rQ)rKrrr current_point3szscope.current_pointcCs|t|jkS)N)r!rQ)rKpointrrrpoint_is_current6szscope.point_is_currentcCst|j|_dS)N)r!rQrR)rKrrrremember_insert_point9szscope.remember_insert_pointcCs|j|jdS)N)rV)rWrR)rKrrrinsert_point_is_current<szscope.insert_point_is_currentcCs0|jdk st|j|j||jd7_dS)Nr)rRr$rQinsert)rKobjrrr top_append?szscope.top_appendcCs|j|d|_dS)N)rQr3rS)rKr[rrrr3Ds z scope.appendcCs t|j|_|jd|dS)Nz statement_%s:)r!rQrSr3)rKlabelrrrappend_statement_labelHs zscope.append_statement_labelcCs|j|dS)N)rQr3)rKrrrrappend_commentLszscope.append_commentcCsd|_t|||dS)N)rMrNrO)rSrL)rKrNrOrrropen_nested_scopeOszscope.open_nested_scopecCs"|jdk r|j|jd7<dS)Nr)rSrQ)rKrrrfinalizeTs zscope.finalizecCsz|jdk st|jdkst|jdks*t|dg|_|}x|jj|krT|j}q@W|jj||jrt|j S|jS)N}) rNr$rPrTrarMrQr3rOclose_nested_scope)rKheadrrrrcXs  zscope.close_nested_scopecCsN|jdk st|jdkst|jdks*t|dg|_t||d|_|jS)Nrb)rMrN)rNr$rPrTrarL)rKrNrrr attach_tailfszscope.attach_tail cCsx|jD]~}t|trz|}xj|dk rvx|jD]}|||q,W|j||ddx|jD]}|||qZW|j}qWq|||qWdS)Nz )rindent)rQr"rLrN collect_textrPrT)rKrrgr[currrrrrrhos      zscope.collect_text)NF)F)rf)rMrNrOrPrLrUrWrXrYr\r3r^r_r`rarcrerhrrrrrLs,   rLc Cs|jdkr|}n|jdgd}|d|||fx>|jD]4}t||}|dk r:t||d} |d|| fq:W|jdd7<||k r||jdgd} t||jd} | d | | dS) Nztry {)rNzcmn.io.%s%s(%s))rrz .%s(%s)r rzcatch (fem::io_err const&) {zgoto statement_%s;)errr`r3chainrrrQrc) r curr_scope io_functionio_function_specialization io_call_argsiolistio_scoperrZcarg catch_scopeclabelrrrconvert_io_statement_with_err}s$     rtcCsLd}t|dkr |dr d}|dt|krH||}|pF|SdS)NrrrF)r!is_unary_plus_or_minusr}r)rr&rirrris_simple_do_lastsrvc Csdt|krdksntt|jd|d}t||djd}t||djd}t|dkrt||djd}|jd||||fgd S|jr|jd |||fgd St|djd r|jd |||fgd S|jd gd }| d||jd||fgddS)NrrT)rgrhrir)rrrzFEM_DOSTEP(%s, %s, %s, %s) {)rNzFEM_DO_SAFE(%s, %s, %s) {)rzFEM_DO(%s, %s, %s) {{zint fem_do_last = %s;zFEM_DO(%s, %s, fem_do_last) {)rNrO) r!r$rkrgrrjr`rrvr3) r parent_scopei_tok fls_tokensr&r(r<r%Zscope_for_lastrrrconvert_to_fem_dos&  r{cCsRt|tstx>t|D]2\}}|r8t||jdq|r||qWdS)N)rAr) r"listr$rXis_seq_or_parenthesesfind_implied_dosrjr r3)rArr&rirrrr~s r~c sGfdddt}|dkr*|}d}nd}d}|dkrDtdd}ddlm} x@| |dD]0} | rt|| j||d |n| r| t ||d r| d t | jdkr|t|| j||d | n| rR|dd lm} | | jd} t|| j| jd } t| || jd| j|d| dS| rr| t|| jdn| t|j|j| |d| }q^W|r|dS)NcsReZdZddgZddZddZddZd d Zd d Zd dZ fddZ dS)z convert_io_loop..cbufferstringsrhcSsg|_d|_dS)NT)rrh)rKrrrrLsz)convert_io_loop..cbuffer.__init__cSs|j|d|_dS)NF)rr3rh)rKrcrrrr3s z'convert_io_loop..cbuffer.appendcSs2t|jdkr(|jddkr(|jdd|_dS)Nrr z, T)r!rr3rh)rKrrr append_commas z-convert_io_loop..cbuffer.append_commacSs>t|jdkr:|jddks t|j|js4td|_dS)Nrr z, F)r!rr$poprh)rKrrrremove_trailing_commas   z6convert_io_loop..cbuffer.remove_trailing_commacSs|jdd|_dS)NrT)rr3rh)rKrrrappend_opening_parenthesiss z;convert_io_loop..cbuffer.append_opening_parenthesiscSs8t|jdkst|jddkr(||jddS)Nrr z, r)r!rr$rr3)rKrrrappend_closing_parenthesissz;convert_io_loop..cbuffer.append_closing_parenthesiscs:|t|jdkr6dd|jfg|_dS)Nrz%s, %s;rb)rr!rr3rC)rK)io_oprqrrflushsz&convert_io_loop..cbuffer.flushN) rMrNrOrPrLr3rrrrrr)rrqrrcbuffersrTF)rjr)r)r)rcbufr)rrcmn)implied_do_info)rrxryrz)rqrrrr)rr)rgrhrir)objectrrrrconvert_io_looprjrr rrr3r!rr rrr{rrz dlist_sizercr rrkrgrh)rqrrrrrrZ owning_cbufrrriridido_scoper)rrqrrsx            rc Cs(|s t|j}t|dks"tt|dkr2dSg}xftdt|D]T}||}|dksb|sj|t|||||jd|t |||jddqFW|j j |}t|dkr|j dk rd|dS|j jd kr|d |dSt|d ks|j jd ks|j dkr|d t|S) Nrrrbr)r top_scoperlrT)rrrz arr_index(%s)rz str_index(%s)rzarr_index(%s)(%s))rr$rjr!rr r!'declare_identifiers_parameter_recursionr3rrfdecl_by_identifierr$rtuple) rrrtok_seqrZcindicesr&rirrrrequivalence_align_with_args:         rcCs|jr dS|rdSdS)Nrbr9z const) is_modified)rshortrrrrE<s rEc Cs|jj|}t||ddd}|jdkr.d}n,t||||jdt||jd} d| d}|jj}|} | drx| d 7} | d | ||f|j |d |j |d } |j dkrd } d } d}d}nd} d} d}d}|jdkr&|j jdkrd| t|dd| | |f}nd| |t|dd| | || f}n|j jdkrtdt|j}|dkrPd}d| t|dd|| |||| |f }nBdt|j}|dkrd}d| t|dd||| ||||| |f }| |dS)N)rrr'rrb)rrrlr)rr$rrrwrz mbr<%s> %s%s;)rz/* z*/z */ z /* =rz %sstr_%sref %s %s %s.bind_str();T)rrz%s%s%s& %s %s %s.bind<%s>();Fz%drz0%sstr_arr_%sref<%s> %s(%s%s.bind_str()%s, %s)%s;z, %dz, 1z.%sarr_%sref<%s%s> %s(%s%s.bind<%s>()%s, %s)%s;)rrr)r$rr-rrjrr3rr use_countrrEr!)rrvariant_bind_chain mbr_buffer bind_bufferrrrIZ cdims_parensr@Z ctype_targrJpreqZclmZprmbindingZref_dimrrrconvert_to_mbr_bindAs`           rc Cs|ddgkr||di}|g} t|} |dx|D]} d} x| jD]} | jdj}||}|dkrt| ||<}| ||dk rt||||||d|d| |dt|||| dfgd } qLWq(%s)r)rrrrz .withz equivalence(%s)z, r)rr!r3rjr~rrrC)rrrrrallocate_line_listsequiv_tok_clusterrZi_mbr_by_identiferZeq_identifiersi_block equiv_tokZ align_withrZ eq_identifierZi_mbrrrrassemble_allocate_line_lists|sF        rcCs|ddgkr||ddddkrF|dddd|dd<t|dkrh|ddd7<n |dgx|D]}|d|qzWdS)Nr rrrr)rr!r3rC)rrZ line_listrrradd_allocate_lines_to_mbr_scopes   rc Cstgggd}|j}|j}x|jjD]\}}|jjj}|dks,||krPq,|d|fdg}|j |d|gg} xl|D]d} | j j } t |||||j | d|j| } | dkr| d| dqt|||||j | | | dqWt| |d q,W|j} t| jjd kr|d g}|j |t}xn| jjD]b} xZ| D]R}xJ|j D]@}|j d j } | |krxqZ|| t ||d ||j | dqZWqNWqDWd gg} x<| jjD]0} t||d|d| | | d j d j d j dqWt| |d t| jjd krt}xp| jjD]d} x\| D]T}xL|j D]B}|j d j } | |krRq4|| t ||d|j|j | dq4Wq(WqWdgg} x>| jjD]2} t||d|jd| | | d j d j d j dqWt| |jd |S)N) first_timeloc_equivalencesbindingsz2common_variant %s(cmn.common_%s, sve.%s_bindings);rz%s.allocate(),)rrrrrrr r)rrrrrrrr)rrrz:save_equivalences sve_equivalences(sve.save_equivalences);sve_equivalenceszsve_equivalences.allocate(),rzloc_equivalences.allocate(),)rrequivalence_infoequiv_tok_clusterscommonitemsrrr3rrrjrrequiv_tok_cluster_by_identifierr~rrclassified_equivalence_infor!saverrlocalr)rrZresult_buffers equiv_infor common_namecommon_fdecl_listZvcnrrrrrceiZmbr_defined_alreadyrrrrr%convert_variant_allocate_and_bindingss                      rc sNxFjjD]8\}gd}t}x~|D]v\}}d}|drRt|dkrRd}|||t|d}|dk rd}t|gd} d| |f}|q*Wdj r|st|dkrdddd d d dd  t |dfd d} fdd} fdd} g} t | dt| dkrj rttkr| rx8t D]*\}}t|jd}|d||fqZWqFtdd}dkrtjkr|dd|fn*|jdgd| d|ntdkrxtjjdkr4tjjjdkr4|n|jdgd| }d|d||k rn|d|dfq tjjdkrtjjjdkrtjkr|n|jdgddkrtjkr ddn| n| }d|tdd |k r q WdS)!NFrr)rrTz %s*datum(%s)rrrrzchar*)r hexadecimalrdouble_precisionrrcrc sLdx.data_values_blockedcsFdddddkr:d}nd}|S)Nzstatic const %s values[] = {z %sz, z};zchar*_strz<%s>)r3rC)r%)rrhomogeneous_ctyperrvalues_for_data_of_typeHs z-convert_data..values_for_data_of_typecsBx<D]4}t|jdkrjj|jdd}|jdk rdSqWdS)Nrr)rFT)r!rjrrr$)rr)rnlistrrhave_no_array_targetsOs   z+convert_data..have_no_array_targets)rArz%s = %s;)rrrzfem::data((values, %s)), %s;z, rw)rNz data, %s;z)fem::data_of_type%s(FEM_VALUES_AND_SIZE),z %s;z$fem::data_values data((values, %s));z.fem::data_of_type%s data(FEM_VALUES_AND_SIZE);rQ)rqrrr)rrQrrur!rtyperr3rr~r|r~r rjrrCr`rcrrr)rdata_init_scopeclistZhave_repetitionsZ tok_typesrepetition_tokctoksr&rlcrrrr implied_dosrcnr%r)rrrrrr convert_data%s         rcCspddlm}x^||dD]P}|j|jkr*qd|j|j<|jj|d}t||||dt||||dqWdS)Nr)extract_identifiers)r)r)rrrlr)rrrlr) rrrjrgrrr$required_parameter_assignment_tokensdeclare_identifier)rrrlrrrrrrrrs    rc Cs x|j|jgD]}|dkrqddlm}||d}x|D]}|j|jjkrX|jdd|j|jkrfq:|jj |d}|j dkrd} n:t ||||j d|j|jj krd|j} nt ||j d } |j|d s:t|jdk} | r|j} n|j} t| ||| d d q:WqWdS) Nr)r)rzRecursion in declaration)r)r)rrrlrzcmn.dynamic_params.)rr)rT)r rrr'rH)rr$rrrjrr!rgrrparameter_assignment_tokensrrrrr!target_statement_labelsr\r3rK) rrrlrZ sd_tokensrZ sd_id_tokensZ sd_id_tokZsd_fdeclZsd_crhs have_gotor rrrdeclare_size_dim_identifierss>          rcCst|dkstx|D]}d}d}d}xp|jD]f} | jdj} | |jjkr\|dksVt| }q.|jj| jdd} | dk r.| r.|dkst| }| }q.W|dk r|dk rPqWt|j|d|j |jjdkrt ||||jdt ||gd} d} |j jdkrrt ||j d}|jdkr %s(%s, %s, %s); %s)rrr'r>rz%s%s& %s = %s; %sFz%s %s(%s, %s); %s)rIrE)r!r$rjrrrrrrgr~rrrrr$rEr-rDrF)rrrl target_fdeclrrZtarget_tok_seqZsource_tok_seqZ source_fdeclrrrr'seZclenr@rIrrrsimple_equivalencesf               rcsjj|djdtjdkfdd}sjj|j }|dk r|}|t ||d|dk Sdk rz s rzd}|dk } s|krd}|dkrj dk r4t|j d|j jjkrd t|j }ntj d }d }nj dk r4|jd |j d |}t|dt|||d} | rvsr|krvd } | S|j fdd} | } | dk rd| tf} n j} jdk rtj<jj dkrdtd dtjf}n(tdd dd}t|td dd}tdtjd}| dk r`d| tf} |}|d|t| |fnf| dk sjdkrsrtj<tddd}|}|d|t| f|dk rd SdS)N)r)rrcsr jSjS)N)r\r3r)rrrrget_rappsz$declare_identifier..get_rapp)rrrlrrF)rrrlrzcmn.dynamic_params.)rrTzAssignment to PARAMETER %s)r)rrrlr)r rrr'rHcsTs dSjdkrdSjj}|dkr4dSt|dkrDdSjS)Nr)rrmember_registryr~r!rcommon_name_by_identifier) common_names)rrrrr!get_common_name_if_cast_is_needed8s  z=declare_identifier..get_common_name_if_cast_is_neededzstatic_cast(cmn).%srzstr_arr_%sref<%d>)rr)rrr'r>)rIrE)rr$z%s %s(%s, %s);r)rrr'z %s& %s = %s;)rrrr!rrrrr~rjris_local is_parameterrrrrrr!rrKrgr$rrErDrFr-rrr))rrrlrr'rrr rHZ have_crhsrArrZsrc_varrIr@r)rrrrrrrs                   rcP stdd jjr@d}jjjr(|d7} d|jjjf  |dk rx@|D]8}t  |dt |j d} d|j j|fqZW|dk rx|D]}|d|jjqWjj rΈ djjr d  }xjjD]\} } | jjjkrq xN| D]F} jj| j j}|jd kr|j jjkrt |j d qW s d | qW j|d s d  fddd dlm} t d} j}|jj }xdt!jj"D]P}jj|}|#r|jdkr||kr|jkrt |j d qW sh d djjj$rn j%dgd}t&| j'd kr|dx@| j'D]6}|j%dgd}x|D]}||qW|(qWxfjj)D]Z\}}| |ddx>|D]6\}}|dk r*| |gdd| |ddqWqWjjj*s^t+|d|( t&| j,d krĈ d j%dgd}|dx| j,D]}||qW|(x| j-D]} |qW jjj*r j%dgd}t+|d|( d dlm.  fdd  j/ x@t! "D]0} |dkrP |d!} d"||fqPWfd#d$}d%}i}d d&l0m1}d d'l2m3}  xjj4D ]~j5j6j7d(j8j9}!|!dk r |!j:kr |s j;|!d)fd*d+}" yĈj| j?d}$x$|#dd|$fD]}%|%dqdWt@j?d-|#d }&|&jjk}'|'st |&d.}'t@j=d-|'rfd/d0}(fd1d2})|(s|)sd3f n|jjEd6t@|.jBd-}/|.jCdkrt@jBd-}/|/dGkr&dF}/ fdHdI}3|3}g}4d%}5xJdJD]B}6tL|6}7|7dk rP|4dK|6t@|7d-f|6dLkrPdM}5qPWt&|4d krd<}4ndNdNM|4}4| jNd}8|8d|dkrdO|/}9n d@|/|f}9g}:tO|:jNdPt&|:d k rjPdk r2jQdk r2|5 s2};nj%dQgd};dR|2|9|4f}t&|>dk r܈jjS|>d dU}?|?jTdk r|?jTjdVk rdM}=jPdk sjQdk s|5 rdQ}@nd}@j%|@gd};|= rd<ndW|;dX|2|2d |9ft&|4d k r`|;dY|2d |4ftR|;|2d dZjNdT|;k r|;(x~d[D]v\}6}AtL|6}7|7dk rj%d\|Agd}Bt@tU|7d-}C|Bd]|C|B(n |5 rj%d\|Agd}B|B( qWnxjt j d x"jVD]}D| |Djdd qFWtWj jVd_j9dk r|Xj9gnjjjbdkrt&jj4d krjj4dj.declare_identifiers)r)rrrz// SAVEzif (is_called_first_time) {)rNz:using fem::mbr; // member of variant common or equivalencerw)r)r)rrz$local_equivalences loc_equivalences;zusing fem::mbr; // member)fmt_tokens_as_stringcs>jj|}|dkr&tdtjdt|tddS)Nz"Unknown FORMAT statement label: %sz"()rcommaz)")rformatr~rir!rjrfr) stmt_label fmt_tokens)rrrrget_cfmt_from_formats  z0convert_executable..get_cfmt_from_format)rz"static const char* format_%s = %s;csdjjjjdS)Nz return %s;)r3rgrrHrjr)rrlrr!curr_scope_append_return_functionsz=convert_executable..curr_scope_append_return_functionF)Error) SemanticError)rr)r]cs*gfdd}j|ddS)Ncs|dS)N)r3)rinext_tok)rrrrszZconvert_executable..search_for_id_tokens_and_declare_identifiers..callback)r)r)search_for_id_tokens)r)rei)rr,search_for_id_tokens_and_declare_identifierss    zHconvert_executable..search_for_id_tokens_and_declare_identifiers assignment)rr)rrrlrr'cssdSt}|tkr&dS|dkr6dS|d7}|tkrNdS|}|dkrbdS|d7}|tkrzdS|dkrdS|d7}|tkrdS|ddkrˆdnd||dfdS) NFrrrqrz%s++;z %s %s= %s;T)r"r!r3)r&r)clhsr'rlrrin_place_op_lefts2       z,convert_executable..in_place_op_leftcssdStt}|dkr*dS|d8}|dkrBdS|dkrNdS|d8}|}|dkrjdS|dkrvdS|d8}|dkrdS|dkrdSd|dkrdnd|d|fd S) NFrrrrqrz%s++;z %s %s= %s;T)rr!r3)r&r)rr'rlrrin_place_op_right%s2   z-convert_executable..in_place_op_rightz%s = %s;inquirezFConflicting UNIT vs. FILE in INQUIRE statement (exactly one is needed))r&Z_unit_filez)Missing UNIT or FILE in INQUIRE statement)rrlrmrnrorpfile_positioningrbrzMissing UNIT in OPEN statementzfem::file_not_specifiedz%s, %sclosezMissing UNIT in CLOSE statement)rwriter^r^r6zstar csjdk r$dtjtddSj}|dkr6dSt|dkr|d}|jddrZdS|r|j}|dkr|d |S|d St|d S) Nz"()rrz)"rrrs)rjr*z format_%s)r)rr) rrfrfmtr!r rrjr)tlrir)cilistrrfmt_counts_by_statement_labelrrrrconv_fmts     z$convert_executable..conv_fmt)reciostatz%s(%s)rTr+z%s, fem::unformatted)rArztry {z%s(%s)%sr)rqrrr)rrzcmn, z%s_loop %sloop(%s%s);z %sloop%s;loop))endZread_end)rjZio_errzcatch (fem::%s const&) {zgoto statement_%s;do)rrxryrzdowhilez while %s {cyclez continue;exitzbreak;enddoifz if (%s) {Zif_thenZ elseif_thenzelse if (%s) {elsezelse {endif if_arithmeticz!switch (fem::if_arithmetic(%s)) {csdj|jS)NZ statement_)labelsrj)r&)rrrlbl'rzconvert_executable..lblzcase -1: goto %s;zcase 0: goto %s;zdefault: goto %s;rcall)rgetargz cmn.getargz cmn.io.%szfem::%s)rrr)r)rrrcs,tdkrStdkr SdS)Nrz, )r!r)arrrcmn_aGs   z!convert_executable..cmn_areturnfunctionr zreturn;continuegoto goto_computedz switch (%s) {zcase %d: goto statement_%s;zdefault: break;stopra)rc)rgrhriz FEM_STOP(%s);entryz// UNHANDLED: ENTRY %sz)FEM_THROW_UNHANDLED("executable %s: %s");zP********************************************************************************zSorry: fable internal error)r&r)r)qrLr uses_saverrr3rHrjrXrr-r$r uses_read uses_writerUrrrrr~rrgrrYr\rWrrrrrrsortedkeysrrr`r!rrcrQrrrrrrr=rrr executablerrr_rr]rr^r lhs_tokensr$ rhs_tokensriuflistunitfiler!startrtalistrmolistcllistrrrCrpr~rrjrrrrrr{ setdefault cond_tokensresubroutine_namerr io_set_lowerrr arg_token fproc_typerXrrrdrkcode_with_stringsreversed Exceptionr^ format_errorrMrrarh)Prrargs_fdecl_with_dim blockdatamacrorr@rZtop_scope_point_before_commonr fdecl_list common_fdeclrZvariant_buffersrrrZfirst_time_scoperZ mbr_scoperrrrrrrZcfmtrZ!close_scope_after_next_executableZdos_to_close_by_labelrrrrZ lhs_id_tokensZ rhs_id_tokensrrZ assign_hererrrrnZ uf_tokensror"ZcunitZcfiler#Zwork_keyrZcchainZ has_iostatrrZiolist_id_tokenscargsrrqrZis_internal_fileZunit_id_tokensZ unit_fdeclZ opening_lineZ cexceptionrrrstokenr9rcalledr ZccondZ switch_scoper&r]ZcmsgZ dos_to_closerr) r rrrrr'rlrrrrrrrconvert_executablegs                                                                                                                                     r6cCsB|j}|dk r>|j|jjj}|dk r>x|D] }||q.WdS)N)rsave_struct_buffersr~rrHrj)rrZccirSrrrrexport_save_structs  r8cCs&|jr"|d|jjdjdjdS)Nz// Fortran file: %sr)rrrr file_name)rrrrrproduce_fortran_file_commentsr:cst|st||dggfdd}|jjrB|jjjsB|ddg}x|jjD]}|jdkrn|ddqR|j|jks~t|jj |d }|j |d |j dkst|j d krd t |j} n t |j} |jdk rH|jjd krH|jdkr|dt|dd| n>t|jdkrd} ndt|j} |dt|dd| f| n|st||ddd } |jdkr|d| t|ddft | nZt|jdkr| } nd| t|jf} | drd} nd} |dt|dd| | f| nL|jj|jj}|dkst|d krd} n t|d } || d| d|jdk rR|j d krR||qRWd}|jjdk r|jj |jjd }|jdk rt||ddd }d |j|jjj<|r|d|d!|jr|d"|d#|t |jjjd$fdS|jjr@|dkr|}n|}|d|d%|t |jjjd$fx||gD]}|dkr\qJ|d||krt||jd&t||d'|jr|d"||||krd(}nd}t |jjj}td kr||d)|n||d*d+d,|qJW|d-|dkr<|d.||j|jjjt |d/f|rL|d0nt!|||d1|d2t"||jd&dS)3N)rrcs ||d|dS)Nr)r3)rIrH)r3fptrrr cargs_appends z-convert_to_cpp_function..cargs_appendzcommon&rrszfem::star_type const&z/* UNHANDLED: star argument */)r)rrz/* %s */rz str_%srefT)rrrrbz%dzstr_arr_%sref<%s>)rrr'z%s%s&Fz%s, %drwrzarr_%sref<%s%s>Z UNHANDLEDZ_function_pointer)rIrHvoid return_valuez)// forward declaration (dependency cycle)inlinez %s %s(%s);z, z&typedef %s (*%s_function_pointer)(%s);)rr)rrrz()z( z, rrwz %s %s = %s;)rIz throw TBXX_NOT_IMPLEMENTED();)rrr.rb)#r8rrrrargsrjrgr$rrrrrrr$rEr!rr)rrr~rrr3rHrrCis_passed_as_externalrr:rGr6r) cpp_callback hpp_callbackrdeclaration_onlyforce_not_implementedr<r.rrarg_namer,rIrrCZpassedZcdeclcbrlastcnamer)r3r;rconvert_to_cpp_functions                         $  rJc"s|dks td}t|d|d|d||di}i} d} |dkrjjjrx&tjjjD]} |d| d } qdWj} | jj }t |d kr|d d } | j j } d d l m igg} x|D]x}|j|krq|j| krq| |jj|d }xB|j|jgD]2}|dkr qfdd|dqWqWg}g}t d krX| rl|dd}x؈D]}jj|d }t|ddd }|jrd }|d|t|jf|jjjkrdt|j}nt|jd}||j|fnDt|jd}|d|t|j|f|d||t|jfd }qvW|rX|dg}g}xn| D]d}jj|d }|jjkrqht|dd ddd\}}}|dkr|d|t|jf|dkrt|d}||j|fn|r|r*|d|t|jf||jd|fnt|ddd }t|jd}|d|t|j|f|jjdkr|dt |jt|jfn|dt|dt|jf||jd t|j|ffqhWt |d kr |dx|D]}||qW||t |}|d kr|d|s8|d!|n|d"||d#|d$xPt|D]D}||}|d%|kr~d}nd&}|d't|d |d%|fq^W|d(|d)t |d kr|d|o|d*k} | r|d+x|D]}!||!qW| r|d,t |d-S).N)rrF)rrbz struct %srwrz$ fem::variant_bindings %s_bindings;Trz3 fem::variant_core_and_bindings save_equivalences;)r)rcsxd}xn|dD]`}|jkr qd|j<jj|d}|d}|sX|jjjkr\d}||j<|qW|S)NF)r)rT)rjrrrrr3)rZhave_dynamic_dependencyrrZhdp) const_id_toksconst_identifiersrrparameter_recursionrrrM? s    z.convert_to_struct..parameter_recursion)r)rrr'z const %s %s;zdynamic_params.)rrz static const %s %s = %s;zconst %s %s::%s;)rrr'r>rz %s %s;)rIz%s, fem::fill0)rr$z %s %s_memory[%s];rz str_arr_ref<%d> %s;z*%s_memory, %s, fem::fill0z %s() :z %s(z- dynamic_parameters const& dynamic_params)z :rrz %s(%s)%sz {}z};rz%#ifdef FEM_TRANSLATION_UNIT_WITH_MAINz#endif)need_dynamic_parameters)!r$rrrrrrrrrr!rrrrjr3rrr$r)rrrrrrDrGr6rrFextendrr)"rseparate_cmn_hppr struct_type struct_nameequivalence_simple id_tok_listrNrZcmn_equivalencesZhave_variant_blockrrZremaining_id_tok_listrrrZ initializersZconst_definitionsZappend_empty_linerIr'Zdeferred_arr_membersZdeferred_arr_initializersr@Z ctype_coreZ cstatic_sizerr;r&iirZ need_ifdefcdr)rKrLrrrMrconvert_to_struct s                               rWc* s ddlm}t}|dkr"|n|xL|D]>\}} i} x(| D] \} } | d| g| qFWt| dkr2||t | } dd}| j |ddddl }t |d |j }fd d }| d}td |d tdt| d tdtdd| Dd |d|x^| ddD]N}|d|tddd||ddd|dddDd q Wq2Wd}xNt|D]>}||}t|dkrtd|dt|fd d}qW|rtd t ||}t|dkrtdt|d ix"|D]\}}t||<qW|j fdddtddd x0|D](}td|t|||fd qXWtd td d t}x|D]}td!|d d"}g}d#}x||D]}|\}}|j|j|f} | |krP|| |jdj}!tj|j\}"}#d$|#|j|"f}$|$|krHd"}$n|$}||!|$ft|t|!}qWt|dkrd%|}%x|D]}&t|%|&d qWqWtdkr|dkrddl}'d&}(dd'lm})td(|)|(|'j d t!|(d)"|S)*Nr)StringIOrBrcSs t|dS)Nr)r!)r rrrsize_key sz(generate_common_report..size_keyT)rreverse unified_diffcs.td|dtdd|dDddS)Nzprocedures %s:rcSsg|] }|jjqSr)rHrj)rRrrrrrT sz?generate_common_report..show_fprocs..r)r)r^rCr)r]Z cpp_fprocs)reportrr show_fprocs sz+generate_common_report..show_fprocsz common name:)rznumber of variants:z2total number of procedures using the common block:cSsg|]\}}t|qSr)r!)rRcppfprocsrrrrT sz*generate_common_report..firstsecondrcSsg|]}|qSrr)rRrrrrrT sFzName clash: %s in COMMONs: %sz, z#common variants due to equivalence:cs| |fS)Nr)element) size_sumsrrr rz(generate_common_report..)rz& %-20s procedures sum of membersz common namez %-20s %8d %8dz$Locations of equivalence statements:z %srbz %s(%s) %sz %%-%ds %%sZfable_cout_common_report) show_stringz Writing file:w)# six.movesrXrrr$rCr3r!rr|rdifflibrndiffr^rWrDrr stmt_locationr9 line_numberrjrrsplitr6r5getvaluesyslibtbx.str_utilsrestderrrr)*common_fdecl_list_sizescommon_equiv_tok_seqsccode_registryr'variant_due_to_equivalence_common_namesstringiorXrrZfproc_cpp_pairsZ fprocs_by_cpprr^Zfprocs_by_cpp_itemsrYrhZ diff_functionr]Zmain_cpp_fprocsZother_cpp_fprocsneed_empty_linerrvvsizesZreported_alreadyZprev_loctabZ max_len_col1rrr&tagZvndnbnlocrrowrnZreport_file_namerer)r\rcrgenerate_common_report s       *               rc% Cs|dk r|d|d|dx |D]}|d|j|jfq&W|dx@|D]8}||dk rfd}nd}|dt|jt|j|fqPW|d t|x|D]}|d t|jqW|d |d |d |d|d|d|di}i} i} i} t} g} x$|jD]}|jj s| |qWt}xR| D]H}d|j_ x6|j D]&\}}||g t|g}x|D]}|jdkst| |j| |jjt|||kr|j|jj}|dk rd|j_ | |x2|D]*}x"|jD]}| |g |q WqWqWd|}g}t|j ||d|||k|d}|jrn||| |g ||fq^WqBW| t|| | | | |dt}g}g}x| D]}t|j_x|j D]\}}|| kr|jj|||kr^||| |nF||kr||| d|x"| |ddD]}||qLWqWqWx| D]z}|jj st|jjdkp||j_ |jj pt|jdk|j_|jj ot|jdk|j_ |jjrpd|_!qpW|"|#i}g}x| D]}g}x*|j$%D]} | &r | | jq Wt|dkr\|jjs\q |j'dddd|jj}g}t|j ||d|d|d}|||jj<|jrd|j_(| |q Wt|dkrt|dkr|dkr|d|ddS|d|dd g}!|dk r$|! d!|d"d#)|!||dd}"x|D]}|d$|d}"qLWd%d&}#x"|D]}|d'|#|d}"qtW|"r|dd(g}$|dk r|$ d)x&|D]}||kr|$ d*|qW|d+d,)|$|d t*| |d-S).Nrbzstruct dynamic_parametersrwz %s %s;zT dynamic_parameters( fem::command_line_arguments const& command_line_args) :r rz %s(%s)%sz; { fem::dynamic_parameters_from(command_line_args, %d)z .reset_if_given(%s)z ;z }z};Ztypedefz5 fem::dynamic_parameters_capsulez dynamic_parameters_capsule;FTZcommon_r)rrPrrQrRrSrT)rqrrrsrrtrurrcSs|jS)N)rj)r4rrrr rz!convert_commons..)rz%s_saverzusing fem::common;zstruct common :z fem::commonZdynamic_parameters_capsulez z, z fem::variant_core common_%s;cSs|dddS)Nver)rRrrr save_as_sve rz$convert_commons..save_as_svez fem::cmn_sve %s;zfem::common(argc, argv)z-dynamic_parameters_capsule(command_line_args)z%s(dynamic_params)z? common( int argc, char const* argv[]) : %s {}z, )rr7)+rIrHrr#rJr!rbottom_up_listrrr3rrrr$rr$rrjrrrr~rWrNupdaterrrhas_saverQrrreach_fproc_update_is_modifiedeach_fproc_update_needs_cmnrvaluesrrrrCr)%rrPrrcommon_equivalence_simplecommon_report_stringiodp_propsr9rqrrZcommon_ccode_registryrrZbottom_up_filteredrZ&struct_commons_need_dynamic_parametersrrrTr2rrrrRrSinfoZcommons_defined_alreadyZstruct_commonsZvariant_commonsrr7Zsave_struct_namesrZ leading_basesrvrZinitializationsrrrconvert_commons sT                                                    rz?#include // Fortran EMulation library of fable modulecCs8|dd|}|d||d||ddS)Nz::_z #ifndef %sz #define %srb)upperr)r namespacesuffixr%rrr include_guard s  rTcCs4|d}x|D]}|d|qW|r0|d|S)Nz::znamespace %s {z" using namespace fem::major_types;)rl)rrusing_namespace_major_typesrZ componentrrropen_namespace s  rcCsB|d|d}|ddt||f|r>|d|d|S)Nrbz::z%s // namespace %srbz#endif // GUARD)rlr!)rr hpp_guardrrrrclose_namespace s rc@seZdZddgZddZdS)hpp_cpp_buffersrr^cCsg|_g|_dS)N)rr^)rKrrrrL szhpp_cpp_buffers.__init__N)rMrNrOrPrLrrrrr src CsHg}x|jjD]}|sq|j|d}t||d|jj}|||dt||dt ||d|d||j s|dg} yt | j||jj j dWn tk r|stYn6X|j r|jjs|d x| D] } || qW|d t||dqWt|||d } t|d krD|d|d d| |d gdS)N)r)rrrb)rr)rrz,void %s( int argc, char const* argv[]) {zZ if (argc != 1) { throw std::runtime_error("Unexpected command-line arguments."); })rrr/z common cmn(argc, argv);rb)rrrrzgint main( int argc, char const* argv[]) { return fem::main_with_catch( argc, argv, %s); }z::)rr is_programrr8rHrjr3rr:rr6rr/r,r`rrrrr!rC) rrrrdebugZ main_callsrrrIZ result_bufferrrrrrconvert_program sL           rcCs0x*|D]"}|jdk rtt|dddSqWdS)N)rrr'rr=)rr)r)fdeclsrrrr get_missing_external_return_type; s   rplease_specifyAllrcH s||gddkstdks&dkr*dddl}|dkrH|jj|d}x&|jD]}t|_|jj |k|j_ qPWgfdd} d}!t |dkrd }!|dk r|dkstd }!|!rd }|dk rt | |d |r| d | d fd dfddd}"|!r| dn |r$| dn | t d }"| d |!sR| drR| d t| |"d|j|d}#|#j}$t |$dkrxDt|$D]4}%|%|krqt|$|%d}&| d|&|%|%fqW|#j}'t |'dkr| d | dt |'x |'D]}(| dd|(qW| d|dk rt |dks8txF|#jD]<}x4|D],})|j|)j}*|*dk rJ|j|)jqJWq@W|rg}+|+j},t |,dd |,t |,d t|,dn|rdd},n| },yt|,||#|| |d }-Wn(tk rstd}.YnX|rTt|,d d!t d"d#}/t!d$t"|+d%|/d&WdQRXg}0i}1x|#D]\}2}3t |3dkrt$d'|2g}4|4d|4d |0|2|4ft|4jdx,|3D]$}%|%|1krt$d(|%|4|1|%<qWqfWi}5i}6x҈#D]\}2}3t |3dkr(t$d)|2t%}7xdd*D]\}8t&|7|8}4|8d+krht |4j|2d,d |4t n|4d-|2|4d t|4j|2dq4Wx4|3D],}%|%|5krt$d.|%|2|5|%<|7|6|%<qWqW|!sdd}9ngg}9t'|#||| | | |-|5||d/ }:x|#jD]}|(r"q|jj |kr4qd};d}<|jj |k}=|6|jj }7|7dkr|!sr|=s| }|>|>j};|=s|1|jj }4|4dkr|dkr| }.callbackFT)rrrz&#define FEM_TRANSLATION_UNIT_WITH_MAINrbcs6tdkrdSx tD]}|d|qWdS)NrFz#include "%s.hpp"T)r!rr)rrH)!separate_files_separate_namespacerrinclude_separate s  z!process..include_separatecsdkrd|Sd|fS)Nz#include "%s.hpp"z#include <%s/%s.hpp>r)rH)include_prefixrrinclude_with_prefix sz$process..include_with_prefix functionsr)r)rrr)top_procedures)rzW %s %s(...) { throw std::runtime_error( "Missing function implementation: %s"); }z/* Dependency cycles: %dz rz */Z_CMN_HPP)rrcSsdS)Nr)rrrr cmn_callback rzprocess..cmn_callback)rrPrrrr)rrrzcmn.hpprfrB)rE)rz-separate_files_main_namespace: empty list: %sz7separate_files_main_namespace: ambiguous assignment: %sz1separate_files_separate_namespace: empty list: %s)rr^rZ_HPPz#include "%s.hpp"z;separate_files_separate_namespace: ambiguous assignment: %s) rrrrrrrrrr)r)rCrBrrD)rCrBrrErz.cppr+cs|kr|dkstd}n|dkr(d}nd|}t|dfdd}|krtt|dd|d |d n |d |d t|d dx(|D] }xt|dD] }||qWqWt||kddS)Nz functions.hppz functions.cppzfunctions_%03d.cpprfcst|ddS)N)r)r^)r)r(rrfcb| rz-process..write_functions..fcbZ_FUNCTIONS_HPP)rrrr)rrrbF)rrr)rE)rrr)r$rrrrFrr)rZserialfnrrUr)function_declarationsrrr)r(rwrite_functionss s2          z process..write_functions)rYrZ)rZ)rZr)rrrrr)N)1r;r$r=rprocessall_in_input_orderrrrHrjrr!rinclude_fem_hppr*build_bottom_up_fproc_list_following_calls%missing_external_fdecls_by_identifierrrrdependency_cyclesrCrrr~rrr3rr,r`rrr^rFrr&rrrrrr^forward_uses_by_identifierrrJrr[r)HrrrrrZinclude_guard_suffixZtop_cpp_file_namerrrrrrsuppress_programsuppress_commonrPZnumber_of_function_filesZseparate_files_main_namespaceZ#write_separate_files_main_namespacerZ'write_separate_files_separate_namespacerrEZignore_missingsuppress_functionssuppress_function_definitionsrrrrrrrZneed_function_hppZneed_using_major_typesrmissingr return_typeZ dep_cyclesrrrZ cmn_bufferrrZcommon_commons_infor(Zseparate_function_buffersZ)separate_function_buffer_by_function_namerHrrSrZseparate_namespaces_buffersrZextZfunction_definitionsrrCrBZ suppress_cppZfunction_hpp_bufferZfunction_cpp_bufferZ cpp_divertedZfwdsZfwd_identifierZ fwd_fprocrZ buffer_blocksrrr)rrrrrrrArrrD s                    "                               (     .      r)r r )N)rQ)N)FN)F)rb)NN)N)NN)FF)T)Z __future__rrrrgr libtbx.utilsrrrrr os.pathrr chrrr>rFrrGr[r`rdrfrorkrrrrlrrrrrrrrrrrrrrrrrr)r-r2r5r6rDrFrGrKrLrtrvr{r~rrrErrrrrrrrrr6r8r:rJrWrrrrrrrrrZdefault_arr_nd_size_maxrrrrrs       j   C  )P   /H  ( `  ^;. oj$< h &  w+cC  7