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

* remove dos dependency

Browse Source 
git-svn-id: trunk@9897 -
This commit is contained in:
peter 2008-01-24 20:53:26 +00:00
parent 309106e9f1
commit 53d90218af
1 changed files with 7 additions and 4 deletions

11
packages/fcl-base/src/inc/gettext.pp
View File

@ -79,7 +79,10 @@ type
implementation
uses {$ifdef win32} windows, {$endif}dos;
{$ifdef Windows}
uses
windows;
{$endif}
constructor TMOFile.Create(AStream: TStream);
@ -256,13 +259,13 @@ end;
procedure GetLanguageIDs(var Lang, FallbackLang: string);
begin
lang := GetEnv('LC_ALL');
lang := GetEnvironmentVariable('LC_ALL');
if Length(lang) = 0 then
begin
lang := GetEnv('LC_MESSAGES');
lang := GetEnvironmentVariable('LC_MESSAGES');
if Length(lang) = 0 then
begin
lang := GetEnv('LANG');
lang := GetEnvironmentVariable('LANG');
if Length(lang) = 0 then
exit; // no language defined via environment variables
end;