local a = include("autolua.lua")

ART = {}

a.AddLuaSHFolder("shared",true)
a.AddLuaCSFolder("client",true)
a.AddLuaSVFolder("server",false)

GM.Name 			= "Artery"
GM.Author 			= "Alexander \"Apickx\" Pickering"
GM.Email 			= "apickx@cogarr.org"
GM.Website 			= "cogarr.net"

--Some global functions that are helpful
--  printf
--  assertf
--  curry
--  typecheck

--printf from C
function printf(fmt, ...)
    print(string.format(fmt,...))
end

--Assert with a formated string
function assertf(cond, fmt, ...)
    assert(cond,string.format(fmt,...))
end

--Curry from lisp, allows you to store variables "in" a function, so you can call it with fewer arguments if you'll be repeating arguments a lot
--Ex:
--  >dbprint = curry(print,"[Debug]")
--  >dbprint("Hello, world!")
--  [Debug] Hello, world!
--  >
function curry(fnc, ...)
    local oarg = {...}
    return function(...)
        return fnc(unpack(oarg),unpack({...}))
    end
end

--Does type checking for functions, use by supplying a table whith the variables and the types they should be
--Ex:
--  >local somefunction(str, tbl, num)
--  >>typecheck({
--  >>  str,"string",
--  >>  tbl,"table",
--  >>  num,"number"
--  >>})
--  >
function typecheck(...)
    local tbl = {...}
    tbl = type(tbl[1]) == "table" and tbl[1] or tbl
    for k=1,#tbl,2 do
        local t,n = type(tbl[k]),tbl[k+1]
        assertf(t == n, "Passed argument of wrong type, should have been %q but was %q",t,n )
    end
end

--Add a thing to report errors to a master server
--TODO:Set up a master server to collect errors for correction
local olderr = error
function error(str)
    print("I got an error!")
    olderr(str)
end