kc3-lang/kc3

Browse

Commit 7a8379b871a93623aabc6c37cf653e8f1261b8f4

Thomas de Grivel 2024-03-09T18:30:11

wip tag_mod 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114

diff --git a/libc3/tag_mod.c b/libc3/tag_mod.c
index 748d6f2..a7fb1fb 100644
--- a/libc3/tag_mod.c
+++ b/libc3/tag_mod.c
@@ -29,9 +29,11 @@ s_tag * tag_mod (const s_tag *a, const s_tag *b, s_tag *dest)
       return tag_init_f32(dest, fmodf(a->data.f32, b->data.f32));
     case TAG_F64:
       return tag_init_f64(dest, fmod((f64) a->data.f32, b->data.f64));
+    case TAG_F128:
+      return tag_init_f128(dest, fmodl((f128) a->data.f32, b->data.f128));
     case TAG_INTEGER:
-      return tag_init_f64(dest, fmod((f64) a->data.f32,
-                                     integer_to_f64(&b->data.integer)));
+      return tag_init_f128(dest, fmodl((f128) a->data.f32,
+                                      integer_to_f128(&b->data.integer)));
     case TAG_S8:
       return tag_init_f32(dest, fmodf(a->data.f32, (f32) b->data.s8));
     case TAG_S16:
@@ -39,9 +41,9 @@ s_tag * tag_mod (const s_tag *a, const s_tag *b, s_tag *dest)
     case TAG_S32:
       return tag_init_f64(dest, fmod((f64) a->data.f32, (f64) b->data.s32));
     case TAG_S64:
-      return tag_init_f64(dest, fmod((f64) a->data.f32, (f64) b->data.s64));
+      return tag_init_f128(dest, fmodl((f128) a->data.f32, (f128) b->data.s64));
     case TAG_SW:
-      return tag_init_f64(dest, fmod((f64) a->data.f32, (f64) b->data.sw));
+      return tag_init_f128(dest, fmodl((f128) a->data.f32, (f128) b->data.sw));
     case TAG_U8:
       return tag_init_f32(dest, fmodf(a->data.f32, (f32) b->data.u8));
     case TAG_U16:
@@ -49,9 +51,9 @@ s_tag * tag_mod (const s_tag *a, const s_tag *b, s_tag *dest)
     case TAG_U32:
       return tag_init_f64(dest, fmod((f64) a->data.f32, (f64) b->data.u32));
     case TAG_U64:
-      return tag_init_f64(dest, fmod((f64) a->data.f32, (f64) b->data.u64));
+      return tag_init_f128(dest, fmodl((f128) a->data.f32, (f128) b->data.u64));
     case TAG_UW:
-      return tag_init_f64(dest, fmod((f64) a->data.f32, (f64) b->data.uw));
+      return tag_init_f128(dest, fmodl((f128) a->data.f32, (f128) b->data.uw));
     default:
       goto ko;
     }
@@ -61,9 +63,11 @@ s_tag * tag_mod (const s_tag *a, const s_tag *b, s_tag *dest)
       return tag_init_f64(dest, fmod(a->data.f64, (f64) b->data.f32));
     case TAG_F64:
       return tag_init_f64(dest, fmod(a->data.f64, b->data.f64));
+    case TAG_F128:
+      return tag_init_f128(dest, fmodl((f128) a->data.f64, b->data.f128));
     case TAG_INTEGER:
-      return tag_init_f64(dest, fmod(a->data.f64,
-                                     integer_to_f64(&b->data.integer)));
+      return tag_init_f128(dest, fmod(a->data.f64,
+                                     integer_to_f128(&b->data.integer)));
     case TAG_S8:
       return tag_init_f64(dest, fmod(a->data.f64, (f64) b->data.s8));
     case TAG_S16:
@@ -71,9 +75,9 @@ s_tag * tag_mod (const s_tag *a, const s_tag *b, s_tag *dest)
     case TAG_S32:
       return tag_init_f64(dest, fmod(a->data.f64, (f64) b->data.s32));
     case TAG_S64:
-      return tag_init_f64(dest, fmod(a->data.f64, (f64) b->data.s64));
+      return tag_init_f128(dest, fmodl(a->data.f64, (f128) b->data.s64));
     case TAG_SW:
-      return tag_init_f64(dest, fmod(a->data.f64, (f64) b->data.sw));
+      return tag_init_f128(dest, fmodl(a->data.f64, (f128) b->data.sw));
     case TAG_U8:
       return tag_init_f64(dest, fmod(a->data.f64, (f64) b->data.u8));
     case TAG_U16:
@@ -81,9 +85,43 @@ s_tag * tag_mod (const s_tag *a, const s_tag *b, s_tag *dest)
     case TAG_U32:
       return tag_init_f64(dest, fmod(a->data.f64, (f64) b->data.u32));
     case TAG_U64:
-      return tag_init_f64(dest, fmod(a->data.f64, (f64) b->data.u64));
+      return tag_init_f128(dest, fmodl(a->data.f64, (f128) b->data.u64));
     case TAG_UW:
-      return tag_init_f64(dest, fmod(a->data.f64, (f64) b->data.uw));
+      return tag_init_f128(dest, fmodl(a->data.f64, (f128) b->data.uw));
+    default:
+      goto ko;
+    }
+  case TAG_F128:
+    switch (b->type) {
+    case TAG_F32:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.f32));
+    case TAG_F64:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.f64));
+    case TAG_F128:
+      return tag_init_f128(dest, fmodl(a->data.f128, b->data.f128));
+    case TAG_INTEGER:
+      return tag_init_f128(dest, fmodl(a->data.f128,
+                                     integer_to_f128(&b->data.integer)));
+    case TAG_S8:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.s8));
+    case TAG_S16:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.s16));
+    case TAG_S32:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.s32));
+    case TAG_S64:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.s64));
+    case TAG_SW:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.sw));
+    case TAG_U8:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.u8));
+    case TAG_U16:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.u16));
+    case TAG_U32:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.u32));
+    case TAG_U64:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.u64));
+    case TAG_UW:
+      return tag_init_f128(dest, fmodl(a->data.f128, (f128) b->data.uw));
     default:
       goto ko;
     }
kmx.io     mail     discord kmxgit v0.4.0