ajlisp 0.0.0

data/lib/ajlisp/named_atom.rb

@@ -0,0 +1,34 @@
+
+module AjLisp
+
+class NamedAtom
+    attr_reader :name
+    
+    def initialize(name)
+        if name.is_a? String
+            @name = name.intern
+        elsif name.is_a? Symbol
+            @name = name
+        else
+            raise "Name of Atom should be an String or Sysmbol"
+        end
+    end
+    
+    def evaluate(context)
+        return context.getValue(@name)
+    end
+	
+	def to_s
+		return @name.to_s
+	end
+    
+    def isEqualTo(atom)
+        if !atom.is_a? NamedAtom
+            return false
+        end
+        
+        return @name == atom.name
+    end
+end
+
+end

data/lib/ajlisp/nil_atom.rb

@@ -0,0 +1,39 @@
+
+module AjLisp
+
+class NilAtom < NamedAtom
+    private_class_method :new
+    
+    @@instance = nil
+
+    def self.instance
+        @@instance = new unless @@instance
+        return @@instance
+    end
+    
+    def initialize()
+        super(:nil)
+    end
+    
+    def evaluate(context)
+        return nil
+    end
+	
+	def to_s
+		return "nil"
+	end
+
+    def isEqualTo(atom)
+        if atom.is_a? NilAtom
+            return true
+        end
+        
+        if atom == nil
+            return true
+        end
+        
+        return false
+    end
+end
+
+end

data/lib/ajlisp/parser.rb

@@ -0,0 +1,80 @@
+
+
+module AjLisp
+
+class Parser
+    def initialize(lexer)
+        @lexer = lexer
+    end
+    
+    def parseExpression
+        token = @lexer.nextToken
+        
+        if token == nil
+            return nil
+        end
+        
+        if token.type == TokenType::ATOM
+            if token.value[0,1] == "."
+                return DotVerbAtom.new token.value
+            end
+            
+            if token.value[0,1] == "@"
+                return AtConstantAtom.new token.value
+            end
+            
+            if token.value[0,1] == "'"
+                return List.make [NamedAtom.new("quote"), parseExpression]
+            end
+            
+            if token.value[0,1] == "`"
+                return List.make [NamedAtom.new("backquote"), parseExpression]
+            end
+
+            if token.value[0,1] == ","
+                return List.make [NamedAtom.new("unquote"), parseExpression]
+            end
+            
+            if token.value == "false"
+                return false
+            end
+            
+            if token.value == "true"
+                return true
+            end
+            
+            if token.value == "nil"
+                return NilAtom.instance
+            end
+
+            return NamedAtom.new token.value
+        end
+        
+        if token.type == TokenType::INTEGER
+            return token.value.to_i
+        end
+        
+        if token.type == TokenType::STRING
+            return token.value
+        end
+        
+        if token.type == TokenType::SEPARATOR and token.value == "("
+            elements = []
+            token = @lexer.nextToken
+            
+            while not (token.type == TokenType::SEPARATOR and token.value == ")")
+                @lexer.pushToken token
+                elements.push parseExpression
+                token = @lexer.nextToken
+            end
+
+            if elements.length == 0
+                return EmptyList.instance
+            else
+                return List::make elements
+            end
+        end
+    end
+end
+
+end

data/lib/ajlisp/primitive.rb

@@ -0,0 +1,19 @@
+
+module AjLisp
+
+class Primitive
+	def evaluate(context, list)
+		args = []
+		rest = list.rest
+		
+		while rest != nil
+			args.push(AjLisp::evaluate(context, rest.first))
+			rest = rest.rest
+		end
+		
+		return apply(context, args)
+	end
+end
+
+end
+

data/lib/ajlisp/primitive_add.rb

@@ -0,0 +1,29 @@
+
+module AjLisp
+
+class PrimitiveAdd < Primitive	
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+        @@instance = new unless @@instance
+        return @@instance
+    end
+    
+	def apply(context, args)
+		result = 0
+        
+        if args.length > 0 and not args[0].is_a? Numeric
+            result = ""
+        end
+		
+		args.each do |arg|
+			result += arg
+		end
+		
+		return result
+	end
+end
+
+end

data/lib/ajlisp/primitive_closure.rb

@@ -0,0 +1,49 @@
+
+module AjLisp
+
+class PrimitiveClosure < Primitive
+    attr_reader :arguments
+    attr_reader :body
+    attr_reader :context
+    
+    def initialize(arguments, body, context=nil)
+        @arguments = arguments
+        @body = body
+        @context = context
+    end
+    
+    def apply(context, args)
+        newcontext = context
+        
+        if @context then
+            newcontext = @context
+        end
+    
+        if @arguments
+            newcontext = AjLisp::Context.new newcontext
+            
+            if @arguments.is_a? NamedAtom
+                newcontext.setValue @arguments.name, AjLisp::List.make(args)
+            else
+                names = @arguments
+            
+                args.each do |arg|
+                    name = names.first.name
+                    newcontext.setValue name, arg
+                    names = names.rest
+                end
+            end
+        end
+        
+        result = nil
+
+        @body.each do |form|
+            result = AjLisp::evaluate newcontext, form
+        end
+        
+        return result
+    end
+end
+
+end
+

data/lib/ajlisp/primitive_comparisons.rb

@@ -0,0 +1,84 @@
+
+module AjLisp
+
+  class PrimitiveEqual < Primitive  
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+      @@instance = new unless @@instance
+      return @@instance
+    end
+    
+    def apply(context, args)
+      if args[0].is_a? List or args[0].is_a? NamedAtom
+        return args[0].isEqualTo(args[1])
+      end
+    
+      return args[0] == args[1]
+    end
+  end
+
+  class PrimitiveLess < Primitive  
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+      @@instance = new unless @@instance
+      return @@instance
+    end
+    
+    def apply(context, args)
+      return args[0] < args[1]
+    end
+  end
+
+  class PrimitiveGreater < Primitive  
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+      @@instance = new unless @@instance
+      return @@instance
+    end
+    
+    def apply(context, args)
+      return args[0] > args[1]
+    end
+  end
+
+  class PrimitiveLessEqual < Primitive  
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+      @@instance = new unless @@instance
+      return @@instance
+    end
+
+    def apply(context, args)
+      return args[0] <= args[1]
+    end
+  end
+
+  class PrimitiveGreaterEqual < Primitive  
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+      @@instance = new unless @@instance
+      return @@instance
+    end
+    
+    def apply(context, args)
+      return args[0] >= args[1]
+    end
+  end
+
+end
+ 

data/lib/ajlisp/primitive_cons.rb

@@ -0,0 +1,19 @@
+
+module AjLisp
+
+class PrimitiveCons < Primitive	
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+        @@instance = new unless @@instance
+        return @@instance
+    end
+    
+	def apply(context, args)
+		return List.new(args[0], args[1])
+	end
+end
+
+end

data/lib/ajlisp/primitive_divide.rb

@@ -0,0 +1,25 @@
+
+module AjLisp
+
+class PrimitiveDivide < Primitive	
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+        @@instance = new unless @@instance
+        return @@instance
+    end
+    
+	def apply(context, args)
+		result = args.shift
+		
+		args.each do |arg|
+			result /= arg
+		end
+		
+		return result
+	end
+end
+
+end

data/lib/ajlisp/primitive_eval.rb

@@ -0,0 +1,19 @@
+
+module AjLisp
+
+class PrimitiveEval < Primitive	
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+        @@instance = new unless @@instance
+        return @@instance
+    end
+
+	def apply(context, args)
+        return AjLisp::evaluate context, args[0]
+	end
+end
+
+end

data/lib/ajlisp/primitive_first.rb

@@ -0,0 +1,19 @@
+
+module AjLisp
+
+class PrimitiveFirst < Primitive	
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+        @@instance = new unless @@instance
+        return @@instance
+    end
+
+	def apply(context, args)
+		return args[0].first
+	end
+end
+
+end

data/lib/ajlisp/primitive_list.rb

@@ -0,0 +1,19 @@
+
+module AjLisp
+
+class PrimitiveList < Primitive	
+    private_class_method :new
+    
+    @@instance = nil
+    
+    def self.instance
+        @@instance = new unless @@instance
+        return @@instance
+    end
+    
+	def apply(context, args)
+		return List.make args
+	end
+end
+
+end