paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 03:41:41 +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 "" msgstr ""
"Project-Id-Version: \n" "Project-Id-Version: \n"
"POT-Creation-Date: \n" "POT-Creation-Date: \n"
"PO-Revision-Date: 2007-01-10 21:22+0100\n" "PO-Revision-Date: 2007-01-12 18:59+0100\n"
"Last-Translator: Joerg Braun <jb@toolbox-mag.de>\n" "Last-Translator: \n"
"Language-Team: \n" "Language-Team: \n"
"MIME-Version: 1.0\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" "Content-Transfer-Encoding: 8bit\n"
#: registerdbf:dbfsalldbasefiles #: registerdbf:dbfsalldbasefiles
msgid "DBase Files" 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 #: iputils:slongversion
msgid "Version %.2f" msgid "Version %.2f"
msgstr "" msgstr ""

27
ide/idetranslations.pas
View File

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