Logtalk 2.26.2 files.

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

Logtalk/examples/parametric/date3.lgt

@@ -1,57 +0,0 @@
-
-:- object(date(_Year, _Month, _Day)).
-
-
-	:- info([
-		version is 1.0,
-		author is 'Paulo Moura',
-		date is 1998/3/23,
-		comment is 'Dates as parametric objects.',
-		parnames is ['Year', 'Month', 'Day']]).
-
-
-	:- public(year/1).
-	:- mode(year(?integer), one).
-
-	:- public(month/1).
-	:- mode(month(?integer), one).
-
-	:- public(day/1).
-	:- mode(day(?integer), one).
-
-	:- public(today/0).
-	:- mode(today, one).
-
-	:- public(leap_year/0).
-	:- mode(leap_year, zero_or_one).
-
-
-	year(Year) :-
-		parameter(1, Year).
-
-
-	month(Month) :-
-		parameter(2, Month).
-
-
-	day(Day) :-
-		parameter(3, Day).
-
-
-	today :-
-		{'$lgt_current_date'(Year, Month, Day)},
-		parameter(1, Year),
-		parameter(2, Month),
-		parameter(3, Day).
-
-
-	leap_year :-
-		parameter(1, Year),
-		(0 is mod(Year, 4),
-		 0 is mod(Year, 100)
-		 ;
-		 0 is mod(Year, 400)),
-		!.
-
-
-:- end_object.

Logtalk/examples/parametric/time3.lgt

@@ -1,45 +0,0 @@
-
-:- object(time(_Hours, _Mins, _Secs)).
-
-
-	:- info([
-		version is 1.0,
-		author is 'Paulo Moura',
-		date is 1998/3/23,
-		comment is 'Time as parametric objects.',
-		parnames is ['Hours', 'Mins', 'Secs']]).
-
-
-	:- public(hours/1).
-	:- mode(hours(?integer), one).
-
-	:- public(mins/1).
-	:- mode(mins(?integer), one).
-
-	:- public(secs/1).
-	:- mode(secs(?integer), one).
-
-	:- public(now/0).
-	:- mode(now, one).
-
-
-	hours(Hours) :-
-		parameter(1, Hours).
-
-
-	mins(Mins) :-
-		parameter(2, Mins).
-
-
-	secs(Secs) :-
-		parameter(3, Secs).
-
-
-	now :-
-		{'$lgt_current_time'(Hours, Mins, Secs)},
-		parameter(1, Hours),
-		parameter(2, Mins),
-		parameter(3, Secs).
-
-
-:- end_object.