From f55483a9668f2e27d155a94ff157d79145147a70 Mon Sep 17 00:00:00 2001 From: William Wilgus Date: Sun, 5 May 2024 14:11:47 -0400 Subject: lua --remove files moved to include directory Change-Id: Ic9256cb28126dba89b1458109c717f846f5b6d38 --- apps/plugins/lua_scripts.lua | 173 ------------ apps/plugins/lua_scripts/dbgettags.lua | 119 -------- apps/plugins/lua_scripts/filebrowse.lua | 241 ---------------- apps/plugins/lua_scripts/fileviewers.lua | 468 ------------------------------- 4 files changed, 1001 deletions(-) delete mode 100644 apps/plugins/lua_scripts.lua delete mode 100644 apps/plugins/lua_scripts/dbgettags.lua delete mode 100755 apps/plugins/lua_scripts/filebrowse.lua delete mode 100755 apps/plugins/lua_scripts/fileviewers.lua (limited to 'apps') diff --git a/apps/plugins/lua_scripts.lua b/apps/plugins/lua_scripts.lua deleted file mode 100644 index 43593d96b0..0000000000 --- a/apps/plugins/lua_scripts.lua +++ /dev/null @@ -1,173 +0,0 @@ ---[[ -/*************************************************************************** - * __________ __ ___. - * Open \______ \ ____ ____ | | _\_ |__ _______ ___ - * Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / - * Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < - * Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ - * \/ \/ \/ \/ \/ - * $Id$ - * - * Copyright (C) 2017 William Wilgus - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY - * KIND, either express or implied. - * - ****************************************************************************/ -]] - -local scrpath = rb.current_path() .. "/lua_scripts/" - -package.path = scrpath .. "/?.lua;" .. package.path --add lua_scripts directory to path -require("printmenus") - -rb.actions = nil -package.loaded["actions"] = nil - -local excludedsrc = ";filebrowse.lua;fileviewers.lua;printmenu.lua;dbgettags.lua;" --------------------------------------------------------------------------------- -local Icon_Plugin = 0x9 - - -local function get_files(path, norecurse, finddir, findfile, f_t, d_t) - - local quit = false - - local files = f_t or {} - local dirs = d_t or {} - - local function f_filedir(name) - --default find function - -- example: return name:find(".mp3", 1, true) ~= nil - if name:len() <= 2 and (name == "." or name == "..") then - return false - end - if string.find(excludedsrc, ";" .. name .. ";") then - return false - end - if string.sub(name, -4) == ".lua" then - return true - end - return false - end - local function d_filedir(name) - --default discard function - return false - end - - if finddir == nil then - finddir = f_filedir - elseif type(finddir) ~= "function" then - finddir = d_filedir - end - - if findfile == nil then - findfile = f_filedir - elseif type(findfile) ~= "function" then - findfile = d_filedir - end - - local function _get_files(path, cancelbtn) - local sep = "" - if string.sub(path, - 1) ~= "/" then sep = "/" end - for fname, isdir in luadir.dir(path) do - - if isdir and finddir(fname) then - table.insert(dirs, path .. sep ..fname) - elseif not isdir and findfile(fname) then - table.insert(files, path .. sep ..fname) - end - - if rb.get_plugin_action(0) == cancelbtn then - return true - end - end - end - - local function cmp_alphanum (op1, op2) - local type1= type(op1) - local type2 = type(op2) - - if type1 ~= type2 then - return type1 < type2 - else - if type1 == "string" then - op1 = op1:upper() - op2 = op2:upper() - end - return op1 < op2 - end - end - - table.insert(dirs, path) -- root - - for key,value in pairs(dirs) do - --luadir.dir may error out so we need to do the call protected - _, quit = pcall(_get_files, value, CANCEL_BUTTON) - - if quit == true or norecurse then - break; - end - end - - table.sort(files, cmp_alphanum) - table.sort(dirs, cmp_alphanum) - - return dirs, files -end -- get_files --------------------------------------------------------------------------------- - -function icon_fn(item, icon) - if item ~= 0 then - icon = Icon_Plugin - else - icon = -1 - end - return icon -end - --- uses print_table and get_files to display simple file browser -function script_choose(dir, title) - local dstr - local hstr = title - - local norecurse = true - local f_finddir = false -- function to match directories; nil all, false none - local f_findfile = nil -- function to match files; nil all, false none - local t_linedesc = {show_icons = true, icon_fn = icon_fn} - local p_settings = {wrap = true, hasheader = true, justify = "left", linedesc = t_linedesc} - local files = {} - local dirs = {} - local item = 1 - rb.lcd_clear_display() - - while item > 0 do - dirs, files = get_files(dir, norecurse, f_finddir, f_findfile, dirs, files) - for i=1, #dirs do dirs[i] = nil end -- empty table for reuse - table.insert(dirs, 1, hstr) - for i = 1, #files do - table.insert(dirs, "\t" .. string.gsub(files[i], ".*/","")) - end - --print_menu(menu_t, func_t, selected, settings, copy_screen) - _, item = print_menu(dirs, nil, 0, p_settings) - - -- If item was selected follow directory or return filename - item = item or -1 - if item > 0 then - dir = files[item - 1] - if not rb.dir_exists("/" .. dir) then - return dir - end - end - - end -end -- file_choose --------------------------------------------------------------------------------- - -local script_path = script_choose(scrpath, "lua scripts") -if script_path then rb.restart_lua(script_path) end diff --git a/apps/plugins/lua_scripts/dbgettags.lua b/apps/plugins/lua_scripts/dbgettags.lua deleted file mode 100644 index 8e9f26393d..0000000000 --- a/apps/plugins/lua_scripts/dbgettags.lua +++ /dev/null @@ -1,119 +0,0 @@ --- dbgettags.lua Bilgus 2017 ---[[ -/*************************************************************************** - * __________ __ ___. - * Open \______ \ ____ ____ | | _\_ |__ _______ ___ - * Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / - * Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < - * Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ - * \/ \/ \/ \/ \/ - * $Id$ - * - * Copyright (C) 2017 William Wilgus - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY - * KIND, either express or implied. - * - ****************************************************************************/ -]] - -require("actions") -local CANCEL_BUTTON = rb.actions.PLA_CANCEL - -local sINVALIDDATABASE = "Invalid Database" -local sERROROPENING = "Error opening" - --- tag cache header -sTCVERSION = string.char(0x10) -sTCHEADER = string.reverse("TCH" .. sTCVERSION) -DATASZ = 4 -- int32_t -TCHSIZE = 3 * DATASZ -- 3 x int32_t - --- Converts array of bytes to proper endian -function bytesLE_n(str) - str = str or "" - local tbyte={str:byte(1, -1)} - local bpos = 1 - local num = 0 - for k = 1,#tbyte do -- (k = #t, 1, -1 for BE) - num = num + tbyte[k] * bpos - bpos = bpos * 256 - end - return num -end - --- uses database files to retrieve database tags --- adds all unique tags into a lua table --- ftable is optional -function get_tags(filename, hstr, ftable) - - if not filename then return end - if not ftable then ftable = {} end - hstr = hstr or filename - - local file = io.open('/' .. filename or "", "r") --read - if not file then rb.splash(100, sERROROPENING .. " " .. filename) return end - - local fsz = file:seek("end") - - local posln = 0 - local tag_len = TCHSIZE - local idx - - local function readchrs(count) - if posln >= fsz then return nil end - file:seek("set", posln) - posln = posln + count - return file:read(count) - end - - -- check the header and get size + #entries - local tagcache_header = readchrs(DATASZ) or "" - local tagcache_sz = readchrs(DATASZ) or "" - local tagcache_entries = readchrs(DATASZ) or "" - - if tagcache_header ~= sTCHEADER or - bytesLE_n(tagcache_sz) ~= (fsz - TCHSIZE) then - rb.splash(100, sINVALIDDATABASE .. " " .. filename) - return - end - - -- local tag_entries = bytesLE_n(tagcache_entries) - - for k, v in pairs(ftable) do ftable[k] = nil end -- clear table - ftable[1] = hstr - - local tline = #ftable + 1 - ftable[tline] = "" - - local str = "" - - while true do - tag_len = bytesLE_n(readchrs(DATASZ)) - readchrs(DATASZ) -- idx = bytesLE_n(readchrs(DATASZ)) - str = readchrs(tag_len) or "" - str = string.match(str, "(%Z+)%z") -- \0 terminated string - - if str then - if ftable[tline - 1] ~= str then -- Remove dupes - ftable[tline] = str - tline = tline + 1 - end - elseif posln >= fsz then - break - end - - if rb.get_plugin_action(0) == CANCEL_BUTTON then - break - end - end - - file:close() - - return ftable -end -- get_tags diff --git a/apps/plugins/lua_scripts/filebrowse.lua b/apps/plugins/lua_scripts/filebrowse.lua deleted file mode 100755 index 0640ec3764..0000000000 --- a/apps/plugins/lua_scripts/filebrowse.lua +++ /dev/null @@ -1,241 +0,0 @@ ---[[ -/*************************************************************************** - * __________ __ ___. - * Open \______ \ ____ ____ | | _\_ |__ _______ ___ - * Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / - * Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < - * Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ - * \/ \/ \/ \/ \/ - * $Id$ - * - * Copyright (C) 2017 William Wilgus - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY - * KIND, either express or implied. - * - ****************************************************************************/ -]] -if ... == nil then rb.splash(rb.HZ * 3, "use 'require'") end -require("printtable") -local _lcd = require("lcd") -local _timer = require("timer") - --------------------------------------------------------------------------------- ---[[ returns a sorted tables of directories and (another) of files --- path is the starting path; norecurse == true.. only that path will be searched --- findfile & finddir are definable search functions --- if not defined all files/dirs are returned if false is passed.. none --- or you can provide your own function see below.. --- f_t and d_t allow you to pass your own tables for re-use but isn't necessary -]] -local function get_files(path, norecurse, finddir, findfile, sort_by, f_t, d_t) - local quit = false - local sort_by_function -- forward declaration - local filepath_function -- forward declaration - local files = f_t or {} - local dirs = d_t or {} - - local function f_filedir(name) - --default find function - -- example: return name:find(".mp3", 1, true) ~= nil - if name:len() <= 2 and (name == "." or name == "..") then - return false - end - return true - end - local function d_filedir(name) - --default discard function - return false - end - - if finddir == nil then - finddir = f_filedir - elseif type(finddir) ~= "function" then - finddir = d_filedir - end - - if findfile == nil then - findfile = f_filedir - elseif type(findfile) ~= "function" then - findfile = d_filedir - end - - local function _get_files(path, cancelbtn) - local sep = "" - local filepath - local finfo_t - if string.sub(path, - 1) ~= "/" then sep = "/" end - for fname, isdir, finfo_t in luadir.dir(path, true) do - if isdir and finddir(fname) then - table.insert(dirs, path .. sep ..fname) - elseif not isdir and findfile(fname) then - filepath = filepath_function(path, sep, fname, finfo_t.attribute, finfo_t.size, finfo_t.time) - table.insert(files, filepath) - end - - if rb.get_plugin_action(0) == cancelbtn then - return true - end - end - end - - - - local function cmp_alphanum (op1, op2) - local type1= type(op1) - local type2 = type(op2) - - if type1 ~= type2 then - return type1 < type2 - else - if type1 == "string" then - op1 = op1:upper() - op2 = op2:upper() - return sort_by_function(op1, op2) - end - return op1 < op2 - end - end - - _lcd:splashf(1, "Searching for Files") - - if sort_by == "name" then - sort_by_function = function(s1, s2) return s1 < s2 end - filepath_function = function(path, sep, fname, fattrib, fsize, ftime) - return string.format("%s%s%s;", path, sep, fname) - end - elseif sort_by == "size" then - filepath_function = function(path, sep, fname, fattrib, fsize, ftime) - return string.format("%s%s%s; At:%d, Sz:%d, Tm:%d", path, sep, fname, fattrib, fsize, ftime) - end - sort_by_function = function(s1, s2) - local v1, v2 - v1 = string.match(s1, "SZ:(%d+)") - v2 = string.match(s2, "SZ:(%d+)") - if v1 or v2 then - return tonumber(v1 or 0) < tonumber(v2 or 0) - end - return s1 < s2 - end - elseif sort_by == "date" then - filepath_function = function(path, sep, fname, fattrib, fsize, ftime) - return string.format("%s%s%s; At:%d, Sz:%d, Tm:%d", path, sep, fname, fattrib, fsize, ftime) - end - sort_by_function = function(s1, s2) - local v1, v2 - v1 = string.match(s1, "TM:(%d+)") - v2 = string.match(s2, "TM:(%d+)") - if v1 or v2 then - return tonumber(v1 or 0) < tonumber(v2 or 0) - end - return s1 < s2 - end - end - - table.insert(dirs, path) -- root - - for key,value in pairs(dirs) do - --luadir.dir may error out so we need to do the call protected - -- _get_files(value, CANCEL_BUTTON) - _, quit = pcall(_get_files, value, CANCEL_BUTTON) - - if quit == true or norecurse then - break; - end - end - - table.sort(files, cmp_alphanum) - table.sort(dirs, cmp_alphanum) - - return dirs, files -end -- get_files --------------------------------------------------------------------------------- - --- uses print_table and get_files to display simple file browser --- sort_by "date" "name" "size" --- descending true/false -function file_choose(dir, title, sort_by, descending) - local dstr, hstr = "" - if not title then - dstr = "%d items found in %0d.%02d seconds" - else - hstr = title - end - - if not sort_by then sort_by = "name" end - sort_by = sort_by:lower() - - -- returns whole seconds and remainder - local function tick2seconds(ticks) - local secs = (ticks / rb.HZ) - local csecs = (ticks - (secs * rb.HZ)) - return secs, csecs - end - - local norecurse = true - local f_finddir = nil -- function to match directories; nil all, false none - local f_findfile = nil -- function to match files; nil all, false none - - local p_settings = {wrap = true, hasheader = true} - - local timer - local files = {} - local dirs = {} - local item = 1 - _lcd:clear() - - while item > 0 do - if not title then - timer = _timer() - end - - dirs, files = get_files(dir, norecurse, f_finddir, f_findfile, sort_by, dirs, files) - - local parentdir = dirs[1] - for i = 1, #dirs do - dirs[i] = "\t" .. dirs[i] - end - - if not descending then - for i = 1, #files do - -- only store file name .. strip attributes from end - table.insert(dirs, "\t" .. string.match(files[i], "[^;]+") or "?") - end - else - for i = #files, 1, -1 do - -- only store file name .. strip attributes from end - table.insert(dirs, "\t" .. string.match(files[i], "[^;]+") or "?") - end - end - for i=1, #files do files[i] = nil end -- empty table for reuse - - if not title then - hstr = string.format(dstr, #dirs - 1, tick2seconds(timer:stop())) - end - - table.insert(dirs, 1, hstr) - - item = print_table(dirs, #dirs, p_settings) - - -- If item was selected follow directory or return filename - if item > 0 then - dir = string.gsub(dirs[item], "%c+","") - if not rb.dir_exists("/" .. dir) then - return dir - end - end - - if dir == parentdir then - dir = dir:sub(1, dir:match(".*()/") - 1) - if dir == "" then dir = "/" end - end - for i=1, #dirs do dirs[i] = nil end -- empty table for reuse - - end -end -- file_choose --------------------------------------------------------------------------------- diff --git a/apps/plugins/lua_scripts/fileviewers.lua b/apps/plugins/lua_scripts/fileviewers.lua deleted file mode 100755 index c686f3eeda..0000000000 --- a/apps/plugins/lua_scripts/fileviewers.lua +++ /dev/null @@ -1,468 +0,0 @@ ---[[ -/*************************************************************************** - * __________ __ ___. - * Open \______ \ ____ ____ | | _\_ |__ _______ ___ - * Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / - * Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < - * Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ - * \/ \/ \/ \/ \/ - * $Id$ - * - * Copyright (C) 2017 William Wilgus - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY - * KIND, either express or implied. - * - ****************************************************************************/ -]] -if ... == nil then rb.splash(rb.HZ * 3, "use 'require'") end -require("printtable") -local _clr = require("color") -local _lcd = require("lcd") -local _print = require("print") -local _timer = require("timer") - -require("actions") -local CANCEL_BUTTON = rb.actions.PLA_CANCEL --------------------------------------------------------------------------------- --- builds an index of byte position of every line at each bufsz increment --- in filename; bufsz == 1 would be every line; saves to filename.ext.idx_ext --- lnbyte should be nil for text files and number of bytes per line for binary -local function build_file_index(filename, idx_ext, bufsz, lnbyte) - - if not filename then return end - local file = io.open('/' .. filename, "r") --read - if not file then _lcd:splashf(100, "Can't open %s", filename) return end - local fsz = file:seek("end") - local fsz_kb = fsz / 1024 - local count - local ltable = {0} --first index is the beginning of the file - local timer = _timer() - local fread - _lcd:splashf(100, "Indexing file %d Kb", (fsz / 1024)) - - if lnbyte then - fread = function(f) return f:read(lnbyte) end - else - lnbyte = -1 - fread = function(f) return f:read("*l") end - end - - file:seek("set", 0) - for i = 1, fsz do - if i % bufsz == 0 then - local loc = file:seek() - ltable[#ltable + 1] = loc - _lcd:splashf(1, "Parsing %d of %d Kb", loc / 1024, fsz_kb) - end - if rb.get_plugin_action(0) == CANCEL_BUTTON then - return - end - if not fread(file) then - count = i - break - end - end - - local fileidx = io.open('/' .. filename .. idx_ext, "w+") -- write/erase - if fileidx then - fileidx:write(fsz .. "\n") - fileidx:write(count .. "\n") - fileidx:write(bufsz .. "\n") - fileidx:write(lnbyte .. "\n") - fileidx:write(table.concat(ltable, "\n")) - fileidx:close() - _lcd:splashf(100, "Finished in %d seconds", timer.stop() / rb.HZ) - collectgarbage("collect") - else - error("unable to save index file") - end -end -- build_file_index --------------------------------------------------------------------------------- - ---- returns size of original file, total lines buffersize, and table filled --- with line offsets in index file -> filename -local function load_index_file(filename) - local filesz, count, bufsz, lnbyte - local ltable - local fileidx = io.open('/' .. filename, "r") --read - if fileidx then - local idx = -3 - ltable = {} - fileidx:seek("set", 0) - for line in fileidx:lines() do - if idx == -3 then - filesz = tonumber(line) - elseif idx == -2 then - count = tonumber(line) - elseif idx == -1 then - bufsz = tonumber(line) - elseif idx == 0 then - lnbyte = tonumber(line) - else - ltable[idx] = tonumber(line) - end - idx = idx + 1 - end - fileidx:close() - end - return lnbyte, filesz, count, bufsz, ltable -end -- load_index_file --------------------------------------------------------------------------------- - --- creates a fixed index with fixed line lengths, perfect for viewing hex files --- not so great for reading text files but works as a fallback -local function load_fixed_index(bytesperline, filesz, bufsz) - local lnbyte = bytesperline - local count = (filesz + lnbyte - 1) / lnbyte + 1 - local idx_t = {} -- build index - for i = 0, filesz, bufsz do - idx_t[#idx_t + 1] = lnbyte * i - end - return lnbyte, filesz, count, bufsz, idx_t -end -- load_fixed_index --------------------------------------------------------------------------------- - --- uses print_table to display a whole file -function print_file(filename, maxlinelen, settings) - - if not filename then return end - local file = io.open('/' .. filename or "", "r") --read - if not file then _lcd:splashf(100, "Can't open %s", filename) return end - maxlinelen = 33 - local hstr = filename - local ftable = {} - table.insert(ftable, 1, hstr) - - local tline = #ftable + 1 - local remln = maxlinelen - local posln = 1 - - for line in file:lines() do - if line then - if maxlinelen then - if line == "" then - ftable[tline] = ftable[tline] or "" - tline = tline + 1 - remln = maxlinelen - else - line = line:match("%w.+") or "" - end - local linelen = line:len() - while linelen > 0 do - - local fsp = line:find("%s", posln + remln - 5) or 0x0 - fsp = fsp - (posln + remln) - if fsp >= 0 then - local fspr = fsp - fsp = line:find("%s", posln + remln) or linelen - fsp = fsp - (posln + remln) - if math.abs(fspr) < fsp then fsp = fspr end - end - if fsp > 5 or fsp < -5 then fsp = 0 end - - local str = line:sub(posln, posln + remln + fsp) - local slen = str:len() - ftable[tline] = ftable[tline] or "" - ftable[tline] = ftable[tline] .. str - linelen = linelen - slen - if linelen > 0 then - tline = tline + 1 - posln = posln + slen - remln = maxlinelen - --loop continues - else - ftable[tline] = ftable[tline] .. " " - remln = maxlinelen - slen - posln = 1 - --loop ends - end - - end - else - ftable[#ftable + 1] = line - end - - - end - end - - file:close() - - _lcd:clear() - _print.clear() - - if not settings then - settings = {} - settings.justify = "center" - settings.wrap = true - settings.msel = true - end - settings.hasheader = true - settings.co_routine = nil - settings.ovfl = "manual" - - local sel = - print_table(ftable, #ftable, settings) - - _lcd:splashf(rb.HZ * 2, "%d items {%s}", #sel, table.concat(sel, ", ")) - ftable = nil -end -- print_file --------------------------------------------------------------------------------- - --- uses print_table to display a portion of a file -function print_file_increment(filename, settings) - - if not filename then return end - local file = io.open('/' .. filename, "r") --read - if not file then _lcd:splashf(100, "Can't open %s", filename) return end - local fsz = file:seek("end") - local bsz = 1023 - --if small file do it the easier way and load whole file to table - if fsz < 60 * 1024 then - file:close() - print_file(filename, settings) - return - end - - local ext = ".idx" - local lnbyte, filesz, count, bufsz, idx_t = load_index_file(filename .. ext) - - if not idx_t or fsz ~= filesz then -- build file index - build_file_index(filename, ext, bsz) - lnbyte, filesz, count, bufsz, idx_t = load_index_file(filename .. ext) - end - - -- if invalid or user canceled creation fallback to a fixed index - if not idx_t or fsz ~= filesz or count <= 0 then - _lcd:splashf(rb.HZ * 5, "Unable to read file index %s", filename .. ext) - lnbyte, filesz, count, bufsz, idx_t = load_fixed_index(32, fsz, bsz) - end - - if not idx_t or fsz ~= filesz or count <= 0 then - _lcd:splashf(rb.HZ * 5, "Unable to load file %s", filename) - return - end - - local hstr = filename - local file_t = setmetatable({},{__mode = "kv"}) --weak keys and values - -- this allows them to be garbage collected as space is needed - -- rebuilds when needed - local ovf = 0 - local lpos = 1 - local timer = _timer() - file:seek("set", 0) - - function print_co() - while true do - collectgarbage("step") - file_t[1] = hstr --position 1 is ALWAYS header/title - - for i = 1, bufsz + ovf do - file_t[lpos + i] = file:read ("*l") - end - ovf = 0 - lpos = lpos + bufsz - - local bpos = coroutine.yield() - - if bpos <= lpos then -- roll over or scroll up - bpos = (bpos - bufsz) + bpos % bufsz - timer:check(true) - end - - lpos = bpos - bpos % bufsz - - if lpos < 1 then - lpos = 1 - elseif lpos > count - bufsz then -- partial fill - ovf = count - bufsz - lpos - end - --get position in file of the nearest indexed line - file:seek("set", idx_t[bpos / bufsz + 1]) - - -- on really large files if it has been more than 10 minutes - -- since the user scrolled up the screen wipe out the prior - -- items to free memory - if lpos % 5000 == 0 and timer:check() > rb.HZ * 600 then - for i = 1, lpos - 100 do - file_t[i] = nil - end - end - - end - end - - co = coroutine.create(print_co) - _lcd:clear() - _print.clear() - - if not settings then - settings = {} - settings.justify = "center" - settings.wrap = true - end - settings.hasheader = true - settings.co_routine = co - settings.msel = false - settings.ovfl = "manual" - - table.insert(file_t, 1, hstr) --position 1 is header/title - local sel = - print_table(file_t, count, settings) - file:close() - idx_t = nil - file_t = nil - return sel -end --print_file_increment --------------------------------------------------------------------------------- -function print_file_hex(filename, bytesperline, settings) - - if not filename then return end - local file = io.open('/' .. filename, "r") --read - if not file then _lcd:splashf(100, "Can't open %s", filename) return end - local hstr = filename - local bpl = bytesperline - local fsz = file:seek("end") ---[[ - local filesz = file:seek("end") - local bufsz = 1023 - local lnbyte = bytesperline - local count = (filesz + lnbyte - 1) / lnbyte + 1 - - local idx_t = {} -- build index - for i = 0, filesz, bufsz do - idx_t[#idx_t + 1] = lnbyte * i - end]] - - local lnbyte, filesz, count, bufsz, idx_t = load_fixed_index(bpl, fsz, 1023) - - local file_t = setmetatable({},{__mode = "kv"}) --weak keys and values - -- this allows them to be garbage collected as space is needed - -- rebuilds when needed - local ovf = 0 - local lpos = 1 - local timer = _timer() - file:seek("set", 0) - - function hex_co() - while true do - collectgarbage("step") - file_t[1] = hstr --position 1 is ALWAYS header/title - - for i = 1, bufsz + ovf do - local pos = file:seek() - local s = file:read (lnbyte) - if not s then -- EOF - file_t[lpos + i] = "" - break; - end - local s_len = s:len() - - if s_len > 0 then - local fmt = "0x%04X: " .. string.rep("%02X ", s_len) - local schrs = " " .. s:gsub("(%c)", " . ") - file_t[lpos + i] = string.format(fmt, pos, s:byte(1, s_len)) .. - schrs - else - file_t[lpos + i] = string.format("0x%04X: ", pos) - end - end - ovf = 0 - lpos = lpos + bufsz - - local bpos = coroutine.yield() - - if bpos < lpos then -- roll over or scroll up - bpos = (bpos - bufsz) + bpos % bufsz - timer:check(true) - end - - lpos = bpos - bpos % bufsz - - if lpos < 1 then - lpos = 1 - elseif lpos > count - bufsz then -- partial fill - ovf = count - bufsz - lpos - end - --get position in file of the nearest indexed line - file:seek("set", idx_t[bpos / bufsz + 1]) - - -- on really large files if it has been more than 10 minutes - -- since the user scrolled up the screen wipe out the prior - -- items to free memory - if lpos % 10000 == 0 and timer:check() > rb.HZ * 600 then - for i = 1, lpos - 100 do - file_t[i] = nil - end - end - - end - end - - co = coroutine.create(hex_co) - - local function repl(char) - local ret = "" - if char:sub(1,2) == "0x" then - return string.format("%dd:", tonumber(char:sub(3, -2), 16)) - else - return string.format("%03d ", tonumber(char, 16)) - end - end - - - _lcd:clear() - _print.clear() - - local sel, start, vcur = 1 - table.insert(file_t, 1, hstr) --position 1 is header/title - - if not settings then - settings = {} - settings.justify = "left" - settings.wrap = true - settings.msel = false - settings.hfgc = _clr.set( 0, 000, 000, 000) - settings.hbgc = _clr.set(-1, 255, 255, 255) - settings.ifgc = _clr.set(-1, 255, 255, 255) - settings.ibgc = _clr.set( 0, 000, 000, 000) - settings.iselc = _clr.set( 1, 000, 200, 100) - end - - settings.hasheader = true - settings.co_routine = co - settings.start = start - settings.curpos = vcur - settings.ovfl = "manual" - - while sel > 0 do - settings.start = start - settings.curpos = vcur - - sel, start, vcur = print_table(file_t, count, settings) - - if sel > 1 and file_t[sel] then -- flips between hex and decimal - local s = file_t[sel] - if s:sub(-1) == "\b" then - file_t[sel] = nil - ovf = -(bufsz - 1) - coroutine.resume(co, sel) --rebuild this item - else - s = s:gsub("(0x%x+:)", repl) .. "\b" - file_t[sel] = s:gsub("(%x%x%s)", repl) .. "\b" - end - end - end - - file:close() - idx_t = nil - file_t = nil - return sel -end -- print_file_hex --------------------------------------------------------------------------------- -- cgit v1.2.3