-- 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 blobs = setmetatable({}, {__mode="k"})

local known_types = {
   blob = true, commit = true, tree = true, tag = true,
}

local function _objectindex(obj, field)
   local ok, ret
   local blob = blobs[obj]
   if field == "type" then
      if blob then
	 ok, ret = 0, ll.git2.get_object_type(blob)
      else
	 ok, ret = repos[obj]:gather("cat-file", "-t", obj.sha)
      end
   elseif field == "size" then
      if blob then
	 ok, ret = 0, ll.git2.get_object_size(blob)
      else
	 ok, ret = repos[obj]:gather("cat-file", "-s", obj.sha)
      end
   elseif field == "raw" then
      if blob and obj.type ~= "tree" then
	 ok, ret = 0, ll.git2.get_object_raw(blob)
      else
	 ok, ret = repos[obj]:rawgather("cat-file", (obj.type == "tag" and "tag" or "-p"), obj.sha)
      end
   elseif field == "content" then
      assert(known_types[obj.type], "Unknown type: " .. obj.type)
      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)
      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
   if ll.git2 then
      blobs[ret] = ll.git2.get_object(repo.git2.repo, sha)
   end
   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,
}