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

* Use UTF-8 as fallback code page on linux and ASCII on other unix systems.

Browse Source 
git-svn-id: trunk@23680 -
This commit is contained in:
yury 2013-03-02 09:51:05 +00:00
parent 72e81d4be8
commit 5e369ae7fc
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/unix/unixcp.pp
View File

@ -700,26 +700,30 @@ function GetSystemCodepage: TSystemCodePage;
var
p: SizeInt;
lang: ansistring;
cp: TSystemCodePage;
begin
// Get one of non-empty environment variables in the next order:
// LC_ALL, LC_CTYPE, LANG. Default is ASCII.
// LC_ALL, LC_CTYPE, LANG. Default is UTF-8 or ASCII.
{$ifdef linux}
Result:=CP_UTF8;
{$else}
Result:=CP_ASCII;
{$endif linux}
lang:=FpGetEnv('LC_ALL');
if lang='' then
lang:=FpGetEnv('LC_CTYPE');
if lang='' then
lang:=FpGetEnv('LANG');
if lang='' then
Result:=CP_ASCII
else
if lang<>'' then
begin
// clean up, for example en_US.UTF-8 => UTF-8
p:=Pos('.',lang);
if p>0 then Delete(lang,1,p);
p:=Pos('@',lang);
if p>0 then Delete(lang,p,length(lang)-p+1);
Result:=GetCodepageByName(lang);
if Result = CP_NONE then
Result:=CP_ASCII;
cp:=GetCodepageByName(lang);
if cp <> CP_NONE then
Result:=cp;
end;
end;