blob: 489c4010cc0f45b1ec1a3f071e68b85d50f6e837 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
// Macros, translated.
procedure TIMEVAL_TO_TIMESPEC(const tv: TTimeVal; var ts: TTimeSpec);
procedure TIMESPEC_TO_TIMEVAL(var tv: TTimeVal; const ts: TTimeSpec);
var
tz_dsttime : longint;cvar;public;
Type
timezone = record
tz_minuteswest: Integer;
tz_dsttime: Integer;
end;
ptimezone = ^timezone;
P__timezone_ptr_t = ^__timezone_ptr_t;
__timezone_ptr_t = ^timezone;
function gettimeofday(__tv:Ptimeval; __tz:__timezone_ptr_t):longint;cdecl;external clib name 'gettimeofday';
function settimeofday(__tv:Ptimeval; __tz:Ptimezone):longint;cdecl;external clib name 'settimeofday';
function adjtime(__delta:Ptimeval; __olddelta:Ptimeval):longint;cdecl;external clib name 'adjtime';
Type
__itimer_which = (
ITIMER_REAL := 0,
ITIMER_VIRTUAL := 1,
ITIMER_PROF := 2
);
Pitimerval = ^itimerval;
itimerval = record
it_interval : timeval;
it_value : timeval;
end;
P__itimer_which_t = ^__itimer_which_t;
__itimer_which_t = __itimer_which;
function getitimer(__which:__itimer_which_t; __value:Pitimerval):longint;cdecl;external clib name 'getitimer';
function setitimer(__which:__itimer_which_t; __new:Pitimerval; __old:Pitimerval):longint;cdecl;external clib name 'setitimer';
function utimes(__file:Pchar; __tvp: Ptimeval):longint;cdecl;external clib name 'utimes';
// Macros, translated.
function timerisset(const Value: TTimeVal): Boolean;
procedure timerclear(var Value: TTimeVal);
function __timercmp(const a, b: TTimeVal): Integer;
function timeradd(const a, b: TTimeVal): TTimeVal;
function timersub(const a, b: TTimeVal): TTimeVal;
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
type
TTimeZone = timezone;
TAccessModificationTimes = record
AccessTime: TTimeVal;
ModificationTime: TTimeVal;
end;
PAccessModificationTimes = ^TAccessModificationTimes;
TIntervalTimerValue = itimerval;
PIntervalTimerValue = ^TIntervalTimerValue;
function utimes(__file: PChar; const AccessModTimes: TAccessModificationTimes):longint;cdecl;external clib name 'utimes';
function gettimeofday(var __tv:timeval; __tz:__timezone_ptr_t):longint;cdecl;external clib name 'gettimeofday';
function gettimeofday(var __tv:timeval; var _tz:timezone):longint;cdecl;external clib name 'gettimeofday';
function settimeofday(const __tv: timeval; __tz:Ptimezone):longint;cdecl;external clib name 'settimeofday';
function settimeofday(const __tv: timeval; const __tz:timezone):longint;cdecl;external clib name 'settimeofday';
function adjtime(const __delta: timeval; var __olddelta:timeval):longint;cdecl;external clib name 'adjtime';
function adjtime(const __delta: timeval; __olddelta:ptimeval):longint;cdecl;external clib name 'adjtime';
|
