42aabce1bb
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1973 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
45 lines
733 B
Plaintext
45 lines
733 B
Plaintext
================================================================
|
|
Logtalk - Open source object-oriented logic programming language
|
|
Release 2.30.7
|
|
|
|
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
|
================================================================
|
|
|
|
|
|
% start by loading the example:
|
|
|
|
| ?- logtalk_load(expansion(loader)).
|
|
...
|
|
|
|
|
|
% simple tests of the expand_term/2 built-in method:
|
|
|
|
| ?- exp_public::expand_term(8, Term).
|
|
|
|
Term = eight
|
|
yes
|
|
|
|
| ?- exp_protected::expand_term(8, Term).
|
|
|
|
Term = 8
|
|
yes
|
|
|
|
| ?- exp_private::expand_term(8, Term).
|
|
|
|
Term = 8
|
|
yes
|
|
|
|
| ?- desc_public::test(8, Term).
|
|
|
|
Term = eight
|
|
yes
|
|
|
|
| ?- desc_protected::test(8, Term).
|
|
|
|
Term = eight
|
|
yes
|
|
|
|
| ?- desc_private::test(8, Term).
|
|
|
|
Term = 8
|
|
yes |