mirror of https://github.com/20kdc/OC-KittenOS.git
35 lines
1.0 KiB
Lua
35 lines
1.0 KiB
Lua
-- This is released into the public domain.
|
|
-- No warranty is provided, implied or otherwise.
|
|
|
|
-- Imitation CLAW
|
|
local done = {}
|
|
|
|
local f, e = loadfile("code/data/app-claw/local.lua")
|
|
if not f then error(e) end
|
|
f = f()
|
|
if not os.execute("mkdir work") then
|
|
error("Delete 'work'")
|
|
end
|
|
for k, v in pairs(f) do
|
|
for _, vd in ipairs(v.dirs) do
|
|
os.execute("mkdir work/" .. vd .. " 2> /dev/null")
|
|
end
|
|
for _, vf in ipairs(v.files) do
|
|
-- not totally proofed but will do
|
|
if not os.execute("cp code/" .. vf .. " work/" .. vf) then
|
|
error("Could not copy " .. vf .. " in " .. k)
|
|
end
|
|
if done[vf] then
|
|
error("duplicate " .. vf .. " in " .. k)
|
|
end
|
|
print(vf .. "\t\t" .. k)
|
|
done[vf] = true
|
|
end
|
|
end
|
|
os.execute("mkdir -p work/data/app-claw")
|
|
os.execute("cp code/data/app-claw/local.lua work/data/app-claw/local.lua")
|
|
os.execute("cd code ; find . > ../imitclaw.treecode")
|
|
os.execute("cd work ; find . > ../imitclaw.treework")
|
|
os.execute("diff -u imitclaw.treecode imitclaw.treework")
|
|
os.execute("rm imitclaw.treecode imitclaw.treework")
|