Browse Source

+ Do not write descr nodes for module when updating

michael 21 years ago
parent
commit
4a2124889f
1 changed files with 10 additions and 4 deletions
  1. 10 4
      utils/fpdoc/makeskel.pp

+ 10 - 4
utils/fpdoc/makeskel.pp

@@ -97,9 +97,12 @@ begin
     WriteLn(f, '-->');
     WriteLn(f, '-->');
     WriteLn(f);
     WriteLn(f);
     WriteLn(f, '<module name="', Result.Name, '">');
     WriteLn(f, '<module name="', Result.Name, '">');
-    WriteLn(f, '<short></short>');
-    WriteLn(f, '<descr>');
-    WriteLn(f, '</descr>');
+    if not UpdateMode then
+      begin
+      WriteLn(f, '<short></short>');
+      WriteLn(f, '<descr>');
+      WriteLn(f, '</descr>');
+      end;
     end 
     end 
   else if WriteThisNode(Result) then
   else if WriteThisNode(Result) then
     begin
     begin
@@ -325,7 +328,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.10  2004-08-28 18:15:14  michael
+  Revision 1.11  2004-08-28 18:18:59  michael
+  + Do not write descr nodes for module when updating
+
+  Revision 1.10  2004/08/28 18:15:14  michael
   + Check whether outputfile not in inputfilenames
   + Check whether outputfile not in inputfilenames
 
 
   Revision 1.9  2004/08/28 18:04:06  michael
   Revision 1.9  2004/08/28 18:04:06  michael