-- gall.object
--
-- Git Abstraction Layer for Lua -- Generic object interface
--
-- Copyright 2012 Daniel Silverstone <dsilvers@digital-scurf.org>
--
--

local ll = require "gall.ll"
local commit = require "gall.commit"
local tree = require "gall.tree"
local tag = require "gall.tag"

local repos = setmetatable({}, {__mode="k"})

local function _objectindex(obj, field)
   local ok, ret
   if field == "type" then
      ok, ret = repos[obj]:gather("cat-file", "-t", obj.sha)
   elseif field == "size" then
      ok, ret = repos[obj]:gather("cat-file", "-s", obj.sha)
   elseif field == "raw" then
      ok, ret = repos[obj]:rawgather("cat-file", (obj.type == "tag" and "tag" or "-p"), obj.sha)
   elseif field == "content" then
      if obj.type == "blob" then
	 ok, ret = 0, obj.raw
      elseif obj.type == "commit" then
	 ok, ret = 0, commit.new(repos[obj], obj)
      elseif obj.type == "tree" then
	 ok, ret = 0, tree.new(repos[obj], obj)
      elseif obj.type == "tag" then
	 ok, ret = 0, tag.new(repos[obj], obj)
      else
	 error("Unknown type <" .. obj.type .. "> for content parse")
      end
   else
      error("Unknown field <" .. tostring(field) .. ">")
   end

   assert(ok == 0, "Unable to retrieve " .. field)

   if field == "size" then ret = tonumber(ret) end

   rawset(obj, field, ret)

   return ret
end

function _objecttostring(obj)
   return "<GitObject(" .. tostring(obj.sha)..") in " .. tostring(repos[obj]) .. ">"
end

local objectmeta = {
   __index = _objectindex,
   __tostring = _objecttostring
}

local function _new(repo, sha)
   local ret = setmetatable({sha=sha}, objectmeta)
   repos[ret] = repo
   return ret
end

local function _create(repo, type, content)
   local why, sha = 
      repo:_run_with_input(content, ll.chomp, 
			   "hash-object", "-t", type, "-w", "--stdin")
   if why ~= 0 then
      return nil, "hash-object returned " .. tostring(why)
   end

   return _new(repo, sha)
end

return {
   new = _new,
   create = _create,
}