浏览代码

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

git-svn-id: trunk@15018 -
marco 15 年之前
父节点
当前提交
06a5f63582
共有 1 个文件被更改,包括 13 次插入1 次删除
  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;