48 lines
1.3 KiB
C++
48 lines
1.3 KiB
C++
/** @file FloatIntegerOps.cp
|
|
*
|
|
* @author Roland Conybeare, Feb 2206
|
|
**/
|
|
|
|
#include "FloatIntegerOps.hpp"
|
|
#include "float/INumeric_DFloat.hpp"
|
|
|
|
namespace xo {
|
|
using xo::mm::AGCObject;
|
|
|
|
namespace scm {
|
|
|
|
// ----- Float op Integer -----
|
|
|
|
obj<AGCObject>
|
|
FloatIntegerOps::multiply(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DInteger * y)
|
|
{
|
|
return DFloat::box<AGCObject>(rcx.allocator(), x->value() * y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
FloatIntegerOps::divide(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DInteger * y)
|
|
{
|
|
return DFloat::box<AGCObject>(rcx.allocator(), x->value() / y->value());
|
|
}
|
|
|
|
// ----- Integer op Float -----
|
|
|
|
obj<AGCObject>
|
|
IntegerFloatOps::multiply(obj<ARuntimeContext> rcx,
|
|
DInteger * x, DFloat * y)
|
|
{
|
|
return DFloat::box<AGCObject>(rcx.allocator(), x->value() * y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
IntegerFloatOps::divide(obj<ARuntimeContext> rcx,
|
|
DInteger * x, DFloat * y)
|
|
{
|
|
return DFloat::box<AGCObject>(rcx.allocator(), x->value() / y->value());
|
|
}
|
|
}
|
|
}
|
|
|
|
/* end FloatIntegerOps.cpp */
|