Contents

module Nydp
  class Assignment
    include Helper

    def self.build args, bindings, ns
      name = Compiler.compile args.car, bindings, ns
      raise "can't assign to #{name._nydp_inspect} : expression was #{args}" unless name.respond_to?(:assign)
      value_expr = args.cdr.car
      Assignment.new name, Compiler.compile(value_expr, bindings, ns), args
    end

    def initialize name, value, src
      @name, @value, @src = name, value, src
    end

    def lexical_reach n
      [@name.lexical_reach(n), @value.lexical_reach(n)].max
    end

    def to_s
      "(assign #{@src.car} #{@src.cdr.car})"
    end

    def compile_to_ruby indent, srcs, opts=nil
      "#{indent}##> #{to_s.split(/\n/).join('\n')}\n" +
        "#{indent}(#{@name.compile_to_ruby "", srcs} =\n" +
        "#{indent}#{@value.compile_to_ruby indent, srcs})"
    end

    def inspect; to_s ; end

    def execute vm
      @name.assign @value.execute(vm), vm.current_context
    rescue
      raise "assigning #{@value._nydp_inspect} to #{@name._nydp_inspect}"
    end
  end
end

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
nydp-0.6.0	lib/nydp/assignment.rb