Logtalk 2.26.2 files.

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

Logtalk/examples/mi/space.lgt

@@ -1,28 +0,0 @@
-
-:- object(space). 
-
-
-	:- public(xyz/3).
-	:- mode(xyz(?integer, ?integer, ?integer), zero_or_one).
-
-	:- private(xyz_/3).
-	:- mode(xyz_(?integer, ?integer, ?integer), zero_or_one).
-	:- dynamic(xyz_/3).
-
-	:- public(rotate/3).
-	:- mode(rotate(+integer, +integer, +integer), zero_or_one).
-
-
-	xyz(X, Y, Z) :-
-		::xyz_(X, Y, Z).
-
-
-	rotate(X, Y, Z) :-
-		integer(X),
-		integer(Y),
-		integer(Z),
-		::retractall(xyz_(_, _, _)),
-		::assertz(xyz_(X, Y, Z)).
-
-
-:- end_object.

Logtalk/examples/mi/space3.lgt

@@ -1,16 +0,0 @@
-
-:- object(space(_X,_Y,_Z)). 
-
-
-	:- public(distance/1).
-	:- mode(xyz(?nunber), one).
-
-
-	distance(Distance) :-
-		parameter(1, X),
-		parameter(2, Y),
-		parameter(3, Z),
-		Distance is sqrt(X*X+Y*Y+Z*Z).
-
-
-:- end_object.

Logtalk/examples/mi/space_time.lgt

@@ -1,15 +0,0 @@
-
-:- object(space_time,
-	extends(space, time)). 
-
-
-	:- public(xyzt/4).
-	:- mode(xyzt(?integer, ?integer, ?integer, ?integer), zero_or_one).
-
-
-	xyzt(X, Y, Z, T) :-
-		::xyz(X, Y, Z),
-		::t(T).
-
-
-:- end_object.

Logtalk/examples/mi/space_time4.lgt

@@ -1,6 +0,0 @@
-
-:- object(space_time(X, Y, Z, T),
-	extends(space(X, Y, Z), time(T))). 
-
-
-:- end_object.

Logtalk/examples/mi/time.lgt

@@ -1,26 +0,0 @@
-
-:- object(time). 
-
-
-	:- public(t/1).
-	:- mode(t(?integer), zero_or_one).
-	
-	:- private(t_/1).
-	:- mode(t_(?integer), zero_or_one).
-	:- dynamic(t_/1).
-
-	:- public(translate/1).
-	:- mode(translate(+integer), zero_or_one).
-
-
-	t(T) :-
-		::t_(T).
-
-
-	translate(T) :-
-		integer(T),
-		::retractall(t_(_)),
-		::assertz(t_(T)).
-
-
-:- end_object.

Logtalk/examples/mi/time1.lgt

@@ -1,13 +0,0 @@
-
-:- object(time(_T)). 
-
-
-	:- public(time/1).
-	:- mode(time(?integer), zero_or_one).
-	
-
-	time(Time) :-
-		parameter(1, Time).
-
-
-:- end_object.