summaryrefslogtreecommitdiff
path: root/numpy/f2py/tests/array_from_pyobj/wrapmodule.c
diff options
context:
space:
mode:
Diffstat (limited to 'numpy/f2py/tests/array_from_pyobj/wrapmodule.c')
-rw-r--r--numpy/f2py/tests/array_from_pyobj/wrapmodule.c196
1 files changed, 0 insertions, 196 deletions
diff --git a/numpy/f2py/tests/array_from_pyobj/wrapmodule.c b/numpy/f2py/tests/array_from_pyobj/wrapmodule.c
deleted file mode 100644
index 38a794a7d..000000000
--- a/numpy/f2py/tests/array_from_pyobj/wrapmodule.c
+++ /dev/null
@@ -1,196 +0,0 @@
-/* File: wrapmodule.c
- * This file is auto-generated with f2py (version:2_1330).
- * Hand edited by Pearu.
- * f2py is a Fortran to Python Interface Generator (FPIG), Second Edition,
- * written by Pearu Peterson <pearu@cens.ioc.ee>.
- * See http://cens.ioc.ee/projects/f2py2e/
- * Generation date: Fri Oct 21 22:41:12 2005
- * $Revision:$
- * $Date:$
- * Do not edit this file directly unless you know what you are doing!!!
- */
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/*********************** See f2py2e/cfuncs.py: includes ***********************/
-#include "Python.h"
-#include "fortranobject.h"
-#include <math.h>
-
-static PyObject *wrap_error;
-static PyObject *wrap_module;
-
-/************************************ call ************************************/
-static char doc_f2py_rout_wrap_call[] = "\
-Function signature:\n\
- arr = call(type_num,dims,intent,obj)\n\
-Required arguments:\n"
-" type_num : input int\n"
-" dims : input int-sequence\n"
-" intent : input int\n"
-" obj : input python object\n"
-"Return objects:\n"
-" arr : array";
-static PyObject *f2py_rout_wrap_call(PyObject *capi_self,
- PyObject *capi_args) {
- PyObject * volatile capi_buildvalue = NULL;
- int type_num = 0;
- intp *dims = NULL;
- PyObject *dims_capi = Py_None;
- int rank = 0;
- int intent = 0;
- PyArrayObject *capi_arr_tmp = NULL;
- PyObject *arr_capi = Py_None;
- int i;
-
- if (!PyArg_ParseTuple(capi_args,"iOiO|:wrap.call",\
- &type_num,&dims_capi,&intent,&arr_capi))
- return NULL;
- rank = PySequence_Length(dims_capi);
- dims = malloc(rank*sizeof(intp));
- for (i=0;i<rank;++i)
- dims[i] = (intp)PyInt_AsLong(PySequence_GetItem(dims_capi,i));
-
- capi_arr_tmp = array_from_pyobj(type_num,dims,rank,intent|F2PY_INTENT_OUT,arr_capi);
- if (capi_arr_tmp == NULL)
- return NULL;
- capi_buildvalue = Py_BuildValue("N",capi_arr_tmp);
- free(dims);
- return capi_buildvalue;
-}
-
-static char doc_f2py_rout_wrap_attrs[] = "\
-Function signature:\n\
- arr = array_attrs(arr)\n\
-Required arguments:\n"
-" arr : input array object\n"
-"Return objects:\n"
-" data : data address in hex\n"
-" nd : int\n"
-" dimensions : tuple\n"
-" strides : tuple\n"
-" base : python object\n"
-" (kind,type,type_num,elsize,alignment) : 4-tuple\n"
-" flags : int\n"
-" itemsize : int\n"
-;
-static PyObject *f2py_rout_wrap_attrs(PyObject *capi_self,
- PyObject *capi_args) {
- PyObject *arr_capi = Py_None;
- PyArrayObject *arr = NULL;
- PyObject *dimensions = NULL;
- PyObject *strides = NULL;
- char s[100];
- int i;
- memset(s,0,100*sizeof(char));
- if (!PyArg_ParseTuple(capi_args,"O!|:wrap.attrs",
- &PyArray_Type,&arr_capi))
- return NULL;
- arr = (PyArrayObject *)arr_capi;
- sprintf(s,"%p",arr->data);
- dimensions = PyTuple_New(arr->nd);
- strides = PyTuple_New(arr->nd);
- for (i=0;i<arr->nd;++i) {
- PyTuple_SetItem(dimensions,i,PyInt_FromLong(arr->dimensions[i]));
- PyTuple_SetItem(strides,i,PyInt_FromLong(arr->strides[i]));
- }
- return Py_BuildValue("siOOO(cciii)ii",s,arr->nd,
- dimensions,strides,
- (arr->base==NULL?Py_None:arr->base),
- arr->descr->kind,
- arr->descr->type,
- arr->descr->type_num,
- arr->descr->elsize,
- arr->descr->alignment,
- arr->flags,
- PyArray_ITEMSIZE(arr));
-}
-
-static PyMethodDef f2py_module_methods[] = {
-
- {"call",f2py_rout_wrap_call,METH_VARARGS,doc_f2py_rout_wrap_call},
- {"array_attrs",f2py_rout_wrap_attrs,METH_VARARGS,doc_f2py_rout_wrap_attrs},
- {NULL,NULL}
-};
-
-PyMODINIT_FUNC initwrap(void) {
- PyObject *m,*d, *s;
- m = wrap_module = Py_InitModule("wrap", f2py_module_methods);
- PyFortran_Type.ob_type = &PyType_Type;
- import_array();
- if (PyErr_Occurred())
- Py_FatalError("can't initialize module wrap (failed to import numpy)");
- d = PyModule_GetDict(m);
- s = PyString_FromString("This module 'wrap' is auto-generated with f2py (version:2_1330).\nFunctions:\n"
-" arr = call(type_num,dims,intent,obj)\n"
-".");
- PyDict_SetItemString(d, "__doc__", s);
- wrap_error = PyErr_NewException ("wrap.error", NULL, NULL);
- Py_DECREF(s);
- PyDict_SetItemString(d, "F2PY_INTENT_IN", PyInt_FromLong(F2PY_INTENT_IN));
- PyDict_SetItemString(d, "F2PY_INTENT_INOUT", PyInt_FromLong(F2PY_INTENT_INOUT));
- PyDict_SetItemString(d, "F2PY_INTENT_OUT", PyInt_FromLong(F2PY_INTENT_OUT));
- PyDict_SetItemString(d, "F2PY_INTENT_HIDE", PyInt_FromLong(F2PY_INTENT_HIDE));
- PyDict_SetItemString(d, "F2PY_INTENT_CACHE", PyInt_FromLong(F2PY_INTENT_CACHE));
- PyDict_SetItemString(d, "F2PY_INTENT_COPY", PyInt_FromLong(F2PY_INTENT_COPY));
- PyDict_SetItemString(d, "F2PY_INTENT_C", PyInt_FromLong(F2PY_INTENT_C));
- PyDict_SetItemString(d, "F2PY_OPTIONAL", PyInt_FromLong(F2PY_OPTIONAL));
- PyDict_SetItemString(d, "F2PY_INTENT_INPLACE", PyInt_FromLong(F2PY_INTENT_INPLACE));
- PyDict_SetItemString(d, "PyArray_BOOL", PyInt_FromLong(PyArray_BOOL));
- PyDict_SetItemString(d, "PyArray_BYTE", PyInt_FromLong(PyArray_BYTE));
- PyDict_SetItemString(d, "PyArray_UBYTE", PyInt_FromLong(PyArray_UBYTE));
- PyDict_SetItemString(d, "PyArray_SHORT", PyInt_FromLong(PyArray_SHORT));
- PyDict_SetItemString(d, "PyArray_USHORT", PyInt_FromLong(PyArray_USHORT));
- PyDict_SetItemString(d, "PyArray_INT", PyInt_FromLong(PyArray_INT));
- PyDict_SetItemString(d, "PyArray_UINT", PyInt_FromLong(PyArray_UINT));
- PyDict_SetItemString(d, "PyArray_INTP", PyInt_FromLong(PyArray_INTP));
- PyDict_SetItemString(d, "PyArray_UINTP", PyInt_FromLong(PyArray_UINTP));
- PyDict_SetItemString(d, "PyArray_LONG", PyInt_FromLong(PyArray_LONG));
- PyDict_SetItemString(d, "PyArray_ULONG", PyInt_FromLong(PyArray_ULONG));
- PyDict_SetItemString(d, "PyArray_LONGLONG", PyInt_FromLong(PyArray_LONGLONG));
- PyDict_SetItemString(d, "PyArray_ULONGLONG", PyInt_FromLong(PyArray_ULONGLONG));
- PyDict_SetItemString(d, "PyArray_FLOAT", PyInt_FromLong(PyArray_FLOAT));
- PyDict_SetItemString(d, "PyArray_DOUBLE", PyInt_FromLong(PyArray_DOUBLE));
- PyDict_SetItemString(d, "PyArray_LONGDOUBLE", PyInt_FromLong(PyArray_LONGDOUBLE));
- PyDict_SetItemString(d, "PyArray_CFLOAT", PyInt_FromLong(PyArray_CFLOAT));
- PyDict_SetItemString(d, "PyArray_CDOUBLE", PyInt_FromLong(PyArray_CDOUBLE));
- PyDict_SetItemString(d, "PyArray_CLONGDOUBLE", PyInt_FromLong(PyArray_CLONGDOUBLE));
- PyDict_SetItemString(d, "PyArray_OBJECT", PyInt_FromLong(PyArray_OBJECT));
- PyDict_SetItemString(d, "PyArray_STRING", PyInt_FromLong(PyArray_STRING));
- PyDict_SetItemString(d, "PyArray_UNICODE", PyInt_FromLong(PyArray_UNICODE));
- PyDict_SetItemString(d, "PyArray_VOID", PyInt_FromLong(PyArray_VOID));
- PyDict_SetItemString(d, "PyArray_NTYPES", PyInt_FromLong(PyArray_NTYPES));
- PyDict_SetItemString(d, "PyArray_NOTYPE", PyInt_FromLong(PyArray_NOTYPE));
- PyDict_SetItemString(d, "PyArray_UDERDEF", PyInt_FromLong(PyArray_USERDEF));
-
- PyDict_SetItemString(d, "CONTIGUOUS", PyInt_FromLong(CONTIGUOUS));
- PyDict_SetItemString(d, "FORTRAN", PyInt_FromLong(FORTRAN));
- PyDict_SetItemString(d, "OWNDATA", PyInt_FromLong(OWNDATA));
- PyDict_SetItemString(d, "FORCECAST", PyInt_FromLong(FORCECAST));
- PyDict_SetItemString(d, "ENSURECOPY", PyInt_FromLong(ENSURECOPY));
- PyDict_SetItemString(d, "ENSUREARRAY", PyInt_FromLong(ENSUREARRAY));
- PyDict_SetItemString(d, "ALIGNED", PyInt_FromLong(ALIGNED));
- PyDict_SetItemString(d, "WRITEABLE", PyInt_FromLong(WRITEABLE));
- PyDict_SetItemString(d, "UPDATEIFCOPY", PyInt_FromLong(UPDATEIFCOPY));
-
- PyDict_SetItemString(d, "BEHAVED", PyInt_FromLong(NPY_BEHAVED));
- PyDict_SetItemString(d, "BEHAVED_NS", PyInt_FromLong(NPY_BEHAVED_NS));
- PyDict_SetItemString(d, "CARRAY", PyInt_FromLong(NPY_CARRAY));
- PyDict_SetItemString(d, "FARRAY", PyInt_FromLong(NPY_FARRAY));
- PyDict_SetItemString(d, "CARRAY_RO", PyInt_FromLong(NPY_CARRAY_RO));
- PyDict_SetItemString(d, "FARRAY_RO", PyInt_FromLong(NPY_FARRAY_RO));
- PyDict_SetItemString(d, "DEFAULT", PyInt_FromLong(NPY_DEFAULT));
- PyDict_SetItemString(d, "UPDATE_ALL", PyInt_FromLong(NPY_UPDATE_ALL));
-
- if (PyErr_Occurred())
- Py_FatalError("can't initialize module wrap");
-
-#ifdef F2PY_REPORT_ATEXIT
- on_exit(f2py_report_on_exit,(void*)"array_from_pyobj.wrap.call");
-#endif
-
-}
-#ifdef __cplusplus
-}
-#endif
View Lorry Controller Status