mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 20:09:27 +02:00
* provide possibility of reusing the routine from system WideStringManager for retrieval of current codepage on non-Windows and non-Unix
git-svn-id: trunk@29623 -
This commit is contained in:
parent
329f788f58
commit
09e6069024
@ -785,18 +785,26 @@ begin
|
||||
DefaultUnicodeCodePage:=CP_UTF16;
|
||||
{$ifdef MSWINDOWS}
|
||||
DefaultSystemCodePage:=GetACP();
|
||||
{$endif MSWINDOWS}
|
||||
{$ifdef UNIX}
|
||||
{$ELSE MSWINDOWS}
|
||||
{$ifdef UNIX}
|
||||
DefaultSystemCodePage:=GetSystemCodepage;
|
||||
if (DefaultSystemCodePage = CP_NONE) then
|
||||
DefaultSystemCodePage:=CP_UTF8;
|
||||
{$ifdef FPCRTL_FILESYSTEM_UTF8}
|
||||
{$ifdef FPCRTL_FILESYSTEM_UTF8}
|
||||
DefaultFileSystemCodePage:=CP_UTF8;
|
||||
{$else}
|
||||
{$else}
|
||||
DefaultFileSystemCodePage:=DefaultSystemCodepage;
|
||||
{$endif}
|
||||
{$endif}
|
||||
DefaultRTLFileSystemCodePage:=DefaultFileSystemCodePage;
|
||||
{$endif UNIX}
|
||||
{$ELSE UNIX}
|
||||
if Assigned (WideStringManager.GetStandardCodePageProc) then
|
||||
DefaultSystemCodePage := WideStringManager.GetStandardCodePageProc (scpAnsi)
|
||||
else
|
||||
DefaultSystemCodePage := CP_NONE;
|
||||
DefaultFileSystemCodePage := DefaultSystemCodePage;
|
||||
DefaultRTLFileSystemCodePage := DefaultSystemCodePage;
|
||||
{$endif UNIX}
|
||||
{$endif MSWINDOWS}
|
||||
end;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user