mapleseed 0.1.0

data/.document

@@ -0,0 +1,5 @@
+lib/**/*.rb
+bin/*
+- 
+features/**/*.feature
+LICENSE.txt

data/Gemfile

@@ -0,0 +1,13 @@
+source "http://rubygems.org"
+# Add dependencies required to use your gem here.
+# Example:
+#   gem "activesupport", ">= 2.3.5"
+
+# Add dependencies to develop your gem here.
+# Include everything needed to run rake, tests, features, etc.
+group :development do
+  gem "shoulda", ">= 0"
+  gem "bundler", "~> 1.0.0"
+  gem "jeweler", "~> 1.5.2"
+  gem "rcov", ">= 0"
+end

data/Gemfile.lock

@@ -0,0 +1,20 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    git (1.2.5)
+    jeweler (1.5.2)
+      bundler (~> 1.0.0)
+      git (>= 1.2.5)
+      rake
+    rake (0.8.7)
+    rcov (0.9.9)
+    shoulda (2.11.3)
+
+PLATFORMS
+  x86-mingw32
+
+DEPENDENCIES
+  bundler (~> 1.0.0)
+  jeweler (~> 1.5.2)
+  rcov
+  shoulda

data/README.rdoc

@@ -0,0 +1,38 @@
+= Mapleseed
+
+Mapleseed is a simple {Whirl}[http://www.bigzaphod.org/whirl/] interpreter written in Ruby.
+Yes, I know I've been on a bit of an esoteric language interpreter kick.  They're fun little toys.
+
+== Usage
+
+To install Mapleseed:
+	
+	% gem install mapleseed
+	
+Once Mapleseed is installed, you can use it to interpret your Whirl code.  
+
+You can pass code directly into it, using the -c parameter.
+	
+	% mapleseed -c "011000011110000111111"
+	
+Or, you can specify a file with the -f parameter:
+
+	% mapleseed -f test.wrl
+	
+You can also start an interactive interpreter by running Mapleseed without any parameters
+	
+	% mapleseed
+	
+The list of options is viewable from the command line using the -h parameter.
+
+	% mapleseed -h
+
+== Things That Might Get Done Eventually
+
+* REPL
+* File minimizer (turn whirl code into binary files and vice versa)
+* Unit testing
+
+== History
+
+* 0.1.0 - Initial release.  Allows running code passed in or from a file.

data/Rakefile

@@ -0,0 +1,53 @@
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'rake'
+
+require 'jeweler'
+Jeweler::Tasks.new do |gem|
+  # gem is a Gem::Specification... see http://docs.rubygems.org/read/chapter/20 for more options
+  gem.name = "mapleseed"
+  gem.homepage = "http://github.com/ctoneal/mapleseed"
+  gem.license = "MIT"
+  gem.summary = %Q{A Whirl interpreter in Ruby}
+  gem.description = %Q{A simple Whirl interpreter}
+  gem.email = "ctoneal@gmail.com"
+  gem.authors = ["Chris ONeal"]
+  # Include your dependencies below. Runtime dependencies are required when using your gem,
+  # and development dependencies are only needed for development (ie running rake tasks, tests, etc)
+  #  gem.add_runtime_dependency 'jabber4r', '> 0.1'
+  #  gem.add_development_dependency 'rspec', '> 1.2.3'
+end
+Jeweler::RubygemsDotOrgTasks.new
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+require 'rcov/rcovtask'
+Rcov::RcovTask.new do |test|
+  test.libs << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "mapleseed #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.1.0

data/bin/mapleseed

@@ -0,0 +1,39 @@
+#!/usr/bin/env ruby
+require 'optparse'
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "lib", "mapleseed.rb"))
+
+options = { :mode => :repl }
+op = OptionParser.new do |x|
+	x.banner = "mapleseed <options>"
+	x.separator "\nUsing no options will start the interactive interpreter."
+	x.on("-f <file_path>", String, "Open a given file") do |f|
+		options[:mode] = :file
+		options[:file] = f
+	end
+	x.on("-c <code>", String, "Perform the given code") do |c|
+		options[:mode] = :code
+		options[:code] = c
+	end
+	x.on("-h", "Show this message") do
+		puts op
+		exit
+	end
+end
+begin
+	op.parse!(ARGV)
+rescue
+	puts "Could not parse command line arguments."
+end
+
+ms = Mapleseed::Base.new
+case options[:mode]
+when :repl
+#	puts "Starting interactive interpreter..."
+#	ms.repl
+when :file
+	puts "Running file..."
+	ms.load_file(options[:file])
+when :code
+	puts "Interpreting code..."
+	ms.run(options[:code])
+end

data/lib/mapleseed.rb

@@ -0,0 +1,28 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "mapleseed", "interpreter.rb"))
+
+module Mapleseed
+	# loads and interprets Whirl code
+	class Base
+	
+		# initialize the interpreter
+		def initialize
+			@interpreter = Interpreter.new
+		end
+		
+		# run the given code
+		def run(code)
+			@interpreter.run(code)
+		end
+		
+		# load code from a file and run it
+		def load_file(file_path)
+			code = File.open(file_path) { |f| f.read }
+			run(code)
+		end
+		
+		# interactive read-evaluate-print loop
+		def repl
+			throw "Unimplemented"
+		end
+	end
+end

data/lib/mapleseed/interpreter.rb

@@ -0,0 +1,63 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "memory.rb"))
+require File.expand_path(File.join(File.dirname(__FILE__), "ring.rb"))
+
+module Mapleseed
+	#interprets Whirl code
+	class Interpreter
+		attr_reader :memory
+		attr_accessor :memory_position, :program_position,
+							:input_stream, :output_stream
+		
+		# initializes the interpreter
+		def initialize
+			@memory = Memory.new
+			@input_stream = $stdin
+			@output_stream = $stdout
+			initialize_environment
+		end
+		
+		def initialize_environment
+			@memory.clear
+			@op_ring = OpRing.new(self)
+			@math_ring = MathRing.new(self)
+			@memory_position = 0
+			@program_position = 0
+			@code = ""
+			@execute = false
+			@current_ring = @op_ring
+		end
+		
+		# run a given piece of code
+		def run(code)
+			@code += code.delete "^01"
+			catch :quit do
+				evaluate_code
+			end
+		end
+		
+		# evaluate each instruction in the current code
+		def evaluate_code
+			while ((0 <= @program_position) and (@program_position < @code.length))
+				evaluate_instruction(@code[@program_position])
+			end
+		end
+		
+		# evaluate an individual instruction
+		def evaluate_instruction(instruction)
+			if instruction == "0"
+				@current_ring.switch_direction
+				if @execute
+					@current_ring.execute
+					@current_ring == @op_ring ? @current_ring = @math_ring : @current_ring = @op_ring
+					@execute = false
+				else
+					@execute = true
+				end
+			elsif instruction == "1"
+				@current_ring.rotate
+				@execute = false
+			end
+			@program_position += 1
+		end
+	end
+end

data/lib/mapleseed/memory.rb

@@ -0,0 +1,28 @@
+module Mapleseed
+	# memory for Whirl interpreter
+	class Memory
+	
+		# initialize the memory
+		def initialize
+			clear
+		end
+		
+		# get the value at the given address
+		def get(address)
+			unless @mem.has_key?(address)
+				set(address, 0)
+			end
+			return @mem[address]
+		end
+		
+		# set the given address to a certain value
+		def set(address, value)
+			@mem[address] = value
+		end
+		
+		# clear the memory
+		def clear
+			@mem = {}
+		end
+	end
+end

data/lib/mapleseed/ring.rb

@@ -0,0 +1,212 @@
+module Mapleseed
+	# base class for whirl command rings
+	class Ring
+		
+		# initialize the ring
+		def initialize(interpreter)
+			@position = 0
+			@value = 0
+			@direction = 1
+			@commands = []
+			@interpreter = interpreter
+		end
+
+		# change the direction of the ring
+		def switch_direction
+			@direction *= -1
+		end
+		
+		# rotate the ring in the given direction
+		def rotate
+			@position += @direction
+			if @position == @commands.length
+				@position = 0
+			elsif @position == -1
+				@position = @commands.length - 1
+			end
+		end
+		
+		def execute
+			if @position < @commands.length
+				send @commands[@position]
+			end
+		end
+	end
+	
+	# command ring for whirl operations
+	class OpRing < Ring
+		
+		# initialize commands for operation ring
+		def initialize(interpreter)
+			super(interpreter)
+			@commands = [:noop, :exit, :one, :zero, :load, :store, :p_add, :d_add, :logic, :if, :int_io, :asc_io]
+		end
+		
+		# do nothing
+		def noop
+			#...
+		end
+		
+		# exit the program
+		def exit
+			throw :quit
+		end
+		
+		# set the ring value to 1
+		def one
+			@value = 1
+		end
+		
+		# set the ring value to 0
+		def zero
+			@value = 0
+		end
+		
+		# set the ring value to the current memory value
+		def load
+			@value = @interpreter.memory.get(@interpreter.memory_position)
+		end
+		
+		# set the current value in memory to the ring value
+		def store
+			@interpreter.memory.set(@interpreter.memory_position, @value)
+		end
+		
+		# change location in the program
+		def p_add
+			@interpreter.program_position += @value - 1
+			if @interpreter.program_position < 0
+				@interpreter.program_position = 0
+			end
+		end
+		
+		# change location in memory
+		def d_add
+			@interpreter.memory_position += @value
+		end
+		
+		# logical AND
+		def logic
+			if @interpreter.memory.get(@interpreter.memory_position) != 0 and @value != 0
+				@value = 1
+			else
+				@value = 0
+			end
+		end
+		
+		# if value in memory is not 0, add ring value to program position
+		def if
+			if @interpreter.memory.get(@interpreter.memory_position) != 0
+				p_add
+			end
+		end
+		
+		# if ring value is 0, set memory value to integer input, otherwise
+		# print memory value as an integer
+		def int_io
+			if @value == 0
+				str = @interpreter.input_stream.gets.chomp
+				@interpreter.memory.set(@interpreter.memory_position, str.to_i)
+			else
+				@interpreter.output_stream.print @interpreter.memory.get(@interpreter.memory_position)
+			end
+		end
+		
+		# if ring value is 0, set memory value to character input, otherwise
+		# print memory value as an character
+		def asc_io
+			if @value == 0
+				str = @interpreter.input_stream.getc
+				@interpreter.memory.set(@interpreter.memory_position, str)
+			else
+				@interpreter.output_stream.putc @interpreter.memory.get(@interpreter.memory_position)
+			end
+		end
+	end
+	
+	# command ring for whirl math operations
+	class MathRing < Ring
+		
+		# initialize commands for math ring
+		def initialize(interpreter)
+			super(interpreter)
+			@commands = [:noop, :load, :store, :add, :mult, :div, :zero, :lt, :gt, :equal, :not, :neg]
+		end
+		
+		# do nothing
+		def noop
+			#...
+		end
+		
+		# set the ring value to the current memory value
+		def load
+			@value = @interpreter.memory.get(@interpreter.memory_position)
+		end
+		
+		# set the current value in memory to the ring value
+		def store
+			@interpreter.memory.set(@interpreter.memory_position, @value)
+		end
+		
+		# set ring value += memory value
+		def add
+			@value += @interpreter.memory.get(@interpreter.memory_position)
+		end
+		
+		# set ring value *= memory value
+		def mult
+			@value *= @interpreter.memory.get(@interpreter.memory_position)
+		end
+		
+		# set ring value /= memory value
+		def div
+			@value /= @interpreter.memory.get(@interpreter.memory_position)
+		end
+		
+		# set ring value to 0
+		def zero
+			@value = 0
+		end
+		
+		# if ring value is less than memory value, set value to 1, otherwise 0
+		def lt
+			if @value < @interpreter.memory.get(@interpreter.memory_position) 
+				@value = 1
+			else
+				@value = 0
+			end
+		end
+		
+		# if ring value is greater than memory value, set value to 1, otherwise 0
+		def gt
+			if @value > @interpreter.memory.get(@interpreter.memory_position) 
+				@value = 1
+			else
+				@value = 0
+			end
+		end
+		
+		# if ring value is equal to memory value, set value to 1, otherwise 0
+		def equal
+			if @value == @interpreter.memory.get(@interpreter.memory_position) 
+				@value = 1
+			else
+				@value = 0
+			end
+		end
+		
+		# if ring value is not 0, set value to 1, otherwise 0
+		def not
+			if @value == 0
+				@value = 1
+			else
+				@value = 0
+			end
+		end
+		
+		# inverse ring value
+		def neg
+			@value *= -1
+		end
+	end
+end

data/mapleseed.gemspec

@@ -0,0 +1,67 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in rakefile, and run 'rake gemspec'
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{mapleseed}
+  s.version = "0.1.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Chris ONeal"]
+  s.date = %q{2011-06-09}
+  s.default_executable = %q{mapleseed}
+  s.description = %q{A simple Whirl interpreter}
+  s.email = %q{ctoneal@gmail.com}
+  s.executables = ["mapleseed"]
+  s.extra_rdoc_files = [
+    "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+    "Gemfile",
+    "Gemfile.lock",
+    "README.rdoc",
+    "Rakefile",
+    "VERSION",
+    "bin/mapleseed",
+    "lib/mapleseed.rb",
+    "lib/mapleseed/interpreter.rb",
+    "lib/mapleseed/memory.rb",
+    "lib/mapleseed/ring.rb",
+    "mapleseed.gemspec",
+    "test/helper.rb",
+    "test/test_mapleseed.rb"
+  ]
+  s.homepage = %q{http://github.com/ctoneal/mapleseed}
+  s.licenses = ["MIT"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.6.2}
+  s.summary = %q{A Whirl interpreter in Ruby}
+  s.test_files = [
+    "test/helper.rb",
+    "test/test_mapleseed.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<shoulda>, [">= 0"])
+      s.add_development_dependency(%q<bundler>, ["~> 1.0.0"])
+      s.add_development_dependency(%q<jeweler>, ["~> 1.5.2"])
+      s.add_development_dependency(%q<rcov>, [">= 0"])
+    else
+      s.add_dependency(%q<shoulda>, [">= 0"])
+      s.add_dependency(%q<bundler>, ["~> 1.0.0"])
+      s.add_dependency(%q<jeweler>, ["~> 1.5.2"])
+      s.add_dependency(%q<rcov>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<shoulda>, [">= 0"])
+    s.add_dependency(%q<bundler>, ["~> 1.0.0"])
+    s.add_dependency(%q<jeweler>, ["~> 1.5.2"])
+    s.add_dependency(%q<rcov>, [">= 0"])
+  end
+end
+

data/test/helper.rb

@@ -0,0 +1,18 @@
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'mapleseed'
+
+class Test::Unit::TestCase
+end

data/test/test_mapleseed.rb

@@ -0,0 +1,7 @@
+require 'helper'
+
+class TestMapleseed < Test::Unit::TestCase
+  should "probably rename this file and start testing for real" do
+    flunk "hey buddy, you should probably rename this file and start testing for real"
+  end
+end

metadata

@@ -0,0 +1,112 @@
+--- !ruby/object:Gem::Specification
+name: mapleseed
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Chris ONeal
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2011-06-09 00:00:00.000000000 -05:00
+default_executable: mapleseed
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: shoulda
+  requirement: &7584708 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *7584708
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: &7583712 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.0.0
+  type: :development
+  prerelease: false
+  version_requirements: *7583712
+- !ruby/object:Gem::Dependency
+  name: jeweler
+  requirement: &7579488 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.5.2
+  type: :development
+  prerelease: false
+  version_requirements: *7579488
+- !ruby/object:Gem::Dependency
+  name: rcov
+  requirement: &7578780 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *7578780
+description: A simple Whirl interpreter
+email: ctoneal@gmail.com
+executables:
+- mapleseed
+extensions: []
+extra_rdoc_files:
+- README.rdoc
+files:
+- .document
+- Gemfile
+- Gemfile.lock
+- README.rdoc
+- Rakefile
+- VERSION
+- bin/mapleseed
+- lib/mapleseed.rb
+- lib/mapleseed/interpreter.rb
+- lib/mapleseed/memory.rb
+- lib/mapleseed/ring.rb
+- mapleseed.gemspec
+- test/helper.rb
+- test/test_mapleseed.rb
+has_rdoc: true
+homepage: http://github.com/ctoneal/mapleseed
+licenses:
+- MIT
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: -565126381
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.6.2
+signing_key: 
+specification_version: 3
+summary: A Whirl interpreter in Ruby
+test_files:
+- test/helper.rb
+- test/test_mapleseed.rb