;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
;;;
;;; 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 mysql)
  #:use-module (gnu packages)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages openssl)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages ncurses)
  #:use-module ((guix licenses) #:select (gpl2))
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

(define-public mysql
  (package
    (name "mysql")
    (version "5.1.54")
    (source (origin
             (method url-fetch)
             (uri (string-append
                   "http://downloads.mysql.com/archives/mysql-5.1/mysql-"
                   version ".tar.gz"))
             (sha256
              (base32
               "07xbnwk7h1xya8s6dw34nrv7ampzag8l0l1szd2pc9zyqkzhydw4"))))
    (build-system gnu-build-system)
    (inputs
     `(("procps" ,procps)
       ("openssl" ,openssl)
       ("perl" ,perl)
       ("zlib" ,zlib)
       ("ncurses" ,ncurses)))
    (arguments
     '(#:modules ((guix build gnu-build-system)
                  (guix build utils)
                  (ice-9 ftw))                    ; for "rm -rf"
       #:phases (alist-cons-after
                 'install 'clean-up
                 (lambda* (#:key outputs #:allow-other-keys)
                   ;; Remove the 112 MiB of tests that get installed.
                   (let ((out (assoc-ref outputs "out")))
                     (define (rm-rf dir)
                       (file-system-fold (const #t) ; enter?
                                         (lambda (file stat result) ; leaf
                                           (delete-file file))
                                         (const #t)               ; down
                                         (lambda (dir stat result) ; up
                                           (rmdir dir))
                                         (const #t)
                                         (lambda (file stat errno result)
                                           (format (current-error-port)
                                                   "error: ~a: ~a~%"
                                                   file (strerror errno)))
                                         #t
                                         (string-append out "/" dir)))
                     (rm-rf "mysql-test")
                     (rm-rf "sql-bench")

                     ;; Compress the 14 MiB Info file.
                     (zero?
                      (system* "gzip" "--best"
                               (string-append out "/share/info/mysql.info")))))
                 %standard-phases)))
    (home-page "http://www.mysql.com/")
    (synopsis "A fast, easy to use, and popular database")
    (description
     "MySQL is a fast, reliable, and easy to use relational database
management system that supports the standardized Structured Query
Language.")
    (license gpl2)))
'report-load-error'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-04-19 17:46:40 +0200'>2019-04-19</span></td><td><a href='/guix/commit/build-aux/compile-all.scm?id=04b5ac212f33fc20696fbe43816a1a86aad1a9f2'>build: Show completion percentage while building.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-11-28 13:40:04 +0100'>2017-11-28</span></td><td><a href='/guix/commit/build-aux/compile-all.scm?id=c397dfca033c2212abdd012a28c562cc3eaa942c'>build: Explicitly flush the "LOAD" and "GUILEC" lines.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-10-22 22:09:00 -0700'>2017-10-22</span></td><td><a href='/guix/commit/build-aux/compile-all.scm?id=3a9976bfcd13e6554a2458ce1a3b9d7b95043195'>build: Honor make's '-j' flag.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-10-22 22:09:00 -0700'>2017-10-22</span></td><td><a href='/guix/commit/build-aux/compile-all.scm?id=2890ad332fcdfd4bc92b127d783975437c8b718b'>build: Factorize module compilation in (guix build compile).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-09-08 12:48:08 +0200'>2017-09-08</span></td><td><a href='/guix/commit/build-aux/compile-all.scm?id=1b58f1c8ba6f2ccf7e19c6b022b7567a6841a28b'>build: Use -Wmacro-use-before-definition.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>