gir_ffi 0.10.2 → 0.11.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 87a8f4c01010d8c1d510e080f58ebc0cc601b163
-  data.tar.gz: 25eae9388e40ac27eb7724ca335d21c5a6dd0b80
+  metadata.gz: 40ea5b819bf924354aa3422d6d50f16b273c2da6
+  data.tar.gz: 6da1f53d118bca0abccf87a2e4540bc6dc0f879f
 SHA512:
-  metadata.gz: 7c045bfc9d552fc6fec83cfe4aa222f123c3df3bd0327b0768f247ff3257d31debf9da3704523d95c6601c3a09afddb6d743d23ef8f4f74af2242d5bd78915e2
-  data.tar.gz: 16e9ebda8c005d7b9363f76d4a8a9c79e5fc26ab07298f27f087c688fd955db771b762bd0c9e6e9ec2b92653573fbdb52d29e395a630aee81814cb09ac0b97a7
+  metadata.gz: c2bc2ce1e2c881277554af8fe4e4b937518761f218b920442f56c0974caf67721751b2aee983acb02737e029fde356c5bbe71106bab0c73bf42311bd10021987
+  data.tar.gz: 0fe6972ea1da4b0dddd910efb36aeae78940bd4a3de5812b4e1dbe64fde8bd74795739e639f7bc17620121f37fe63a1e10a04559bf0d567d4c7aa13a1c440525

data/Changelog.md

@@ -1,5 +1,18 @@
 # Changelog
 
+## 0.11.0 / 2016-10-16
+
+* Internal test and code improvements. Some internal APIs have been removed or
+  changed.
+* Make Strv#each thread-safe.
+* Drop support for CRuby 2.0.
+* Move type_init and base Strv implementation into GObjectIntrospection, making
+  it stand-alone.
+* Move GLib::Boolean to GirFFI::Boolean.
+* Guard against instantiating abstract classes using the default constructor.
+* Handle user-defined properties containing dashes
+* Handle user-defined properties of a large number of types
+
 ## 0.10.2 / 2016-04-29
 
 * Update ffi-bit_masks dependency and remove monkey-patch

data/Gemfile

@@ -4,13 +4,18 @@ source 'https://rubygems.org'
 # The gem's dependencies are specified in gir_ffi.gemspec
 gemspec
 
-gem 'rubocop', '~> 0.39.0', type: :development
+gem 'rubocop', '~> 0.43.0', group: :development
+
+gem 'mutant', git: 'https://github.com/mbj/mutant.git',
+              branch: 'feature/minitest-integration',
+              platform: :mri_23,
+              group: :development
 
 if ENV['CI']
   if ENV['TRAVIS_RUBY_VERSION'] == '2.2'
-    gem 'coveralls', type: :development
+    gem 'coveralls', group: :development
   end
 else
-  gem 'simplecov', '~> 0.11.0', type: :development, platform: :mri
-  gem 'pry', '~> 0.10.0', type: :development
+  gem 'simplecov', '~> 0.12.0', group: :development, platform: :mri
+  gem 'pry', '~> 0.10.0', group: :development
 end

data/README.md

@@ -53,7 +53,7 @@ examples can be found in `gir_ffi-gtk` and `gir_ffi-gst`.
 
 ## Requirements
 
-GirFFI is tested on CRuby 2.0.0, 2.1, 2.2 and 2.3, JRuby 9.0.0.0, and on
+GirFFI is tested on CRuby 2.1, 2.2 and 2.3, JRuby 9.0 and 9.1, and on
 Rubinius 3.
 
 You will also need gobject-introspection installed with some
@@ -70,10 +70,11 @@ On Debian and Ubuntu, installing `libgirepository1.0-1` and `gir1.2-glib-2.0`
 should be enough to use GirFFI in your application.
 
 To run the tests, you should additionally install `libgirepository1.0-dev`,
-`gobject-introspection`, `gir1.2-gtop-2.0`, `gir1.2-pango-1.0`,
+`libcairo2-dev`, `gobject-introspection`, `gir1.2-gtop-2.0`, `gir1.2-pango-1.0`,
 `gir1.2-secret-1` and `gir1.2-gstreamer-1.0`. This should be enough to get
 `rake test` working.
 
+
 GirFFI has not been tested on Mac OS X or Microsoft Windows. YMMV.
 
 ## Overrides

data/Rakefile

@@ -4,5 +4,6 @@ require 'bundler/gem_tasks'
 load 'tasks/rubocop.rake'
 load 'tasks/test.rake'
 
-task default: :test
+task default: 'test:all'
+task default: 'test:features'
 task default: :rubocop unless RUBY_ENGINE == 'rbx'

data/lib/ffi-glib/byte_array.rb

@@ -5,7 +5,7 @@ module GLib
   # Overrides for GByteArray, GLib's automatically growing array of bytes.
   class ByteArray
     def to_string
-      GirFFI::ArgHelper.ptr_to_utf8_length @struct[:data], @struct[:len]
+      data.read_string len
     end
 
     def append(data)

data/lib/ffi-glib/main_loop.rb

@@ -54,7 +54,8 @@ module GLib
     end
 
     def self.handle_exception(ex)
-      raise ex unless (current_loop = RUNNING_LOOPS.last)
+      current_loop = RUNNING_LOOPS.last
+      raise ex unless current_loop
       EXCEPTIONS << ex
       current_loop.quit
     end

data/lib/ffi-glib/strv.rb

@@ -1,7 +1,10 @@
 # frozen_string_literal: true
 module GLib
-  # Extra methods for GLib::Strv. The bulk is defined in `gir_ffi-base/glib/strv.rb`
-  class Strv
+  # Represents a null-terminated array of strings. GLib uses this construction,
+  # but does not provide any actual functions for this class.
+  #
+  # The implementation is mainly inherited from GObjectIntrospection::Strv.
+  class Strv < GObjectIntrospection::Strv
     def ==(other)
       to_a == other.to_a
     end

data/lib/ffi-glib/variant.rb

@@ -19,15 +19,13 @@ module GLib
     # NOTE: This is very hard to test since it is not possible to get the
     # variant's ref count directely. However, there is an error when running
     # the tests on 32-bit systems.
-    # TODO: Move this logic elsewhere
+    #
     def store_pointer(ptr)
+      Lib.g_variant_ref_sink ptr
       super
-
-      # TODO: Ensure ptr is not autorelease
-      ::GLib::Lib.g_variant_ref_sink ptr
     end
 
-    # TODO: Update ref?
+    # For variants, wrap_copy does not do any copying.
     def self.wrap_copy(val)
       wrap(val)
     end

data/lib/ffi-glib.rb

@@ -1,4 +1,8 @@
 # frozen_string_literal: true
+
+# Ensure GLib is defined by GirFFI itself
+raise 'The module GLib was already defined elsewhere' if Kernel.const_defined? :GLib
+
 require 'gir_ffi/core'
 
 # Bypass check for existing modules

data/lib/ffi-gobject/closure.rb

@@ -13,7 +13,7 @@ module GObject
     #
     # @param [Proc] marshal The marshaller to use for this closure object
     def set_marshal(marshal)
-      callback = GObject::ClosureMarshal.from marshal
+      callback = ClosureMarshal.from marshal
       Lib.g_closure_set_marshal self, callback
     end
 
@@ -25,22 +25,20 @@ module GObject
     #
     # @param [GObject::Value] return_value The GValue to store the return
     #   value, or nil if no return value is expected.
-    # @param [Array] param_values the closure parameters, or nil if no
-    #   parameters are needed.
-    # @param invocation_hint
-    def invoke(return_value, param_values, invocation_hint = nil)
-      rval = GObject::Value.from(return_value)
-      n_params = param_values.nil? ? 0 : param_values.length
-      params = GirFFI::SizedArray.from(GObject::Value, -1, param_values)
-      GObject::Lib.g_closure_invoke self, rval, n_params, params, invocation_hint
+    # @param [Array] param_values the closure parameters.
+    def invoke(return_value, param_values)
+      rval = Value.from(return_value)
+      n_params = param_values.length
+      params = GirFFI::SizedArray.from(Value, -1, param_values)
+      Lib.g_closure_invoke self, rval, n_params, params, nil
       rval.get_value
     end
 
     def store_pointer(ptr)
-      super
       # NOTE: Call C functions directly to avoid extra argument conversion
       Lib.g_closure_ref ptr
       Lib.g_closure_sink ptr
+      super
     end
   end
 end

data/lib/ffi-gobject/object.rb

@@ -35,14 +35,13 @@ module GObject
 
     def store_pointer(ptr)
       super
-      klass = self.class
-      ObjectSpace.define_finalizer self, klass.make_finalizer(ptr, klass.name)
+      ObjectSpace.define_finalizer self, self.class.make_finalizer(ptr)
     end
 
-    def self.make_finalizer(ptr, name)
+    def self.make_finalizer(ptr)
       proc do
         rc = GObject::Object::Struct.new(ptr)[:ref_count]
-        if rc == 0
+        if rc.zero?
           warn "not unreffing #{name}:#{ptr} (#{rc})"
         else
           GObject::Lib.g_object_unref ptr
@@ -61,6 +60,10 @@ module GObject
       super
     end
 
+    def respond_to_missing?(*)
+      false
+    end
+
     def signal_connect(event, data = nil, &block)
       GObject.signal_connect(self, event, data, &block)
     end
@@ -127,7 +130,7 @@ module GObject
         raise GirFFI::PropertyNotFoundError.new(property_name, self.class)
     end
 
-    # TODO: Move to ITypeInfo
+    # TODO: Move to ITypeInfo and unify with ArgHelper.cast_from_pointer
     def property_value_post_conversion(val, type_info)
       case type_info.flattened_tag
       when :ghash
@@ -141,7 +144,7 @@ module GObject
       end
     end
 
-    # TODO: Move to ITypeInfo
+    # TODO: Move to ITypeInfo and unify with ArgHelper.cast_from_pointer
     def property_value_pre_conversion(val, type_info)
       case type_info.flattened_tag
       when :ghash

data/lib/ffi-gobject/param_spec.rb

@@ -8,5 +8,9 @@ module GObject
       Lib.g_param_spec_ref self
       self
     end
+
+    def accessor_name
+      get_name.tr('-', '_')
+    end
   end
 end

data/lib/ffi-gobject/value.rb

@@ -6,18 +6,23 @@ module GObject
   class Value
     remove_method :init
 
+    def initialize
+      super
+      struct.owned = true
+      to_ptr.autorelease = nil
+    end
+
     def init(type)
       Lib.g_value_init self, type unless [TYPE_NONE, TYPE_INVALID].include? type
       self
     end
 
-    def self.make_finalizer(struct, gtype)
+    def self.make_finalizer(struct)
       proc do
-        ptr = struct.to_ptr
-        if ptr.autorelease?
-          ptr.autorelease = false
+        if struct.owned?
+          ptr = struct.to_ptr
           unless struct[:g_type] == TYPE_INVALID
-            GObject::Lib.g_value_unset ptr
+            Lib.g_value_unset ptr
           end
           GObject.boxed_free gtype, ptr
         end
@@ -110,17 +115,9 @@ module GObject
     end
 
     def self.copy_value_to_pointer(value, pointer, offset = 0)
-      super(value, pointer, offset).tap do
-        # FIXME: Check if this is still needed.
-        value.to_ptr.autorelease = false if value
-      end
-    end
-
-    def self.copy(val)
-      return unless val
-      result = for_gtype(val.current_gtype)
-      Lib.g_value_copy val, result unless val.uninitialized?
-      result
+      target = wrap(pointer + offset)
+      target.init(value.current_gtype)
+      Lib.g_value_copy value, target unless value.uninitialized?
     end
 
     def uninitialized?

data/lib/ffi-gobject_introspection/gobject_type_init.rb

@@ -0,0 +1,18 @@
+# frozen_string_literal: true
+require 'ffi'
+
+module GObjectIntrospection
+  # Provides access to the g_type_init function.
+  module GObjectTypeInit
+    def self.type_init
+      Lib.g_type_init
+    end
+
+    # Module for attaching g_type_init from the gobject library.
+    module Lib
+      extend FFI::Library
+      ffi_lib 'gobject-2.0'
+      attach_function :g_type_init, [], :void
+    end
+  end
+end

data/lib/ffi-gobject_introspection/i_callable_info.rb

@@ -38,11 +38,7 @@ module GObjectIntrospection
     end
 
     def instance_ownership_transfer
-      if VERSION >= '1.42'
-        Lib.g_callable_info_get_instance_ownership_transfer @gobj
-      else
-        :nothing
-      end
+      Lib.g_callable_info_get_instance_ownership_transfer @gobj
     end
   end
 end

data/lib/ffi-gobject_introspection/i_constant_info.rb

@@ -21,14 +21,14 @@ module GObjectIntrospection
       when :utf8
         raw_value.force_encoding('utf-8')
       when :gboolean
-        raw_value != 0
+        raw_value.nonzero? ? true : false
       else
         raw_value
       end
     end
 
     def constant_type
-      ITypeInfo.wrap Lib.g_constant_info_get_type(@gobj)
+      ITypeInfo.wrap Lib.g_constant_info_get_type self
     end
 
     private
@@ -39,7 +39,7 @@ module GObjectIntrospection
 
     def raw_value
       value_union = Lib::GIArgument.new
-      Lib.g_constant_info_get_value @gobj, value_union
+      Lib.g_constant_info_get_value self, value_union
       value_union[union_member_key]
     end
 

data/lib/ffi-gobject_introspection/i_repository.rb

@@ -2,58 +2,14 @@
 require 'singleton'
 
 require 'ffi-gobject_introspection/lib'
+require 'ffi-gobject_introspection/strv'
 require 'ffi-gobject_introspection/g_error'
-require 'ffi-gobject_introspection/i_base_info'
-require 'ffi-gobject_introspection/i_callable_info'
-require 'ffi-gobject_introspection/i_callback_info'
-require 'ffi-gobject_introspection/i_function_info'
-require 'ffi-gobject_introspection/i_constant_info'
-require 'ffi-gobject_introspection/i_field_info'
-require 'ffi-gobject_introspection/i_registered_type_info'
-require 'ffi-gobject_introspection/i_interface_info'
-require 'ffi-gobject_introspection/i_property_info'
-require 'ffi-gobject_introspection/i_vfunc_info'
-require 'ffi-gobject_introspection/i_signal_info'
-require 'ffi-gobject_introspection/i_object_info'
-require 'ffi-gobject_introspection/i_struct_info'
-require 'ffi-gobject_introspection/i_value_info'
-require 'ffi-gobject_introspection/i_union_info'
-require 'ffi-gobject_introspection/i_enum_info'
-require 'ffi-gobject_introspection/i_flags_info'
-require 'ffi-gobject_introspection/i_unresolved_info'
 
 module GObjectIntrospection
   # The Gobject Introspection Repository. This class is the point of
   # access to the introspection typelibs.
   # This class wraps the GIRepository struct.
   class IRepository
-    # Map info type to class. Default is IBaseInfo.
-    # SMELL: This doesn't really belong here, since it is used by IBaseInfo and
-    # descendants as well.
-    TYPEMAP = {
-      invalid:                  IBaseInfo,
-      function:                 IFunctionInfo,
-      callback:                 ICallbackInfo,
-      struct:                   IStructInfo,
-      # TODO: There's no GIBoxedInfo, so what does :boxed mean?
-      boxed:                    IBaseInfo,
-      enum:                     IEnumInfo,
-      flags:                    IFlagsInfo,
-      object:                   IObjectInfo,
-      interface:                IInterfaceInfo,
-      constant:                 IConstantInfo,
-      invalid_was_error_domain: IBaseInfo,
-      union:                    IUnionInfo,
-      value:                    IValueInfo,
-      signal:                   ISignalInfo,
-      vfunc:                    IVFuncInfo,
-      property:                 IPropertyInfo,
-      field:                    IFieldInfo,
-      arg:                      IArgInfo,
-      type:                     ITypeInfo,
-      unresolved:               IUnresolvedInfo
-    }.freeze
-
     def initialize
       @gobj = Lib.g_irepository_get_default
     end
@@ -101,13 +57,13 @@ module GObjectIntrospection
     end
 
     def find_by_gtype(gtype)
-      raise ArgumentError, "Type #{gtype} is not a valid type" if gtype == 0
+      raise ArgumentError, "Type #{gtype} is not a valid type" if gtype.zero?
       wrap_info Lib.g_irepository_find_by_gtype(@gobj, gtype)
     end
 
     def dependencies(namespace)
       strv_p = Lib.g_irepository_get_dependencies(@gobj, namespace)
-      strv = GLib::Strv.new strv_p
+      strv = Strv.new strv_p
       strv.to_a
     end
 

data/lib/ffi-gobject_introspection/i_vfunc_info.rb

@@ -4,23 +4,15 @@ module GObjectIntrospection
   # Represents a virtual function.
   class IVFuncInfo < ICallableInfo
     def flags
-      Lib.g_vfunc_info_get_flags @gobj
+      Lib.g_vfunc_info_get_flags self
     end
 
     def throws?
-      flags & 8 != 0
-    end
-
-    def offset
-      Lib.g_vfunc_info_get_offset @gobj
-    end
-
-    def signal
-      ISignalInfo.wrap Lib.g_vfunc_info_get_signal(@gobj)
+      flags.fetch :throws
     end
 
     def invoker
-      IFunctionInfo.wrap Lib.g_vfunc_info_get_invoker(@gobj)
+      IFunctionInfo.wrap Lib.g_vfunc_info_get_invoker self
     end
   end
 end

data/lib/ffi-gobject_introspection/lib.rb

@@ -9,25 +9,6 @@ module GObjectIntrospection
     extend FFI::BitMasks
     ffi_lib 'girepository-1.0'
 
-    # Helper class to support guessing the gobject-introspection version.
-    # Provide several guesses to #provide_guess, and the result in #best_guess
-    # will be the best (i.e., lowest) guess.
-    class VersionGuesser
-      def initialize(base)
-        @guess = base
-      end
-
-      def provide_guess(guessed)
-        @guess = guessed if guessed < @guess
-      end
-
-      def best_guess
-        @guess
-      end
-    end
-
-    version_guesser = VersionGuesser.new('1.42')
-
     # IRepository
     enum :IRepositoryLoadFlags, [:LAZY, (1 << 0)]
 
@@ -102,17 +83,12 @@ module GObjectIntrospection
     attach_function :g_callable_info_get_caller_owns, [:pointer], :ITransfer
     attach_function :g_callable_info_may_return_null, [:pointer], :bool
     attach_function :g_callable_info_can_throw_gerror, [:pointer], :bool
+    attach_function :g_callable_info_get_instance_ownership_transfer,
+                    [:pointer], :ITransfer
     attach_function :g_callable_info_get_n_args, [:pointer], :int
     attach_function :g_callable_info_get_arg, [:pointer, :int], :pointer
     attach_function :g_callable_info_skip_return, [:pointer], :bool
 
-    begin
-      attach_function :g_callable_info_get_instance_ownership_transfer,
-                      [:pointer], :ITransfer
-    rescue FFI::NotFoundError
-      version_guesser.provide_guess '1.40'
-    end
-
     # IArgInfo
     enum :IDirection, [
       :in,
@@ -242,10 +218,13 @@ module GObjectIntrospection
     attach_function :g_object_info_get_fundamental, [:pointer], :bool
 
     # IVFuncInfo
+    bit_mask :IVFuncInfoFlags,
+             must_chain_up:     (1 << 0),
+             must_override:     (1 << 1),
+             must_not_override: (1 << 2),
+             throws:            (1 << 3)
 
-    attach_function :g_vfunc_info_get_flags, [:pointer], :int
-    attach_function :g_vfunc_info_get_offset, [:pointer], :int
-    attach_function :g_vfunc_info_get_signal, [:pointer], :pointer
+    attach_function :g_vfunc_info_get_flags, [:pointer], :IVFuncInfoFlags
     attach_function :g_vfunc_info_get_invoker, [:pointer], :pointer
 
     # IInterfaceInfo
@@ -309,7 +288,5 @@ module GObjectIntrospection
              construct_only: (1 << 3)
 
     attach_function :g_property_info_get_flags, [:pointer], :ParamFlags
-
-    ::GObjectIntrospection::VERSION = version_guesser.best_guess
   end
 end

data/lib/{gir_ffi-base/glib → ffi-gobject_introspection}/strv.rb

@@ -1,9 +1,9 @@
 # frozen_string_literal: true
 require 'ffi'
-require 'gir_ffi-base/glib'
 
-module GLib
-  # Represents a null-terminated array of strings. GLib uses this
+module GObjectIntrospection
+  # Represents a null-terminated array of strings.
+  # GLib uses this
   # construction, but does not provide any actual functions for this class.
   class Strv
     include Enumerable
@@ -19,9 +19,9 @@ module GLib
     end
 
     def each
-      return if @ptr.null?
-      reset_iterator
-      while (ptr = next_ptr)
+      offset = 0
+      while (ptr = fetch_ptr offset)
+        offset += POINTER_SIZE
         yield ptr.read_string
       end
     end
@@ -32,13 +32,9 @@ module GLib
 
     private
 
-    def reset_iterator
-      @offset = 0
-    end
-
-    def next_ptr
-      ptr = @ptr.get_pointer @offset
-      @offset += POINTER_SIZE
+    def fetch_ptr(offset)
+      return if @ptr.null?
+      ptr = @ptr.get_pointer offset
       ptr unless ptr.null?
     end
   end

data/lib/ffi-gobject_introspection.rb

@@ -1,6 +1,51 @@
 # frozen_string_literal: true
-require 'gir_ffi-base'
+require 'ffi-gobject_introspection/gobject_type_init'
+GObjectIntrospection::GObjectTypeInit.type_init
 
-GObject.type_init
+require 'ffi-gobject_introspection/i_base_info'
+require 'ffi-gobject_introspection/i_callable_info'
+require 'ffi-gobject_introspection/i_callback_info'
+require 'ffi-gobject_introspection/i_function_info'
+require 'ffi-gobject_introspection/i_constant_info'
+require 'ffi-gobject_introspection/i_field_info'
+require 'ffi-gobject_introspection/i_registered_type_info'
+require 'ffi-gobject_introspection/i_interface_info'
+require 'ffi-gobject_introspection/i_property_info'
+require 'ffi-gobject_introspection/i_vfunc_info'
+require 'ffi-gobject_introspection/i_signal_info'
+require 'ffi-gobject_introspection/i_object_info'
+require 'ffi-gobject_introspection/i_struct_info'
+require 'ffi-gobject_introspection/i_value_info'
+require 'ffi-gobject_introspection/i_union_info'
+require 'ffi-gobject_introspection/i_enum_info'
+require 'ffi-gobject_introspection/i_flags_info'
+require 'ffi-gobject_introspection/i_unresolved_info'
+
+module GObjectIntrospection
+  # Map info type to class. Default is IBaseInfo.
+  TYPEMAP = {
+    invalid:                  IBaseInfo,
+    function:                 IFunctionInfo,
+    callback:                 ICallbackInfo,
+    struct:                   IStructInfo,
+    # TODO: There's no GIBoxedInfo, so what does :boxed mean?
+    boxed:                    IBaseInfo,
+    enum:                     IEnumInfo,
+    flags:                    IFlagsInfo,
+    object:                   IObjectInfo,
+    interface:                IInterfaceInfo,
+    constant:                 IConstantInfo,
+    invalid_was_error_domain: IBaseInfo,
+    union:                    IUnionInfo,
+    value:                    IValueInfo,
+    signal:                   ISignalInfo,
+    vfunc:                    IVFuncInfo,
+    property:                 IPropertyInfo,
+    field:                    IFieldInfo,
+    arg:                      IArgInfo,
+    type:                     ITypeInfo,
+    unresolved:               IUnresolvedInfo
+  }.freeze
+end
 
 require 'ffi-gobject_introspection/i_repository'

data/lib/gir_ffi/allocation_helper.rb

@@ -2,26 +2,8 @@
 require 'gir_ffi/lib_c'
 
 module GirFFI
-  # Helper module providing a safe allocation method that raises an exception
-  # if memory cannot be allocated.
+  # Helper module for alloction-related functionality.
   module AllocationHelper
-    # NOTE: It would be preferable to use FFI::MemoryPointer.new(size), but
-    # there is a bug in FFI which means this gives a problem:
-    #   # let ptr be a pointer not allocated by FFI.
-    #   ptr2 = FFI::MemoryPointer.new(1)
-    #   ptr.put_pointer ptr2 # This raises an out-of-bounds error.
-    # This occurs in method_int8_arg_and_out_callee
-    def self.safe_malloc(size)
-      ptr = LibC.malloc size
-      raise NoMemoryError if ptr.null?
-      ptr
-    end
-
-    def self.allocate(type)
-      type_size = FFI.type_size type
-      safe_malloc(type_size)
-    end
-
     def self.free_after(ptr)
       result = yield ptr
       LibC.free ptr unless ptr.null?