;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; 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 logo)
  #:use-module (gnu packages qt)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix download)
  #:use-module (guix packages)
  #:use-module (guix build-system gnu))

(define-public qlogo
  (package
    (name "qlogo")
    (version "0.92")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://qlogo.org/assets/sources/QLogo-"
                           version ".tgz"))
       (sha256
        (base32
         "0cpyj1ji6hjy7zzz05672f0j6fr0mwpc1y3sq36hhkv2fkpidw22"))))
    (build-system gnu-build-system)
    (inputs
     `(("qtbase" ,qtbase)))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (replace 'configure
           (lambda* (#:key outputs #:allow-other-keys)
             (substitute* "QLogo.pro"
               (("target\\.path = /usr/bin")
                (string-append "target.path = "
                               (assoc-ref outputs "out") "/bin")))
             (invoke "qmake" "QLogo.pro")))
         ;; The check phase rebuilds the source for tests. So, it needs to be
         ;; run after the install phase has installed the outputs of the build
         ;; phase.
         (delete 'check)
         (add-after 'install 'check
           (lambda _
             ;; Clean files created by the build phase.
             (invoke "make" "clean")
             ;; QLogo tries to create its "dribble file" in the home
             ;; directory. So, set HOME.
             (setenv "HOME" "/tmp")
             ;; Build and run tests.
             (invoke "qmake" "TestQLogo.pro")
             (invoke "make" "-j" (number->string (parallel-job-count)))
             (invoke "./testqlogo"))))))
    (home-page "https://qlogo.org")
    (synopsis "Logo interpreter using Qt and OpenGL")
    (description "QLogo is an interpreter for the Logo language written in C++
using Qt and OpenGL.  Specifically, it mimics, as reasonably as possible, the
UCBLogo interpreter.")
    (license license:gpl2+)))
n></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=b0e7b6992f3f845e83cfbca4d700b51dba50b4d5'>gnu: Remove ".git" from "https://github/…/….git".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-07-01 03:54:55 +0200'>2020-07-01</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=7c475372d2bd6dc4078dfab6703b4ca12a46dbd8'>gnu: premake@5: Update to 5.0.0-alpha15.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-06-22 17:16:39 +0200'>2020-06-22</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=cf14e67963147d5ecccb820203e601080f856f74'>gnu: gn: Update to 0.0-1794.eb997b5.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-06-16 05:15:47 +0200'>2020-06-16</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=0f99da2b3962b6c6f78b5f8ecbe57bf0fad590c2'>gnu: tup: Update to 0.7.9.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-06-14 23:52:21 +0200'>2020-06-14</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=2c1d1b7599a3738cdbdcaa281d56fa47b0b4c025'>gnu: Add tup.</a><span class='msg-avail'>...</span></td><td>Jakub Kądziołka</td></tr>
<tr><td><span title='2020-05-28 20:31:20 -0400'>2020-05-28</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=6560c4976f775db5b494356df2beaa0fcec6f9c0'>gnu: Add compiledb.</a><span class='msg-avail'>...</span></td><td>Yuval Kogman</td></tr>
<tr><td><span title='2020-04-13 20:26:21 +0200'>2020-04-13</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=fc58cb5bd2f4a4fb9e910f553009fce8a60e56e9'>Merge branch 'master' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-04-12 17:05:53 +0200'>2020-04-12</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=b7851222a812668b630803e477225a222ad8636b'>gnu: gn: Update to 0.0-1736.ec938dd.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-03-21 22:16:02 +0100'>2020-03-21</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=d19b14c8349ce8cacb62619ab68953265daeeca7'>Merge branch 'master' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-03-20 19:15:52 +0100'>2020-03-20</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=fcafee61bf26fcd3a16fb02aff500a328f5a33ac'>gnu: add premake5.</a><span class='msg-avail'>...</span></td><td>Leo Prikler</td></tr>
<tr><td><span title='2020-03-05 23:36:04 +0100'>2020-03-05</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=275f874958ddbbb68ddce93be2cb65bec7ac1bd4'>gnu: meson: Update to 0.53.2.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-03-04 23:16:17 +0100'>2020-03-04</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=ebb7cf9e21060105d9950dd5142c0eb918083666'>Merge branch 'master' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-02-18 01:26:06 +0100'>2020-02-18</span></td><td><a href='/guix/commit/gnu/packages/build-tools.scm?id=da567fc8bcd0fd5e3e928eb0c05e39c87ce6f380'>gnu: bear: Update to 2.4.3.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>