@@ -82,6 +82,9 @@

   (:method ((type (eql :blob)) (s stream) repository)

     (chipz:decompress nil (chipz:make-dstate 'chipz:zlib) s))

+  (:method ((type (eql :tag)) (s stream) repository)

+    (chipz:decompress nil (chipz:make-dstate 'chipz:zlib) s))

+

   (:method ((type (eql :tree)) (s stream) repository)

     (let* ((data (chipz:decompress nil (chipz:make-dstate 'chipz:zlib) s)))

       (tree-entries data))))

new file mode 100644

@@ -0,0 +1,18 @@

+(in-package :fwoar.cl-git)

+

+(defun offset-distance (vec)

+  (+ (loop for v across vec

+           for sum = (logand 127 v)

+             then (+ (ash sum 7)

+                      (logand 127 v))

+           finally (return sum))

+      (loop for x from 1 below 2

+            sum (expt 2 (* 7 x)))))

+

+(defun extract-offset-to-base (s)

+  (offset-distance

+   (fwoar.bin-parser:extract-high s)))

+

+(defun object-metadata-at-offset (base-position offset s)

+  (file-position s (- base-position offset))

+  (read-object-metadata-from-pack s))