blob: e6c9d460717fa21cf6a11e9c1501450e2ed5dae9 (
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
63
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+)))))
|
