Logtalk 2.23.1 files.

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

Logtalk/examples/benchmarks/database.lgt

@@ -0,0 +1,40 @@
+
+
+:- object(database).
+
+	:- public(db_test_this/0, db_test_self/0, db_test_obj/0).
+
+	:- private(pred_this/0, pred_self/0, pred_obj/0).
+	:- dynamic(pred_this/0, pred_self/0, pred_obj/0).
+
+	db_test_this :-
+		{repeat(100)},
+			assertz(pred_this),
+		fail.
+	db_test_this :-
+		retract(pred_this),
+		fail.
+	db_test_this.
+
+	db_test_self :-
+		{repeat(100)},
+			::assertz(pred_self),
+		fail.
+	db_test_self :-
+		::retract(pred_self),
+		fail.
+	db_test_self.
+
+
+	db_test_obj :-
+		this(This),
+		{repeat(100)},
+			This::assertz(pred_obj),
+		fail.
+	db_test_obj :-
+		this(This),
+		This::retract(pred_obj),
+		fail.
+	db_test_obj.
+
+:- end_object.