aboutsummaryrefslogtreecommitdiff
path: root/gn/packages/bnw.scm
blob: e09a9a3e801b7993a1fdaf00bc5737e6cc39b3e0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
(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)) ; June 28, 2019
      (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
           (begin
             (use-modules (guix build utils))
             (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")))
               (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*
                   (append '("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+)))))