130 lines
3.2 KiB
C++
130 lines
3.2 KiB
C++
/** @file init_primitives.cpp
|
|
*
|
|
* @author Roland Conybeare, Jan 2026
|
|
**/
|
|
|
|
#include "init_primitives.hpp"
|
|
#include "DPrimitive.hpp"
|
|
#include <cmath>
|
|
|
|
namespace xo {
|
|
namespace scm {
|
|
double
|
|
neg_f64(double x) {
|
|
return -x;
|
|
}
|
|
|
|
double
|
|
add_f64_f64(double x, double y) {
|
|
return x + y;
|
|
}
|
|
|
|
double
|
|
sub_f64_f64(double x, double y) {
|
|
return x - y;
|
|
}
|
|
|
|
#ifdef NOT_YET
|
|
obj<AGCObject>
|
|
mul_any_any(obj<AGCObject> x_gco, obj<AGCObject> y_gco)
|
|
{
|
|
// PLACEHOLDER
|
|
|
|
// TODO:
|
|
// 1. move this to xo-numeric2/ when available
|
|
// 2. at that point will require polymorphic dispatch
|
|
// on argument representations, analogous to dispatch
|
|
// in FacetRegistry
|
|
// 3. Need concept of a 'runtime context'.
|
|
// This will need to be part of the AProcedure api
|
|
// e.g. passed to apply_nocheck
|
|
|
|
typeseq x_tseq = x_gco._typeseq();
|
|
typeseq y_tseq = y_gco._typeseq();
|
|
|
|
// FOR NOW: just test runtime values
|
|
//
|
|
if (x_tseq == typeseq::id<DFloat>()) {
|
|
if (y_tseq == typeseq::id<DFloat>()) {
|
|
// unusable placeholder allocator;
|
|
obj<AAllocator> placeholder_mm;
|
|
|
|
// f64 * f64.
|
|
double x = GCObjectConversion<double>::from_gco(placeholder_mm, x_gco);
|
|
double y = GCObjectConversion<double>::from_gco(placeholder_mm, y_gco);
|
|
|
|
|
|
|
|
}
|
|
#endif
|
|
|
|
double
|
|
mul_f64_f64(double x, double y) {
|
|
return x * y;
|
|
}
|
|
|
|
double
|
|
div_f64_f64(double x, double y) {
|
|
return x / y;
|
|
}
|
|
|
|
double
|
|
pow_f64_f64(double x, double y) {
|
|
return ::pow(x, y);
|
|
}
|
|
|
|
double
|
|
log_f64(double x) {
|
|
return ::log(x);
|
|
}
|
|
|
|
double
|
|
sin_f64(double x) {
|
|
return ::sin(x);
|
|
}
|
|
|
|
double
|
|
cos_f64(double x) {
|
|
return ::cos(x);
|
|
}
|
|
|
|
double
|
|
tan_f64(double x) {
|
|
return ::tan(x);
|
|
}
|
|
|
|
Primitive_f64_1_f64
|
|
Primitives::s_neg_f64_pm("_neg_d",
|
|
&neg_f64);
|
|
|
|
Primitive_f64_2_f64_f64
|
|
Primitives::s_add_f64_f64_pm("_add_d_d", &add_f64_f64);
|
|
|
|
Primitive_f64_2_f64_f64
|
|
Primitives::s_sub_f64_f64_pm("_sub_d_d", &sub_f64_f64);
|
|
|
|
Primitive_f64_2_f64_f64
|
|
Primitives::s_mul_f64_f64_pm("_mul_d_d", &mul_f64_f64);
|
|
|
|
Primitive_f64_2_f64_f64
|
|
Primitives::s_div_f64_f64_pm("_div_d_d", &div_f64_f64);
|
|
|
|
Primitive_f64_2_f64_f64
|
|
Primitives::s_pow_f64_f64_pm("_pow_d_d", &pow_f64_f64);
|
|
|
|
Primitive_f64_1_f64
|
|
Primitives::s_log_f64_pm("_log_d", &log_f64);
|
|
|
|
Primitive_f64_1_f64
|
|
Primitives::s_sin_f64_pm("_sin_d", &sin_f64);
|
|
|
|
Primitive_f64_1_f64
|
|
Primitives::s_cos_f64_pm("_cos_d", &cos_f64);
|
|
|
|
Primitive_f64_1_f64
|
|
Primitives::s_tan_f64_pm("_tan_d", &tan_f64);
|
|
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
/* end init_primitives.cpp */
|