From 809e0ebfd22c733034b066392a012852b7637990 Mon Sep 17 00:00:00 2001
From: Damien Goutte-Gattat <dgouttegattat@incenp.org>
Date: Sun, 22 Dec 2013 14:01:25 +0100
Subject: [PATCH] d/guile1:  Added guile1-1.8.8.

---
 d/guile1/guile-1.8.8.tar.gz.sha1 |   1 +
 d/guile1/guile1.SlackBuild       | 128 +++++++++++++++++++++++++++++++
 d/guile1/slack-desc              |  12 +++
 3 files changed, 141 insertions(+)
 create mode 100644 d/guile1/guile-1.8.8.tar.gz.sha1
 create mode 100755 d/guile1/guile1.SlackBuild
 create mode 100644 d/guile1/slack-desc

diff --git a/d/guile1/guile-1.8.8.tar.gz.sha1 b/d/guile1/guile-1.8.8.tar.gz.sha1
new file mode 100644
index 00000000..ecb42743
--- /dev/null
+++ b/d/guile1/guile-1.8.8.tar.gz.sha1
@@ -0,0 +1 @@
+548d6927aeda332b117f8fc5e4e82c39a05704f9  guile-1.8.8.tar.gz
diff --git a/d/guile1/guile1.SlackBuild b/d/guile1/guile1.SlackBuild
new file mode 100755
index 00000000..5941438d
--- /dev/null
+++ b/d/guile1/guile1.SlackBuild
@@ -0,0 +1,128 @@
+#!/bin/bash
+# Build script for Slackware
+# Copyright (C) 2013 Damien Goutte-Gattat
+#
+# Redistribution and use of this script, with or without modifications,
+# is permitted provided that the following conditions are met:
+#
+# 1. Redistributions of this script must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AS IS'' AND ANY EXPRESS OR
+# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
+# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+# STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
+# IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# Contact: Damien Goutte-Gattat <dgouttegattat@incenp.org>
+#
+# Latest guile sourcecode is available at:
+# <http://www.gnu.org/software/guile/>.
+
+# Source package infos
+NAMESRC=${NAMESRC:-guile}
+VERSION=${VERSION:-1.8.8}
+ARCHIVE=${ARCHIVE:-$NAMESRC-$VERSION.tar.gz}
+WGET=${WGET:-ftp://ftp.gnu.org/gnu/guile/$ARCHIVE}
+
+# Build infos
+NAMEPKG=${NAMEPKG:-guile1}
+BUILD=${BUILD:-1GGD}
+ARCH=${ARCH:-$(uname -m | sed 's/^i.86$/i486/;s/^arm.*/arm/')}
+JOBS=${JOBS:-1}
+EXT=${EXT:-txz}
+
+# Directories
+TMP=${TMP:-/tmp}
+OUT=${OUT:-$TMP/build}
+PKG=${PKG:-$OUT/$NAMEPKG}
+CWD=$(pwd)
+
+set -e  # Quit if a command returns non-zero
+
+# Sanity checks
+if [ $UID -eq 0 ]; then
+    echo "You should NOT run this script as ROOT!"
+    exit 1
+fi
+if [ ! -d $TMP ]; then
+    echo "$TMP does not exists or is not a directory!"
+    exit 1
+fi
+
+# Compilation flags
+LIBDIRSUFFIX=""
+case "$ARCH" in
+i?86)
+    CPUOPT="-O2 -march=$ARCH -mtune=i686"
+    ;;
+x86_64)
+    CPUOPT="-O2 -fPIC"
+    LIBDIRSUFFIX="64"
+    ;;
+*)
+    CPUOPT="-O2"
+    ;;
+esac
+
+# Get and verify the source archive
+if [ ! -r $ARCHIVE ]; then
+    wget -c -O $ARCHIVE.part "$WGET"
+    mv $ARCHIVE.part $ARCHIVE
+fi
+sha1sum -c $ARCHIVE.sha1
+NAME=$(tar ft $ARCHIVE | head -n 1 | cut -d / -f 1)
+
+# Compile
+cd $TMP
+echo "Building $ARCHIVE..."
+tar xf $CWD/$ARCHIVE
+cd $NAME
+CFLAGS="$CPUOPT -Wno-error=unused-but-set-variable" \
+./configure \
+  --prefix=/usr \
+  --libdir=/usr/lib$LIBDIRSUFFIX \
+  --mandir=/usr/man \
+  --infodir=/usr/info \
+  --disable-static \
+  --program-transform-name='s/guile/guile1/'
+make -j $JOBS
+make install-strip DESTDIR=$PKG
+
+# Compress man page
+find $PKG/usr/man  -type f -exec gzip -9 {} \;
+
+# Remove info pages (do not erase guile-2 pages)
+rm -rf $PKG/usr/info
+
+# Rename Autoconf file
+mv $PKG/usr/share/aclocal/guile.m4 $PKG/usr/share/aclocal/guile1.m4
+
+# Install the documentation
+mkdir -p $PKG/usr/doc/$NAMEPKG-$VERSION
+install -m 644 AUTHORS COPYING.LESSER ChangeLog ChangeLog-2008 HACKING \
+  LICENSE NEWS README THANKS $PKG/usr/doc/$NAMEPKG-$VERSION
+
+# Copy slack-desc file
+install -D -m 644 $CWD/slack-desc $PKG/install/slack-desc
+
+# Package the tree
+cd $PKG
+mkdir -p $OUT
+PACKAGING="
+chown root:root . -R
+/sbin/makepkg -l y -c n $OUT/$NAMEPKG-$VERSION-$ARCH-$BUILD.$EXT
+rm -rf $PKG
+rm -rf $TMP/$NAME
+"
+if type -p fakeroot ; then
+    echo "$PACKAGING" | fakeroot
+else
+    su -c "$PACKAGING"
+fi
diff --git a/d/guile1/slack-desc b/d/guile1/slack-desc
new file mode 100644
index 00000000..ef29fad1
--- /dev/null
+++ b/d/guile1/slack-desc
@@ -0,0 +1,12 @@
+      |-----handy-ruler-------------------------------------------------------|
+guile1: guile1 (GNU extension language library)
+guile1: 
+guile1: This is the branch 1.x of Guile, Project GNU's extension language
+guile1: library. Guile is an interpreter for Scheme, packaged as a library
+guile1: that you can link into your applications to give them their own
+guile1: scripting language.
+guile1: 
+guile1: 
+guile1: 
+guile1: 
+guile1: