[Buildroot] [PATCH 2/2] Add guile programming language: Guile is an interpreter and compiler for the Scheme programming language, a clean and elegant dialect of Lisp.
Pedro Aguilar
paguilar at paguilar.org
Sun Nov 2 15:15:45 UTC 2014
Signed-off-by: Pedro Aguilar <paguilar at paguilar.org>
---
package/Config.in | 1 +
package/guile/Config.in | 14 +++++++++++
package/guile/guile-001-fix_arm_endianness.patch | 13 ++++++++++
.../guile/guile-002-calculate-csqrt_manually.patch | 11 +++++++++
.../guile-003-undef_use_gnu_local_locale_api.patch | 11 +++++++++
package/guile/guile.mk | 28 ++++++++++++++++++++++
6 files changed, 78 insertions(+)
create mode 100644 package/guile/Config.in
create mode 100644 package/guile/guile-001-fix_arm_endianness.patch
create mode 100644 package/guile/guile-002-calculate-csqrt_manually.patch
create mode 100644 package/guile/guile-003-undef_use_gnu_local_locale_api.patch
create mode 100644 package/guile/guile.mk
diff --git a/package/Config.in b/package/Config.in
index bb158b4..d16c155 100644
--- a/package/Config.in
+++ b/package/Config.in
@@ -393,6 +393,7 @@ endmenu
menu "Interpreter languages and scripting"
source "package/enscript/Config.in"
source "package/erlang/Config.in"
+ source "package/guile/Config.in"
source "package/haserl/Config.in"
source "package/jamvm/Config.in"
source "package/jimtcl/Config.in"
diff --git a/package/guile/Config.in b/package/guile/Config.in
new file mode 100644
index 0000000..2653fca
--- /dev/null
+++ b/package/guile/Config.in
@@ -0,0 +1,14 @@
+config BR2_PACKAGE_GUILE
+ bool "guile"
+ select BR2_PACKAGE_LIBUNINSTRING
+ select BR2_PACKAGE_LIBFFI
+ select BR2_PACKAGE_LIBGMP
+ select BR2_PACKAGE_BDWGC
+ select BR2_PACKAGE_FLEX
+ select BR2_PACKAGE_LIBTOOL
+ help
+ Guile is an interpreter and compiler for the Scheme
+ programming language, a clean and elegant dialect of Lisp.
+
+ http://www.gnu.org/software/guile
+
diff --git a/package/guile/guile-001-fix_arm_endianness.patch b/package/guile/guile-001-fix_arm_endianness.patch
new file mode 100644
index 0000000..d079c1e
--- /dev/null
+++ b/package/guile/guile-001-fix_arm_endianness.patch
@@ -0,0 +1,13 @@
+--- guile-2.0.11.orig/module/system/base/target.scm 2013-02-28 09:42:45.000000000 +0100
++++ guile-2.0.11/module/system/base/target.scm 2014-11-01 21:23:15.301242749 +0100
+@@ -70,7 +70,9 @@
+ ((member cpu '("sparc" "sparc64" "powerpc" "powerpc64" "spu"
+ "mips" "mips64"))
+ (endianness big))
+- ((string-match "^arm.*el" cpu)
++ ((string-match "^arm.*eb" cpu)
++ (endianness big))
++ ((string-match "^arm.*" cpu)
+ (endianness little))
+ (else
+ (error "unknown CPU endianness" cpu)))))
diff --git a/package/guile/guile-002-calculate-csqrt_manually.patch b/package/guile/guile-002-calculate-csqrt_manually.patch
new file mode 100644
index 0000000..ca259fa
--- /dev/null
+++ b/package/guile/guile-002-calculate-csqrt_manually.patch
@@ -0,0 +1,11 @@
+--- guile-2.0.11.orig/libguile/numbers.c 2014-03-12 14:24:54.000000000 +0100
++++ guile-2.0.11/libguile/numbers.c 2014-11-01 21:07:20.301263587 +0100
+@@ -10260,8 +10260,6 @@
+ {
+ #if defined HAVE_COMPLEX_DOUBLE && defined HAVE_USABLE_CSQRT \
+ && defined SCM_COMPLEX_VALUE
+- return scm_from_complex_double (csqrt (SCM_COMPLEX_VALUE (z)));
+-#else
+ double re = SCM_COMPLEX_REAL (z);
+ double im = SCM_COMPLEX_IMAG (z);
+ return scm_c_make_polar (sqrt (hypot (re, im)),
diff --git a/package/guile/guile-003-undef_use_gnu_local_locale_api.patch b/package/guile/guile-003-undef_use_gnu_local_locale_api.patch
new file mode 100644
index 0000000..97fb455
--- /dev/null
+++ b/package/guile/guile-003-undef_use_gnu_local_locale_api.patch
@@ -0,0 +1,11 @@
+--- guile-2.0.11.orig/libguile/i18n.c 2014-01-21 22:25:11.000000000 +0100
++++ guile-2.0.11/libguile/i18n.c 2014-11-01 21:59:29.001195319 +0100
+@@ -54,7 +54,7 @@
+ Specifications Issue 7'' (aka. "POSIX 2008"):
+
+ http://www.opengroup.org/onlinepubs/9699919799/basedefs/locale.h.html */
+-# define USE_GNU_LOCALE_API
++# undef USE_GNU_LOCALE_API
+ #endif
+
+ #include "libguile/posix.h" /* for `scm_i_locale_mutex' */
diff --git a/package/guile/guile.mk b/package/guile/guile.mk
new file mode 100644
index 0000000..a37f47a
--- /dev/null
+++ b/package/guile/guile.mk
@@ -0,0 +1,28 @@
+################################################################################
+#
+# guile
+#
+################################################################################
+
+GUILE_VERSION = 2.0.11
+GUILE_SOURCE = guile-$(GUILE_VERSION).tar.xz
+GUILE_SITE = ftp://ftp.gnu.org/pub/gnu/guile
+GUILE_INSTALL_STAGING = YES
+GUILE_LICENSE = LGPLv3
+GUILE_LICENSE_FILES = LICENSE
+GUILE_DEPENDENCIES = host-guile
+
+HOST_GUILE_DEPENDENCIES = host-intltool host-libffi host-gmp host-bdwgc
+
+PKG_CONFIG_HOST_BINARY = $(HOST_DIR)/usr/bin/pkg-config
+
+GUILE_CONF_ENV += GUILE_FOR_BUILD=$(HOST_DIR)/usr/bin/guile \
+ LIBFFI_CFLAGS="-I$(TARGET_DIR)/usr/include" \
+ LIBFFI_LIBS="-L$(TARGET_DIR)/usr/lib -lffi" \
+ BDW_GC_CFLAGS="-I$(TARGET_DIR)/usr/include" \
+ BDW_GC_LIBS="-L$(TARGET_DIR)/usr/lib -lgc" \
+ CFLAGS+="-DHAVE_GC_SET_FINALIZER_NOTIFIER -DHAVE_GC_GET_HEAP_USAGE_SAFE -DHAVE_GC_GET_FREE_SPACE_DIVISOR -DHAVE_GC_SET_FINALIZE_ON_DEMAND"
+
+$(eval $(autotools-package))
+$(eval $(host-autotools-package))
+
--
1.9.1
More information about the buildroot
mailing list