Hello World is possible now

Author: m-ender

mode.rb

@@ -53,7 +53,7 @@ def move
     end
 
     def push val
-        @state.stack << val
+        @state.push val
     end
 
     def pop
@@ -65,24 +65,13 @@ def shift
     end
 
     def unshift val
-        @state.stack.unshift val
+        @state.unshift val
     end
 
     def peek
         raise NotImplementedError
     end
 
-    def read_byte
-        result = nil
-        if @next_byte
-            result = @next_byte
-            @next_byte = nil
-        else
-            result = @in_str.getc
-        end
-        result
-    end
-
 end
 
 class Cardinal < Mode
@@ -116,6 +105,9 @@ class Cardinal < Mode
         '"'  => :string_mode,
         "'"  => :escape,
 
+        'i'  => :input,
+        'o'  => :output,
+
         #'('  => ,
         #')'  => ,
 
@@ -146,6 +138,26 @@ def move
         @state.wrap
     end
 
+    def pop
+        loop do
+            val = @state.pop
+            if val.is_a?(String)
+                found = false
+                val.scan(/-?\d+/) { push $&.to_i; found = true }
+                next if !found
+                val = @state.pop
+            end
+
+            break
+        end
+
+        val || 0
+    end
+
+    def process_string
+        @state.stack += @state.current_string
+    end
+
     def process opcode, cmd
         case opcode
         when :terminate
@@ -155,6 +167,51 @@ def process opcode, cmd
             @state.set_ordinal
         when :wall
             @state.dir = @state.dir.reflect cmd.chr
+        when :move_east
+            @state.dir = East.new
+        when :move_west
+            @state.dir = West.new
+        when :move_south
+            @state.dir = South.new
+        when :move_north
+            @state.dir = North.new
+        when :turn_left
+            @state.dir = @state.dir.left
+        when :turn_right
+            @state.dir = @state.dir.right
+
+        when :mp_left
+            @state.mp -= 1
+        when :mp_right
+            @state.mp += 1
+
+        when :string_mode
+            @state.string_mode = true
+        when :escape
+            move
+            push @state.cell
+
+        when :input
+            char = @state.in_str.getc
+            push(char ? char.ord : -1)
+        when :output
+            @state.out_str << pop.chr
+
+        when :digit
+            push cmd.chr.to_i
+        when :add
+            push(pop + pop)
+        when :sub
+            y = pop
+            push(pop - y)
+        when :mul
+            push(pop * pop)
+        when :div
+            y = pop
+            push(pop / y)
+        when :mod
+            y = pop
+            push(pop % y)
         end
     end
 end
@@ -175,17 +232,20 @@ class Ordinal < Mode
         ':'  => :split,
         '%'  => :mod,
 
-        '<'  => :rotate_west,
-        '>'  => :rotate_east,
-        '^'  => :rotate_north,
-        'v'  => :rotate_south,
+        '<'  => :ensure_west,
+        '>'  => :ensure_east,
+        '^'  => :ensure_north,
+        'v'  => :ensure_south,
 
         '{'  => :strafe_left,
         '}'  => :strafe_right,
 
         '"'  => :string_mode,
         "'"  => :escape,
 
+        'i'  => :input,
+        'o'  => :output,
+
         #'('  => ,
         #')'  => ,
 
@@ -226,6 +286,17 @@ def move
         @state.ip += @state.dir.vec
     end
 
+    def pop
+        val = @state.pop
+
+        val ? val.to_s : ''
+    end
+
+    def process_string
+        # Will throw an error when cell isn't a valid code point
+        push @state.current_string.map(&:chr)*''
+    end
+
     def process opcode, cmd
         case opcode
         when :terminate
@@ -235,6 +306,31 @@ def process opcode, cmd
             @state.set_cardinal
         when :wall
             @state.dir = @state.dir.reflect cmd.chr
+        when :ensure_west
+            @state.dir = @state.dir.reflect cmd.chr if @state.dir.x > 0
+        when :ensure_east
+            @state.dir = @state.dir.reflect cmd.chr if @state.dir.x < 0
+        when :ensure_north
+            @state.dir = @state.dir.reflect cmd.chr if @state.dir.y > 0
+        when :ensure_south
+            @state.dir = @state.dir.reflect cmd.chr if @state.dir.y < 0
+        when :strafe_left
+            @state.ip += (@state.dir.reverse + @state.dir.left) / 2
+        when :strafe_right
+            @state.ip += (@state.dir.reverse + @state.dir.right) / 2
+        when :string_mode
+            @state.string_mode = true
+        when :escape
+            move
+            push @state.cell.chr # Will throw an error when cell isn't a valid code point
+
+        when :digit
+            push(pop + cmd.chr)
+        when :input
+            line = @state.in_str.gets
+            push(line ? line.chomp : '')
+        when :output
+            @state.out_str << pop
         end
     end
 end

point2d.rb

@@ -23,6 +23,18 @@ def -(other)
         end
     end
 
+    def *(other)
+        if other.is_a?(Numeric)
+            return Point2D.new(@x*other, @y*other)
+        end
+    end
+
+    def /(other)
+        if other.is_a?(Numeric)
+            return Point2D.new(@x/other, @y/other)
+        end
+    end
+
     def coerce(other)
         return self, other
     end

state.rb

@@ -76,6 +76,22 @@ def set_ordinal
         @mode = @ordinal
     end
 
+    def push val
+        @stack << val
+    end
+
+    def pop
+        @stack.pop
+    end
+
+    def shift
+        @stack.shift
+    end
+
+    def unshift val
+        @stack.unshift val
+    end
+
     private
 
     def parse(src)