a
    hÝEba  ã                "   @   s¢  d Z ddlmZ ddlmZmZmZmZmZm	Z	m
Z
mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZm Z m!Z! ddlm"Z" ej#Z$ddg d¢dd	d
dddœZ%ddddddddddddddddddœdddg ddddg ddg ddddddddddddddddde	d ee	ƒdid!œd"ed#id$ed%igd&ed'id(gd)eeeeƒeeƒƒd*œed+id,d-d.ed/id0ed1igd&ed'id2d3gd4ed5œd6d7d8d9ed#id:ed;igd<d&ed'id2d(d=ged>œd?d@e	d igdAedBœed4dCœgZ&eeeƒdDieeeƒdDied?ieeeƒdEe	d igieeeƒdEe	d igied@ee	eƒd ee	eƒdFigieeeƒdGieeeƒdGiddHœ	eeeƒdIeeeeƒƒdJe
dKedIieeeƒdLeeeeƒƒdMe
dLedLieeeƒd=eeeeƒƒdNe
dNed=ieee
eƒd=iedOiedPiedQidRœeeƒdSieeee!dTƒƒdiedUiedVieeeeeƒeƒƒdWieeeeeƒeeƒƒƒdXieeeeeƒƒdYieeeeeeƒƒƒdZiged&d(gied'iged[œed\ied]iged^ied_ied=igeeeƒdd`œedaidbedcigd=d3ed'id2geeeƒddœedeiedfiedgigedhied_igeeeƒdd`œdidje
ddkœedliedmeeƒdnidogee
eeeeƒƒddpœedUidqedridsedtigdued=igee
eƒddœdGedvœg
Z'i Z(dwdx„ Z)dydz„ Z*d{S )|aK  

Build call-back mechanism for f2py2e.

Copyright 2000 Pearu Peterson all rights reserved,
Pearu Peterson <pearu@ioc.ee>
Permission to use, modify, and distribute this software is given under the
terms of the NumPy License.

NO WARRANTY IS EXPRESSED OR IMPLIED.  USE AT YOUR OWN RISK.
$Date: 2005/07/20 11:27:58 $
Pearu Peterson

é   )Ú__version__)Ú
applyrulesÚ	debugcapiÚ
dictappendÚerrmessÚgetargsÚhasnoteÚisarrayÚ	iscomplexÚiscomplexarrayÚiscomplexfunctionÚ
isfunctionÚ
isintent_cÚisintent_hideÚisintent_inÚisintent_inoutÚisintent_nothideÚisintent_outÚ
isoptionalÚ
isrequiredÚisscalarÚisstringÚisstringfunctionÚissubroutineÚl_andÚl_notÚl_orÚoutmessÚreplaceÚ
stripcommaÚthrow_error)ÚcfuncszPtypedef #rctype#(*#name#_typedef)(#optargs_td##args_td##strarglens_td##noargs#);a^  
#begintitle#
typedef struct {
    PyObject *capi;
    PyTupleObject *args_capi;
    int nofargs;
    jmp_buf jmpbuf;
} #name#_t;

#if defined(F2PY_THREAD_LOCAL_DECL) && !defined(F2PY_USE_PYTHON_TLS)

static F2PY_THREAD_LOCAL_DECL #name#_t *_active_#name# = NULL;

static #name#_t *swap_active_#name#(#name#_t *ptr) {
    #name#_t *prev = _active_#name#;
    _active_#name# = ptr;
    return prev;
}

static #name#_t *get_active_#name#(void) {
    return _active_#name#;
}

#else

static #name#_t *swap_active_#name#(#name#_t *ptr) {
    char *key = "__f2py_cb_#name#";
    return (#name#_t *)F2PySwapThreadLocalCallbackPtr(key, ptr);
}

static #name#_t *get_active_#name#(void) {
    char *key = "__f2py_cb_#name#";
    return (#name#_t *)F2PyGetThreadLocalCallbackPtr(key);
}

#endif

/*typedef #rctype#(*#name#_typedef)(#optargs_td##args_td##strarglens_td##noargs#);*/
#static# #rctype# #callbackname# (#optargs##args##strarglens##noargs#) {
    #name#_t cb_local = { NULL, NULL, 0 };
    #name#_t *cb = NULL;
    PyTupleObject *capi_arglist = NULL;
    PyObject *capi_return = NULL;
    PyObject *capi_tmp = NULL;
    PyObject *capi_arglist_list = NULL;
    int capi_j,capi_i = 0;
    int capi_longjmp_ok = 1;
#decl#
#ifdef F2PY_REPORT_ATEXIT
f2py_cb_start_clock();
#endif
    cb = get_active_#name#();
    if (cb == NULL) {
        capi_longjmp_ok = 0;
        cb = &cb_local;
    }
    capi_arglist = cb->args_capi;
    CFUNCSMESS("cb:Call-back function #name# (maxnofargs=#maxnofargs#(-#nofoptargs#))\n");
    CFUNCSMESSPY("cb:#name#_capi=",cb->capi);
    if (cb->capi==NULL) {
        capi_longjmp_ok = 0;
        cb->capi = PyObject_GetAttrString(#modulename#_module,"#argname#");
        CFUNCSMESSPY("cb:#name#_capi=",cb->capi);
    }
    if (cb->capi==NULL) {
        PyErr_SetString(#modulename#_error,"cb: Callback #argname# not defined (as an argument or module #modulename# attribute).\n");
        goto capi_fail;
    }
    if (F2PyCapsule_Check(cb->capi)) {
    #name#_typedef #name#_cptr;
    #name#_cptr = F2PyCapsule_AsVoidPtr(cb->capi);
    #returncptr#(*#name#_cptr)(#optargs_nm##args_nm##strarglens_nm#);
    #return#
    }
    if (capi_arglist==NULL) {
        capi_longjmp_ok = 0;
        capi_tmp = PyObject_GetAttrString(#modulename#_module,"#argname#_extra_args");
        if (capi_tmp) {
            capi_arglist = (PyTupleObject *)PySequence_Tuple(capi_tmp);
            Py_DECREF(capi_tmp);
            if (capi_arglist==NULL) {
                PyErr_SetString(#modulename#_error,"Failed to convert #modulename#.#argname#_extra_args to tuple.\n");
                goto capi_fail;
            }
        } else {
            PyErr_Clear();
            capi_arglist = (PyTupleObject *)Py_BuildValue("()");
        }
    }
    if (capi_arglist == NULL) {
        PyErr_SetString(#modulename#_error,"Callback #argname# argument list is not set.\n");
        goto capi_fail;
    }
#setdims#
#ifdef PYPY_VERSION
#define CAPI_ARGLIST_SETITEM(idx, value) PyList_SetItem((PyObject *)capi_arglist_list, idx, value)
    capi_arglist_list = PySequence_List(capi_arglist);
    if (capi_arglist_list == NULL) goto capi_fail;
#else
#define CAPI_ARGLIST_SETITEM(idx, value) PyTuple_SetItem((PyObject *)capi_arglist, idx, value)
#endif
#pyobjfrom#
#undef CAPI_ARGLIST_SETITEM
#ifdef PYPY_VERSION
    CFUNCSMESSPY("cb:capi_arglist=",capi_arglist_list);
#else
    CFUNCSMESSPY("cb:capi_arglist=",capi_arglist);
#endif
    CFUNCSMESS("cb:Call-back calling Python function #argname#.\n");
#ifdef F2PY_REPORT_ATEXIT
f2py_cb_start_call_clock();
#endif
#ifdef PYPY_VERSION
    capi_return = PyObject_CallObject(cb->capi,(PyObject *)capi_arglist_list);
    Py_DECREF(capi_arglist_list);
    capi_arglist_list = NULL;
#else
    capi_return = PyObject_CallObject(cb->capi,(PyObject *)capi_arglist);
#endif
#ifdef F2PY_REPORT_ATEXIT
f2py_cb_stop_call_clock();
#endif
    CFUNCSMESSPY("cb:capi_return=",capi_return);
    if (capi_return == NULL) {
        fprintf(stderr,"capi_return is NULL\n");
        goto capi_fail;
    }
    if (capi_return == Py_None) {
        Py_DECREF(capi_return);
        capi_return = Py_BuildValue("()");
    }
    else if (!PyTuple_Check(capi_return)) {
        capi_return = Py_BuildValue("(N)",capi_return);
    }
    capi_j = PyTuple_Size(capi_return);
    capi_i = 0;
#frompyobj#
    CFUNCSMESS("cb:#name#:successful\n");
    Py_DECREF(capi_return);
#ifdef F2PY_REPORT_ATEXIT
f2py_cb_stop_clock();
#endif
    goto capi_return_pt;
capi_fail:
    fprintf(stderr,"Call-back #name# failed.\n");
    Py_XDECREF(capi_return);
    Py_XDECREF(capi_arglist_list);
    if (capi_longjmp_ok) {
        longjmp(cb->jmpbuf,-1);
    }
capi_return_pt:
    ;
#return#
}
#endtitle#
)zsetjmp.hÚ
CFUNCSMESSZF2PY_THREAD_LOCAL_DECLz#maxnofargs#z#nofoptargs#zF    def #argname#(#docsignature#): return #docreturn#\n\
#docstrsigns#zc
{{}\verb@def #argname#(#latexdocsignature#): return #docreturn#@{}}
#routnote#

#latexdocstrsigns#z1def #argname#(#docsignature#): return #docreturn#)Ú
cbtypedefsÚbodyÚneedÚ
maxnofargsÚ
nofoptargsÚdocstrÚlatexdocstrÚdocstrshortÚ
ú,Ú z\n"
")ÚdeclÚargsÚoptargsÚ	pyobjfromÚfreememÚargs_tdÚ
optargs_tdÚargs_nmÚ
optargs_nmÚ	frompyobjÚsetdimsÚdocstrsignsÚlatexdocstrsignsÚlatexdocstrreqÚlatexdocstroptÚlatexdocstroutÚlatexdocstrcbsz/*decl*/z/*pyobjfrom*/z/*frompyobj*/z/*freemem*/z/*setdims*/z    Required arguments:z    Optional arguments:z    Return objects:z    Call-back functions:z\noindent Required arguments:z\noindent Optional arguments:z\noindent Return objects:z\noindent Call-back functions:z
--- #note#)Zseparatorsforr.   r1   r7   r/   r0   ÚreturnÚ
strarglensr2   r3   r4   Ústrarglens_tdr5   r6   Ústrarglens_nmÚnoargsr8   r9   r:   Ú	docstrreqÚ	docstroptÚ	docstroutÚ	docstrcbsÚ	docreturnÚdocsignÚ
docsignoptr;   r<   r=   r>   Zroutnotez    #ctype# return_value = 0;z,    CFUNCSMESS("cb:Getting return_value->");a‡      if (capi_j>capi_i) {
        GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,#ctype#,
          "#ctype#_from_pyobj failed in converting return_value of"
          " call-back function #name# to C #ctype#\n");
    } else {
        fprintf(stderr,"Warning: call-back function #name# did not provide"
                       " return value (index=%d, type=#ctype#)\n",capi_i);
    }z8    fprintf(stderr,"#showvalueformat#.\n",return_value);z#ctype#_from_pyobjr"   ZGETSCALARFROMPYTUPLEz    return return_value;)r.   r7   r%   r?   Ú_checkzB    fprintf(stderr,"debug-capi:cb:#name#:%d:\n",return_value_len);z)#ctype# return_value,int return_value_lenzreturn_value,&return_value_lenz#ctype# ,intz.    CFUNCSMESS("cb:Getting return_value->\"");a      if (capi_j>capi_i) {
        GETSTRFROMPYTUPLE(capi_return,capi_i++,return_value,return_value_len);
    } else {
        fprintf(stderr,"Warning: call-back function #name# did not provide"
                       " return value (index=%d, type=#ctype#)\n",capi_i);
    }z:    fprintf(stderr,"#showvalueformat#\".\n",return_value);zstring.hZGETSTRFROMPYTUPLEzreturn;)r1   r/   r5   r3   r7   r%   r?   rK   z<
#ifndef F2PY_CB_RETURNCOMPLEX
#ctype# *return_value
#endif
z3
#ifndef F2PY_CB_RETURNCOMPLEX
return_value
#endif
z0
#ifndef F2PY_CB_RETURNCOMPLEX
#ctype# *
#endif
zH
#ifdef F2PY_CB_RETURNCOMPLEX
    #ctype# return_value = {0, 0};
#endif
a      if (capi_j>capi_i) {
#ifdef F2PY_CB_RETURNCOMPLEX
        GETSCALARFROMPYTUPLE(capi_return,capi_i++,&return_value,#ctype#,
          "#ctype#_from_pyobj failed in converting return_value of call-back"
          " function #name# to C #ctype#\n");
#else
        GETSCALARFROMPYTUPLE(capi_return,capi_i++,return_value,#ctype#,
          "#ctype#_from_pyobj failed in converting return_value of call-back"
          " function #name# to C #ctype#\n");
#endif
    } else {
        fprintf(stderr,
                "Warning: call-back function #name# did not provide"
                " return value (index=%d, type=#ctype#)\n",capi_i);
    }zÈ#ifdef F2PY_CB_RETURNCOMPLEX
    fprintf(stderr,"#showvalueformat#.\n",(return_value).r,(return_value).i);
#else
    fprintf(stderr,"#showvalueformat#.\n",(*return_value).r,(*return_value).i);
#endif
zP
#ifdef F2PY_CB_RETURNCOMPLEX
    return return_value;
#else
    return;
#endif
z#ctype#)r0   r6   r4   r.   r7   r?   r%   rK   z        #pydocsignout#z"\item[]{{}\verb@#pydocsignout#@{}}z#rname#,)rF   r=   rH   rK   )rK   r?   z        #pydocsign#z\item[]{{}\verb@#pydocsign#@{}}z--- See above.z
#varname#,)	rE   rD   rF   r<   r;   r=   rI   rJ   Zdependz#ctype# #varname_i#z#ctype# *#varname_i#_cb_capiz#ctype# *#varname_i#z#varname_i#z#varname_i#_cb_capiz	#ctype# *z,int #varname_i#_cb_lenz,intz,#varname_i#_cb_len)r/   r5   r3   r%   r@   rA   rB   z/    #ctype# #varname_i#=(*#varname_i#_cb_capi);z8intent(c,out) is forbidden for callback scalar argumentsz)    CFUNCSMESS("cb:Getting #varname#->");zÏ    if (capi_j>capi_i)
        GETSCALARFROMPYTUPLE(capi_return,capi_i++,#varname_i#_cb_capi,#ctype#,"#ctype#_from_pyobj failed in converting argument #varname# of call-back function #name# to C #ctype#\n");z7    fprintf(stderr,"#showvalueformat#.\n",#varname_i#);z@    fprintf(stderr,"#showvalueformat#.\n",*#varname_i#_cb_capi);zK    fprintf(stderr,"#showvalueformat#.\n",(#varname_i#).r,(#varname_i#).i);z]    fprintf(stderr,"#showvalueformat#.\n",(*#varname_i#_cb_capi).r,(*#varname_i#_cb_capi).i);)r.   Úerrorr7   r%   rK   z„    if (cb->nofargs>capi_i)
        if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_#ctype#1(#varname_i#)))
            goto capi_fail;zŽ    if (cb->nofargs>capi_i)
        if (CAPI_ARGLIST_SETITEM(capi_i++,pyarr_from_p_#ctype#1(#varname_i#_cb_capi)))
            goto capi_fail;zpyobj_from_#ctype#1zpyarr_from_p_#ctype#1)r1   r%   rK   Ú	_optionalz+    CFUNCSMESS("cb:Getting #varname#->\"");zf    if (capi_j>capi_i)
        GETSTRFROMPYTUPLE(capi_return,capi_i++,#varname_i#,#varname_i#_cb_len);zP    fprintf(stderr,"#showvalueformat#\":%d:.\n",#varname_i#,#varname_i#_cb_len);)r7   r%   rK   zi    fprintf(stderr,"debug-capi:cb:#varname#=\"#showvalueformat#\":%d:\n",#varname_i#,#varname_i#_cb_len);z›    if (cb->nofargs>capi_i)
        if (CAPI_ARGLIST_SETITEM(capi_i++,pyobj_from_#ctype#1size(#varname_i#,#varname_i#_cb_len)))
            goto capi_fail;zÜ    if (cb->nofargs>capi_i) {
        int #varname_i#_cb_dims[] = {#varname_i#_cb_len};
        if (CAPI_ARGLIST_SETITEM(capi_i++,pyarr_from_p_#ctype#1(#varname_i#,#varname_i#_cb_dims)))
            goto capi_fail;
    }zpyobj_from_#ctype#1sizez6    npy_intp #varname_i#_Dims[#rank#] = {#rank*[-1]#};z    #cbsetdims#;)r.   r8   rK   Ú_dependz0    fprintf(stderr,"debug-capi:cb:#varname#\n");a2      if (cb->nofargs>capi_i) {
        int itemsize_ = #atype# == NPY_STRING ? 1 : 0;
        /*XXX: Hmm, what will destroy this array??? */
        PyArrayObject *tmp_arr = (PyArrayObject *)PyArray_New(&PyArray_Type,#rank#,#varname_i#_Dims,#atype#,NULL,(char*)#varname_i#,itemsize_,NPY_ARRAY_CARRAY,NULL);
a2      if (cb->nofargs>capi_i) {
        int itemsize_ = #atype# == NPY_STRING ? 1 : 0;
        /*XXX: Hmm, what will destroy this array??? */
        PyArrayObject *tmp_arr = (PyArrayObject *)PyArray_New(&PyArray_Type,#rank#,#varname_i#_Dims,#atype#,NULL,(char*)#varname_i#,itemsize_,NPY_ARRAY_FARRAY,NULL);
z•
        if (tmp_arr==NULL)
            goto capi_fail;
        if (CAPI_ARGLIST_SETITEM(capi_i++,(PyObject *)tmp_arr))
            goto capi_fail;
})r1   rK   rM   zì    if (capi_j>capi_i) {
        PyArrayObject *rv_cb_arr = NULL;
        if ((capi_tmp = PyTuple_GetItem(capi_return,capi_i++))==NULL) goto capi_fail;
        rv_cb_arr =  array_from_pyobj(#atype#,#varname_i#_Dims,#rank#,F2PY_INTENT_INz|F2PY_INTENT_Ca8  ,capi_tmp);
        if (rv_cb_arr == NULL) {
            fprintf(stderr,"rv_cb_arr is NULL\n");
            goto capi_fail;
        }
        MEMCOPY(#varname_i#,PyArray_DATA(rv_cb_arr),PyArray_NBYTES(rv_cb_arr));
        if (capi_tmp != (PyObject *)rv_cb_arr) {
            Py_DECREF(rv_cb_arr);
        }
    }z    fprintf(stderr,"<-.\n");ZMEMCOPY)rH   rK   c                 C   s\   g t | d < | d D ]B}|d dkr|d D ](}|rDt|| d ƒ q,td| d  ƒ q,qd S )NÚnamer$   ÚblockZ	interfacezwarning: empty body for %s
)Úcb_mapÚbuildcallbackr   )ÚmZbiÚb© rU   úS/home/ja/django-apps/lartica_env/lib/python3.9/site-packages/numpy/f2py/cb_rules.pyÚbuildcallbacksø  s    rW   c                 C   s`  ddl m} td| d |f ƒ t| ƒ\}}||_| d }| | |¡}ti |ƒ}t|  | d |d g¡ t	D ]6}d|v r†|d | ƒsŽd|vrnt
||| ƒ}	t||	ƒ}qni }
t|ƒD ]˜\}}|j||| |d�}||
|< tD ]n}d|v rèqÚd	|v rþt|| ƒrþqÚd|v �r|d || ƒ�s"d|vrÚt
|||| ƒ}	t||	ƒ}d
|v rÚ q²qÚq²|D ]ž}|
| }tD ]Š}d|v �rr�q`d	|v�s`d	|v �r˜t|| ƒ�r˜�q`d|v �r´|d || ƒ�s¾d|v�r`t
|||| ƒ}	t||	ƒ}d
|v �r` �qP�q`�qP|D ]†}|
| }tD ]r}d|v�r�qd	|v �r$�qd|v �r@|d || ƒ�sJd|v�rt
|||| ƒ}	t||	ƒ}d
|v �r �qô�q�qôd|v �rÖd|v �rÖt|d tƒ�rÖ|d dg |d< |d dg |d< |d dg |d< t|d tƒ�r ttdd|d iƒƒ|d< ttdd|d iƒƒ}|dk�r<ttdd|d iƒƒ|d< ntd|d |dœƒ|d< |d  dd¡|d< |d  dd¡|d< g |d< g |d < d!D ]Ž}||v �rÂt|| tƒ�rÂ|d ||  |d< d"| }||v �r�t|| tƒ�r�|d  || d#d…  d$g || dd …  d%g |d < �q�d|v�rBd|d< d|d&< d|d'< | d¡�sn| d¡�sn| d(¡�snd)|d*< t
t|ƒ}	|	d+ tj|d < t|	d, tƒ�r¨|	d, g|	d,< d,|v �ràtj ¡ D ]"}||d, v �r¼|	d,  |¡ �q¼|	d- tj|d d. < |	d,  |d d. ¡ |	d, tj|d < |	d/ |	d0 |	d1 |	d2 |d3 d4œ|j|d < td5|	d6  ƒ d S )7Nr   )Ú	capi_mapsz2    Constructing call-back function "cb_%s_in_%s"
rO   ÚvarsrK   )ÚindexrN   rM   Ú_breakr/   r0   z(
#ifndef F2PY_CB_RETURNCOMPLEX
,
#endif
r6   r4   rH   z#docreturn#z#docsignopt#rJ   r-   z	#docsign#rI   Zdocsignaturez#docsign#[#docsignopt#])rI   rJ   Ú_z\_Zlatexdocsignaturer,   z, r9   r:   )rD   rE   rF   rG   Úlatexé    z\begin{description}z\end{description}r3   r5   r@   ÚvoidrC   r$   r%   r#   Z_typedefr&   r'   r(   r)   Úargname)r&   r'   r(   r)   r`   z	      %s
r*   )r-   rX   r   r   ÚdepargsZcb_routsign2mapr   rQ   ÚappendÚcb_rout_rulesr   Ú	enumerateZcb_sign2mapÚcb_arg_rulesr   r   Ú
isinstanceÚlistr   r   ÚgetÚcb_routine_rulesr!   Ú	callbacksÚstrZtypedefsÚkeysZtypedefs_generatedZneedsZlcb2_map)ÚroutZumrX   r/   ra   ÚvarZvrdÚrdÚrÚarZsavevrdÚiÚar0   ÚkÚtrU   rU   rV   rR     sä    
ÿ
$

"&



&

ÿ
ÿ
ÿ
ÿÿÿÿþ
$

ürR   N)+Ú__doc__r-   r   Zauxfuncsr   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!   ÚversionZf2py_versionri   rc   re   rQ   rW   rR   rU   rU   rU   rV   Ú<module>   sÂ  € € × .ø

å	ÿõîÿ÷ÿìîÿÈ:ÿü€ ú 
ÿ
ÿ

ÿÿó
ü
ü
üè
ÿþÿÿÿÿÿ÷
ÿíüþóÿýÿ÷ûÿñüúòê
ð
ìþ€ æ "