1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
-- 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,
}
|
