Contents

class Nydp::Symbol
  class Unbound < StandardError ; end
  EMPTY = :""
  attr_accessor :name

  def self.new name
    special(name.to_s.to_sym) || super
  end

  def initialize name
    name = name.to_s
    @name = name.to_sym
    raise "cannot be symbol : #{name.inspect}" if @name == :nil || @name == :t
    @inspection = "|#{name.gsub(/\|/, '\|')}|" if untidy(name)
  end

  def hash ; name.hash ; end # can't cache this, it seems to break when unmarshalling

  def untidy str
    (str == "") || (str == nil) || (str =~ /[\s\|,\(\)"]/)
  end

  def value context=nil
    @value
  end

  def ruby_name
    "ns_#{name.to_s._nydp_name_to_rb_name}"
  end

  def compile_to_ruby indent, src, opts=nil
    "#{indent}ns.#{ruby_name}"
  end

  def self.special name
    return nil  if name == :nil
    return true if name == :t
    nil
  end

  def self.find name, ns ; ns[name.to_sym] ;  end

  def nydp_type           ; :symbol                  ; end
  def inspect             ; @inspection || name.to_s ; end
  def to_s                ; name.to_s                ; end
  def to_sym              ; name                     ; end
  def to_ruby             ; to_sym                   ; end
  def is?              nm ; self.name == nm.to_sym   ; end
  def >             other ; self.name > other.name   ; end
  def <             other ; self.name < other.name   ; end
  def <=>           other ; self.name <=> other.name ; end
  def assign value, _=nil ; @value = value           ; end

  def ns_assign ns, value
    value.is_named(@name) if value.respond_to?(:is_named)
    ns.send(:"#{ruby_name}=", value)
  end

  def == other
    other.is_a?(Nydp::Symbol) && (self.name == other.name)
  end

  alias eql? ==
end

Version data entries

1 entries across 1 versions & 1 rubygems

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