wardite 0.2.0 → 0.2.1

data/lib/wardite/value.rb

@@ -1,39 +1,479 @@
 # rbs_inline: enabled
 
 module Wardite
+  module ValueHelper
+    # @rbs value: Integer
+    # @rbs return: I32
+    def I32(value)
+      if value < 0
+        $stderr.puts "debug: negative i32 value #{value} is passed, convert to unsigned"
+        value = as_u32(value)
+      end
+      I32.new.tap{|i| i.value = value & I32::I32_MAX }
+    end
+
+    # @rbs value: Integer
+    # @rbs return: I64
+    def I64(value)
+      if value < 0
+        $stderr.puts "debug: negative i64 value #{value} is passed, convert to unsigned"
+        value = as_u64(value)
+      end
+      I64.new.tap{|i| i.value = value & I64::I64_MAX }
+    end
+
+    # @rbs value: Float
+    # @rbs return: F32
+    def F32(value)
+      F32.new.tap{|i| i.value = value }
+    end
+
+    # @rbs value: Float
+    # @rbs return: F64
+    def F64(value)
+      F64.new.tap{|i| i.value = value }
+    end
+
+    private
+    # @rbs value: Integer
+    # @rbs return: Integer
+    def as_u32(value)
+      ((-value) ^ I32::I32_MAX) + 1
+    end
+
+    # @rbs value: Integer
+    # @rbs return: Integer
+    def as_u64(value)
+      ((-value) ^ I64::I64_MAX) + 1
+    end
+  end
+
+  extend ValueHelper
+
   class I32
+    include ValueHelper
+
+    I32_MAX = (1<<32) - 1
+    # value should be stored as unsigned Integer, even in I32/I64
+    # when we want to access signed value, it'd be done via #value_s
     attr_accessor :value #: Integer
 
+    # @rbs str: String
+    # @rbs size: Integer|nil
+    # @rbs signed: bool
+    # @rbs return: I32
+    def self.from_bytes(str, size: nil, signed: false)
+      v = case size
+        when nil
+          str.unpack("I!")[0]
+        when 8
+          signed ? str.unpack("c")[0] : str.unpack("C")[0]
+        when 16
+          signed ? str.unpack("s!")[0] : str.unpack("S!")[0]
+        end
+      if !v.is_a?(Integer)
+        raise "broken string or unsupported size: #{str.inspect} -> #{size}"
+      end
+      Wardite::I32(v)
+    end
+
+    # @rbs return: Integer
+    def memsize
+      32
+    end
+
+    # returns a value interpreted as signed integer
+    # @rbs return: Integer
+    def value_s
+      (@value >> 31).zero? ?
+        @value :
+        ((-@value) ^ I32_MAX) + 1
+    end
+
     # TODO: eliminate use of pack, to support mruby - in this file!
+    # @rbs size: Integer|nil
     # @rbs return: String
-    def packed
-      [self.value].pack("I")
+    def packed(size: nil)
+      case size
+      when nil
+        [self.value].pack("I!")
+      when 8
+        [self.value & 0xff].pack("C")
+      when 16
+        [self.value & 0xffff].pack("S!")
+      else
+        raise EvalError, "unsupported size #{size}"
+      end
     end
 
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def wrap(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def extend_s(to:)
+      raise EvalError, "unsupported operation" if to != :i64
+      I64(value_s)
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def extend_u(to:)
+      raise EvalError, "unsupported operation" if to != :i64
+      I64(value)
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def trunc_s(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def trunc_u(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def convert_s(to:)
+      case to
+      when :f32
+        F32(value_s.to_f)
+      when :f64
+        F64(value_s.to_f)
+      else
+        raise EvalError, "unsupported operation"
+      end
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def convert_u(to:)
+      case to
+      when :f32
+        F32(value.to_f)
+      when :f64
+        F64(value.to_f)
+      else
+        raise EvalError, "unsupported operation"
+      end
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def demote(to:)
+      raise EvalError, "unsupported operation"
+
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def promote(to:)
+      raise EvalError, "unsupported operation"
+
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def reinterpret(to:)
+      raise EvalError, "unsupported operation" if to != :f32
+      v = [value].pack("I!").unpack("f")[0]
+      raise EvalError, "[BUG] String#unpack is broke, really?" if !v.is_a?(Float)
+      F32(v)
+    end
+
+    # I32#inspect shows signed value for convinience
     def inspect
-      "I32(#{@value})"
+      "I32(#{value_s})"
     end
   end
 
   class I64
+    include ValueHelper
+
+    I64_MAX = (1<<64) - 1
+
     attr_accessor :value #: Integer
 
+    # @rbs str: String
+    # @rbs size: Integer|nil
+    # @rbs signed: bool
+    # @rbs return: I64
+    def self.from_bytes(str, size: nil, signed: false)
+      v = case size
+        when nil
+          str.unpack("L!")[0]
+        when 8
+          signed ? str.unpack("c")[0] : str.unpack("C")[0]
+        when 16
+          signed ? str.unpack("s!")[0] : str.unpack("S!")[0]
+        when 32
+          signed ? str.unpack("i!")[0] : str.unpack("I!")[0]
+        end
+      if !v.is_a?(Integer)
+        raise "broken string or unsupported size: #{str.inspect} -> #{size}"
+      end
+      Wardite::I64(v)
+    end
+
+    # @rbs return: Integer
+    def memsize
+      64
+    end
+
+    # returns a value interpreted as signed integer
+    # @rbs return: Integer
+    def value_s
+      (@value >> 63).zero? ?
+        @value :
+        ((-@value) ^ I64_MAX) + 1
+    end
+
+    # @rbs size: Integer|nil
     # @rbs return: String
-    def packed
-      [self.value].pack("L")
+    def packed(size: nil)
+      case size
+      when nil
+        [self.value].pack("L!")
+      when 8
+        [self.value & 0xff].pack("C")
+      when 16
+        [self.value & 0xffff].pack("S!")
+      when 32
+        [self.value & 0xffffffff].pack("I!")
+      else
+        raise EvalError, "unsupported size #{size}"
+      end
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def wrap(to:)
+      if to != :i32
+        raise EvalError, "unsupported operation #{to}"
+      end
+      I32(value % (1 << 32))
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def extend_s(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def extend_u(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def trunc_s(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def trunc_u(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def convert_s(to:)
+      case to
+      when :f32
+        F32(value_s.to_f)
+      when :f64
+        F64(value_s.to_f)
+      else
+        raise EvalError, "unsupported operation"
+      end
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def convert_u(to:)
+      case to
+      when :f32
+        F32(value.to_f)
+      when :f64
+        F64(value.to_f)
+      else
+        raise EvalError, "unsupported operation"
+      end
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def demote(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def promote(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def reinterpret(to:)
+      raise EvalError, "unsupported operation" if to != :f64
+      v = [value].pack("L!").unpack("d")[0]
+      raise EvalError, "[BUG] String#unpack is broke, really?" if !v.is_a?(Float)
+      F32(v)
     end
 
+    # I64#inspect shows signed value
     def inspect
       "I64(#{@value})"
     end
   end
 
   class F32
-    attr_accessor :value #: Float    
+    include ValueHelper
+
+    attr_accessor :value #: Float
+
+    # @rbs str: String
+    # @rbs return: F32
+    def self.from_bytes(str)
+      v = str.unpack("e")[0]
+      if !v.is_a?(Float)
+        raise "broken string or unsupported size: #{str.inspect} -> 4"
+      end
+      Wardite::F32(v)
+    end
 
+    # @rbs return: Integer
+    def memsize
+      32
+    end
+
+    # @rbs return: :positive|:negative
+    def sign
+      upper = [0.0].pack("G")[0]&.ord&.<<(7)
+      if !upper
+        raise "[BUG] Array#pack looks broken?"
+      end
+      upper.zero? ? :positive : :negative
+    end
+
+    # @rbs size: Integer|nil
     # @rbs return: String
-    def packed
-      [self.value].pack("f")
+    def packed(size: nil)
+      [self.value].pack("e")
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def wrap(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def extend_s(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def extend_u(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @todo need more testcase...
+    # @see https://webassembly.github.io/spec/core/exec/numerics.html#xref-exec-numerics-op-trunc-s-mathrm-trunc-mathsf-s-m-n-z
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def trunc_s(to:)
+      v = value.to_i
+      case to
+      when :i32
+        if v >= 0
+          I32(v & (I32::I32_MAX >> 1))
+        else
+          v = v & I32::I32_MAX
+          if (v >> 31).zero?
+            raise EvalError, "[undefined behavior] detected overflow: #{value}"
+          end
+          I32(v)
+        end
+      when :i64
+        if v >= 0
+          I64(v & (I64::I64_MAX >> 1))
+        else
+          v = v & I64::I64_MAX
+          if (v >> 31).zero?
+            raise EvalError, "[undefined behavior] detected overflow: #{value}"
+          end
+          I64(v)
+        end
+      else
+        raise EvalError, "unsupported operation to: #{to}"
+      end
+    end
+
+    # @see https://webassembly.github.io/spec/core/exec/numerics.html#xref-exec-numerics-op-trunc-u-mathrm-trunc-mathsf-u-m-n-z
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def trunc_u(to:)
+      v = value.to_i
+      if v < 0
+        raise EvalError, "[undefined behavior] unexpected negative value"
+      end
+      case to
+      when :i32
+        v = v & I32::I32_MAX
+        I32(v)
+      when :i64
+        v = v & I64::I64_MAX
+        I64(v)
+      else
+        raise EvalError, "unsupported operation to: #{to}"
+      end
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def convert_s(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def convert_u(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def demote(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def promote(to:)
+      raise EvalError, "unsupported operation" if to != :f64
+      F64(value)
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def reinterpret(to:)
+      raise EvalError, "unsupported operation" if to != :i32
+      v = [value].pack("f").unpack("I!")[0]
+      raise EvalError, "[BUG] String#unpack is broke, really?" if !v.is_a?(Integer)
+      I32(v)
     end
 
     def inspect
@@ -42,41 +482,146 @@ module Wardite
   end
 
   class F64
-    attr_accessor :value #: Float    
+    include ValueHelper
+
+    attr_accessor :value #: Float
 
+    # @rbs str: String
+    # @rbs return: F64
+    def self.from_bytes(str)
+      v = str.unpack("E")[0]
+      if !v.is_a?(Float)
+        raise "broken string or unsupported size: #{str.inspect} -> 8"
+      end
+      Wardite::F64(v)
+    end
+
+    # @rbs return: Integer
+    def memsize
+      64
+    end
+
+    # @rbs return: :positive|:negative
+    def sign
+      upper = [0.0].pack("G")[0]&.ord&.<<(7)
+      if !upper
+        raise "[BUG] Array#pack looks broken?"
+      end
+      upper.zero? ? :positive : :negative
+    end
+
+    # @rbs size: Integer|nil
     # @rbs return: String
-    def packed
-      [self.value].pack("d")
+    def packed(size: nil)
+      [self.value].pack("E")
     end
 
-    def inspect
-      "F64(#{@value})"
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def wrap(to:)
+      raise EvalError, "unsupported operation"
     end
-  end
 
-  module ValueHelper
-    # @rbs value: Integer
-    # @rbs return: I32
-    def I32(value)
-      I32.new.tap{|i| i.value = value }
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def extend_s(to:)
+      raise EvalError, "unsupported operation"
     end
 
-    # @rbs value: Integer
-    # @rbs return: I64
-    def I64(value)
-      I64.new.tap{|i| i.value = value }
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def extend_u(to:)
+      raise EvalError, "unsupported operation"
     end
 
-    # @rbs value: Float
-    # @rbs return: F32
-    def F32(value)
-      F32.new.tap{|i| i.value = value }
+    # @see the same as F32
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def trunc_s(to:)
+      v = value.to_i
+      case to
+      when :i32
+        if v >= 0
+          I32(v & (I32::I32_MAX >> 1))
+        else
+          v = v & I32::I32_MAX
+          if (v >> 31).zero?
+            raise EvalError, "[undefined behavior] detected overflow: #{value}"
+          end
+          I32(v)
+        end
+      when :i64
+        if v >= 0
+          I64(v & (I64::I64_MAX >> 1))
+        else
+          v = v & I64::I64_MAX
+          if (v >> 31).zero?
+            raise EvalError, "[undefined behavior] detected overflow: #{value}"
+          end
+          I64(v)
+        end
+      else
+        raise EvalError, "unsupported operation to: #{to}"
+      end
     end
 
-    # @rbs value: Float
-    # @rbs return: F64
-    def F64(value)
-      F64.new.tap{|i| i.value = value }
+    # @see the same as F32
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def trunc_u(to:)
+      v = value.to_i
+      if v < 0
+        raise EvalError, "[undefined behavior] unexpected negative value"
+      end
+      case to
+      when :i32
+        v = v & I32::I32_MAX
+        I32(v)
+      when :i64
+        v = v & I64::I64_MAX
+        I64(v)
+      else
+        raise EvalError, "unsupported operation to: #{to}"
+      end
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def convert_s(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def convert_u(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @todo no loss of digits...
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def demote(to:)
+      raise EvalError, "unsupported operation" if to != :f32
+      F32(value)
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def promote(to:)
+      raise EvalError, "unsupported operation"
+    end
+
+    # @rbs to: Symbol
+    # @rbs return: I32|I64|F32|F64
+    def reinterpret(to:)
+      raise EvalError, "unsupported operation" if to != :i64
+      v = [value].pack("d").unpack("L!")[0]
+      raise EvalError, "[BUG] String#unpack is broke, really?" if !v.is_a?(Integer)
+      I64(v)
+    end
+
+    def inspect
+      "F64(#{@value})"
     end
   end
 end

data/lib/wardite/version.rb

@@ -2,5 +2,5 @@
 # rbs_inline: enabled
 
 module Wardite
-  VERSION = "0.2.0" #: String
+  VERSION = "0.2.1" #: String
 end

data/lib/wardite/wasi.rb

@@ -40,7 +40,7 @@ module Wardite
         nwritten += file.write(memory.data[start...(start+slen)])
       end
 
-      memory.data[rp...(rp+4)] = [nwritten].pack("I")
+      memory.data[rp...(rp+4)] = [nwritten].pack("I!")
 
       0
     end