17/20: commencement: Add make-mesboot0-next.

[guix-commits]

janneke pushed a commit to branch wip-arm-bootstrap
in repository guix.

commit 0417c94165801877605def24f1c52c200eca5d11
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sun Dec 20 09:52:51 2020 +0100

    commencement: Add make-mesboot0-next.
---
 gnu/packages/commencement.scm | 61 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index b373306..65d0335 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -925,6 +925,67 @@ $MES -e '(mescc)' module/mescc.scm -- \"$@\"
                     (bin (string-append out "/bin")))
                (install-file "make" bin)))))))))
 
+(define-public gnu-make-mesboot0-next
+  ;; The initial make
+  (package
+    (inherit gnu-make)
+    (name "make-mesboot0-next")
+    (version "3.80")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnu/make/make-" version ".tar.gz"))
+              (sha256
+               (base32
+                "1pb7fb7fqf9wz9najm85qdma1xhxzf1rhj5gwrlzdsz2zm0hpcv4"))))
+    (supported-systems '("armhf-linux" "aarch64-linux"
+                         "i686-linux" "x86_64-linux"))
+    (inputs '())
+    (propagated-inputs '())
+    (native-inputs `(("tcc" ,tcc-boot0-next)
+                     ,@(%boot-gash-inputs)))
+    (arguments
+     `(#:implicit-inputs? #f
+       #:guile ,%bootstrap-guile
+       #:configure-flags '("CC=tcc"
+                           "CPP=tcc -E"
+                           "LD=tcc"
+                           ,@(match (%current-system)
+                               ((or "armhf-linux" "aarch64-linux")
+                                '("--build=arm-linux"
+                                  "--host=arm-linux"))
+                               ((or "i686-linux" "x86_64-linux")
+                                `("--build=i686-unknown-linux-gnu"
+                                  "--host=i686-linux-gnu")))
+                           "--disable-nls")
+       #:modules ((guix build gnu-build-system)
+                  (guix build utils)
+                  (srfi srfi-1))
+       #:strip-binaries? #f             ; no strip yet
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'scripted-patch
+           (lambda _
+             (substitute* "build.sh.in"
+               (("@LIBOBJS@") "getloadavg.o")
+               (("@REMOTE@") "stub"))
+             #t))
+         (add-after 'configure 'configure-fixup
+           (lambda _
+             (substitute* "make.h"
+               (("^extern long int lseek.*" all) (string-append "// " all)))
+             #t))
+         (replace 'build
+           (lambda _
+             (invoke "sh" "./build.sh")))
+         (replace 'check                ; proper check needs awk
+           (lambda _
+             (invoke "./make" "--version")))
+         (replace 'install
+           (lambda _
+             (let* ((out (assoc-ref %outputs "out"))
+                    (bin (string-append out "/bin")))
+               (install-file "make" bin)))))))))
+
 (define (%boot-tcc0-inputs)
   `(("make" ,gnu-make-mesboot0)
     ("tcc" ,tcc-boot0)