From f1b2bd3e0564f4780340e01211d2e9460320752f Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Fri, 19 Jul 2019 07:21:58 -0500
Subject: gn: Add BNW.

* gn/packages/bnw.scm (bnw): New variable.
---
 gn/packages/bnw.scm | 64 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 gn/packages/bnw.scm

(limited to 'gn/packages/bnw.scm')

diff --git a/gn/packages/bnw.scm b/gn/packages/bnw.scm
new file mode 100644
index 0000000..e6c9d46
--- /dev/null
+++ b/gn/packages/bnw.scm
@@ -0,0 +1,64 @@
+(define-module (gn packages bnw)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system trivial)
+  #:use-module (gnu packages bash)
+  #:use-module (gn packages graphviz)
+  #:use-module (gn packages maths)
+  #:use-module (gnu packages python))
+
+(define-public bnw
+  (let ((commit "eb6b002b924694808384f1a8d7c6d1121806ae04")
+        (revision "1"))
+    (package
+      (name "bnw")
+      (version (git-version "1.22" revision commit))
+      (source (origin
+               (method git-fetch)
+               (uri (git-reference
+                     (url "https://github.com/ziejd2/BNW.git")
+                     (commit commit)))
+               (file-name (git-file-name name version))
+               (sha256
+                (base32
+                 "10qwykp2zcyxih6a52icvy30ps69qk4v3jgirmdpw1l15zi4p2wq"))))
+      (build-system trivial-build-system)
+      (arguments
+       `(#:modules ((guix build utils))
+         #:builder
+         (let* ((out      (assoc-ref %outputs "out"))
+                (source   (assoc-ref %build-inputs "source"))
+                (bash     (assoc-ref %build-inputs "bash"))
+                (graphviz (assoc-ref %build-inputs "graphviz"))
+                (octave   (assoc-ref %build-inputs "octave"))
+                (python   (assoc-ref %build-inputs "python")))
+           (begin
+             (use-modules (guix build utils))
+             (copy-recursively source out)
+             (for-each (lambda (file)
+               (patch-shebang file
+                              (list
+                                (string-append bash "/bin")
+                                (string-append octave "/bin")
+                                (string-append python "/bin")
+                                )))
+               (find-files out ".*"))
+             ;(with-directory-excursion out
+             ;  (substitute* '("home.php"
+             ;                 (find-files "sourcecodes" ".php")
+             ;                 (find-files "sourcecodes/run_scripts" ".*"))
+             ;    (("/usr/bin/dot") (string-append graphviz "/bin/dot"))))
+             ))))
+      (native-inputs `(("source" ,source)))
+      (inputs
+       `(("bash" ,bash-minimal)
+         ("graphviz" ,graphviz-2.26)
+         ("octave" ,octave-3.4.3)
+         ("python" ,python-2)))
+      (home-page "http://compbio.uthsc.edu/BNW/")
+      (synopsis "Bayesian Network Webserver")
+      (description "This contains the code for the @dfn{Bayesian Network Webserver} (BNW).")
+      (license (list license:gpl2
+                     license:gpl2+
+                     license:lgpl2.1+)))))
-- 
cgit v1.2.3