(use-modules (guix packages)
             (guix gexp)
             (guix download)
             (guix git-download)
             (gnu packages autotools)
             (guix build-system gnu)
             (gnu packages guile)
             (gnu packages perl)
             (gnu packages texinfo)
             ((guix licenses) #:prefix license:))


(package
 (name "guile3-dbi")
 (version "2.1.8")
 (source (local-file "/home/nalaginrut/Project/guile-dbi" #:recursive? #t))
 (build-system gnu-build-system)
 (arguments
  `(#:modules (((guix build guile-build-system)
                #:select (target-guile-effective-version))
               ,@%gnu-build-system-modules)
              #:imported-modules ((guix build guile-build-system)
                                  ,@%gnu-build-system-modules)
              #:configure-flags
              (list (string-append
                     "--with-guile-site-dir=" %output "/share/guile/site/"
                     (target-guile-effective-version (assoc-ref %build-inputs "guile"))))
              #:phases
              (modify-phases %standard-phases
                             (add-after 'unpack 'chdir
                                        (lambda _
                                          ;; The upstream Git repository contains all the code, so change
                                          ;; to the directory specific to guile-dbi.
                                          (chdir "guile-dbi")))
                             (add-after 'install 'patch-extension-path
                                        (lambda* (#:key inputs outputs #:allow-other-keys)
                                          (let* ((out (assoc-ref outputs "out"))
                                                 (dbi.scm (string-append out "/share/guile/site/"
                                                                         (target-guile-effective-version
                                                                          (assoc-ref inputs "guile"))
                                                                         "/dbi/dbi.scm"))
                                                 (ext (string-append out "/lib/libguile-dbi")))
                                            (substitute* dbi.scm (("libguile-dbi") ext))))))))
 (inputs
  (list guile-3.0))
 (native-inputs
  (list autoconf automake libtool perl texinfo))
 (synopsis "Guile database abstraction layer")
 (home-page "https://github.com/opencog/guile-dbi")
 (description
  "guile-dbi is a library for Guile that provides a convenient interface to
SQL databases.  Database programming with guile-dbi is generic in that the same
programming interface is presented regardless of which database system is used.
It currently supports MySQL, Postgres and SQLite3.")
 (license license:gpl2+)
 (native-search-paths
  (list (search-path-specification
         (variable "GUILE_DBD_PATH")
         (files '("lib"))))))