p-lang 0.1.1 → 0.2.0

data/lib/parser/nodes.rb

@@ -1,212 +0,0 @@
-module PLang
-
-  module NStatements
-    def build
-      elements.collect { |element| PLang::Ast::PStatement.new(element.statement.build) }
-    end
-  end
-
-  module NCStatementList
-    def build
-      stm = statement_list.build
-      unless stm.class == Array
-        stm = [stm]
-      end
-      [statement.build] + stm
-    end
-  end
-
-  module NBinOp
-    def build
-      PLang::Ast::PBinOp.new(op.text_value, expr.build, statement.build)
-    end
-  end
-
-  module NUnOp
-    def build
-      PLang::Ast::PUnOp.new(:not, statement.build)
-    end
-  end
-
-  module NInteger
-    def build
-      PLang::Ast::PLiteral.new(:integer, text_value.to_i)
-    end
-  end
-
-  module NDecimal
-    def build
-      PLang::Ast::PLiteral.new(:decimal, text_value.to_f)
-    end
-  end
-
-  module NString
-    def build
-      PLang::Ast::PLiteral.new(:string, str.text_value)
-    end
-  end
-
-  module NChar
-    def build
-      PLang::Ast::PLiteral.new(:char, c.text_value)
-    end
-  end
-
-  module NId
-    def build
-      PLang::Ast::PId.new(text_value)
-    end
-  end
-
-  module NObject
-    def build
-      if obj_list.respond_to?(:build)
-        params = obj_list.build
-        unless params.class == Array
-          params = [params]
-        end
-        PLang::Ast::PObject.new(id.text_value, params)
-      else
-        PLang::Ast::PObject.new(id.text_value, [])
-      end
-    end
-  end
-
-  module NObjectList
-    def build
-      statement_list.build
-    end
-  end
-
-  module NParemExpr
-    def build
-      statement.build
-    end
-  end
-
-  module NCall
-    def build
-      params = []
-      if cparams.respond_to?(:build)
-        params = cparams.build
-        unless params.class == Array
-          params = [params]
-        end
-      end
-      PLang::Ast::PCall.new(cid.build, params)
-    end
-  end
-
-  module NVarLet
-    def build
-      PLang::Ast::PLet.new(var.build, statement.build)
-    end
-  end
-
-  module NLambda
-    def build
-      @where = []
-      if where.respond_to?(:build)
-        @where = where.build
-      end
-      @params = []
-      if params.respond_to?(:build)
-        @params = params.build
-      end
-      PLang::Ast::PLambda.new(@params, statement.build, @where)
-    end
-  end
-
-  module NCLambda
-    def build
-      nlambda = lamb.build
-      nlambda.next_lambda = lambda.build.to_sexp
-      nlambda
-    end
-  end
-
-  module NWhere
-    def build
-      w = where_params.build
-      if w.class == Array
-        w
-      else
-        [w]
-      end
-    end
-  end
-
-  module NCWhereParams
-    def build
-      w = where_params.build
-      unless w.class == Array
-        w = [w]
-      end
-      [let.build] + w
-    end
-  end
-
-  module NLambdaParams
-    def build
-      params = lambda_params_list.build
-      if params.class == Array
-        params
-      else
-        [params]
-      end
-    end
-  end
-
-  module NCLambdaParamsList
-    def build
-      params = lambda_params_list.build
-      unless params.class == Array
-        params = [params]
-      end
-      [form.build] + params
-    end
-  end
-
-  module NObjectForm
-    def build
-      if obj_form_list.respond_to?(:build)
-        PLang::Ast::PObject.new(id.text_value, obj_form_list.build)
-      else
-        PLang::Ast::PObject.new(id.text_value, [])
-      end
-    end
-  end
-
-  module NObjectGet
-    def build
-      PLang::Ast::PObjectCall.new(expr.build, id.build)
-    end
-  end
-
-  module NObjectMsg
-    def build
-      params = []
-      if statement_list.respond_to?(:build)
-        params = statement_list.build
-        unless params.class == Array
-          params = [params]
-        end
-      end
-      PLang::Ast::PCall.new(PLang::Ast::PObjectCall.new(expr.build, id.build), [expr.build] | params)
-    end
-  end
-
-  module NObjectLet
-    def build
-      PLang::Ast::PObjectLet.new(object_form.build, var.build, statement.build)
-    end
-  end
-
-  module NBoolean
-    def build
-      PLang::Ast::PLiteral.new(:boolean, text_value.to_sym)
-    end
-  end
-
-end
-

data/lib/parser/p-lang.treetop

@@ -1,197 +0,0 @@
-grammar PLang
-
-  rule statements
-    (spaces? statement spaces?)* <NStatements>
-  end
-  
-  rule statement
-    unop / binop / let / object_op / expr
-  end
-
-  rule object_op
-    object_msg /
-    object_get
-  end
-
-  rule object_msg
-    expr spaces? '->' spaces? id sspaces? '(' spaces? statement_list:statement_list? spaces? ')' <NObjectMsg>
-  end
-
-  rule object_get
-    expr spaces? '->' spaces? id spaces? <NObjectGet>
-  end
-
-  rule let
-    var_let /
-    obj_let
-  end
-
-  rule var_let
-    var spaces? '=' spaces? statement <NVarLet>
-  end
-
-  rule obj_let
-    object_form spaces? '->' spaces? var spaces? '=' spaces? statement <NObjectLet>
-  end
-  
-  rule var
-    id / object
-  end
-
-  rule unop
-     'not' spaces? statement <NUnOp>
-  end
-  
-  rule binop
-    expr spaces? op spaces? statement <NBinOp>
-  end
-
-  rule op
-    '+' / '-' / '*' / '/' / '%' / '>=' / '<=' / '>' / '<' / '==' / 'and' / 'or'
-  end
-
-  rule call
-    cid:(id / lambda) sspaces? '(' spaces? cparams:statement_list? spaces? ')' <NCall>
-  end
-
-  rule sspaces
-    [\s\t]*
-  end
-  
-  rule expr
-	number / boolean / call / id / object / char / string / lambda / parem_expr
-  end
-
-  rule parem_expr
-    '(' spaces? statement spaces? ')' <NParemExpr>
-  end
-  
-  rule statement_list
-    cstatement_list / statement
-  end
-
-  rule cstatement_list
-    statement spaces?  ',' spaces? statement_list <NCStatementList>
-  end
-  
-  rule lambda
-    clamb / lamb
-  end
-
-  rule clamb
-    lamb spaces? ',' spaces? lambda <NCLambda>
-  end
-
-  rule lamb
-    '[' spaces? params:lambda_params? spaces? statement spaces? ']' spaces? where:where? <NLambda>
-  end
-  
-  rule where
-    ':' spaces? '(' spaces? where_params spaces? ')' <NWhere>
-  end
-
-  rule where_params
-    cwhere_params / let
-  end
-
-  rule cwhere_params
-    let spaces? ',' spaces? where_params <NCWhereParams>
-  end
-
-  rule lambda_params
-    lambda_params_list spaces? '|' <NLambdaParams>
-  end
-  
-  rule lambda_params_list
-    clambda_params_list / form
-  end
-
-  rule clambda_params_list
-    form spaces? ',' spaces? lambda_params_list <NCLambdaParamsList>
-  end
-  
-  rule form
-	  number / id / object_form / char / string
-  end
-  
-  rule object_form
-    '{' spaces? id spaces? obj_form_list:object_form_list? spaces? '}' <NObjectForm>
-  end
-  
-  rule object_form_list
-    ':' spaces? lambda_params_list <NLambdaParams>
-  end
-  
-  rule object
-	  '{' spaces? id spaces? obj_list:object_list? spaces? '}' <NObject>
-  end
-  
-  rule object_list
-    ':' spaces?  statement_list <NObjectList>
-  end
-
-  rule boolean
-    (true / false) <NBoolean>
-  end
-
-  rule true
-    "true"
-  end
-
-  rule false
-    "false"
-  end
-  
-  rule id
-    [a-zA-Z_0-9]+ <NId>
-  end
-  
-  rule string
-    "\"" str:(!"\"" .)* "\"" <NString>
-  end
-  
-  rule char
-    "'" c:(!"'" .) "'" <NChar>
-  end
-
-  rule number
-	  decimal / integer
-  end
-  
-  rule decimal
-	  sign? spaces? digits? dot digits <NDecimal>
-  end
-  
-  rule integer
-	  sign? spaces? digits <NInteger>
-  end
-  
-  rule digits
-	  digit+
-  end
-  
-  rule digit
-	  [0-9]
-  end
-  
-  rule sign
-    "-"
-  end
-  
-  rule dot
-	  "."
-  end
-  
-  rule spaces
-    space* ("#" (!break .)* break+ space*)*
-  end
-  
-  rule space
-    [\r\n\t\s]
-  end
-  
-  rule break
-    [\r\n]
-  end
-  
-end

data/lib/vm/perror.rb

@@ -1,8 +0,0 @@
-module PLang
-  class PError    
-    def PError.raise_error(error_name, error_message)
-      puts error_name.to_s + ": " + error_message
-      raise "PError.raise_error"
-    end
-  end
-end

data/lib/vm/proc.rb

@@ -1,67 +0,0 @@
-class Proc
-  attr_accessor :form
-  
-  def compare_form(form, obj)
-    if(form)
-      unless obj[1] == form[1]
-        return false
-      else
-        if form[0] == :literal
-          unless form == obj
-            return false
-          end
-        else
-          if obj[0] == :literal
-            unless form[2].length == 1
-              return false
-            else
-              unless form[2][0][0] == :id
-                return false
-              end
-            end
-          else
-            if form[2].length == obj[2].length
-              form[2].each_with_index do |p, i|
-                unless p[0] == :id
-                  unless p == obj[2][i]
-                    if p[0] == :object
-                      return compare_form(p, obj[2][i])
-                    else
-                      return false
-                    end
-                  end
-                end
-              end
-            else
-              return false
-            end
-          end
-        end
-      end
-    end
-    return true
-  end
-
-  def call?(params)
-    if @form.length == params.length
-      params.each_with_index do |param, i|
-        unless param.class == Array
-          unless compare_form(@form[i], param.form)
-            return false
-          end
-        else
-          if @form[i]
-            return false
-          end
-        end
-      end
-      return true
-    else
-      return false
-    end
-  end
-  
-  def to_s
-    "#lambda:#{self.object_id}"
-  end
-end