ajout de stream

glicid/packages/benchmark.scm

@@ -172,40 +172,58 @@
  )
 )
 
+(use-modules (guix packages))
+(use-modules (guix download))
+(use-modules (guix build-system gnu))
+(use-modules (gnu packages compression))
+(use-modules (guix git-download))
+(use-modules (gnu packages commencement))
+(use-modules (glicid packages gcc))
+
 (define-public stream-benchmarks
  (package
    (name "stream-benchmarks")
    (version "5.10-jh")
-;   (source (origin
-;            (method git-fetch
-;             (uri
-;              (git-reference
-;               (url "https://github.com/jeffhammond/STREAM.git")
-;               (commit "HEAD")
-;               (sha256 (base32 ""))
-;              )
-;             )
-;            )
-;           )
-;    )
-
-
    (source (origin
-              (method url-fetch)
+            (method git-fetch)
-              (uri "https://github.com/jeffhammond/STREAM/archive/refs/heads/master.zip")
+            (uri 
-              (sha256
+              (git-reference
-               (base32 "0a27616mikli251hrr6yc3rifm2ajgr0328qjfzsfdq7yaikbf1g")
+               (url "https://github.com/jeffhammond/STREAM.git")
+               (commit "HEAD")
               )
             )
+            
+           (sha256 (base32 "1b5ka2h6rhp2103app6p0vq29y7qixcli9w874hb33y05ggjin8m"))
+           (file-name (string-append name "-" version "-checkout"))
            )
+  )
+
     (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+        (delete 'configure) ; no configure 
+        (delete 'check) ; no check
+        (replace 'install
+         (lambda* (#:key outputs #:allow-other-keys)
+          ;; Le Makefile du paquet ne fournit pas de règle « install »
+          ;; alors on le fait nous-mêmes.
+           (let ((bin (string-append (assoc-ref outputs "out")
+                                      "/bin")))
+        (install-file "stream_c.exe" bin)
+        (install-file "stream_f.exe" bin)
+
+        #t)))
+       )
+      )
+    )
+    (inputs `(("gfortran-toolchain@11" ,gfortran-toolchain-11)))
+ 
     (synopsis "STREAM  benchmark")
   (description "STREAM benchmark")
   (home-page "https://")
-  (license "")))
+  (license ""))
-
+)
-;  )
-;)
 
 ;;defined by gricad / PA Boutier