1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#
require 'efl/native/eina_hash'
#
module Efl
module EinaHash
#
class REinaHash
include Enumerable
include Efl::ClassHelper
proxy_list [Efl::EinaHash::Native,'eina_hash_'].freeze
def initialize o=nil, &block
cstr = ( block_given? ? block : Proc.new { Native.eina_hash_string_djb2_new FFI::Pointer::NULL } )
@ptr = (
case o
when NilClass
FFI::AutoPointer.new cstr.call, REinaHash.method(:release)
when FFI::Pointer
FFI::AutoPointer.new( (o==FFI::Pointer::NULL ? cstr.call : o), REinaHash.method(:release))
when Hash
ptr = cstr.call
o.each do |k,v| Native.eina_hash_add ptr, k, v end
FFI::AutoPointer.new ptr, REinaHash.method(:release)
else
raise ArgumentError.new "wrong argument #{o.class.name}"
end
)
end
def self.release p
Native.eina_hash_free p
end
def del
@ptr.autorelease=false
EinaHash.release @ptr
@ptr=nil
end
def each data=FFI::Pointer::NULL, &block
return if not block_given?
Native.eina_hash_foreach @ptr, Proc.new{|h,k,v,d| block.call(k,v) }, data
end
def to_h
rh = {}
each { |k,v| rh[k]=v; true }
rh
end
def to_h_conv &block
rh = {}
if block_given?
each { |k,v| rh[block.call(k)]=v; true }
else
each { |k,v| rh[k.read_string]=v; true }
end
rh
end
# for fun and tests
def add k, v
Native.eina_hash_add @ptr, k, v
v
end
alias :[]= :add
def find k
r = Native.eina_hash_find @ptr, k
return ( r==FFI::Pointer::NULL ? nil : r )
end
alias :[] :find
end
end
end
#
# EOF
|
