test/split.lua

   1 function split (s)
   2  local n = 1
   3  local f = strfind(s,"/")
   4  while f do
   5   n = n+f
   6   f = strfind(strsub(s,n),"/")
   7  end
   8  return strsub(s,1,n-1), strsub(s,n)
   9 end
  10
  11
  12 function test(s)
  13  local path, filename = split(s)
  14  print(s .. "=[".. path.."]+["..filename.."]")
  15 end
  16
  17 test("a:/lua/obj/lua.c")
  18 test("lua.lib")