Logtalk 2.9.2 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@278 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -1,8 +1,8 @@
|
||||
=================================================================
|
||||
Logtalk - Object oriented extension to Prolog
|
||||
Release 2.9.1
|
||||
Release 2.9.2
|
||||
|
||||
Copyright (c) 1998-2001 Paulo Moura. All Rights Reserved.
|
||||
Copyright (c) 1998-2002 Paulo Moura. All Rights Reserved.
|
||||
=================================================================
|
||||
|
||||
To load all objects in this example consult the inheritance.loader utility
|
||||
|
@@ -1,8 +1,8 @@
|
||||
=================================================================
|
||||
Logtalk - Object oriented extension to Prolog
|
||||
Release 2.9.1
|
||||
Release 2.9.2
|
||||
|
||||
Copyright (c) 1998-2001 Paulo Moura. All Rights Reserved.
|
||||
Copyright (c) 1998-2002 Paulo Moura. All Rights Reserved.
|
||||
=================================================================
|
||||
|
||||
|
||||
|
@@ -10,13 +10,13 @@
|
||||
forall(
|
||||
(::current_predicate(Functor/Arity),
|
||||
functor(Pred, Functor, Arity)),
|
||||
(::predicate_property(Pred, Prop), scope(Prop),
|
||||
(::predicate_property(Pred, Prop), scope_property(Prop),
|
||||
writeq(Functor/Arity), write(' - '), writeq(Prop), nl)).
|
||||
|
||||
|
||||
scope(public).
|
||||
scope(protected).
|
||||
scope(private).
|
||||
scope_property(public).
|
||||
scope_property(protected).
|
||||
scope_property(private).
|
||||
|
||||
|
||||
:- end_category.
|
||||
|
Reference in New Issue
Block a user