Archived
1
0
Fork 0

gnu: warzone2100: Rewrite package arguments to G-expressions.

* gnu/packages/games.scm (warzone2100)[arguments]: Convert to list of
G-expressions.
This commit is contained in:
宋文武 2023-05-24 21:38:35 +08:00
parent 368f0fa0f2
commit d32fb0ee6b
No known key found for this signature in database
GPG key ID: D415BF253B515976

View file

@ -5414,30 +5414,30 @@ in-window at 640x480 resolution or fullscreen.")
#t)))) #t))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:configure-flags '("-DWZ_DISTRIBUTOR=Guix" (list #:configure-flags #~'("-DWZ_DISTRIBUTOR=Guix"
"-DWZ_ENABLE_BACKEND_VULKAN=off" "-DWZ_ENABLE_BACKEND_VULKAN=off"
"-DENABLE_DISCORD=off") "-DENABLE_DISCORD=off")
#:tests? #f ; TODO: Tests seem to be broken, configure.ac is missing. #:tests? #f ; TODO: Tests seem to be broken, configure.ac is missing.
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-utfcpp-include (add-after 'unpack 'fix-utfcpp-include
(lambda _ (lambda _
(substitute* "lib/framework/wzstring.cpp" (substitute* "lib/framework/wzstring.cpp"
(("<utfcpp/source/utf8.h>") "<utf8.h>")) (("<utfcpp/source/utf8.h>")
#t)) "<utf8.h>"))))
(add-after 'unpack 'link-tests-with-qt (add-after 'unpack 'link-tests-with-qt
(lambda _ (lambda _
(substitute* "tests/Makefile.am" (substitute* "tests/Makefile.am"
(("(framework_linktest_LDADD|maptest_LDADD) = " prefix) (("(framework_linktest_LDADD|maptest_LDADD) = "
(string-append prefix "$(QT5_LIBS) "))) prefix)
#t)) (string-append prefix "$(QT5_LIBS) ")))))
(add-after 'unpack 'fix-ivis-linktest (add-after 'unpack 'fix-ivis-linktest
(lambda _ (lambda _
(substitute* "tests/ivis_linktest.cpp" (substitute* "tests/ivis_linktest.cpp"
(("iV_DrawTextRotated.*;") (("iV_DrawTextRotated.*;")
(string-append "iV_DrawTextRotated(\"Press ESC to exit.\", " (string-append
"100, 100, 0.0f, font_regular);"))) "iV_DrawTextRotated(\"Press ESC to exit.\", "
#t))))) "100, 100, 0.0f, font_regular);"))))))))
(native-inputs (list asciidoc (native-inputs (list asciidoc
ruby-asciidoctor ruby-asciidoctor
gettext-minimal gettext-minimal