Bruce/tomo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Activity

Use aliasing for Num -> Num64

Browse Source
This commit is contained in:
Bruce Hill 2024-02-17 19:56:32 -05:00
parent 30c5b1ec25
commit f521a99d00
2 changed files with 32 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
builtins/nums.c
View File

@ -15,70 +15,70 @@
#include "string.h"
#include "types.h"
public CORD Num__as_str(const double *f, bool colorize, const TypeInfo *type) {
public CORD Num64__as_str(const double *f, bool colorize, const TypeInfo *type) {
(void)type;
if (!f) return "Num";
if (!f) return "Num64";
CORD c;
if (colorize) CORD_sprintf(&c, "\x1b[35m%g\x1b[33;2m\x1b[m", *f);
else CORD_sprintf(&c, "%g", *f);
return c;
}
public int32_t Num__compare(const double *x, const double *y, const TypeInfo *type) {
public int32_t Num64__compare(const double *x, const double *y, const TypeInfo *type) {
(void)type;
return (*x > *y) - (*x < *y);
}
public bool Num__equal(const double *x, const double *y, const TypeInfo *type) {
public bool Num64__equal(const double *x, const double *y, const TypeInfo *type) {
(void)type;
return *x == *y;
}
public CORD Num__format(double f, int64_t precision) {
public CORD Num64__format(double f, int64_t precision) {
return CORD_asprintf("%.*f", (int)precision, f);
}
public CORD Num__scientific(double f, int64_t precision) {
public CORD Num64__scientific(double f, int64_t precision) {
return CORD_asprintf("%.*e", (int)precision, f);
}
public double Num__mod(double num, double modulus) {
public double Num64__mod(double num, double modulus) {
double result = fmod(num, modulus);
return (result < 0) != (modulus < 0) ? result + modulus : result;
}
public bool Num__isinf(double n) { return isinf(n); }
public bool Num__finite(double n) { return finite(n); }
public bool Num__isnan(double n) { return isnan(n); }
public bool Num64__isinf(double n) { return isinf(n); }
public bool Num64__finite(double n) { return finite(n); }
public bool Num64__isnan(double n) { return isnan(n); }
public Num_namespace_t Num_type = {
public Num64_namespace_t Num64_type = {
.type=(TypeInfo){
.size=sizeof(double),
.align=alignof(double),
.tag=CustomInfo,
.CustomInfo={
.compare=(void*)Num__compare,
.equal=(void*)Num__equal,
.as_str=(void*)Num__as_str,
.compare=(void*)Num64__compare,
.equal=(void*)Num64__equal,
.as_str=(void*)Num64__as_str,
},
},
.NaN=NAN, ._2_sqrt_pi=M_2_SQRTPI, .e=M_E, .half_pi=M_PI_2, .inf=1./0., .inverse_half_pi=M_2_PI,
.inverse_pi=M_1_PI, .ln10=M_LN10, .ln2=M_LN2, .log2e=M_LOG2E, .pi=M_PI, .quarter_pi=M_PI_4,
.sqrt2=M_SQRT2, .sqrt_half=M_SQRT1_2, .tau=2.*M_PI,
.random=drand48,
.finite=Num__finite,
.isinf=Num__isinf,
.isnan=Num__isnan,
.finite=Num64__finite,
.isinf=Num64__isinf,
.isnan=Num64__isnan,
.atan2=atan2, .copysign=copysign, .dist=fdim, .hypot=hypot, .maxmag=fmaxmag, .minmag=fminmag,
.mod=Num__mod, .nextafter=nextafter, .pow=pow, .remainder=remainder,
.mod=Num64__mod, .nextafter=nextafter, .pow=pow, .remainder=remainder,
.abs=fabs, .acos=acos, .acosh=acosh, .asin=asin, .asinh=asinh, .atan=atan, .atanh=atanh,
.cbrt=cbrt, .ceil=ceil, .cos=cos, .cosh=cosh, .erf=erf, .erfc=erfc, .exp=exp,
.exp10=exp10, .exp2=exp2, .expm1=expm1, .floor=floor, .j0=j0, .j1=j1, .log=log,
.log10=log10, .log1p=log1p, .log2=log2, .logb=logb, .nextdown=nextdown, .nextup=nextup,
.rint=rint, .round=round, .roundeven=roundeven, .significand=significand, .sin=sin,
.sinh=sinh, .sqrt=sqrt, .tan=tan, .tanh=tanh, .tgamma=tgamma, .trunc=trunc, .y0=y0, .y1=y1,
.format=Num__format,
.scientific=Num__scientific,
.format=Num64__format,
.scientific=Num64__scientific,
};
public CORD Num32__as_str(float *f, bool colorize, const TypeInfo *type) {

22
builtins/nums.h
View File

@ -5,15 +5,15 @@
#include "types.h"
CORD Num__as_str(const double *f, bool colorize, const TypeInfo *type);
int32_t Num__compare(const double *x, const double *y, const TypeInfo *type);
bool Num__equal(const double *x, const double *y, const TypeInfo *type);
CORD Num__format(double f, int64_t precision);
CORD Num__scientific(double f, int64_t precision);
double Num__mod(double num, double modulus);
bool Num__isinf(double n);
bool Num__finite(double n);
bool Num__isnan(double n);
CORD Num64__as_str(const double *f, bool colorize, const TypeInfo *type);
int32_t Num64__compare(const double *x, const double *y, const TypeInfo *type);
bool Num64__equal(const double *x, const double *y, const TypeInfo *type);
CORD Num64__format(double f, int64_t precision);
CORD Num64__scientific(double f, int64_t precision);
double Num64__mod(double num, double modulus);
bool Num64__isinf(double n);
bool Num64__finite(double n);
bool Num64__isnan(double n);
typedef bool (*double_pred_t)(double);
typedef double (*double_unary_fn_t)(double);
@ -38,7 +38,8 @@ typedef struct {
// Odds and ends:
CORD (*format)(double f, int64_t precision);
CORD (*scientific)(double f, int64_t precision);
} Num_namespace_t;
} Num64_namespace_t;
extern Num64_namespace_t Num64_type;
CORD Num32__as_str(float *f, bool colorize, const TypeInfo *type);
int32_t Num32__compare(const float *x, const float *y, const TypeInfo *type);
@ -75,5 +76,6 @@ typedef struct {
CORD (*format)(float f, int64_t precision);
CORD (*scientific)(float f, int64_t precision);
} Num32_namespace_t;
extern Num32_namespace_t Num32_type;
// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0