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")

dalosp.dvd = {   
    get_settings = function (self)
        return { filename = self.extra.filename }
    end,
    
    configure = function (self)
        local dlg = iup.filedlg {
            dialogtype = "Open",
            file = self.extra.filename,
        }
        iup.Popup(dlg)
        if dlg.status ~= -1 then
            local s, v = pcall(dvdabstract, dlg.value)
            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.dvd.configure
        tab.default_name = "DVD"
        tab.ntype = "DVD"
        tab.get_settings = dalosp.dvd.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.dvd = dalosp.dvd.create
dalos:register_obj("DVD", dalos.dvd, "Basic Inputs")