me
/
guix
Archived
1
0
Fork 0
Code

gnu: mame: Update to 0.234. 

* gnu/packages/emulators.scm (mame): Update to 0.234.
Nicolas Goaziou 2021-07-29 10:14:29 +02:00
parent 3a59d722c1
commit 87b409d7e9
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/emulators.scm
View File

@ -1772,7 +1772,7 @@ This is a part of the TiLP project.")
(define-public mame (define-public mame
(package (package
(name "mame") (name "mame")
(version "0.233") (version "0.234")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -1781,7 +1781,7 @@ This is a part of the TiLP project.")
(commit (apply string-append "mame" (string-split version #\.))))) (commit (apply string-append "mame" (string-split version #\.)))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1zq7hvss004mwczk3jvyalkj9c5v6npswhkc2wj7dxyxz770clb3")) (base32 "010ing14pfwc0j7jnghjdcvq0qr7g4dplnggl545apyy61zigdkn"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
;; Remove bundled libraries. ;; Remove bundled libraries.
@ -1790,8 +1790,7 @@ This is a part of the TiLP project.")
(for-each delete-file-recursively (for-each delete-file-recursively
'("asio" "expat" "glm" "libflac" "libjpeg" "lua" '("asio" "expat" "glm" "libflac" "libjpeg" "lua"
"portaudio" "portmidi" "pugixml" "rapidjson" "SDL2" "portaudio" "portmidi" "pugixml" "rapidjson" "SDL2"
"SDL2-override" "sqlite3" "utf8proc" "zlib"))) "SDL2-override" "sqlite3" "utf8proc" "zlib")))))))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags `(#:make-flags
@ -1829,16 +1828,14 @@ This is a part of the TiLP project.")
(install-file "uismall.bdf" fonts)) (install-file "uismall.bdf" fonts))
(when (file-exists? "mame64") (when (file-exists? "mame64")
(rename-file "mame64" "mame")) (rename-file "mame64" "mame"))
(install-file "mame" (string-append out "/bin"))) (install-file "mame" (string-append out "/bin")))))
#t))
(add-after 'install 'install-documentation (add-after 'install 'install-documentation
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(man (string-append out "/share/man/man1")) (man (string-append out "/share/man/man1"))
(info (string-append out "/share/info"))) (info (string-append out "/share/info")))
(install-file "docs/build/man/MAME.1" man) (install-file "docs/build/man/MAME.1" man)
(install-file "docs/build/texinfo/MAME.info" info)) (install-file "docs/build/texinfo/MAME.info" info))))
#t))
(add-after 'install 'install-ini-file (add-after 'install 'install-ini-file
;; Generate an ini file so as to set some directories (e.g., roms) ;; Generate an ini file so as to set some directories (e.g., roms)
;; to a writable location, i.e., "$HOME/.mame/" and "$HOME/mame/". ;; to a writable location, i.e., "$HOME/.mame/" and "$HOME/mame/".
@ -1897,8 +1894,7 @@ This is a part of the TiLP project.")
select_directory $HOME/mame/select~@ select_directory $HOME/mame/select~@
icons_directory $HOME/mame/icons~@ icons_directory $HOME/mame/icons~@
covers_directory $HOME/mame/covers~@ covers_directory $HOME/mame/covers~@
ui_path $HOME/.mame/ui~%"))) ui_path $HOME/.mame/ui~%"))))))
#t)))
(add-after 'install 'install-desktop-file (add-after 'install 'install-desktop-file
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -1917,8 +1913,7 @@ This is a part of the TiLP project.")
Type=Application~@ Type=Application~@
Categories=Game;Emulator;~@ Categories=Game;Emulator;~@
Keywords=Game;Emulator;Arcade;~%" Keywords=Game;Emulator;Arcade;~%"
executable))) executable)))))))))
#t))))))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("sphinx" ,python-sphinx) ("sphinx" ,python-sphinx)