/** @file FloatOps.cp
 *
 *  @author Roland Conybeare, Feb 2206
 **/

#include "FloatOps.hpp"
#include "float/INumeric_DFloat.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());
        }


    }
}

/* end FloatOps.cpp */