%   Package: time_date
%   Author : Dave Bowen
%   Updated: 30 Sep 1992
%   Purpose: Return date and time
%   SeeAlso: library(date)

%   Copyright (C) 1987,  Quintus Computer Systems, Inc.  All rights reserved.

:- module(time_date, [
	time/3,
	date/3
    ]).

sccs_id('"@(#)92/09/30 time_date.pl	66.1"').

:- write('% WARNING: library(time_date) is OBSOLETE.'), nl,
   write('%          We recommend that you use library(date) instead.'), nl.
%:- write('% library(time_date) is OBSOLETE and inconsistent with library(directory).'), nl,


% starting from 2.5, this library also uses library(date), which is more
% up to date

:- use_module(library(date), [time/3, date/3]).


%   write('% We recommend that you use library(date) instead.'), nl.

%   date(-Year, -Month, -Day)
%   time(-Hour, -Minute, -Sec)

%foreign(date,       date(-integer,-integer,-integer)).
%foreign(clock_time, time(-integer,-integer,-integer)).

%foreign_file(library(system(libpl)), [date,clock_time]).

%:- load_foreign_executable(library(system(libpl))),
%   abolish(foreign, 3),
%   abolish(foreign_file, 2).

