Added new app: Guile, version 1.8.7

guile/PKGBUILD

@@ -0,0 +1,32 @@
+#
+# Chakra Packages for Chakra, part of chakra-project.org
+#
+# contributor (x86_64): Giuseppe Calà <jiveaxe@gmail.com>
+
+# include global config
+source ../_buildscripts/${current_repo}-${_arch}-cfg.conf
+
+pkgname=guile
+pkgver=1.8.7
+pkgrel=1
+pkgdesc="Guile is a portable, embeddable Scheme implementation written in C"
+url="http://www.gnu.org/software/guile/"
+arch=(i686 x86_64)
+license=('GPL')
+depends=('gmp' 'libtool' 'ncurses>=5.7' 'texinfo')
+install=guile.install
+source=(ftp://ftp.gnu.org/pub/gnu/${pkgname}/${pkgname}-${pkgver}.tar.gz
+	doc-snarfing-fix.patch)
+options=('!libtool' '!makeflags')
+md5sums=('991b5b3efcbbc3f7507d05bc42f80a5e'
+	 '3d6f6a4670a8e933a760ff076ff40d2a')
+
+build() {
+  cd "${srcdir}/${pkgname}-${pkgver}"
+  patch -Np1 -i ${srcdir}/doc-snarfing-fix.patch || return 1
+  ./configure --prefix=/usr --disable-error-on-warning || return 1
+  make LDFLAGS+="-lpthread" || return 1
+  make DESTDIR="${pkgdir}" install || return 1
+  rm -f "${pkgdir}/usr/share/info/dir"
+  gzip "${pkgdir}/usr/share/info"/* || return 1
+}

guile/doc-snarfing-fix.patch

@@ -0,0 +1,21 @@
+diff -Naur guile-1.8.7-orig/scripts/snarf-check-and-output-texi guile-1.8.7/scripts/snarf-check-and-output-texi
+--- guile-1.8.7-orig/scripts/snarf-check-and-output-texi	2009-07-03 22:19:00.000000000 +0000
++++ guile-1.8.7/scripts/snarf-check-and-output-texi	2010-11-20 17:34:34.283333394 +0000
+@@ -267,6 +267,17 @@
+       (set! *file* file)
+       (set! *line* line))
+ 
++     ;; newer gccs like to throw around more location markers into the
++     ;; preprocessed source; these (hash . hash) bits are what they translate to
++     ;; in snarfy terms.
++     (('location ('string . file) ('int . line) ('hash . 'hash))
++      (set! *file* file)
++      (set! *line* line))
++
++     (('location ('hash . 'hash) ('string . file) ('int . line) ('hash . 'hash))
++      (set! *file* file)
++      (set! *line* line))
++
+      (('arglist rest ...)
+       (set! *args* (do-arglist rest)))
+ 

guile/guile.install

@@ -0,0 +1,27 @@
+files=(goops.info
+       guile-tut.info
+       guile.info
+       guile.info-1
+       guile.info-2
+       guile.info-3
+       guile.info-4
+       guile.info-5
+       guile.info-6
+       guile.info-7
+       r5rs.info)
+
+post_install() {
+  for f in "${files[@]}"; do
+    install-info usr/share/info/${f}.gz usr/share/info/dir 2>/dev/null
+  done
+}
+
+post_upgrade() {
+  post_install $1
+}
+
+pre_remove() {
+  for f in "${files[@]}"; do
+    install-info --delete usr/share/info/${f}.gz usr/share/info/dir 2> /dev/null
+  done
+}