diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Logtalk 2.29.1 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1746 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2006-12-29 09:48:32 +00:00
parent c79a7a5bdb
commit 23fb55aa62
2 changed files with 1034 additions and 631 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1650
library/logtalk/logtalk.pl
View File

File diff suppressed because it is too large Load Diff

15
library/logtalk/yap.config
View File

@ -1,11 +1,11 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Object oriented extension to Prolog
% Release 2.28.2
% Release 2.29.1
%
% configuration file for YAP Prolog 4.3.23 and later versions
%
% last updated: September 23, 2006
% last updated: December 19, 2006
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@ -44,6 +44,7 @@
dynamic('$lgt_obj_lookup_cache_'/4), hide_predicate('$lgt_obj_lookup_cache_'/4),
dynamic('$lgt_self_lookup_cache_'/4), hide_predicate('$lgt_self_lookup_cache_'/4),
dynamic('$lgt_super_lookup_cache_'/5), hide_predicate('$lgt_super_lookup_cache_'/5),
dynamic('$lgt_db_lookup_cache_'/6), hide_predicate('$lgt_db_lookup_cache_'/6),
dynamic('$lgt_pp_warnings_top_argument_'/1), hide_predicate('$lgt_pp_warnings_top_argument_'/1),
dynamic('$lgt_pp_comp_warnings_counter_'/1), hide_predicate('$lgt_pp_comp_warnings_counter_'/1),
dynamic('$lgt_pp_load_warnings_counter_'/1), hide_predicate('$lgt_pp_load_warnings_counter_'/1)
@ -232,7 +233,7 @@ forall(Generate, Test) :-
'$lgt_default_flag'(debug, off).
'$lgt_default_flag'(supports_break_predicate, true).
'$lgt_default_flag'(events, on).
'$lgt_default_flag'(events, off).
'$lgt_default_flag'(altdirs, off).
@ -478,13 +479,17 @@ forall(Generate, Test) :-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% getting line number from stream position
% getting stream current line number
% (needed for improved compiler error messages)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'$lgt_stream_position_to_line_number'('$stream_position'(_, Line, _), Line).
% '$lgt_stream_current_line_number'(@stream, -integer)
'$lgt_stream_current_line_number'(Stream, Line) :-
stream_property(Stream, position('$stream_position'(_, Last, _))),
Line is Last + 1.