* [bug#29300] [PATCH] guile-wiredtiger
@ 2017-11-14 19:03 Kristofer Buffington
2017-11-14 22:38 ` bug#29300: " Ludovic Courtès
0 siblings, 1 reply; 2+ messages in thread
From: Kristofer Buffington @ 2017-11-14 19:03 UTC (permalink / raw)
To: 29300
[-- Attachment #1: Type: text/plain, Size: 111 bytes --]
This is my first patch! I followed manual section 7.5 to put this
together.
$ git format-patch origin/master
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: added package guile-wired tiger --]
[-- Type: text/x-patch, Size: 2853 bytes --]
From 421a4233a53fd6f0980da7705d0133ea0ada3e6c Mon Sep 17 00:00:00 2001
From: Kristofer Buffington <kristoferbuffington@gmail.com>
Date: Tue, 14 Nov 2017 11:25:18 -0500
Subject: [PATCH 1/2] added package defition for guile-wiredtiger
---
gnu/packages/databases.scm | 39 +++++++++++++++++++++++++++++++++++++++
1 file changed, 39 insertions(+)
diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 38ca5708d..4694fa82e 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -56,6 +56,7 @@
#:use-module (gnu packages gettext)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnupg)
+ #:use-module (gnu packages guile)
#:use-module (gnu packages time)
#:use-module (gnu packages jemalloc)
#:use-module (gnu packages language)
@@ -82,6 +83,7 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
+ #:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
@@ -1495,6 +1497,43 @@ trees (LSM), for sustained throughput under random insert workloads.")
;; configure.ac: WiredTiger requires a 64-bit build.
(supported-systems '("x86_64-linux" "mips64el-linux" "aarch64-linux"))))
+(define guile-wiredtiger
+ (package
+ (name "guile-wiredtiger")
+ (version "20171113.6cbc51da")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://framagit.org/a-guile-mind/guile-wiredtiger.git")
+ (commit "6cbc51dab95d28fe31ae025fbdd88f3ecbf2111b")))
+ (file-name (string-append name "-" version "-checkout"))
+ (sha256
+ (base32
+ "0x3qwpgch5pg0k21kc792h4y6b36a8xd1zkfq8ar2l2mqmpzkzyd"))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:tests? #f
+ #:configure-flags
+ (list (string-append "--with-libwiredtiger-prefix="
+ (assoc-ref %build-inputs "wiredtiger")))
+ #:make-flags '("GUILE_AUTO_COMPILE=0")
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'bootstrap
+ (lambda _ (zero? (system* "sh" "bootstrap")))))))
+ (native-inputs
+ `(("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("pkg-config" ,pkg-config)))
+ (inputs
+ `(("wiredtiger" ,wiredtiger)
+ ("guile-lib" ,guile-lib)
+ ("guile" ,guile-2.2)))
+ (synopsis "Wired Tiger bindings for GNU Guile")
+ (description "Wired Tiger bindings for GNU Guile. Build your own database!")
+ (home-page "https://framagit.org/a-guile-mind/guile-wiredtiger")
+ (license license:gpl3+)))
+
(define-public perl-db-file
(package
(name "perl-db-file")
--
2.15.0
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: fix formatting errors --]
[-- Type: text/x-patch, Size: 1330 bytes --]
From 24f55e56e1cd6ce541eb9ebd76454b896f2772a1 Mon Sep 17 00:00:00 2001
From: Kristofer Buffington <kristoferbuffington@gmail.com>
Date: Tue, 14 Nov 2017 13:27:39 -0500
Subject: [PATCH 2/2] fix formatting errors
---
gnu/packages/databases.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 4694fa82e..ca35bcd2a 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -1497,7 +1497,7 @@ trees (LSM), for sustained throughput under random insert workloads.")
;; configure.ac: WiredTiger requires a 64-bit build.
(supported-systems '("x86_64-linux" "mips64el-linux" "aarch64-linux"))))
-(define guile-wiredtiger
+(define-public guile-wiredtiger
(package
(name "guile-wiredtiger")
(version "20171113.6cbc51da")
@@ -1530,7 +1530,7 @@ trees (LSM), for sustained throughput under random insert workloads.")
("guile-lib" ,guile-lib)
("guile" ,guile-2.2)))
(synopsis "Wired Tiger bindings for GNU Guile")
- (description "Wired Tiger bindings for GNU Guile. Build your own database!")
+ (description "Wired Tiger bindings for GNU Guile. Build your own database!")
(home-page "https://framagit.org/a-guile-mind/guile-wiredtiger")
(license license:gpl3+)))
--
2.15.0
^ permalink raw reply related [flat|nested] 2+ messages in thread
* bug#29300: [PATCH] guile-wiredtiger
2017-11-14 19:03 [bug#29300] [PATCH] guile-wiredtiger Kristofer Buffington
@ 2017-11-14 22:38 ` Ludovic Courtès
0 siblings, 0 replies; 2+ messages in thread
From: Ludovic Courtès @ 2017-11-14 22:38 UTC (permalink / raw)
To: Kristofer Buffington; +Cc: 29300-done
[-- Attachment #1: Type: text/plain, Size: 201 bytes --]
Hi Kristofer,
Thanks for this first patch! I’ve squashed the two patches, applied
the small changes below, and added a commit log that followed our
conventions.
Welcome! :-)
Ludo’.
[-- Attachment #2: Type: text/x-patch, Size: 1864 bytes --]
diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index ca35bcd2a..6bc468679 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -22,6 +22,7 @@
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2017 Kristofer Buffington <kristoferbuffington@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -1520,17 +1521,29 @@ trees (LSM), for sustained throughput under random insert workloads.")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'bootstrap
- (lambda _ (zero? (system* "sh" "bootstrap")))))))
+ (lambda _
+ (zero? (system* "sh" "bootstrap"))))
+ (add-before 'bootstrap 'remove-bundled-dependencies
+ (lambda _
+ ;; TODO: Remove microkanren.scm when we have a separate package
+ ;; for it.
+ (delete-file "htmlprag.scm")
+ (substitute* "Makefile.am"
+ (("htmlprag\\.scm") ""))
+ #t)))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)))
(inputs
`(("wiredtiger" ,wiredtiger)
- ("guile-lib" ,guile-lib)
("guile" ,guile-2.2)))
+ (propagated-inputs
+ `(("guile-lib" ,guile-lib))) ;for (htmlprag)
(synopsis "Wired Tiger bindings for GNU Guile")
- (description "Wired Tiger bindings for GNU Guile. Build your own database!")
+ (description
+ "This package provides Guile bindings to the WiredTiger ``NoSQL''
+database.")
(home-page "https://framagit.org/a-guile-mind/guile-wiredtiger")
(license license:gpl3+)))
^ permalink raw reply related [flat|nested] 2+ messages in thread
end of thread, other threads:[~2017-11-14 22:39 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-11-14 19:03 [bug#29300] [PATCH] guile-wiredtiger Kristofer Buffington
2017-11-14 22:38 ` bug#29300: " Ludovic Courtès
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.