From 90971ef3657ddac80eb02820fcc09f6befe2f74c Mon Sep 17 00:00:00 2001 From: Pixel Date: Thu, 7 Jan 2010 11:23:58 -0800 Subject: Adding Baha's isoviewer in a basic state. --- dalos-isoviewer.lua | 292 ++++++++++++++++++++++++++++++++++++++++++++++++++++ dalos.lua | 1 + 2 files changed, 293 insertions(+) create mode 100644 dalos-isoviewer.lua diff --git a/dalos-isoviewer.lua b/dalos-isoviewer.lua new file mode 100644 index 0000000..ebd0433 --- /dev/null +++ b/dalos-isoviewer.lua @@ -0,0 +1,292 @@ +loadmodule "luacd" + +local controlTree +local controlList +local controlListComplete +local currentDir +local ISOElements + +dalosp.isoviewer = { + completeSpace = function (self, text, size, alignment) + local newtext = "" + + if alignment == "right" then + for j = size, string.len(text) + 1, -1 do + newtext = newtext .. " " + end + newtext = newtext .. text + else + newtext = text + for j = size, string.len(text) + 1, -1 do + newtext = newtext .. " " + end + end + + return newtext + end, + + fillList = function (self, List, arg_dir) + local arg_root + local index = 1 + local currentDir = {} + local cdutil = self.cdutil + + List[1] = NULL + + local root = cdutil:findpath(arg_dir) + + for name, dir in root:iterate(cdutil) do + if name ~= "." and name ~= ".." then + local elem + if dir:isdir() then + elem = { + Name = name, + Size = dir.Size, + Sector = dir.Sector, + TypeFile = "File Folder", + DateFile = string.format('%02d', dir.Day) .. "/" .. string.format('%02d', dir.Month) .. "/" .. dir.Year .. " " .. string.format('%02d', dir.Hour) .. ":" .. string.format('%02d', dir.Minute) .. ":" .. string.format('%02d', dir.Second), + Parent = arg_dir + } + else + elem = { + Name = name, + Size = dir.Size, + Sector = dir.Sector, + TypeFile = "File", + DateFile = string.format('%02d', dir.Day) .. "/" .. string.format('%02d', dir.Month) .. "/" .. dir.Year .. " " .. string.format('%02d', dir.Hour) .. ":" .. string.format('%02d', dir.Minute) .. ":" .. string.format('%02d', dir.Second), + Parent = arg_dir + } + end + table.insert(currentDir, elem) + end + end + + table.sort(currentDir, function(a, b) if a.TypeFile == b.TypeFile then return a.Name < b.Name else return a.TypeFile > b.TypeFile end end) + + for i, entry in ipairs(currentDir) do + List[i] = self:completeSpace(entry.Name, 20) .. " " .. self:completeSpace(entry.Size, 9, "right") .. " " .. self:completeSpace(entry.Sector, 6, "right") .. " " .. self:completeSpace(entry.TypeFile, 15) .. " " .. self:completeSpace(entry.DateFile, 19) .. " " + end + end, + + fillListComplete = function (self, List, ISOElements) + for i, entry in ipairs(ISOElements) do + List[i] = self:completeSpace(entry.Name, 20) .. " " .. self:completeSpace(entry.Sector, 6, "right") .. " " .. self:completeSpace(entry.Size, 9, "right") .. " " .. self:completeSpace(math.ceil(entry.Size / 2048), 9, "right") .. " " .. self:completeSpace(entry.TypeFile, 15) + end + end, + + getISOElements = function (self) + local tree = {} + local ISOElements = {} + local cdutil = self.cdutil + + local function list_tree(arg_root, arg_tree) + local root = cdutil:findpath(arg_root) + + for name, dir in root:iterate(cdutil) do + if name ~= "." and name ~= ".." then + if dir:isdir() then + local elem1 = { branchname = name } + + local elem2 = { + Name = name, + Size = dir.Size, + Sector = dir.Sector, + TypeFile = "File Folder", + DateFile = string.format('%02d', dir.Day) .. "/" .. string.format('%02d', dir.Month) .. "/" .. dir.Year .. " " .. string.format('%02d', dir.Hour) .. ":" .. string.format('%02d', dir.Minute) .. ":" .. string.format('%02d', dir.Second), + Parent = arg_root + } + table.insert(ISOElements, elem2) + + list_tree(arg_root .. name .. "/", elem1) + table.insert(arg_tree, elem1) + else + local elem2 = { + Name = name, + Size = dir.Size, + Sector = dir.Sector, + TypeFile = "File", + DateFile = string.format('%02d', dir.Day) .. "/" .. string.format('%02d', dir.Month) .. "/" .. dir.Year .. " " .. string.format('%02d', dir.Hour) .. ":" .. string.format('%02d', dir.Minute) .. ":" .. string.format('%02d', dir.Second), + Parent = arg_root + } + table.insert(ISOElements, elem2) + end + end + end + end + + list_tree("/", tree) + + table.sort(ISOElements, function(a, b) return a.Sector < b.Sector end) + + return tree, ISOElements + end, + + input_change = function (self, ind) + local h = self:get_linked_input(ind) + + iup.TreeSetValue(self.controlTree, {}) + self.controlList.RemoveItem = nil + self.controlListComplete.RemoveItem = nil + + if h then + local cdutil = cdutils(h) + self.cdutil = cdutil + local pvd = createpvd(cdutil) + local volid = pvd.volid + pvd:destroy() + + local treeElements, ISOElements = self:getISOElements() + iup.TreeSetValue(self.controlTree, treeElements) + self.controlTree.name = volid + + self:fillList(self.controlList, "/") + self:fillListComplete(self.controlListComplete, ISOElements) + end + end, + + create = function (d, tab, settings) + local function create_tree(volid) + local control_tree = iup.tree { + EXPAND = "VERTICAL", + RASTERSIZE = "200x300", + EXPANDALL = "NO", + ADDEXPANDED = "NO", + } + + control_tree.name = volid + + return control_tree + end + + local function create_list(size) + local List = iup.list { + VALUE = 4, + SIZE = size, + EXPAND = "HORIZONTAL", + FONT = "Courier New", + } + + return List + end + + local function createHeader(name, size) + return iup.text { + VALUE = name, + SIZE = size, + READONLY = "YES", + BGCOLOR = "201 201 201", + ALIGNMENT = "ACENTER" + } + end + + local controlTree, controlList, controlListComplete + + controlTree = create_tree("Root") + controlList = create_list("385x270") + controlListComplete = create_list("100x270") + controlList.MULTIPLE = "YES" + + -- A REVOIR -- + function controlList:dblclick_cb(pos, text) + if currentDir[pos].TypeFile == "File Folder" then + fillList(controlList, currentDir[pos].Parent .. currentDir[pos].Name .. "/") + end + end + + function controlTree:selection_cb(id, status) + if status == 0 then return end + + local val = id + local parent = {} + local dir = "" + while tonumber(val) > 0 do + table.insert(parent, controlTree["TITLE" .. val] .. "/") + + val = controlTree["parent" .. val] + end + table.insert(parent, "/") + + for i = table.getn(parent), 1, -1 do + dir = dir .. parent[i] + end + + fillList(controlList, dir) + + return iup.DEFAULT + end + + function controlList:button_cb(but, pressed, x, y, status) + if but == iup.BUTTON3 and pressed == 1 then + --menuList:popup(iup.MOUSEPOS, iup.MOUSEPOS) + end + + return iup.DEFAULT + end + + local dlg = iup.dialog { + TITLE = "Lua-ISOViewer", + MARGIN = "5x5", + iup.hbox { + controlTree, + iup.fill { SIZE = "5x5" }, + iup.tabs { + SIZE = "200x300"; + iup.vbox { + MARGIN = 0, + TABTITLE = "Liste"; + iup.hbox { + createHeader("Name" , 123), + createHeader("Size" , 67), + createHeader("Sector" , 50), + createHeader("Type" , 101), + createHeader("Date Time", 123), + createHeader("XA flags" , 50), + }, + controlList, + }, + iup.vbox { + MARGIN = 0, + TABTITLE = "Liste complète"; + iup.hbox { + createHeader("Name" , 123), + createHeader("Sector" , 50), + createHeader("Size" , 67), + createHeader("Nb Sector", 67), + createHeader("Type" , 101), + }, + controlListComplete, + }, + }, + }, + } + + tab.ninputs = 1 + tab.noutputs = 0 + tab.otype = dalos.objtype.LUA_VIEWER + tab.activate = function (self) self.dlg:show() end + tab.configure = dalosp.isoviewer.configure + tab.input_change = dalosp.isoviewer.input_change + tab.default_name = "Isoviewer" + tab.ntype = "Isoviewer" + tab.get_settings = dalosp.isoviewer.get_settings + local extra = {} + + local obj = dalos.object(d, tab, extra) + + obj.dlg = dlg + + obj.completeSpace = dalosp.isoviewer.completeSpace + obj.fillList = dalosp.isoviewer.fillList + obj.fillListComplete = dalosp.isoviewer.fillListComplete + obj.getISOElements = dalosp.isoviewer.getISOElements + + obj.controlTree = controlTree + obj.controlList = controlList + obj.controlListComplete = controlListComplete + + return obj + end, +} + +dalos.isoviewer = dalosp.isoviewer .create +dalos:register_obj("Isoviewer", dalos.isoviewer , "Basic Viewers") diff --git a/dalos.lua b/dalos.lua index d0fcd88..d0d3c07 100644 --- a/dalos.lua +++ b/dalos.lua @@ -1096,6 +1096,7 @@ load "dalos-struct.lua" load "dalos-textview.lua" load "dalos-cd.lua" load "dalos-framebuffer.lua" +load "dalos-isoviewer.lua" ---------------- -- cgit v1.2.3