mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-03 23:03:54 +02:00
156 lines
3.3 KiB
ObjectPascal
156 lines
3.3 KiB
ObjectPascal
{
|
|
*****************************************************************************
|
|
This file is part of LazUtils.
|
|
|
|
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
|
for details about the license.
|
|
*****************************************************************************
|
|
}
|
|
unit LazSysUtils;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
function NowUTC: TDateTime;
|
|
function GetTickCount64: QWord;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF Windows}
|
|
Windows,
|
|
{$ELSE}
|
|
{$IFnDEF HASAMIGA}
|
|
Unix, BaseUnix,
|
|
{$If defined(Linux) and (FPC_FULLVERSION<30000)}
|
|
Linux,
|
|
{$EndIf}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
Classes;
|
|
|
|
{$IF FPC_FULLVERSION>=30000}
|
|
function GetTickCount64: QWord;
|
|
begin
|
|
Result := SysUtils.GetTickCount64;
|
|
end;
|
|
{$ENDIF}
|
|
|
|
// ToDo: Move the code to 1 include file per platform
|
|
{$IFDEF WINDOWS}
|
|
function NowUTC: TDateTime;
|
|
var
|
|
SystemTime: TSystemTime;
|
|
begin
|
|
windows.GetSystemTime(SystemTime{%H-});
|
|
result := systemTimeToDateTime(SystemTime);
|
|
end;
|
|
|
|
{$IF FPC_FULLVERSION<30000}
|
|
function GetTickCount64: QWord;
|
|
begin
|
|
// GetTickCount64 is better, but we need to check the Windows version to use it
|
|
Result := Windows.GetTickCount();
|
|
end;
|
|
{$ENDIF FPC_FULLVERSION}
|
|
|
|
{$ELSE WINDOWS}
|
|
{$IFDEF UNIX}
|
|
Const
|
|
{Date Translation}
|
|
C1970=2440588;
|
|
D0 = 1461;
|
|
D1 = 146097;
|
|
D2 =1721119;
|
|
|
|
Procedure JulianToGregorian(JulianDN:LongInt;out Year,Month,Day:Word);
|
|
Var
|
|
YYear,XYear,Temp,TempMonth : LongInt;
|
|
Begin
|
|
Temp:=((JulianDN-D2) shl 2)-1;
|
|
JulianDN:=Temp Div D1;
|
|
XYear:=(Temp Mod D1) or 3;
|
|
YYear:=(XYear Div D0);
|
|
Temp:=((((XYear mod D0)+4) shr 2)*5)-3;
|
|
Day:=((Temp Mod 153)+5) Div 5;
|
|
TempMonth:=Temp Div 153;
|
|
If TempMonth>=10 Then
|
|
Begin
|
|
inc(YYear);
|
|
dec(TempMonth,12);
|
|
End;
|
|
inc(TempMonth,3);
|
|
Month := TempMonth;
|
|
Year:=YYear+(JulianDN*100);
|
|
end;
|
|
|
|
Procedure EpochToLocal(epoch:longint;out year,month,day,hour,minute,second:Word);
|
|
{
|
|
Transforms Epoch time into local time (hour, minute,seconds)
|
|
}
|
|
Var
|
|
DateNum: LongInt;
|
|
Begin
|
|
Datenum:=(Epoch Div 86400) + c1970;
|
|
JulianToGregorian(DateNum,Year,Month,day);
|
|
Epoch:=Abs(Epoch Mod 86400);
|
|
Hour:=Epoch Div 3600;
|
|
Epoch:=Epoch Mod 3600;
|
|
Minute:=Epoch Div 60;
|
|
Second:=Epoch Mod 60;
|
|
End;
|
|
|
|
function NowUTC: TDateTime;
|
|
var
|
|
tz:timeval;
|
|
SystemTime: TSystemTime;
|
|
begin
|
|
fpgettimeofday(@tz,nil);
|
|
EpochToLocal(tz.tv_sec,SystemTime.year,SystemTime.month,SystemTime.day,SystemTime.hour,SystemTime.Minute,SystemTime.Second);
|
|
SystemTime.MilliSecond:=tz.tv_usec div 1000;
|
|
result := systemTimeToDateTime(SystemTime);
|
|
end;
|
|
|
|
{$IF FPC_FULLVERSION<30000}
|
|
{$IF defined(Linux) and not defined(GetTickCountTimeOfDay)}
|
|
function GetTickCount64: QWord;
|
|
var
|
|
tp: timespec;
|
|
begin
|
|
clock_gettime(CLOCK_MONOTONIC, @tp); // exists since Linux Kernel 2.6
|
|
Result := (Int64(tp.tv_sec) * 1000) + (tp.tv_nsec div 1000000);
|
|
end;
|
|
{$ELSE}
|
|
function GetTickCount64: QWord;
|
|
var
|
|
tp: TTimeVal;
|
|
begin
|
|
fpgettimeofday(@tp, nil);
|
|
Result := (Int64(tp.tv_sec) * 1000) + (tp.tv_usec div 1000);
|
|
end;
|
|
{$ENDIF}
|
|
{$ENDIF FPC_FULLVERSION}
|
|
|
|
{$ELSE UNIX}
|
|
// Not Windows and not UNIX, so just write the most trivial code until we have something better:
|
|
function NowUTC: TDateTime;
|
|
begin
|
|
Result := Now;
|
|
end;
|
|
|
|
{$IF FPC_FULLVERSION<30000}
|
|
function GetTickCount64: QWord;
|
|
begin
|
|
Result := Trunc(Now * 24 * 60 * 60 * 1000);
|
|
end;
|
|
{$ENDIF FPC_FULLVERSION}
|
|
{$ENDIF UNIX}
|
|
{$ENDIF WINDOWS}
|
|
|
|
end.
|
|
|