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

Logtalk 2.28.2 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1712 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2006-11-07 18:11:49 +00:00
parent 36a326908c
commit 2d7ccc1278
168 changed files with 3143 additions and 1018 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Logtalk/examples/parametric/NOTES → Logtalk/examples/parametric/NOTES.txt
View File

@@ -1,6 +1,6 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.27.1
Release 2.28.2
Copyright (c) 1998-2006 Paulo Moura. All Rights Reserved.
=================================================================
@@ -8,5 +8,5 @@ Copyright (c) 1998-2006 Paulo Moura. All Rights Reserved.
To load this example and for sample queries, please see the SCRIPT file.
This folder contains three examples of parametric objects, the first two
dealing with time and date values and the third one representing rectangles.
This folder contains some examples of parametric objects, dealing with
lists, time and date values, and rectangles.

36
Logtalk/examples/parametric/SCRIPT → Logtalk/examples/parametric/SCRIPT.txt
View File

@@ -1,6 +1,6 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.27.1
Release 2.28.2
Copyright (c) 1998-2006 Paulo Moura. All Rights Reserved.
=================================================================
@@ -12,6 +12,30 @@ Copyright (c) 1998-2006 Paulo Moura. All Rights Reserved.
...
% some queries using the list parametric object:
| ?- [1, 2, 3]::member(X).
X = 1 ;
X = 2 ;
X = 3 ;
no
| ?- [1, 2, 3]::last(X).
X = 3
yes
| ?- [1, 2, 3]::nextto(2, Y).
Y = 3
yes
| ?- []::member(X)
no
% some queries using the time and date parametric objects:
| ?- date(Year, Month, Day)::today.
@@ -19,14 +43,12 @@ Copyright (c) 1998-2006 Paulo Moura. All Rights Reserved.
Year = 2000
Month = 8
Day = 15
Yes
yes
| ?- date(Year, _, _)::(today, \+ leap_year).
Year = 2002
yes
@@ -35,8 +57,7 @@ yes
Hours = 13
Mins = 52
Secs = 42
Yes
yes
| ?- R = rectangle(W, H, X, Y), R::init, R::move(3, 4, NR), NR::position(X2, Y2).
@@ -49,5 +70,4 @@ Y = 0
NR = rectangle(2, 1, 3, 4)
X2 = 3
Y2 = 4
Yes
yes