30/35: bootstrap: Add sed-mesboot0.

[guix-commits]

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

commit 9af1397ea0a31948491ad2e4482d7d811d99b631
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Sun Oct 6 17:47:24 2019 +0200

    bootstrap: Add sed-mesboot0.
    
    * gnu/packages/commencement.scm (sed-mesboot0): New variable.
---
 gnu/packages/commencement.scm | 50 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 2033579..d0e59da 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -859,6 +859,56 @@
                  "p_end = -1;\nwhile (0)"))
               #t))))))))
 
+(define-public sed-mesboot0
+  (package-with-bootstrap-guile
+   (package
+     (inherit sed)
+     (name "sed-mesboot0")
+     (version "1.18")
+     (source (origin
+               (method url-fetch)
+               (uri (string-append "mirror://gnu/sed/sed-"
+                                   version ".tar.gz"))
+               (sha256
+                (base32
+                 "1hyv7i82jd0q18xcql51ylc8jwadp3gb3irgcqlis3v61p35jsv2"))))
+     (supported-systems '("i686-linux" "x86_64-linux"))
+     (inputs '())
+     (propagated-inputs '())
+     (native-inputs `(("bash" ,bash-mesboot0)
+                      ("gzip" ,gzip-mesboot0)
+                      ("make" ,make-mesboot0)
+                      ("tcc" ,tcc-boot)
+
+                      ("gash" ,%bootstrap-gash)
+                      ("guile" ,%bootstrap-guile)))
+     (arguments
+      `(#:implicit-inputs? #f
+        #:guile ,%bootstrap-guile
+        #:parallel-build? #f
+        #:configure-flags '("CC=tcc")
+        #:make-flags '("CC=tcc" "extra_objs=" "DEFS=-D HAVE_BCOPY")
+        #:strip-binaries? #f            ; no strip yet
+        #:phases
+        (modify-phases %standard-phases
+          (add-after 'unpack 'scripted-patch
+            (lambda _
+              (let* ((out (assoc-ref %outputs "out"))
+                     (bash (assoc-ref %build-inputs "bash"))
+                     (shell (string-append bash "/bin/bash")))
+                (substitute* "configure"
+                  (("/bin/sh") shell))
+                #t)))
+          (replace 'check
+            (lambda _
+              (invoke "./sed" "--version")))
+          (replace 'install
+            (lambda _
+              (let* ((out (assoc-ref %outputs "out"))
+                     (bin (string-append out "/bin")))
+                (install-file "sed" bin)
+                #t)))))))))
+
 (define binutils-mesboot0
   (package-with-bootstrap-guile
    (package