mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

24
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,13 +49,13 @@ (define-public simh
(inputs
(list libpcap))
(arguments
`(#:tests? #f
#:make-flags (list
(string-append "GCC=" ,(cc-for-target) " -fcommon"))
#:modules ((ice-9 string-fun)
(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
#~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'prepare-build
(lambda _
@ -72,15 +73,14 @@ (define-public simh
(lib (string-append out "/lib/simh/")))
(mkdir-p bin)
(mkdir-p lib)
(for-each
(lambda (file)
(copy-file file (string-append bin
"simh-"
(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
(for-each (lambda (file)
(copy-file file
(string-append lib
(basename file))))
(find-files "VAX" "bin$"))))))))
(home-page "http://simh.trailing-edge.com")