Parcourir la source

+ Do not write descr nodes for module when updating

michael il y a 21 ans
Parent
commit
4a2124889f
1 fichiers modifiés avec 10 ajouts et 4 suppressions
  1. 10 4
      utils/fpdoc/makeskel.pp

+ 10 - 4
utils/fpdoc/makeskel.pp

@@ -97,9 +97,12 @@ begin
     WriteLn(f, '-->');
     WriteLn(f);
     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 
   else if WriteThisNode(Result) then
     begin
@@ -325,7 +328,10 @@ end.
 
 {
   $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
 
   Revision 1.9  2004/08/28 18:04:06  michael