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

Logtalk 2.30.2 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1908 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2007-06-24 13:27:35 +00:00
parent 628bcbeeb6
commit 9fc2c47d53
261 changed files with 675 additions and 1035 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
library/logtalk/logtalk.pl
View File

@@ -2,7 +2,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Open source object-oriented logic programming language
% Release 2.30.1
% Release 2.30.2
%
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
%
@@ -1581,7 +1581,7 @@ current_logtalk_flag(Flag, Value) :-
'$lgt_default_flag'(Flag, Value),
\+ '$lgt_current_flag_'(Flag, _).
current_logtalk_flag(version, version(2, 30, 1)).
current_logtalk_flag(version, version(2, 30, 2)).
@@ -4323,10 +4323,10 @@ current_logtalk_flag(version, version(2, 30, 1)).
% the operator table, and reports the compilation error found
'$lgt_compiler_error_handler'(Input, Output, Error) :-
'$lgt_report_compiler_error'(Input, Error),
'$lgt_clean_pp_clauses',
'$lgt_restore_global_op_table',
'$lgt_reset_warnings_counter',
'$lgt_report_compiler_error'(Input, Error),
catch(close(Input), _, true),
catch(close(Output), _, true),
throw(Error).
@@ -4339,10 +4339,10 @@ current_logtalk_flag(version, version(2, 30, 1)).
% the operator table, and reports the compilation error found
'$lgt_compiler_error_handler'(Stream, Error) :-
'$lgt_report_compiler_error'(Stream, Error),
'$lgt_clean_pp_clauses',
'$lgt_restore_global_op_table',
'$lgt_reset_warnings_counter',
'$lgt_report_compiler_error'(Stream, Error),
catch(close(Stream), _, true),
throw(Error).
@@ -4353,10 +4353,11 @@ current_logtalk_flag(version, version(2, 30, 1)).
% restores the operator table, and reports the compilation error found
'$lgt_compiler_error_handler'(Error) :-
('$lgt_pp_entity'(_, _, _, _, _) -> nl; true),
write(' ERROR! '), writeq(Error), nl,
'$lgt_clean_pp_clauses',
'$lgt_restore_global_op_table',
'$lgt_reset_warnings_counter',
write(' ERROR! '), writeq(Error), nl,
throw(Error).
@@ -5300,12 +5301,14 @@ current_logtalk_flag(version, version(2, 30, 1)).
'$lgt_tr_public_directive'([Pred| Preds]) :-
'$lgt_valid_pred_ind'(Pred, Functor, Arity),
!,
\+ '$lgt_duplicated_scope_directives'(Pred, Functor, Arity),
assertz('$lgt_pp_public_'(Functor, Arity)),
'$lgt_tr_public_directive'(Preds).
'$lgt_tr_public_directive'([Pred| Preds]) :-
'$lgt_valid_gr_ind'(Pred, Functor, Arity, Arity2),
!,
\+ '$lgt_duplicated_scope_directives'(Pred, Functor, Arity2),
assertz('$lgt_pp_non_terminal_'(Functor, Arity, Arity2)),
assertz('$lgt_pp_public_'(Functor, Arity2)),
'$lgt_tr_public_directive'(Preds).
@@ -5329,12 +5332,14 @@ current_logtalk_flag(version, version(2, 30, 1)).
'$lgt_tr_protected_directive'([Pred| Preds]) :-
'$lgt_valid_pred_ind'(Pred, Functor, Arity),
!,
\+ '$lgt_duplicated_scope_directives'(Pred, Functor, Arity),
assertz('$lgt_pp_protected_'(Functor, Arity)),
'$lgt_tr_protected_directive'(Preds).
'$lgt_tr_protected_directive'([Pred| Preds]) :-
'$lgt_valid_gr_ind'(Pred, Functor, Arity, Arity2),
!,
\+ '$lgt_duplicated_scope_directives'(Pred, Functor, Arity2),
assertz('$lgt_pp_non_terminal_'(Functor, Arity, Arity2)),
assertz('$lgt_pp_protected_'(Functor, Arity2)),
'$lgt_tr_protected_directive'(Preds).
@@ -5358,12 +5363,14 @@ current_logtalk_flag(version, version(2, 30, 1)).
'$lgt_tr_private_directive'([Pred| Preds]) :-
'$lgt_valid_pred_ind'(Pred, Functor, Arity),
!,
\+ '$lgt_duplicated_scope_directives'(Pred, Functor, Arity),
assertz('$lgt_pp_private_'(Functor, Arity)),
'$lgt_tr_private_directive'(Preds).
'$lgt_tr_private_directive'([Pred| Preds]) :-
'$lgt_valid_gr_ind'(Pred, Functor, Arity, Arity2),
!,
\+ '$lgt_duplicated_scope_directives'(Pred, Functor, Arity2),
assertz('$lgt_pp_non_terminal_'(Functor, Arity, Arity2)),
assertz('$lgt_pp_private_'(Functor, Arity2)),
'$lgt_tr_private_directive'(Preds).
@@ -5373,6 +5380,15 @@ current_logtalk_flag(version, version(2, 30, 1)).
'$lgt_duplicated_scope_directives'(Pred, Functor, Arity) :-
( '$lgt_pp_public_'(Functor, Arity)
; '$lgt_pp_protected_'(Functor, Arity)
; '$lgt_pp_private_'(Functor, Arity)
),
throw(permission_error(modify, predicate_interpretation, Pred)).
'$lgt_tr_dynamic_directive'([]).
'$lgt_tr_dynamic_directive'([Pred| _]) :-
@@ -6677,7 +6693,10 @@ current_logtalk_flag(version, version(2, 30, 1)).
'$lgt_tr_body'(this(This), true, '$lgt_dbg_goal'(this(Temp), This=Temp, DbgCtx), Ctx) :-
!,
'$lgt_ctx_this'(Ctx, This),
( '$lgt_ctx_this'(Ctx, This) -> % check for mismatches between the argument of
true % this/1 and the parametric object identifier
; throw(domain_error(object_identifier, This))
),
'$lgt_ctx_dbg_ctx'(Ctx, DbgCtx).
'$lgt_tr_body'(self(Self), true, '$lgt_dbg_goal'(self(Temp), Self=Temp, DbgCtx), Ctx) :-
@@ -12234,8 +12253,11 @@ current_logtalk_flag(version, version(2, 30, 1)).
( current_thread(logtalk_dispatcher, running) ->
% ask the Logtalk dispatcher to create a new thread for proving the goal:
thread_send_message(logtalk_dispatcher, '$lgt_goal'(Queue, Goal, This, Self, Option)),
% wait until the thread created for proving goal is ready before proceeding:
thread_get_message(Queue, '$lgt_ready'(Goal, This, Self, Option))
( Option == ignore ->
true
; % wait until the thread created for proving the goal is ready before proceeding:
thread_get_message(Queue, '$lgt_ready'(Goal, This, Self, Option))
)
; % something went terrible wrong with the dispatcher thread:
throw(error(existence_error(logtalk_dispatcher, This), Goal, Sender))
).

2
library/logtalk/yap.config
View File

@@ -1,7 +1,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Open source object-oriented logic programming language
% Release 2.30.1
% Release 2.30.2
%
% configuration file for YAP Prolog 4.3.23 and later versions
%