diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Logtalk 2.26.2 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1489 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2005-12-24 18:34:29 +00:00
parent 60fbc754f9
commit 6d079626af
76 changed files with 0 additions and 1648 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Logtalk/examples/lo/planner/aberdeen_air.lgt
View File

@@ -1,9 +0,0 @@
:- object(aberdeen_air,
extends(airport)).
fly(renfrew).
:- end_object.

6
Logtalk/examples/lo/planner/aiai.lgt
View File

@@ -1,6 +0,0 @@
:- object(aiai,
extends(edinburgh)).
:- end_object.

16
Logtalk/examples/lo/planner/airport.lgt
View File

@@ -1,16 +0,0 @@
:- object(airport).
:- public(fly/1).
:- mode(fly(?), zero_or_more).
:- public(airport/1).
:- mode(airport(?), zero_or_more).
airport(Airport) :-
self(Airport).
:- end_object.

6
Logtalk/examples/lo/planner/albert_hall.lgt
View File

@@ -1,6 +0,0 @@
:- object(albert_hall,
extends(london)).
:- end_object.

6
Logtalk/examples/lo/planner/castle.lgt
View File

@@ -1,6 +0,0 @@
:- object(castle,
extends(edinburgh)).
:- end_object.

30
Logtalk/examples/lo/planner/city.lgt
View File

@@ -1,30 +0,0 @@
:- object(city).
:- public(step/3).
:- mode(step(+, +, -), zero_or_more).
:- public(airport/1).
:- mode(airport(?atom), zero_or_more).
step(X, Y, P1-P-P2) :-
\+ same_city(X, Y), !,
X::airport(XA),
Y::airport(YA),
plan(fly)::from(XA, YA, P),
plan(city)::from(X, XA, P1),
plan(city)::from(YA, Y, P2).
step(X, Y, taxi(X, Y)) :-
same_city(X, Y),
X \= Y.
same_city(X, Y) :-
X::airport(A),
Y::airport(A).
:- end_object.

6
Logtalk/examples/lo/planner/edin.lgt
View File

@@ -1,6 +0,0 @@
:- object(edin,
extends(edinburgh)).
:- end_object.

9
Logtalk/examples/lo/planner/edinburgh.lgt
View File

@@ -1,9 +0,0 @@
:- object(edinburgh,
extends(city)).
airport(edin).
:- end_object.

13
Logtalk/examples/lo/planner/fly.lgt
View File

@@ -1,13 +0,0 @@
:- object(fly).
:- public(step/3).
:- mode(step(+, +, -), zero_or_more).
step(From, To, fly(From, To)) :-
From::fly(To).
:- end_object.

9
Logtalk/examples/lo/planner/glasgow.lgt
View File

@@ -1,9 +0,0 @@
:- object(glasgow,
extends(city)).
airport(renfrew).
:- end_object.

6
Logtalk/examples/lo/planner/imperial.lgt
View File

@@ -1,6 +0,0 @@
:- object(imperial,
extends(london)).
:- end_object.

10
Logtalk/examples/lo/planner/lhr.lgt
View File

@@ -1,10 +0,0 @@
:- object(lhr,
extends(airport)).
fly(edin).
fly(ringway).
:- end_object.

9
Logtalk/examples/lo/planner/london.lgt
View File

@@ -1,9 +0,0 @@
:- object(london,
extends(city)).
airport(lhr).
:- end_object.

9
Logtalk/examples/lo/planner/manchester.lgt
View File

@@ -1,9 +0,0 @@
:- object(manchester,
extends(city)).
airport(ringway).
:- end_object.

46
Logtalk/examples/lo/planner/plan1.lgt
View File

@@ -1,46 +0,0 @@
:- object(plan(_)).
:- info([
author is 'Paulo Moura',
version is 1.0,
date is 2000/4/22,
comment is 'Air-line trip planner.',
parnames is ['Mode'],
source is 'Example adopted from the Francis G. McCabe L&O documentation.']).
:- public(from/3).
:- mode(from(+atom, +atom, -list), zero_or_more).
:- info(from/3,
[comment is 'Plan a trip from Start to Destination.',
argnames is ['Start', 'Destination', 'Plan']]).
from(Start, Destination, Plan) :-
from(Start, Destination, [], Plan).
from(Start, Destination, _, [Step]) :-
parameter(1, Mode),
Mode::step(Start, Destination, Step),
!.
from(Start, Destination, Locations, [Step| Steps]) :-
parameter(1, Mode),
Mode::step(Start, City2, Step),
not_member(City2, Locations),
from(City2, Destination, [Start| Locations], Steps).
not_member(_, []).
not_member(City, [Location| Locations]) :-
City \= Location,
not_member(City, Locations).
:- end_object.

10
Logtalk/examples/lo/planner/renfrew.lgt
View File

@@ -1,10 +0,0 @@
:- object(renfrew,
extends(airport)).
fly(aberdeen_air).
fly(ringway).
:- end_object.

10
Logtalk/examples/lo/planner/ringway.lgt
View File

@@ -1,10 +0,0 @@
:- object(ringway,
extends(manchester, airport)).
fly(lhr).
fly(renfrew).
:- end_object.

6
Logtalk/examples/lo/planner/victoria.lgt
View File

@@ -1,6 +0,0 @@
:- object(victoria,
extends(manchester)).
:- end_object.