File extractor

--[[
This programm can extract many files from a single one, even itself.
An example of this is given at the end of this code. Feel free to use it, but please give credit.
--]]

--Set up everything
local args = {...}
local data = {}
local files = 0
local cursor = 1

--Open file and read contens into array
local file = fs.open(args[1],"r")
local ln = ""

while true do
    ln = file.readLine()
    if ln then
        data[#data+1] = ln
    else
        break
    end
end

file.close()
file = nil
ln = nil

--Get amount of files stored
for i=1,#data,1 do
    if data[i] == "--[[NEWFILE" then
        files = files+1
    end
end
print("Files found: "..files)

--Dump function
local function dmp(s,c)
    local newfile = fs.open(s,"w")
    for i=1,#c,1 do
        newfile.writeLine(c[i])
    end
    newfile.close()
    print("Created file \""..s.."\"")
    return
end

--Goto file function
local function nextfile()
    repeat
    cursor = cursor +1
    until data[cursor] == "--[[NEWFILE"
end

--Read specific file
for i=1,files,1 do
    nextfile() --Goto next file
    local cfile = {}
    cursor = cursor +1
    local name = data[cursor]
    cursor = cursor +1
    repeat
        cfile[#cfile+1] = data[cursor]
        cursor = cursor +1
    until data[cursor] == "EOF--]]"
    dmp(name,cfile)
end

--This is an example
--After the comment with NEWFILE, you write the name of the program, after that follows the code. You end with an EOF sign
--This method allows a self-extracting file

--[[NEWFILE
Hello
print("Hello, world!")
EOF--]]