tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

gnu: qtmips: Update to 0.8.1.

Browse Source 
* gnu/packages/emulators.scm (qtmips): Update to 0.8.1.
[arguments]: Adjust accordingly.

Closes: guix/guix#4176
Change-Id: I1537d9154547a7faaba212ca457b35d04c2e742d
Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Patrick Norton
2025-11-10 08:09:01 -05:00
committed by 宋文武
parent 3e8aa64c07
commit e8c7d302d2
1 changed files with 2 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
gnu/packages/emulators.scm
View File

@@ -861,7 +861,7 @@ emulate a serial nullmodem over TCP/IP.")
(define-public qtmips
(package
(name "qtmips")
(version "0.7.5")
(version "0.8.1")
(source (origin
(method git-fetch)
(uri (git-reference
@@ -870,47 +870,8 @@ emulate a serial nullmodem over TCP/IP.")
(file-name (git-file-name name version))
(sha256
(base32
"1fal7a8y5g0rqqjrk795jh1l50ihz01ppjnrfjrk9vkjbd59szbp"))))
"1gmlr43wjq0fki9d77n7s6jly4n6kd6hq2af0zni348b4a4qn8bn"))))
(build-system qt-build-system)
(arguments
(list
#:modules '((guix build qt-build-system)
((guix build gnu-build-system) #:prefix gnu:)
(guix build utils))
#:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(invoke "qmake"
(string-append "PREFIX=" (assoc-ref outputs "out"))
"qtmips.pro")))
(replace 'build (assoc-ref gnu:%standard-phases 'build))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(substitute* "tests/test.sh"
(("qtchooser.*") ""))
(substitute* '("tests/cpu_trap/test.sh"
"tests/registers/test.sh")
(("sub-qtmips_cli") "qtmips_cli"))
(if tests?
(invoke "tests/run-all.sh")
#t)))
(replace 'install
;; There is no install target.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(apps (string-append out "/share/applications"))
(icons (string-append out "/share/icons/hicolor")))
(install-file "qtmips_gui/qtmips_gui" bin)
(install-file "qtmips_cli/qtmips_cli" bin)
(install-file "data/qtmips.desktop" apps)
(install-file "data/icons/qtmips_gui.svg"
(string-append icons "/scalable/apps"))
(install-file "data/icons/qtmips_gui.png"
(string-append icons "/48x48/apps"))
#t))))
#:tests? #f)) ; test suite wants mips toolchain
(inputs
(list elfutils qtbase-5 qtwayland-5))
(home-page "https://github.com/cvut/QtMips")