guix/git/mes.scm

   1 ;;; GNU Mes --- Maxwell Equations of Software
   2 ;;; Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
   3 ;;;
   4 ;;; This file is part of GNU Mes.
   5 ;;;
   6 ;;; Also borrowing code from:
   7 ;;; guile-sdl2 --- FFI bindings for SDL2
   8 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
   9 ;;;
  10 ;;; GNU Mes is free software; you can redistribute it and/or modify it
  11 ;;; under the terms of the GNU General Public License as published by
  12 ;;; the Free Software Foundation; either version 3 of the License, or (at
  13 ;;; your option) any later version.
  14 ;;;
  15 ;;; GNU Mes is distributed in the hope that it will be useful, but
  16 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;;; GNU General Public License for more details.
  19 ;;;
  20 ;;; You should have received a copy of the GNU General Public License
  21 ;;; along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
  22
  23 (define-module (git mes)
  24   #:use-module (srfi srfi-1)
  25   #:use-module (srfi srfi-26)
  26   #:use-module (ice-9 match)
  27   #:use-module (ice-9 popen)
  28   #:use-module (ice-9 rdelim)
  29   #:use-module (gnu packages)
  30   #:use-module (gnu packages base)
  31   #:use-module (gnu packages commencement)
  32   #:use-module (gnu packages cross-base)
  33   #:use-module (gnu packages gcc)
  34   #:use-module (gnu packages graphviz)
  35   #:use-module (gnu packages guile)
  36   #:use-module (gnu packages man)
  37   #:use-module (gnu packages mes)
  38   #:use-module (gnu packages package-management)
  39   #:use-module (gnu packages version-control)
  40   #:use-module (gnu packages perl)
  41   #:use-module (gnu packages pkg-config)
  42   #:use-module (gnu packages texinfo)
  43   #:use-module (guix build-system gnu)
  44   #:use-module (guix build-system trivial)
  45   #:use-module (guix gexp)
  46   #:use-module (guix download)
  47   #:use-module (guix git-download)
  48   #:use-module (guix licenses)
  49   #:use-module (guix packages))
  50
  51 (define %source-dir (getcwd))
  52
  53 (define-public mescc-tools
  54   (package
  55     (name "mescc-tools")
  56     (version "0.6.1")
  57     (source (origin
  58               (method url-fetch)
  59               (uri (string-append
  60                     "http://git.savannah.nongnu.org/cgit/mescc-tools.git/snapshot/"
  61                     name "-Release_" version
  62                     ".tar.gz"))
  63               (file-name (string-append name "-" version ".tar.gz"))
  64               (sha256
  65                (base32
  66                 "06jpvq6xfjzn2al6b4rdwd3zv3h4cvilc4n9gqcnjr9cr6wjpw2n"))))
  67     (build-system gnu-build-system)
  68     (supported-systems '("i686-linux" "x86_64-linux"))
  69     (arguments
  70      `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
  71                           "CC=gcc")
  72        #:test-target "test"
  73        #:phases (modify-phases %standard-phases
  74                   (delete 'configure))))
  75     (synopsis "Tools for the full source bootstrapping process")
  76     (description
  77      "Mescc-tools is a collection of tools for use in a full source
  78 bootstrapping process.  It consists of the M1 macro assembler, the hex2
  79 linker, the blood-elf symbol table generator, the kaem shell, exec_enable and
  80 get_machine.")
  81     (home-page "https://savannah.nongnu.org/projects/mescc-tools")
  82     (license gpl3+)))
  83
  84 (define-public nyacc
  85   (package
  86     (name "nyacc")
  87     (version "0.99.0")
  88     (source (origin
  89               (method url-fetch)
  90               (uri (string-append "mirror://savannah/nyacc/nyacc-"
  91                                   version ".tar.gz"))
  92               (sha256
  93                (base32
  94                 "0hl5qxx19i4x1r0839sxm19ziqq65g4hy97yik81cc2yb9yvgyv3"))
  95               (modules '((guix build utils)))
  96               (snippet
  97                '(begin
  98                   (substitute* (find-files "." "^Makefile\\.in$")
  99                     (("^SITE_SCM_DIR =.*")
 100                      "SITE_SCM_DIR = \
 101 @prefix@/share/guile/site/@GUILE_EFFECTIVE_VERSION@\n")
 102                     (("^SITE_SCM_GO_DIR =.*")
 103                      "SITE_SCM_GO_DIR = \
 104 @prefix@/lib/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n")
 105                     (("^INFODIR =.*")
 106                      "INFODIR = @prefix@/share/info\n")
 107                     (("^DOCDIR =.*")
 108                      "DOCDIR = @prefix@/share/doc/$(PACKAGE_TARNAME)\n"))
 109                   #t))))
 110     (build-system gnu-build-system)
 111     (native-inputs
 112      `(("pkg-config" ,pkg-config)))
 113     (inputs
 114      `(("guile" ,guile-2.2)))
 115     (synopsis "LALR(1) Parser Generator in Guile")
 116     (description
 117      "NYACC is an LALR(1) parser generator implemented in Guile.
 118 The syntax and nomenclature should be considered not stable.  It comes with
 119 extensive examples, including parsers for the Javascript and C99 languages.")
 120     (home-page "https://savannah.nongnu.org/projects/nyacc")
 121     (license (list gpl3+ lgpl3+))))
 122
 123 (define-public mes
 124   (let ((triplet "i686-unknown-linux-gnu")
 125         (version "0.20"))
 126     (package
 127       (name "mes")
 128       (version version)
 129       (source (origin
 130                 (method url-fetch)
 131                 (uri (string-append
 132                       "https://ftp.gnu.org/pub/gnu/mes/mes-" version ".tar.gz"))
 133                 (sha256
 134                  (base32 #!mes!# "04pajp8v31na34ls4730ig5f6miiplhdvkmsb9ls1b8bbmw2vb4n"))))
 135       (build-system gnu-build-system)
 136       (supported-systems '("i686-linux" "x86_64-linux"))
 137       (propagated-inputs
 138        `(("mescc-tools" ,mescc-tools)
 139          ("nyacc" ,nyacc)))
 140       (native-inputs
 141        `(("git" ,git)
 142          ("guile" ,guile-2.2)
 143          ,@(if (string-prefix? "x86_64-linux" (or (%current-target-system)
 144                                                   (%current-system)))
 145                ;; Use cross-compiler rather than #:system "i686-linux" to get
 146                ;; MesCC 64 bit .go files installed ready for use with Guile.
 147                `(("i686-linux-binutils" ,(cross-binutils triplet))
 148                  ("i686-linux-gcc" ,(cross-gcc triplet)))
 149                '())
 150          ("graphviz" ,graphviz)
 151          ("help2man" ,help2man)
 152          ("perl" ,perl)                ; build-aux/gitlog-to-changelog
 153          ("texinfo" ,texinfo)))
 154       (arguments
 155        `(#:strip-binaries? #f)) ; binutil's strip b0rkes MesCC/M1/hex2 binaries
 156       (synopsis "Scheme interpreter and C compiler for full source bootstrapping")
 157       (description
 158        "GNU Mes--Maxwell Equations of Software--brings the Reduced Binary Seed
 159 bootstrap to Guix and aims to help create full source bootstrapping for
 160 GNU/Linux distributions.  It consists of a mutual self-hosting Scheme
 161 interpreter in C and a Nyacc-based C compiler in Scheme and is compatible with
 162 Guile.")
 163       (home-page "https://www.gnu.org/software/mes")
 164       (license gpl3+))))
 165
 166 (define-public mes.git
 167  (let ((version "0.20")
 168         (revision "0")
 169         (commit (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ))))
 170     (package
 171       (inherit mes)
 172       (name "mes.git")
 173       (version (string-append version "-" revision "." (string-take commit 7)))
 174       (source (local-file %source-dir
 175                           #:recursive? #t
 176                           #:select? (git-predicate %source-dir))))))