Class: FFI::Tcl::EvalResult

Inherits:
Object show all
Defined in:
lib/ffi-tk/ffi/tcl/eval_result.rb

Overview

This whole class feels very awkward, maybe it should be merged with Obj.

Constant Summary collapse

TYPES = 
{}

Class Method Summary collapse

Instance Method Summary collapse

Class Method Details

.guess(interp, obj, fallback = nil) ⇒ Object 



28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 28

def self.guess(interp, obj, fallback = nil)
  obj = Obj.new(obj) unless obj.respond_to?(:type)
  type = TYPES[obj.type.to_i]

  case type
  when :list
    to_list(interp, obj)
  when :string, :pixel, :cmdName
    to_string(interp, obj)
  when :int
    to_int(interp, obj)
  when :double
    to_double(interp, obj)
  else
    if fallback
      __send__(fallback, interp, obj)
    else
      raise "Unknown type: %p" % [type] if type
      new(interp, obj)
    end
  end
end

.map_list_core(interp, obj) ⇒ Object 



68
69
70
71
72
73
74
75
76
77
78
79
80
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 68

def self.map_list_core(interp, obj)
  result_pointer = MemoryPointer.new(:pointer)
  count_pointer  = MemoryPointer.new(:int)
  length_pointer = MemoryPointer.new(:int)

  Tcl.list_obj_length(interp, obj, count_pointer)
  count = count_pointer.get_int(0)

  (0...count).map do |idx|
    Tcl.list_obj_index(interp, obj, idx, result_pointer)
    yield result_pointer.get_pointer(0)
  end
end

.reset_types(interp) ⇒ Object 



7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 7

def self.reset_types(interp)
  TYPES.clear
  list = Tcl.new_list_obj(0, nil)
  Tcl.append_all_obj_types(interp, list)

  result_pointer = MemoryPointer.new(:pointer)
  count_pointer  = MemoryPointer.new(:int)
  length_pointer = MemoryPointer.new(:int)

  Tcl.list_obj_length(interp, list, count_pointer)
  count = count_pointer.get_int(0)

  (0...count).each do |idx|
    Tcl.list_obj_index(interp, list, idx, result_pointer)
    element_pointer = result_pointer.get_pointer(0)
    name = Tcl.get_string_from_obj(element_pointer, length_pointer)
    type = Tcl.get_obj_type(name)
    TYPES[type.to_i] = name.to_sym
  end
end

.to_boolean(interp, obj) ⇒ Object 



82
83
84
85
86
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 82

def self.to_boolean(interp, obj)
  boolean_pointer = MemoryPointer.new(:int)
  Tcl.get_boolean_from_obj(interp, obj, boolean_pointer)
  boolean_pointer.get_int(0) == 1
end

.to_double(interp, obj) ⇒ Object 



51
52
53
54
55
56
57
58
59
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 51

def self.to_double(interp, obj)
  double_pointer = MemoryPointer.new(:double)

  if Tcl.get_double_from_obj(interp, obj, double_pointer) == 0
    double_pointer.get_double(0)
  else
    raise "Couldn't get double from %p" % [obj]
  end
end

.to_int(interp, obj) ⇒ Object 



88
89
90
91
92
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 88

def self.to_int(interp, obj)
  int_pointer = MemoryPointer.new(:int)
  Tcl.get_int_from_obj(interp, obj, int_pointer)
  int_pointer.get_int(0)
end

.to_list(interp, obj) ⇒ Object 



61
62
63
64
65
66
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 61

def self.to_list(interp, obj)
  map_list_core(interp, obj) do |pointer|
    value = guess(interp, pointer, :to_string)
    block_given? ? yield(value) : value
  end
end

.to_string(interp, obj) ⇒ Object 



94
95
96
97
98
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 94

def self.to_string(interp, obj)
  length_pointer = MemoryPointer.new(:int)
  string = Tcl.get_string_from_obj(obj, length_pointer)
  string.force_encoding(Encoding.default_external)
end

Instance Method Details

#inspect ⇒ Object 



143
144
145
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 143

def inspect
  "#<EvalResult #{to_s}>"
end

#to_a(&block) ⇒ Object 



100
101
102
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 100

def to_a(&block)
  self.class.to_list(interp, obj, &block)
end

#to_a?(&block) ⇒ Boolean

Returns:

  • (Boolean) 


104
105
106
107
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 104

def to_a?(&block)
  value = self.class.to_list(interp, obj, &block)
  value.empty? ? nil : value
end

#to_boolean ⇒ Object 



135
136
137
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 135

def to_boolean
  self.class.to_boolean(interp, obj)
end

#to_f ⇒ Object 



122
123
124
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 122

def to_f
  self.class.to_double(interp, obj)
end

#to_i ⇒ Object 



118
119
120
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 118

def to_i
  self.class.to_int(interp, obj)
end

#to_s ⇒ Object 



126
127
128
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 126

def to_s
  self.class.to_string(interp, obj)
end

#to_s? ⇒ Boolean

Returns:

  • (Boolean) 


130
131
132
133
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 130

def to_s?
  value = self.class.to_string(interp, obj)
  value.empty? ? nil : value
end

#to_sym ⇒ Object 



109
110
111
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 109

def to_sym
  self.class.to_string(interp, obj).to_sym
end

#to_sym? ⇒ Boolean

Returns:

  • (Boolean) 


113
114
115
116
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 113

def to_sym?
  value = self.class.to_string(interp, obj).to_sym
  value.empty? ? nil : value.to_sym
end

#to_tcl ⇒ Object 



139
140
141
 
# File 'lib/ffi-tk/ffi/tcl/eval_result.rb', line 139

def to_tcl
  to_s.to_tcl
end