packages/guile
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Package init

Browse Source
This commit is contained in:
overweight 2019-09-30 10:52:30 -04:00
commit 26a90cc47c
7 changed files with 270 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
guile-2.0.14-gc_pkgconfig_private.patch Normal file
View File

@ -0,0 +1,15 @@
diff -up guile-2.0.14/meta/guile-2.0.pc.in.pkgconfig_private guile-2.0.14/meta/guile-2.0.pc.in
--- guile-2.0.14/meta/guile-2.0.pc.in.pkgconfig_private 2016-12-14 18:03:33.000000000 -0600
+++ guile-2.0.14/meta/guile-2.0.pc.in 2018-02-20 11:53:56.344379283 -0600
@@ -21,9 +21,9 @@ guile=${bindir}/@guile@
Name: GNU Guile
Description: GNU's Ubiquitous Intelligent Language for Extension
Version: @GUILE_VERSION@
-Libs: -L${libdir} -lguile-@GUILE_EFFECTIVE_VERSION@ @BDW_GC_LIBS@
+Libs: -L${libdir} -lguile-@GUILE_EFFECTIVE_VERSION@
Libs.private: @LIB_CLOCK_GETTIME@ @LIBGMP@ @LIBLTDL@ @LIBFFI_LIBS@ \
@LIBUNISTRING@ @GUILE_LIBS@ @LIBICONV@ @LIBINTL@ @LIBSOCKET@ \
@SERVENT_LIB@ @HOSTENT_LIB@ @GETADDRINFO_LIB@ @INET_NTOP_LIB@ \
- @INET_PTON_LIB@
+ @INET_PTON_LIB@ @BDW_GC_LIBS@
Cflags: -I${pkgincludedir}/@GUILE_EFFECTIVE_VERSION@ @GUILE_CFLAGS@ @BDW_GC_CFLAGS@

BIN
guile-2.0.14.tar.xz Normal file
View File

Binary file not shown.

62
guile-i18ntest.patch Normal file
View File

@ -0,0 +1,62 @@
diff -up guile-2.0.14/test-suite/tests/i18n.test.i18ntest guile-2.0.14/test-suite/tests/i18n.test
--- guile-2.0.14/test-suite/tests/i18n.test.i18ntest 2017-02-13 21:32:39.000000000 +0100
+++ guile-2.0.14/test-suite/tests/i18n.test 2017-10-10 13:25:47.492589702 +0200
@@ -527,28 +527,28 @@
(with-test-prefix "French"
(pass-if-equal "integer"
- "123 456"
+ "123\xa0456"
(under-french-locale-or-unresolved
(lambda ()
(let ((fr (make-locale LC_ALL %french-locale-name)))
(number->locale-string 123456 #t fr)))))
(pass-if-equal "negative integer"
- "-1 234 567"
+ "-1\xa0234\xa0567"
(under-french-locale-or-unresolved
(lambda ()
(let ((fr (make-locale LC_ALL %french-locale-name)))
(number->locale-string -1234567 #t fr)))))
(pass-if-equal "fraction"
- "1 234,567"
+ "1\xa0234,567"
(under-french-locale-or-unresolved
(lambda ()
(let ((fr (make-locale LC_ALL %french-locale-name)))
(number->locale-string 1234.567 #t fr)))))
(pass-if-equal "fraction, 1 digit"
- "1 234,6"
+ "1\xa0234,6"
(under-french-locale-or-unresolved
(lambda ()
(let ((fr (make-locale LC_ALL %french-locale-name)))
@@ -563,7 +563,7 @@
(with-test-prefix "French"
(pass-if-equal "12345.678"
- "12 345,678"
+ "12\xa0345,678"
(under-french-locale-or-unresolved
(lambda ()
(if (null? (locale-digit-grouping %french-locale))
@@ -586,14 +586,14 @@
(with-test-prefix "French"
(pass-if-equal "integer"
- "123 456,00 +EUR"
+ "123\xa0456,00 +EUR"
(under-french-locale-or-unresolved
(lambda ()
(let ((fr (make-locale LC_ALL %french-locale-name)))
(monetary-amount->locale-string 123456 #f fr)))))
(pass-if-equal "fraction"
- "1 234,57 EUR "
+ "1\xa0234,57 EUR "
(under-french-locale-or-unresolved
(lambda ()
(let ((fr (make-locale LC_ALL %french-locale-name)))

19
guile-ieeetest.patch Normal file
View File

@ -0,0 +1,19 @@
diff -up guile-2.0.14/test-suite/tests/bytevectors.test.orig guile-2.0.14/test-suite/tests/bytevectors.test
--- guile-2.0.14/test-suite/tests/bytevectors.test.orig 2018-07-20 10:53:26.644659326 +0200
+++ guile-2.0.14/test-suite/tests/bytevectors.test 2018-07-20 10:52:50.668567335 +0200
@@ -381,6 +381,7 @@
(equal? (bytevector-ieee-single-ref b 0 (endianness little))
(bytevector-ieee-single-ref b 4 (endianness big)))))
+ #!
(pass-if "bytevector-ieee-single-{ref,set!} [unaligned]"
(let ((b (make-bytevector 9))
(number 3.14))
@@ -388,6 +389,7 @@
(bytevector-ieee-single-set! b 5 number (endianness big))
(equal? (bytevector-ieee-single-ref b 1 (endianness little))
(bytevector-ieee-single-ref b 5 (endianness big)))))
+ !#
(pass-if "double, little endian"
;; http://bugs.gnu.org/11310

47
guile-multilib.patch Normal file
View File

@ -0,0 +1,47 @@
diff -up guile-2.0.9/libguile/Makefile.in.multilib guile-2.0.9/libguile/Makefile.in
--- guile-2.0.9/libguile/Makefile.in.multilib 2013-04-10 01:31:59.000000000 +0200
+++ guile-2.0.9/libguile/Makefile.in 2013-07-16 16:59:59.490527131 +0200
@@ -3283,6 +3283,11 @@ install-nodist_modincludeHEADERS: $(nodi
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(modincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(modincludedir)" || exit $$?; \
+ for f in $$files; do if [ "$$f" = "scmconfig.h" ]; then \
+ grep -q "SCM_SIZEOF_LONG 4" "$(DESTDIR)$(modincludedir)/$$f" && g=32 || g=64; \
+ mv "$(DESTDIR)$(modincludedir)/$$f" "$(DESTDIR)$(modincludedir)/scmconfig-$$g.h"; \
+ $(INSTALL_HEADER) "$${d}scmconfig-multilib.h" "$(DESTDIR)$(modincludedir)/$$f"; \
+ fi; done \
done
uninstall-nodist_modincludeHEADERS:
diff -up guile-2.0.9/libguile/scmconfig-multilib.h.multilib guile-2.0.9/libguile/scmconfig-multilib.h
--- guile-2.0.9/libguile/scmconfig-multilib.h.multilib 2013-07-16 17:02:26.045733704 +0200
+++ guile-2.0.9/libguile/scmconfig-multilib.h 2013-07-16 17:01:51.623685971 +0200
@@ -0,0 +1,7 @@
+/* multilib clean wrapper */
+#include <bits/wordsize.h>
+#if __WORDSIZE == 32
+#include "libguile/scmconfig-32.h"
+#else
+#include "libguile/scmconfig-64.h"
+#endif
diff -up guile-2.0.9/meta/guile-config.in.multilib guile-2.0.9/meta/guile-config.in
--- guile-2.0.9/meta/guile-config.in.multilib 2012-07-02 11:28:14.000000000 +0200
+++ guile-2.0.9/meta/guile-config.in 2013-07-16 17:09:25.650324597 +0200
@@ -1,7 +1,6 @@
#!/bin/sh
-PKG_CONFIG_PATH="@pkgconfigdir@:$PKG_CONFIG_PATH"
GUILE_AUTO_COMPILE=0
-export PKG_CONFIG_PATH GUILE_AUTO_COMPILE
+export GUILE_AUTO_COMPILE
exec "@installed_guile@" -e main -s $0 "$@"
!#
@@ -31,7 +30,7 @@ exec "@installed_guile@" -e main -s $0 "
(ice-9 rdelim))
-(define %pkg-config-program "@PKG_CONFIG@")
+(define %pkg-config-program "pkg-config")
;;;; main function, command-line processing

11
guile-threadstest.patch Normal file
View File

@ -0,0 +1,11 @@
diff -up guile-2.0.13/test-suite/tests/threads.test.threadstest guile-2.0.13/test-suite/tests/threads.test
--- guile-2.0.13/test-suite/tests/threads.test.threadstest 2014-07-04 15:49:51.000000000 +0200
+++ guile-2.0.13/test-suite/tests/threads.test 2017-02-14 08:40:44.920306211 +0100
@@ -415,6 +415,7 @@
(not (mutex-owner m))))
(pass-if "mutex with owner not retained (bug #27450)"
+ (throw 'unresolved)
(let ((g (make-guardian)))
(g (let ((m (make-mutex))) (lock-mutex m) m))

116
guile.spec Normal file
View File

@ -0,0 +1,116 @@
Name: guile
Version: 2.0.14
Release: 14
Epoch: 5
Summary: GNU's Ubiquitous Intelligent Language for Extension
License: LGPLv3+
URL: https://www.gnu.org/software/guile/
Source: https://ftp.gnu.org/gnu/guile/%{name}-%{version}.tar.xz
Patch1: guile-multilib.patch
Patch2: guile-i18ntest.patch
Patch3: guile-threadstest.patch
Patch4: guile-2.0.14-gc_pkgconfig_private.patch
BuildRequires: gcc libtool gmp-devel readline-devel gc-devel libffi-devel
BuildRequires: gettext-devel libunistring-devel libtool-ltdl-devel git
Requires: coreutils
%description
This is Guile, a portable, embeddable Scheme implementation written in
C. Guile provides a machine independent execution platform that can be
linked in as a library when building extensible programs.
%package devel
Summary: Development files and Header files for %{name}
Requires: guile = %{epoch}:%{version}-%{release} gmp-devel gc-devel pkgconfig
%description devel
The %{name}-devel package contains libraries and header files for
developing applications that use %{name}.
%package_help
%prep
%autosetup -n %{name}-%{version} -p1 -S git
%build
%configure --disable-error-on-warning
sed -i 's|" $sys_lib_dlsearch_path "|" $sys_lib_dlsearch_path %{_libdir} "|' libtool
%make_build
%install
%make_install
install -d %{buildroot}%{_datadir}/guile/site/2.0
%delete_la_and_a
rm -f %{buildroot}%{_infodir}/dir
bzip2 NEWS
for i in %{buildroot}%{_infodir}/goops.info; do
iconv -f iso8859-1 -t utf-8 < $i > $i.utf8 && mv -f ${i}{.utf8,}
done
touch %{buildroot}%{_datadir}/guile/site/2.0/slibcat
ln -s guile %{buildroot}%{_bindir}/guile2
ln -s guile-tools %{buildroot}%{_bindir}/guile2-tools
find %{buildroot}%{_datadir} -name '*.scm' -exec touch -r "%{_specdir}/guile.spec" '{}' \;
find %{buildroot}%{_libdir} -name '*.go' -exec touch -r "%{_specdir}/guile.spec" '{}' \;
%check
make check
%ldconfig_scriptlets
%triggerin -- slib >= 3b4-1
export SCHEME_LIBRARY_PATH=%{_datadir}/slib/
%{_bindir}/guile --fresh-auto-compile --no-auto-compile -c \
"(use-modules (ice-9 slib)) (require 'new-catalog)" &> /dev/null || \
rm -f %{_datadir}/guile/site/%{mver}/slibcat
:
%triggerun -- slib >= 3b4-1
if [ "$2" = 0 ]; then
rm -f %{_datadir}/guile/site/%{mver}/slibcat
fi
%files
%doc AUTHORS
%license COPYING COPYING.LESSER LICENSE
%{_datadir}/guile/2.0/*
%dir %{_datadir}/guile/site/2.0
%{_bindir}/guild
%{_bindir}/guile
%{_bindir}/guile2*
%{_bindir}/guile-tools
%{_libdir}/guile/2.0/ccache/*
%{_libdir}/libguile-2.0.so.*
%{_libdir}/libguilereadline-v-18.so*
%{_infodir}/guile.info*.gz
%{_infodir}/r5rs.info.gz
%ghost %{_datadir}/guile/site/2.0/slibcat
%exclude %{_libdir}/libguile*gdb.scm
%files devel
%{_bindir}/guile-config
%{_bindir}/guile-snarf
%{_includedir}/guile/2.0/libguile/*.h
%{_includedir}/guile/2.0/*.h
%{_libdir}/pkgconfig/guile-2.0.pc
%{_libdir}/libguile-2.0.so
%{_datadir}/aclocal/guile.m4
%files help
%doc HACKING NEWS.bz2 README THANKS
%{_mandir}/man1/guile.1.gz
%changelog
* Sat Sep 28 2019 openEuler Buildteam <buildteam@openeuler.org> - 2.0.14-14
- Type:bugfix
- Id:NA
- SUG:NA
- DESC:remove the libguile-2.0.so.22.8.1-gdb.scm from package
* Tue Sep 18 2019 openEuler Buildteam <buildteam@openeuler.org> - 2.0.14-13
- Package init