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
72
73
74
75
76
|
#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#
require 'efl/ffi/eina_list'
#
class Array
def self.from_eina_list o
if o.is_a? Efl::EinaList::REinaList
o.to_ary
elsif o.is_a? FFI::Pointer
Efl::EinaList::REinaList.new(o).to_ary
else
raise ArgumentError.new "wrong argument #{o.class.name}"
end
end
end
module Efl
module EinaList
#
class EinaListStruct < FFI::Struct
layout :data, :pointer,
:next, :pointer,
:prev, :pointer,
:accounting, :pointer,
:magic, :uint,
end
#
class REinaList
include Enumerable
include Efl::ClassHelper
@search_paths = [ [Efl::EinaList,'eina_list_'].freeze ]
def initialize o=nil
@ptr = (
case o
when FFI::Pointer
o
when NilClass
FFI::Pointer::NULL
when self.class
o.ptr
when Array
o.inject(FFI::Pointer::NULL) { |p,e| Efl::EinaList.eina_list_append p, e }
else
raise ArgumentError.new "wrong argument #{o.class.name}"
end
)
end
def free
return if @ptr==FFI::Pointer::NULL
@ptr = Efl::EinaList.eina_list_free @ptr
end
def each
p = @ptr
while p!=::FFI::Pointer::NULL
l = Efl::EinaList::EinaListStruct.new p
yield l[:data]
p = l[:next]
end
end
def to_ary
inject([]) { |s,e| s<<e }
end
# for fun and tests
def append p
@ptr = Efl::EinaList.eina_list_append @ptr, p
end
alias :<< :append
def prepend p
@ptr = Efl::EinaList.eina_list_prepend @ptr, p
end
alias :unshift :prepend
end
end
end
#
# EOF
|
