[PATCH] Add scheme-bytestructures

[Amirouche Boubekki <amirouche.boubekki@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 251 bytes --]

Warning: scheme-bytestructures works on various implementation of Scheme
but this patch adds it only for guile-2.0.

This is a pure scheme package there is no autotools that's why I use the
trivial-build-system.

This doesn't run the test suite, yet.

[-- Attachment #1.2: Type: text/html, Size: 308 bytes --]

[-- Attachment #2: 0001-gnu-Add-scheme-bytestructures.patch --]
[-- Type: text/x-patch, Size: 4212 bytes --]

From fb2eb7ffd88ec4fba09411195a54b59d67d9c137 Mon Sep 17 00:00:00 2001
From: Amirouche <amirouche@hypermove.net>
Date: Sun, 9 Oct 2016 12:31:20 +0200
Subject: [PATCH] gnu: Add scheme-bytestructures

* gnu/packages/guile.scm (scheme-bytestructures): New variable.

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 0890f19..383990e 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -1265,4 +1265,105 @@ is no support for parsing block and inline level HTML.")
 (define-public guile2.2-commonmark
   (package-for-guile-2.2 guile-commonmark))
 
+(define-public scheme-bytestructures
+  (package
+    (name "scheme-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 (string-split "bytestructures/guile/explicit-endianness.scm
+bytestructures/guile/numeric-metadata.scm
+bytestructures/guile/ffi.scm
+bytestructures/guile/vector.scm
+bytestructures/guile/union.scm
+bytestructures/guile/numeric-all.scm
+bytestructures/guile/utils.scm
+bytestructures/guile/pointer.scm
+bytestructures/guile/base.scm
+bytestructures/guile/numeric.scm
+bytestructures/guile/struct.scm
+bytestructures/guile/bitfields.scm
+bytestructures/r6/bytevectors.scm
+bytestructures/body/base.syntactic.scm
+bytestructures/body/explicit-endianness.scm
+bytestructures/body/vector.scm
+bytestructures/body/union.scm
+bytestructures/body/utils.scm
+bytestructures/body/base.scm
+bytestructures/body/numeric.scm
+bytestructures/body/struct.scm
+bytestructures/body/bitfields.scm
+bytestructures/guile.scm"
+					 #\newline))
+		(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
+     "Scheme 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 Scheme 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