paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Now time zone also works on SuSE and RedHat

Browse Source
This commit is contained in:
michael 1999-12-04 13:50:43 +00:00
parent d3006fcd99
commit b3f5bf1766
1 changed files with 31 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
rtl/linux/timezone.inc
View File

@ -224,23 +224,39 @@ begin
fdclose(f);
end;
Const
// Debian system; contains location of timezone file.
TimeZoneLocationFile = '/etc/timezone';
// SuSE has link in /usr/lib/zoneinfo/localtime to /etc/localtime
// RedHat uses /etc/localtime
TimeZoneFile = '/usr/lib/zoneinfo/localtime';
AltTimeZoneFile = '/etc/localtime';
function GetTimezoneFile:string;
var
f,len : longint;
s : string;
info : stat;
begin
GetTimezoneFile:='';
f:=fdopen('/etc/timezone',Open_RdOnly);
if f=0 then
exit;
len:=fdread(f,s[1],high(s));
s[0]:=chr(len);
len:=pos(#10,s);
if len<>0 then
s[0]:=chr(len-1);
fdclose(f);
GetTimezoneFile:=s;
f:=fdopen(TimeZoneLocationFile,Open_RdOnly);
if f>0 then
begin
len:=fdread(f,s[1],high(s));
s[0]:=chr(len);
len:=pos(#10,s);
if len<>0 then
s[0]:=chr(len-1);
fdclose(f);
GetTimezoneFile:=s;
end
// Try SuSE
else if fstat(TimeZoneFile,info) then
GetTimeZoneFile:=TimeZoneFile
// Try RedHat
else If fstat(AltTimeZoneFile,Info) then
GetTimeZoneFile:=AltTimeZoneFile;
end;
@ -270,7 +286,10 @@ end;
{
$Log$
Revision 1.2 1999-12-02 11:25:31 peter
Revision 1.3 1999-12-04 13:50:43 michael
+ Now time zone also works on SuSE and RedHat
Revision 1.2 1999/12/02 11:25:31 peter
* timezone.inc dep for linux.ppu
* fixed sigsegvs with wrong timezone settigns