aboutsummaryrefslogtreecommitdiff
path: root/gn/packages
diff options
context:
space:
mode:
authorEfraim Flashner2022-03-20 16:11:58 +0200
committerEfraim Flashner2022-03-20 20:31:04 +0200
commite82292fcfcab5dc09da0f8af3c7def5e16a2bbd2 (patch)
treebab68de96d26300149dab2fa4de71c0904e5c1df /gn/packages
parent7c78efdce60ca3c65a59c28ef806b4904e5ed6b5 (diff)
downloadguix-bioinformatics-e82292fcfcab5dc09da0f8af3c7def5e16a2bbd2.tar.gz
gn: Add gem5.
Diffstat (limited to 'gn/packages')
-rw-r--r--gn/packages/virtualization.scm137
1 files changed, 137 insertions, 0 deletions
diff --git a/gn/packages/virtualization.scm b/gn/packages/virtualization.scm
new file mode 100644
index 0000000..0636cba
--- /dev/null
+++ b/gn/packages/virtualization.scm
@@ -0,0 +1,137 @@
+(define-module (gn packages virtualization)
+ #:use-module ((guix licenses) #:prefix license:)
+ #:use-module (guix gexp)
+ #:use-module (guix utils)
+ #:use-module (guix packages)
+ #:use-module (guix download)
+ #:use-module (guix git-download)
+ #:use-module (guix build-system python)
+ #:use-module (guix build-system scons)
+ #:use-module (gnu packages)
+ #:use-module (gnu packages boost)
+ #:use-module (gnu packages compression)
+ #:use-module (gnu packages cpp)
+ #:use-module (gnu packages graphviz)
+ #:use-module (gnu packages image)
+ #:use-module (gnu packages m4)
+ #:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages protobuf)
+ #:use-module (gnu packages python)
+ #:use-module (gnu packages python-xyz))
+
+(define-public gem5
+ (package
+ (name "gem5")
+ (version "21.2.1.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://gem5.googlesource.com/public/gem5")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0wyns8cfkigzw3m21331m8ydc7akm8l2lp0kci4pq8jyzsanmjm3"))
+ (snippet
+ #~(begin
+ (use-modules (guix build utils))
+ ;; For reproducibility.
+ (substitute* "src/base/date.cc"
+ (("__DATE__") "\"1970-01-01\"")
+ (("__TIME__") "\"00:00:00\""))))))
+ (build-system scons-build-system)
+ (arguments
+ `(#:scons-flags
+ (list "--verbose")
+ #:tests? #f ; TODO: How to run test suite?
+ #:build-targets '("build/ARM/gem5.opt"
+ "build/MIPS/gem5.opt"
+ "build/NULL/gem5.opt"
+ "build/POWER/gem5.opt"
+ "build/RISCV/gem5.opt"
+ "build/SPARC/gem5.opt"
+ "build/X86/gem5.opt")
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'patch-source
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "SConstruct"
+ ;; Scons does not use the environment variables by default,
+ ;; but this substitution makes it do so.
+ ;(("main = Environment")
+ ; "main = Environment(ENV=os.environ)\nmain = Environment")
+ ;; Force adding missing includes into the environment.
+ (("main\\.Append\\(CPPPATH=\\[Dir\\('" all)
+ (string-append
+ all (assoc-ref inputs "kernel-headers") "/include')])\n"
+ all (assoc-ref inputs "libpng") "/include')])\n"
+ all (assoc-ref inputs "zlib") "/include')])\n"
+ all)))
+ (substitute* "ext/libelf/SConscript"
+ (("m4env\\.Tool" all)
+ (string-append
+ "m4env.Append(CPPPATH=[Dir('"
+ (assoc-ref inputs "kernel-headers")
+ "/include')])\n"
+ all)))
+ (substitute* "ext/libelf/native-elf-format"
+ (("cc") ,(cc-for-target)))))
+ (replace 'check
+ (lambda* (#:key tests? #:allow-other-keys)
+ (when tests?
+ (invoke "python3" "tests/run.py"))))
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin/")))
+ (mkdir-p bin)
+ (for-each
+ (lambda (arch)
+ (when (directory-exists?
+ (string-append "build/" (string-upcase arch)))
+ (copy-file
+ (string-append "build/" (string-upcase arch) "/gem5.opt")
+ (string-append bin "gem5-" arch ".opt"))
+ (copy-file
+ (string-append "build/" (string-upcase arch) "/gem5py")
+ (string-append bin "gem5py-" arch))
+ (copy-file
+ (string-append "build/" (string-upcase arch) "/gem5py_m5")
+ (string-append bin "gem5py_m5-" arch))))
+ (list "arm" "mips" "null" "power" "riscv" "sparc" "x86"))))))))
+ (inputs
+ (list gperftools
+ libpng
+ protobuf
+ python
+ python-pydot
+ python-six
+ zlib))
+ (native-inputs
+ (list boost
+ m4
+ pkg-config))
+ (home-page "http://gem5.org/")
+ (synopsis "Modular platform for computer-system architecture research")
+ (description "The gem5 simulator is a modular platform for computer-system
+architecture research, encompassing system-level architecture as well as
+processor microarchitecture.")
+ (license license:bsd-2)))
+
+(define-public gem5-riscv
+ (package
+ (inherit gem5)
+ (name "gem5-riscv")
+ (arguments
+ (substitute-keyword-arguments (package-arguments gem5)
+ ((#:build-targets _)
+ `(list "build/RISCV/gem5.opt"))
+ ((#:phases phases)
+ `(modify-phases ,phases
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin")))
+ (install-file "build/RISCV/gem5.opt" bin)
+ (install-file "build/RISCV/gem5py" bin)
+ (install-file "build/RISCV/gem5py_m5" bin))))))))))