// floor1().

// General includes.
#include "cl_sysdep.h"

// Specification.
#include "cln/rational.h"


// Implementation.

#include "cl_RA.h"
#include "cln/integer.h"

namespace cln {

const cl_I floor1 (const cl_RA& x)
{
// Methode:
// x Integer -> q := x
// x Ratio a/b -> (floor a b)
	if (integerp(x)) {
		DeclareType(cl_I,x);
		return x;
	} else {
		DeclareType(cl_RT,x);
		var const cl_I& a = numerator(x);
		var const cl_I& b = denominator(x);
		return floor1(a,b);
	}
}

}  // namespace cln