snippet to delete files in the current directory

deleteFilesInDir.lua

local function contains(t, v)
    for index, value in ipairs(t) do
        if value == v then
            return true
        end
    end
    return false
end

local protected = {
   ".classpath",
   ".project",
   "collatz.c",
   "collatz.o",
   "main.lua",
   "sandbox.lua"
}

local found = {}
local delete = {}

for name in io.popen([[dir "" /b]]):lines() do
   table.insert(found, name)
end

for _, value in ipairs(found) do
   if not contains(protected, value) then
      table.insert(delete, value)
   end
end

for _, filename in ipairs(delete) do
   print("Deleting "..filename.." (unless it is a folder)")
   os.remove(filename)
end