Added extra/guile

extra/guile/PKGBUILD

@@ -0,0 +1,33 @@
+# $Id: PKGBUILD 72807 2010-03-20 04:06:14Z allan $
+# Contributor: Tom Newsom <Jeepster@gmx.co.uk>
+# Maintainer: Jan de Groot <jgc@archlinux.org>
+
+# PlugApps: Kevin Mihelich <kevin@plugapps.com>
+#  - Patch to add -P for cpp, our newer version does things different
+
+plugrel=1
+
+pkgname=guile
+pkgver=1.8.7
+pkgrel=2
+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
+        arm.patch)
+options=('!libtool' '!makeflags')
+md5sums=('991b5b3efcbbc3f7507d05bc42f80a5e'
+         '6c02500d12b732ecf9117fb99e9cb9f6')
+
+build() {
+  cd "${srcdir}/${pkgname}-${pkgver}"
+  patch -p1 -i ${srcdir}/arm.patch
+  ./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
+}

extra/guile/arm.patch

@@ -0,0 +1,9 @@
+diff -urN guile-1.8.7.orig/libguile/guile-snarf-docs.in guile-1.8.7/libguile/guile-snarf-docs.in
+--- guile-1.8.7.orig/libguile/guile-snarf-docs.in	2009-07-03 16:19:00.000000000 -0600
++++ guile-1.8.7/libguile/guile-snarf-docs.in	2011-01-21 18:05:47.000000000 -0700
+@@ -23,4 +23,4 @@
+ ## Let the user override the preprocessor autoconf found.
+ test -n "${CPP+set}" || CPP="@CPP@"
+ 
+-${CPP} -DSCM_MAGIC_SNARF_DOCS "$@"
++${CPP} -P -DSCM_MAGIC_SNARF_DOCS "$@"

extra/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
+}