From b885aec6090462b9f1993b9fa8f17f996fcc8147 Mon Sep 17 00:00:00 2001
From: Olivier DOSSMANN <olivier+git@dossmann.net>
Date: Tue, 14 May 2013 16:34:10 +0200
Subject: [PATCH] [ADD] Lua script that reads the categories content

---
 porteail.lua | 124 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 124 insertions(+)
 create mode 100755 porteail.lua

diff --git a/porteail.lua b/porteail.lua
new file mode 100755
index 0000000..7b96536
--- /dev/null
+++ b/porteail.lua
@@ -0,0 +1,124 @@
+#!/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