-- This file:
--   http://anggtwu.net/LUA/ThisDir1.lua.html
--   http://anggtwu.net/LUA/ThisDir1.lua
--          (find-angg "LUA/ThisDir1.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun e () (interactive) (find-angg "LUA/ThisDir1.lua"))
-- Based on: (find-dn6 "dednat6.lua" "package.path")
--   (find-LATEXfile "dednat6load.lua" "-- Load all the dednat6 modules.")

fnamedirectory    = function (fname) return fname:match"^(.*/)[^/]*$"  end
fnamenondirectory = function (fname) return fname:match     "([^/]*)$" end
arg0directory     = function () return arg and fnamedirectory(arg[0]) end



-- Local Variables:
-- coding:  utf-8-unix
-- End: