-- (find-angg "LUA/lstoindexhtml.lua")
-- (find-blogme3 "lstoindexhtml.lua")
-- (find-angg ".zshrc" "lstoindexhtml_lua_maybe")
str=string; strfind=str.find; format=str.format; gsub=str.gsub;
strlen=str.len; strrep=str.rep; strsub=str.sub; tinsert=table.insert
--
lines={}; for line in io.lines() do tinsert(lines, line) end
_, __, nonfname = strfind(lines[2], "^(.* )[^ ]*$")
dots = strrep(".", strlen(nonfname))
myre = "("..dots..")([^ */=@|]*)(.*)"
print ""
print ""
print(""..(arg[1] or "").."")
if arg[2] then
print('')
end
print("")
print ""
print ""
for i=2,table.getn(lines) do
_, __, l, fname, r = strfind(lines[i], myre)
print(format("%s%s%s", l, fname, fname, r))
end
print ""
print ""
print ""
-- (find-zsh0 "cd /tmp/; lstoindexhtml_lua_maybe /tmp/")
-- #
-- cd ~/TH/L/
-- for i in $(find .* * -type d | sort); do
-- cd ~/TH/L/$i; lstoindexhtml_lua_maybe $i/
-- done
--
-- #