* Add FPC define, check for unit for short description

git-svn-id: trunk@42786 -

utils/fpdoc/makeskel.pp

@@ -23,8 +23,7 @@ program MakeSkel;
 {$h+}
 
 uses
-  SysUtils, Classes, Gettext,
-  dGlobals, PasTree, PParser,PScanner;
+  SysUtils, Classes, Gettext, dGlobals, PasTree, PParser,PScanner;
 
 resourcestring
   STitle = 'MakeSkel - FPDoc skeleton XML description file generator';
@@ -235,7 +234,9 @@ Function TSkelEngine.WriteElement(Var F : Text;El : TPasElement; ADocNode : TDoc
   begin
     Result:=(APasElement.ClassType=TPasArgument) or
             (APasElement.ClassType=TPasResultElement) or
-            (APasElement.ClassType=TPasEnumValue);
+            (APasElement.ClassType=TPasEnumValue) or
+            (aPaselement.ClassType=TPasUsesUnit) or
+            ((APasElement.CLassType=TPasVariable) and (APasElement.Parent is TPasRecordType));
   end;
 
   Function IsTypeVarConst(APasElement : TPasElement) : Boolean;
@@ -398,7 +399,7 @@ begin
     FEmittedList:=TStringList.Create;
     FEmittedList.Sorted:=True;
     try
-      Module:=ParseSource (Self,AFileName,ATarget,ACPU,[poUseStreams,poSkipDefaultDefs]);
+      Module:=ParseSource (Self,AFileName+' -dFPC',ATarget,ACPU,[poUseStreams,poSkipDefaultDefs]);
       If UpdateMode then
         begin
         N:=FindDocNode(Module);