Parcourir la source

* disable friendly message because the fileexistance test is not reliable at this point.

git-svn-id: trunk@29548 -
marco il y a 10 ans
Parent
commit
53b06fa861
1 fichiers modifiés avec 3 ajouts et 2 suppressions
  1. 3 2
      utils/fpdoc/makeskel.pp

+ 3 - 2
utils/fpdoc/makeskel.pp

@@ -356,8 +356,9 @@ Var
   N : TDocNode;
   N : TDocNode;
      
      
 begin
 begin
-  if not(FileExists(AFileName)) then
-    raise Exception.CreateFmt('Cannot find source file %s to document.',[AFileName]);
+// wrong because afilename is a cmdline with other options. Straight testing filename is therefore wrong.
+//  if not(FileExists(AFileName)) then
+//    raise Exception.CreateFmt('Cannot find source file %s to document.',[AFileName]);
   FNodeList:=TStringList.Create;
   FNodeList:=TStringList.Create;
   Try
   Try
     FEmittedList:=TStringList.Create;
     FEmittedList:=TStringList.Create;