[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
17/63: bootstrap: Add gzip-mesboot0.
From: |
guix-commits |
Subject: |
17/63: bootstrap: Add gzip-mesboot0. |
Date: |
Sun, 24 Nov 2019 05:53:15 -0500 (EST) |
janneke pushed a commit to branch wip-bootstrap
in repository guix.
commit 61aec3cb4b1e8f2b38b1439181a7a9faa50654f3
Author: Jan Nieuwenhuizen <address@hidden>
Date: Sat Sep 21 22:03:44 2019 +0200
bootstrap: Add gzip-mesboot0.
* gnu/packages/commencement.scm (gzip-mesboot0): New variable.
---
gnu/packages/commencement.scm | 56 +++++++++++++++++++++++++++++++++++++++++++
1 file changed, 56 insertions(+)
diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index b51cabc..8fd84d3 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -343,6 +343,62 @@
(variable "LIBRARY_PATH")
(files '("lib")))))))
+(define gzip-mesboot0
+ ;; The initial gzip
+ (package
+ (inherit gzip)
+ (version "1.2.4")
+ (name "gzip-mesboot0")
+ (source (bootstrap-origin
+ (origin
+ (method url-fetch)
+ (uri (string-append "mirror://gnu/gzip/gzip-" version ".tar"))
+ (sha256
+ (base32
+ "1rhgk2vvmdvnn6vygf0dja92ryyng00knl0kz5srb77k2kryjb2d")))))
+ (supported-systems '("i686-linux" "x86_64-linux"))
+ (inputs '())
+ (propagated-inputs '())
+ (native-inputs `(("bash" ,%bootstrap-gash)
+ ("guile" ,%bootstrap-guile)
+ ("tcc" ,tcc-boot0)))
+ (arguments
+ `(#:implicit-inputs? #f
+ #:guile ,%bootstrap-guile
+ #:strip-binaries? #f ; no strip yet
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (add-after 'unpack 'scripted-patch
+ (lambda _
+ (substitute* "util.c"
+ (("^char [*]strlwr" all) (string-append all
"_tcc_cannot_handle_dupe")))
+ #t))
+ (replace 'build
+ (lambda _
+ (let ((files '("bits" "crypt" "deflate" "getopt" "gzip"
+ "inflate" "lzw" "trees" "unlzh" "unlzw"
+ "unpack" "unzip" "util" "zip")))
+ (define (compile x)
+ (invoke "tcc" "-c" "-D NO_UTIME=1" "-D HAVE_UNISTD_H=1"
+ (string-append x ".c")))
+ (for-each compile files)
+ (apply invoke
+ (cons* "tcc" "-o" "gzip"
+ (map (lambda (x) (string-append x ".o")) files)))
+ (link "gzip" "gunzip"))))
+ (replace 'install
+ (lambda _
+ (let* ((out (assoc-ref %outputs "out"))
+ (bin (string-append out "/bin")))
+ (install-file "gzip" bin)
+ (install-file "gunzip" bin))))
+ (replace 'check
+ (lambda _
+ (invoke "./gzip" "--version")))
+ ;; no gzip yet
+ (delete 'compress-documentation))))))
+
(define tcc-boot
(package
(inherit tcc-boot0)
- 07/63: gnu: Add ncompress., (continued)
- 07/63: gnu: Add ncompress., guix-commits, 2019/11/24
- 08/63: gnu: Add gash-core-utils., guix-commits, 2019/11/24
- 09/63: bootstrap: Add gash-boot., guix-commits, 2019/11/24
- 10/63: bootstrap: Add gash-core-utils-boot., guix-commits, 2019/11/24
- 11/63: bootstrap: Add %gash-bootstrap-guile, %gash-bootstrap-tarball., guix-commits, 2019/11/24
- 13/63: bootstrap: nyacc-boot. WIP, guix-commits, 2019/11/24
- 12/63: bootstrap: Add %bootstrap-gash. WIP, guix-commits, 2019/11/24
- 14/63: bootstrap: Add %bootstrap-gash-rewired.., guix-commits, 2019/11/24
- 15/63: bootstrap: mes-boot: Scheme-only bootstrap., guix-commits, 2019/11/24
- 16/63: bootstrap: tcc-boot0: Scheme-only bootstrap. WIP, guix-commits, 2019/11/24
- 17/63: bootstrap: Add gzip-mesboot0.,
guix-commits <=
- 18/63: bootstrap: make-mesboot0: Scheme-only bootstrap., guix-commits, 2019/11/24
- 19/63: bootstrap: Add bzip2-mesboot0., guix-commits, 2019/11/24
- 20/63: bootstrap: Add bash-mesboot0., guix-commits, 2019/11/24
- 21/63: bootstrap: tcc-boot: Scheme-only bootstrap., guix-commits, 2019/11/24
- 22/63: bootstrap: diffuils-mesboot: Scheme-only bootstrap., guix-commits, 2019/11/24
- 24/63: bootstrap: Add sed-mesboot0., guix-commits, 2019/11/24
- 23/63: bootstrap: Add patch-mesboot0., guix-commits, 2019/11/24
- 25/63: bootstrap: binutils-mesboot0: Scheme-only bootstrap., guix-commits, 2019/11/24
- 26/63: bootstrap: gcc-core-mesboot0: Scheme-only bootstrap., guix-commits, 2019/11/24
- 28/63: bootstrap: Add bash-mesboot1., guix-commits, 2019/11/24