yap-6.3/Logtalk/examples/classvars/SCRIPT

=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.17.1

Copyright (c) 1998-2004 Paulo Moura.  All Rights Reserved.
=================================================================


% get the value of the class variable for each instance:

| ?- instance1::cv(Value1), instance2::cv(Value2), instance3::cv(Value3).

Value1 = 0
Value2 = 0
Value3 = 0
yes


% change the value of the class variable via instance1:

| ?- instance1::set_cv(1).

yes


% get the value of the class variable for the other instances:

| ?- instance2::cv(Value2), instance3::cv(Value3).

Value2 = 1
Value3 = 1
yes