Shell.DeepTarball.lua: макрос для входа в tarball-архивы

Здесь обсуждается всё, что касается макросов.
Post Reply
siberia-man
Posts: 131
Joined: Sat 28 Jun, 2014 23:07
Has thanked: 2 times
Been thanked: 9 times

Shell.DeepTarball.lua: макрос для входа в tarball-архивы

Post by siberia-man »

Преамбула

Так называемые tarball-архивы - обычное средство распространения данных в юниксах. Обычно они рассматриваются как единая сущность -- tar-архив файлов, упакованный gzip или bzip2. К сожалению ФАР не имеет встроенных средств для показа их (такие архивы) как единую сущность и показывет как два отдельных архива gzip/bzip2 с единственным вложенным tar-архивом. Данный макрос -- попытка "погрузиться" в tarball на максимально возможную глубину до файловой структуры архива, минуя промежуточную стадию входа в gzip/bzip2-архив, затем в tar...

И так...

Амбула

Скрипт пока не выкладываю в готовые решения -- возможны улучшения, дополнения, исправления
  1. -- https://forum.farmanager.com/viewtopic.php?f=15&t=11109
  2.  
  3.  
  4.  
  5. -- Enable or disable the macros
  6.  
  7. local enabled = true
  8.  
  9.  
  10.  
  11. ---------------------------------------------------------------------------
  12.  
  13.  
  14.  
  15. -- *.tar
  16.  
  17. local tar_ext = {
  18.  
  19.     "%.tar",
  20.  
  21. }
  22.  
  23.  
  24.  
  25. -- *.tgz or *.gz
  26.  
  27. -- *.tbz or *.bz
  28.  
  29. -- *.tbz2 or *.bz2
  30.  
  31. -- *.txz or *.xz
  32.  
  33. local zip_ext = {
  34.  
  35.     "%.t?gz",
  36.  
  37.     "%.t?bz2?",
  38.  
  39.     "%.t?xz",
  40.  
  41. }
  42.  
  43.  
  44.  
  45. -- *.tgz or *.tar.gz
  46.  
  47. -- *.tbz or *.tar.bz
  48.  
  49. -- *.tbz2 or *.tar.bz2
  50.  
  51. -- *.txz or *.tar.xz
  52.  
  53. local tarball_ext = {
  54.  
  55.     "%.tgz",   "%.tar%.gz",
  56.  
  57.     "%.tbz2?", "%.tar%.bz2?",
  58.  
  59.     "%.txz",   "%.tar%.xz",
  60.  
  61. }
  62.  
  63.  
  64.  
  65. local function is_file(f, ext)
  66.  
  67.     f = f:lower()
  68.  
  69.     for i = 1, #ext do
  70.  
  71.         if f:match("("..ext[i]..")$") then return true end
  72.  
  73.     end
  74.  
  75.     return false
  76.  
  77. end
  78.  
  79.  
  80.  
  81. local function is_tar(f)
  82.  
  83.     return is_file(f, tar_ext)
  84.  
  85. end
  86.  
  87.  
  88.  
  89. local function is_zip(f)
  90.  
  91.     return is_file(f, zip_ext)
  92.  
  93. end
  94.  
  95.  
  96.  
  97. local function is_tarball(f)
  98.  
  99.     return is_file(f, tarball_ext)
  100.  
  101. end
  102.  
  103.  
  104.  
  105. ---------------------------------------------------------------------------
  106.  
  107.  
  108.  
  109. Macro {
  110.  
  111.     area = "Shell";
  112.  
  113.     key = "Enter CtrlPgDn";
  114.  
  115.     description = "Deep Tarball: Enter the archive";
  116.  
  117.     condition = function()
  118.  
  119.         return enabled and is_tarball(APanel.Current)
  120.  
  121.     end;
  122.  
  123.     action = function()
  124.  
  125.         Keys("AKey Down AKey")
  126.  
  127.     end;
  128.  
  129. }
  130.  
  131.  
  132.  
  133. Macro {
  134.  
  135.     area = "Shell";
  136.  
  137.     key = "Enter CtrlPgUp";
  138.  
  139.     description = "Deep Tarball: Exit the archive";
  140.  
  141.     condition = function()
  142.  
  143.         return enabled and ( APanel.Current == ".." or is_tar(APanel.HostFile) )
  144.  
  145.     end;
  146.  
  147.     action = function()
  148.  
  149.         Keys("AKey")
  150.  
  151.         if APanel.Plugin and is_zip(APanel.HostFile) then Keys("Up AKey") end
  152.  
  153.     end;
  154.  
  155. }
  156.  
  157.  
  158.  
  159. ---------------------------------------------------------------------------
  160.  
  161.  
  162.  
  163. -- EOF
Last edited by siberia-man on Thu 08 Mar, 2018 10:06, edited 5 times in total.
siberia-man
Posts: 131
Joined: Sat 28 Jun, 2014 23:07
Has thanked: 2 times
Been thanked: 9 times

Shell.DeepTarball.lua: макрос для входа в tarball-архивы

Post by siberia-man »

Обновления:
-- косметические исправления сообщения выше
-- разделил код на список расширений и функции определения типа архива
-- расширил макрос на xz-архивы
-- регистронезависимое сравнение (предложение коллеги Shmuel)

Исправления, дополнения, пожелания - приветствуются.
Last edited by siberia-man on Thu 08 Mar, 2018 10:02, edited 1 time in total.
Shmuel
Posts: 6820
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 528 times

Shell.DeepTarball.lua: макрос для входа в tarball-архивы

Post by Shmuel »

У вас все расширения файлов указаны в нижнем регистре, а функция match - регистрозависимая. Поэтому можно сделать так:

Code: Select all

local function is_file(f, ext)
    f = f:lower() -- добавленная строка
    for i = 1, #ext do
        if f:match("("..ext[i]..")$") then return true end
    end
    return false
end
siberia-man
Posts: 131
Joined: Sat 28 Jun, 2014 23:07
Has thanked: 2 times
Been thanked: 9 times

Shell.DeepTarball.lua: макрос для входа в tarball-архивы

Post by siberia-man »

Shmuel, спасибо. Учтено.

Update
Поправил первый пост.
Last edited by siberia-man on Thu 08 Mar, 2018 09:58, edited 1 time in total.
User avatar
John Doe
Бюрократ
Posts: 13807
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 426 times
Contact:

Shell.DeepTarball.lua: макрос для входа в tarball-архивы

Post by John Doe »

Похожий скрипт: viewtopic.php?p=166934#p166934
https://t.me/FarManager — Telegram чат
Post Reply

Return to “Обсуждение макросов”