3455276aa2
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1487 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
65 lines
896 B
Plaintext
65 lines
896 B
Plaintext
|
|
:- object(misspell).
|
|
|
|
% misspelt call to Prolog built-in predicate
|
|
output(A) :-
|
|
writr(A).
|
|
|
|
:- end_object.
|
|
|
|
|
|
|
|
% singleton variables in opening object directive
|
|
:- object(singletons(L)).
|
|
|
|
% singleton variables in predicate clause
|
|
predicate(A) :-
|
|
write(C).
|
|
|
|
:- end_object.
|
|
|
|
|
|
|
|
:- object(plredef).
|
|
|
|
% redefinition of a Prolog built-in predicate
|
|
write(_).
|
|
|
|
:- end_object.
|
|
|
|
|
|
|
|
:- object(lgtredef).
|
|
|
|
% redefinition of Logtalk built-in predicate
|
|
current_object(_).
|
|
|
|
:- end_object.
|
|
|
|
|
|
|
|
% references to unknown entities in object opening directive
|
|
|
|
:- object(unknownrefs,
|
|
implements(protocol),
|
|
imports(category),
|
|
extends(object)).
|
|
|
|
|
|
:- end_object.
|
|
|
|
|
|
|
|
:- object(portability).
|
|
|
|
:- public(predicate/0).
|
|
|
|
% clause with calls to non-ISO Prolog standard predicates
|
|
predicate :-
|
|
compare(Result, first, second),
|
|
retractall(result(Result, _)),
|
|
sort([], []),
|
|
consult(file).
|
|
|
|
:- end_object.
|