Moved get*doublearg() routines here from mathmodule.c
This commit is contained in:
parent
5b7f945bc3
commit
7a904edcbf
|
@ -379,3 +379,32 @@ getshortlistarg(args, a, n)
|
||||||
}
|
}
|
||||||
return 1;
|
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);
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in New Issue