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
|
load "iupe-hexview.lua"
load "iupe-hexview-toolbox.lua"
dalosp.hexview = {
activate = function (self)
self.extra.hvdlg:show()
end,
input_change = function (self, ind)
local extra = self.extra
local hv = extra.hv
local h = self:get_linked_input(ind)
if not h then
self.color = cd.YELLOW
hv:updatehandle(nil)
self.dcanvas:draw()
return
end
if not h:canread() or not h:canseek() then
self.color = cd.RED
hv:updatehandle(nil)
self.dcanvas:draw()
return
end
self.color = cd.GREEN
for i = 1, 12 do
self:set_houtput(nil, i)
self.oldcursors[i] = -1
end
hv:updatehandle(h)
self.dcanvas:draw()
end,
configure = function (self)
end,
output_change = function (self, ind)
self.watchees[ind] = self.outputs[ind] and true or false
end,
update_houtput = function (self, ind, cursor)
local h = self:get_linked_input(1)
local maxsixe = h and h:getsize() or -1
if h and self.watchees[ind] then
if cursor < maxsize then
self:set_houtput(nil, ind)
end
local obj = {
h = h,
hvo = self,
ind = ind,
origin = cursor,
size = maxsize - cursor,
getname = function (self) return self.hvo.name .. ":" .. self.ind end,
getmodif = function (self) return self.hvo:getmodif() end,
do_seek = function (self)
self.h:seek(self.offset + self.origin)
end,
do_read = function (self, userdata, count)
return self.h:read(count, userdata)
end,
}
self:set_houtput(dalos.luahandle(obj), ind)
end
end,
dalos_hv_cb = function (self, hv, reset)
local m
for i = 1, 10 do
m = hv.markers[i]
if self.oldcursors[i] ~= m then
self:update_houtput(i, m)
self.oldcursors[i] = m
end
end
m = hv.kcursor
if self.oldcursors[11] ~= m then
self:update_houtput(11, m)
self.oldcursors[11] = m
end
m = hv.mcursor
if self.oldcursors[12] ~= m then
self:update_houtput(12, m)
self.oldcursors[12] = m
end
end,
create = function (d, tab)
tab.otype = dalos.objtype.LUA_FILTER
tab.activate = dalosp.hexview.activate
tab.input_change = dalosp.hexview.input_change
tab.output_change = dalosp.hexview.output_change
tab.configure = dalosp.hexview.configure
tab.ninputs = 1
tab.noutputs = 12
tab.default_name = "Hexview"
local extra = { }
local obj = dalos.object(d, tab, extra)
local hv = iupe.hexview { }
local hvtb = iupe.hexview_toolbox { hexview = hv }
local hvdlg = iup.dialog { iup.hbox { iup.frame { hv }, iup.sbox { direction = "WEST", hvtb } }, title = obj.name }
extra.hv = hv
extra.hvtb = hvtb
extra.hvdlg = hvdlg
obj.oldcursors = { }
obj.watchees = { }
obj.update_houtput = dalosp.hexview.update_houtput
for i = 1, 12 do obj.oldcursors[i] = -1 end
hv:registercb(dalosp.hexview.dalos_hv_cb, obj)
return obj
end,
}
dalos.hexview = dalosp.hexview.create
dalos:register_obj("Hexview", dalos.hexview)
|