(define-module (mcgoron guix external-packages)
  #:use-module (rnrs base)
  #:use-module (guix packages)
  #:use-module (guix utils)
  #:use-module (gnu packages)
  #:use-module (guix build-system)
  #:use-module (guix gexp)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses)
  #:use-module (guix git-download)
  #:use-module (guix download))

(define-public libck
  (package
   (name "libck")
   (version "0.7.2")
   (synopsis "Modern concurrency primitives and building blocks for high performance applications.")
   (description "Concurrency primitives, safe memory reclamation mechanisms and non-blocking (including lock-free) data structures designed to aid in the research, design and implementation of high performance concurrent systems developed in C99+.")
   (home-page "https://github.com/concurrencykit/ck")
   (build-system gnu-build-system)
   (source
    (origin (method git-fetch)
            (uri (git-reference (url "https://github.com/concurrencykit/ck")
                                (commit version)))
            (sha256 (base32 "04m572h20ql8l8d4p9ka6rhc8zj7mngqyn61wagi393pqrd7q4lp"))))
   (license bsd-2)
   (arguments
    (list
     #:phases
     #~
     (modify-phases %standard-phases
       (replace 'configure
         (lambda* (#:key outputs #:allow-other-keys)
           (invoke "./configure"
                   (string-append "--prefix="
                                  (assoc-ref %outputs "out")))))
       (replace 'build
         (lambda _
           (invoke "make" "regressions")
           (invoke "make" "all")))
       (replace 'check
         (lambda _
           (invoke "make" "check"))))))))