/** @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 */