;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2024 Marc Coquand <marc@mccd.space>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages libpg_query)
  #:use-module (gnu packages)
  #:use-module (gnu packages base)
  #:use-module (gnu packages commencement)
  #:use-module (guix packages)
  #:use-module (guix git-download)
  #:use-module (guix utils)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module ((guix licenses) #:prefix license:)
 )

(define-public libpg_query
  (package
    (name "libpg_query")
    (version "16-5.1.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/pganalyze/libpg_query")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0wk39vx3pbq19s89qh5k4a45hdnpm6c476sbq4w0g430ly6313sz"))))
    (build-system gnu-build-system)
    (arguments
     `(#:phases (modify-phases %standard-phases
                  (delete 'configure)
                  (delete 'check)
                  (add-before 'build 'set-additional-paths
                    (lambda* (#:key inputs #:allow-other-keys)
                      (setenv "CC" "gcc")
                      (substitute* "Makefile"
                        (("prefix = /usr/local")
                         (string-append "prefix="
                                        (assoc-ref %outputs "out")))))))))
    (inputs (list which gcc-toolchain))
    (home-page "https://github.com/pganalyze/libpg_query")
    (synopsis
     "C library for accessing the PostgreSQL parser outside of the server environment")
    (description
     "C library for accessing the PostgreSQL parser outside of the server.
This library uses the actual PostgreSQL server source to parse SQL queries
 and return the internal PostgreSQL parse tree.")
    (license license:bsd-3)))