xapian-bindings/lua/unpick-cpath.lua

   1 require("package")
   2 require("io")
   3 so = string.lower(arg[1])
   4 for e in string.gmatch(string.gsub(package.cpath,"\\","/"), "[^;]*") do
   5   io.stderr:write("cpath entry: "..e.."\n")
   6   l,s = string.match(e, "^(/.*)/%?(%.%a+)$")
   7   if l == nil then
   8     l,s = string.match(e, "^(%a:/.*)/%?(%.%a+)$")
   9   end
  10   if l ~= nil and string.lower(s) ~= ".lua" then
  11     if so == "" or string.lower(s) == so then
  12       print(l..";"..s)
  13       break
  14     end
  15   end
  16 end