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 (gnu packages scheme-xyz)
#:use-module (guix packages)
#:use-module (guix build-system gerbil)
#:use-module (gnu packages scheme)
#:use-module (gnu packages xml)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:))
(define-public gerbil-srfi-54
(package
(name "gerbil-srfi-54")
(version "git")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hckiang/srfi-54")
(commit "master")))
(file-name (git-file-name name version))
(sha256
(base32 "0k1ddfhvbmf9njxm1ybs61n9kpzjvha2j63mf756r7b3x5rk51b0"))))
(build-system gerbil-build-system)
(synopsis "SRFI-54 for Gerbil Scheme")
(description "This SRFI introduces the CAT procedure that converts any object
to a string. It takes one object as the first argument and accepts a variable
number of optional arguments, unlike the procedure called FORMAT.")
(home-page "https://github.com/hckiang/srfi-54")
(license license:lgpl3)))
(define-public gerbil-denatting
(package
(name "gerbil-denatting")
(version "0.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/edouardklein/denatting.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0m8nlqjs1bqhs7cqdf9ddj9hnm9xfmngzd5iawc0fz3qamsw1wyp"))))
(propagated-inputs
`(("gerbil" ,gerbil)
("xlsxio" ,xlsxio)
("gerbil-srfi-54" ,gerbil-srfi-54)))
(build-system gerbil-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'wrap 'rewrap ;Allow denat to find xlsxio's shared object
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((denat (string-append (assoc-ref outputs "out") "/bin/denat"))
(xlsxio (string-append (assoc-ref inputs "xlsxio") "/lib")))
(wrap-program denat `("LD_LIBRARY_PATH" = (,xlsxio)))))))))
(synopsis "Find who is hiding behind a mobile IPv4")
(description "Denatting is a Europol-backed project whose goal is to allow
investigators in participating countries to discover which Internet Service Provider
(ISP) client is responsible for a set of network events as reported by content
providers within the legal framework of a judicial investigation.")
(home-page "https://gitlab.com/edouardklein/denatting")
(license license:agpl3+)))
|