paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 20:49:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch from Maxim Ganetsky for multiline messages (Mantis 10268)

Browse Source 
git-svn-id: trunk@15018 -
This commit is contained in:
marco 2010-03-14 17:23:05 +00:00
parent 45d25bbe77
commit 06a5f63582
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
utils/rstconv.pp
View File

@ -168,7 +168,19 @@ begin
// Write msg entry
WriteLn(f, '#: ', item.ModuleName, ':', item.ConstName);
WriteLn(f, 'msgid "', s, '"');
j := Pos('\n', s);
if j > 0 then begin
WriteLn(f, 'msgid ""');
while j > 0 do begin
Writeln(f, '"',copy(s, 1, j+1),'"');
Delete(s, 1, j+1);
j := Pos('\n', s);
end;
if s <> '' then
Writeln(f, '"',s,'"');
end
else
WriteLn(f, 'msgid "', s, '"');
WriteLn(f, 'msgstr ""');
WriteLn(f);
end;