carban 0.0.1

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in carban.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2013 patrick
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,26 @@
+# Carban
+
+TODO: A Rubygem that implements the Carban Instruction Set as a Virtual Machine.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'carban'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install carban
+
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/carban.gemspec

@@ -0,0 +1,19 @@
+# -*- encoding: utf-8 -*-
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'carban/version'
+
+Gem::Specification.new do |gem|
+  gem.name          = "carban"
+  gem.version       = Carban::VERSION
+  gem.authors       = ["patrick"]
+  gem.email         = ["patrick@patrickjones.ca"]
+  gem.description   = %q{A Virtual Machine implemented as Abstract Stack Machine and Abstract Register Machine}
+  gem.summary       = %q{Virtual Machine implementations of the Carban Instruction Set}
+  gem.homepage      = ""
+
+  gem.files         = `git ls-files`.split($/)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.require_paths = ["lib"]
+end

data/lib/carban/instruction_set.rb

@@ -0,0 +1,230 @@
+module Carban
+  module InstructionSet
+    include OpCodes
+  
+    def self.load
+      compiled_set = {}
+      OpCodes.constants.each do |code|
+        numerical = OpCodes.const_get code
+        compiled_set[numerical] = send(code.to_s.downcase.to_sym)
+      end
+      return compiled_set
+    end
+    
+    def self.add
+      Proc.new do |vm|
+        left = 	@data_stack.pop
+        right = 	@data_stack.pop
+        @data_stack.push(left + right)
+        @ip += 1
+      end
+    end
+    
+    def self.sub
+      Proc.new do |vm|
+        right = 	@data_stack.pop
+        left = 	@data_stack.pop
+        @data_stack.push (left - right)
+        @ip += 1
+      end
+    end
+    
+    def self.mul
+      Proc.new do |vm|
+        left = 	@data_stack.pop
+        right = 	@data_stack.pop
+        @data_stack.push left * right
+        @ip += 1
+      end
+    end
+    
+    def self.div
+      Proc.new do |vm|
+        left = 	@data_stack.pop
+        right = 	@data_stack.pop
+        @data_stack.push left / right
+        @ip += 1
+      end
+    end
+    
+    def self.pop
+      Proc.new do |vm|
+        ret =  @data_stack.pop
+        @ip += 1
+        ret
+      end
+    end
+    
+    def self.push
+      Proc.new do |vm|
+        operand =  @opcodes[@ip + 1]
+        @data_stack.push operand
+        @ip += 2
+      end
+    end
+    
+    def self.equal
+      Proc.new do |vm|
+        left 	= @data_stack.pop
+        right 	= @data_stack.pop
+        result = left == right
+        @data_stack.push (result).to_s.upcase.to_sym
+        @ip += 1
+      end
+    end
+    
+    def self.greater_than
+      Proc.new do |vm|
+        left 	= @data_stack.pop
+        right 	= @data_stack.pop
+        result = left > right
+        @data_stack.push (result).to_s.upcase.to_sym
+        @ip += 1
+      end
+    end
+  
+    def self.less_than
+      Proc.new do |vm|
+        left 	= @data_stack.pop
+        right 	= @data_stack.pop
+        result = left < right
+        @data_stack.push (result).to_s.upcase.to_sym
+        @ip += 1
+      end
+    end
+    
+    def self.invert
+      Proc.new do |vm|
+        value = @data_stack.pop
+        @data_stack.push (!value).to_s.upcase.to_sym
+        @ip += 1
+      end
+    end
+    
+    def self.exit
+      Proc.new do |vm|
+        @ip = @opcodes.length
+      end
+    end
+    
+    def self.no_op
+      Proc.new do |vm|
+        @ip += 1
+      end
+    end
+    
+    def self.jump
+      Proc.new do |vm|
+        @ip = @data_stack.pop
+      end
+    end
+    
+    def self.jump_if
+      Proc.new do |vm|
+        dest = 	@data_stack.pop
+        left = 	@data_stack.pop
+        right = 	@data_stack.pop
+        left == right ? @ip = dest : @ip += 1
+      end
+    end  
+  
+    def self.jump_unless
+      Proc.new do |vm|
+        dest = 	@data_stack.pop
+        left = 	@data_stack.pop
+        right = 	@data_stack.pop
+        left != right ? @ip = dest : @ip += 1
+      end
+    end  
+    
+    def self.to_string
+      Proc.new do |vm|
+        value = @data_stack.pop
+        @data_stack.push value.to_s
+        @ip += 1
+      end
+    end
+    
+    def self.put_string
+      Proc.new do |vm|
+        operand = @opcodes[@ip + 1]
+        @data_stack.push operand
+        @ip += 2
+        end
+    end
+    
+    def self.dup
+      Proc.new do |vm|
+        @data_stack.push @data_stack.first
+        @ip += 1
+      end
+    end
+    
+    def self.swap
+      Proc.new do |vm|
+        left 	= 	@data_stack.pop
+        right =	@data_stack.pop
+        [left, right].each { |a| @data_stack.push a }
+        @ip += 1
+      end
+    end
+    
+    def self.over
+      Proc.new do |vm|
+        left 	= @data_stack.pop
+        right = @data_stack.pop
+        [left, right, left].each { |a| @data_stack.push a }
+        @ip += 1
+      end
+    end
+    
+    def self.rot
+      Proc.new do |vm|
+        one 	= @data_stack.pop
+        two	= @data_stack.pop
+        three	= @data_stack.pop
+        [two, three, one].each { |a| @data_stack.push a }
+        @ip += 1
+      end
+    end
+  
+    def self.print
+      Proc.new do |vm|
+        puts @data_stack.pop
+      end
+    end
+  
+    def self.store_global
+      Proc.new do |vm|
+        name = @opcodes[@ip + 1]
+        val = @opcodes[@ip + 2]
+        @globals[name] = val
+        @ip += 3
+      end
+    end
+  
+  
+    def self.store_local
+      Proc.new do |vm|
+        name = @opcodes[@ip + 1]
+        val = @opcodes[@ip + 2]
+        @locals[name] = val
+        @ip += 3
+      end
+    end
+  
+    def self.code_call
+      Proc.new do |vm|
+        @call_stack.push(@ip)
+        @ip = @opcodes[@ip + 1]
+      end
+    end
+  
+    def self.code_return
+      Proc.new do |vm|
+        @ip = @call_stack.pop
+        @ip += 1
+      end
+    end
+  end
+end

data/lib/carban/op_codes.rb

@@ -0,0 +1,40 @@
+module Carban
+  module OpCodes
+  
+  	ADD  		= 00
+  	SUB 		= 01
+  	MUL		= 02
+  	DIV 		= 03
+  	
+  	POP		= 14
+  	PUSH		= 15
+  	
+  	EQUAL		= 26
+  	GREATER_THAN	= 27
+  	LESS_THAN	= 28
+  	INVERT		= 29
+  	
+  	EXIT		= 40
+  	NO_OP		= 41
+  	
+  	JUMP		= 50
+  	JUMP_IF		= 51
+  	JUMP_UNLESS	= 52
+  	
+  	PUT_STRING	= 60
+  	TO_STRING	= 61
+  	
+  	DUP		= 70
+  	SWAP		= 71
+  	OVER		= 72
+  	ROT		= 73
+    
+    	PRINT           = 80
+  
+    	STORE_GLOBAL    = 90
+    	STORE_LOCAL     = 100
+  
+    	CODE_CALL       = 110
+    	CODE_RETURN     = 111
+  end
+end

data/lib/carban/stack_machine.rb

@@ -0,0 +1,47 @@
+
+module Carban
+  class StackMachine
+    attr_accessor :opcodes, :call_stack, :data_stack, :instructions, :ip, :globals, :locals
+    extend InstructionSet
+    
+    def initialize
+      @globals = {}
+      @locals = {}
+      @opcodes = []
+      @data_stack = []
+      @call_stack = []
+      @instructions = InstructionSet.load
+      @ip = 0
+    end
+    
+    def run
+      @ip = 0
+      while(@ip < @opcodes.length) do
+        self.instance_eval &@instructions[ @opcodes[@ip] ]
+      end
+    end
+    
+    def dump
+      { 
+  	:opcodes => @opcodes, 
+  	:data_stack => @data_stack, 
+  	:instructions => @instructions, 
+  	:instruction_pointer => @ip 
+      }
+    end
+    
+    def load_program(file)
+      content = File.open(file).read
+      @opcodes = assemble(content) 
+    end
+  
+    def assemble(str)
+      str.split("\n").map do |expr|
+        line = expr.split(", ")
+        keyword_opcode = OpCodes.const_get(line.first.to_sym)
+        line.size > 1 ? [keyword_opcode, line.last.to_i] : keyword_opcode
+      end.flatten
+    end
+    
+  end
+end

data/lib/carban/version.rb

@@ -0,0 +1,3 @@
+module Carban
+  VERSION = "0.0.1"
+end

data/lib/carban.rb

@@ -0,0 +1,8 @@
+require "carban/version"
+require "carban/op_codes"
+require "carban/instruction_set"
+require "carban/stack_machine"
+
+module Carban
+  
+end

metadata

@@ -0,0 +1,57 @@
+--- !ruby/object:Gem::Specification
+name: carban
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- patrick
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-02-13 00:00:00.000000000 Z
+dependencies: []
+description: A Virtual Machine implemented as Abstract Stack Machine and Abstract
+  Register Machine
+email:
+- patrick@patrickjones.ca
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- carban.gemspec
+- lib/carban.rb
+- lib/carban/instruction_set.rb
+- lib/carban/op_codes.rb
+- lib/carban/stack_machine.rb
+- lib/carban/version.rb
+homepage: ''
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: Virtual Machine implementations of the Carban Instruction Set
+test_files: []