Bläddra i källkod

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

git-svn-id: trunk@15018 -
marco 15 år sedan
förälder
incheckning
06a5f63582
1 ändrade filer med 13 tillägg och 1 borttagningar
  1. 13 1
      utils/rstconv.pp

+ 13 - 1
utils/rstconv.pp

@@ -168,7 +168,19 @@ begin
 
 
     // Write msg entry
     // Write msg entry
     WriteLn(f, '#: ', item.ModuleName, ':', item.ConstName);
     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, 'msgstr ""');
     WriteLn(f);
     WriteLn(f);
   end;
   end;