zmc
2023-08-08 e792e9a60d958b93aef96050644f369feb25d61b
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
U
P±dXdã"@s¤dZddlmZddlmZmZmZmZmZm    Z    m
Z
m Z m Z m Z mZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZm Z m!Z!ddlm"Z"ej#Z$ddddd    gd
d d d ddœZ%ddddddddddddddddddœdddgddddgddgdddddddddddddddd d!e    d"ee    ƒdid#œd$ed%id&ed'igd(edid)gd*eeeeƒee ƒƒd+œed,id-d.d/ed0id1ed2igd(edid3d4gd5ed6œd7d8d9d:ed%id;ed<igd=d(edid3d)d>ge d?œd@dAe    d"igdBedCœed5dDœgZ&eeeƒdEieeeƒdEied@ieeeƒdFe    d"igieeeƒdFe    d"igiedAee    eƒd"ee    eƒdGigieeeƒdHieeeƒdHiddIœ    eeeƒdJeeeeƒƒdKe
dLedJieeeƒdMeeeeƒƒdNe
dMedMieeeƒd>eeeeƒƒdOe
dOed>ieee
eƒd>iedPiedQiedRidSœeeƒdTieeee!dUƒƒdiedViedWieeeee ƒeƒƒdXieeeee ƒeeƒƒƒdYieeee eƒƒdZieeee eeƒƒƒd[iged(d)giediged\œed]ied^iged_ied`ie d>igeeeƒddaœedbidceddigd>d4edid3geeeƒdeœedfiedgiedhigediied`igeeeƒddaœdjdke
ddlœedmiedneeƒdoidpgee
eeeeƒƒddqœedVidredsidteduigdve d>igee
eƒdeœdHedwœg
Z'iZ(dxdy„Z)dzd{„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#
zsetjmp.hZ
CFUNCSMESSZF2PY_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-r0r6r.r/ÚreturnÚ
strarglensr1r2r3Ú strarglens_tdr4r5Ú strarglens_nmÚnoargsr7r8r9Ú    docstrreqÚ    docstroptÚ    docstroutÚ    docstrcbsÚ    docreturnÚdocsignÚ
docsignoptr:r;r<r=Zroutnotez    #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_pyobjZGETSCALARFROMPYTUPLEz    return return_value;)r-r6r$r>Ú_checkzB    fprintf(stderr,"debug-capi:cb:#name#:%d:\n",return_value_len);z)#ctype# return_value,int return_value_lenzreturn_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);zstring.hZGETSTRFROMPYTUPLEzreturn;)r0r.r4r2r6r$r>rJz<
#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#)r/r5r3r-r6r>r$rJz        #pydocsignout#z"\item[]{{}\verb@#pydocsignout#@{}}z#rname#,)rEr<rGrJ)rJr>z        #pydocsign#z\item[]{{}\verb@#pydocsign#@{}}z--- See above.z
#varname#,)    rDrCrEr;r:r<rHrIZdependz#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.r4r2r$r?r@rAz/    #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-Úerrorr6r$rJz„    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;zpyobj_from_#ctype#1zpyarr_from_p_#ctype#1)r0r$rJÚ    _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);)r6r$rJze    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;
    }zpyobj_from_#ctype#1sizez6    npy_intp #varname_i#_Dims[#rank#] = {#rank*[-1]#};z    #cbsetdims#;)r-r7rJÚ_dependz0    fprintf(stderr,"debug-capi:cb:#varname#\n");a€    if (cb->nofargs>capi_i) {
        /* tmp_arr will be inserted to capi_arglist_list that will be
           destroyed when leaving callback function wrapper together
           with tmp_arr. */
        PyArrayObject *tmp_arr = (PyArrayObject *)PyArray_New(&PyArray_Type,
          #rank#,#varname_i#_Dims,#atype#,NULL,(char*)#varname_i#,#elsize#,
          NPY_ARRAY_CARRAY,NULL);
a€    if (cb->nofargs>capi_i) {
        /* tmp_arr will be inserted to capi_arglist_list that will be
           destroyed when leaving callback function wrapper together
           with tmp_arr. */
        PyArrayObject *tmp_arr = (PyArrayObject *)PyArray_New(&PyArray_Type,
          #rank#,#varname_i#_Dims,#atype#,NULL,(char*)#varname_i#,#elsize#,
          NPY_ARRAY_FARRAY,NULL);
        if (tmp_arr==NULL)
            goto capi_fail;
        if (CAPI_ARGLIST_SETITEM(capi_i++,(PyObject *)tmp_arr))
            goto capi_fail;
})r0rJrLzì    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");ZMEMCOPY)rGrJcCs\gt|d<|dD]B}|ddkr|dD](}|rDt||dƒq,td|dƒq,qdS)NÚnamer#ÚblockZ    interfacezwarning: empty body for %s
)Úcb_mapÚ buildcallbackr)ÚmZbiÚb©rTúJd:\z\workplace\vscode\pyvenv\venv\Lib\site-packages\numpy/f2py/cb_rules.pyÚbuildcallbackss    rVcCs`ddlm}td|d|fƒt|ƒ\}}||_|d}| ||¡}ti|ƒ}t| |d|dg¡t    D]6}d|kr†|d|ƒsŽd|krnt
|||ƒ}    t||    ƒ}qni}
t |ƒD]˜\} } |j | || | d}||
| <t D]n}d|krèqÚd    |krþt|| ƒrþqÚd|kr|d|| ƒs"d|krÚt
|||| ƒ}    t||    ƒ}d
|krÚq²qÚq²|D]ž} |
| }t D]Š}d|krrq`d    |ks`d    |kr˜t|| ƒr˜q`d|kr´|d|| ƒs¾d|kr`t
|||| ƒ}    t||    ƒ}d
|kr`qPq`qP|D]†} |
| }t D]r}d|krqd    |kr$qd|kr@|d|| ƒsJd|krt
|||| ƒ}    t||    ƒ}d
|krqôqqôd |krÖd |krÖt|d tƒrÖ|d d g|d <|dd g|d<|dd g|d<t|dtƒrttdd|diƒƒ|d<ttdd|diƒƒ} | dkr<ttdd|diƒƒ|d<ntd|d| dœƒ|d<|d dd¡|d<|d dd¡|d<g|d<g|d <d!D]Ž}||krÂt||tƒrÂ|d|||d<d"|}||krt||tƒr|d ||d#d…d$g||dd…d%g|d <qd |krBd|d <d|d&<d|d'<| d ¡sn| d ¡sn| d(¡snd)|d*<t
t|ƒ}    |    d+tj|d<t|    d,tƒr¨|    d,g|    d,<d,|kràtj ¡D]"}||d,kr¼|    d, |¡q¼|    d-tj|dd.<|    d, |dd.¡|    d,tj|d<|    d/|    d0|    d1|    d2|d3d4œ|j|d<td5|    d6ƒdS)7Nr)Ú    capi_mapsz2    Constructing call-back function "cb_%s_in_%s"
rNÚvarsrJ)ÚindexrMrLÚ_breakr.r/z(
#ifndef F2PY_CB_RETURNCOMPLEX
,
#endif
r5r3rGz #docreturn#z #docsignopt#rIr,z    #docsign#rHZ docsignaturez#docsign#[#docsignopt#])rHrIÚ_z\_Zlatexdocsignaturer+z, r8r9)rCrDrErFZlatexéz\begin{description}z\end{description}r2r4r?ZvoidrBr#r$r"Z_typedefr%r&r'r(Úargname)r%r&r'r(r]z          %s
r))r,rWrrÚdepargsZcb_routsign2maprrPÚappendÚ cb_rout_rulesrÚ    enumerateZ cb_sign2mapÚ cb_arg_rulesrrÚ
isinstanceÚlistrrÚgetÚcb_routine_rulesr!Ú    callbacksÚstrZtypedefsÚkeysZtypedefs_generatedZneedsZlcb2_map)ZroutZumrWr.r^ÚvarZvrdÚrdÚrÚarZsavevrdÚiÚar/ÚkÚtrTrTrUrQ sä 
ÿ  
  $
 
"&
 
 
 
&
 
ÿ
ÿ
ÿ
ÿÿÿÿþ 
$
 
ürQN)+Ú__doc__r,rZauxfuncsrrrrrrr    r
r r r rrrrrrrrrrrrrrrrrrr r!ÚversionZ f2py_versionrfr`rbrPrVrQrTrTrTrUÚ<module>s € €×.ø
å    ÿõ îÿ÷ ÿìîÿÈ:ÿü€ú  
ÿ
ÿ
ÿÿ  ó ü ü üè
ÿþÿÿÿÿÿ÷
ÿíüþóÿýÿ÷ ÿøÿîü    ÷ìä
ð
ìþ€Ý+