Logtalk 2.30.1 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1903 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
62
Logtalk/integration/NOTES.txt
Normal file
62
Logtalk/integration/NOTES.txt
Normal file
@@ -0,0 +1,62 @@
|
||||
================================================================
|
||||
Logtalk - Open source object-oriented logic programming language
|
||||
Release 2.30.1
|
||||
|
||||
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
================================================================
|
||||
|
||||
|
||||
This directory contains Prolog integration shell scripts and auxiliary
|
||||
Prolog files.
|
||||
|
||||
On POSIX systems, the Logtalk installers make the following integration
|
||||
scripts available from the command-line (you may need to adjust your
|
||||
system path):
|
||||
|
||||
bplgt B-Prolog integration script
|
||||
ciaolgt Ciao Prolog integration script
|
||||
cxlgt CxProlog integration script
|
||||
eclipselgt ECLiPSe integration script
|
||||
gplgt GNU Prolog integration script
|
||||
plclgt K-Prolog integration script
|
||||
sicstuslgt SICStus Prolog integration script
|
||||
swilgt SWI-Prolog integration script
|
||||
xsblgt XSB integration script
|
||||
yaplgt YAP integration script
|
||||
|
||||
On Windows systems, the Logtalk installer makes the Prolog integration
|
||||
shortcuts available from the "Start Menu/Programs/Logtalk" menu.
|
||||
|
||||
The first run of the B-Prolog, Ciao, and XSB integration scripts must be
|
||||
made by an user with administrative rights (on POSIX systems, run them
|
||||
once as root or using sudo; in Windows systems run them once from an
|
||||
administrative account).
|
||||
|
||||
The GNU Prolog integration script provides adequate performance for
|
||||
development. For production environments, improved performance can be
|
||||
achieved by generating a new GNU-Prolog top-level that includes Logtalk.
|
||||
|
||||
Other Prolog compilers require manual steps for integration with Logtalk.
|
||||
See the "configs/NOTES.txt" file for details.
|
||||
|
||||
The environment variables LOGTALKHOME and LOGTALKUSER should be defined
|
||||
in order to run the integration scripts (see the "INSTALL.txt" file for
|
||||
details on setting the variables).
|
||||
|
||||
Note that the integration scripts and shortcuts may fail if you use non-
|
||||
standard locations for your Prolog compilers.
|
||||
|
||||
Depending on the size and complexity of your Logtalk applications, you
|
||||
may need to change the integration scripts in order to allocate more
|
||||
memory to the back-end Prolog compilers. Please consult the documentation
|
||||
on the Prolog compilers you intend to use for details.
|
||||
|
||||
All the scripts accept command-line options, which are passed straight to
|
||||
the back-end Prolog compiler. For example (on a POSIX operating-system,
|
||||
using SWI-Prolog as the back-end compiler):
|
||||
|
||||
% swilgt -g "write('Hello world!'), nl"
|
||||
|
||||
However, keep in mind that the integration scripts already use the back-end
|
||||
Prolog command-line option that allows a initialization file to be loaded
|
||||
in order to bootstrap Logtalk. See the scripts/shortcut files for details.
|
||||
60
Logtalk/integration/bplgt.sh
Executable file
60
Logtalk/integration/bplgt.sh
Executable file
@@ -0,0 +1,60 @@
|
||||
#/bin/sh
|
||||
|
||||
## ================================================================
|
||||
## Logtalk - Open source object-oriented logic programming language
|
||||
## Release 2.30.1
|
||||
##
|
||||
## Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
## ================================================================
|
||||
|
||||
if ! [ "$LOGTALKHOME" ]; then
|
||||
echo "The environment variable LOGTALKHOME should be defined first, pointing"
|
||||
echo "to your Logtalk installation directory!"
|
||||
echo "Trying the default locations for the Logtalk installation..."
|
||||
if [ -d "/usr/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/local/share/logtalk"
|
||||
elif [ -d "/usr/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/share/logtalk"
|
||||
elif [ -d "/opt/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/local/share/logtalk"
|
||||
elif [ -d "/opt/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/share/logtalk"
|
||||
else
|
||||
echo "... unable to locate Logtalk installation directory!"
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
echo
|
||||
elif ! [ -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
|
||||
export LOGTALKHOME
|
||||
|
||||
if ! [ "$LOGTALKUSER" ]; then
|
||||
echo "The environment variable LOGTALKUSER should be defined first, pointing"
|
||||
echo "to your Logtalk user directory!"
|
||||
echo "Trying the default location for the Logtalk user directory..."
|
||||
export LOGTALKUSER=$HOME/logtalk
|
||||
if [ -d "$LOGTALKUSER" ]; then
|
||||
echo "... using Logtalk user directory found at $LOGTALKUSER"
|
||||
else
|
||||
echo "... Logtalk user directory not found at default location. Creating a"
|
||||
echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
elif ! [ -d "$LOGTALKUSER" ]; then
|
||||
echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
|
||||
echo "by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
echo
|
||||
|
||||
exec bp -g "consult('$LOGTALKHOME/integration/logtalk_bp.pl'), \$bp_top_level" "$@"
|
||||
60
Logtalk/integration/ciaolgt.sh
Executable file
60
Logtalk/integration/ciaolgt.sh
Executable file
@@ -0,0 +1,60 @@
|
||||
#/bin/sh
|
||||
|
||||
## ================================================================
|
||||
## Logtalk - Open source object-oriented logic programming language
|
||||
## Release 2.30.1
|
||||
##
|
||||
## Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
## ================================================================
|
||||
|
||||
if ! [ "$LOGTALKHOME" ]; then
|
||||
echo "The environment variable LOGTALKHOME should be defined first, pointing"
|
||||
echo "to your Logtalk installation directory!"
|
||||
echo "Trying the default locations for the Logtalk installation..."
|
||||
if [ -d "/usr/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/local/share/logtalk"
|
||||
elif [ -d "/usr/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/share/logtalk"
|
||||
elif [ -d "/opt/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/local/share/logtalk"
|
||||
elif [ -d "/opt/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/share/logtalk"
|
||||
else
|
||||
echo "... unable to locate Logtalk installation directory!"
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
echo
|
||||
elif ! [ -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
|
||||
export LOGTALKHOME
|
||||
|
||||
if ! [ "$LOGTALKUSER" ]; then
|
||||
echo "The environment variable LOGTALKUSER should be defined first, pointing"
|
||||
echo "to your Logtalk user directory!"
|
||||
echo "Trying the default location for the Logtalk user directory..."
|
||||
export LOGTALKUSER=$HOME/logtalk
|
||||
if [ -d "$LOGTALKUSER" ]; then
|
||||
echo "... using Logtalk user directory found at $LOGTALKUSER"
|
||||
else
|
||||
echo "... Logtalk user directory not found at default location. Creating a"
|
||||
echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
elif ! [ -d "$LOGTALKUSER" ]; then
|
||||
echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
|
||||
echo "by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
echo
|
||||
|
||||
exec ciaosh -l "$LOGTALKHOME/integration/logtalk_ciao.pl" "$@"
|
||||
61
Logtalk/integration/cxlgt.sh
Executable file
61
Logtalk/integration/cxlgt.sh
Executable file
@@ -0,0 +1,61 @@
|
||||
#/bin/sh
|
||||
|
||||
## ================================================================
|
||||
## Logtalk - Open source object-oriented logic programming language
|
||||
## Release 2.30.1
|
||||
##
|
||||
## Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
## ================================================================
|
||||
|
||||
if ! [ "$LOGTALKHOME" ]; then
|
||||
echo "The environment variable LOGTALKHOME should be defined first, pointing"
|
||||
echo "to your Logtalk installation directory!"
|
||||
echo "Trying the default locations for the Logtalk installation..."
|
||||
if [ -d "/usr/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/local/share/logtalk"
|
||||
elif [ -d "/usr/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/share/logtalk"
|
||||
elif [ -d "/opt/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/local/share/logtalk"
|
||||
elif [ -d "/opt/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/share/logtalk"
|
||||
else
|
||||
echo "... unable to locate Logtalk installation directory!"
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
echo
|
||||
elif ! [ -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
|
||||
|
||||
export LOGTALKHOME
|
||||
|
||||
if ! [ "$LOGTALKUSER" ]; then
|
||||
echo "The environment variable LOGTALKUSER should be defined first, pointing"
|
||||
echo "to your Logtalk user directory!"
|
||||
echo "Trying the default location for the Logtalk user directory..."
|
||||
export LOGTALKUSER=$HOME/logtalk
|
||||
if [ -d "$LOGTALKUSER" ]; then
|
||||
echo "... using Logtalk user directory found at $LOGTALKUSER"
|
||||
else
|
||||
echo "... Logtalk user directory not found at default location. Creating a"
|
||||
echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
elif ! [ -d "$LOGTALKUSER" ]; then
|
||||
echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
|
||||
echo "by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
echo
|
||||
|
||||
exec cxprolog --goal "silent_consult('$LOGTALKHOME/integration/logtalk_cx.pl')" "$@"
|
||||
60
Logtalk/integration/eclipselgt.sh
Executable file
60
Logtalk/integration/eclipselgt.sh
Executable file
@@ -0,0 +1,60 @@
|
||||
#/bin/sh
|
||||
|
||||
## ================================================================
|
||||
## Logtalk - Open source object-oriented logic programming language
|
||||
## Release 2.30.1
|
||||
##
|
||||
## Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
## ================================================================
|
||||
|
||||
if ! [ "$LOGTALKHOME" ]; then
|
||||
echo "The environment variable LOGTALKHOME should be defined first, pointing"
|
||||
echo "to your Logtalk installation directory!"
|
||||
echo "Trying the default locations for the Logtalk installation..."
|
||||
if [ -d "/usr/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/local/share/logtalk"
|
||||
elif [ -d "/usr/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/share/logtalk"
|
||||
elif [ -d "/opt/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/local/share/logtalk"
|
||||
elif [ -d "/opt/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/share/logtalk"
|
||||
else
|
||||
echo "... unable to locate Logtalk installation directory!"
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
echo
|
||||
elif ! [ -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
|
||||
export LOGTALKHOME
|
||||
|
||||
if ! [ "$LOGTALKUSER" ]; then
|
||||
echo "The environment variable LOGTALKUSER should be defined first, pointing"
|
||||
echo "to your Logtalk user directory!"
|
||||
echo "Trying the default location for the Logtalk user directory..."
|
||||
export LOGTALKUSER=$HOME/logtalk
|
||||
if [ -d "$LOGTALKUSER" ]; then
|
||||
echo "... using Logtalk user directory found at $LOGTALKUSER"
|
||||
else
|
||||
echo "... Logtalk user directory not found at default location. Creating a"
|
||||
echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
elif ! [ -d "$LOGTALKUSER" ]; then
|
||||
echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
|
||||
echo "by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
echo
|
||||
|
||||
exec eclipse -b "$LOGTALKHOME/integration/logtalk_eclipse.pl" "$@"
|
||||
60
Logtalk/integration/gplgt.sh
Executable file
60
Logtalk/integration/gplgt.sh
Executable file
@@ -0,0 +1,60 @@
|
||||
#/bin/sh
|
||||
|
||||
## ================================================================
|
||||
## Logtalk - Open source object-oriented logic programming language
|
||||
## Release 2.30.1
|
||||
##
|
||||
## Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
## ================================================================
|
||||
|
||||
if ! [ "$LOGTALKHOME" ]; then
|
||||
echo "The environment variable LOGTALKHOME should be defined first, pointing"
|
||||
echo "to your Logtalk installation directory!"
|
||||
echo "Trying the default locations for the Logtalk installation..."
|
||||
if [ -d "/usr/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/local/share/logtalk"
|
||||
elif [ -d "/usr/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/share/logtalk"
|
||||
elif [ -d "/opt/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/local/share/logtalk"
|
||||
elif [ -d "/opt/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/share/logtalk"
|
||||
else
|
||||
echo "... unable to locate Logtalk installation directory!"
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
echo
|
||||
elif ! [ -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
|
||||
export LOGTALKHOME
|
||||
|
||||
if ! [ "$LOGTALKUSER" ]; then
|
||||
echo "The environment variable LOGTALKUSER should be defined first, pointing"
|
||||
echo "to your Logtalk user directory!"
|
||||
echo "Trying the default location for the Logtalk user directory..."
|
||||
export LOGTALKUSER=$HOME/logtalk
|
||||
if [ -d "$LOGTALKUSER" ]; then
|
||||
echo "... using Logtalk user directory found at $LOGTALKUSER"
|
||||
else
|
||||
echo "... Logtalk user directory not found at default location. Creating a"
|
||||
echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
elif ! [ -d "$LOGTALKUSER" ]; then
|
||||
echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
|
||||
echo "by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
echo
|
||||
|
||||
exec gprolog --init-goal "['$LOGTALKUSER/configs/gnu.config','$LOGTALKHOME/integration/logtalk_gp.pl','$LOGTALKUSER/libpaths/libpaths.pl']" "$@"
|
||||
15
Logtalk/integration/logtalk_bp.pl
Normal file
15
Logtalk/integration/logtalk_bp.pl
Normal file
@@ -0,0 +1,15 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- set_prolog_flag(redefined, off).
|
||||
:- cl('$LOGTALKUSER/configs/b.config').
|
||||
:- cl('$LOGTALKHOME/compiler/logtalk.pl').
|
||||
:- cl('$LOGTALKUSER/libpaths/libpaths.pl').
|
||||
17
Logtalk/integration/logtalk_bp_win.pl
Normal file
17
Logtalk/integration/logtalk_bp_win.pl
Normal file
@@ -0,0 +1,17 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- set_prolog_flag(redefined, off).
|
||||
:- cl('$LOGTALKUSER/configs/b.config').
|
||||
%:- system('del %LOGTALKUSER%\\configs\\b.config.out').
|
||||
:- (expand_environment('$LOGTALKHOME/compiler/logtalk.pl.out', Expanded), exists(Expanded) -> load('$LOGTALKHOME/compiler/logtalk.pl'); cl('$LOGTALKHOME/compiler/logtalk.pl')).
|
||||
:- cl('$LOGTALKUSER/libpaths/libpaths.pl').
|
||||
%:- system('del %LOGTALKUSER%\\libpaths\\libpaths.pl.out').
|
||||
22
Logtalk/integration/logtalk_ciao.pl
Normal file
22
Logtalk/integration/logtalk_ciao.pl
Normal file
@@ -0,0 +1,22 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- ensure_loaded('$LOGTALKUSER/configs/ciao_aux.config').
|
||||
:- set_prolog_flag(multi_arity_warnings, off).
|
||||
:- ensure_loaded('$LOGTALKHOME/compiler/logtalk.pl').
|
||||
:- ensure_loaded('$LOGTALKUSER/libpaths/libpaths.pl').
|
||||
:- op(600, xfy, ::).
|
||||
:- op(600, fy, ::).
|
||||
:- op(600, fy, ^^).
|
||||
:- op(200, fy, +).
|
||||
:- op(200, fy, ?).
|
||||
:- op(200, fy, @).
|
||||
:- op(200, fy, -).
|
||||
15
Logtalk/integration/logtalk_comp_eclipse.pl
Normal file
15
Logtalk/integration/logtalk_comp_eclipse.pl
Normal file
@@ -0,0 +1,15 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- pragma(system).
|
||||
:- pragma(nodebug).
|
||||
:- ensure_loaded(library(toplevel)).
|
||||
:- include('$LOGTALKHOME/compiler/logtalk.pl').
|
||||
22
Logtalk/integration/logtalk_comp_swi.pl
Normal file
22
Logtalk/integration/logtalk_comp_swi.pl
Normal file
@@ -0,0 +1,22 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- set_prolog_flag(iso, true).
|
||||
:- set_prolog_flag(generate_debug_info, false).
|
||||
:- system_module.
|
||||
:- op(600, xfy, ::).
|
||||
:- op(600, fy, ::).
|
||||
:- op(600, fy, ^^).
|
||||
:- op(200, fy, +).
|
||||
:- op(200, fy, ?).
|
||||
:- op(200, fy, @).
|
||||
:- op(200, fy, -).
|
||||
:- include('../compiler/logtalk.pl').
|
||||
15
Logtalk/integration/logtalk_cx.pl
Normal file
15
Logtalk/integration/logtalk_cx.pl
Normal file
@@ -0,0 +1,15 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- set_prolog_flag(file_name_variables, true).
|
||||
:- silent_consult('$LOGTALKUSER/configs/cx.config').
|
||||
:- silent_consult('$LOGTALKHOME/compiler/logtalk.pl').
|
||||
:- silent_consult('$LOGTALKUSER/libpaths/libpaths.pl').
|
||||
14
Logtalk/integration/logtalk_eclipse.pl
Normal file
14
Logtalk/integration/logtalk_eclipse.pl
Normal file
@@ -0,0 +1,14 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- compile('$LOGTALKUSER/configs/eclipseiso.config').
|
||||
:- compile('$LOGTALKHOME/integration/logtalk_comp_eclipse.pl').
|
||||
:- compile('$LOGTALKUSER/libpaths/libpaths.pl').
|
||||
13
Logtalk/integration/logtalk_gp.pl
Normal file
13
Logtalk/integration/logtalk_gp.pl
Normal file
@@ -0,0 +1,13 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- built_in.
|
||||
:- include('$LOGTALKHOME/compiler/logtalk.pl').
|
||||
14
Logtalk/integration/logtalk_plc.pl
Normal file
14
Logtalk/integration/logtalk_plc.pl
Normal file
@@ -0,0 +1,14 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- consult('$LOGTALKUSER/configs/k.config').
|
||||
:- consult('$LOGTALKHOME/compiler/logtalk.pl').
|
||||
:- consult('$LOGTALKUSER/libpaths/libpaths.pl').
|
||||
14
Logtalk/integration/logtalk_sicstus3.pl
Normal file
14
Logtalk/integration/logtalk_sicstus3.pl
Normal file
@@ -0,0 +1,14 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- compile('$LOGTALKUSER/configs/sicstus.config').
|
||||
:- compile('$LOGTALKHOME/compiler/logtalk.pl').
|
||||
:- compile('$LOGTALKUSER/libpaths/libpaths.pl').
|
||||
22
Logtalk/integration/logtalk_sicstus4.pl
Normal file
22
Logtalk/integration/logtalk_sicstus4.pl
Normal file
@@ -0,0 +1,22 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- compile('$LOGTALKUSER/configs/sicstus4.config').
|
||||
:- asserta((
|
||||
user:goal_expansion(CallWitArgs, Layout, _, Call, Layout) :-
|
||||
CallWitArgs =.. [call_with_args| Args],
|
||||
Call =.. [call| Args])).
|
||||
:- compile('$LOGTALKHOME/compiler/logtalk.pl').
|
||||
:- retract((
|
||||
user:goal_expansion(CallWitArgs, Layout, _, Call, Layout) :-
|
||||
CallWitArgs =.. [call_with_args| Args],
|
||||
Call =.. [call| Args])).
|
||||
:- compile('$LOGTALKUSER/libpaths/libpaths.pl').
|
||||
16
Logtalk/integration/logtalk_swi.pl
Normal file
16
Logtalk/integration/logtalk_swi.pl
Normal file
@@ -0,0 +1,16 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- consult('$LOGTALKUSER/configs/swi.config').
|
||||
:- consult('$LOGTALKHOME/integration/logtalk_comp_swi.pl').
|
||||
:- consult('$LOGTALKUSER/libpaths/libpaths.pl').
|
||||
:- consult('$LOGTALKUSER/configs/swihook.pl').
|
||||
:- consult('$LOGTALKUSER/configs/xpcehook.pl').
|
||||
15
Logtalk/integration/logtalk_xsb.pl
Normal file
15
Logtalk/integration/logtalk_xsb.pl
Normal file
@@ -0,0 +1,15 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- reconsult('$LOGTALKUSER/configs/xsb.pl').
|
||||
:- reconsult('$LOGTALKHOME/compiler/logtalk.pl').
|
||||
:- reconsult('$LOGTALKUSER/libpaths/libpaths_no_env_var.pl').
|
||||
:- path_sysop(chdir, '~').
|
||||
14
Logtalk/integration/logtalk_yap.pl
Normal file
14
Logtalk/integration/logtalk_yap.pl
Normal file
@@ -0,0 +1,14 @@
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Open source object-oriented logic programming language
|
||||
% Release 2.30.1
|
||||
%
|
||||
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
:- reconsult('$LOGTALKUSER/configs/yap.config').
|
||||
:- reconsult('$LOGTALKHOME/compiler/logtalk.pl').
|
||||
:- reconsult('$LOGTALKUSER/libpaths/libpaths.pl').
|
||||
60
Logtalk/integration/plclgt.sh
Executable file
60
Logtalk/integration/plclgt.sh
Executable file
@@ -0,0 +1,60 @@
|
||||
#/bin/sh
|
||||
|
||||
## ================================================================
|
||||
## Logtalk - Open source object-oriented logic programming language
|
||||
## Release 2.30.1
|
||||
##
|
||||
## Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
## ================================================================
|
||||
|
||||
if ! [ "$LOGTALKHOME" ]; then
|
||||
echo "The environment variable LOGTALKHOME should be defined first, pointing"
|
||||
echo "to your Logtalk installation directory!"
|
||||
echo "Trying the default locations for the Logtalk installation..."
|
||||
if [ -d "/usr/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/local/share/logtalk"
|
||||
elif [ -d "/usr/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/share/logtalk"
|
||||
elif [ -d "/opt/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/local/share/logtalk"
|
||||
elif [ -d "/opt/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/share/logtalk"
|
||||
else
|
||||
echo "... unable to locate Logtalk installation directory!"
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
echo
|
||||
elif ! [ -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
|
||||
export LOGTALKHOME
|
||||
|
||||
if ! [ "$LOGTALKUSER" ]; then
|
||||
echo "The environment variable LOGTALKUSER should be defined first, pointing"
|
||||
echo "to your Logtalk user directory!"
|
||||
echo "Trying the default location for the Logtalk user directory..."
|
||||
export LOGTALKUSER=$HOME/logtalk
|
||||
if [ -d "$LOGTALKUSER" ]; then
|
||||
echo "... using Logtalk user directory found at $LOGTALKUSER"
|
||||
else
|
||||
echo "... Logtalk user directory not found at default location. Creating a"
|
||||
echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
elif ! [ -d "$LOGTALKUSER" ]; then
|
||||
echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
|
||||
echo "by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
echo
|
||||
|
||||
exec "$PLC"/plc -h 2048k -l 1024k -g 2048k -e "(consult('$LOGTALKHOME/integration/logtalk_plc.pl'), '\$root')." "$@"
|
||||
64
Logtalk/integration/sicstuslgt.sh
Executable file
64
Logtalk/integration/sicstuslgt.sh
Executable file
@@ -0,0 +1,64 @@
|
||||
#/bin/sh
|
||||
|
||||
## ================================================================
|
||||
## Logtalk - Open source object-oriented logic programming language
|
||||
## Release 2.30.1
|
||||
##
|
||||
## Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
## ================================================================
|
||||
|
||||
if ! [ "$LOGTALKHOME" ]; then
|
||||
echo "The environment variable LOGTALKHOME should be defined first, pointing"
|
||||
echo "to your Logtalk installation directory!"
|
||||
echo "Trying the default locations for the Logtalk installation..."
|
||||
if [ -d "/usr/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/local/share/logtalk"
|
||||
elif [ -d "/usr/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/share/logtalk"
|
||||
elif [ -d "/opt/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/local/share/logtalk"
|
||||
elif [ -d "/opt/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/share/logtalk"
|
||||
else
|
||||
echo "... unable to locate Logtalk installation directory!"
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
echo
|
||||
elif ! [ -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
|
||||
export LOGTALKHOME
|
||||
|
||||
if ! [ "$LOGTALKUSER" ]; then
|
||||
echo "The environment variable LOGTALKUSER should be defined first, pointing"
|
||||
echo "to your Logtalk user directory!"
|
||||
echo "Trying the default location for the Logtalk user directory..."
|
||||
export LOGTALKUSER=$HOME/logtalk
|
||||
if [ -d "$LOGTALKUSER" ]; then
|
||||
echo "... using Logtalk user directory found at $LOGTALKUSER"
|
||||
else
|
||||
echo "... Logtalk user directory not found at default location. Creating a"
|
||||
echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
elif ! [ -d "$LOGTALKUSER" ]; then
|
||||
echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
|
||||
echo "by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
echo
|
||||
|
||||
if sicstus -f --goal "halt." 2>&1 | grep "SICStus 4" 2>&1 >/dev/null; then
|
||||
exec sicstus -l "$LOGTALKHOME/integration/logtalk_sicstus4.pl" "$@"
|
||||
else
|
||||
exec sicstus -l "$LOGTALKHOME/integration/logtalk_sicstus3.pl" "$@"
|
||||
fi
|
||||
68
Logtalk/integration/swilgt.sh
Executable file
68
Logtalk/integration/swilgt.sh
Executable file
@@ -0,0 +1,68 @@
|
||||
#/bin/sh
|
||||
|
||||
## ================================================================
|
||||
## Logtalk - Open source object-oriented logic programming language
|
||||
## Release 2.30.1
|
||||
##
|
||||
## Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
## ================================================================
|
||||
|
||||
if ! [ "$LOGTALKHOME" ]; then
|
||||
echo "The environment variable LOGTALKHOME should be defined first, pointing"
|
||||
echo "to your Logtalk installation directory!"
|
||||
echo "Trying the default locations for the Logtalk installation..."
|
||||
if [ -d "/usr/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/local/share/logtalk"
|
||||
elif [ -d "/usr/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/share/logtalk"
|
||||
elif [ -d "/opt/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/local/share/logtalk"
|
||||
elif [ -d "/opt/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/share/logtalk"
|
||||
else
|
||||
echo "... unable to locate Logtalk installation directory!"
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
echo
|
||||
elif ! [ -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
|
||||
export LOGTALKHOME
|
||||
|
||||
if ! [ "$LOGTALKUSER" ]; then
|
||||
echo "The environment variable LOGTALKUSER should be defined first, pointing"
|
||||
echo "to your Logtalk user directory!"
|
||||
echo "Trying the default location for the Logtalk user directory..."
|
||||
export LOGTALKUSER=$HOME/logtalk
|
||||
if [ -d "$LOGTALKUSER" ]; then
|
||||
echo "... using Logtalk user directory found at $LOGTALKUSER"
|
||||
else
|
||||
echo "... Logtalk user directory not found at default location. Creating a"
|
||||
echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
elif ! [ -d "$LOGTALKUSER" ]; then
|
||||
echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
|
||||
echo "by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
echo
|
||||
|
||||
if pl -t halt 2>&1 | grep "SWI-Prolog"; then
|
||||
exec pl -f "$LOGTALKHOME/integration/logtalk_swi.pl" "$@"
|
||||
elif swipl -t halt 2>&1 | grep "SWI-Prolog"; then
|
||||
exec swipl -f "$LOGTALKHOME/integration/logtalk_swi.pl" "$@"
|
||||
else case $( uname -s ) in
|
||||
Darwin ) exec swipl -f "$LOGTALKHOME/integration/logtalk_swi.pl" "$@";;
|
||||
* ) exec pl -f "$LOGTALKHOME/integration/logtalk_swi.pl" "$@";;
|
||||
esac
|
||||
fi
|
||||
64
Logtalk/integration/xsblgt.sh
Executable file
64
Logtalk/integration/xsblgt.sh
Executable file
@@ -0,0 +1,64 @@
|
||||
#/bin/sh
|
||||
|
||||
## ================================================================
|
||||
## Logtalk - Open source object-oriented logic programming language
|
||||
## Release 2.30.1
|
||||
##
|
||||
## Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
## ================================================================
|
||||
|
||||
if ! [ "$LOGTALKHOME" ]; then
|
||||
echo "The environment variable LOGTALKHOME should be defined first, pointing"
|
||||
echo "to your Logtalk installation directory!"
|
||||
echo "Trying the default locations for the Logtalk installation..."
|
||||
if [ -d "/usr/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/local/share/logtalk"
|
||||
elif [ -d "/usr/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/share/logtalk"
|
||||
elif [ -d "/opt/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/local/share/logtalk"
|
||||
elif [ -d "/opt/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/share/logtalk"
|
||||
else
|
||||
echo "... unable to locate Logtalk installation directory!"
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
echo
|
||||
elif ! [ -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
|
||||
export LOGTALKHOME
|
||||
|
||||
if ! [ "$LOGTALKUSER" ]; then
|
||||
echo "The environment variable LOGTALKUSER should be defined first, pointing"
|
||||
echo "to your Logtalk user directory!"
|
||||
echo "Trying the default location for the Logtalk user directory..."
|
||||
export LOGTALKUSER=$HOME/logtalk
|
||||
if [ -d "$LOGTALKUSER" ]; then
|
||||
echo "... using Logtalk user directory found at $LOGTALKUSER"
|
||||
else
|
||||
echo "... Logtalk user directory not found at default location. Creating a"
|
||||
echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
elif ! [ -d "$LOGTALKUSER" ]; then
|
||||
echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
|
||||
echo "by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
echo
|
||||
|
||||
if xsb -v 2>&1 | grep "CVS" 2>&1 >/dev/null; then
|
||||
exec xsb -l -e "['$LOGTALKUSER/configs/xsbcvs.pl', '$LOGTALKHOME/compiler/logtalk.pl', '$LOGTALKUSER/libpaths/libpaths.pl']." "$@"
|
||||
else
|
||||
exec xsb -l -e "['$LOGTALKUSER/configs/xsb.pl', '$LOGTALKHOME/compiler/logtalk.pl', '$LOGTALKUSER/libpaths/libpaths_no_env_var.pl']." "$@"
|
||||
fi
|
||||
60
Logtalk/integration/yaplgt.sh
Executable file
60
Logtalk/integration/yaplgt.sh
Executable file
@@ -0,0 +1,60 @@
|
||||
#/bin/sh
|
||||
|
||||
## ================================================================
|
||||
## Logtalk - Open source object-oriented logic programming language
|
||||
## Release 2.30.1
|
||||
##
|
||||
## Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||||
## ================================================================
|
||||
|
||||
if ! [ "$LOGTALKHOME" ]; then
|
||||
echo "The environment variable LOGTALKHOME should be defined first, pointing"
|
||||
echo "to your Logtalk installation directory!"
|
||||
echo "Trying the default locations for the Logtalk installation..."
|
||||
if [ -d "/usr/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/local/share/logtalk"
|
||||
elif [ -d "/usr/share/logtalk" ]; then
|
||||
LOGTALKHOME=/usr/share/logtalk
|
||||
echo "... using Logtalk installation found at /usr/share/logtalk"
|
||||
elif [ -d "/opt/local/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/local/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/local/share/logtalk"
|
||||
elif [ -d "/opt/share/logtalk" ]; then
|
||||
LOGTALKHOME=/opt/share/logtalk
|
||||
echo "... using Logtalk installation found at /opt/share/logtalk"
|
||||
else
|
||||
echo "... unable to locate Logtalk installation directory!"
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
echo
|
||||
elif ! [ -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
|
||||
export LOGTALKHOME
|
||||
|
||||
if ! [ "$LOGTALKUSER" ]; then
|
||||
echo "The environment variable LOGTALKUSER should be defined first, pointing"
|
||||
echo "to your Logtalk user directory!"
|
||||
echo "Trying the default location for the Logtalk user directory..."
|
||||
export LOGTALKUSER=$HOME/logtalk
|
||||
if [ -d "$LOGTALKUSER" ]; then
|
||||
echo "... using Logtalk user directory found at $LOGTALKUSER"
|
||||
else
|
||||
echo "... Logtalk user directory not found at default location. Creating a"
|
||||
echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
elif ! [ -d "$LOGTALKUSER" ]; then
|
||||
echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
|
||||
echo "by running the \"cplgtdirs\" shell script:"
|
||||
cplgtdirs
|
||||
fi
|
||||
echo
|
||||
|
||||
exec yap -s 49152 -h 16384 -t 1024 -l "$LOGTALKHOME/integration/logtalk_yap.pl" "$@"
|
||||
Reference in New Issue
Block a user