gnu: simh: Update to 3.12-4.

* gnu/packages/simh.scm (simh): Update to 3.12-4.
[source]: Switch to url-fetch.
[native-inputs]: Add unzip.
[arguments]: Adjust make-flags.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
宋文武 2023-09-01 22:51:02 +08:00 committed by Maxim Cournoyer
parent 93eba03191
commit 35c254e5fd
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -23,39 +23,47 @@ (define-module (gnu packages simh)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (gnu packages admin)) #:use-module (guix utils)
#:use-module (gnu packages admin)
#:use-module (gnu packages compression))
(define-public simh (define-public simh
(package (package
(name "simh") (name "simh")
(version "3.9-0") (version "3.12-4")
(source (source
(origin (origin
(method git-fetch) (method url-fetch)
(uri (git-reference (uri (list (string-append
(url "https://github.com/simh/simh") "http://simh.trailing-edge.com/sources/simhv"
(commit (string-append "v" version)))) (string-delete #\. version) ".zip")
(string-append
"http://simh.trailing-edge.com/sources/archive/simhv"
(string-delete #\. version) ".zip")))
(sha256 (sha256
(base32 "1jiq6shj6a9xvzacvmyhxxd6xdyica8q4006qqjh5mh96rxrp15c")) (base32 "1i78c1x8xjiwy9dd2ss0mk3f1v9pmcjb4zc37ikqnjarsfqj2nm0"))))
(file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs
(list unzip))
(inputs (inputs
(list libpcap)) (list libpcap))
(arguments (arguments
'(#:tests? #f `(#:tests? #f
#:make-flags (list #:make-flags (list
"LDFLAGS=-lm" (string-append "GCC=" ,(cc-for-target) " -fcommon"))
(string-append "INCPATH=" #:modules ((ice-9 string-fun)
(assoc-ref %build-inputs "libpcap") ,@%gnu-build-system-modules)
"/include")
(string-append "LIBPATH="
(assoc-ref %build-inputs "libpcap")
"/lib"))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(add-before 'build 'prepare-build (add-before 'build 'prepare-build
(lambda _ (lambda _
(substitute* "makefile"
(("LIBPATH:=/usr/lib")
(string-append "LIBPATH:="
(string-replace-substring
(getenv "LIBRARY_PATH") ":" " ")))
(("export LIBRARY_PATH = .*") ""))
(mkdir "BIN"))) (mkdir "BIN")))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)