git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1799 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
		
			
				
	
	
		
			66 lines
		
	
	
		
			1.9 KiB
		
	
	
	
		
			Bash
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			66 lines
		
	
	
		
			1.9 KiB
		
	
	
	
		
			Bash
		
	
	
		
			Executable File
		
	
	
	
	
#!/bin/sh
 | 
						|
 | 
						|
## =================================================================
 | 
						|
## Logtalk - Object oriented extension to Prolog
 | 
						|
## Release 2.29.4
 | 
						|
##
 | 
						|
## Copyright (c) 1998-2007 Paulo Moura.  All Rights Reserved.
 | 
						|
## =================================================================
 | 
						|
 | 
						|
echo
 | 
						|
echo "Creating a script named qplgt for running Logtalk with Qu-Prolog..."
 | 
						|
echo
 | 
						|
 | 
						|
if ! [ "$LOGTALKHOME" ]
 | 
						|
then
 | 
						|
	echo "The environment variable LOGTALKHOME must be defined first!"
 | 
						|
	echo
 | 
						|
	exit 1
 | 
						|
fi
 | 
						|
 | 
						|
if ! [ -d "$LOGTALKHOME" ]; then
 | 
						|
	echo "The environment variable LOGTALKHOME points to a non-existing directory!"
 | 
						|
	echo "Its current value is: $LOGTALKHOME"
 | 
						|
	echo "The variable must be set to your Logtalk installation directory!"
 | 
						|
	echo
 | 
						|
	exit 1
 | 
						|
fi
 | 
						|
 | 
						|
if [ -z "$1" ]; then
 | 
						|
	prefix=/usr/local
 | 
						|
else
 | 
						|
	prefix="$1"
 | 
						|
fi
 | 
						|
 | 
						|
if ! [ -d "$prefix" ]; then
 | 
						|
	echo "Directory prefix does not exist!"
 | 
						|
	echo
 | 
						|
	exit 1
 | 
						|
fi
 | 
						|
 | 
						|
cd "$LOGTALKHOME"
 | 
						|
mkdir -p bin
 | 
						|
cd configs
 | 
						|
cp qu.config qu.ql
 | 
						|
echo "fcompile('qu.ql', [assemble_only(true)]), load(qu). \
 | 
						|
chdir('../compiler/'), fcompile('logtalk.pl', [assemble_only(true), string_table(256)]), load(logtalk). \
 | 
						|
chdir('../libpaths/'), fcompile('libpaths.pl', [assemble_only(true)]), load(libpaths)." | qp -s 3072 -d 1024 -h 2048
 | 
						|
qc -c qphook.ql
 | 
						|
cd ../bin
 | 
						|
qc -s 3072 -d 1024 -h 2048 -o qplgt ../configs/qphook.qo ../configs/qu.qo ../compiler/logtalk.qo  ../libpaths/libpaths.qo
 | 
						|
chmod a+x qplgt
 | 
						|
ln -sf $LOGTALKHOME/bin/qplgt $prefix/bin/qplgt
 | 
						|
rm ../configs/qu.ql
 | 
						|
rm ../configs/qphook.qo
 | 
						|
rm ../configs/qu.qo
 | 
						|
rm ../compiler/logtalk.qo
 | 
						|
rm ../libpaths/libpaths.qo
 | 
						|
echo "Done. A link to the script was been created in $prefix/bin."
 | 
						|
echo "The script must be regenerated whenever changes are made to"
 | 
						|
echo "either the config file or the libpaths file."
 | 
						|
echo
 | 
						|
echo "Users should ensure that the environment variables LOGTALKHOME"
 | 
						|
echo "and LOGTALKUSER are defined and then run the \"cplgtdirs\" script"
 | 
						|
echo "once prior to using the qplgt script."
 | 
						|
echo
 |