Include Paulo Moura's Logtalk OO LP system

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

Logtalk/examples/points/SCRIPT

@@ -0,0 +1,81 @@
+=================================================================
+Logtalk - Object oriented extension to Prolog
+Release 2.8.4
+
+Copyright (c) 1998-2001 Paulo Moura.  All Rights Reserved.
+=================================================================
+
+
+% let's start with a simple point:
+
+| ?- point::new(Point,[position-(1, 3)]), Point::(print, move(7, 4), print).
+
+p1 @ (1, 3)
+p1 @ (7, 4)
+
+Point = p1 ? 
+
+yes
+
+
+% same problem but with bounds on coordinate values:
+
+| ?- bounded_point::new(Point,[position-(1, 3), bounds(x)-(0, 13), bounds(y)-(-7, 7)]), Point::(print, move(7, 4), print).
+
+bounds(x) : 0,13
+bounds(y) : -7,7
+bp2 @ (1, 3)
+bounds(x) : 0,13
+bounds(y) : -7,7
+bp2 @ (7, 4)
+
+Point = bp2 ? 
+
+yes
+
+
+% same problem but storing the history of coordinate values:
+
+| ?- history_point::new(Point,[position-(1, 3)]), Point::(print, move(7, 4), print).
+
+location history: []
+hp3 @ (1, 3)
+location history: [(1,3)]
+hp3 @ (7, 4)
+
+Point = hp3 ? 
+
+yes
+
+
+% same problem but with bounds on coordinate values and storing past values:
+
+| ?- bounded_history_point::new(Point,[position-(1, 3), bounds(x)-(0, 13), bounds(y)-(-7, 7)]), Point::(print, move(7, 4), print).
+
+bounds(x) : 0,13
+bounds(y) : -7,7
+location history: []
+bhp4 @ (1, 3)
+bounds(x) : 0,13
+bounds(y) : -7,7
+location history: [(1,3)]
+bhp4 @ (7, 4)
+
+Point = bhp4 ? 
+
+yes
+
+
+% clean up instances:
+
+| ?- point::delete_all.
+yes
+
+| ?- bounded_point::delete_all.
+yes
+
+| ?- history_point::delete_all.
+yes
+
+| ?- bounded_history_point::delete_all.
+yes