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

small

Browse Source
This commit is contained in:
Vitor Santos Costa 2018-02-20 22:59:17 +00:00
parent e93c01f8e0
commit 3e71d171e7
9 changed files with 47 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/jpl/jpl.pl
View File

@ -4470,7 +4470,7 @@ add_search_path(Path, Dir) :-
% =CLASSPATH=, etc. % =CLASSPATH=, etc.
search_path_separator((;)) :- search_path_separator((;)) :-
current_prolog_flag(windows, true), !. current_prolog_flag(windo/.... ,,,,,,,,,,,,,,,,,, :l'p[KIO)_"?ws, true), !.
search_path_separator(:). search_path_separator(:).
/******************************* /*******************************
@ -4506,7 +4506,7 @@ location(java_root, _, JRE) :-
member(Root, [ '/usr/lib', member(Root, [ '/usr/lib',
'/usr/local/lib', '/usr/local/lib',
'/opt/lib', '/opt/lib',
'/Library/Java/JavaVirtualMachines', '/Library/Java/JavaVirtual hines',
'/System/Library/Frameworks' '/System/Library/Frameworks'
]), ]),
exists_directory(Root), exists_directory(Root),

2
packages/python/py2pl.c
View File

@ -150,7 +150,7 @@ foreign_t python_to_term(PyObject *pVal, term_t t) {
for (i = 0; i < sz; i++) { for (i = 0; i < sz; i++) {
PyObject *obj; PyObject *obj;
rc = rc && PL_unify_list(t, to, t); rc = rc && PL_unify_list(t, to, t);
if ((obj = PyList_GetItem(pVal, i - 1)) == NULL) { if ((obj = PyList_GetItem(pVal, i)) == NULL) {
obj = Py_None; obj = Py_None;
} }
rc = rc && python_to_term(obj, to); rc = rc && python_to_term(obj, to);

2
pl/boot.yap
View File

@ -212,7 +212,7 @@ print_message(L,E) :-
'$yap_strip_module'(C, EM, EG), '$yap_strip_module'(C, EM, EG),
'$execute_command'(EG,EM,VL,Pos,Con,C), ! ; '$execute_command'(EG,EM,VL,Pos,Con,C), ! ;
% do term expansion % do term expansion
'$expand_term'(C, EC), '$expand_term'(C, Con, EC),
'$yap_strip_module'(EC, EM, EG), '$yap_strip_module'(EC, EM, EG),
% execute a list of commands % execute a list of commands
'$execute_commands'(EG,EM,VL,Pos,Con,_Source), '$execute_commands'(EG,EM,VL,Pos,Con,_Source),

9
pl/grammar.yap
View File

@ -67,7 +67,6 @@ right hand side of a grammar rule
Grammar related built-in predicates: Grammar related built-in predicates:
*/ */
/*
:- system_module( '$_grammar', [!/2, :- system_module( '$_grammar', [!/2,
(',')/4, (',')/4,
(->)/4, (->)/4,
@ -81,7 +80,7 @@ Grammar related built-in predicates:
phrase/3, phrase/3,
{}/3, {}/3,
('|')/4], ['$do_error'/2]). ('|')/4], ['$do_error'/2]).
*/
% :- meta_predicate ^(?,0,?). % :- meta_predicate ^(?,0,?).
% ^(Xs, Goal, Xs) :- call(Goal). % ^(Xs, Goal, Xs) :- call(Goal).
@ -121,7 +120,7 @@ t_hgoal(V, _, _, _, G0) :- var(V), !,
t_hgoal(M:H, M:NH, S, SR, G0) :- !, t_hgoal(M:H, M:NH, S, SR, G0) :- !,
t_hgoal(H, NH, S, SR, G0). t_hgoal(H, NH, S, SR, G0).
t_hgoal(H, NH, S, SR, _) :- t_hgoal(H, NH, S, SR, _) :-
extend([S,SR],H,NH). dcg_extend([S,SR],H,NH).
t_hlist(V, _, _, _, G0) :- var(V), !, t_hlist(V, _, _, _, G0) :- var(V), !,
'$do_error'(instantiation_error,G0). '$do_error'(instantiation_error,G0).
@ -174,10 +173,10 @@ t_body((T|R), _ToFill, _, S, SR, (Tt;Rt)) :- !,
t_body(M:G, ToFill, Last, S, SR, M:NG) :- !, t_body(M:G, ToFill, Last, S, SR, M:NG) :- !,
t_body(G, ToFill, Last, S, SR, NG). t_body(G, ToFill, Last, S, SR, NG).
t_body(T, filled_in, _, S, SR, Tt) :- t_body(T, filled_in, _, S, SR, Tt) :-
extend([S,SR], T, Tt). dcg_extend([S,SR], T, Tt).
extend(More, OldT, NewT) :- dcg_extend(More, OldT, NewT) :-
OldT =.. OldL, OldT =.. OldL,
lists:append(OldL, More, NewL), lists:append(OldL, More, NewL),
NewT =.. NewL. NewT =.. NewL.

8
pl/load_foreign.yap
View File

@ -98,7 +98,13 @@ load_foreign_files(Objs,Libs,Entry) :-
Loads object files produced by the C compiler. It is useful when no search should be performed and instead one has the full paths to the _Files_ and _Libs_. Loads object files produced by the C compiler. It is useful when no search should be performed and instead one has the full paths to the _Files_ and _Libs_.
*/ */
load_absolute_foreign_files(_Objs,_Libs,_Entry). load_absolute_foreign_files(Objs,Libs,Entry) :-
source_module(M),
'$load_foreign_files'(Objs,Libs,Entry),
!,
prolog_load_context(file, F),
ignore( recordzifnot( '$load_foreign_done', [F, M], _) ).
'$checklib_prefix'(F,F) :- is_absolute_file_name(F), !. '$checklib_prefix'(F,F) :- is_absolute_file_name(F), !.
'$checklib_prefix'(F, F) :- '$checklib_prefix'(F, F) :-
sub_atom(F, 0, _, _, lib), !. sub_atom(F, 0, _, _, lib), !.

4
pl/meta.yap
View File

@ -591,8 +591,8 @@ meta_predicate(P) :-
spy(:), spy(:),
stash_predicate(:), stash_predicate(:),
use_module(:), use_module(:),
use_module(:,?), use_module(:,+),
use_module(?,:,?), use_module(?,:,+),
when(+,0), when(+,0),
with_mutex(+,0), with_mutex(+,0),
with_output_to(?,0), with_output_to(?,0),

13
pl/top.yap
View File

@ -231,14 +231,21 @@ current_prolog_flag(break_level, BreakLevel),
'$continue_with_command'(Option, VL, Pos, M:G, Source). '$continue_with_command'(Option, VL, Pos, M:G, Source).
'$expand_term'(T,O) :- '$expand_term'(T,O) :-
catch( '$expand_term0'(T,O), _,( '$disable_debugging', fail) ), '$expand_term'(T,top,O).
'$expand_term'(T,Con,O) :-
catch( '$expand_term0'(T,Con,O), _,( '$disable_debugging', fail) ),
!. !.
'$expand_term0'(T,O) :- '$expand_term0'(T,consult,O) :-
expand_term( T, O).
'$expand_term0'(T,reconsult,O) :-
expand_term( T, O).
'$expand_term0'(T,top,O) :-
expand_term( T, T1), expand_term( T, T1),
!, !,
'$expand_term1'(T1,O). '$expand_term1'(T1,O).
'$expand_term0'(T,T). '$expand_term0'(T,_,T).
'$expand_term1'(T,O) :- '$expand_term1'(T,O) :-
'$expand_meta_call'(T, [], O), '$expand_meta_call'(T, [], O),

4
swi/library/debug.pl
View File

@ -116,8 +116,8 @@ debugging(Topic) :-
debugging(Topic, Bool) :- debugging(Topic, Bool) :-
debugging(Topic, Bool, _To). debugging(Topic, Bool, _To).
%% debug(+Topic) is det. %% @pred debug(+Topic) is det.
%% nodebug(+Topic) is det. %% @pred nodebug(+Topic) is det.
% %
% Add/remove a topic from being printed. nodebug(_) removes all % Add/remove a topic from being printed. nodebug(_) removes all
% topics. Gives a warning if the topic is not defined unless it is % topics. Gives a warning if the topic is not defined unless it is

15
swi/library/prolog_xref.pl
View File

@ -55,9 +55,7 @@
:- use_module(library(lists), [append/3, member/2]). :- use_module(library(lists), [append/3, member/2]).
:- use_module(library(operators), :- use_module(library(operators),
[pop_operators/0, push_op/3, push_operators/1]). [pop_operators/0, push_op/3, push_operators/1]).
:- if(current_prolog_flag(dialect, swi)).
:- use_module(library(shlib), [current_foreign_library/2]). :- use_module(library(shlib), [current_foreign_library/2]).
:- endif.
:- use_module(library(prolog_source)). :- use_module(library(prolog_source)).
:- use_module(library(option)). :- use_module(library(option)).
:- use_module(library(error)). :- use_module(library(error)).
@ -121,12 +119,12 @@ called_by(on_signal(_,_,New), [New+1]) :-
:- expects_dialect(swi). :- expects_dialect(swi).
:- if(current_prolog_flag(dialect, swi)). % :- if(current_prolog_flag(dialect, swi)).
system_predicate(Goal) :- % system_predicate(Goal) :-
functor(Goal, Name, Arity), % functor(Goal, Name, Arity),
current_predicate(system:Name/Arity), % avoid autoloading % current_predicate(system:Name/Arity), % avoid autoloading
predicate_property(system:Goal, built_in), !. % predicate_property(system:Goal, built_in), !.
:-endif. % :-endif.
/******************************** /********************************
* TOPLEVEL * * TOPLEVEL *
@ -1452,4 +1450,3 @@ do_xref_source_file(Spec, File, Options) :-
access(read), access(read),
file_errors(fail) file_errors(fail)
], File), !. ], File), !.