74 lines
2.7 KiB
C
74 lines
2.7 KiB
C
#ifndef Py_CGENSUPPORT_H
|
|
#define Py_CGENSUPPORT_H
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
/***********************************************************
|
|
Copyright (c) 2000, BeOpen.com.
|
|
Copyright (c) 1995-2000, Corporation for National Research Initiatives.
|
|
Copyright (c) 1990-1995, Stichting Mathematisch Centrum.
|
|
All rights reserved.
|
|
|
|
See the file "Misc/COPYRIGHT" for information on usage and
|
|
redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
******************************************************************/
|
|
|
|
/* Definitions used by cgen output */
|
|
|
|
/* XXX This file is obsolete. It is *only* used by glmodule.c. */
|
|
|
|
typedef char *string;
|
|
|
|
#define mknewlongobject(x) PyInt_FromLong(x)
|
|
#define mknewshortobject(x) PyInt_FromLong((long)x)
|
|
#define mknewfloatobject(x) PyFloat_FromDouble(x)
|
|
#define mknewcharobject(ch) Py_BuildValue("c", ch)
|
|
|
|
#define getichararg PyArg_GetChar
|
|
#define getidoublearray PyArg_GetDoubleArray
|
|
#define getifloatarg PyArg_GetFloat
|
|
#define getifloatarray PyArg_GetFloatArray
|
|
#define getilongarg PyArg_GetLong
|
|
#define getilongarray PyArg_GetLongArray
|
|
#define getilongarraysize PyArg_GetLongArraySize
|
|
#define getiobjectarg PyArg_GetObject
|
|
#define getishortarg PyArg_GetShort
|
|
#define getishortarray PyArg_GetShortArray
|
|
#define getishortarraysize PyArg_GetShortArraySize
|
|
#define getistringarg PyArg_GetString
|
|
|
|
extern int PyArg_GetObject Py_PROTO((PyObject *args, int nargs,
|
|
int i, PyObject **p_a));
|
|
extern int PyArg_GetLong Py_PROTO((PyObject *args, int nargs,
|
|
int i, long *p_a));
|
|
extern int PyArg_GetShort Py_PROTO((PyObject *args, int nargs,
|
|
int i, short *p_a));
|
|
extern int PyArg_GetFloat Py_PROTO((PyObject *args, int nargs,
|
|
int i, float *p_a));
|
|
extern int PyArg_GetString Py_PROTO((PyObject *args, int nargs,
|
|
int i, string *p_a));
|
|
extern int PyArg_GetChar Py_PROTO((PyObject *args, int nargs,
|
|
int i, char *p_a));
|
|
extern int PyArg_GetLongArray Py_PROTO((PyObject *args, int nargs,
|
|
int i, int n, long *p_a));
|
|
extern int PyArg_GetShortArray Py_PROTO((PyObject *args, int nargs,
|
|
int i, int n, short *p_a));
|
|
extern int PyArg_GetDoubleArray Py_PROTO((PyObject *args, int nargs,
|
|
int i, int n, double *p_a));
|
|
extern int PyArg_GetFloatArray Py_PROTO((PyObject *args, int nargs,
|
|
int i, int n, float *p_a));
|
|
extern int PyArg_GetLongArraySize Py_PROTO((PyObject *args, int nargs,
|
|
int i, long *p_a));
|
|
extern int PyArg_GetShortArraySize Py_PROTO((PyObject *args, int nargs,
|
|
int i, short *p_a));
|
|
extern int PyArg_GetDoubleArraySize Py_PROTO((PyObject *args, int nargs,
|
|
int i, double *p_a));
|
|
extern int PyArg_GetFloatArraySize Py_PROTO((PyObject *args, int nargs,
|
|
int i, float *p_a));
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
#endif /* !Py_CGENSUPPORT_H */
|