Browse Source

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

git-svn-id: trunk@15018 -
marco 15 years ago
parent
commit
06a5f63582
1 changed files with 13 additions and 1 deletions
  1. 13 1
      utils/rstconv.pp

+ 13 - 1
utils/rstconv.pp

@@ -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;