;;; 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+))) ¨s 2020-05-25tests: Hide quoted (define-module ...) form from Geiser....Ludovic Courtès 2020-05-16gexp: Add 'let-system'....Ludovic Courtès 2020-03-12gexp: Add 'with-parameters'....Ludovic Courtès 2020-03-08gexp: Default to current target....Mathieu Othacehe 2020-01-04gexp: Add 'raw-derivation-file'....Ludovic Courtès 2019-12-18gexp: Allow character literals in GEXP->SEXP....Marius Bakke 2019-11-30gexp: 'local-file' properly resolves non-literal relative file names....Ludovic Courtès 2019-09-23gexp: Catch and report non-self-quoting gexp inputs....Ludovic Courtès 2019-07-26gexp: 'program-file' honors the current system and cross-compilation target....Ludovic Courtès 2019-07-15gexp: 'lowered-gexp-guile' now returns a <derivation-input>....Ludovic Courtès 2019-07-15gexp: <lowered-gexp> separates sources from derivation inputs....Ludovic Courtès 2019-07-04gexp: Add 'lower-gexp' and express 'gexp->derivation' in terms of it....Ludovic Courtès