class GirFFI::InOutPointer

# File lib/gir_ffi/in_out_pointer.rb, line 60
def adjust_value_in type, value
  case type
  when :gboolean
    (value ? 1 : 0)
  when :utf8
    InPointer.from :utf8, value
  else
    value
  end
end

# File lib/gir_ffi/in_out_pointer.rb, line 29
def self.for type, sub_type=nil
  ffi_type = TypeMap.map_basic_type_or_string type
  ptr = AllocationHelper.safe_malloc(FFI.type_size ffi_type)
  ptr.send "put_#{ffi_type}", 0, nil_value_for(type)
  self.new ptr, type, ffi_type, sub_type
end

# File lib/gir_ffi/in_out_pointer.rb, line 55
def self.for_array type
  self.for :pointer, type
end

# File lib/gir_ffi/in_out_pointer.rb, line 36
def self.from type, value, sub_type=nil
  if Array === type
    arr_t, sub_t = *type
    # TODO: Take array type into account (zero-terminated or not)
    return self.from_array sub_t, value
  end
  value = adjust_value_in type, value
  ffi_type = TypeMap.map_basic_type_or_string type
  ptr = AllocationHelper.safe_malloc(FFI.type_size ffi_type)
  ptr.send "put_#{ffi_type}", 0, value
  self.new ptr, type, ffi_type, sub_type
end

# File lib/gir_ffi/in_out_pointer.rb, line 49
def self.from_array type, array
  return nil if array.nil?
  ptr = InPointer.from_array(type, array)
  self.from :pointer, ptr, type
end

# File lib/gir_ffi/in_out_pointer.rb, line 7
def initialize ptr, type, ffi_type, sub_type=nil
  super ptr
  @ffi_type = ffi_type
  @value_type = type
  @sub_type = sub_type
end

# File lib/gir_ffi/in_out_pointer.rb, line 71
def nil_value_for type
  case type
  when :utf8, :pointer
    nil
  else
    0
  end
end

# File lib/gir_ffi/in_out_pointer.rb, line 21
def to_sized_array_value size
  # FIXME: Simulated Polymorphism.
  raise "Not allowed" if @value_type != :pointer or @sub_type.nil?
  block = self.read_pointer
  return nil if block.null?
  ArgHelper.ptr_to_typed_array @sub_type, block, size
end

# File lib/gir_ffi/in_out_pointer.rb, line 16
def to_value
  value = self.send "get_#{@ffi_type}", 0
  adjust_value_out value
end