Use more explicit casts in standard library

Author: edubart

Diff for: examples/condots.nelua

@@ -133,9 +133,9 @@ end
 local function blend_pixel(x: integer, y: integer, col: vec4b <const>, opacity: number)
   local pcol = &pixels[SCREEN_HEIGHT - y - 1][x]
   local iopacity = 1-opacity
-  pcol.x = math.floor(pcol.x * iopacity + col.x*opacity)
-  pcol.y = math.floor(pcol.y * iopacity + col.y*opacity)
-  pcol.z = math.floor(pcol.z * iopacity + col.z*opacity)
+  pcol.x = math.ifloor(pcol.x * iopacity + col.x*opacity)
+  pcol.y = math.ifloor(pcol.y * iopacity + col.y*opacity)
+  pcol.z = math.ifloor(pcol.z * iopacity + col.z*opacity)
 end
 
 local function lerp(v0: number, v1: number, t: number): number
@@ -171,10 +171,10 @@ end
 local INTERP_RADIUS <comptime> = 1
 
 local function draw_circle(p: vec2, radius: number)
-  local sx: integer = math.floor(math.max(p.x-radius-INTERP_RADIUS, 0))
-  local ex: integer = math.floor(math.min(p.x+radius+INTERP_RADIUS, SCREEN_WIDTH-1))
-  local sy: integer = math.floor(math.max(p.y-radius-INTERP_RADIUS, 0))
-  local ey: integer = math.floor(math.min(p.y+radius+INTERP_RADIUS, SCREEN_HEIGHT-1))
+  local sx: integer = math.ifloor(math.max(p.x-radius-INTERP_RADIUS, 0))
+  local ex: integer = math.ifloor(math.min(p.x+radius+INTERP_RADIUS, SCREEN_WIDTH-1))
+  local sy: integer = math.ifloor(math.max(p.y-radius-INTERP_RADIUS, 0))
+  local ey: integer = math.ifloor(math.min(p.y+radius+INTERP_RADIUS, SCREEN_HEIGHT-1))
   for iy=sy,ey do
     for ix=sx,ex do
       local d = math.sqrt((ix-p.x)*(ix-p.x) + (iy-p.y)*(iy-p.y))
@@ -200,10 +200,10 @@ local function draw_line(a: vec2, b: vec2, radius: number, opacity: number)
   local sx, sy = delta.x >= 0 and 1 or -1, delta.y >= 0 and 1 or -1
   if math.abs(delta.y) < 1 or math.abs(delta.x) < 1 then return end
   for j=-INTERP_RADIUS-radius,math.abs(delta.x)+radius+INTERP_RADIUS do
-    local ix: integer = math.floor(a.x + j*sx)
+    local ix: integer = math.ifloor(a.x + j*sx)
     if ix >= 0 and ix < SCREEN_WIDTH then
       for i=-INTERP_RADIUS-radius,math.abs(delta.y)+radius+INTERP_RADIUS do
-        local iy: integer = math.floor(a.y + i*sy)
+        local iy: integer = math.ifloor(a.y + i*sy)
         if iy >= 0 and iy < SCREEN_HEIGHT then
           local p = vec2{ix, iy}
           local d = line_dist(a, b, p)

Diff for: examples/fibonacci.nelua

@@ -36,7 +36,7 @@ do -- Analytic solution.
   local function fibonacci(n: integer): integer
     local p = (1.0 + math.sqrt(5.0)) / 2.0
     local q = 1.0 / p
-    return math.floor((p^n + q^n) / math.sqrt(5.0))
+    return (@integer)(math.floor((p^n + q^n) / math.sqrt(5.0)))
   end
   print(fibonacci(10))
 end

Diff for: lib/detail/strpack.nelua

@@ -47,10 +47,10 @@ local function packint(sb: *stringbuilder, a: auto, size: usize, maxalign: usize
   if not sb:writebyte(0, pads) then return false end
   local buff: span(byte) = sb:prepare(size)
   if buff:empty() then return false end
-  buff[islittle and 0 or size - 1] = n & 0xff -- first byte
+  buff[islittle and 0_usize or size - 1] = (@byte)(n & 0xff) -- first byte
   for i: usize=1,<size do
     n = n >> 8
-    buff[islittle and i or size-1-i] = n & 0xff
+    buff[islittle and i or size-1-i] = (@byte)(n & 0xff)
   end
   if size > #@uint64 and neg then -- negative number, need sign extension?
     for i: usize=#@uint64,<size do

Diff for: lib/hash.nelua

@@ -97,7 +97,7 @@ function hash.hash(v: auto): usize <nosideeffect>
     if #v > 0 then -- hash all elements
       h = hash.hash(v[0])
       for i:isize=1,<#v do
-        h = hash.combine(h, v[i])
+        h = hash.combine(h, hash.hash(v[i]))
       end
     end
     return h

Diff for: lib/os.nelua

@@ -684,7 +684,7 @@ function os.sleep(secs: number): boolean
       local function usleep(usec: cuint): cint <cimport,cinclude'@unistd.h'> end
       local us: uint64 <nodce> = (@uint64)(secs * 1000000)
       if us > 0 then
-        ok = usleep(us) == 0
+        ok = usleep((@cuint)(us)) == 0
       else
         ok = true
       end

Diff for: lib/string.nelua

@@ -834,7 +834,7 @@ A third, optional argument specifies where to start the search, its default valu
 ]]
 function string.match(s: string, pattern: string, init: facultative(isize)): (boolean, sequence(string))
   local ok: boolean, seq: sequence(string) = string_match(s, pattern, init)
-  for i: isize = 1, #seq do
+  for i: usize = 1, (@usize)(#seq) do
     seq[i] = string.copy(seq[i])
   end
   return ok, seq

Diff for: lib/stringbuilder.nelua

@@ -257,8 +257,7 @@ end
       end
     ## end if primtypes.clonglong:is_convertible_from(arg1.type) then
       if c == 'd'_b or c == 'i'_b then
-        local lenmod: cstring = 'lli'
-        addlenmod(form, lenmod, #lenmod - 1)
+        addlenmod(form, 'lli', 2)
         local n: clonglong = (@clonglong)(arg1)
         nb = strprintf.snprintf((@cstring)(buf.data), MAX_ITEM, &form[0], n)
         goto next
@@ -267,8 +266,7 @@ end
       if c == 'o'_b or
          c == 'u'_b or
          c == 'x'_b or c == 'X'_b then
-        local lenmod: cstring = 'llu'
-        addlenmod(form, lenmod, #lenmod - 1)
+        addlenmod(form, 'llu', 2)
         ## if arg1.type.is_integral then
         local n: culonglong = (@culonglong)((#[arg1.type:unsigned_type()]#)(arg1))
         ## else
@@ -283,14 +281,12 @@ end
          c == 'e'_b or c == 'E'_b or
          c == 'g'_b or c == 'G'_b then
         ## if arg1.type.is_clongdouble then
-        local lenmod: cstring = 'Lf'
-        addlenmod(form, lenmod, #lenmod - 1)
+        addlenmod(form, 'Lf', 1)
         nb = strprintf.snprintf((@cstring)(buf.data), MAX_ITEM, &form[0], arg1)
         ## elseif arg1.type.is_float128 then
         ## linklib 'quadmath'
         local function quadmath_snprintf(s: cstring, maxlen: csize, format: cstring, ...: cvarargs): cint <cimport,cinclude'<quadmath.h>'> end
-        local lenmod: cstring = 'Qf'
-        addlenmod(form, lenmod, #lenmod - 1)
+        addlenmod(form, 'Qf', 1)
         nb = quadmath_snprintf((@cstring)(buf.data), MAX_ITEM, &form[0], arg1)
         ## else
         local n: float64 = (@float64)(arg1)

Diff for: lib/utf8.nelua

@@ -63,8 +63,8 @@ local function utf8esc(x: uint32): ([8]byte, int32)
     until x <= mfb -- still needs continuation byte?
     buf[8 - n] = (@byte)((~mfb << 1) | x) -- add first byte
   end
-  memory.move(&buf[0], &buf[8-n], n)
-  memory.zero(&buf[n], 8-n)
+  memory.move(&buf[0], &buf[8-n], (@usize)(n))
+  memory.zero(&buf[n], (@usize)(8-n))
   return buf, n
 end