|
@@ -13,7 +13,7 @@ uses
|
|
UIsxclassesParser in 'UIsxclassesParser.pas';
|
|
UIsxclassesParser in 'UIsxclassesParser.pas';
|
|
|
|
|
|
const
|
|
const
|
|
- Version = '1.15';
|
|
|
|
|
|
+ Version = '1.16';
|
|
|
|
|
|
XMLFileVersion = '1';
|
|
XMLFileVersion = '1';
|
|
|
|
|
|
@@ -70,7 +70,8 @@ type
|
|
end;
|
|
end;
|
|
|
|
|
|
var
|
|
var
|
|
- SourceDir, OutputDir, Postfix: String;
|
|
|
|
|
|
+ SourceDir, OutputDir: String;
|
|
|
|
+ NoContentsHtm: Boolean;
|
|
Keywords, DefinedTopics, TargetTopics, SetupDirectives: TStringList;
|
|
Keywords, DefinedTopics, TargetTopics, SetupDirectives: TStringList;
|
|
TopicsGenerated: Integer = 0;
|
|
TopicsGenerated: Integer = 0;
|
|
CurrentTopicName: String;
|
|
CurrentTopicName: String;
|
|
@@ -940,8 +941,10 @@ procedure Go;
|
|
begin
|
|
begin
|
|
Writeln(' - Generating hh_generated_contents.hhc');
|
|
Writeln(' - Generating hh_generated_contents.hhc');
|
|
GenerateHTMLHelpContents(Node);
|
|
GenerateHTMLHelpContents(Node);
|
|
- Writeln(' - Generating contents.htm');
|
|
|
|
- GenerateStaticContents(Node);
|
|
|
|
|
|
+ if not NoContentsHtm then begin
|
|
|
|
+ Writeln(' - Generating contents.htm');
|
|
|
|
+ GenerateStaticContents(Node);
|
|
|
|
+ end;
|
|
end;
|
|
end;
|
|
elSetupTopic: ParseTopic(Node, True);
|
|
elSetupTopic: ParseTopic(Node, True);
|
|
elTopic: ParseTopic(Node, False);
|
|
elTopic: ParseTopic(Node, False);
|
|
@@ -984,8 +987,10 @@ begin
|
|
|
|
|
|
Writeln('- Generating hh_generated_index.hhk');
|
|
Writeln('- Generating hh_generated_index.hhk');
|
|
GenerateHTMLHelpIndex;
|
|
GenerateHTMLHelpIndex;
|
|
- Writeln('- Generating contentsindex.js');
|
|
|
|
- GenerateStaticIndex;
|
|
|
|
|
|
+ if not NoContentsHtm then begin
|
|
|
|
+ Writeln('- Generating contentsindex.js');
|
|
|
|
+ GenerateStaticIndex;
|
|
|
|
+ end;
|
|
finally
|
|
finally
|
|
SetupDirectives.Free;
|
|
SetupDirectives.Free;
|
|
TargetTopics.Free;
|
|
TargetTopics.Free;
|
|
@@ -1009,9 +1014,13 @@ begin
|
|
Halt(2);
|
|
Halt(2);
|
|
end;
|
|
end;
|
|
SourceDir := ParamStr(1) + '\';
|
|
SourceDir := ParamStr(1) + '\';
|
|
- Postfix := ParamStr(2);
|
|
|
|
|
|
+ var Postfix := ParamStr(2);
|
|
OutputDir := SourceDir + 'Staging' + Postfix + '\';
|
|
OutputDir := SourceDir + 'Staging' + Postfix + '\';
|
|
|
|
|
|
|
|
+ NoContentsHtm := not FileExists(SourceDir + 'contents-template.htm');
|
|
|
|
+ if NoContentsHtm then
|
|
|
|
+ Writeln('Running in NoContentsHtm mode');
|
|
|
|
+
|
|
OleCheck(CoInitialize(nil)); { for MSXML }
|
|
OleCheck(CoInitialize(nil)); { for MSXML }
|
|
|
|
|
|
StartTime := GetTickCount;
|
|
StartTime := GetTickCount;
|