gnu: mame: New variable.
* gnu/packages/emulators.scm (mame): New variable.
This commit is contained in:
Nicolas Goaziou
parent
d597dda6e0
commit
c8b2fd2866
|
|
@ -56,13 +56,19 @@
|
||||||
#:use-module (gnu packages libedit)
|
#:use-module (gnu packages libedit)
|
||||||
#:use-module (gnu packages libusb)
|
#:use-module (gnu packages libusb)
|
||||||
#:use-module (gnu packages linux)
|
#:use-module (gnu packages linux)
|
||||||
|
#:use-module (gnu packages lua)
|
||||||
|
#:use-module (gnu packages maths)
|
||||||
#:use-module (gnu packages mp3)
|
#:use-module (gnu packages mp3)
|
||||||
|
#:use-module (gnu packages music)
|
||||||
#:use-module (gnu packages ncurses)
|
#:use-module (gnu packages ncurses)
|
||||||
|
#:use-module (gnu packages networking)
|
||||||
#:use-module (gnu packages pkg-config)
|
#:use-module (gnu packages pkg-config)
|
||||||
#:use-module (gnu packages pulseaudio)
|
#:use-module (gnu packages pulseaudio)
|
||||||
#:use-module (gnu packages python)
|
#:use-module (gnu packages python)
|
||||||
#:use-module (gnu packages qt)
|
#:use-module (gnu packages qt)
|
||||||
#:use-module (gnu packages sdl)
|
#:use-module (gnu packages sdl)
|
||||||
|
#:use-module (gnu packages texinfo)
|
||||||
|
#:use-module (gnu packages textutils)
|
||||||
#:use-module (gnu packages tls)
|
#:use-module (gnu packages tls)
|
||||||
#:use-module (gnu packages upnp)
|
#:use-module (gnu packages upnp)
|
||||||
#:use-module (gnu packages video)
|
#:use-module (gnu packages video)
|
||||||
|
|
@ -72,6 +78,7 @@
|
||||||
#:use-module (gnu packages xiph)
|
#:use-module (gnu packages xiph)
|
||||||
#:use-module (gnu packages xml)
|
#:use-module (gnu packages xml)
|
||||||
#:use-module (gnu packages xorg)
|
#:use-module (gnu packages xorg)
|
||||||
|
#:use-module (gnu packages web)
|
||||||
#:use-module (guix build-system cmake)
|
#:use-module (guix build-system cmake)
|
||||||
#:use-module (guix build-system gnu))
|
#:use-module (guix build-system gnu))
|
||||||
|
|
||||||
|
|
@ -1170,3 +1177,187 @@ already have their data files. The clever part about this: ScummVM
|
||||||
just replaces the executables shipped with the games, allowing you to
|
just replaces the executables shipped with the games, allowing you to
|
||||||
play them on systems for which they were never designed!")
|
play them on systems for which they were never designed!")
|
||||||
(license license:gpl2+)))
|
(license license:gpl2+)))
|
||||||
|
|
||||||
|
(define-public mame
|
||||||
|
(package
|
||||||
|
(name "mame")
|
||||||
|
(version "0.198")
|
||||||
|
(source
|
||||||
|
(origin
|
||||||
|
(method git-fetch)
|
||||||
|
(uri (git-reference
|
||||||
|
(url "https://github.com/mamedev/mame.git")
|
||||||
|
(commit (apply string-append "mame" (string-split version #\.)))))
|
||||||
|
(file-name (git-file-name name version))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"0kl7qll8d6xlx7bj5920ljs888a6nc1fj2kfw1fz0r8za3m7wiq9"))
|
||||||
|
(modules '((guix build utils)))
|
||||||
|
(snippet
|
||||||
|
;; Remove bundled libraries.
|
||||||
|
'(begin
|
||||||
|
(with-directory-excursion "3rdparty"
|
||||||
|
(for-each delete-file-recursively
|
||||||
|
'("asio" "expat" "glm" "libflac" "libjpeg" "lua"
|
||||||
|
"portaudio" "portmidi" "pugixml" "rapidjson" "SDL2"
|
||||||
|
"SDL2-override" "sqlite3" "utf8proc" "zlib")))
|
||||||
|
#t))))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(arguments
|
||||||
|
`(#:make-flags
|
||||||
|
(cons*
|
||||||
|
(string-append "QT_HOME=" (assoc-ref %build-inputs "qtbase"))
|
||||||
|
(string-append "SDL_INI_PATH="
|
||||||
|
(assoc-ref %outputs "out")
|
||||||
|
"/share/mame/ini")
|
||||||
|
(map (lambda (lib)
|
||||||
|
(string-append "USE_SYSTEM_LIB_" (string-upcase lib) "=1"))
|
||||||
|
'("asio" "expat" "flac" "glm" "jpeg" "lua" "portaudio" "portmidi"
|
||||||
|
"pugixml" "rapidjson" "sqlite3" "utf8proc" "zlib")))
|
||||||
|
#:tests? #f ;no test in regular release
|
||||||
|
#:phases
|
||||||
|
(modify-phases %standard-phases
|
||||||
|
(delete 'configure)
|
||||||
|
(add-after 'build 'build-documentation
|
||||||
|
(lambda _ (invoke "make" "-C" "docs" "man" "info")))
|
||||||
|
(replace 'install
|
||||||
|
;; Upstream does not provide an installation phase.
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(share (string-append out "/share/mame")))
|
||||||
|
;; Install data.
|
||||||
|
(for-each (lambda (dir)
|
||||||
|
(copy-recursively dir (string-append share "/" dir)))
|
||||||
|
'("artwork" "bgfx" "ctrlr" "hash" "ini" "language"
|
||||||
|
"plugins" "samples"))
|
||||||
|
(let ((keymaps (string-append share "/keymaps")))
|
||||||
|
(for-each (lambda (file) (install-file file keymaps))
|
||||||
|
(find-files "keymaps" ".*LINUX\\.map")))
|
||||||
|
(let ((fonts (string-append share "/fonts")))
|
||||||
|
(install-file "uismall.bdf" fonts))
|
||||||
|
(rename-file "mame64" "mame")
|
||||||
|
(install-file "mame" (string-append out "/bin")))
|
||||||
|
#t))
|
||||||
|
(add-after 'install 'install-documentation
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(man (string-append out "/share/man/man1"))
|
||||||
|
(info (string-append out "/share/info")))
|
||||||
|
(install-file "docs/build/man/MAME.1" man)
|
||||||
|
(install-file "docs/build/texinfo/MAME.info" info))
|
||||||
|
#t))
|
||||||
|
(add-after 'install 'install-ini-file
|
||||||
|
;; Generate an ini file so as to set some directories (e.g., roms)
|
||||||
|
;; to a writable location, i.e., "$HOME/.mame/" and "$HOME/mame/".
|
||||||
|
;;
|
||||||
|
;; XXX: We need to insert absolute references to the store. It can
|
||||||
|
;; be an issue if they leak into user's home directory, e.g., with
|
||||||
|
;; "mame -createconfig" and the package is later GC'ed.
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(share (string-append out "/share/mame"))
|
||||||
|
(ini (string-append share "/ini")))
|
||||||
|
(with-output-to-file (string-append ini "/mame.ini")
|
||||||
|
(lambda _
|
||||||
|
(format #t
|
||||||
|
"inipath $HOME/.mame;~a/ini~@
|
||||||
|
homepath $HOME/mame~@
|
||||||
|
rompath $HOME/mame/roms~@
|
||||||
|
samplepath $HOME/mame/samples;~a/samples~@
|
||||||
|
cheatpath $HOME/mame/cheat~@
|
||||||
|
artpath $HOME/mame/artwork;~a/artwork~@
|
||||||
|
crosshairpath $HOME/mame/crosshair~@
|
||||||
|
snapshot_directory $HOME/mame/snapshots~@
|
||||||
|
hashpath ~a/hash~@
|
||||||
|
fontpath $HOME/mame/fonts;~a/fonts~@
|
||||||
|
ctrlrpath $HOME/mame/ctrlr;~a/ctrlr~@
|
||||||
|
bgfx_path ~a/bgfx~@
|
||||||
|
pluginspath $HOME/mame/plugins;~a/plugins~@
|
||||||
|
languagepath ~a/language~@
|
||||||
|
cfg_directory $HOME/.mame/cfg~@
|
||||||
|
nvram_directory $HOME/.mame/nvram~@
|
||||||
|
input_directory $HOME/.mame/inp~@
|
||||||
|
state_directory $HOME/.mame/sta~@
|
||||||
|
diff_directory $HOME/.mame/diff~@
|
||||||
|
comment_directory $HOME/.mame/comments~%"
|
||||||
|
share share share share share share share share
|
||||||
|
share)))
|
||||||
|
(with-output-to-file (string-append ini "/ui.ini")
|
||||||
|
(lambda _
|
||||||
|
(format #t
|
||||||
|
"historypath $HOME/mame/history~@
|
||||||
|
categorypath $HOME/mame/folders~@
|
||||||
|
cabinets_directory $HOME/mame/cabinets~@
|
||||||
|
cpanels_directory $HOME/mame/cpanel~@
|
||||||
|
pcbs_directory $HOME/mame/pcb~@
|
||||||
|
flyers_directory $HOME/mame/flyers~@
|
||||||
|
titles_directory $HOME/mame/titles~@
|
||||||
|
ends_directory $HOME/mame/ends~@
|
||||||
|
marquees_directory $HOME/mame/marquees~@
|
||||||
|
artwork_preview_directory $HOME/mame/artpreview~@
|
||||||
|
bosses_directory $HOME/mame/bosses~@
|
||||||
|
logos_directory $HOME/mame/logo~@
|
||||||
|
scores_directory $HOME/mame/scores~@
|
||||||
|
versus_directory $HOME/mame/versus~@
|
||||||
|
gameover_directory $HOME/mame/gameover~@
|
||||||
|
howto_directory $HOME/mame/howto~@
|
||||||
|
select_directory $HOME/mame/select~@
|
||||||
|
icons_directory $HOME/mame/icons~@
|
||||||
|
covers_directory $HOME/mame/covers~@
|
||||||
|
ui_path $HOME/.mame/ui~%")))
|
||||||
|
#t)))
|
||||||
|
(add-after 'install 'install-desktop-file
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(desktop (string-append out "/share/applications"))
|
||||||
|
(executable (string-append out "/bin/mame")))
|
||||||
|
(mkdir-p desktop)
|
||||||
|
(with-output-to-file (string-append desktop "/mame.desktop")
|
||||||
|
(lambda _
|
||||||
|
(format #t
|
||||||
|
"[Desktop Entry]~@
|
||||||
|
Name=mame~@
|
||||||
|
Comment=Multi-purpose emulation framework~@
|
||||||
|
Exec=~a~@
|
||||||
|
TryExec=~@*~a~@
|
||||||
|
Terminal=false~@
|
||||||
|
Type=Application~@
|
||||||
|
Categories=Game;Emulator;~@
|
||||||
|
Keywords=Game;Emulator;Arcade;~%"
|
||||||
|
executable)))
|
||||||
|
#t))))))
|
||||||
|
(native-inputs
|
||||||
|
`(("pkg-config" ,pkg-config)
|
||||||
|
("pugixml" ,pugixml)
|
||||||
|
("python-sphinx" ,python-sphinx)
|
||||||
|
("texinfo" ,texinfo)))
|
||||||
|
(inputs
|
||||||
|
`(("alsa-lib" ,alsa-lib)
|
||||||
|
("asio" ,asio)
|
||||||
|
("expat" ,expat)
|
||||||
|
("flac" ,flac)
|
||||||
|
("fontconfig" ,fontconfig)
|
||||||
|
("glm" ,glm)
|
||||||
|
("libjpeg" ,libjpeg-8) ;jpeg_read_header argument error in libjpeg-9
|
||||||
|
("libxinerama" ,libxinerama)
|
||||||
|
("lua" ,lua)
|
||||||
|
("portaudio" ,portaudio)
|
||||||
|
("portmidi" ,portmidi)
|
||||||
|
("python-wrapper" ,python-wrapper)
|
||||||
|
("qtbase" ,qtbase)
|
||||||
|
("rapidjson" ,rapidjson)
|
||||||
|
("sdl" ,(sdl-union (list sdl2 sdl2-ttf)))
|
||||||
|
("sqlite" ,sqlite)
|
||||||
|
("utf8proc" ,utf8proc)
|
||||||
|
("zlib" ,zlib)))
|
||||||
|
(home-page "http://mamedev.org/")
|
||||||
|
(synopsis "Multi-purpose emulation framework")
|
||||||
|
(description "MAME's purpose is to preserve decades of software
|
||||||
|
history. As electronic technology continues to rush forward, MAME
|
||||||
|
prevents this important @emph{vintage} software from being lost and
|
||||||
|
forgotten. This is achieved by documenting the hardware and how it
|
||||||
|
functions. The source code to MAME serves as this documentation.")
|
||||||
|
;; The MAME project as a whole is distributed under the terms of GPL2+.
|
||||||
|
;; However, over 90% of the files are under Expat license. Also, artwork,
|
||||||
|
;; keymaps, languages and samples are under CC0.
|
||||||
|
(license (list license:gpl2+ license:expat license:cc0))))
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue