class DRbRegClient

# File lib/drb_reg_client.rb, line 13
def initialize(host: nil, port: '59500', debug: false)
  
  @port, @debug  = port, debug
  DRb.start_service

  # attach to the DRb server via a URI given on the command line
  @reg = DRbObject.new nil, "druby://#{host}:#{port}" if host
end

# File lib/drb_reg_client.rb, line 22
def delete_key(path)
  @reg.delete_key path
end

# File lib/drb_reg_client.rb, line 26
def get(s)
  
  raw_uri, raw_path = s[/(?<=reg:\/\/).*/].split('/',2)
  host, port = raw_uri.split(':')        
  port ||= @port
  
  if @debug
    puts 'host:' + host.inspect
    puts 'port:' + port.inspect 
  end
  
  @reg = DRbObject.new nil, "druby://#{host}:#{port}"
  
  path, raw_q = raw_path.split('?',2)
  
  r = get_key(path, auto_detect_type: true)
  
  if raw_q then
    
    q = raw_q[/(?<=q\=)[^$]+/]
    
    if q then
      attr_val = r.attributes[q.to_sym]
      Time.parse(attr_val) if q.to_sym == :last_modified
    end
    
  else
    
    return r
    
  end
  
  
  
end

# File lib/drb_reg_client.rb, line 62
def get_key(key='', auto_detect_type: false)
  
  puts 'inside get_key' if @debug
  r = @reg.get_key(key)     
  
  puts 'r: ' + r.inspect if @debug

  return unless r

  doc = Rexle.new(r)
  e = doc.root
  
  return e unless auto_detect_type
  
  c = e.attributes[:type]
  s = e.text

  return e if e.elements.length > 0 or s.nil?    
  return s unless c
        
  h = {
    string: ->(x) {x},
    boolean: ->(x){ 
      case x
      when 'true' then true
      when 'false' then false
      when 'on' then true
      when 'off' then false
      else x
      end
    },
    number: ->(x){  x[/^[0-9]+$/] ? x.to_i : x.to_f },
    time:   ->(x) {Time.parse x},
    json:   ->(x) {JSON.parse x}
  }
                          
  h[c.to_sym].call s         

end

# File lib/drb_reg_client.rb, line 103
def get_keys(key)
  
  recordset = @reg.get_keys(key)
  return unless recordset

  doc = Rexle.new(recordset)    
  doc.root.elements ? doc.root.elements.to_a : []
 
end

# File lib/drb_reg_client.rb, line 113
def import(s)
  @reg.import s
end

# File lib/drb_reg_client.rb, line 117
def set(s, value)
  
  raw_uri, path = s[/(?<=reg:\/\/).*/].split('/',2)
  host, port = raw_uri.split(':')        
  port ||= @port
     
  @reg = DRbObject.new nil, "druby://#{host}:#{port}"
  set_key(path, value)
  
end

# File lib/drb_reg_client.rb, line 128
def set_key(key, value)

  r = @reg.set_key(key, value)
  return unless r

  doc = Rexle.new(r)
  doc.root
end

# File lib/drb_reg_client.rb, line 137
def xpath(path)
  
  r = @reg.xpath path

  return [] if r.empty?

  doc = Rexle.new(r)    
  doc.root.elements ? doc.root.elements.to_a : []
end