p-lang 0.1.1 → 0.2.0

data/lib/vm/core/pchar.rb

@@ -0,0 +1,13 @@
+module PLang
+  module VM
+    module PFunctions
+      def add_to_interpreter_char_functions
+        object_message "{char: x}", :ord do |object|
+          plambda do |value|
+            PObject.new(:integer, [object.params[0].ord])
+          end
+        end
+      end
+    end
+  end
+end

data/lib/vm/core/pdecimal.rb

@@ -0,0 +1,130 @@
+module PLang
+  module VM
+    module PFunctions
+      def add_to_interpreter_decimal_functions
+        
+        object_message "{decimal: x}", :add do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:decimal, [object.params[0] + value[0].params[0]])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+        object_message "{decimal: x}", :sub do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:decimal, [object.params[0] - value[0].params[0]])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+        object_message "{decimal: x}", :mul do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:decimal, [object.params[0] * value[0].params[0]])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+        object_message "{decimal: x}", :div do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:decimal, [object.params[0] / value[0].params[0]])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+        object_message "{decimal: x}", :mod do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:decimal, [object.params[0] % value[0].params[0]])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+        object_message "{decimal: x}", :major do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] > value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+        object_message "{decimal: x}", :major_equal do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] >= value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+        object_message "{decimal: x}", :minor do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] < value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+        object_message "{decimal: x}", :minor_equal do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] <= value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+        object_message "{decimal: x}", :equal do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] == value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+        object_message "{decimal: x}", :diff do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] != value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: decimal"
+            end
+          end
+        end
+        
+      end
+    end
+  end
+end

data/lib/vm/core/pinteger.rb

@@ -0,0 +1,125 @@
+module PLang
+  module VM
+    module PFunctions
+      def add_to_interpreter_integer_functions
+        
+        object_message "{integer: x}", :add do |object|
+          plambda "y" do |value|
+            if value[0].id == :integer
+              PObject.new(:integer, [object.params[0] + value[0].params[0]])
+            elsif value[0].id == :decimal
+              PObject.new(:decimal, [object.params[0] + value[0].params[0]])
+            end
+          end
+        end
+        
+        object_message "{integer: x}", :sub do |object|
+          plambda "y" do |value|
+            if value[0].id == :integer
+              PObject.new(:integer, [object.params[0] - value[0].params[0]])
+            elsif value[0].id == :decimal
+              PObject.new(:decimal, [object.params[0] - value[0].params[0]])
+            end
+          end
+        end
+        
+        object_message "{integer: x}", :mul do |object|
+          plambda "y" do |value|
+            if value[0].id == :integer
+              PObject.new(:integer, [object.params[0] * value[0].params[0]])
+            elsif value[0].id == :decimal
+              PObject.new(:decimal, [object.params[0] * value[0].params[0]])
+            end
+          end
+        end
+        
+        object_message "{integer: x}", :div do |object|
+          plambda "y" do |value|
+            if value[0].id == :integer
+              PObject.new(:integer, [object.params[0] / value[0].params[0]])
+            elsif value[0].id == :decimal
+              PObject.new(:decimal, [object.params[0] / value[0].params[0]])
+            end
+          end
+        end
+        
+        object_message "{integer: x}", :mod do |object|
+          plambda "y" do |value|
+            if value[0].id == :integer
+              PObject.new(:integer, [object.params[0] % value[0].params[0]])
+            elsif value[0].id == :decimal
+              PObject.new(:decimal, [object.params[0] % value[0].params[0]])
+            end
+          end
+        end
+        
+        object_message "{integer: x}", :major do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] > value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: integer"
+            end
+          end
+        end
+        
+        object_message "{integer: x}", :major_equal do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] >= value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: integer"
+            end
+          end
+        end
+        
+        object_message "{integer: x}", :minor do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] < value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: integer"
+            end
+          end
+        end
+        
+        object_message "{integer: x}", :minor_equal do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] <= value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: integer"
+            end
+          end
+        end
+        
+        object_message "{integer: x}", :equal do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] == value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: integer"
+            end
+          end
+        end
+        
+        object_message "{integer: x}", :diff do |object|
+          plambda "y" do |value|
+            case value[0].id
+              when :integer, :decimal
+                PObject.new(:boolean, [(object.params[0] != value[0].params[0]).to_s.to_sym])
+              else
+                raise "TODO: integer"
+            end
+          end
+        end
+        
+      end
+    end
+  end
+end

data/lib/vm/core/pio.rb

@@ -0,0 +1,16 @@
+module PLang
+  module VM
+    module PFunctions
+      def add_to_interpreter_io_functions
+        
+        var :print, (plambda "x" do |params|
+          puts params[0].to_s
+        end)
+
+        var :read, (plambda do
+          PObject.new(:string, [STDIN.gets])
+        end)
+      end
+    end
+  end
+end

data/lib/vm/core/plist.rb

@@ -0,0 +1,33 @@
+module PLang
+  module VM
+    module PFunctions
+      def add_to_interpreter_list_functions
+
+        object_message "{list: x, xs}", :head do |object|
+          plambda do |value|
+            object.params[0]
+          end
+        end
+
+        object_message "{list: x, xs}", :tail do |object|
+          plambda do |value|
+            object.params[1]
+          end
+        end
+
+        object_message "{list: x, xs}", :concat do |object|
+          plambda "x" do |value|
+            PObject.new(:list, [value[0], object])
+          end
+        end
+
+        object_message "{empty}", :concat do |object|
+          plambda "x" do |value|
+            PObject.new(:list, [value[0], object])
+          end
+        end
+
+      end
+    end
+  end
+end

data/lib/vm/core/pstring.rb

@@ -0,0 +1,39 @@
+module PLang
+  module VM
+    module PFunctions
+      def add_to_interpreter_string_functions
+        
+        object_message "{string: x}", :at do |object|
+          plambda "{integer: y}" do |value|
+            PObject.new(:char, [object.params[0][value[0].params[0]]])
+          end
+        end
+        
+        object_message "{string: x}", :concat do |object|
+          plambda "{string: y}" do |value|
+            PObject.new(:string, [object.params[0] + value[0].params[0]])
+          end
+        end
+        
+        object_message "x", :to_string do |object|
+          plambda do |value|
+            PObject.new(:string, [object.to_s])
+          end
+        end
+
+        object_message "{string: x}", :to_integer do |object|
+          plambda do |value|
+            PObject.new(:integer, [object.params[0].to_i])
+          end
+        end
+
+        object_message "{string: x}", :to_decimal do |object|
+          plambda do |value|
+            PObject.new(:decimal, [object.params[0].to_f])
+          end
+        end
+        
+      end
+    end
+  end
+end

data/lib/vm/environment.rb

@@ -1,53 +1,78 @@
 module PLang
-  class Environment
-    attr_accessor :parent
-
-    def initialize
-      @vars = Hash.new
-      @parent = nil
-      @object_call = Hash.new
-    end
-
-    def add_var(id, value)
-      unless @vars[id]
-        @vars[id] = value
-      else
-        PError.raise_error(:BindVariableError, "variable '#{id}'")
+  module VM
+    class Environment
+      attr_accessor :parent
+      
+      def initialize
+        @vars = Hash.new
+        @objects = Hash.new
       end
-    end
 
-    def get_var(id)
-      v = @vars[id]
-      if v
-        return v
-      elsif @parent
-        return @parent.get_var(id)
-      else
-        PError.raise_error(:NameError, "undefined variable '#{id}'")
+      def set_var(id, value)
+        unless @vars[id]
+          @vars[id] = value
+        else
+          raise "LetError: TODO"
+        end
       end
-    end
-        
-    def add_object_call(form, msg, value)
-      unless @object_call[msg]
-        @object_call[msg] = Hash.new
+
+      def get_var(id)
+        v = @vars[id]
+        if v
+          return v
+        elsif @parent
+          return @parent.get_var(id)
+        else
+          raise "NameError: undefined variable '#{id}'"
+        end
       end
-      @object_call[msg][form] = value
-    end
-    
-    def get_object_call(object, msg)
-      begin
-        lamb = []
-        @object_call[msg].each do |obj|
-          if obj[0][1] == object.type
-            lamb |= obj[1]
+      
+      #TODO: new operator to add lambdas
+      def add_lambda(id, lamb)
+        v = get_var(id)
+        if v
+          if v.id == :lambda and lamb.id == :lambda
+            v.params |= lamb.params
+          else
+            raise "TODO: Environment#add_lambda#2"
           end
+        else
+          raise "TODO: Environment#add_lambda#1"
         end
-        return lamb
-      rescue
-        if @parent
-          @parent.get_object_call(object, msg)
+      end
+      
+      def set_object_var(form, object)
+        if form.type == :object
+          if form.id.value == object.id
+            form.params.each_with_index do |param, i|
+              case param.type 
+                when :object
+                  set_object_var(param, object.params[i])
+                when :id
+                  unless param.value == :_
+                    if object.id == :integer
+                      set_var(param.value, PObject.new(:integer, [object.params[i]]))
+                    elsif object.id == :decimal
+                      set_var(param.value, PObject.new(:decimal, [object.params[i]]))
+                    elsif object.id == :char
+                      set_var(param.value, PObject.new(:char, [object.params[i]]))
+                    elsif object.id == :string
+                      set_var(param.value, PObject.new(:string, [object.params[i]]))
+                    else
+                      set_var(param.value, object.params[i])
+                    end
+                  end
+                else
+                  unless param.value == object.params[i].params[0]
+                    raise "TODO: Environment#set_object_var#3"
+                  end
+              end
+            end
+          else
+            raise "TODO: Environment#set_object_var#1"
+          end
         else
-          PError.raise_error(:ObjectCallError, "undefined message #{object} -> #{msg}")
+          raise "TODO: Environment#set_object_var#2"
         end
       end
     end