96 lines
3 KiB
C++
96 lines
3 KiB
C++
/** @file FloatOps.cp
|
|
*
|
|
* @author Roland Conybeare, Feb 2206
|
|
**/
|
|
|
|
#include "FloatOps.hpp"
|
|
#include "float/INumeric_DFloat.hpp"
|
|
#include <xo/object2/Boolean.hpp>
|
|
|
|
namespace xo {
|
|
using xo::mm::AGCObject;
|
|
|
|
namespace scm {
|
|
|
|
obj<AGCObject>
|
|
FloatOps::multiply(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DFloat * y)
|
|
{
|
|
return DFloat::box<AGCObject>(rcx.allocator(), x->value() * y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
FloatOps::divide(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DFloat * y)
|
|
{
|
|
return DFloat::box<AGCObject>(rcx.allocator(),
|
|
x->value() / y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
FloatOps::add(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DFloat * y)
|
|
{
|
|
return DFloat::box<AGCObject>(rcx.allocator(),
|
|
x->value() + y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
FloatOps::subtract(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DFloat * y)
|
|
{
|
|
return DFloat::box<AGCObject>(rcx.allocator(),
|
|
x->value() - y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
FloatOps::cmp_equal(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DFloat * y)
|
|
{
|
|
return DBoolean::box<AGCObject>(rcx.allocator(),
|
|
x->value() == y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
FloatOps::cmp_notequal(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DFloat * y)
|
|
{
|
|
return DBoolean::box<AGCObject>(rcx.allocator(),
|
|
x->value() != y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
FloatOps::cmp_less(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DFloat * y)
|
|
{
|
|
return DBoolean::box<AGCObject>(rcx.allocator(),
|
|
x->value() < y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
FloatOps::cmp_lessequal(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DFloat * y)
|
|
{
|
|
return DBoolean::box<AGCObject>(rcx.allocator(),
|
|
x->value() <= y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
FloatOps::cmp_greater(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DFloat * y)
|
|
{
|
|
return DBoolean::box<AGCObject>(rcx.allocator(),
|
|
x->value() > y->value());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
FloatOps::cmp_greatequal(obj<ARuntimeContext> rcx,
|
|
DFloat * x, DFloat * y)
|
|
{
|
|
return DBoolean::box<AGCObject>(rcx.allocator(),
|
|
x->value() >= y->value());
|
|
}
|
|
}
|
|
}
|
|
|
|
/* end FloatOps.cpp */
|