build-32.sh
[mes.git] / guix.scm
1 ;;; guix.scm -- Guix package definition
2
3 ;;; Mes --- Maxwell Equations of Software
4 ;;; Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
5
6 ;;; Also borrowing code from:
7 ;;; guile-sdl2 --- FFI bindings for SDL2
8 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
9
10 ;;;
11 ;;; guix.scm: This file is part of Mes.
12 ;;;
13 ;;; Mes is free software; you can redistribute it and/or modify it
14 ;;; under the terms of the GNU General Public License as published by
15 ;;; the Free Software Foundation; either version 3 of the License, or (at
16 ;;; your option) any later version.
17 ;;;
18 ;;; Mes is distributed in the hope that it will be useful, but
19 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21 ;;; GNU General Public License for more details.
22 ;;;
23 ;;; You should have received a copy of the GNU General Public License
24 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
25
26 ;;; Commentary:
27 ;;
28 ;; GNU Guix development package.  To build and install, run:
29 ;;
30 ;;   guix package -f guix.scm
31 ;;
32 ;; To build it, but not install it, run:
33 ;;
34 ;;   guix build -f guix.scm
35 ;;
36 ;; To use as the basis for a development environment, run:
37 ;;
38 ;;   guix environment -l guix.scm
39 ;;
40 ;;; Code:
41
42 (use-modules (srfi srfi-1)
43              (srfi srfi-26)
44              (ice-9 match)
45              (ice-9 popen)
46              (ice-9 rdelim)
47              (gnu packages)
48              (gnu packages base)
49              (gnu packages commencement)
50              (gnu packages cross-base)
51              (gnu packages elf)
52              (gnu packages gcc)
53              (gnu packages guile)
54              (gnu packages mes)
55              (gnu packages package-management)
56              (gnu packages perl)
57              ((guix build utils) #:select (with-directory-excursion))
58              (guix build-system gnu)
59              (guix build-system trivial)
60              (guix gexp)
61              (guix download)
62              (guix git-download)
63              (guix licenses)
64              (guix packages))
65
66 (define %source-dir (dirname (current-filename)))
67
68 (define git-file?
69   (let* ((pipe (with-directory-excursion %source-dir
70                  (open-pipe* OPEN_READ "git" "ls-files")))
71          (files (let loop ((lines '()))
72                   (match (read-line pipe)
73                     ((? eof-object?)
74                      (reverse lines))
75                     (line
76                      (loop (cons line lines))))))
77          (status (close-pipe pipe)))
78     (lambda (file stat)
79       (match (stat:type stat)
80         ('directory #t)
81         ((or 'regular 'symlink)
82          (any (cut string-suffix? <> file) files))
83         (_ #f)))))
84
85 (define-public nyacc
86   (package
87     (name "nyacc")
88     (version "0.82.4")
89     (source (origin
90               (method url-fetch)
91               (uri (string-append "mirror://savannah/nyacc/"
92                                   name "-" version ".tar.gz"))
93               (file-name (string-append name "-" version ".tar.gz"))
94               (sha256
95                (base32
96                 "0ykz64jlf1kpxz3qqr0nmci57r5yqwyd3s2g93vrmcnpy9d7y22p"))))
97     (build-system gnu-build-system)
98     (native-inputs
99      `(("guile" ,guile-2.2)))
100     (synopsis "LALR(1) Parser Generator in Guile")
101     (description
102      "NYACC is an LALR(1) parser generator implemented in Guile.
103 The syntax and nomenclature should be considered not stable.  It comes with
104 extensive examples, including parsers for the Javascript and C99 languages.")
105     (home-page "https://savannah.nongnu.org/projects/nyacc")
106     (license (list gpl3+ lgpl3+))))
107
108 (define-public nyacc
109   (package
110     (name "nyacc")
111     (version "0.80.42")
112     (source (origin
113               (method url-fetch)
114               (uri (string-append "https://gitlab.com/janneke/nyacc"
115                                   "/repository/archive.tar.gz?ref=v"
116                                   version))
117               (file-name (string-append name "-" version ".tar.gz"))
118               (sha256
119                (base32
120                 "101k3hy4jk5p109k6w4dpx3bjm0g53zwb1yxvvad8khfq00wb8hd"))))
121     (build-system gnu-build-system)
122     (native-inputs
123      `(("guile" ,guile-2.2)))
124     (synopsis "LALR(1) Parser Generator in Guile")
125     (description
126      "NYACC is an LALR(1) parser generator implemented in Guile.
127 The syntax and nomenclature should be considered not stable.  It comes with
128 extensive examples, including parsers for the Javascript and C99 languages.")
129     (home-page "https://savannah.nongnu.org/projects/nyacc")
130     (license (list gpl3+ lgpl3+))))
131
132 (define-public mescc-tools
133   (package
134     (name "mescc-tools")
135     (version "0.4")
136     (source (origin
137               (method url-fetch)
138               (uri (string-append
139                     "https://github.com/oriansj/mescc-tools/archive/Release_"
140                     version
141                     ".tar.gz"))
142               (file-name (string-append name "-" version ".tar.gz"))
143               (sha256
144                (base32
145                 "1iwc8xqwzdaqckb4jkkisljrgn8ii4bl7dzk1l2kpv98hsyq9vi1"))))
146     (build-system gnu-build-system)
147     (supported-systems '("i686-linux" "x86_64-linux"))
148     (arguments
149      `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
150        #:test-target "test"
151        #:phases (modify-phases %standard-phases
152                   (delete 'configure)
153                   (add-after 'install 'install-2
154                     (lambda _
155                       (let ((out (assoc-ref %outputs "out")))
156                        (copy-file "bin/blood-elf" (string-append out "/bin/blood-elf"))))))))
157     (synopsis "Tools for the full source bootstrapping process")
158     (description
159      "Mescc-tools is a collection of tools for use in a full source
160 bootstrapping process.  Currently consists of the M1 macro assembler and the
161 hex2 linker.")
162     (home-page "https://github.com/oriansj/mescc-tools")
163     (license gpl3+)))
164
165 (define-public mes
166   (let ((commit "0330aab202188306aa7676badfa3edafab707403")
167         (revision "0")
168         (triplet "i686-unknown-linux-gnu")
169         (version "0.12"))
170     (package
171       (name "mes")
172       (version (string-append version "-" revision "." (string-take commit 7)))
173       (source (origin
174                 (method git-fetch)
175                 (uri (git-reference
176                       (url "https://gitlab.com/janneke/mes")
177                       (commit commit)))
178                 (file-name (string-append name "-" version))
179                 (sha256
180                  (base32 "1jifgmvgds8fxxv0zkna66f2p9cn46ych2qwn9p04088hdvkknwk"))))
181       (build-system gnu-build-system)
182       (supported-systems '("i686-linux" "x86_64-linux"))
183       (propagated-inputs
184        `(("mescc-tools" ,mescc-tools)
185          ("nyacc" ,nyacc)))
186       (native-inputs
187        `(("guile" ,guile-2.2)
188          ,@(if (string-prefix? "x86_64-linux" (or (%current-target-system)
189                                                   (%current-system)))
190                ;; Use cross-compiler rather than #:system "i686-linux" to get
191                ;; MesCC 64 bit .go files installed ready for use with Guile.
192                `(("i686-linux-binutils" ,(cross-binutils triplet))
193                  ("patchelf" ,patchelf)
194                  ("i686-linux-libc" ,(cross-libc triplet)) ;; FIXME: for debugging only
195                  ("i686-linux-gcc" ,(cross-gcc triplet)))
196                '())
197          ("perl" ,perl)))               ;build-aux/gitlog-to-changelog
198       (arguments
199        `(#:phases
200          (modify-phases %standard-phases
201            (add-before 'build 'make-git-source-writable
202            (lambda* (#:key outputs #:allow-other-keys)
203              (for-each make-file-writable
204                        (find-files "." ".*\\.M1"))))
205            (add-before 'install 'generate-changelog
206              (lambda _
207                (with-output-to-file "ChangeLog"
208                  (lambda ()
209                    (display "Please run
210     build-aux/gitlog-to-changelog --srcdir=<git-checkout> > ChangeLog\n")))
211                #t))
212            (delete 'strip)))) ; binutil's strip b0rkes Mescc/M1/hex2 binaries
213       (synopsis "Scheme interpreter and C compiler for full source bootstrapping")
214       (description
215        "Mes [Maxwell Equations of Software] aims to create full source
216 bootstrapping for GuixSD.  It consists of a mutual self-hosting [close to
217 Guile-] Scheme interpreter prototype in C and a Nyacc-based C compiler in
218 [Guile] Scheme.")
219       (home-page "https://gitlab.com/janneke/mes")
220       (license gpl3+))))
221
222 (define-public mes.git
223  (let ((version "0.12")
224         (revision "0")
225         (commit (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ))))
226     (package
227       (inherit mes)
228       (name "mes.git")
229       (version (string-append version "-" revision "." (string-take commit 7)))
230       (source (local-file %source-dir #:recursive? #t #:select? git-file?)))))
231
232 ;; Return it here so `guix build/environment/package' can consume it directly.
233 mes.git