Initial import

3 files changed, 83 insertions, 0 deletions

diff --git a/.SRCINFO b/.SRCINFO
new file mode 100644
index 000000000000..3e41efa15626
--- /dev/null
+++ b/.SRCINFO
@@ -0,0 +1,20 @@
+pkgbase = tclx
+	pkgdesc = Provides OS primitives, file scanning, data records etc. for Tcl
+	pkgver = 8.4
+	pkgrel = 4
+	url = http://tclx.sourceforge.net
+	arch = i686
+	arch = x86_64
+	arch = armv6h
+	license = BSD
+	depends = tcl=8.6.4
+	depends = tk
+	source = http://downloads.sourceforge.net/sourceforge/tclx/tclx8.4.tar.bz2
+	source = http://downloads.sourceforge.net/sourceforge/tcl/tcl8.6.4-src.tar.gz
+	source = interperrorline.patch
+	md5sums = 395c2fbe35e1723570b005161b9fc8f8
+	md5sums = d7cbb91f1ded1919370a30edd1534304
+	md5sums = 3254188674bfa4cdf58605d0d69586d0
+
+pkgname = tclx
+
diff --git a/PKGBUILD b/PKGBUILD
new file mode 100644
index 000000000000..cf719530eab8
--- /dev/null
+++ b/PKGBUILD
@@ -0,0 +1,39 @@
+# Maintainer: Peter Ivanov <ivanovp@gmail.com>
+# Contributor: Hussain Jasim <hussainmkj@gmail.com>
+# Contributors: Flemming Madsen (arch at themadsens dot dk), Sébastien Duquette <ekse.0x@gmail.com>
+pkgname=tclx
+pkgver=8.4
+_tclsrcver=8.6.4
+pkgrel=4
+pkgdesc="Provides OS primitives, file scanning, data records etc. for Tcl"
+url="http://tclx.sourceforge.net"
+arch=('i686' 'x86_64' 'armv6h')
+license=('BSD')
+depends=('tcl=8.6.4' 'tk')
+source=("http://downloads.sourceforge.net/sourceforge/tclx/tclx${pkgver}.tar.bz2" \
+        "http://downloads.sourceforge.net/sourceforge/tcl/tcl${_tclsrcver}-src.tar.gz" \
+        "interperrorline.patch")
+md5sums=('395c2fbe35e1723570b005161b9fc8f8'
+         'd7cbb91f1ded1919370a30edd1534304'
+         '3254188674bfa4cdf58605d0d69586d0')
+
+prepare() {
+  patch -d $srcdir/tclx${pkgver}/generic < interperrorline.patch
+}
+
+build() {
+  cd $srcdir/${pkgname}${pkgver}
+cp /usr/lib/tclConfig.sh $srcdir
+  echo "TCL_SRC_DIR=$startdir/tcl$_tclsrcver" >> ../tclConfig.sh
+  [ "$NOEXTRACT" == 1 ] || ./configure --prefix=/usr --enable-share \
+                           --enable-gcc --with-tcl=$srcdir
+  _tclsrc="TCL_SRC_DIR=$srcdir/tcl$_tclsrcver \
+           TCL_TOP_DIR_NATIVE=$srcdir/tcl$_tclsrcver"
+  make $_tclsrc || return 1
+}
+
+package() {
+cd $srcdir/$pkgname$pkgver
+  make $_tclsrc DESTDIR="$pkgdir" mandir="/usr/share/man" install
+install -D -m644 license.terms "$pkgdir/usr/share/licenses/$pkgname/license.terms"
+}
diff --git a/interperrorline.patch b/interperrorline.patch
new file mode 100644
index 000000000000..628ef11e89a7
--- /dev/null
+++ b/interperrorline.patch
@@ -0,0 +1,24 @@
+diff -rupN generic/tclXgeneral.c generic_fix/tclXgeneral.c
+--- generic/tclXgeneral.c	2002-04-04 01:09:05.000000000 -0500
++++ generic_fix/tclXgeneral.c	2013-07-19 17:49:57.726435546 -0400
+@@ -405,7 +405,7 @@ TclX_LoopObjCmd (dummy, interp, objc, ob
+ 		char buf [64];
+ 		
+ 		sprintf (buf, "\n    (\"loop\" body line %d)", 
+-			interp->errorLine);
++			Tcl_GetErrorLine(interp));
+ 		Tcl_AddErrorInfo (interp, buf);
+ 	    }
+ 	    break;
+diff -rupN generic/tclXlib.c generic_fix/tclXlib.c
+--- generic/tclXlib.c	2005-03-24 00:04:38.000000000 -0500
++++ generic_fix/tclXlib.c	2013-07-19 17:49:57.739768878 -0400
+@@ -239,7 +239,7 @@ EvalFilePart (interp, fileName, offset,
+      */
+     buf = ckalloc (strlen (fileName) + 64);
+     sprintf (buf, "\n    (file \"%s\" line %d)", fileName,
+-             interp->errorLine);
++             Tcl_GetErrorLine(interp));
+     Tcl_AddErrorInfo (interp, buf);
+     ckfree (buf);
+     goto errorExit;