development/guile1.8: Added (Guile 1.8 Legacy)

Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>

4 files changed, 162 insertions, 0 deletions

diff --git a/development/guile1.8/README b/development/guile1.8/README
new file mode 100644
index 0000000000..7421810ddb
--- /dev/null
+++ b/development/guile1.8/README
@@ -0,0 +1,10 @@
+Guile is the GNU Ubiquitous Intelligent Language for Extensions.
+
+Guile is an interpreter for Scheme, packaged as a library that you
+can link into your applications to give them their own scripting
+language. Guile will eventually support other languages as well,
+giving users of Guile-based applications a choice of languages.
+
+This is Guile 1.8 (legacy version) needed by some packages in SBo.
+
+This package can be installed alongside with Slackware's Guile
\ No newline at end of file
diff --git a/development/guile1.8/guile1.8.SlackBuild b/development/guile1.8/guile1.8.SlackBuild
new file mode 100644
index 0000000000..eea5370548
--- /dev/null
+++ b/development/guile1.8/guile1.8.SlackBuild
@@ -0,0 +1,122 @@
+#!/bin/sh
+
+# Copyright 2013 Willy Sudiarto Raharjo <willysr@slackbuilds.org>
+# All rights reserved.
+#
+# Redistribution and use of this script, with or without modification, 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.
+
+PRGNAM=guile1.8
+SRCNAM=guile
+VERSION=${VERSION:-1.8.8}
+BUILD=${BUILD:-1}
+TAG=${TAG:-_SBo}
+
+if [ -z "$ARCH" ]; then
+  case "$( uname -m )" in
+    i?86) ARCH=i486 ;;
+    arm*) ARCH=arm ;;
+       *) ARCH=$( uname -m ) ;;
+  esac
+fi
+
+CWD=$(pwd)
+TMP=${TMP:-/tmp/SBo}
+PKG=$TMP/package-$PRGNAM
+OUTPUT=${OUTPUT:-/tmp}
+
+if [ "$ARCH" = "i486" ]; then
+  SLKCFLAGS="-O2 -march=i486 -mtune=i686"
+  LIBDIRSUFFIX=""
+elif [ "$ARCH" = "i686" ]; then
+  SLKCFLAGS="-O2 -march=i686 -mtune=i686"
+  LIBDIRSUFFIX=""
+elif [ "$ARCH" = "x86_64" ]; then
+  SLKCFLAGS="-O2 -fPIC"
+  LIBDIRSUFFIX="64"
+else
+  SLKCFLAGS="-O2"
+  LIBDIRSUFFIX=""
+fi
+
+set -e
+
+rm -rf $PKG
+mkdir -p $TMP $PKG $OUTPUT
+cd $TMP
+rm -rf $SRCNAM-$VERSION
+tar xvf $CWD/$SRCNAM-$VERSION.tar.gz
+cd $SRCNAM-$VERSION
+chown -R root:root .
+find -L . \
+ \( -perm 777 -o -perm 775 -o -perm 750 -o -perm 711 -o -perm 555 \
+  -o -perm 511 \) -exec chmod 755 {} \; -o \
+ \( -perm 666 -o -perm 664 -o -perm 640 -o -perm 600 -o -perm 444 \
+ -o -perm 440 -o -perm 400 \) -exec chmod 644 {} \;
+
+CFLAGS="$SLKCFLAGS" \
+./configure \
+  --prefix=/usr \
+  --libdir=/usr/lib${LIBDIRSUFFIX} \
+  --infodir=/usr/info \
+  --mandir=/usr/man \
+  --with-threads \
+  --program-suffix=1.8 \
+  --disable-error-on-warning \
+  --build=$ARCH-slackware-linux
+
+make -j1
+make install DESTDIR=$PKG
+
+find $PKG | xargs file | grep -e "executable" -e "shared object" | grep ELF \
+  | cut -f 1 -d : | xargs strip --strip-unneeded 2> /dev/null
+
+find $PKG/usr/man -type f -exec gzip -9 {} \;
+for i in $( find $PKG/usr/man -type l ) ; do ln -s $( readlink $i ).gz $i.gz ; rm $i ; done
+
+# Compress info files
+if [ -d $PKG/usr/info ]; then
+  ( cd $PKG/usr/info
+    rm -f dir    
+    gzip -9 *
+    # rename it so that it will not overwrite Slackware's guile 2.0 package
+    for i in {1..7}
+    do 
+      mv guile.info-$i.gz guile1.8.info-$i.gz
+    done
+    mv guile.info.gz guile1.8.info.gz
+    mv r5rs.info.gz r5rs1.8.info.gz
+  )
+fi
+
+# remove duplicate file and use Slackware's guile.m4
+# It can detect newer (2.0) and older (1.8) version of guile installed on system
+rm -f $PKG/usr/share/aclocal/guile.m4
+
+mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION
+cp -a \
+  AUTHORS COPYING* GUILE-VERSION \
+  HACKING INSTALL LICENSE NEWS README* THANKS \
+  $PKG/usr/doc/$PRGNAM-$VERSION
+cat $CWD/$PRGNAM.SlackBuild > $PKG/usr/doc/$PRGNAM-$VERSION/$PRGNAM.SlackBuild
+
+mkdir -p $PKG/install
+cat $CWD/slack-desc > $PKG/install/slack-desc
+
+cd $PKG
+/sbin/makepkg -l y -c n $OUTPUT/$PRGNAM-$VERSION-$ARCH-$BUILD$TAG.${PKGTYPE:-tgz}
+
diff --git a/development/guile1.8/guile1.8.info b/development/guile1.8/guile1.8.info
new file mode 100644
index 0000000000..69193f57cf
--- /dev/null
+++ b/development/guile1.8/guile1.8.info
@@ -0,0 +1,10 @@
+PRGNAM="guile1.8"
+VERSION="1.8.8"
+HOMEPAGE="https://www.gnu.org/software/guile"
+DOWNLOAD="ftp://ftp.gnu.org/gnu/guile/guile-1.8.8.tar.gz"
+MD5SUM="18661a8fdfef13e2fcb7651720aa53f3"
+DOWNLOAD_x86_64=""
+MD5SUM_x86_64=""
+REQUIRES=""
+MAINTAINER="Willy Sudiarto Raharjo"
+EMAIL="willysr@slackbuilds.org"
diff --git a/development/guile1.8/slack-desc b/development/guile1.8/slack-desc
new file mode 100644
index 0000000000..8ac7b54ad7
--- /dev/null
+++ b/development/guile1.8/slack-desc
@@ -0,0 +1,20 @@
+# HOW TO EDIT THIS FILE:
+# The "handy ruler" below makes it easier to edit a package description.
+# Line up the first '|' above the ':' following the base package name, and
+# the '|' on the right side marks the last column you can put a character in.
+# You must make exactly 11 lines for the formatting to be correct.  It's also
+# customary to leave one space after the ':' except on otherwise blank lines.
+
+        |-----handy-ruler------------------------------------------------------|
+guile1.8: guile 1.8 (GNU's extension language library)
+guile1.8:
+guile1.8: Guile is the GNU Ubiquitous Intelligent Language for Extensions.
+guile1.8: Guile is an interpreter for Scheme, packaged as a library that you
+guile1.8: can link into your applications to give them their own scripting
+guile1.8: language. Guile will eventually support other languages as well,
+guile1.8: giving users of Guile-based applications a choice of languages.
+guile1.8:
+guile1.8: This is Guile 1.8 (legacy version) needed by some packages in SBo.
+guile1.8:
+guile1.8:
+guile1.8: