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/sicstus/rational.lgt

@@ -0,0 +1,37 @@
+
+:- object(rational,
+	implements(comparingp)).
+
+
+	:- info([
+		authors is 'Paulo Moura',
+		version is 1.0,
+		date is 2000/4/22,
+		comment is 'Implements comparison between rational numbers represented as Num/Den.']).
+
+
+	N1/D1 < N2/D2 :-
+		{N1*D2 < N2*D1}.
+
+
+	N1/D1 =< N2/D2 :-
+		{N1*D2 =< N2*D1}.
+
+
+	N1/D1 > N2/D2 :-
+		{N1*D2 > N2*D1}.
+
+
+	N1/D1 >= N2/D2 :-
+		{N1*D2 >= N2*D1}.
+
+
+	N1/D1 =:= N2/D2 :-
+		{N1*D2 =:= N2*D1}.
+
+
+	N1/D1 =\= N2/D2 :-
+		{N1*D2 =\= N2*D1}.
+
+
+:- end_object.