summaryrefslogtreecommitdiffstats
path: root/Objects/complexobject.c
diff options
context:
space:
mode:
authorGuido van Rossum <guido@python.org>1997-05-02 03:12:38 (GMT)
committerGuido van Rossum <guido@python.org>1997-05-02 03:12:38 (GMT)
commitc0b618a2ccfb0fc39e07ee96dc09da77fbcce1b1 (patch)
tree41fcbbf4aa993b2172cce9c5cb26021268c82bd8 /Objects/complexobject.c
parentf4806c2a85dccb94a183b584f99b6b5b8f40e6db (diff)
downloadcpython-c0b618a2ccfb0fc39e07ee96dc09da77fbcce1b1.zip
cpython-c0b618a2ccfb0fc39e07ee96dc09da77fbcce1b1.tar.gz
cpython-c0b618a2ccfb0fc39e07ee96dc09da77fbcce1b1.tar.bz2
Quickly renamed the last directory.
Diffstat (limited to 'Objects/complexobject.c')
-rw-r--r--Objects/complexobject.c218
1 files changed, 108 insertions, 110 deletions
diff --git a/Objects/complexobject.c b/Objects/complexobject.c
index abd83e4..0ad665d 100644
--- a/Objects/complexobject.c
+++ b/Objects/complexobject.c
@@ -4,10 +4,7 @@
#ifndef WITHOUT_COMPLEX
-#include "allobjects.h"
-#include "modsupport.h"
-
-#include <errno.h>
+#include "Python.h"
#include "mymath.h"
#ifdef i860
@@ -48,8 +45,8 @@
#endif
#if !defined(__STDC__) && !defined(macintosh)
-extern double fmod PROTO((double, double));
-extern double pow PROTO((double, double));
+extern double fmod Py_PROTO((double, double));
+extern double pow Py_PROTO((double, double));
#endif
@@ -175,14 +172,14 @@ PyObject *
PyComplex_FromCComplex(cval)
Py_complex cval;
{
- register complexobject *op =
- (complexobject *) malloc(sizeof(complexobject));
+ register PyComplexObject *op =
+ (PyComplexObject *) malloc(sizeof(PyComplexObject));
if (op == NULL)
- return err_nomem();
- op->ob_type = &Complextype;
+ return PyErr_NoMemory();
+ op->ob_type = &PyComplex_Type;
op->cval = cval;
- NEWREF(op);
- return (object *) op;
+ _Py_NewReference(op);
+ return (PyObject *) op;
}
PyObject *
@@ -233,16 +230,16 @@ PyComplex_AsCComplex(op)
static void
complex_dealloc(op)
- object *op;
+ PyObject *op;
{
- DEL(op);
+ PyMem_DEL(op);
}
static void
complex_buf_repr(buf, v)
char *buf;
- complexobject *v;
+ PyComplexObject *v;
{
if (v->cval.real == 0.)
sprintf(buf, "%.12gj", v->cval.imag);
@@ -252,7 +249,7 @@ complex_buf_repr(buf, v)
static int
complex_print(v, fp, flags)
- complexobject *v;
+ PyComplexObject *v;
FILE *fp;
int flags; /* Not used but required by interface */
{
@@ -262,18 +259,18 @@ complex_print(v, fp, flags)
return 0;
}
-static object *
+static PyObject *
complex_repr(v)
- complexobject *v;
+ PyComplexObject *v;
{
char buf[100];
complex_buf_repr(buf, v);
- return newstringobject(buf);
+ return PyString_FromString(buf);
}
static int
complex_compare(v, w)
- complexobject *v, *w;
+ PyComplexObject *v, *w;
{
/* Note: "greater" and "smaller" have no meaning for complex numbers,
but Python requires that they be defined nevertheless. */
@@ -290,7 +287,7 @@ complex_compare(v, w)
static long
complex_hash(v)
- complexobject *v;
+ PyComplexObject *v;
{
double intpart, fractpart;
int expo;
@@ -312,11 +309,11 @@ complex_hash(v)
if (fractpart == 0.0 && v->cval.imag == 0.0) {
if (intpart > 0x7fffffffL || -intpart > 0x7fffffffL) {
/* Convert to long int and use its hash... */
- object *w = dnewlongobject(v->cval.real);
+ PyObject *w = PyLong_FromDouble(v->cval.real);
if (w == NULL)
return -1;
- x = hashobject(w);
- DECREF(w);
+ x = PyObject_Hash(w);
+ Py_DECREF(w);
return x;
}
x = (long)intpart;
@@ -359,46 +356,46 @@ complex_hash(v)
return x;
}
-static object *
+static PyObject *
complex_add(v, w)
- complexobject *v;
- complexobject *w;
+ PyComplexObject *v;
+ PyComplexObject *w;
{
Py_complex result;
PyFPE_START_PROTECT("complex_add", return 0)
result = c_sum(v->cval,w->cval);
PyFPE_END_PROTECT(result)
- return newcomplexobject(result);
+ return PyComplex_FromCComplex(result);
}
-static object *
+static PyObject *
complex_sub(v, w)
- complexobject *v;
- complexobject *w;
+ PyComplexObject *v;
+ PyComplexObject *w;
{
Py_complex result;
PyFPE_START_PROTECT("complex_sub", return 0)
result = c_diff(v->cval,w->cval);
PyFPE_END_PROTECT(result)
- return newcomplexobject(result);
+ return PyComplex_FromCComplex(result);
}
-static object *
+static PyObject *
complex_mul(v, w)
- complexobject *v;
- complexobject *w;
+ PyComplexObject *v;
+ PyComplexObject *w;
{
Py_complex result;
PyFPE_START_PROTECT("complex_mul", return 0)
result = c_prod(v->cval,w->cval);
PyFPE_END_PROTECT(result)
- return newcomplexobject(result);
+ return PyComplex_FromCComplex(result);
}
-static object *
+static PyObject *
complex_div(v, w)
- complexobject *v;
- complexobject *w;
+ PyComplexObject *v;
+ PyComplexObject *w;
{
Py_complex quot;
PyFPE_START_PROTECT("complex_div", return 0)
@@ -406,74 +403,74 @@ complex_div(v, w)
quot = c_quot(v->cval,w->cval);
PyFPE_END_PROTECT(quot)
if (c_error == 1) {
- err_setstr(ZeroDivisionError, "complex division");
+ PyErr_SetString(PyExc_ZeroDivisionError, "complex division");
return NULL;
}
- return newcomplexobject(quot);
+ return PyComplex_FromCComplex(quot);
}
-static object *
+static PyObject *
complex_remainder(v, w)
- complexobject *v;
- complexobject *w;
+ PyComplexObject *v;
+ PyComplexObject *w;
{
Py_complex div, mod;
c_error = 0;
div = c_quot(v->cval,w->cval); /* The raw divisor value. */
if (c_error == 1) {
- err_setstr(ZeroDivisionError, "complex remainder");
+ PyErr_SetString(PyExc_ZeroDivisionError, "complex remainder");
return NULL;
}
div.real = floor(div.real); /* Use the floor of the real part. */
div.imag = 0.0;
mod = c_diff(v->cval, c_prod(w->cval, div));
- return newcomplexobject(mod);
+ return PyComplex_FromCComplex(mod);
}
-static object *
+static PyObject *
complex_divmod(v, w)
- complexobject *v;
- complexobject *w;
+ PyComplexObject *v;
+ PyComplexObject *w;
{
Py_complex div, mod;
PyObject *d, *m, *z;
c_error = 0;
div = c_quot(v->cval,w->cval); /* The raw divisor value. */
if (c_error == 1) {
- err_setstr(ZeroDivisionError, "complex divmod()");
+ PyErr_SetString(PyExc_ZeroDivisionError, "complex divmod()");
return NULL;
}
div.real = floor(div.real); /* Use the floor of the real part. */
div.imag = 0.0;
mod = c_diff(v->cval, c_prod(w->cval, div));
- d = newcomplexobject(div);
- m = newcomplexobject(mod);
- z = mkvalue("(OO)", d, m);
+ d = PyComplex_FromCComplex(div);
+ m = PyComplex_FromCComplex(mod);
+ z = Py_BuildValue("(OO)", d, m);
Py_XDECREF(d);
Py_XDECREF(m);
return z;
}
-static object *
+static PyObject *
complex_pow(v, w, z)
- complexobject *v;
- object *w;
- complexobject *z;
+ PyComplexObject *v;
+ PyObject *w;
+ PyComplexObject *z;
{
Py_complex p;
Py_complex exponent;
long int_exponent;
- if ((object *)z!=None) {
- err_setstr(ValueError, "complex modulo");
+ if ((PyObject *)z!=Py_None) {
+ PyErr_SetString(PyExc_ValueError, "complex modulo");
return NULL;
}
PyFPE_START_PROTECT("complex_pow", return 0)
c_error = 0;
- exponent = ((complexobject*)w)->cval;
+ exponent = ((PyComplexObject*)w)->cval;
int_exponent = (long)exponent.real;
if (exponent.imag == 0. && exponent.real == int_exponent)
p = c_powi(v->cval,int_exponent);
@@ -482,112 +479,113 @@ complex_pow(v, w, z)
PyFPE_END_PROTECT(p)
if (c_error == 2) {
- err_setstr(ValueError, "0.0 to a negative or complex power");
+ PyErr_SetString(PyExc_ValueError,
+ "0.0 to a negative or complex power");
return NULL;
}
- return newcomplexobject(p);
+ return PyComplex_FromCComplex(p);
}
-static object *
+static PyObject *
complex_neg(v)
- complexobject *v;
+ PyComplexObject *v;
{
Py_complex neg;
neg.real = -v->cval.real;
neg.imag = -v->cval.imag;
- return newcomplexobject(neg);
+ return PyComplex_FromCComplex(neg);
}
-static object *
+static PyObject *
complex_pos(v)
- complexobject *v;
+ PyComplexObject *v;
{
- INCREF(v);
- return (object *)v;
+ Py_INCREF(v);
+ return (PyObject *)v;
}
-static object *
+static PyObject *
complex_abs(v)
- complexobject *v;
+ PyComplexObject *v;
{
double result;
PyFPE_START_PROTECT("complex_abs", return 0)
result = hypot(v->cval.real,v->cval.imag);
PyFPE_END_PROTECT(result)
- return newfloatobject(result);
+ return PyFloat_FromDouble(result);
}
static int
complex_nonzero(v)
- complexobject *v;
+ PyComplexObject *v;
{
return v->cval.real != 0.0 && v->cval.imag != 0.0;
}
static int
complex_coerce(pv, pw)
- object **pv;
- object **pw;
+ PyObject **pv;
+ PyObject **pw;
{
Py_complex cval;
cval.imag = 0.;
- if (is_intobject(*pw)) {
- cval.real = (double)getintvalue(*pw);
- *pw = newcomplexobject(cval);
- INCREF(*pv);
+ if (PyInt_Check(*pw)) {
+ cval.real = (double)PyInt_AsLong(*pw);
+ *pw = PyComplex_FromCComplex(cval);
+ Py_INCREF(*pv);
return 0;
}
- else if (is_longobject(*pw)) {
- cval.real = dgetlongvalue(*pw);
- *pw = newcomplexobject(cval);
- INCREF(*pv);
+ else if (PyLong_Check(*pw)) {
+ cval.real = PyLong_AsDouble(*pw);
+ *pw = PyComplex_FromCComplex(cval);
+ Py_INCREF(*pv);
return 0;
}
- else if (is_floatobject(*pw)) {
- cval.real = getfloatvalue(*pw);
- *pw = newcomplexobject(cval);
- INCREF(*pv);
+ else if (PyFloat_Check(*pw)) {
+ cval.real = PyFloat_AsDouble(*pw);
+ *pw = PyComplex_FromCComplex(cval);
+ Py_INCREF(*pv);
return 0;
}
return 1; /* Can't do it */
}
-static object *
+static PyObject *
complex_int(v)
- object *v;
+ PyObject *v;
{
- err_setstr(TypeError,
+ PyErr_SetString(PyExc_TypeError,
"can't convert complex to int; use e.g. int(abs(z))");
return NULL;
}
-static object *
+static PyObject *
complex_long(v)
- object *v;
+ PyObject *v;
{
- err_setstr(TypeError,
+ PyErr_SetString(PyExc_TypeError,
"can't convert complex to long; use e.g. long(abs(z))");
return NULL;
}
-static object *
+static PyObject *
complex_float(v)
- object *v;
+ PyObject *v;
{
- err_setstr(TypeError,
+ PyErr_SetString(PyExc_TypeError,
"can't convert complex to float; use e.g. abs(z)");
return NULL;
}
-static object *
+static PyObject *
complex_conjugate(self)
- object *self;
+ PyObject *self;
{
Py_complex c;
- c = ((complexobject *)self)->cval;
+ c = ((PyComplexObject *)self)->cval;
c.imag = -c.imag;
- return newcomplexobject(c);
+ return PyComplex_FromCComplex(c);
}
static PyMethodDef complex_methods[] = {
@@ -596,21 +594,21 @@ static PyMethodDef complex_methods[] = {
};
-static object *
+static PyObject *
complex_getattr(self, name)
- complexobject *self;
+ PyComplexObject *self;
char *name;
{
if (strcmp(name, "real") == 0)
- return (object *)newfloatobject(self->cval.real);
+ return (PyObject *)PyFloat_FromDouble(self->cval.real);
else if (strcmp(name, "imag") == 0)
- return (object *)newfloatobject(self->cval.imag);
+ return (PyObject *)PyFloat_FromDouble(self->cval.imag);
else if (strcmp(name, "__members__") == 0)
- return mkvalue("[ss]", "imag", "real");
- return findmethod(complex_methods, (object *)self, name);
+ return Py_BuildValue("[ss]", "imag", "real");
+ return Py_FindMethod(complex_methods, (PyObject *)self, name);
}
-static number_methods complex_as_number = {
+static PyNumberMethods complex_as_number = {
(binaryfunc)complex_add, /*nb_add*/
(binaryfunc)complex_sub, /*nb_subtract*/
(binaryfunc)complex_mul, /*nb_multiply*/
@@ -636,11 +634,11 @@ static number_methods complex_as_number = {
0, /*nb_hex*/
};
-typeobject Complextype = {
- OB_HEAD_INIT(&Typetype)
+PyTypeObject PyComplex_Type = {
+ PyObject_HEAD_INIT(&PyType_Type)
0,
"complex",
- sizeof(complexobject),
+ sizeof(PyComplexObject),
0,
(destructor)complex_dealloc, /*tp_dealloc*/
(printfunc)complex_print, /*tp_print*/