whitespace-ruby 1.0.0

data/examples/name.ws

@@ -0,0 +1,135 @@
+Ask the user for their
+name. Then say hello.	 	    
+		    	
+   		 		  
+		    	 
+   		  	 	
+		    		
+   		    	
+		    	  
+   			  		
+		    	 	
+   		  	 	
+		    		 
+   	     
+		    			
+   		  	 	
+		    	   
+   		 			 
+		    	  	
+   			 	  
+		    	 	 
+   		  	 	
+		    	 		
+   			  	 
+		    		  
+   	     
+		    		 	
+   				  	
+		    			 
+   		 				
+		    				
+   			 	 	
+		    	    
+   			  	 
+		    	   	
+   	     
+		    	  	 
+   		 			 
+		    	  		
+   		    	
+		    	 	  
+   		 		 	
+		    	 	 	
+   		  	 	
+		    	 		 
+   			 	 
+		    	 			
+   	     
+		    		   
+    
+		    				 
+   	  	   
+		    					
+   		  	 	
+		    	     
+   		 		  
+		    	    	
+   		 		  
+		    	   	 
+   		 				
+		    	   		
+   	     
+		    	  	  
+    
+		     
+
+ 	 			 			 			  	  		 	  	 			 	   		  	 	
+   		  	  
+
+ 	 			  	  		  	 	 		    	 		  	  
+   				 
+
+ 	 			 			 			  	  		 	  	 			 	   		  	 	
+   		  	  
+
+ 	 			 			 			  	  		 	  	 			 	   		  	 	
+
+ 	 		 			  		  	 	 			 			 		 		   		 	  	 		 			  		  	 	
+
+
+
+
+   		    	 		  	   		  	  
+	   
+	
+
+   			 			 			  	  		 	  	 			 	   		  	 	
+ 
+ 			 
+ 
+	  			 			 			  	  		 	  	 			 	   		  	 	 	 					 		  	 	 		 			  		  	  
+	
+     	
+	   
+ 
+ 			 			 			  	  		 	  	 			 	   		  	 	
+
+   			 			 			  	  		 	  	 			 	   		  	 	 	 					 		  	 	 		 			  		  	  
+ 
+
+ 
+
+
+	
+
+   			  	  		  	 	 		    	 		  	  
+ 
+  
+ 	
+	 			 
+    	 	 
+	  	
+	  			  	  		  	 	 		    	 		  	   	 					 		  	 	 		 			  		  	  
+ 
+
+   	
+	   
+ 
+ 			  	  		  	 	 		    	 		  	  
+
+   			  	  		  	 	 		    	 		  	   	 					 		  	 	 		 			  		  	  
+ 
+
+   	
+	       
+		 
+	
+
+   		 			  		  	 	 			 			 		 		   		 	  	 		 			  		  	 	
+   	 	 
+   		 	
+	
+  	
+  
+	

data/lib/whitespace.rb

@@ -0,0 +1,14 @@
+module Whitespace
+  class Error < StandardError; end
+  class EmptyError < Error; end
+  class AddressError < Error; end
+  class LabelError < Error; end
+  class Halt < Error; end
+  class ParseError < Error; end
+end
+
+require_relative "whitespace/version"
+require_relative "whitespace/util"
+require_relative "whitespace/vm"
+require_relative "whitespace/isa"
+require_relative "whitespace/parser"

data/lib/whitespace/data_structures/console.rb

@@ -0,0 +1,56 @@
+module Whitespace
+  class Console
+    attr_reader :stdin, :stdout
+
+    def initialize(stdin: $stdin, stdout: $stdout)
+      @stdin = stdin
+      @stdout = stdout
+    end
+
+    def printc(n)
+      unless Util.is_ascii?(n)
+        raise ArgumentError, "must be an ASCII character: #{n}"
+      end
+      stdout.print n.chr
+    end
+
+    def printn(n)
+      unless Util.is_integer?(n)
+        raise ArgumentError, "must be an integer: #{n}"
+      end
+      stdout.print n
+    end
+
+    def getc
+      if c = stdin.getc
+        unless Util.is_ascii?(c.ord)
+          raise ArgumentError, "must be an ASCII character: #{c}"
+        end
+        c
+      else
+        raise ArgumentError, "must be an ASCII character: EOF"
+      end
+    end
+
+    LINE_SEPARATOR = "\n"
+
+    def getn
+      input = ""
+      loop do
+        c = stdin.getc
+        break if c.nil?
+        input << c
+        break if c == LINE_SEPARATOR
+      end
+
+      raise ArgumentError, "must be an integer: EOF" if input.empty?
+
+      input = input.chomp(LINE_SEPARATOR)
+      begin
+        Integer input
+      rescue
+        raise ArgumentError, "must be an integer: #{input}"
+      end
+    end
+  end
+end

data/lib/whitespace/data_structures/counter.rb

@@ -0,0 +1,24 @@
+module Whitespace
+  class Counter
+    def initialize
+      @value = 0
+    end
+
+    def increment
+      @value += 1
+    end
+
+    def change_to(new_value)
+      new_value = new_value.to_i
+      if new_value >= 0
+        @value = new_value
+      else
+        raise ArgumentError, "must be non-negative: #{new_value}"
+      end
+    end
+
+    def to_int
+      @value
+    end
+  end
+end

data/lib/whitespace/data_structures/memory.rb

@@ -0,0 +1,19 @@
+module Whitespace
+  class Memory
+    def initialize
+      @store = {}
+    end
+
+    def [](address)
+      if @store.key?(address)
+        @store[address]
+      else
+        raise AddressError, "no such address exists: #{address}"
+      end
+    end
+
+    def []=(address, value)
+      @store[address] = value
+    end
+  end
+end

data/lib/whitespace/data_structures/stack.rb

@@ -0,0 +1,25 @@
+module Whitespace
+  class Stack
+    def initialize
+      @elements = []
+    end
+
+    def push(x)
+      @elements.push x
+    end
+
+    def pop
+      return @elements.pop unless @elements.empty?
+      raise EmptyError
+    end
+
+    def top
+      return @elements.last unless @elements.empty?
+      raise EmptyError
+    end
+
+    def size
+      @elements.size
+    end
+  end
+end

data/lib/whitespace/instructions/arithmetic/add.rb

@@ -0,0 +1,9 @@
+require_relative "binop"
+
+module Whitespace::ISA
+  class Add < Binop
+    def initialize(vm)
+      super(vm, :add)
+    end
+  end
+end

data/lib/whitespace/instructions/arithmetic/binop.rb

@@ -0,0 +1,18 @@
+module Whitespace::ISA
+  class Binop < Instruction
+    def initialize(vm, op)
+      unless Whitespace::Util.is_binop?(op)
+        raise ArgumentError, "must be a binary operator: #{op}"
+      end
+      super(vm)
+      @op = op
+    end
+
+    def execute
+      right = vm.vstack.pop
+      left = vm.vstack.pop
+
+      vm.vstack.push Whitespace::Util::BINOPS[@op].call(left, right)
+    end
+  end
+end

data/lib/whitespace/instructions/arithmetic/div.rb

@@ -0,0 +1,9 @@
+require_relative "binop"
+
+module Whitespace::ISA
+  class Div < Binop
+    def initialize(vm)
+      super(vm, :div)
+    end
+  end
+end

data/lib/whitespace/instructions/arithmetic/mod.rb

@@ -0,0 +1,9 @@
+require_relative "binop"
+
+module Whitespace::ISA
+  class Mod < Binop
+    def initialize(vm)
+      super(vm, :mod)
+    end
+  end
+end

data/lib/whitespace/instructions/arithmetic/mul.rb

@@ -0,0 +1,9 @@
+require_relative "binop"
+
+module Whitespace::ISA
+  class Mul < Binop
+    def initialize(vm)
+      super(vm, :mul)
+    end
+  end
+end

data/lib/whitespace/instructions/arithmetic/sub.rb

@@ -0,0 +1,9 @@
+require_relative "binop"
+
+module Whitespace::ISA
+  class Sub < Binop
+    def initialize(vm)
+      super(vm, :sub)
+    end
+  end
+end

data/lib/whitespace/instructions/flow_control/call.rb

@@ -0,0 +1,19 @@
+module Whitespace::ISA
+  class Call < Instruction
+    attr_reader :name
+
+    def initialize(vm, name)
+      unless Whitespace::Util.is_label?(name)
+        raise ArgumentError, "must be a label: #{name}"
+      end
+      super(vm)
+      @name = name
+    end
+
+    def execute
+      index = Whitespace::Util.find_label(vm.instructions, name)
+      vm.cstack.push vm.pc.to_int
+      vm.pc.change_to index + 1
+    end
+  end
+end

data/lib/whitespace/instructions/flow_control/end.rb

@@ -0,0 +1,7 @@
+module Whitespace::ISA
+  class End < Instruction
+    def execute
+      raise Whitespace::Halt
+    end
+  end
+end

data/lib/whitespace/instructions/flow_control/label.rb

@@ -0,0 +1,16 @@
+module Whitespace::ISA
+  class Label < Instruction
+    attr_reader :name
+
+    def initialize(vm, name)
+      unless Whitespace::Util.is_label?(name)
+        raise ArgumentError, "must be a label: #{name}"
+      end
+      super(vm)
+      @name = name
+    end
+
+    def execute
+    end
+  end
+end

data/lib/whitespace/instructions/flow_control/njmp.rb

@@ -0,0 +1,20 @@
+module Whitespace::ISA
+  class Njmp < Instruction
+    attr_reader :name
+
+    def initialize(vm, name)
+      unless Whitespace::Util.is_label?(name)
+        raise ArgumentError, "must be a label: #{name}"
+      end
+      super(vm)
+      @name = name
+    end
+
+    def execute
+      if vm.vstack.pop < 0
+        index = Whitespace::Util.find_label(vm.instructions, name)
+        vm.pc.change_to index + 1
+      end
+    end
+  end
+end

data/lib/whitespace/instructions/flow_control/return.rb

@@ -0,0 +1,7 @@
+module Whitespace::ISA
+  class Return < Instruction
+    def execute
+      vm.pc.change_to vm.cstack.pop
+    end
+  end
+end

data/lib/whitespace/instructions/flow_control/ujmp.rb

@@ -0,0 +1,18 @@
+module Whitespace::ISA
+  class Ujmp < Instruction
+    attr_reader :name
+
+    def initialize(vm, name)
+      unless Whitespace::Util.is_label?(name)
+        raise ArgumentError, "must be a label: #{name}"
+      end
+      super(vm)
+      @name = name
+    end
+
+    def execute
+      index = Whitespace::Util.find_label(vm.instructions, name)
+      vm.pc.change_to index + 1
+    end
+  end
+end