Logtalk 2.20.0 files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1114 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

Logtalk/examples/polygons/NOTES

@@ -1,6 +1,6 @@
 =================================================================
 Logtalk - Object oriented extension to Prolog
-Release 2.19.1
+Release 2.20.0
 
 Copyright (c) 1998-2004 Paulo Moura.  All Rights Reserved.
 =================================================================

Logtalk/examples/polygons/SCRIPT

@@ -1,6 +1,6 @@
 =================================================================
 Logtalk - Object oriented extension to Prolog
-Release 2.19.1
+Release 2.20.0
 
 Copyright (c) 1998-2004 Paulo Moura.  All Rights Reserved.
 =================================================================

Logtalk/examples/polygons/concentric.lgt

@@ -4,13 +4,14 @@
 
 
 	:- info([
-		version is 1.0,
-		date is 1998/3/23,
+		version is 1.1,
+		date is 2004/8/15,
 		author is 'Paulo Moura',
 		comment is 'Concentric polygons as a constrained binary relation.']).
 
 
-	:- uses(list).
+	:- uses(list,
+		[member/2, select/3]).
 
 
 	descriptor_([x1, x2]).
@@ -33,7 +34,7 @@
 
 	add_tuple([Polygon| Polygons]) :-
 		Polygon::position(X, Y),
-		forall(list::member(Polygon2, Polygons), {Polygon2::move(X, Y)}),
+		forall(member(Polygon2, Polygons), {Polygon2::move(X, Y)}),
 		^^add_tuple([Polygon| Polygons]).
 
 
@@ -45,24 +46,24 @@
 
 
 	propagate(after, move(X, Y), Polygon, _, Tuple) :-
-		list::select(Polygon, Tuple, Polygons),
+		select(Polygon, Tuple, Polygons),
 		!,
 		forall(
-			(list::member(Polygon2, Polygons),\+ Polygon2::position(X, Y)),
+			(member(Polygon2, Polygons),\+ Polygon2::position(X, Y)),
 			{Polygon2::move(X, Y)}).
 
 	propagate(after, transX(X), Polygon, _, Tuple) :-
-		list::select(Polygon, Tuple, Polygons),
+		select(Polygon, Tuple, Polygons),
 		!,
 		forall(
-			(list::member(Polygon2, Polygons), \+ Polygon2::position(X, _)),
+			(member(Polygon2, Polygons), \+ Polygon2::position(X, _)),
 			{Polygon2::transX(X)}).
 
 	propagate(after, transY(Y), Polygon, _, Tuple) :-
-		list::select(Polygon, Tuple, Polygons),
+		select(Polygon, Tuple, Polygons),
 		!,
 		forall(
-			(list::member(Polygon2, Polygons), \+ Polygon2::position(_, Y)),
+			(member(Polygon2, Polygons), \+ Polygon2::position(_, Y)),
 			{Polygon2::transY(Y)}).
 
 

Logtalk/examples/polygons/polygon.lgt

@@ -11,9 +11,6 @@
 		comment is 'Polygon predicates.']).
 
 
-	:- uses(list).
-
-
 	:- public(move/2).
 	:- mode(move(+integer, +integer), one).