site_depotoire/porteail.lua

#!/usr/bin/env lua

-- porteail.lua

--[[ Requirements ]]--

require 'lfs'

--[[ Variables ]]--

-- Mandatories files
configFile = './' .. 'configrc'
-- Default directories values
local currentpath = os.getenv('CURDIR') or '.'
default_dir_category = 'categ'
default_dir_component = 'composants'
-- Default files values
default_img_filename = 'generique.png'
default_header_filename = 'entete.html'
default_footer_filename = 'enqueue.html'
default_categ_extension = 'txt'


--[[ Functions ]]--

function getConfig(file)
  result = {}
  f = assert(io.open(file, 'r'))
  while true do
    line = f.read(f)
    if not line then break end
    local key = line:match('([^#].-)[ ]+=')
    local val = line:match('=[ ]+(.*)')
    local comment = string.find(line, '^#+(.*)')
    if comment then
      -- do nothing with comment
    elseif key then
      result[key] = val
    end
  end
  assert(f:close())
  return result
end

function listing (path, extension)
  files = {}
  if lfs.attributes(path) then
    for file in lfs.dir(path) do
      if file ~= "." and file ~= ".." then
        local f = path..'/'..file
        local attr = lfs.attributes (f)
        filext = (string.match(file, "[^\\/]-%.?([^%.\\/]*)$"))
        if attr.mode == 'file' and filext == extension then
          table.insert(files, f)
        end
      end
    end
  else
    files = nil
  end
  return files
end

function process(filepath)
  -- parse given file
  for line in io.lines(filepath) do
    -- check if this line is a comment ("# my comment"), a category ("[[My category]]Its description") or an element ("Title##Description##URL##Image")
    is_comment = string.find(line, '^#+.*')
    is_title = string.find(line, '%[%[(.*)%]%](.*)')
    is_element = string.find(line, '(.*)##(.*)##(.*)##(.*)')
    if is_comment then
      -- do nothing because it's a comment
    elseif is_title then
      title = ''
      for t in string.gmatch(line, '%[%[(.*)%]%].*') do title = title .. t end
      description =''
      for d in string.gmatch(line, '%[%[.*%]%](.*)') do description = description .. d end
      print("TITLE: " .. '\n\t' .. title .. '\n\t' .. description)
    elseif is_element then
      title = ''
      description = ''
      url = ''
      img = ''
      for t in string.gmatch(line, '(.*)##.*##.*##.*') do title = title .. t end
      for d in string.gmatch(line, '.*##(.*)##.*##.*') do description = description .. d end
      for u in string.gmatch(line, '.*##.*##(.*)##.*') do url = url .. u end
      for i in string.gmatch(line, '.*##.*##.*##(.*)') do img = img .. i end
      print("ELEMENT: " .. '\n\t' .. title .. '\n\t' .. description .. '\n\t' .. url .. '\n\t' .. img)
    end
  end
end

--[[ Principal ]]--

-- fetch user defined values
config = getConfig(configFile)
-- create values for directories
categ = config['CATEGORIES'] or default_dir_category
component = config['COMPOSANTS'] or default_dir_component
-- create values for files
header_filename = config['ENTETE'] or default_header_filename
footer_filename = config['ENQUEUE'] or default_footer_filename
-- other default values
categ_extension = config['CATEGORIES_EXT'] or default_categ_extension
-- get header and footer content
header_file = assert(io.open(currentpath .. '/' .. component .. '/' .. header_filename, 'r'))
header = assert(header_file:read('*a'))
assert(header_file:close())
footer_file = assert(io.open(currentpath .. '/' .. component .. '/' .. footer_filename, 'r'))
footer = assert(footer_file:read('*a'))
assert(footer_file:close())
-- Browse categ directory
local categories_files = listing (currentpath .. '/' .. categ, categ_extension)
if categories_files then
  for k,v in pairs(categories_files) do
    -- read category content
    attr = lfs.attributes(v)
    if attr and attr.mode == 'file' then
      process(v)
    end
  end
else
  print ("-- No category file found!")
end