From 7a904edcbf114924df0b15eb871d738834805bd5 Mon Sep 17 00:00:00 2001 From: Guido van Rossum Date: Wed, 3 Apr 1991 19:06:26 +0000 Subject: Moved get*doublearg() routines here from mathmodule.c --- Python/modsupport.c | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) diff --git a/Python/modsupport.c b/Python/modsupport.c index cf3e7b2..9613107 100644 --- a/Python/modsupport.c +++ b/Python/modsupport.c @@ -379,3 +379,32 @@ getshortlistarg(args, a, n) } return 1; } + +int +getdoublearg(args, px) + register object *args; + double *px; +{ + if (args == NULL) + return err_badarg(); + if (is_floatobject(args)) { + *px = getfloatvalue(args); + return 1; + } + if (is_intobject(args)) { + *px = getintvalue(args); + return 1; + } + return err_badarg(); +} + +int +get2doublearg(args, px, py) + register object *args; + double *px, *py; +{ + if (args == NULL || !is_tupleobject(args) || gettuplesize(args) != 2) + return err_badarg(); + return getdoublearg(gettupleitem(args, 0), px) && + getdoublearg(gettupleitem(args, 1), py); +} -- cgit v0.12