# --- T2-COPYRIGHT-NOTE-BEGIN ---
# This copyright note is auto-generated by ./scripts/Create-CopyPatch.
#
# T2 SDE: package/.../g-wrap/g-wrap.conf
# Copyright (C) 2004 - 2006 The T2 SDE Project
# Copyright (C) 1998 - 2003 Clifford Wolf
#
# More information can be found in the files COPYING and README.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; version 2 of the License. A copy of the
# GNU General Public License can be found in the file COPYING.
# --- T2-COPYRIGHT-NOTE-END ---

gwrap_slib() {
	local slibver=$( echo "$desc_D" | grep slib | sed -e 's,.* slib\(.*\).tar.gz.*,\1,g' )
	local guiledatadir=$root/usr/share/guile

	# we need the slib scheme package for g-wrap
	tar $taropt $base/download/mirror/s/slib${slibver}.tar.bz2
	mkdir -p $guiledatadir/slib

	cd slib
	sed -i "s,/usr/local/lib/slib,$guiledatadir/slib," Template.scm
	for i in *.scm; do
		ginstall -m 644 $i $guiledatadir/slib
	done
	cd ..

	rm -rf slib/

	# slib wants to write /usr/share/guile/slibcat on first use
	# this needs root privs, so we do it here once (and for all, hopefully)
	guile -c "(use-modules (ice-9 slib)) (require 'new-catalog)"
}

hook_add preconf 5 "gwrap_slib"