Browse Source

gnu: Add guile-gdbm-ffi.

* gnu/packages/guile.scm (guile-gdbm-ffi): New variable.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
gn-latest-20200428
Christopher Allan Webber 5 years ago
committed by Ludovic Courtès
parent
commit
93e7199b35
1 changed files with 66 additions and 0 deletions
  1. +66
    -0
      gnu/packages/guile.scm

+ 66
- 0
gnu/packages/guile.scm View File

@@ -38,6 +38,7 @@
#:use-module (gnu packages base)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gdbm)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
@@ -475,4 +476,69 @@ slightly from miniKanren mainline.
See http://minikanren.org/ for more on miniKanren generally.")
(license expat)))


;; There are two guile-gdbm packages, one using the FFI and one with
;; direct C bindings, hence the verbose name.

(define-public guile-gdbm-ffi
(package
(name "guile-gdbm-ffi")
(version "20120209.fa1d5b6")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ijp/guile-gdbm.git")
(commit "fa1d5b6231d0e4d096687b378c025f2148c5f246")))
(sha256
(base32
"1j8wrsw7v9w6qkl47xz0rdikg50v16nn6kbs3lgzcymjzpa7babj"))))
(build-system trivial-build-system)
(arguments
`(#:modules
((guix build utils))
#:builder
(begin
(use-modules (guix build utils)
(system base compile))

(let* ((out (assoc-ref %outputs "out"))
(module-dir (string-append out "/share/guile/site/2.0"))
(source (assoc-ref %build-inputs "source"))
(doc (string-append out "/share/doc"))
(guild (string-append (assoc-ref %build-inputs "guile")
"/bin/guild"))
(gdbm.scm-dest
(string-append module-dir "/gdbm.scm"))
(gdbm.go-dest
(string-append module-dir "/gdbm.go")))
;; Make installation directories.
(mkdir-p module-dir)
(mkdir-p doc)

;; Switch directory for compiling and installing
(chdir source)

;; copy the source
(copy-file "gdbm.scm" gdbm.scm-dest)

;; Patch the FFI
(substitute* gdbm.scm-dest
(("\\(dynamic-link \"libgdbm\"\\)")
(format #f "(dynamic-link \"~a/lib/libgdbm.so\")"
(assoc-ref %build-inputs "gdbm"))))

;; compile to the destination
(compile-file gdbm.scm-dest
#:output-file gdbm.go-dest)))))
(inputs
`(("guile" ,guile-2.0)))
(propagated-inputs
`(("gdbm" ,gdbm)))
(home-page "https://github.com/ijp/guile-gdbm")
(synopsis "Guile bindings to the GDBM library via Guile's FFI")
(description
"Guile bindings to the GDBM key-value storage system, using
Guile's foreign function interface.")
(license gpl3+)))

;;; guile.scm ends here

Loading…
Cancel
Save