mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-04 20:20:23 +02:00
LCL: clean up
git-svn-id: trunk@14919 -
This commit is contained in:
mattias
parent
1acd04eb9a
commit
e254c10254
@ -4058,209 +4058,6 @@ begin
|
||||
List.Add('KOI-8');
|
||||
end;
|
||||
|
||||
function Utf2Cp1251(s:string):string;
|
||||
var i:integer;
|
||||
Skip,DSkip:boolean;
|
||||
begin
|
||||
//TODO Complete SystemEncoding conversion
|
||||
Skip:=false;DSkip:=false;Result:='';
|
||||
for i:=1 to length(s) do
|
||||
begin
|
||||
if DSkip then begin Skip:=true;DSkip:=false;continue;end;
|
||||
if Skip then begin Skip:=false;Continue;end;
|
||||
if s[i]<#127 then begin Result:=Result+s[i];continue; end;
|
||||
if i=length(s) then break;//Do not translate 'strange' symbol
|
||||
if (s[i]=chr($D0)) and (s[i+1]>=chr($90))and (s[i+1]<chr($C0)) then begin
|
||||
Result:=Result+chr(ord(s[i+1])-$90+192);Skip:=true;continue;
|
||||
end;
|
||||
if (s[i]=chr($D1)) and (s[i+1]>=chr($80))and (s[i+1]<chr($90)) then begin
|
||||
Result:=Result+chr(ord(s[i+1])-$80+240);Skip:=true;continue;
|
||||
end;
|
||||
if (s[i]=chr($D0)) and (s[i+1]=chr($81)) then begin
|
||||
Result:=Result+#168;Skip:=true;continue;
|
||||
end;
|
||||
if (s[i]=chr($D1)) and (s[i+1]=chr($91)) then begin
|
||||
Result:=Result+#184;Skip:=true;continue;
|
||||
end;
|
||||
Result:=Result+s[i];
|
||||
end;
|
||||
end;
|
||||
|
||||
function Cp1251toUTF(s:string):string;
|
||||
var i:integer;
|
||||
begin
|
||||
//TODO Complete SystemEncoding conversion
|
||||
Result:='';
|
||||
for i:=1 to length(s) do
|
||||
begin
|
||||
case s[i] of
|
||||
#0..#127:Result:=Result+s[i];
|
||||
#192..#239:Result:=Result+chr($D0)+chr(ord(s[i])-192+$90);
|
||||
#240..#255:Result:=Result+chr($D1)+chr(ord(s[i])-240+$80);
|
||||
#168:Result:=Result+chr($D0)+chr($81);
|
||||
#184:Result:=Result+chr($D1)+chr($91);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function cp1251ToKoi8r(s:string):string;
|
||||
var i:integer;
|
||||
begin
|
||||
Result:='';
|
||||
for i:=1 to length(s) do
|
||||
begin
|
||||
if s[i]<=#127 then Result:=Result+s[i] else
|
||||
case s[i] of
|
||||
#192:Result:=Result+#225;
|
||||
#193:Result:=Result+#226;
|
||||
#194:Result:=Result+#247;
|
||||
#195:Result:=Result+#231;
|
||||
#196:Result:=Result+#228;
|
||||
#197:Result:=Result+#229;
|
||||
#168:Result:=Result+#179;
|
||||
#198:Result:=Result+#246;
|
||||
#199:Result:=Result+#250;
|
||||
#200:Result:=Result+#233;
|
||||
#201:Result:=Result+#234;
|
||||
#202:Result:=Result+#235;
|
||||
#203:Result:=Result+#236;
|
||||
#204:Result:=Result+#237;
|
||||
#205:Result:=Result+#238;
|
||||
#206:Result:=Result+#239;
|
||||
#207:Result:=Result+#240;
|
||||
#208:Result:=Result+#242;
|
||||
#209:Result:=Result+#243;
|
||||
#210:Result:=Result+#244;
|
||||
#211:Result:=Result+#245;
|
||||
#212:Result:=Result+#230;
|
||||
#213:Result:=Result+#232;
|
||||
#214:Result:=Result+#227;
|
||||
#215:Result:=Result+#254;
|
||||
#216:Result:=Result+#251;
|
||||
#217:Result:=Result+#253;
|
||||
#218:Result:=Result+#255;
|
||||
#219:Result:=Result+#249;
|
||||
#220:Result:=Result+#248;
|
||||
#221:Result:=Result+#252;
|
||||
#222:Result:=Result+#224;
|
||||
#223:Result:=Result+#241;
|
||||
#224:Result:=Result+#193;
|
||||
#225:Result:=Result+#194;
|
||||
#226:Result:=Result+#215;
|
||||
#227:Result:=Result+#199;
|
||||
#228:Result:=Result+#196;
|
||||
#229:Result:=Result+#197;
|
||||
#184:Result:=Result+#163;
|
||||
#230:Result:=Result+#214;
|
||||
#231:Result:=Result+#218;
|
||||
#232:Result:=Result+#201;
|
||||
#233:Result:=Result+#202;
|
||||
#234:Result:=Result+#203;
|
||||
#235:Result:=Result+#204;
|
||||
#236:Result:=Result+#205;
|
||||
#237:Result:=Result+#206;
|
||||
#238:Result:=Result+#207;
|
||||
#239:Result:=Result+#208;
|
||||
#240:Result:=Result+#210;
|
||||
#241:Result:=Result+#211;
|
||||
#242:Result:=Result+#212;
|
||||
#243:Result:=Result+#213;
|
||||
#244:Result:=Result+#198;
|
||||
#245:Result:=Result+#200;
|
||||
#246:Result:=Result+#195;
|
||||
#247:Result:=Result+#222;
|
||||
#248:Result:=Result+#219;
|
||||
#249:Result:=Result+#221;
|
||||
#250:Result:=Result+#223;
|
||||
#251:Result:=Result+#217;
|
||||
#252:Result:=Result+#216;
|
||||
#253:Result:=Result+#220;
|
||||
#254:Result:=Result+#192;
|
||||
#255:Result:=Result+#209;
|
||||
else Result:=s[i];
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function Koi8rToCP1251(s:string):string;
|
||||
var i:integer;
|
||||
begin
|
||||
Result:='';
|
||||
for i:=1 to length(s) do
|
||||
begin
|
||||
if s[i]<=#127 then Result:=Result+s[i] else
|
||||
case s[i] of
|
||||
#225:Result:=Result+#192;
|
||||
#226:Result:=Result+#193;
|
||||
#247:Result:=Result+#194;
|
||||
#231:Result:=Result+#195;
|
||||
#228:Result:=Result+#196;
|
||||
#229:Result:=Result+#197;
|
||||
#179:Result:=Result+#168;
|
||||
#246:Result:=Result+#198;
|
||||
#250:Result:=Result+#199;
|
||||
#233:Result:=Result+#200;
|
||||
#234:Result:=Result+#201;
|
||||
#235:Result:=Result+#202;
|
||||
#236:Result:=Result+#203;
|
||||
#237:Result:=Result+#204;
|
||||
#238:Result:=Result+#205;
|
||||
#239:Result:=Result+#206;
|
||||
#240:Result:=Result+#207;
|
||||
#242:Result:=Result+#208;
|
||||
#243:Result:=Result+#209;
|
||||
#244:Result:=Result+#210;
|
||||
#245:Result:=Result+#211;
|
||||
#230:Result:=Result+#212;
|
||||
#232:Result:=Result+#213;
|
||||
#227:Result:=Result+#214;
|
||||
#254:Result:=Result+#215;
|
||||
#251:Result:=Result+#216;
|
||||
#253:Result:=Result+#217;
|
||||
#255:Result:=Result+#218;
|
||||
#249:Result:=Result+#219;
|
||||
#248:Result:=Result+#220;
|
||||
#252:Result:=Result+#221;
|
||||
#224:Result:=Result+#222;
|
||||
#241:Result:=Result+#223;
|
||||
#193:Result:=Result+#224;
|
||||
#194:Result:=Result+#225;
|
||||
#215:Result:=Result+#226;
|
||||
#199:Result:=Result+#227;
|
||||
#196:Result:=Result+#228;
|
||||
#197:Result:=Result+#229;
|
||||
#163:Result:=Result+#184;
|
||||
#214:Result:=Result+#230;
|
||||
#218:Result:=Result+#231;
|
||||
#201:Result:=Result+#232;
|
||||
#202:Result:=Result+#233;
|
||||
#203:Result:=Result+#234;
|
||||
#204:Result:=Result+#235;
|
||||
#205:Result:=Result+#236;
|
||||
#206:Result:=Result+#237;
|
||||
#207:Result:=Result+#238;
|
||||
#208:Result:=Result+#239;
|
||||
#210:Result:=Result+#240;
|
||||
#211:Result:=Result+#241;
|
||||
#212:Result:=Result+#242;
|
||||
#213:Result:=Result+#243;
|
||||
#198:Result:=Result+#244;
|
||||
#200:Result:=Result+#245;
|
||||
#195:Result:=Result+#246;
|
||||
#222:Result:=Result+#247;
|
||||
#219:Result:=Result+#248;
|
||||
#221:Result:=Result+#249;
|
||||
#223:Result:=Result+#250;
|
||||
#217:Result:=Result+#251;
|
||||
#216:Result:=Result+#252;
|
||||
#220:Result:=Result+#253;
|
||||
#192:Result:=Result+#254;
|
||||
#209:Result:=Result+#255;
|
||||
else Result:=s[i];
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GuessEncoding(const s: string): string;
|
||||
var
|
||||
l: Integer;
|
||||
@ -4398,17 +4195,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
if (AFrom='utf8') then
|
||||
begin
|
||||
if ATo='cp1251' then begin Result:=utf2cp1251(s);exit;end;
|
||||
if ATo='koi8r' then begin Result:=cp1251ToKoi8r(utf2cp1251(s));exit;end;
|
||||
end;
|
||||
if (ATo='utf8') then
|
||||
begin
|
||||
if AFrom='cp1251' then begin Result:=Cp1251toUTF(s);exit;end;
|
||||
if AFrom='koi8r' then begin Result:=Cp1251toUTF(Koi8rToCP1251(s));exit;end;
|
||||
end;
|
||||
|
||||
//Stupid code. Works anyway, but extra-slow
|
||||
{$ifdef Unix}
|
||||
DebugLn(['CPConvert NOTE: using slow iconv workaround to convert from ',AFrom,' to ',ATo]);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user