TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: simh: Use G-Expressions.

Browse source 
* gnu/packages/simh.scm (simh)[arguments]: Convert to list of G-Expressions.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
宋文武 2023-09-01 22:53:06 +08:00 committed by Maxim Cournoyer
parent 35c254e5fd
commit 2ae57c98a9
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 35 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

70
gnu/packages/simh.scm
View file

@ -19,6 +19,7 @@
(define-module (gnu packages simh)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
@ -48,41 +49,40 @@ (define-public simh
(inputs
(list libpcap))
(arguments
`(#:tests? #f
#:make-flags (list
(string-append "GCC=" ,(cc-for-target) " -fcommon"))
#:modules ((ice-9 string-fun)
,@%gnu-build-system-modules)
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'prepare-build
(lambda _
(substitute* "makefile"
(("LIBPATH:=/usr/lib")
(string-append "LIBPATH:="
(string-replace-substring
(getenv "LIBRARY_PATH") ":" " ")))
(("export LIBRARY_PATH = .*") ""))
(mkdir "BIN")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin/"))
(lib (string-append out "/lib/simh/")))
(mkdir-p bin)
(mkdir-p lib)
(for-each
(lambda (file)
(copy-file file (string-append bin
"simh-"
(basename file))))
(find-files "BIN"))
(for-each
(lambda (file)
(copy-file file (string-append lib
(basename file))))
(find-files "VAX" "bin$"))))))))
(list #:tests? #f
#:make-flags
#~(list (string-append "GCC=" #$(cc-for-target) " -fcommon"))
#:modules `((ice-9 string-fun)
,@%gnu-build-system-modules)
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'prepare-build
(lambda _
(substitute* "makefile"
(("LIBPATH:=/usr/lib")
(string-append "LIBPATH:="
(string-replace-substring
(getenv "LIBRARY_PATH") ":" " ")))
(("export LIBRARY_PATH = .*") ""))
(mkdir "BIN")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin/"))
(lib (string-append out "/lib/simh/")))
(mkdir-p bin)
(mkdir-p lib)
(for-each (lambda (file)
(copy-file file
(string-append bin "simh-"
(basename file))))
(find-files "BIN"))
(for-each (lambda (file)
(copy-file file
(string-append lib
(basename file))))
(find-files "VAX" "bin$"))))))))
(home-page "http://simh.trailing-edge.com")
(synopsis "Collection of simulators from The Computer History Simulation
Project")