Updated the patch. On Tue, Oct 18, 2016 at 4:28 PM Ludovic Courtès <l...@gnu.org> wrote:
> Amirouche Boubekki <amirouche.boube...@gmail.com> skribis: > > > On Mon, Oct 10, 2016 at 10:46 PM Ludovic Courtès <l...@gnu.org> wrote: > > > [...] > >> Please let’s not list all the files. :-) Could it instead use > >> something like (find-files "bytestructures" "\\.scm$")? > >> > > > > The above is a subset of all files. Do you prefer to use `find-files` and > > exclude some files? > > Whichever is the most concise and most maintainable approach (I suspect > it’s ‘find-files’ + exclude specific files.) > > Ludo’. > find-files does the right thing, there is no need to filter what it returns.
From ea88bf4b53a63ba0d54f71622d055c32cd7e346e Mon Sep 17 00:00:00 2001 From: Amirouche <amirou...@hypermove.net> Date: Sun, 9 Oct 2016 12:31:20 +0200 Subject: [PATCH] gnu: Add guile-bytestructures * gnu/packages/guile.scm (guile-bytestructures): New variable. --- gnu/packages/guile.scm | 78 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 78 insertions(+) diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index 43071e6..a03cb44 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -1267,4 +1267,82 @@ is no support for parsing block and inline level HTML.") (define-public guile2.2-commonmark (package-for-guile-2.2 guile-commonmark)) +(define-public guile-bytestructures + (package + (name "guile-bytestructures") + (version "20160726.53127f6") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/TaylanUB/scheme-bytestructures";) + (commit "53127f608caf64b34fa41c389b2743b546fbe9da"))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "0l4nx1vp9fkrgrgwjiycj7nx6wfjfd39rqamv4pmq7issi8mrywq")))) + (build-system trivial-build-system) + (arguments + `(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils) + (ice-9 match) + (ice-9 popen) + (ice-9 rdelim)) + + (let* ((out (assoc-ref %outputs "out")) + (guile (assoc-ref %build-inputs "guile")) + (effective (read-line + (open-pipe* OPEN_READ + (string-append guile "/bin/guile") + "-c" "(display (effective-version))"))) + (module-dir (string-append out "/share/guile/site/" + effective)) + (source (assoc-ref %build-inputs "source")) + (doc (string-append out "/share/doc/scheme-bytestructures")) + (scm-files (find-files "bytestructures" "\\.scm$")) + (guild (string-append (assoc-ref %build-inputs "guile") + "/bin/guild"))) + ;; Make installation directories. + (mkdir-p (string-append module-dir "/bytestructures/guile")) + (mkdir-p (string-append module-dir "/bytestructures/r6")) + (mkdir-p (string-append module-dir "/bytestructures/body")) + (mkdir-p doc) + + ;; Compile .scm files and install. + (chdir source) + (setenv "GUILE_AUTO_COMPILE" "0") + (for-each (lambda (file) + (let* ((dest-file (string-append module-dir "/" + file)) + (go-file (string-append module-dir "/" + (substring file 0 + (string-rindex file #\.)) + ".go"))) + ;; Install source module. + (copy-file file dest-file) + ;; Install compiled module. + (unless (zero? (system* guild "compile" + "-L" source + "-o" go-file + file)) + (error (format #f "Failed to compile ~s to ~s!" + file go-file))))) + scm-files) + + ;; Also copy over the README. + (install-file "README.md" doc) + #t)))) + (inputs + `(("guile" ,guile-2.0))) + (home-page "https://github.com/TaylanUB/scheme-bytestructures";) + (synopsis "Structured access to bytevector contents for Guile") + (description + "Guile bytestructures offers a system imitating the type system +of the C programming language, to be used on bytevectors. C's type +system works on raw memory, and Guile works on bytevectors which are +an abstraction over raw memory. It's also more powerful than the C +type system, elevating types to first-class status.") + (license gpl3+))) + ;;; guile.scm ends here -- 2.10.0
