guix: Update nyacc to 0.83.31.
[mes.git] / guix.scm
1 ;;; guix.scm -- Guix package definition
2
3 ;;; Mes --- Maxwell Equations of Software
4 ;;; Copyright © 2016,2017,2018 Jan 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 gcc)
52              (gnu packages guile)
53              (gnu packages mes)
54              (gnu packages package-management)
55              (gnu packages perl)
56              ((guix build utils) #:select (with-directory-excursion))
57              (guix build-system gnu)
58              (guix build-system trivial)
59              (guix gexp)
60              (guix download)
61              (guix git-download)
62              (guix licenses)
63              (guix packages))
64
65 (define %source-dir (dirname (current-filename)))
66
67 (define git-file?
68   (let* ((pipe (with-directory-excursion %source-dir
69                  (open-pipe* OPEN_READ "git" "ls-files")))
70          (files (let loop ((lines '()))
71                   (match (read-line pipe)
72                     ((? eof-object?)
73                      (reverse lines))
74                     (line
75                      (loop (cons line lines))))))
76          (status (close-pipe pipe)))
77     (lambda (file stat)
78       (match (stat:type stat)
79         ('directory #t)
80         ((or 'regular 'symlink)
81          (any (cut string-suffix? <> file) files))
82         (_ #f)))))
83
84 (define-public nyacc
85   (package
86     (name "nyacc")
87     (version "0.82.4")
88     (source (origin
89               (method url-fetch)
90               (uri (string-append "mirror://savannah/nyacc/"
91                                   name "-" version ".tar.gz"))
92               (file-name (string-append name "-" version ".tar.gz"))
93               (sha256
94                (base32
95                 "0ykz64jlf1kpxz3qqr0nmci57r5yqwyd3s2g93vrmcnpy9d7y22p"))))
96     (build-system gnu-build-system)
97     (native-inputs
98      `(("guile" ,guile-2.2)))
99     (synopsis "LALR(1) Parser Generator in Guile")
100     (description
101      "NYACC is an LALR(1) parser generator implemented in Guile.
102 The syntax and nomenclature should be considered not stable.  It comes with
103 extensive examples, including parsers for the Javascript and C99 languages.")
104     (home-page "https://savannah.nongnu.org/projects/nyacc")
105     (license (list gpl3+ lgpl3+))))
106
107 (define-public nyacc
108   (package
109     (name "nyacc")
110     (version "0.83.31")
111     (source (origin
112               (method url-fetch)
113               (uri (string-append "https://gitlab.com/janneke/nyacc"
114                                   "/repository/archive.tar.gz?ref=v"
115                                   version))
116               (file-name (string-append name "-" version ".tar.gz"))
117               (sha256
118                (base32
119                 "1bwz2m0jaxy2574dxfshfax77a388affzx3y0jmwk99mjaa0a33a"))))
120     (build-system gnu-build-system)
121     (native-inputs
122      `(("guile" ,guile-2.2)))
123     (synopsis "LALR(1) Parser Generator in Guile")
124     (description
125      "NYACC is an LALR(1) parser generator implemented in Guile.
126 The syntax and nomenclature should be considered not stable.  It comes with
127 extensive examples, including parsers for the Javascript and C99 languages.")
128     (home-page "https://savannah.nongnu.org/projects/nyacc")
129     (license (list gpl3+ lgpl3+))))
130
131 (define-public mescc-tools
132   (package
133     (name "mescc-tools")
134     (version "0.2")
135     (source (origin
136               (method url-fetch)
137               (uri (string-append
138                     "https://github.com/oriansj/mescc-tools/archive/Release_"
139                     version
140                     ".tar.gz"))
141               (file-name (string-append name "-" version ".tar.gz"))
142               (sha256
143                (base32
144                 "0gmyczh88xcsmrmxqksbpaqidchj5hfqxqk7apx40k9r3vav6mnz"))))
145     (build-system gnu-build-system)
146     (supported-systems '("i686-linux" "x86_64-linux"))
147     (arguments
148      `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
149        #:test-target "test"
150        #:phases (modify-phases %standard-phases
151                   (delete 'configure))))
152     (synopsis "Tools for the full source bootstrapping process")
153     (description
154      "Mescc-tools is a collection of tools for use in a full source
155 bootstrapping process.  Currently consists of the M1 macro assembler and the
156 hex2 linker.")
157     (home-page "https://github.com/oriansj/mescc-tools")
158     (license gpl3+)))
159
160 (define-public mes
161   (let ((commit "296564978676e8024e7378411be2ee04d3dc8c94")
162         (revision "0")
163         (triplet "i686-unknown-linux-gnu")
164         (version "0.11"))
165     (package
166       (name "mes")
167       (version (string-append version "-" revision "." (string-take commit 7)))
168       (source (origin
169                 (method git-fetch)
170                 (uri (git-reference
171                       (url "https://gitlab.com/janneke/mes")
172                       (commit commit)))
173                 (file-name (string-append name "-" version))
174                 (sha256
175                  (base32 "10yzkvw0mr8zyihkwls80wkramlx50a0xzlyxr9fyl66q1gmsjv8"))))
176       (build-system gnu-build-system)
177       (supported-systems '("i686-linux" "x86_64-linux"))
178       (propagated-inputs
179        `(("mescc-tools" ,mescc-tools)
180          ("nyacc" ,nyacc)))
181       (native-inputs
182        `(("guile" ,guile-2.2)
183          ,@(if (string-prefix? "x86_64-linux" (or (%current-target-system)
184                                                   (%current-system)))
185                ;; Use cross-compiler rather than #:system "i686-linux" to get
186                ;; MesCC 64 bit .go files installed ready for use with Guile.
187                `(("i686-linux-binutils" ,(cross-binutils triplet))
188                  ("i686-linux-gcc" ,(cross-gcc triplet)))
189                '())
190          ("perl" ,perl)))               ;build-aux/gitlog-to-changelog
191       (arguments
192        `(#:phases
193          (modify-phases %standard-phases
194            (add-before 'build 'make-git-source-writable
195            (lambda* (#:key outputs #:allow-other-keys)
196              (for-each make-file-writable
197                        (find-files "." ".*\\.M1"))))
198            (add-before 'install 'generate-changelog
199              (lambda _
200                (with-output-to-file "ChangeLog"
201                  (lambda ()
202                    (display "Please run
203     build-aux/gitlog-to-changelog --srcdir=<git-checkout> > ChangeLog\n")))
204                #t))
205            (delete 'strip)))) ; binutil's strip b0rkes Mescc/M1/hex2 binaries
206       (synopsis "Scheme interpreter and C compiler for full source bootstrapping")
207       (description
208        "Mes [Maxwell Equations of Software] aims to create full source
209 bootstrapping for GuixSD.  It consists of a mutual self-hosting [close to
210 Guile-] Scheme interpreter prototype in C and a Nyacc-based C compiler in
211 [Guile] Scheme.")
212       (home-page "https://gitlab.com/janneke/mes")
213       (license gpl3+))))
214
215 (define-public mes.git
216  (let ((version "0.11")
217         (revision "0")
218         (commit (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ))))
219     (package
220       (inherit mes)
221       (name "mes.git")
222       (version (string-append version "-" revision "." (string-take commit 7)))
223       (source (local-file %source-dir #:recursive? #t #:select? git-file?)))))
224
225 ;; Return it here so `guix build/environment/package' can consume it directly.
226 mes.git