From ef7bd1fcc9b020a7e80b377d6956856427ffebba Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 4 Jul 2022 23:39:57 +0530
Subject: git: Bind git_reference_set_target from libgit2.

* tissue/git.scm: Import dereference-pointer and string->pointer
from (system foreign).
(reference-set-target!): New public function.
---
 tissue/git.scm | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

(limited to 'tissue')

diff --git a/tissue/git.scm b/tissue/git.scm
index 79d6f0b..7f61785 100644
--- a/tissue/git.scm
+++ b/tissue/git.scm
@@ -28,10 +28,13 @@
   #:use-module (git)
   #:use-module (git types)
   #:use-module ((system foreign) #:select (%null-pointer
-                                           pointer->string))
+                                           dereference-pointer
+                                           pointer->string
+                                           string->pointer))
   #:use-module (bytestructures guile)
   #:use-module (tissue utils)
-  #:export (reference-symbolic-target
+  #:export (reference-set-target!
+            reference-symbolic-target
             git-top-level
             %current-git-repository
             current-git-repository
@@ -50,6 +53,18 @@
       (proc (diff->pointer diff) %null-pointer)
       diff)))
 
+(define reference-set-target!
+  (let ((proc (libgit2->procedure* "git_reference_set_target" '(* * * *))))
+    (lambda* (reference oid #:optional log-message)
+      (let ((out (make-double-pointer)))
+        (proc out
+              (reference->pointer reference)
+              (oid->pointer oid)
+              (if log-message
+                  (string->pointer log-message)
+                  %null-pointer))
+        (pointer->reference (dereference-pointer out))))))
+
 (define reference-symbolic-target
   (let ((proc (libgit2->procedure '* "git_reference_symbolic_target" '(*))))
     (lambda (reference)
-- 
cgit v1.2.3