RubyGems - flea - Versions diffs - 0.1.0 - Mend

@@ -0,0 +1,9 @@
+(lambda (b b) (display "test"))
+----
+# a variable should not be able to appear
+# more than once in the argument list for a
+# procedure
+assert_execution_failure

data/flea-language-spec/test-cases/05-lambda/06-lambda-list-argument.scm ADDED

@@ -0,0 +1,8 @@
+(define list_lambda
+  (lambda x (display x)))
+(list_lambda 1 2 3 4)
+----
+assert_output "(1 2 3 4)"

data/flea-language-spec/test-cases/05-lambda/07-lambda-n-or-more-arguments.scm ADDED

@@ -0,0 +1,12 @@
+(define n_or_more
+  (lambda (x y . z)
+    ((lambda ()
+      (display x)
+      (display y)
+      (display z)))))
+(n_or_more 1 2 3 4 5 6)
+----
+assert_output "12(3 4 5 6)"

data/flea-language-spec/test-cases/05-lambda/08-lambda-should-return-last-result.scm ADDED

@@ -0,0 +1,16 @@
+(define a 0)
+(define b 0)
+(define test
+  (lambda (x y)
+    (+ 5 x)
+    (+ 10 y)
+    (+ x y)))
+(define c (test 1 2))
+(display a)
+(display b)
+(display c)
+----
+assert_output "003"

data/flea-language-spec/test-cases/06-if/01-if-true-single-arg.scm ADDED

@@ -0,0 +1,6 @@
+(if (equal? #t #t)
+  (display "true"))
+----
+assert_output "true"

data/flea-language-spec/test-cases/06-if/02-if-false-single-arg.scm ADDED

@@ -0,0 +1,6 @@
+(if (equal? #t #f)
+  (display "true"))
+----
+assert_output ""

data/flea-language-spec/test-cases/06-if/03-if-true-two-args.scm ADDED

@@ -0,0 +1,7 @@
+(if (equal? #t #t)
+  (display "true")
+  (display "false"))
+----
+assert_output "true"

data/flea-language-spec/test-cases/06-if/04-if-false-two-args.scm ADDED

@@ -0,0 +1,7 @@
+(if (equal? #t #f)
+  (display "true")
+  (display "false"))
+----
+assert_output "false"

data/flea-language-spec/test-cases/07-set/01-should-not-set-undefined-variable.scm ADDED

@@ -0,0 +1,5 @@
+(set! tester 1)
+----
+assert_execution_failure

data/flea-language-spec/test-cases/07-set/02-set-previously-defined-variable.scm ADDED

@@ -0,0 +1,8 @@
+(define tester 1)
+(display tester)
+(set! tester 5)
+(display tester)
+----
+assert_output "15"

data/flea-language-spec/test-cases/08-derived-expressions/01-begin/01-begin.scm ADDED

@@ -0,0 +1,8 @@
+(begin
+  (display 1)
+  (display 2)
+  (display 3))
+----
+assert_output "123"

data/flea-language-spec/test-cases/09-list-manipulation/01-car.scm ADDED

@@ -0,0 +1,7 @@
+(define test-list (quote (1 2 3)))
+(display (car test-list))
+----
+assert_output "1"

data/flea-language-spec/test-cases/09-list-manipulation/02-cdr.scm ADDED

@@ -0,0 +1,7 @@
+(define test-list (quote (1 2 3)))
+(display (cdr test-list))
+----
+assert_output "(2 3)"

data/flea-language-spec/test-cases/09-list-manipulation/03-list-tail.scm ADDED

@@ -0,0 +1,7 @@
+(define test-list (quote (1 2 3 4 5 6)))
+(display (list-tail test-list 3))
+----
+assert_output "(4 5 6)"

data/flea-language-spec/test-cases/09-list-manipulation/04-append.scm ADDED

@@ -0,0 +1,10 @@
+(define list-1 (quote (1 2 3)))
+(define list-2 (quote (4 5 6)))
+(define list-3 (quote (7 8 9)))
+(display (append list-1 list-2))
+(display (append list-1 list-2 list-3))
+----
+assert_output "(1 2 3 4 5 6)(1 2 3 4 5 6 7 8 9)"

data/flea-language-spec/test-cases/09-list-manipulation/05-list.scm ADDED

@@ -0,0 +1,5 @@
+(display (list 1 2 3 4 5))
+----
+assert_output "(1 2 3 4 5)"

data/flea-language-spec/test-cases/10-functional-examples/countdown.scm ADDED

@@ -0,0 +1,15 @@
+(define countdown
+  (lambda (index)
+    (define current (- index 1))
+    (display current)
+    (if (equal? current 1)
+      (display "... Blast off!")
+      (begin
+        (display ", ")
+        (countdown current)))))
+(countdown 11)
+----
+assert_output "10, 9, 8, 7, 6, 5, 4, 3, 2, 1... Blast off!"

data/lib/flea.rb ADDED

@@ -0,0 +1,5 @@
+require "rubygems"
+require "sexpistol"
+require File.expand_path(File.join(File.dirname(__FILE__), "flea", "environment.rb"))
+require File.expand_path(File.join(File.dirname(__FILE__), "flea", "interpreter.rb"))

data/lib/flea/environment.rb ADDED

@@ -0,0 +1,38 @@
+module Flea
+  class Environment
+    attr_accessor :parent
+    def initialize(parent = nil)
+      @parent = parent
+      @table = {}
+      add_globals if @parent.nil?
+    end
+    def has_variable?(name)
+      return true if @table.has_key?(name)
+      return false if @parent.nil?
+      return @parent.has_variable?(name)
+    end
+    def find(name)
+      return @table[name] if @table.has_key?(name)
+      return nil if @parent.nil?
+      return @parent.find(name)
+    end
+    def define(name, value)
+      @table[name] = value
+    end
+    private
+    def add_globals
+      @table.merge!({
+        :"#t" => true,
+        :"#f" => false
+      })
+    end
+  end
+end

data/lib/flea/interpreter.rb ADDED

@@ -0,0 +1,67 @@
+module Flea
+  class Interpreter
+   attr_accessor :base_environment,
+                 :current_environment,
+                 :parser
+    def initialize(options = {})
+      options = {
+        :base_environment => Environment.new,
+        :load_standard_library => true
+      }.merge(options)
+      @base_environment = @current_environment = options[:base_environment]
+      @parser = Sexpistol.new
+      @parser.ruby_keyword_literals = false
+      @parser.scheme_compatability = true
+      load_standard_library unless options[:load_standard_library] == false
+    end
+    def run(program)
+      expressions = parse(program)
+      result = nil
+      expressions.each do |expression|
+        result = evaluate(expression)
+      end
+      return result
+    end
+    def parse(string)
+      return @parser.parse_string(string)
+    end
+    def evaluate(expression)
+      return @current_environment.find(expression) if expression.is_a? Symbol
+      return expression unless expression.is_a? Array
+      if expression[0] == :define
+        return @current_environment.define expression[1], evaluate(expression[2])
+      elsif expression[0] == :native_function
+        return eval expression[1]
+      else # function call
+        function = evaluate(expression[0])
+        raise RuntimeError, "\n#{@parser.to_sexp(expression)}\n ^\n\n#{expression[0]} is not a function" unless function.is_a? Proc
+        arguments = expression.slice(1, expression.length)
+        return function.call(arguments, self)
+      end
+    end
+    private
+    def load_standard_library
+      library_pattern = File.join(File.dirname(__FILE__), 'standard_library', '*.scm')
+      Dir[library_pattern].each do |item|
+        File.open(item) do |file|
+          run(file.read)
+        end
+      end
+    end
+  end
+end