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 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.80.42")
 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                 "101k3hy4jk5p109k6w4dpx3bjm0g53zwb1yxvvad8khfq00wb8hd"))))
 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.4")
 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                 "1iwc8xqwzdaqckb4jkkisljrgn8ii4bl7dzk1l2kpv98hsyq9vi1"))))
 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                   (add-after 'install 'install-2
 153                     (lambda _
 154                       (let ((out (assoc-ref %outputs "out")))
 155                        (copy-file "bin/blood-elf" (string-append out "/bin/blood-elf"))))))))
 156     (synopsis "Tools for the full source bootstrapping process")
 157     (description
 158      "Mescc-tools is a collection of tools for use in a full source
 159 bootstrapping process.  Currently consists of the M1 macro assembler and the
 160 hex2 linker.")
 161     (home-page "https://github.com/oriansj/mescc-tools")
 162     (license gpl3+)))
 163
 164 (define-public mes
 165   (let ((commit "0330aab202188306aa7676badfa3edafab707403")
 166         (revision "0")
 167         (triplet "i686-unknown-linux-gnu")
 168         (version "0.12"))
 169     (package
 170       (name "mes")
 171       (version (string-append version "-" revision "." (string-take commit 7)))
 172       (source (origin
 173                 (method git-fetch)
 174                 (uri (git-reference
 175                       (url "https://gitlab.com/janneke/mes")
 176                       (commit commit)))
 177                 (file-name (string-append name "-" version))
 178                 (sha256
 179                  (base32 "1jifgmvgds8fxxv0zkna66f2p9cn46ych2qwn9p04088hdvkknwk"))))
 180       (build-system gnu-build-system)
 181       (supported-systems '("i686-linux" "x86_64-linux"))
 182       (propagated-inputs
 183        `(("mescc-tools" ,mescc-tools)
 184          ("nyacc" ,nyacc)))
 185       (native-inputs
 186        `(("guile" ,guile-2.2)
 187          ,@(if (string-prefix? "x86_64-linux" (or (%current-target-system)
 188                                                   (%current-system)))
 189                ;; Use cross-compiler rather than #:system "i686-linux" to get
 190                ;; MesCC 64 bit .go files installed ready for use with Guile.
 191                `(("i686-linux-binutils" ,(cross-binutils triplet))
 192                  ("i686-linux-gcc" ,(cross-gcc triplet)))
 193                '())
 194          ("perl" ,perl)))               ;build-aux/gitlog-to-changelog
 195       (arguments
 196        `(#:phases
 197          (modify-phases %standard-phases
 198            (add-before 'build 'make-git-source-writable
 199            (lambda* (#:key outputs #:allow-other-keys)
 200              (for-each make-file-writable
 201                        (find-files "." ".*\\.M1"))))
 202            (add-before 'install 'generate-changelog
 203              (lambda _
 204                (with-output-to-file "ChangeLog"
 205                  (lambda ()
 206                    (display "Please run
 207     build-aux/gitlog-to-changelog --srcdir=<git-checkout> > ChangeLog\n")))
 208                #t))
 209            (delete 'strip)))) ; binutil's strip b0rkes Mescc/M1/hex2 binaries
 210       (synopsis "Scheme interpreter and C compiler for full source bootstrapping")
 211       (description
 212        "Mes [Maxwell Equations of Software] aims to create full source
 213 bootstrapping for GuixSD.  It consists of a mutual self-hosting [close to
 214 Guile-] Scheme interpreter prototype in C and a Nyacc-based C compiler in
 215 [Guile] Scheme.")
 216       (home-page "https://gitlab.com/janneke/mes")
 217       (license gpl3+))))
 218
 219 (define-public mes.git
 220  (let ((version "0.12")
 221         (revision "0")
 222         (commit (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ))))
 223     (package
 224       (inherit mes)
 225       (name "mes.git")
 226       (version (string-append version "-" revision "." (string-take commit 7)))
 227       (source (local-file %source-dir #:recursive? #t #:select? git-file?)))))
 228
 229 ;; Return it here so `guix build/environment/package' can consume it directly.
 230 mes.git