e8349eb34c
This allows us to have a deterministic build (given a fixed environment) without having to rely on GIT (the .git is not copied in the Guix build environment), and without having to rely on Guix (which previously had to inject the input hash into the source tree). Guix is therefore "only" responsible for ensuring that the build tools and environment are fixed, but is not strictly necessary to have reproducible builds.
126 lines
4.9 KiB
Scheme
126 lines
4.9 KiB
Scheme
;;; This file is a recipie for building os-test-framework as a Guix package.
|
|
;;;
|
|
;;; This recipe is free software; you can redistribute it and/or
|
|
;;; modify it under the terms of the GNU General Public License as
|
|
;;; published by the Free Software Foundation; either version 3 of the
|
|
;;; License, or (at your option) any later version.
|
|
;;;
|
|
;;; This recipe is distributed in the hope that it will be useful, but
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
;;; General Public License for more details.
|
|
;;;
|
|
;;; You should have received a copy of the GNU General Public License
|
|
;;; along with this recipe. If not, see <http://www.gnu.org/licenses/>.
|
|
;;;
|
|
;;; The copy of the GNU General Public License is stored in the
|
|
;;; guix.scm-gpl-license file.
|
|
|
|
(use-modules (guix packages)
|
|
;; (guix build gnu-build-system) ;; for the phases?
|
|
(guix build-system gnu)
|
|
(guix gexp)
|
|
(guix)
|
|
(guix build utils)
|
|
(ice-9 popen)
|
|
(ice-9 rdelim)
|
|
(gnu packages version-control)
|
|
(gnu packages assembly)
|
|
(gnu packages base)
|
|
(gnu packages mtools)
|
|
(gnu packages cdrom)
|
|
(gnu packages compression)
|
|
(gnu packages disk)
|
|
(gnu packages vim)
|
|
(gnu packages linux))
|
|
|
|
;; For faketime
|
|
(use-modules (guix git-download))
|
|
|
|
(define-public faketime
|
|
(package
|
|
(name "faketime")
|
|
(version "0.9.7")
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:phases (modify-phases %standard-phases
|
|
(delete 'configure)
|
|
(delete 'check))
|
|
#:make-flags `("CC=gcc"
|
|
,(string-append "PREFIX=" %output))))
|
|
(description "LD_PRELOAD hack which allows changing and freezing the system time")
|
|
(home-page "https://github.com/wolfcw/libfaketime")
|
|
(license "CC0-1.0")
|
|
(source
|
|
(origin (uri (git-reference
|
|
(url "https://github.com/wolfcw/libfaketime.git")
|
|
(commit "5c6518c597160109fbe599fb4db9ca91e4a6769c")))
|
|
(method git-fetch)
|
|
(sha256 (base32 "1cisgkw0c7c9psi1g4ji9y2gqans0mm223rs1xhj1bjah95kgkp9"))))
|
|
(synopsis "")))
|
|
|
|
(define-public os-test-framework
|
|
(let ((makefile-commit-timestamp
|
|
'(string-append
|
|
"COMMIT_TIMESTAMP_ISO_8601="
|
|
;; (let* ((pipe (open-input-pipe "git log -1 --pretty=format:%ad --date=iso8601-strict"))
|
|
;; (timestamp (read-line pipe)))
|
|
;; (close-pipe pipe)
|
|
;; timestamp)
|
|
"FILE")))
|
|
(package
|
|
(name "os-test-framework")
|
|
(version "0.0")
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
;; unpack ;; this phase is enabled
|
|
;; patch-source-shebangs ;; this phase is enabled
|
|
(add-after 'patch-source-shebangs 'make-clean
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(invoke "cp" "COMMIT_TIMESTAMP" "COMMIT_TIMESTAMP.bak")
|
|
(invoke "make" "clean" ,makefile-commit-timestamp)
|
|
(invoke "cp" "COMMIT_TIMESTAMP.bak" "COMMIT_TIMESTAMP")))
|
|
(delete 'configure)
|
|
(add-before 'build 'make-.gitignore-writable
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(invoke "chmod" "+w" ".gitignore")))
|
|
;; build ;; this phase is enabled
|
|
(delete 'check) ;; disabled for now, will enable it later.
|
|
(replace 'install
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((out (lambda (f) (string-append (assoc-ref outputs "out") f)))) ;; TODO: use path-append or something similar
|
|
(invoke "mkdir" "-p" (out "/bin"))
|
|
(invoke "cp" "os.bat" (out "/bin/os.bat")))))
|
|
(delete 'patch-shebangs)
|
|
(delete 'strip))
|
|
#:parallel-build? #t
|
|
#:make-flags
|
|
(list "in-guix" ,makefile-commit-timestamp)))
|
|
(native-inputs
|
|
`(("git" ,git)
|
|
("nasm" ,nasm)
|
|
("which" ,which)
|
|
("mtools" ,mtools)
|
|
("mkisofs" ,xorriso)
|
|
("zip" ,zip)
|
|
("faketime" ,faketime)
|
|
("gdisk" ,gptfdisk)
|
|
("xxd" ,xxd)
|
|
("column" ,util-linux)))
|
|
(description "Test framework to run an OS in multiple emulators, as a guest graphical / text shell on linux, and so on.")
|
|
(home-page "https://github.com/jsmaniac/os-test-framework")
|
|
(license "CC0-1.0")
|
|
(source (let ()
|
|
(invoke "sh" "-c"
|
|
"git log -1 --pretty=format:%ad --date=iso8601-strict > COMMIT_TIMESTAMP")
|
|
(local-file
|
|
(current-source-directory)
|
|
#:recursive? #t
|
|
#:select? (lambda (file stat)
|
|
(not (equal? (basename file) ".git"))))))
|
|
(synopsis ""))))
|
|
|
|
os-test-framework
|