You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
529 B
31 lines
529 B
// ftruncate().
|
|
|
|
// General includes.
|
|
#include "cl_sysdep.h"
|
|
|
|
// Specification.
|
|
#include "cln/real.h"
|
|
|
|
|
|
// Implementation.
|
|
|
|
#include "cl_R.h"
|
|
|
|
namespace cln {
|
|
|
|
const cl_F ftruncate (const cl_R& x, const cl_R& y)
|
|
{
|
|
// Methode:
|
|
// x,y beide rational: truncate(x,y), Quotienten in Float umwandeln.
|
|
// Sonst: ftruncate(x/y).
|
|
if (rationalp(x))
|
|
if (rationalp(y)) {
|
|
// beides rationale Zahlen
|
|
DeclareType(cl_RA,x);
|
|
DeclareType(cl_RA,y);
|
|
return cl_float(truncate1(x,y));
|
|
}
|
|
return ftruncate(x/y);
|
|
}
|
|
|
|
} // namespace cln
|