Converting EoL to Unix...

1 files changed, 292 insertions, 292 deletions

diff --git a/dalos-isoviewer.lua b/dalos-isoviewer.lua
index ebd0433..71888da 100644
--- a/dalos-isoviewer.lua
+++ b/dalos-isoviewer.lua
@@ -1,292 +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")

+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 = 1
+        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")