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
| | From 99054837c6616e06c48c944094114ae8c9b628f3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Batista?= <nandre@riseup.net>
Date: Thu, 19 May 2022 09:35:25 -0300
To: incoming+guile-git-guile-git-1792500-1ffl9ys3eg9dz7xscimedvf7n-merge-request@incoming.gitlab.com
Subject: Update GIT_OPT definitions to match upstream enum
* git/settings.scm: Update definitions to match libgit2 v. 1.4.3.
---
git/settings.scm | 25 +++++++++++++++++++++++--
1 file changed, 23 insertions(+), 2 deletions(-)
diff --git a/git/settings.scm b/git/settings.scm
index 83e2483..4621f43 100644
--- a/git/settings.scm
+++ b/git/settings.scm
@@ -1,5 +1,6 @@
;;; Guile-Git --- GNU Guile bindings of libgit2
;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2022 André Batista <nandre@riseup.net>
;;;
;;; This file is part of Guile-Git.
;;;
@@ -38,8 +39,28 @@
(define GIT_OPT_SET_SSL_CERT_LOCATIONS 12)
(define GIT_OPT_SET_USER_AGENT 13)
(define GIT_OPT_ENABLE_STRICT_OBJECT_CREATION 14)
-(define GIT_OPT_SET_SSL_CIPHERS 15)
-(define GIT_OPT_GET_USER_AGENT 16)
+(define GIT_OPT_ENABLE_STRICT_SYMBOLIC_REF_CREATION 15)
+(define GIT_OPT_SET_SSL_CIPHERS 16)
+(define GIT_OPT_GET_USER_AGENT 17)
+(define GIT_OPT_ENABLE_OFS_DELTA 18)
+(define GIT_OPT_ENABLE_FSYNC_GITDIR 19)
+(define GIT_OPT_GET_WINDOWS_SHAREMODE 20)
+(define GIT_OPT_SET_WINDOWS_SHAREMODE 21)
+(define GIT_OPT_ENABLE_STRICT_HASH_VERIFICATION 22)
+(define GIT_OPT_SET_ALLOCATOR 23)
+(define GIT_OPT_ENABLE_UNSAVED_INDEX_SAFETY 24)
+(define GIT_OPT_GET_PACK_MAX_OBJECTS 25)
+(define GIT_OPT_SET_PACK_MAX_OBJECTS 26)
+(define GIT_OPT_DISABLE_PACK_KEEP_FILE_CHECKS 27)
+(define GIT_OPT_ENABLE_HTTP_EXPECT_CONTINUE 28)
+(define GIT_OPT_GET_MWINDOW_FILE_LIMIT 29)
+(define GIT_OPT_SET_MWINDOW_FILE_LIMIT 30)
+(define GIT_OPT_SET_ODB_PACKED_PRIORITY 31)
+(define GIT_OPT_SET_ODB_LOOSE_PRIORITY 32)
+(define GIT_OPT_GET_EXTENSIONS 33)
+(define GIT_OPT_SET_EXTENSIONS 34)
+(define GIT_OPT_GET_OWNER_VALIDATION 35)
+(define GIT_OPT_SET_OWNER_VALIDATION 36)
(define set-tls-certificate-locations!
(let ((proc (libgit2->procedure* "git_libgit2_opts" (list int '* '*))))
--
2.36.0
|