% module:   date.pl
% date:     November 20, 2005
% author:   Douglas M. Auclair (DMA)

% Copyright (c) 2005, Cotillion Group, Inc. All rights reserved.

% synopsis: compatibility module for imports using SWI-prolog for
%			Quintus development

:- module(date, [time_stamp/2]).

time_stamp(_FormatAtom, DateAtom) :-
%    As we are working for the unit_test_case_generator module,
%    we already know what the _FormatAtom is, so, in effect,
%    we don't care what it is ...
  date(date(Yr, Mos, Dy)),
  month(Mos, Month),
  concat_atom([Month, ' ', Dy, ', ', Yr], DateAtom).

% it appears that SWI-prolog doesn't have a month conversion utility
% what a pity.

month(1,  'January').
month(2,  'February').
month(3,  'March').
month(4,  'April').
month(5,  'May').
month(6,  'June').
month(7,  'July').
month(8,  'August').
month(9,  'September').
month(10, 'October').
month(11, 'November').
month(12, 'December').