paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:40:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: .po files: auto removing doubles

Browse Source 
git-svn-id: trunk@10436 -
This commit is contained in:
mattias 2007-01-13 10:27:21 +00:00
parent c71fe1b942
commit c6c51404e3
4 changed files with 2055 additions and 2032 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tdbf/languages/registerdbf.de.po
View File

@ -2,14 +2,14 @@ msgid ""
msgstr ""
"Project-Id-Version: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: 2007-01-10 21:22+0100\n"
"Last-Translator: Joerg Braun <jb@toolbox-mag.de>\n"
"PO-Revision-Date: 2007-01-12 18:59+0100\n"
"Last-Translator: \n"
"Language-Team: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Type: text/plain; charset=iso-8859-1\n"
"Content-Transfer-Encoding: 8bit\n"
#: registerdbf:dbfsalldbasefiles
msgid "DBase Files"
msgstr "dBase-Dateien"
msgstr "DBase Dateien"

4048
components/turbopower_ipro/languages/ipconst.po
View File

File diff suppressed because it is too large Load Diff

4
components/turbopower_ipro/languages/iputils.po
View File

@ -1,3 +1,7 @@
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
#: iputils:slongversion
msgid "Version %.2f"
msgstr ""

27
ide/idetranslations.pas
View File

@ -177,6 +177,12 @@ begin
Result:=CompareText(TConstItem(Data1).ConstName,TConstItem(Data2).ConstName);
end;
function CompareNameWithConstItems(NamePAnsiString, ConstItem: Pointer): integer;
begin
Result:=CompareText(PAnsiString(NamePAnsiString)^,
TConstItem(ConstItem).ConstName);
end;
function ReadRSTFile(const InFilename: string;
TreeOfConstItems: TAVLTree): Boolean;
var
@ -203,6 +209,7 @@ var
ConstName: String;
Value: String;
fs: TFileStream;
Node: TAVLTreeNode;
begin
Result:=false;
try
@ -247,11 +254,16 @@ begin
end else
Inc(i);
end;
Item:=TConstItem.Create;
Item.ModuleName:=ModuleName;
Item.ConstName:=ConstName;
Item.Value:=Value;
TreeOfConstItems.Add(Item);
Node:=TreeOfConstItems.FindKey(@ConstName,@CompareNameWithConstItems);
if Node=nil then begin
Item:=TConstItem.Create;
Item.ModuleName:=ModuleName;
Item.ConstName:=ConstName;
Item.Value:=Value;
TreeOfConstItems.Add(Item);
end else begin
DebugLn(['ReadRSTFile Double ignored: ModuleName=',ModuleName,' ConstName=',ConstName,' Value="',DbgStr(Value),'"']);
end;
end;
Result:=true;
@ -401,7 +413,7 @@ begin
end;
NewContent.Position:=0;
if CheckContentChange then begin
if CheckContentChange and FileExists(OutFilename) then begin
OldContent:=TMemoryStream.Create;
OldContent.LoadFromFile(OutFilename);
ContentChanged:=CompareMemStreamText(NewContent,OldContent);
@ -413,6 +425,9 @@ begin
NewContent.SaveToFile(OutFilename);
Result:=true;
except
on E: Exception do begin
DebugLn(['ConvertToGettextPO ',E.Message]);
end;
end;
end;