From 06e95ffcac39db58a104826fb081fa7fa4b8d4f5 Mon Sep 17 00:00:00 2001
From: Amirouche BOUBEKKI <address@hidden>
Date: Fri, 11 Dec 2015 17:04:06 +0100
Subject: [PATCH] gnu: Add guile-g-wrap.

* gnu/packages/guile.scm (guile-g-wrap): New variable.
---
 gnu/packages/guile.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index a4203f0..e9fc20e 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -841,4 +841,32 @@ capabilities.")
     (home-page "http://dthompson.us/pages/software/sly.html")
     (license gpl3+)))
 
+(define-public guile-g-wrap
+  (package
+    (name "guile-g-wrap")
+    (version "1.9.15")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://savannah.nongnu.org/download/g-wrap/g-wrap-"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "0ak0bha37dfpj9kmyw1r8fj8nva639aw5xr66wr5gd3l1rqf5xhg"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (propagated-inputs
+     `(("guile" ,guile-2.0)
+       ("guile-lib" ,guile-lib)))
+    (inputs
+     `(("libffi" ,libffi)))
+    (synopsis "Tool for generating function wrappers for C functions")
+    (description "G-Wrap is a tool and guile library for generating function
+wrappers for inter-language calls.  It currently only supports generating Guile
+wrappers for C functions.  Given a definition of the types and prototypes for
+a given C interface, G-Wrap will automatically generate the C code that
+provides access to that interface and its types from the Scheme level.")
+    (home-page "http://www.nongnu.org/g-wrap/index.html")
+    (license lgpl2.1+)))
+
 ;;; guile.scm ends here
-- 
2.5.0