% MINERVA (c) IF Computer  1996,97
% http://www.ifcomputer.com/MINERVA   mailto:support@ifcomputer.com

:- package(date).

main(_Applet,_Args) :- today.
main(_Args) :- today.

today :-
	write('Today: '), flush_output,
	create_date(DateObject),
	date_getYear(DateObject,Year),
	date_getMonth(DateObject,JavaMonth), Month is JavaMonth + 1,
	date_getDate(DateObject,Date),
	println([Year,'/',Month,'/',Date]),
	println(['Done...']).

% wallSeconds(-WallSeconds)  <- seconds of today
wallSeconds(WallSeconds)  :-
	create_date(DateObject),
	/*
	date_getDate(DateObject,Date),
	date_getYear(DateObject,Year),
	date_getMonth(DateObject,Month),
	date_getDay(DateObject,Day),
	*/
	date_getHours(DateObject,Hours),
	date_getMinutes(DateObject,Minutes),
	date_getSeconds(DateObject,Seconds),
	WallSeconds is Seconds + Minutes * 60 + Hours * 60 * 60,
	!.