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
|
loadmodule "luacd"
dalosp.cd = {
get_settings = function (self)
return { filename = self.extra.filename }
end,
configure = function (self)
local drives_list = self.extra.drives_list
local list = ""
for i, v in ipairs(drives_list) do
list = list .. v .. "|"
end
local s, id = iup.GetParam("CD drive", nil, "CD drive: %l|" .. list .. "\n", 0)
if s then
self.extra.filename = "cd:" .. drives_list[id + 1]
local s, v = pcall(cdabstract, self.extra.filename)
if s then
self:set_houtput(v)
return
end
end
self:set_houtput(nil)
end,
create = function (d, tab, settings)
tab.ninputs = 0
tab.noutputs = 1
tab.otype = dalos.objtype.HANDLE
tab.configure = dalosp.cd.configure
tab.default_name = "CD"
tab.ntype = "CD"
tab.get_settings = dalosp.cd.get_settings
local extra = { drives_list = cdprobe() }
if settings then extra.filename = settings.filename end
local obj = dalos.object(d, tab, extra)
if extra.filename then
local s, v = pcall(cdabstract, extra.filename)
if s then obj:set_houtput(v) end
end
return obj
end,
}
dalos.cd = dalosp.cd.create
dalos:register_obj("CD", dalos.cd, "Basic Inputs")
|
