From 83b2948ec1f5ba1622622d08005e764b64bad07d Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Tue, 16 Aug 2011 13:27:35 +0000 Subject: [PATCH] makeskel: Adds more output info in case of error and fixes compilation through Lazarus (by adding +) git-svn-id: trunk@18219 - --- utils/fpdoc/makeskel.lpi | 39 +++++++++++++++++---------------------- utils/fpdoc/makeskel.pp | 8 ++++++++ 2 files changed, 25 insertions(+), 22 deletions(-) diff --git a/utils/fpdoc/makeskel.lpi b/utils/fpdoc/makeskel.lpi index 6a050b7f7e..afaf6c4280 100644 --- a/utils/fpdoc/makeskel.lpi +++ b/utils/fpdoc/makeskel.lpi @@ -1,23 +1,25 @@ - - + + + - - - + + + + @@ -27,6 +29,7 @@ + @@ -35,33 +38,25 @@ - - - - - - - - - - - - - - - - - + + + + + + + + + diff --git a/utils/fpdoc/makeskel.pp b/utils/fpdoc/makeskel.pp index d39084ea4a..46d76f2fd7 100644 --- a/utils/fpdoc/makeskel.pp +++ b/utils/fpdoc/makeskel.pp @@ -15,8 +15,12 @@ } +{%RunCommand $MakeExe($(EdFile)) --package=fpvectorial --input=/home/felipe/Programas/fpctrunk/packages/fpvectorial/src/fpvectorial.pas} program MakeSkel; +{$mode objfpc} +{$h+} + uses SysUtils, Classes, Gettext, dGlobals, PasTree, PParser,PScanner; @@ -379,6 +383,7 @@ Var Engine: TSkelEngine; begin + Result:=''; Assign(f, AOutputName); Rewrite(f); Try @@ -399,7 +404,10 @@ begin Engine.DocumentFile(F,InputFiles[I],OSTarget,CPUTarget); except on E:Exception do + begin + WriteLn('Error while documenting: '+E.message); Result:='Error while documenting: '+E.message; + end; end; Finally Engine.Free;