~tim/scheme-vm

ref: d947890410d3f5830161c11c89fdcb49aca9c10c scheme-vm/vm/int.rb -rw-r--r-- 577 bytes
d9478904Tim Morgan Fix ruby-version file 6 years ago
                                                                                
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
class VM
  class Int
    include Comparable

    MIN = 2**63 * -1
    MAX = 2**63 - 1

    def initialize(num)
      @num = num.to_i
      fail 'integer out of range' if @num < MIN || @num > MAX
    end

    def raw
      @num
    end

    def ==(other)
      return false unless other.is_a?(Int)
      raw == other.raw
    end

    def +(other)
      Int.new(raw + other.raw)
    end

    def -(other)
      Int.new(raw - other.raw)
    end

    def to_s
      raw.to_s
    end

    def to_ruby
      @num
    end

    def <=>(other)
      raw <=> other.raw
    end
  end
end