runtime: cleanup

Signed-off-by: Sora Morimoto <[email protected]>

Author: smorimoto

biome.json

@@ -13,7 +13,8 @@
     "rules": {
       "recommended": true,
       "style": {
-        "noParameterAssign": "off"
+        "noParameterAssign": "off",
+        "useNamingConvention": "off"
       },
       "suspicious": {
         "noAssignInExpressions": "off",

runtime/array.js

@@ -19,26 +19,12 @@
 
 //Provides: caml_array_sub mutable
 function caml_array_sub(a, i, len) {
-  const a2 = new Array(len + 1);
-  a2[0] = 0;
-  for (let i2 = 1, i1 = i + 1; i2 <= len; i2++, i1++) {
-    a2[i2] = a[i1];
-  }
-  return a2;
+  return [0, ...a.slice(i + 1, i + len + 1)];
 }
 
 //Provides: caml_array_append mutable
 function caml_array_append(a1, a2) {
-  const l1 = a1.length;
-  const l2 = a2.length;
-  const l = l1 + l2 - 1;
-  const a = new Array(l);
-  a[0] = 0;
-  let i = 1;
-  let j = 1;
-  for (; i < l1; i++) a[i] = a1[i];
-  for (; i < l; i++, j++) a[i] = a2[j];
-  return a;
+  return [0, ...a1.slice(1), ...a2.slice(1)];
 }
 
 //Provides: caml_array_concat mutable
@@ -107,30 +93,19 @@ function caml_check_bound(array, index) {
 //Requires: caml_array_bound_error
 function caml_make_vect(len, init) {
   if (len < 0) caml_array_bound_error();
-  const len_ = (len + 1) | 0;
-  const b = new Array(len_);
-  b[0] = 0;
-  for (let i = 1; i < len_; i++) b[i] = init;
-  return b;
+  return [0, ...new Array(len | 0).fill(init)];
 }
 
 //Provides: caml_make_float_vect const (const)
 //Requires: caml_array_bound_error
 function caml_make_float_vect(len) {
   if (len < 0) caml_array_bound_error();
-  const len_ = (len + 1) | 0;
-  const b = new Array(len);
-  b[0] = 254;
-  for (let i = 1; i < len_; i++) b[i] = 0;
-  return b;
+  return [254, ...new Array(len).fill(0)];
 }
+
 //Provides: caml_floatarray_create const (const)
 //Requires: caml_array_bound_error
 function caml_floatarray_create(len) {
   if (len < 0) caml_array_bound_error();
-  const len_ = (len + 1) | 0;
-  const b = new Array(len);
-  b[0] = 254;
-  for (let i = 1; i < len_; i++) b[i] = 0;
-  return b;
+  return [254, ...new Array(len).fill(0)];
 }

runtime/bigarray.js

@@ -37,7 +37,7 @@ function caml_ba_get_size(dims) {
   for (let i = 0; i < n_dims; i++) {
     if (dims[i] < 0)
       caml_invalid_argument("Bigarray.create: negative dimension");
-    size = size * dims[i];
+    size *= dims[i];
   }
   return size;
 }
@@ -539,12 +539,12 @@ function caml_ba_sub(ba, ofs, len) {
   let changed_dim;
   let mul = 1;
   if (ba.layout === 0) {
-    for (let i = 1; i < ba.dims.length; i++) mul = mul * ba.dims[i];
+    for (let i = 1; i < ba.dims.length; i++) mul *= ba.dims[i];
     changed_dim = 0;
   } else {
-    for (let i = 0; i < ba.dims.length - 1; i++) mul = mul * ba.dims[i];
+    for (let i = 0; i < ba.dims.length - 1; i++) mul *= ba.dims[i];
     changed_dim = ba.dims.length - 1;
-    ofs = ofs - 1;
+    ofs -= 1;
   }
   if (ofs < 0 || len < 0 || ofs + len > ba.dims[changed_dim]) {
     caml_invalid_argument("Bigarray.sub: bad sub-array");
@@ -606,7 +606,7 @@ function caml_ba_reshape(ba, vind) {
     new_dim[i] = vind[i];
     if (new_dim[i] < 0)
       caml_invalid_argument("Bigarray.reshape: negative dimension");
-    num_elts = num_elts * new_dim[i];
+    num_elts *= new_dim[i];
   }
 
   const size = caml_ba_get_size(ba.dims);

runtime/bigstring.js

@@ -49,9 +49,9 @@ function caml_bigstring_memcmp(s1, pos1, s2, pos2, len) {
 //Provides: caml_bigstring_blit_ba_to_ba
 //Requires: caml_invalid_argument, caml_array_bound_error
 function caml_bigstring_blit_ba_to_ba(ba1, pos1, ba2, pos2, len) {
-  if (12 !== ba1.kind)
+  if (ba1.kind !== 12)
     caml_invalid_argument("caml_bigstring_blit_ba_to_ba: kind mismatch");
-  if (12 !== ba2.kind)
+  if (ba2.kind !== 12)
     caml_invalid_argument("caml_bigstring_blit_ba_to_ba: kind mismatch");
   if (len === 0) return 0;
   const ofs1 = ba1.offset(pos1);
@@ -71,7 +71,7 @@ function caml_bigstring_blit_ba_to_ba(ba1, pos1, ba2, pos2, len) {
 //Requires: caml_invalid_argument, caml_array_bound_error, caml_uint8_array_of_string
 //Requires: caml_ml_string_length
 function caml_bigstring_blit_string_to_ba(str1, pos1, ba2, pos2, len) {
-  if (12 !== ba2.kind)
+  if (ba2.kind !== 12)
     caml_invalid_argument("caml_bigstring_blit_string_to_ba: kind mismatch");
   if (len === 0) return 0;
   const ofs2 = ba2.offset(pos2);
@@ -90,7 +90,7 @@ function caml_bigstring_blit_string_to_ba(str1, pos1, ba2, pos2, len) {
 //Requires: caml_invalid_argument, caml_array_bound_error, caml_uint8_array_of_bytes
 //Requires: caml_ml_bytes_length
 function caml_bigstring_blit_bytes_to_ba(str1, pos1, ba2, pos2, len) {
-  if (12 !== ba2.kind)
+  if (ba2.kind !== 12)
     caml_invalid_argument("caml_bigstring_blit_string_to_ba: kind mismatch");
   if (len === 0) return 0;
   const ofs2 = ba2.offset(pos2);
@@ -110,7 +110,7 @@ function caml_bigstring_blit_bytes_to_ba(str1, pos1, ba2, pos2, len) {
 //Requires: caml_blit_bytes, caml_bytes_of_array
 //Requires: caml_ml_bytes_length
 function caml_bigstring_blit_ba_to_bytes(ba1, pos1, bytes2, pos2, len) {
-  if (12 !== ba1.kind)
+  if (ba1.kind !== 12)
     caml_invalid_argument("caml_bigstring_blit_string_to_ba: kind mismatch");
   if (len === 0) return 0;
   const ofs1 = ba1.offset(pos1);

runtime/blake2.js

@@ -120,8 +120,8 @@ const blake2b = (() => {
     }
 
     // low 64 bits of offset
-    v[24] = v[24] ^ ctx.t;
-    v[25] = v[25] ^ (ctx.t / 0x100000000);
+    v[24] ^= ctx.t;
+    v[25] ^= ctx.t / 0x100000000;
     // high 64 bits not supported, offset may not be higher than 2**53-1
 
     // last block flag set ?

runtime/fail.js

@@ -31,7 +31,7 @@ function caml_raise_with_arg(tag, arg) {
 //Provides: caml_raise_with_args (const, mutable)
 //Requires: caml_maybe_attach_backtrace
 function caml_raise_with_args(tag, args) {
-  throw caml_maybe_attach_backtrace([0, tag].concat(args));
+  throw caml_maybe_attach_backtrace([0, tag, ...args]);
 }
 
 //Provides: caml_raise_with_string (const, const)

runtime/graphics.js

@@ -452,7 +452,9 @@ function caml_gr_dump_image(im) {
 //Requires: caml_gr_state_get
 function caml_gr_draw_image(im, x, y) {
   const s = caml_gr_state_get();
-  if (!im.image) {
+  if (im.image) {
+    s.context.drawImage(im.image, x, s.height - im.height - y);
+  } else {
     const canvas = document.createElement("canvas");
     canvas.width = s.width;
     canvas.height = s.height;
@@ -463,8 +465,6 @@ function caml_gr_draw_image(im, x, y) {
       im.image = image;
     };
     image.src = canvas.toDataURL("image/png");
-  } else {
-    s.context.drawImage(im.image, x, s.height - im.height - y);
   }
   return 0;
 }

runtime/ieee_754.js

@@ -518,10 +518,7 @@ function caml_format_float(fmt, x) {
   if (Number.isNaN(x)) {
     s = "nan";
     f.filler = " ";
-  } else if (!Number.isFinite(x)) {
-    s = "inf";
-    f.filler = " ";
-  } else
+  } else if (Number.isFinite(x))
     switch (f.conv) {
       case "e": {
         s = x.toExponential(prec);
@@ -565,6 +562,10 @@ function caml_format_float(fmt, x) {
         break;
       }
     }
+  else {
+    s = "inf";
+    f.filler = " ";
+  }
   return caml_finish_formatting(f, s);
 }
 

runtime/int64.js

@@ -96,7 +96,7 @@ MlInt64.prototype.xor = function (x) {
   return new MlInt64(this.lo ^ x.lo, this.mi ^ x.mi, this.hi ^ x.hi);
 };
 MlInt64.prototype.shift_left = function (s) {
-  s = s & 63;
+  s &= 63;
   if (s === 0) return this;
   if (s < 24) {
     return new MlInt64(
@@ -114,7 +114,7 @@ MlInt64.prototype.shift_left = function (s) {
   return new MlInt64(0, 0, this.lo << (s - 48));
 };
 MlInt64.prototype.shift_right_unsigned = function (s) {
-  s = s & 63;
+  s &= 63;
   if (s === 0) return this;
   if (s < 24)
     return new MlInt64(
@@ -131,7 +131,7 @@ MlInt64.prototype.shift_right_unsigned = function (s) {
   return new MlInt64(this.hi >> (s - 48), 0, 0);
 };
 MlInt64.prototype.shift_right = function (s) {
-  s = s & 63;
+  s &= 63;
   if (s === 0) return this;
   const h = (this.hi << 16) >> 16;
   if (s < 24)
@@ -157,7 +157,7 @@ MlInt64.prototype.lsl1 = function () {
 MlInt64.prototype.lsr1 = function () {
   this.lo = ((this.lo >>> 1) | (this.mi << 23)) & 0xffffff;
   this.mi = ((this.mi >>> 1) | (this.hi << 23)) & 0xffffff;
-  this.hi = this.hi >>> 1;
+  this.hi >>>= 1;
 };
 MlInt64.prototype.udivmod = function (x) {
   let offset = 0;

runtime/ints.js

@@ -121,7 +121,7 @@ function caml_int_of_string(s) {
   // For base different from 10, we expect an unsigned representation,
   // hence any value of 'res' (less than 'threshold') is acceptable.
   // But we have to convert the result back to a signed integer.
-  res = sign * res;
+  res *= sign;
   if (signedness && (res | 0) !== res)
     /* Signed representation expected, allow -2^(nbits-1) to 2^(nbits-1) - 1 */
     caml_failwith("int_of_string");