Add processing of external file entries.

Also added some unit level comments.

Signed-off-by: Graeme Geldenhuys <graemeg@gmail.com>

1 files changed, 6 insertions, 1 deletions

diff --git a/src/docdump/docdump.lpr b/src/docdump/docdump.lpr
index 4415a0a8..6596578f 100644
--- a/src/docdump/docdump.lpr
+++ b/src/docdump/docdump.lpr
@@ -1,3 +1,6 @@
+{
+  Dumps the structure of an OS/2 IPF help file
+}
 program docdump;
 
 {$mode objfpc}{$H+}
@@ -7,7 +10,7 @@ uses
   cthreads,
   {$ENDIF}{$ENDIF}
   Classes, SysUtils, IPFFileFormatUnit, IPFEscapeCodes, CustApp, readheader,
-  filestreamhelper;
+  filestreamhelper, readextfiles;
 
 type
 
@@ -51,6 +54,7 @@ begin
   try
     FOut.WriteLn(Format('File name: %s (%d bytes)', [ExtractFileName(ParamStr(1)), FIn.Size]));
     ProcessHeader(FIn, FOut);
+    ProcessExtFiles(FIn, FOut);
   finally
     FIn.Free;
     FOut.Free;
@@ -79,6 +83,7 @@ end;
 var
   Application: TDocDump;
 
+
 begin
   Application:=TDocDump.Create(nil);
   Application.Run;