Merge branch 'master' of asynk.ch:ffi-efl

1 files changed, 43 insertions, 0 deletions

diff --git a/lib/efl/elm/elm_store.rb b/lib/efl/elm/elm_store.rb
new file mode 100644
index 0000000..625232a
--- /dev/null
+++ b/lib/efl/elm/elm_store.rb
@@ -0,0 +1,43 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl'
+require 'efl/native/elm/elm_store'
+#
+module Efl
+    #
+    module Elm
+        #
+        class ElmStore
+            #
+            include Efl::ClassHelper
+            search_prefixes 'elm_store_'
+            #
+            def initialize o=nil, &block
+                @ptr = (
+                    case o
+                    when NilClass
+                        FFI::AutoPointer.new Native.elm_store_filesystem_new, ElmStore.method(:release)
+                    when FFI::Pointer
+                        o
+                    else
+                        raise ArgumentError.new "wrong argument #{o.class.name}"
+                    end
+                )
+                instance_eval &block if block
+            end
+            def self.release p
+                Native.elm_store_free p
+            end
+            def free
+                @ptr.autorelease=false if @ptr.is_a? FFI::AutoPointer
+                ElmStore.release @ptr
+                @ptr=nil
+            end
+            #
+        end
+        #
+    end
+end
+#
+# EOF