Commit | Line | Data |
---|---|---|
7ed01457 | 1 | ;;; GNU Guix --- Functional package management for GNU |
a7cdf124 | 2 | ;;; Copyright © 2016, 2017, 2019 Eric Bavier <bavier@posteo.net> |
b5df3e26 | 3 | ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> |
7ed01457 EB |
4 | ;;; |
5 | ;;; This file is part of GNU Guix. | |
6 | ;;; | |
7 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
8 | ;;; under the terms of the GNU General Public License as published by | |
9 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
10 | ;;; your option) any later version. | |
11 | ;;; | |
12 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
13 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | ;;; GNU General Public License for more details. | |
16 | ;;; | |
17 | ;;; You should have received a copy of the GNU General Public License | |
18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
19 | ||
20 | (define-module (gnu packages lego) | |
21 | #:use-module ((guix licenses) #:prefix license:) | |
22 | #:use-module (guix download) | |
a7cdf124 | 23 | #:use-module (guix git-download) |
7ed01457 EB |
24 | #:use-module (guix packages) |
25 | #:use-module (guix build-system gnu) | |
26 | #:use-module (gnu packages) | |
27 | #:use-module (gnu packages bison) | |
68a29ab8 EB |
28 | #:use-module (gnu packages compression) |
29 | #:use-module (gnu packages flex) | |
30 | #:use-module (gnu packages gl) | |
31 | #:use-module (gnu packages qt)) | |
7ed01457 EB |
32 | |
33 | (define-public nqc | |
34 | (package | |
35 | (name "nqc") | |
36 | (version "3.1.r6") | |
37 | (source (origin | |
38 | (method url-fetch) | |
39 | (uri (string-append "http://bricxcc.sourceforge.net/nqc/release/" | |
40 | "nqc-" version ".tgz")) | |
41 | (sha256 | |
42 | (base32 | |
43 | "0rp7pzr8xrdxpv75c2mi8zszzz2ypli4vvzxiic7mbrryrafdmdz")))) | |
44 | (build-system gnu-build-system) | |
45 | (native-inputs | |
46 | `(("bison" ,bison) | |
47 | ("flex" ,flex))) | |
48 | (arguments | |
49 | '(#:tests? #f ;no tests | |
50 | #:make-flags (list (string-append "PREFIX=" %output)) | |
51 | #:phases (modify-phases %standard-phases | |
52 | (delete 'configure) | |
53 | (add-before 'build 'rm-generated | |
54 | ;; Regenerating compiler/lexer.cpp avoids an 'undefined | |
55 | ;; reference to `isatty(int)'' error. | |
56 | (lambda _ | |
57 | (for-each delete-file | |
58 | '("compiler/lexer.cpp" | |
59 | "compiler/parse.cpp")) | |
60 | #t)) | |
61 | (add-after 'unpack 'deal-with-tarbomb | |
62 | (lambda _ | |
63 | (chdir "..") ;tarbomb | |
64 | #t))))) | |
65 | (home-page "http://bricxcc.sourceforge.net/nqc/") | |
66 | (synopsis "C-like language for Lego's MINDSTORMS") | |
67 | (description | |
68 | "Not Quite C (NQC) is a simple language for programming several Lego | |
69 | MINDSTORMS products. The preprocessor and control structures of NQC are very | |
70 | similar to C. NQC is not a general purpose language -- there are many | |
71 | restrictions that stem from limitations of the standard RCX firmware.") | |
72 | (license license:mpl1.0))) | |
68a29ab8 EB |
73 | |
74 | (define-public leocad | |
75 | (package | |
76 | (name "leocad") | |
a7cdf124 | 77 | (version "19.07.1") |
68a29ab8 | 78 | (source (origin |
a7cdf124 EB |
79 | (method git-fetch) |
80 | (uri (git-reference | |
81 | (url "https://github.com/leozide/leocad.git") | |
82 | (commit (string-append "v" version)))) | |
83 | (file-name (git-file-name name version)) | |
68a29ab8 EB |
84 | (sha256 |
85 | (base32 | |
a7cdf124 | 86 | "02kv1m18g6s4dady9jv4sjivfkrp192bmdw2a3d9lzlp60zks0p2")))) |
68a29ab8 EB |
87 | (build-system gnu-build-system) |
88 | (native-inputs | |
84775d65 | 89 | `(("qttools" ,qttools))) ; for lrelease |
68a29ab8 EB |
90 | (inputs |
91 | `(("mesa" ,mesa) | |
92 | ("qtbase" ,qtbase) | |
93 | ("zlib" ,zlib))) | |
94 | (arguments | |
95 | '(#:tests? #f | |
96 | #:phases | |
97 | (modify-phases %standard-phases | |
98 | (replace 'configure | |
99 | (lambda* (#:key outputs inputs #:allow-other-keys) | |
100 | (let ((out (assoc-ref outputs "out"))) | |
84775d65 TGR |
101 | (invoke "qmake" |
102 | (string-append "INSTALL_PREFIX=" out) | |
103 | ;; Otherwise looks for lrelease-qt4. | |
104 | "QMAKE_LRELEASE=lrelease" | |
105 | ;; Don't pester users about updates. | |
106 | "DISABLE_UPDATE_CHECK=1") | |
107 | #t))) | |
68a29ab8 EB |
108 | (add-after 'configure 'reset-resource-timestamps |
109 | (lambda _ | |
110 | ;; The contents of build/release/.qrc/qrc_leocad.cpp generated by | |
111 | ;; qt's rcc tool depends on the timestamps in resources/*, in | |
112 | ;; particular the leocad_*.qm files that are created by qmake | |
113 | ;; above. So reset those timestamps for a reproducible build. | |
114 | (with-directory-excursion "resources" | |
115 | (for-each (lambda (file) | |
116 | (let* ((base (basename file ".qm")) | |
117 | (src (string-append base ".ts")) | |
118 | (st (stat src))) | |
119 | (set-file-time file st))) | |
84775d65 TGR |
120 | (find-files "." "leocad_.*\\.qm"))) |
121 | #t))))) | |
324f1927 | 122 | (home-page "https://www.leocad.org") |
68a29ab8 EB |
123 | (synopsis "Create virtual Lego models") |
124 | (description | |
125 | "LeoCAD is a program for creating virtual LEGO models. It has an | |
126 | intuitive interface, designed to allow new users to start creating new models | |
127 | without having to spend too much time learning the application. LeoCAD is | |
128 | fully compatible with the LDraw Standard and related tools.") | |
129 | (license license:gpl2+))) |