From 27a71635fd65ceb5d8ef271c860b990f72841ef2 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 1 May 2004 20:13:40 +0000
Subject: [PATCH]  * got fed up with exceptions on file not found. 
 Fileresolver now raises a 	EFileNotFound error, and makeskel catches and
 exists gracefully

---
 utils/fpdoc/makeskel.pp | 27 ++++++++++++++++++++-------
 1 file changed, 20 insertions(+), 7 deletions(-)

diff --git a/utils/fpdoc/makeskel.pp b/utils/fpdoc/makeskel.pp
index 2a28458386..aa61645ecc 100644
--- a/utils/fpdoc/makeskel.pp
+++ b/utils/fpdoc/makeskel.pp
@@ -20,7 +20,7 @@ program MakeSkel;
 
 uses
   SysUtils, Classes, Gettext,
-  dGlobals, PasTree, PParser;
+  dGlobals, PasTree, PParser,PScanner;
 
 resourcestring
   STitle = 'MakeSkel - FPDoc skeleton XML description file generator';
@@ -260,12 +260,21 @@ begin
     begin
       Engine := TSkelEngine.Create;
       try
-        Engine.SetPackageName(PackageName);
-        Module := ParseSource(Engine, InputFiles[i], OSTarget, CPUTarget);
-	WriteLn(f, '</module> <!-- ', Module.Name, ' -->');
+       try
+         Engine.SetPackageName(PackageName);
+         Module := ParseSource(Engine, InputFiles[i], OSTarget, CPUTarget);
+   	 WriteLn(f, '</module> <!-- ', Module.Name, ' -->');
+       except
+        on e:EFileNotFoundError do
+           begin
+    	     Writeln(StdErr,' file ', e.message, ' not found');
+	     close(f);	
+	     Halt(1);
+           end; 
+         end;
       finally
-        Engine.Free;
-      end;
+        Engine.Free; 
+       end;
     end;
 
     WriteLn(f, '</package>');
@@ -282,7 +291,11 @@ end.
 
 {
   $Log$
-  Revision 1.5  2003-11-28 12:51:37  sg
+  Revision 1.6  2004-05-01 20:13:40  marco
+   * got fed up with exceptions on file not found.  Fileresolver now raises a
+  	EFileNotFound error, and makeskel catches and exists gracefully
+
+  Revision 1.5  2003/11/28 12:51:37  sg
   * Added support for source references
 
   Revision 1.4  2003/09/02 13:26:47  mattias