;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2019 Arun Isaac ;;; ;;; 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 . (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 (list qtbase-5)) (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+))) m?id=84157bb8bf2c610584e0836047da4c710f8eaf76'>Merge branch 'master' into core-updates...Most conflicts are from 6fd52309b8f52c9bb59fccffac53e029ce94b698. Marius Bakke 2017-03-30gnu: Use HTTPS for almost all gnu.org HOME-PAGEs....All HTTP gnu.org (and supported subdomain) HOME-PAGEs changed to HTTPS. Tobias Geerinckx-Rice 2017-03-19gnu: elogind: Build with gperf 3.0....* gnu/packages/gperf.scm (gperf-3.0): New variable. * gnu/packages/freedesktop.scm (elogind)[native-inputs]: Use GPERF-3.0 instead of GPERF. Ludovic Courtès 2017-02-17gnu: gperf: Update to 3.1...* gnu/packages/gperf.scm (gperf): Update to 3.1 John Darrington graph.sh, tests/guix-hash.sh, tests/guix-lint.sh, tests/guix-pack-relocatable.sh, tests/guix-pack.sh, tests/guix-package-aliases.sh, tests/guix-package-net.sh, tests/guix-package.sh: Use the shell '!' keyword to negate command exit status in place of 'if ...; then false; else true; fi' Eric Bavier