numpy 1.9.3__zip → 1.10.0__zip

numpy-1.9.3/numpy/f2py/src/fortranobject.h

@@ -1,162 +0,0 @@
-#ifndef Py_FORTRANOBJECT_H
-#define Py_FORTRANOBJECT_H
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#include "Python.h"
-
-#ifdef FORTRANOBJECT_C
-#define NO_IMPORT_ARRAY
-#endif
-#define PY_ARRAY_UNIQUE_SYMBOL _npy_f2py_ARRAY_API
-#include "numpy/arrayobject.h"
-
-/*
- * Python 3 support macros
- */
-#if PY_VERSION_HEX >= 0x03000000
-#define PyString_Check PyBytes_Check
-#define PyString_GET_SIZE PyBytes_GET_SIZE
-#define PyString_AS_STRING PyBytes_AS_STRING
-#define PyString_FromString PyBytes_FromString
-#define PyUString_FromStringAndSize PyUnicode_FromStringAndSize
-#define PyString_ConcatAndDel PyBytes_ConcatAndDel
-#define PyString_AsString PyBytes_AsString
-
-#define PyInt_Check PyLong_Check
-#define PyInt_FromLong PyLong_FromLong
-#define PyInt_AS_LONG PyLong_AsLong
-#define PyInt_AsLong PyLong_AsLong
-
-#define PyNumber_Int PyNumber_Long
-
-#else
-
-#define PyUString_FromStringAndSize PyString_FromStringAndSize
-#endif
-
-
-#ifdef F2PY_REPORT_ATEXIT
-#include <sys/timeb.h>
-  extern void f2py_start_clock(void);
-  extern void f2py_stop_clock(void);
-  extern void f2py_start_call_clock(void);
-  extern void f2py_stop_call_clock(void);
-  extern void f2py_cb_start_clock(void);
-  extern void f2py_cb_stop_clock(void);
-  extern void f2py_cb_start_call_clock(void);
-  extern void f2py_cb_stop_call_clock(void);
-  extern void f2py_report_on_exit(int,void*);
-#endif
-
-#ifdef DMALLOC
-#include "dmalloc.h"
-#endif
-
-/* Fortran object interface */
-
-/*
-123456789-123456789-123456789-123456789-123456789-123456789-123456789-12
-
-PyFortranObject represents various Fortran objects:
-Fortran (module) routines, COMMON blocks, module data.
-
-Author: Pearu Peterson <pearu@cens.ioc.ee>
-*/
-
-#define F2PY_MAX_DIMS 40
-
-typedef void (*f2py_set_data_func)(char*,npy_intp*);
-typedef void (*f2py_void_func)(void);
-typedef void (*f2py_init_func)(int*,npy_intp*,f2py_set_data_func,int*);
-
-  /*typedef void* (*f2py_c_func)(void*,...);*/
-
-typedef void *(*f2pycfunc)(void);
-
-typedef struct {
-  char *name;                /* attribute (array||routine) name */
-  int rank;                  /* array rank, 0 for scalar, max is F2PY_MAX_DIMS,
-				|| rank=-1 for Fortran routine */
-  struct {npy_intp d[F2PY_MAX_DIMS];} dims; /* dimensions of the array, || not used */
-  int type;                  /* PyArray_<type> || not used */
-  char *data;                /* pointer to array || Fortran routine */
-  f2py_init_func func;            /* initialization function for
-				allocatable arrays:
-				func(&rank,dims,set_ptr_func,name,len(name))
-				|| C/API wrapper for Fortran routine */
-  char *doc;                 /* documentation string; only recommended
-				for routines. */
-} FortranDataDef;
-
-typedef struct {
-  PyObject_HEAD
-  int len;                   /* Number of attributes */
-  FortranDataDef *defs;      /* An array of FortranDataDef's */
-  PyObject       *dict;      /* Fortran object attribute dictionary */
-} PyFortranObject;
-
-#define PyFortran_Check(op) (Py_TYPE(op) == &PyFortran_Type)
-#define PyFortran_Check1(op) (0==strcmp(Py_TYPE(op)->tp_name,"fortran"))
-
-  extern PyTypeObject PyFortran_Type;
-  extern int F2PyDict_SetItemString(PyObject* dict, char *name, PyObject *obj);
-  extern PyObject * PyFortranObject_New(FortranDataDef* defs, f2py_void_func init);
-  extern PyObject * PyFortranObject_NewAsAttr(FortranDataDef* defs);
-
-#if PY_VERSION_HEX >= 0x03000000
-
-PyObject * F2PyCapsule_FromVoidPtr(void *ptr, void (*dtor)(PyObject *));
-void * F2PyCapsule_AsVoidPtr(PyObject *obj);
-int F2PyCapsule_Check(PyObject *ptr);
-
-#else
-
-PyObject * F2PyCapsule_FromVoidPtr(void *ptr, void (*dtor)(void *));
-void * F2PyCapsule_AsVoidPtr(PyObject *ptr);
-int F2PyCapsule_Check(PyObject *ptr);
-
-#endif
-
-#define ISCONTIGUOUS(m) ((m)->flags & NPY_CONTIGUOUS)
-#define F2PY_INTENT_IN 1
-#define F2PY_INTENT_INOUT 2
-#define F2PY_INTENT_OUT 4
-#define F2PY_INTENT_HIDE 8
-#define F2PY_INTENT_CACHE 16
-#define F2PY_INTENT_COPY 32
-#define F2PY_INTENT_C 64
-#define F2PY_OPTIONAL 128
-#define F2PY_INTENT_INPLACE 256
-#define F2PY_INTENT_ALIGNED4 512
-#define F2PY_INTENT_ALIGNED8 1024
-#define F2PY_INTENT_ALIGNED16 2048
-
-#define ARRAY_ISALIGNED(ARR, SIZE) ((size_t)(PyArray_DATA(ARR)) % (SIZE) == 0)
-#define F2PY_ALIGN4(intent) (intent & F2PY_INTENT_ALIGNED4)
-#define F2PY_ALIGN8(intent) (intent & F2PY_INTENT_ALIGNED8)
-#define F2PY_ALIGN16(intent) (intent & F2PY_INTENT_ALIGNED16)
-
-#define F2PY_GET_ALIGNMENT(intent) \
-	(F2PY_ALIGN4(intent) ? 4 : \
-	 (F2PY_ALIGN8(intent) ? 8 : \
-	  (F2PY_ALIGN16(intent) ? 16 : 1) ))
-#define F2PY_CHECK_ALIGNMENT(arr, intent) ARRAY_ISALIGNED(arr, F2PY_GET_ALIGNMENT(intent))
-
-  extern PyArrayObject* array_from_pyobj(const int type_num,
-					 npy_intp *dims,
-					 const int rank,
-					 const int intent,
-					 PyObject *obj);
-  extern int copy_ND_array(const PyArrayObject *in, PyArrayObject *out);
-
-#ifdef DEBUG_COPY_ND_ARRAY
-  extern void dump_attrs(const PyArrayObject* arr);
-#endif
-
-
-#ifdef __cplusplus
-}
-#endif
-#endif /* !Py_FORTRANOBJECT_H */

numpy-1.9.3/numpy/f2py/tests/src/array_from_pyobj/wrapmodule.c

@@ -1,223 +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;
-  npy_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(npy_intp));
-  for (i=0;i<rank;++i)
-    dims[i] = (npy_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) {
-    free(dims);
-    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}
-};
-
-#if PY_VERSION_HEX >= 0x03000000
-static struct PyModuleDef moduledef = {
-    PyModuleDef_HEAD_INIT,
-    "test_array_from_pyobj_ext",
-    NULL,
-    -1,
-    f2py_module_methods,
-    NULL,
-    NULL,
-    NULL,
-    NULL
-};
-#endif
-
-#if PY_VERSION_HEX >= 0x03000000
-#define RETVAL m
-PyMODINIT_FUNC PyInit_test_array_from_pyobj_ext(void) {
-#else
-#define RETVAL
-PyMODINIT_FUNC inittest_array_from_pyobj_ext(void) {
-#endif
-  PyObject *m,*d, *s;
-#if PY_VERSION_HEX >= 0x03000000
-  m = wrap_module = PyModule_Create(&moduledef);
-#else
-  m = wrap_module = Py_InitModule("test_array_from_pyobj_ext", f2py_module_methods);
-#endif
-  Py_TYPE(&PyFortran_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, "NPY_BOOL", PyInt_FromLong(NPY_BOOL));
-  PyDict_SetItemString(d, "NPY_BYTE", PyInt_FromLong(NPY_BYTE));
-  PyDict_SetItemString(d, "NPY_UBYTE", PyInt_FromLong(NPY_UBYTE));
-  PyDict_SetItemString(d, "NPY_SHORT", PyInt_FromLong(NPY_SHORT));
-  PyDict_SetItemString(d, "NPY_USHORT", PyInt_FromLong(NPY_USHORT));
-  PyDict_SetItemString(d, "NPY_INT", PyInt_FromLong(NPY_INT));
-  PyDict_SetItemString(d, "NPY_UINT", PyInt_FromLong(NPY_UINT));
-  PyDict_SetItemString(d, "NPY_INTP", PyInt_FromLong(NPY_INTP));
-  PyDict_SetItemString(d, "NPY_UINTP", PyInt_FromLong(NPY_UINTP));
-  PyDict_SetItemString(d, "NPY_LONG", PyInt_FromLong(NPY_LONG));
-  PyDict_SetItemString(d, "NPY_ULONG", PyInt_FromLong(NPY_ULONG));
-  PyDict_SetItemString(d, "NPY_LONGLONG", PyInt_FromLong(NPY_LONGLONG));
-  PyDict_SetItemString(d, "NPY_ULONGLONG", PyInt_FromLong(NPY_ULONGLONG));
-  PyDict_SetItemString(d, "NPY_FLOAT", PyInt_FromLong(NPY_FLOAT));
-  PyDict_SetItemString(d, "NPY_DOUBLE", PyInt_FromLong(NPY_DOUBLE));
-  PyDict_SetItemString(d, "NPY_LONGDOUBLE", PyInt_FromLong(NPY_LONGDOUBLE));
-  PyDict_SetItemString(d, "NPY_CFLOAT", PyInt_FromLong(NPY_CFLOAT));
-  PyDict_SetItemString(d, "NPY_CDOUBLE", PyInt_FromLong(NPY_CDOUBLE));
-  PyDict_SetItemString(d, "NPY_CLONGDOUBLE", PyInt_FromLong(NPY_CLONGDOUBLE));
-  PyDict_SetItemString(d, "NPY_OBJECT", PyInt_FromLong(NPY_OBJECT));
-  PyDict_SetItemString(d, "NPY_STRING", PyInt_FromLong(NPY_STRING));
-  PyDict_SetItemString(d, "NPY_UNICODE", PyInt_FromLong(NPY_UNICODE));
-  PyDict_SetItemString(d, "NPY_VOID", PyInt_FromLong(NPY_VOID));
-  PyDict_SetItemString(d, "NPY_NTYPES", PyInt_FromLong(NPY_NTYPES));
-  PyDict_SetItemString(d, "NPY_NOTYPE", PyInt_FromLong(NPY_NOTYPE));
-  PyDict_SetItemString(d, "NPY_USERDEF", PyInt_FromLong(NPY_USERDEF));
-
-  PyDict_SetItemString(d, "CONTIGUOUS", PyInt_FromLong(NPY_CONTIGUOUS));
-  PyDict_SetItemString(d, "FORTRAN", PyInt_FromLong(NPY_FORTRAN));
-  PyDict_SetItemString(d, "OWNDATA", PyInt_FromLong(NPY_OWNDATA));
-  PyDict_SetItemString(d, "FORCECAST", PyInt_FromLong(NPY_FORCECAST));
-  PyDict_SetItemString(d, "ENSURECOPY", PyInt_FromLong(NPY_ENSURECOPY));
-  PyDict_SetItemString(d, "ENSUREARRAY", PyInt_FromLong(NPY_ENSUREARRAY));
-  PyDict_SetItemString(d, "ALIGNED", PyInt_FromLong(NPY_ALIGNED));
-  PyDict_SetItemString(d, "WRITEABLE", PyInt_FromLong(NPY_WRITEABLE));
-  PyDict_SetItemString(d, "UPDATEIFCOPY", PyInt_FromLong(NPY_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
-
-  return RETVAL;
-}
-#ifdef __cplusplus
-}
-#endif