diff mbox series

[bug#65681,1/2] gnu: simh: Update to 3.12-4.

Message ID 37f99d5eea2fc5a389cb3e498e4af8c75b37890b.1693579858.git.iyzsong@member.fsf.org
State New
Headers show
Series [bug#65681,1/2] gnu: simh: Update to 3.12-4. | expand

Commit Message

vasilii.smirnov--- via Guix-patches" via Sept. 1, 2023, 2:51 p.m. UTC 
From: 宋文武 <iyzsong@member.fsf.org>

* gnu/packages/simh.scm (simh): Update to 3.12-4.
[source]: Switch to url-fetch.
[native-inputs]: Add unzip.
[arguments]: Adjust make-flags.
---
 gnu/packages/simh.scm | 40 ++++++++++++++++++++++++----------------
 1 file changed, 24 insertions(+), 16 deletions(-)


base-commit: 4e531e55dcdc99c83bcfe3eec67c3fd95c7b6ca7
diff mbox series

Patch

diff --git a/gnu/packages/simh.scm b/gnu/packages/simh.scm
index 81d26bbde0..2cf92516ba 100644
--- a/gnu/packages/simh.scm
+++ b/gnu/packages/simh.scm
@@ -23,39 +23,47 @@  (define-module (gnu packages simh)
   #:use-module (guix download)
   #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
-  #:use-module (gnu packages admin))
+  #:use-module (guix utils)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages compression))
 
 (define-public simh
   (package
     (name "simh")
-    (version "3.9-0")
+    (version "3.12-4")
     (source
      (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/simh/simh")
-             (commit (string-append "v" version))))
+       (method url-fetch)
+       (uri (list (string-append
+                   "http://simh.trailing-edge.com/sources/simhv"
+                   (string-delete #\. version) ".zip")
+                  (string-append
+                   "http://simh.trailing-edge.com/sources/archive/simhv"
+                   (string-delete #\. version) ".zip")))
        (sha256
-        (base32 "1jiq6shj6a9xvzacvmyhxxd6xdyica8q4006qqjh5mh96rxrp15c"))
-       (file-name (git-file-name name version))))
+        (base32 "1i78c1x8xjiwy9dd2ss0mk3f1v9pmcjb4zc37ikqnjarsfqj2nm0"))))
     (build-system gnu-build-system)
+    (native-inputs
+     (list unzip))
     (inputs
      (list libpcap))
     (arguments
-     '(#:tests? #f
+     `(#:tests? #f
        #:make-flags (list
-                      "LDFLAGS=-lm"
-                      (string-append "INCPATH="
-                                     (assoc-ref %build-inputs "libpcap")
-                                     "/include")
-                      (string-append "LIBPATH="
-                                     (assoc-ref %build-inputs "libpcap")
-                                     "/lib"))
+                     (string-append "GCC=" ,(cc-for-target) " -fcommon"))
+       #:modules ((ice-9 string-fun)
+                  ,@%gnu-build-system-modules)
        #:phases
          (modify-phases %standard-phases
            (delete 'configure)
            (add-before 'build 'prepare-build
              (lambda _
+               (substitute* "makefile"
+                 (("LIBPATH:=/usr/lib")
+                  (string-append "LIBPATH:="
+                                 (string-replace-substring
+                                  (getenv "LIBRARY_PATH") ":" " ")))
+                 (("export LIBRARY_PATH = .*") ""))
                (mkdir "BIN")))
            (replace 'install
              (lambda* (#:key outputs #:allow-other-keys)