shishantbiswas/c3c
1
1
Fork 0
mirror of https://github.com/c3lang/c3c.git synced 2026-02-27 12:01:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Added $kindof compile time function.

Browse Source 
- Deprecated `@typekind` macro in favour of `$kindof`.
- Deprecated `@typeis` macro in favour of `$typeof(#foo) == int`.
This commit is contained in:
Christoffer Lerno
2025-08-27 20:38:12 +02:00
parent 7312c10b9e
commit 239d249f01
24 changed files with 169 additions and 150 deletions
Download Patch File Download Diff File Expand all files Collapse all files

100
test/unit/stdlib/math/math.c3
View File

@@ -59,7 +59,7 @@ fn void test_abs() @test
assert(math::abs(y) == 123.0);
float z = -21.0f;
assert(math::abs(z) == 21.0f);
$assert @typeis(math::abs(z), float);
$assert $typeof(math::abs(z)) == float;
int[<3>] xx = { -1, -1000, 1000 };
assert(math::abs(xx) == (int[<3>]) { 1, 1000, 1000 });
double[<3>] yy = { -1, -0.5, 1000 };
@@ -72,9 +72,9 @@ fn void test_acos() @test
double [<3>] out = { 0.0, math::PI_2, math::PI };
double [<6>] in2 = { 0.9, 0.6, 0.1, -0.1, -0.6, -0.9 };
double [<6>] out2 = { 0.45102681179626236, 0.9272952180016123, 1.4706289056333368, 1.6709637479564565, 2.214297435588181, 2.6905658417935308 };
assert(@typeis(math::acos(in[0]), double));
assert(@typeis(math::acos((float)in[0]), float));
assert(@typeis(math::acos((double)in[0]), double));
assert($typeof(math::acos(in[0])) == double);
assert($typeof(math::acos((float)in[0])) == float);
assert($typeof(math::acos((double)in[0])) == double);
for (int i = 0; i < 2; i++)
{
double x = math::acos(in[i]);
@@ -108,9 +108,9 @@ fn void test_acosh() @test
{
int [<5>] in = { 0, -1, 1, 2, 231 };
double [<3>] out = { 0.0, 1.3169578969248166, 6.135560205979194 };
assert(@typeis(math::acosh(in[0]), double));
assert(@typeis(math::acosh((float)in[0]), float));
assert(@typeis(math::acosh((double)in[0]), double));
assert($typeof(math::acosh(in[0])) == double);
assert($typeof(math::acosh((float)in[0])) == float);
assert($typeof(math::acosh((double)in[0])) == double);
for (int i = 0; i < 2; i++)
{
assert(math::is_nan(math::acosh(in[i])), "acosh(%d)=%f is not nan", in[i]);
@@ -135,9 +135,9 @@ fn void test_asin() @test
double [<3>] out = { math::PI_2, 0.0, -math::PI_2 };
double [<6>] in2 = { 0.98, 0.6, 0.1, -0.1, -0.6, -0.98 };
double [<6>] out2 = { 1.3704614844717768, 0.6435011087932844, 0.1001674211615598, -0.1001674211615598, -0.6435011087932844, -1.3704614844717768 };
assert(@typeis(math::asin(in[0]), double));
assert(@typeis(math::asin((float)in[0]), float));
assert(@typeis(math::asin((double)in[0]), double));
assert($typeof(math::asin(in[0])) == double);
assert($typeof(math::asin((float)in[0])) == float);
assert($typeof(math::asin((double)in[0])) == double);
for (int i = 0; i < 2; i++)
{
assert(math::is_nan(math::asin(in[i])), "asin(%d)=%f is not nan", in[i]);
@@ -167,9 +167,9 @@ fn void test_asinh() @test
{
int [<5>] in = { 231, 1, 0, -1, -231 };
double [<5>] out = { 6.135569576118435, 0.881373587019543, 0.0, -0.881373587019543, -6.135569576118435 };
assert(@typeis(math::asinh(in[0]), double));
assert(@typeis(math::asinh((float)in[0]), float));
assert(@typeis(math::asinh((double)in[0]), double));
assert($typeof(math::asinh(in[0])) == double);
assert($typeof(math::asinh((float)in[0])) == float);
assert($typeof(math::asinh((double)in[0])) == double);
for (int i = 0; i < 5; i++)
{
double x = math::asinh(in[i]);
@@ -187,9 +187,9 @@ fn void test_atan() @test
double [<9>] out = { 1.5664673495078372, 1.2490457723982544, 1.1071487177940904, math::PI_4, 0.0, -math::PI_4, -1.1071487177940904, -1.2490457723982544, -1.5664673495078372 };
double [<6>] in2 = { 0.6, 0.4, 0.1, -0.1, -0.4, -0.6 };
double [<6>] out2 = { 0.5404195002705842, 0.3805063771123649, 0.09966865249116204, -0.09966865249116204, -0.3805063771123649, -0.5404195002705842 };
assert(@typeis(math::atan(in[0]), double));
assert(@typeis(math::atan((float)in[0]), float));
assert(@typeis(math::atan((double)in[0]), double));
assert($typeof(math::atan(in[0])) == double);
assert($typeof(math::atan((float)in[0])) == float);
assert($typeof(math::atan((double)in[0])) == double);
for (int i = 0; i < 9; i++)
{
double x = math::atan(in[i]);
@@ -213,9 +213,9 @@ fn void test_atanh() @test
int [<4>] in = { 231, -231, 1, -1 };
double [<6>] in2 = {0.8, 0.5, 0.3, -0.3, -0.5, -0.8 };
double [<6>] out = { 1.0986122886681098, 0.5493061443340548, 0.30951960420311175, -0.30951960420311175, -0.5493061443340548, -1.0986122886681098 };
assert(@typeis(math::atanh(in[0]), double));
assert(@typeis(math::atanh((float)in[0]), float));
assert(@typeis(math::atanh((double)in[0]), double));
assert($typeof(math::atanh(in[0])) == double);
assert($typeof(math::atanh((float)in[0])) == float);
assert($typeof(math::atanh((double)in[0])) == double);
for (int i = 0; i < 2; i++)
{
assert(math::is_nan(math::atanh(in[i])), "atanh(%d) is not nan", in[i]);
@@ -308,7 +308,7 @@ fn void test_ceil() @test
assert(math::ceil(d) == 1);
d = -0.9;
assert(math::ceil(d) == 0);
$assert @typeis(math::ceil(d), double);
$assert $typeof(math::ceil(d)) == double;
float f = -123.1f;
assert(math::ceil(f) == -123.0f);
f = 123.1f;
@@ -317,7 +317,7 @@ fn void test_ceil() @test
assert(math::ceil(f) == 1.0f);
f = -0.9f;
assert(math::ceil(f) == 0.0f);
$assert @typeis(math::ceil(f), float);
$assert $typeof(math::ceil(f)) == float;
double[<5>] vec = { -123.1, 123.1, 0.1, -0.9, 0 };
assert(math::ceil(vec) == (double[<5>]) { -123, 124, 1, 0, 0 });
}
@@ -342,9 +342,9 @@ fn void test_cos() @test
float [<2>] out2 = { -1.0f, 1.0f };
double [<2>] in3 = { math::PI, 0.0 };
double [<2>] out3 = { -1.0, 1.0 };
assert(@typeis(math::cos(in[0]), double));
assert(@typeis(math::cos((float)in[0]), float));
assert(@typeis(math::cos((double)in[0]), double));
assert($typeof(math::cos(in[0])) == double);
assert($typeof(math::cos((float)in[0])) == float);
assert($typeof(math::cos((double)in[0])) == double);
for (int i = 0; i < 5; i++)
{
double x = math::cos(in[i]);
@@ -371,9 +371,9 @@ fn void test_exp() @test
float[<6>] out2 = {6.049647464412946f, 1.8221188003905089f, 1.4918246976412703f, 0.6703200460356393f, 0.44932896411722156f, 0.16529888822158656f };
double[<6>] in3 = { 1.8, 0.6, 0.4, -0.4, -0.8, -1.8 };
double[<6>] out3 = {6.049647464412946, 1.8221188003905089, 1.4918246976412703, 0.6703200460356393, 0.44932896411722156, 0.16529888822158656 };
assert(@typeis(math::exp(in[0]), double));
assert(@typeis(math::exp((float)in[0]), float));
assert(@typeis(math::exp((double)in[0]), double));
assert($typeof(math::exp(in[0])) == double);
assert($typeof(math::exp((float)in[0])) == float);
assert($typeof(math::exp((double)in[0])) == double);
for (int i = 0; i < 5; i++)
{
double x = math::exp(in[i]);
@@ -402,7 +402,7 @@ fn void test_floor() @test
assert(math::floor(d) == 0);
d = -0.1;
assert(math::floor(d) == -1);
$assert @typeis(math::floor(d), double);
$assert $typeof(math::floor(d)) == double;
float f = -123.1f;
assert(math::floor(f) == -124.0f);
f = 123.1f;
@@ -411,7 +411,7 @@ fn void test_floor() @test
assert(math::floor(f) == 0.0f);
f = -0.1f;
assert(math::floor(f) == -1.0f);
$assert @typeis(math::floor(f), float);
$assert $typeof(math::floor(f)) == float;
double[<5>] vec = { -123.1, 123.1, 0.9, -0.1, 0 };
assert(math::floor(vec) == (double[<5>]) { -124, 123, 0, -1, 0 });
}
@@ -426,15 +426,15 @@ fn void test_log() @test
double[<4>] bx = { 1.0 / math::E, 1.0 / (math::E * math::E), 1.0 / (math::E * math::E), 1.0 / math::E };
double[<4>] in3 = { math::E * math::E, math::E, 1.0 / math::E, 1.0 / (math::E * math::E) };
double[<4>] out3 = { -2.0, -0.5, 0.5, 2.0 };
assert(@typeis(math::log(in[0], in[0]), double));
assert(@typeis(math::log(in[0], (float)in[0]), float));
assert(@typeis(math::log((float)in[0], in[0]), float));
assert(@typeis(math::log(in[0], (double)in[0]), double));
assert(@typeis(math::log((double)in[0], in[0]), double));
assert(@typeis(math::log((float)in[0], (float)in[0]), float));
assert(@typeis(math::log((float)in[0], (double)in[0]), double));
assert(@typeis(math::log((double)in[0], (float)in[0]), double));
assert(@typeis(math::log((double)in[0], (double)in[0]), double));
assert($typeof(math::log(in[0], in[0])) == double);
assert($typeof(math::log(in[0], (float)in[0])) == float);
assert($typeof(math::log((float)in[0], in[0])) == float);
assert($typeof(math::log(in[0], (double)in[0])) == double);
assert($typeof(math::log((double)in[0], in[0])) == double);
assert($typeof(math::log((float)in[0], (float)in[0])) == float);
assert($typeof(math::log((float)in[0], (double)in[0])) == double);
assert($typeof(math::log((double)in[0], (float)in[0])) == double);
assert($typeof(math::log((double)in[0], (double)in[0])) == double);
for (int i = 0; i < 8; i++)
{
int base = (i < 4) ? 10 : 8;
@@ -483,9 +483,9 @@ fn void test_pow() @test
float[<5>] out2 = { 1.0f / (math::E * math::E), 1.0f / math::E, 1.0f, math::E, math::E * math::E };
double[<2>] base3 = { -1.0 / math::E, 1.0 / math::E };
double[<5>] out3 = { 1.0 / (math::E * math::E), 1.0 / math::E, 1.0, math::E, math::E * math::E };
assert(@typeis(math::pow(e[1], e[1]), double));
assert(@typeis(math::pow((float)e[1], e[1]), float));
assert(@typeis(math::pow((double)e[1], e[1]), double));
assert($typeof(math::pow(e[1], e[1])) == double);
assert($typeof(math::pow((float)e[1], e[1])) == float);
assert($typeof(math::pow((double)e[1], e[1])) == double);
for (int i = 0; i < 10; i++)
{
for (int j = 0; j < 2; j++)
@@ -533,7 +533,7 @@ fn void test_sign() @test
assert(math::sign(y) == 0);
y = (uint)-21;
assert(math::sign(y) == 1);
assert(@typeis(math::sign(y), uint));
assert($typeof(math::sign(y)) == uint);
}
@@ -545,9 +545,9 @@ fn void test_sin() @test
float [<2>] out2 = { 1.0f, -1.0f };
double [<2>] in3 = { math::PI_2, -math::PI_2 };
double [<2>] out3 = { 1.0, -1.0 };
assert(@typeis(math::sin(in[0]), double));
assert(@typeis(math::sin((float)in[0]), float));
assert(@typeis(math::sin((double)in[0]), double));
assert($typeof(math::sin(in[0])) == double);
assert($typeof(math::sin((float)in[0])) == float);
assert($typeof(math::sin((double)in[0])) == double);
for (int i = 0; i < 5; i++)
{
double x = math::sin(in[i]);
@@ -574,9 +574,9 @@ fn void test_tan() @test
float [<2>] out2 = { 1.0f, -1.0f };
double [<2>] in3 = { math::PI_4, -math::PI_4 };
double [<2>] out3 = { 1.0, -1.0 };
assert(@typeis(math::tan(in[0]), double));
assert(@typeis(math::tan((float)in[0]), float));
assert(@typeis(math::tan((double)in[0]), double));
assert($typeof(math::tan(in[0])) == double);
assert($typeof(math::tan((float)in[0])) == float);
assert($typeof(math::tan((double)in[0])) == double);
for (int i = 0; i < 5; i++)
{
double x = math::tan(in[i]);
@@ -605,7 +605,7 @@ fn void test_trunc() @test
assert(math::trunc(d) == 0);
d = -0.9;
assert(math::trunc(d) == 0);
$assert @typeis(math::trunc(d), double);
$assert $typeof(math::trunc(d)) == double;
float f = -123.9f;
assert(math::trunc(f) == -123.0f);
f = 123.9f;
@@ -614,7 +614,7 @@ fn void test_trunc() @test
assert(math::trunc(f) == 0.0f);
f = -0.9f;
assert(math::trunc(f) == -0.0f);
$assert @typeis(math::trunc(f), float);
$assert $typeof(math::trunc(f)) == float;
double[<5>] vec = { -123.9, 123.9, 0.9, -0.9, 0 };
assert(math::trunc(vec) == (double[<5>]) { -123, 123, 0, 0, 0 });
}