From: Federico Beffa <beffa@ieee.org>
To: Guix-devel <guix-devel@gnu.org>
Subject: [PATCH 04/15] gnu: Add chez-sockets.
Date: Sun, 16 Oct 2016 17:31:40 +0200 [thread overview]
Message-ID: <CAKrPhPPpMQGwx4GDW0TKP_-u4TbuGZQc6kczoOpzjWLM-2=GTw@mail.gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 1 bytes --]
[-- Attachment #2: 0004-gnu-Add-chez-sockets.patch --]
[-- Type: text/x-patch, Size: 4305 bytes --]
From d09667ff264149467b2b69e8a4ef67a1ce9b123c Mon Sep 17 00:00:00 2001
From: Federico Beffa <beffa@fbengineering.ch>
Date: Sun, 16 Oct 2016 16:03:07 +0200
Subject: [PATCH 04/15] gnu: Add chez-sockets.
* gnu/packages/chez.scm (chez-sockets): New variable.
---
gnu/packages/chez.scm | 76 +++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 76 insertions(+)
diff --git a/gnu/packages/chez.scm b/gnu/packages/chez.scm
index d9f6f71..6579b81 100644
--- a/gnu/packages/chez.scm
+++ b/gnu/packages/chez.scm
@@ -271,3 +271,79 @@ and 32-bit PowerPC architectures.")
programming in Scheme, and more particularly, it is implemented in
Chez Scheme.")
(license expat)))
+
+(define-public chez-sockets
+ (package
+ (name "chez-sockets")
+ (version "0.0-1.bce9688")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/arcfide/chez-sockets.git")
+ (commit "bce96881c06bd69a6757a6bff139744153924140")))
+ (file-name (string-append name "-" version "-checkout"))
+ (sha256
+ (base32 "1n5fbwwz51fdzvjackgmnsgh363g9inyxv7kmzi0469cwavwcx5m"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("chez-scheme" ,chez-scheme)
+ ("chez-web" ,chez-web)
+ ("texlive" ,texlive)))
+ (arguments
+ `(#:tests? #f ; no tests
+ #:phases
+ (modify-phases %standard-phases
+ (replace 'configure
+ (lambda* (#:key outputs inputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (chez-web (assoc-ref inputs "chez-web"))
+ (chez (assoc-ref inputs "chez-scheme"))
+ (chez-h (dirname (car (find-files chez "scheme\\.h")))))
+ (substitute* "Makefile"
+ (("(SCHEMEH=).*$" all var)
+ (string-append var chez-h)))
+ #t)))
+ (add-before 'build 'tangle
+ (lambda _
+ ;; just using "make" tries to build the .c files before
+ ;; they are created.
+ (and (zero? (system* "make" "sockets"))
+ (zero? (system* "make")))))
+ (replace 'build
+ (lambda* (#:key outputs inputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (chez-site (string-append out "/lib/csv"
+ ,(package-version chez-scheme)
+ "-site/arcfide")))
+ ;; make sure Chez Scheme can find the shared libraries.
+ (substitute* "sockets.ss"
+ (("(load-shared-object) \"(socket-ffi-values\\.[sd][oy].*)\""
+ all cmd so)
+ (string-append cmd " \"" chez-site "/" so "\""))
+ (("sockets-stub\\.[sd][oy].*" all)
+ (string-append chez-site "/" all)))
+ ;; to compile chez-sockets, the .so files must be
+ ;; installed (because of the absolute path we
+ ;; inserted above).
+ (for-each (lambda (f d) (install-file f d))
+ '("socket-ffi-values.so" "sockets-stub.so")
+ (list chez-site chez-site))
+ (zero? (system "echo '(compile-file \"sockets.sls\")' | scheme -q")))))
+ (replace 'install
+ (lambda* (#:key outputs inputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (lib (string-append out "/lib/chez-sockets"))
+ (doc (string-append out "/share/doc/" ,name "-" ,version))
+ (chez-site (string-append out "/lib/csv"
+ ,(package-version chez-scheme)
+ "-site/arcfide")))
+ (for-each (lambda (f d) (install-file f d))
+ '("sockets.pdf" "sockets.so")
+ (list doc chez-site))
+ #t))))))
+ (home-page "https://github.com/arcfide/chez-sockets")
+ (synopsis "Extensible sockets library for Chez Scheme")
+ (description "Chez-sockets is an extensible sockets library for
+Chez Scheme.")
+ (license expat)))
--
2.7.4
next reply other threads:[~2016-10-16 15:31 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-10-16 15:31 Federico Beffa [this message]
2016-10-17 13:37 ` [PATCH 04/15] gnu: Add chez-sockets Ludovic Courtès
2016-10-17 16:08 ` Federico Beffa
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CAKrPhPPpMQGwx4GDW0TKP_-u4TbuGZQc6kczoOpzjWLM-2=GTw@mail.gmail.com' \
--to=beffa@ieee.org \
--cc=guix-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.