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

Logtalk 2.21.3 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1164 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2004-10-25 11:13:58 +00:00
parent 8e92ce869f
commit c3e3a72583
155 changed files with 569 additions and 219 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
library/logtalk/logtalk.pl
View File

@@ -2,7 +2,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Object oriented extension to Prolog
% Release 2.21.2
% Release 2.21.3
%
% Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
%
@@ -172,25 +172,14 @@
Obj::Pred :-
var(Obj),
throw(error(instantiation_error, Obj::Pred, user)).
Obj::Pred :-
var(Pred),
throw(error(instantiation_error, Obj::Pred, user)).
Obj::Pred :-
'$lgt_context'(Ctx, user, user, Obj, _, []),
'$lgt_tr_msg'(Pred, Obj, Call, Ctx),
(('$lgt_dbg_debugging_', '$lgt_debugging_'(Obj)) ->
catch(
'$lgt_dbg_goal'(Obj::Pred, Call, Ctx),
Error,
(Error = error(logtalk_debugger_aborted) ->
write('Debugging session aborted by user. Debugger still on.'), nl, fail
;
throw(Error)))
error(logtalk_debugger_aborted),
(write('Debugging session aborted by user. Debugger still on.'), nl, fail))
;
call(Call)).
@@ -1134,7 +1123,7 @@ current_logtalk_flag(Flag, Value) :-
'$lgt_default_flag'(Flag, Value),
\+ '$lgt_current_flag_'(Flag, _).
current_logtalk_flag(version, version(2, 21, 2)).
current_logtalk_flag(version, version(2, 21, 3)).
@@ -4475,7 +4464,7 @@ current_logtalk_flag(version, version(2, 21, 2)).
% message is not a built-in control construct or a call to a built-in
% (meta-)predicate: translation performed at runtime
'$lgt_tr_msg'(Pred, Obj, '$lgt_send_to_object'(Obj, Pred, This), Ctx) :-
'$lgt_tr_msg'(Pred, Obj, TPred, Ctx) :-
'$lgt_this'(Ctx, This),
(var(Obj) ->
TPred = '$lgt_send_to_object'(Obj, Pred, This)

15
library/logtalk/yap.config
View File

@@ -1,11 +1,11 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Object oriented extension to Prolog
% Release 2.21.2
% Release 2.21.3
%
% configuration file for YAP Prolog 4.3.23 and later versions
%
% last updated: July 17 2004
% last updated: October 22 2004
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -24,9 +24,9 @@
predicate_property(hide_predicate(_), built_in) ->
dynamic('$lgt_before_'/5), hide_predicate('$lgt_before_'/5),
dynamic('$lgt_after_'/5), hide_predicate('$lgt_after_'/5),
dynamic('$lgt_current_protocol_'/2), hide_predicate('$lgt_current_protocol_'/2),
dynamic('$lgt_current_category_'/2), hide_predicate('$lgt_current_category_'/2),
dynamic('$lgt_current_object_'/5), hide_predicate('$lgt_current_object_'/5),
dynamic('$lgt_current_protocol_'/3), hide_predicate('$lgt_current_protocol_'/3),
dynamic('$lgt_current_category_'/3), hide_predicate('$lgt_current_category_'/3),
dynamic('$lgt_current_object_'/6), hide_predicate('$lgt_current_object_'/6),
dynamic('$lgt_implements_protocol_'/3), hide_predicate('$lgt_implements_protocol_'/3),
dynamic('$lgt_imports_category_'/3), hide_predicate('$lgt_imports_category_'/3),
dynamic('$lgt_instantiates_class_'/3), hide_predicate('$lgt_instantiates_class_'/3),
@@ -34,6 +34,8 @@
dynamic('$lgt_extends_protocol_'/3), hide_predicate('$lgt_extends_protocol_'/3),
dynamic('$lgt_extends_object_'/3), hide_predicate('$lgt_extends_object_'/3),
dynamic('$lgt_debugging_'/1), hide_predicate('$lgt_debugging_'/1),
dynamic('$lgt_dbg_debugging_'/0), hide_predicate('$lgt_dbg_debugging_'/0),
dynamic('$lgt_dbg_leashing_'/1), hide_predicate('$lgt_dbg_leashing_'/1),
dynamic('$lgt_obj_lookup_cache_'/6), hide_predicate('$lgt_obj_lookup_cache_'/6),
dynamic('$lgt_self_lookup_cache_'/6), hide_predicate('$lgt_self_lookup_cache_'/6),
dynamic('$lgt_super_lookup_cache_'/6), hide_predicate('$lgt_super_lookup_cache_'/6)
@@ -382,7 +384,8 @@ forall(Generate, Test) :-
% '$lgt_cpu_time'(-Seconds)
'$lgt_cpu_time'(Seconds) :-
Seconds is cputime.
statistics(cputime, [Miliseconds, _]),
Seconds is Miliseconds/1000.