Class: Relisp::HashTable

Inherits:

Object

• Object
• Relisp::HashTable

Defined in:

lib/relisp/type_conversion/programming_types.rb

Class Method Summary

• .from_elisp(object) ⇒ Object

Instance Method Summary

• #to_elisp ⇒ Object

Class Method Details

.from_elisp(object) ⇒ Object

# File 'lib/relisp/type_conversion/programming_types.rb', line 335

def self.from_elisp(object)
  slave = object[:slave]
  object_variable = slave.get_permanent_variable(object[:variable])

  unless slave.elisp_eval("(type-of #{object_variable})") == "hash-table".to_sym
    raise ArgumentError, "#{object_variable} isn't a hash-table"
  end
  keys_var = slave.new_elisp_variable
  vals_var = slave.new_elisp_variable
  slave.elisp_exec( "(setq #{keys_var} nil)" )
  slave.elisp_exec( "(setq #{vals_var} nil)" )
  slave.elisp_exec( "(maphash (lambda (key val)
                          (setq #{keys_var} (append #{keys_var} (list key)))
                          (setq #{vals_var} (append #{vals_var} (list val)))) #{object_variable})" )
  keys = slave.elisp_eval( keys_var )
  vals = slave.elisp_eval( vals_var )
  keys ||= nil
  keys = keys.to_list
  vals = vals.to_list
  hash = Hash.new
  keys.each_index do |i|
    hash[keys[i]] = vals[i]
  end

  slave.makunbound(object_variable)
  slave.makunbound(keys_var)
  slave.makunbound(vals_var)

  return hash
end

Instance Method Details

#to_elisp ⇒ Object

# File 'lib/relisp/type_conversion/programming_types.rb', line 366

def to_elisp
  lisp =  "(progn \n"
  lisp << "  (let ((--temp--relisp--variable (make-hash-table))) \n"
  each_pair do |key, val|
    lisp << "    (puthash #{key.to_elisp} #{val.to_elisp} --temp--relisp--variable) \n"
  end
  lisp << "--temp--relisp--variable))"
end