mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-28 10:02:14 +00:00
UPD: Optimazations for osConvEncoding unit
This commit is contained in:
Alexander Koblov
parent
9f553f295f
commit
fd8e0f1c03
2 changed files with 348 additions and 328 deletions
|
|
@ -1,164 +1,174 @@
|
|||
unit osConvEncoding;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
{en
|
||||
Convert from OEM to System encoding, if needed
|
||||
}
|
||||
function OEMToSys(Source: String): String;
|
||||
function SysToOEM(Source: String): String;
|
||||
|
||||
{en
|
||||
Convert from Ansi to System encoding, if needed
|
||||
}
|
||||
function AnsiToSys(Source: String): String;
|
||||
function SysToAnsi(Source: String): String;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
{$IF DEFINED(UNIX)}
|
||||
iconvenc_dyn
|
||||
{$ELSEIF DEFINED(MSWINDOWS)}
|
||||
Windows
|
||||
{$ENDIF}
|
||||
;
|
||||
|
||||
{$IFDEF UNIX}
|
||||
function GetSystemEncoding(out Language, Encoding: String): Boolean;
|
||||
var
|
||||
I: Integer;
|
||||
Lang: String;
|
||||
begin
|
||||
Result:= True;
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LC_ALL');
|
||||
if Length(Lang) = 0 then
|
||||
begin
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LC_MESSAGES');
|
||||
if Length(Lang) = 0 then
|
||||
begin
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LANG');
|
||||
if Length(Lang) = 0 then
|
||||
Exit(False);
|
||||
end;
|
||||
end;
|
||||
Language:= Copy(Lang, 1, 2);
|
||||
I:= System.Pos('.', Lang);
|
||||
if (I > 0) then
|
||||
Encoding:= Copy(Lang, I + 1, Length(Lang) - I);
|
||||
if Length(Encoding) = 0 then
|
||||
Encoding:= 'UTF-8';
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{ -------------------------------------------------------------------------- }
|
||||
|
||||
function OEMToSys(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
Dst: PAnsiChar;
|
||||
begin
|
||||
Result:= Source;
|
||||
Dst:= AllocMem((Length(Result) + 1) * SizeOf(AnsiChar));
|
||||
if OEMToChar(PAnsiChar(Result), Dst) then
|
||||
Result:= StrPas(Dst);
|
||||
FreeMem(Dst);
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
sError: String;
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if InitIconv(sError) then
|
||||
begin
|
||||
Iconvert(Source, Result, 'CP866', Encoding);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function SysToOEM(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
Dst: PAnsiChar;
|
||||
begin
|
||||
Result := Source;
|
||||
Dst := AllocMem((Length(Result) + 1) * SizeOf(AnsiChar));
|
||||
if CharToOEM(PAnsiChar(Result), Dst) then
|
||||
Result := StrPas(Dst);
|
||||
FreeMem(Dst);
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
sError: String;
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if InitIconv(sError) then
|
||||
begin
|
||||
Iconvert(Source, Result, Encoding, 'CP866');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{ -------------------------------------------------------------------------- }
|
||||
|
||||
function AnsiToSys(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
begin
|
||||
Result:= Source;
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
sError: String;
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if InitIconv(sError) then
|
||||
begin
|
||||
Iconvert(Source, Result, 'CP1251', Encoding);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function SysToAnsi(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
begin
|
||||
Result:= Source;
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
sError: String;
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if InitIconv(sError) then
|
||||
begin
|
||||
Iconvert(Source, Result, Encoding, 'CP1251');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
end.
|
||||
|
||||
unit osConvEncoding;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
{en
|
||||
Convert from OEM to System encoding, if needed
|
||||
}
|
||||
function OEMToSys(Source: String): String;
|
||||
function SysToOEM(Source: String): String;
|
||||
|
||||
{en
|
||||
Convert from Ansi to System encoding, if needed
|
||||
}
|
||||
function AnsiToSys(Source: String): String;
|
||||
function SysToAnsi(Source: String): String;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
{$IF DEFINED(UNIX)}
|
||||
iconvenc_dyn
|
||||
{$ELSEIF DEFINED(MSWINDOWS)}
|
||||
Windows
|
||||
{$ENDIF}
|
||||
;
|
||||
|
||||
{$IFDEF UNIX}
|
||||
var
|
||||
IsInitIconv: Boolean = False;
|
||||
|
||||
function GetSystemEncoding(out Language, Encoding: String): Boolean;
|
||||
var
|
||||
I: Integer;
|
||||
Lang: String;
|
||||
begin
|
||||
Result:= True;
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LC_ALL');
|
||||
if Length(Lang) = 0 then
|
||||
begin
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LC_MESSAGES');
|
||||
if Length(Lang) = 0 then
|
||||
begin
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LANG');
|
||||
if Length(Lang) = 0 then
|
||||
Exit(False);
|
||||
end;
|
||||
end;
|
||||
Language:= Copy(Lang, 1, 2);
|
||||
I:= System.Pos('.', Lang);
|
||||
if (I > 0) then
|
||||
Encoding:= Copy(Lang, I + 1, Length(Lang) - I);
|
||||
if Length(Encoding) = 0 then
|
||||
Encoding:= 'UTF-8';
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{ -------------------------------------------------------------------------- }
|
||||
|
||||
function OEMToSys(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
Dst: PAnsiChar;
|
||||
begin
|
||||
Result:= Source;
|
||||
Dst:= AllocMem((Length(Result) + 1) * SizeOf(AnsiChar));
|
||||
if OEMToChar(PAnsiChar(Result), Dst) then
|
||||
Result:= StrPas(Dst);
|
||||
FreeMem(Dst);
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if IsInitIconv then
|
||||
begin
|
||||
Iconvert(Source, Result, 'CP866', Encoding);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function SysToOEM(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
Dst: PAnsiChar;
|
||||
begin
|
||||
Result := Source;
|
||||
Dst := AllocMem((Length(Result) + 1) * SizeOf(AnsiChar));
|
||||
if CharToOEM(PAnsiChar(Result), Dst) then
|
||||
Result := StrPas(Dst);
|
||||
FreeMem(Dst);
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if IsInitIconv then
|
||||
begin
|
||||
Iconvert(Source, Result, Encoding, 'CP866');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{ -------------------------------------------------------------------------- }
|
||||
|
||||
function AnsiToSys(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
begin
|
||||
Result:= Source;
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if IsInitIconv then
|
||||
begin
|
||||
Iconvert(Source, Result, 'CP1251', Encoding);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function SysToAnsi(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
begin
|
||||
Result:= Source;
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if IsInitIconv then
|
||||
begin
|
||||
Iconvert(Source, Result, Encoding, 'CP1251');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF UNIX}
|
||||
var
|
||||
sError: String;
|
||||
|
||||
initialization
|
||||
|
||||
IsInitIconv:= InitIconv(sError);
|
||||
if not IsInitIconv then
|
||||
WriteLn(sError);
|
||||
{$ENDIF}
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,164 +1,174 @@
|
|||
unit osConvEncoding;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
{en
|
||||
Convert from OEM to System encoding, if needed
|
||||
}
|
||||
function OEMToSys(Source: String): String;
|
||||
function SysToOEM(Source: String): String;
|
||||
|
||||
{en
|
||||
Convert from Ansi to System encoding, if needed
|
||||
}
|
||||
function AnsiToSys(Source: String): String;
|
||||
function SysToAnsi(Source: String): String;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
{$IF DEFINED(UNIX)}
|
||||
iconvenc_dyn
|
||||
{$ELSEIF DEFINED(MSWINDOWS)}
|
||||
Windows
|
||||
{$ENDIF}
|
||||
;
|
||||
|
||||
{$IFDEF UNIX}
|
||||
function GetSystemEncoding(out Language, Encoding: String): Boolean;
|
||||
var
|
||||
I: Integer;
|
||||
Lang: String;
|
||||
begin
|
||||
Result:= True;
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LC_ALL');
|
||||
if Length(Lang) = 0 then
|
||||
begin
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LC_MESSAGES');
|
||||
if Length(Lang) = 0 then
|
||||
begin
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LANG');
|
||||
if Length(Lang) = 0 then
|
||||
Exit(False);
|
||||
end;
|
||||
end;
|
||||
Language:= Copy(Lang, 1, 2);
|
||||
I:= System.Pos('.', Lang);
|
||||
if (I > 0) then
|
||||
Encoding:= Copy(Lang, I + 1, Length(Lang) - I);
|
||||
if Length(Encoding) = 0 then
|
||||
Encoding:= 'UTF-8';
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{ -------------------------------------------------------------------------- }
|
||||
|
||||
function OEMToSys(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
Dst: PAnsiChar;
|
||||
begin
|
||||
Result:= Source;
|
||||
Dst:= AllocMem((Length(Result) + 1) * SizeOf(AnsiChar));
|
||||
if OEMToChar(PAnsiChar(Result), Dst) then
|
||||
Result:= StrPas(Dst);
|
||||
FreeMem(Dst);
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
sError: String;
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if InitIconv(sError) then
|
||||
begin
|
||||
Iconvert(Source, Result, 'CP866', Encoding);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function SysToOEM(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
Dst: PAnsiChar;
|
||||
begin
|
||||
Result := Source;
|
||||
Dst := AllocMem((Length(Result) + 1) * SizeOf(AnsiChar));
|
||||
if CharToOEM(PAnsiChar(Result), Dst) then
|
||||
Result := StrPas(Dst);
|
||||
FreeMem(Dst);
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
sError: String;
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if InitIconv(sError) then
|
||||
begin
|
||||
Iconvert(Source, Result, Encoding, 'CP866');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{ -------------------------------------------------------------------------- }
|
||||
|
||||
function AnsiToSys(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
begin
|
||||
Result:= Source;
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
sError: String;
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if InitIconv(sError) then
|
||||
begin
|
||||
Iconvert(Source, Result, 'CP1251', Encoding);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function SysToAnsi(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
begin
|
||||
Result:= Source;
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
sError: String;
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if InitIconv(sError) then
|
||||
begin
|
||||
Iconvert(Source, Result, Encoding, 'CP1251');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
end.
|
||||
|
||||
unit osConvEncoding;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
{en
|
||||
Convert from OEM to System encoding, if needed
|
||||
}
|
||||
function OEMToSys(Source: String): String;
|
||||
function SysToOEM(Source: String): String;
|
||||
|
||||
{en
|
||||
Convert from Ansi to System encoding, if needed
|
||||
}
|
||||
function AnsiToSys(Source: String): String;
|
||||
function SysToAnsi(Source: String): String;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
{$IF DEFINED(UNIX)}
|
||||
iconvenc_dyn
|
||||
{$ELSEIF DEFINED(MSWINDOWS)}
|
||||
Windows
|
||||
{$ENDIF}
|
||||
;
|
||||
|
||||
{$IFDEF UNIX}
|
||||
var
|
||||
IsInitIconv: Boolean = False;
|
||||
|
||||
function GetSystemEncoding(out Language, Encoding: String): Boolean;
|
||||
var
|
||||
I: Integer;
|
||||
Lang: String;
|
||||
begin
|
||||
Result:= True;
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LC_ALL');
|
||||
if Length(Lang) = 0 then
|
||||
begin
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LC_MESSAGES');
|
||||
if Length(Lang) = 0 then
|
||||
begin
|
||||
Lang:= SysUtils.GetEnvironmentVariable('LANG');
|
||||
if Length(Lang) = 0 then
|
||||
Exit(False);
|
||||
end;
|
||||
end;
|
||||
Language:= Copy(Lang, 1, 2);
|
||||
I:= System.Pos('.', Lang);
|
||||
if (I > 0) then
|
||||
Encoding:= Copy(Lang, I + 1, Length(Lang) - I);
|
||||
if Length(Encoding) = 0 then
|
||||
Encoding:= 'UTF-8';
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{ -------------------------------------------------------------------------- }
|
||||
|
||||
function OEMToSys(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
Dst: PAnsiChar;
|
||||
begin
|
||||
Result:= Source;
|
||||
Dst:= AllocMem((Length(Result) + 1) * SizeOf(AnsiChar));
|
||||
if OEMToChar(PAnsiChar(Result), Dst) then
|
||||
Result:= StrPas(Dst);
|
||||
FreeMem(Dst);
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if IsInitIconv then
|
||||
begin
|
||||
Iconvert(Source, Result, 'CP866', Encoding);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function SysToOEM(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
Dst: PAnsiChar;
|
||||
begin
|
||||
Result := Source;
|
||||
Dst := AllocMem((Length(Result) + 1) * SizeOf(AnsiChar));
|
||||
if CharToOEM(PAnsiChar(Result), Dst) then
|
||||
Result := StrPas(Dst);
|
||||
FreeMem(Dst);
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if IsInitIconv then
|
||||
begin
|
||||
Iconvert(Source, Result, Encoding, 'CP866');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{ -------------------------------------------------------------------------- }
|
||||
|
||||
function AnsiToSys(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
begin
|
||||
Result:= Source;
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if IsInitIconv then
|
||||
begin
|
||||
Iconvert(Source, Result, 'CP1251', Encoding);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function SysToAnsi(Source: String): String;
|
||||
{$IFDEF MSWINDOWS}
|
||||
begin
|
||||
Result:= Source;
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
Language, Encoding: String;
|
||||
begin
|
||||
Result:= Source;
|
||||
if GetSystemEncoding(Language, Encoding) then
|
||||
begin
|
||||
if SameText(Language, 'ru') then
|
||||
if IsInitIconv then
|
||||
begin
|
||||
Iconvert(Source, Result, Encoding, 'CP1251');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF UNIX}
|
||||
var
|
||||
sError: String;
|
||||
|
||||
initialization
|
||||
|
||||
IsInitIconv:= InitIconv(sError);
|
||||
if not IsInitIconv then
|
||||
WriteLn(sError);
|
||||
{$ENDIF}
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue