Logtalk 2.15.0 release files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@757 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2003-02-05 00:15:28 +00:00
parent c060e91cfc
commit 75392e54c7
266 changed files with 1479 additions and 617 deletions
--- a/Logtalk/examples/shapes/ch/square.lgt
+++ b/Logtalk/examples/shapes/ch/square.lgt
@@ -0,0 +1,21 @@
+:- object(square,
+    instantiates(class),
+    specializes(regular_polygon)).
+
+
+	:- info([
+		author is 'Paulo Moura',
+		version is 1.0,
+		date is 2003/2/3,
+		comment is 'Geometric square.']).
+
+
+	nsides(4).
+
+
+	area(Area) :-
+		::side(Side),
+		Area is Side*Side.
+
+
+:- end_object.