-- $Source: /home/harp/1/proto/monoBANK/winnt/win32-crt-time.ads,v $
-- $Revision: 1.2 $ $Date: 96/09/13 15:35:04 $ $Author: mg $
-- See end of file for Copyright (c) information.
with Win32.crt.Strings;
with Win32.crt.Types;
package Win32.crt.Time is
CLOCKS_PER_SEC : constant := 1000;
-- time.h:92
type clock_t is new Win32.INT; -- time.h:53
type tm; -- time.h:75
type ac_time_t is access constant win32.crt.types.time_t;
type ac_tm_t is access constant tm; -- time.h:137
type a_tm_t is access all tm; -- time.h:141
type tm is -- time.h:75
record
tm_sec : Win32.INT; -- time.h:76
tm_min : Win32.INT; -- time.h:77
tm_hour : Win32.INT; -- time.h:78
tm_mday : Win32.INT; -- time.h:79
tm_mon : Win32.INT; -- time.h:80
tm_year : Win32.INT; -- time.h:81
tm_wday : Win32.INT; -- time.h:82
tm_yday : Win32.INT; -- time.h:83
tm_isdst: Win32.INT; -- time.h:84
end record;
type TZ_Array is array(0..1) of Win32.PSTR;
-- auxiliary declarations
type AI is access Win32.INT;
function daylight_Addr return AI;
pragma Import(C, daylight_Addr, "__daylight_addr");
type AL is access Win32.LONG;
function timezone_Addr return AL;
pragma Import(C, timezone_Addr, "__timezone_addr");
type ATZ is access all TZ_Array;
function tzname_Addr return ATZ;
pragma Import(C, tzname_Addr, "__tzname_addr");
-- end of auxiliary declarations
daylight: Win32.INT renames daylight_Addr.all; -- time.h:101
-- non-zero if daylight savings time is used
timezone: Win32.LONG renames timezone_Addr.all; -- time.h:102
-- difference in seconds between GMT and local time
tzname: TZ_Array renames tzname_Addr.all; -- time.h:111
-- standard/daylight savings time zone names
function asctime(timeptr: ac_tm_t) return Win32.PSTR; -- time.h:137
function ctime(timer: ac_time_t) return Win32.PSTR; -- time.h:138
function clock return clock_t; -- time.h:139
function difftime(timer1: Win32.crt.Types.time_t;
timer0: Win32.crt.Types.time_t)
return Win32.DOUBLE; -- time.h:140
function gmtime(timer: ac_time_t) return a_tm_t; -- time.h:141
function localtime(timer: ac_time_t) return a_tm_t; -- time.h:142
function mktime(timeptr: access tm) return Win32.crt.Types.time_t;
-- time.h:143
function strftime(string1: Win32.PSTR;
maxsize: Win32.size_t;
format : Win32.PCSTR;
timeptr: ac_tm_t)
return Win32.size_t; -- time.h:144
function strdate(datestr: Win32.PSTR) return Win32.PSTR;-- time.h:145
function strtime(timestr: Win32.PSTR) return Win32.PSTR;-- time.h:146
function time(timer: access Win32.crt.Types.time_t)
return Win32.crt.Types.time_t; -- time.h:147
procedure tzset; -- time.h:151
function getsystime(p1: access tm) return Win32.UINT;
-- time.h:153
function setsystime(p1: access tm;
p2: Win32.UINT)
return Win32.UINT; -- time.h:154
private
pragma Convention(C, tm); -- time.h:75
pragma Import(C, asctime, "asctime"); -- time.h:137
pragma Import(C, ctime, "ctime"); -- time.h:138
pragma Import(C, clock, "clock"); -- time.h:139
pragma Import(C, difftime, "difftime"); -- time.h:140
pragma Import(C, gmtime, "gmtime"); -- time.h:141
pragma Import(C, localtime, "localtime"); -- time.h:142
pragma Import(C, mktime, "mktime"); -- time.h:143
pragma Import(C, strftime, "strftime"); -- time.h:144
pragma Import(C, strdate, "_strdate"); -- time.h:145
pragma Import(C, strtime, "_strtime"); -- time.h:146
pragma Import(C, time, "time"); -- time.h:147
pragma Import(C, tzset, "_tzset"); -- time.h:151
pragma Import(C, getsystime, "_getsystime"); -- time.h:153
pragma Import(C, setsystime, "_setsystime"); -- time.h:154
-------------------------------------------------------------------------------
--
-- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
-- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
-- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
-- FITNESS FOR A PARTICULAR PURPOSE. The user assumes the entire risk as to
-- the accuracy and the use of this file. This file may be used, copied,
-- modified and distributed only by licensees of Microsoft Corporation's
-- WIN32 Software Development Kit in accordance with the terms of the
-- licensee's End-User License Agreement for Microsoft Software for the
-- WIN32 Development Kit.
--
-- Copyright (c) Intermetrics, Inc. 1995
-- Portions (c) 1985-1994 Microsoft Corporation with permission.
-- Microsoft is a registered trademark and Windows and Windows NT are
-- trademarks of Microsoft Corporation.
--
-------------------------------------------------------------------------------
end Win32.crt.Time;