program compileprogchm;
// FPC script to compile prog html to chm.

uses SysUtils,Classes,chmfilewriter;

procedure scandir(filespec:string;recursive:boolean;fn:TStrings);

var d : TSearchRec;

begin
  filespec:=includetrailingpathdelimiter(filespec);
  if findfirst(filespec+'*',faanyfile and fadirectory,d)=0 then
    begin
      repeat
        if (d.attr and fadirectory = fadirectory)  then
        begin
          // if recursive
	  writeln('skipping '+d.name);
	end
        else
         begin
          fn.add(filespec+d.name);
          writeln(filespec+d.name);
         end;
      until findnext(d)<>0;
     findclose(d);
    end;
end;

var x : TCHMProject;
    f : TFileStream;
begin
  x := TCHMProject.create;

  x.OutputFilename:='prog.chm';
  x.Defaultpage:='prog/prog.html';
  x.Title:='Programmers Guide';
  x.IndexFileName:='default.hhk';

//  x.projectdir:='.';
  scandir('prog',false,x.files);
// xml stuff doesn't seme to work ?
  x.savetofile('/home/marcov/progproj.xml');
  f:=TFileStream.Create('prog.chm',fmcreate);
  x.writechm(f);
  x.free;
  f.free;
end.