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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#
require 'ffi'
#
module K8055
#
module Native
class K8055Struct < FFI::Struct
layout :dev_no, :int,
:usb_ctx, :pointer,
:usb_handle, :pointer,
:data_in, :pointer,
:data_out, :pointer
end
#
extend FFI::Library
#
ffi_lib 'k8055'
#
typedef :pointer, :k8055_dev
#
[
[ :k8055_alloc, [], :k8055_dev],
[ :k8055_free, [:k8055_dev], :void],
[ :k8055_read, [:k8055_dev], :int],
[ :k8055_write, [:k8055_dev], :int],
[ :k8055_digital_outputs, [:k8055_dev], :int],
[ :k8055_digital_output_1, [:k8055_dev], :int],
[ :k8055_digital_output_2, [:k8055_dev], :int],
[ :k8055_digital_output_3, [:k8055_dev], :int],
[ :k8055_digital_output_4, [:k8055_dev], :int],
[ :k8055_digital_output_5, [:k8055_dev], :int],
[ :k8055_analog_output_1, [:k8055_dev], :int],
[ :k8055_analog_output_2, [:k8055_dev], :int],
[ :k8055_digital_input_1, [:k8055_dev], :int],
[ :k8055_digital_input_2, [:k8055_dev], :int],
[ :k8055_digital_input_3, [:k8055_dev], :int],
[ :k8055_digital_input_4, [:k8055_dev], :int],
[ :k8055_digital_input_5, [:k8055_dev], :int],
[ :k8055_analog_input_1, [:k8055_dev], :int],
[ :k8055_analog_input_2, [:k8055_dev], :int],
[ :k8055_counter_1, [:k8055_dev], :int],
[ :k8055_counter_2, [:k8055_dev], :int],
[ :k8055_version, [], :string],
[ :k8055_set_debug, [:k8055_dev, :int], :int],
[ :k8055_get_debug, [], :int],
[ :k8055_search_devices, [:int], :int],
[ :k8055_open_device, [:k8055_dev,:int], :int],
[ :k8055_close_device, [:k8055_dev], :int],
[ :k8055_set_analog_channel, [:k8055_dev,:int], :int],
[ :k8055_clear_analog_channel, [:k8055_dev,:int], :int],
[ :k8055_read_analog_channel, [:k8055_dev,:int], :int],
[ :k8055_write_analog_channel, [:k8055_dev,:int,:int], :int],
[ :k8055_set_all_analog, [:k8055_dev], :int],
[ :k8055_clear_all_analog, [:k8055_dev], :int],
[ :k8055_read_all_analog, [:k8055_dev,:pointer,:pointer], :int],
[ :k8055_write_all_analog, [:k8055_dev,:int,:int], :int],
[ :k8055_set_digital_channel, [:k8055_dev,:int], :int],
[ :k8055_clear_digital_channel, [:k8055_dev,:int], :int],
[ :k8055_read_digital_channel, [:k8055_dev,:int], :int],
[ :k8055_set_all_digital, [:k8055_dev], :int],
[ :k8055_clear_all_digital, [:k8055_dev], :int],
[ :k8055_read_all_digital, [:k8055_dev], :int],
[ :k8055_write_all_digital, [:k8055_dev,:int], :int],
[ :k8055_write_all_outputs, [:k8055_dev,:int,:int,:int], :int],
[ :k8055_read_all_inputs, [:k8055_dev,:pointer,:pointer,:pointer,:pointer,:pointer], :int],
[ :k8055_reset_counter, [:k8055_dev,:int], :int],
[ :k8055_read_counter, [:k8055_dev,:int], :int]
].each do |func|
begin
attach_function(*func)
rescue Object => e
puts "Could not attach #{func} #{e.message}"
end
end
#
end
#
def self.version
Native.k8055_version
end
#
def self.search_devices
Native.k8055_search_devices
end
#
class K8055
def initialize n=nil
@dev = FFI::AutoPointer.new Native.k8055_alloc, K8055.method(:release)
open n unless n.nil?
end
def self.release p
Native.k8055_free p unless p.nil?
end
def free
Native.k8055_close_device @dev
@dev.autorelease=false if not @dev.nil?
K8055.release @dev
@dev=nil
end
def self.version
Native.k8055_version
end
def k8055_read_all_analog
a1 = FFI::MemoryPointer.new :int
a2 = FFI::MemoryPointer.new :int
Native.k8055_read_all_analog @dev, a1, a2
[ a1.read_int, a2.read_int ]
end
alias :read_all_analog :k8055_read_all_analog
def k8055_read_all_values
a1 = FFI::MemoryPointer.new :int
a2 = FFI::MemoryPointer.new :int
Native.k8055_read_all_analog @dev, a1, a2
[ a1.read_int, a2.read_int ]
end
alias :read_all_values :k8055_read_all_values
def method_missing m, *args, &block
m_s = m.to_s
meth = (
if Native.respond_to? m_s
m_s
elsif Native.respond_to? 'k8055_'+m_s
'k8055_'+m_s
else
nil
end
)
if not meth.nil?
# self.class.class_eval "def #{m} *args, █ r=Native.#{meth}(@dev,*args); yield r if block_given?; r; end"
self.class.class_eval "def #{m} *args, █ Native.#{meth}(@dev,*args); end"
return self.send m, *args, &block
end
Kernel.raise NameError.new "#{self.class.name} is unable to resolve #{m}"
end
end
#
end
#
# EOF
|
