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/math_constants.lgt

@@ -0,0 +1,26 @@
+
+:- object(math_constants).
+
+
+	:- info([
+		authors is 'Paulo Moura',
+		version is 1.0,
+		date is 2000/4/22,
+		comment is 'Implements predicates for retriving common mathematical constants.']).
+
+
+	:- public(pi/1).
+	:- mode(pi(-float), one).
+
+	:- public(e/1).
+	:- mode(e(-float), one).
+
+
+	pi(Pi) :-
+		Pi is 4.0*atan(1.0).
+
+	e(E) :-
+		E is exp(1.0).
+
+
+:- end_object.