theta 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/LICENSE.txt

@@ -0,0 +1,20 @@
+Copyright (c) 2011 Chris O'Neal
+
+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.rdoc

@@ -0,0 +1,23 @@
+= Theta
+
+Theta is a Lisp interpreter for Ruby.  It was heavily influenced by {lis.py}[http://norvig.com/lispy.html] and {flea}[https://github.com/aarongough/flea].  It was primarily made as a learning exercise.
+
+== How to use
+
+Theta is distributed as a gem, so install by typing:
+
+	% gem install theta
+	
+After installation, simply type theta to get to the interactive interpreter prompt.
+
+	% theta
+	theta> (define a 2)
+	2
+	theta> (+ a 3)
+	5
+	theta> (- 6 a)
+	4
+	
+To exit, simply press enter on a blank line.
+
+It's a little low on features currently, but I'll be adding more eventually!

data/Rakefile

@@ -0,0 +1,55 @@
+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 = "theta"
+  gem.homepage = "http://github.com/ctoneal/theta"
+  gem.license = "MIT"
+  gem.summary = %Q{Theta is a Lisp interpreter in Ruby}
+  gem.description = %Q{Theta was created as a learning project based off of lis.py and flea}
+  gem.email = "ctoneal@gmail.com"
+  gem.authors = ["Chris O'Neal"]
+  gem.executables << 'theta'
+  # 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 = "theta #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

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

data/bin/theta

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "lib", "theta.rb"))
+
+theta = Theta::Base.new
+# if a file was passed in, run it
+# otherwise, enter the repl
+if ARGV.length > 0
+	theta.run(ARGV[1])
+else
+	theta.repl
+end

data/lib/theta/environment.rb

@@ -0,0 +1,30 @@
+module Theta
+	# An environment, stores defined items for a
+	# particular level
+	class Environment
+		def initialize(parent = nil)
+			@parent = parent
+			@table = {}
+			if @parent.nil?
+				define(":#t", true)
+				define(":#f", false)
+			end
+		end
+
+		# find an item in the environment
+		def find(name)
+			if @table.has_key?(name)
+				return @table[name]
+			elsif @parent.nil?
+				return nil
+			else
+				@parent.find(name)
+			end
+		end
+
+		# define an item in the environment
+		def define(name, value)
+			@table[name] = value
+		end
+	end
+end

data/lib/theta/interpreter.rb

@@ -0,0 +1,61 @@
+module Theta
+	# interpret scheme code
+	class Interpreter
+
+		#initialize the environment and the parser
+		def initialize
+			@global_environment = Environment.new
+			@parser = Parser.new
+			load_library
+		end
+
+		# load any predefined library files
+		def load_library
+			library_directory = File.expand_path(File.join(File.dirname(__FILE__), "library"))
+			Dir.foreach(library_directory) do |file|
+				if file != "." && file != ".."
+					f = File.open(File.join(library_directory, file))
+					run(f.read)
+				end
+			end
+		end
+
+		# run a line of code
+		def run(program)
+			expressions = parse(program)
+			return evaluate(expressions)
+		end
+
+		# call the parser to make a string interpretable
+		def parse(string)
+			@parser.parse(string)
+		end
+
+		# call the parser to make something readable
+		def make_readable(value)
+			@parser.to_string(value)
+		end
+
+		# evaluate the scheme expression
+		def evaluate(expression, environment=@global_environment)
+			if expression.is_a? Symbol
+				return environment.find(expression)
+			elsif not expression.is_a? Array
+				return expression
+			end
+			case expression[0]
+			when :define
+				return environment.define(expression [1], evaluate(expression[2], environment))
+			when :ruby_func
+				return eval expression[1]
+			else
+				function = evaluate(expression[0], environment)
+				if function.lambda?
+					arguments = expression[1, expression.length]
+					function.call(arguments, self)
+				else
+				end
+			end
+		end
+	end
+end

data/lib/theta/library/add.scm

@@ -0,0 +1,8 @@
+( define + 
+	(ruby_func "
+		lambda { |arguments, interpreter|
+			temp = arguments.map { |item| interpreter.evaluate(item) };
+			temp.inject { |result, n| result + n};
+		}
+	")
+)

data/lib/theta/library/divide.scm

@@ -0,0 +1,8 @@
+(define /
+	(ruby_func "
+		lambda { |arguments, interpreter|
+			temp = arguments.map { |item| interpreter.evaluate(item) };
+			temp.inject { |result, n| result / n};
+		}
+	")
+)

data/lib/theta/library/multiply.scm

@@ -0,0 +1,8 @@
+(define *
+	(ruby_func "
+		lambda { |arguments, interpreter|
+			temp = arguments.map { |item| interpreter.evaluate(item) };
+			temp.inject { |result, n| result * n};
+		}
+	")
+)

data/lib/theta/library/subtract.scm

@@ -0,0 +1,8 @@
+(define -
+	(ruby_func "
+		lambda { |arguments, interpreter|
+			temp = arguments.map { |item| interpreter.evaluate(item) };
+			temp.inject { |result, n| result - n};
+		}
+	")
+)

data/lib/theta/parser.rb

@@ -0,0 +1,66 @@
+module Theta
+	# parses strings into arrays of items understandable by the interpreter
+	class Parser
+
+		# returns the scheme interpretation of the string
+		def parse(string)
+			return read_from(tokenize(string))
+		end
+	
+		# converts a string into an array of tokens
+		def tokenize(string)
+			return string.gsub("(", " ( ").gsub(")", " ) ").split
+		end
+
+		# reads an expression from an array of tokens (created
+		# by tokenize)
+		def read_from(tokens)
+			if tokens.length == 0
+				raise SyntaxError, "unexpected EOF while reading"
+			end
+			token = tokens.shift
+			if "(" == token
+				l = []
+				until tokens[0] == ")"
+					l << read_from(tokens)
+				end
+				tokens.shift
+				return l
+			elsif ")" == token
+				raise SyntaxError, "unexpected )"
+			elsif "\"" == token
+				string = ""
+				until tokens[0] == "\""
+					string += " " + tokens.shift
+				end
+				tokens.shift
+				return string.gsub(/\n/, "")
+			else
+				return atom(token)
+			end
+		end
+
+		# returns appropriate numeric object if a number, 
+		# otherwise returns a symbol
+		def atom(token)
+			begin
+				return Integer(token)
+			rescue ArgumentError
+				begin
+					return Float(token)
+				rescue ArgumentError
+					return token.to_sym
+				end
+			end
+		end
+
+		# convert an expression back to a readable string
+		def to_string(expression)
+			if expression.is_a? Array
+				return "(" + " ".join(expression.map { |exp| to_string(exp) }) + ")"
+			else
+				return expression.to_s
+			end
+		end
+	end
+end

data/lib/theta.rb

@@ -0,0 +1,36 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "theta", "interpreter.rb"))
+require File.expand_path(File.join(File.dirname(__FILE__), "theta", "environment.rb"))
+require File.expand_path(File.join(File.dirname(__FILE__), "theta", "parser.rb"))
+
+module Theta
+	# runs the interpreter
+	class Base
+	
+		def initialize
+			@interpreter = Interpreter.new
+		end
+		
+		# run a preexisting program
+		def run(fileName)
+			program = File.open(fileName) { |f| f.read }
+			puts @interpreter.run(program)
+		end
+		
+		# start an interactive interpreter
+		def repl
+			while true
+				print "theta> "
+				input = gets
+				input.strip!
+				if input.empty?
+					puts "Exiting..."
+					break
+				end
+				value = @interpreter.run(input)
+				unless value.nil?
+					puts @interpreter.make_readable(value)
+				end
+			end
+		end
+	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 'theta'
+
+class Test::Unit::TestCase
+end

data/theta.gemspec

@@ -0,0 +1,70 @@
+# 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{theta}
+  s.version = "0.1.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Chris O'Neal"]
+  s.date = %q{2011-03-28}
+  s.description = %q{Theta was created as a learning project based off of lis.py and flea}
+  s.email = %q{ctoneal@gmail.com}
+  s.executables = ["theta", "theta"]
+  s.extra_rdoc_files = [
+    "LICENSE.txt",
+    "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+    "Gemfile",
+    "Gemfile.lock",
+    "LICENSE.txt",
+    "README.rdoc",
+    "Rakefile",
+    "VERSION",
+    "bin/theta",
+    "lib/theta.rb",
+    "lib/theta/environment.rb",
+    "lib/theta/interpreter.rb",
+    "lib/theta/library/add.scm",
+    "lib/theta/library/divide.scm",
+    "lib/theta/library/multiply.scm",
+    "lib/theta/library/subtract.scm",
+    "lib/theta/parser.rb",
+    "test/helper.rb",
+    "theta.gemspec"
+  ]
+  s.homepage = %q{http://github.com/ctoneal/theta}
+  s.licenses = ["MIT"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.6.2}
+  s.summary = %q{Theta is a Lisp interpreter in Ruby}
+  s.test_files = [
+    "test/helper.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
+

metadata

@@ -0,0 +1,117 @@
+--- !ruby/object:Gem::Specification
+name: theta
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Chris O'Neal
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2011-03-28 00:00:00.000000000 -05:00
+default_executable: 
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: shoulda
+  requirement: &7590828 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *7590828
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: &7589724 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.0.0
+  type: :development
+  prerelease: false
+  version_requirements: *7589724
+- !ruby/object:Gem::Dependency
+  name: jeweler
+  requirement: &7588884 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.5.2
+  type: :development
+  prerelease: false
+  version_requirements: *7588884
+- !ruby/object:Gem::Dependency
+  name: rcov
+  requirement: &7588152 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *7588152
+description: Theta was created as a learning project based off of lis.py and flea
+email: ctoneal@gmail.com
+executables:
+- theta
+- theta
+extensions: []
+extra_rdoc_files:
+- LICENSE.txt
+- README.rdoc
+files:
+- .document
+- Gemfile
+- Gemfile.lock
+- LICENSE.txt
+- README.rdoc
+- Rakefile
+- VERSION
+- bin/theta
+- lib/theta.rb
+- lib/theta/environment.rb
+- lib/theta/interpreter.rb
+- lib/theta/library/add.scm
+- lib/theta/library/divide.scm
+- lib/theta/library/multiply.scm
+- lib/theta/library/subtract.scm
+- lib/theta/parser.rb
+- test/helper.rb
+- theta.gemspec
+has_rdoc: true
+homepage: http://github.com/ctoneal/theta
+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: -350340689
+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: Theta is a Lisp interpreter in Ruby
+test_files:
+- test/helper.rb