|
@@ -13,7 +13,7 @@ uses
|
|
UIsxclassesParser in 'UIsxclassesParser.pas';
|
|
UIsxclassesParser in 'UIsxclassesParser.pas';
|
|
|
|
|
|
const
|
|
const
|
|
- Version = '1.14';
|
|
|
|
|
|
+ Version = '1.15';
|
|
|
|
|
|
XMLFileVersion = '1';
|
|
XMLFileVersion = '1';
|
|
|
|
|
|
@@ -71,7 +71,6 @@ type
|
|
|
|
|
|
var
|
|
var
|
|
SourceDir, OutputDir, Postfix: String;
|
|
SourceDir, OutputDir, Postfix: String;
|
|
- ISPP: Boolean;
|
|
|
|
Keywords, DefinedTopics, TargetTopics, SetupDirectives: TStringList;
|
|
Keywords, DefinedTopics, TargetTopics, SetupDirectives: TStringList;
|
|
TopicsGenerated: Integer = 0;
|
|
TopicsGenerated: Integer = 0;
|
|
CurrentTopicName: String;
|
|
CurrentTopicName: String;
|
|
@@ -672,11 +671,6 @@ var
|
|
Node := Node.NextSibling;
|
|
Node := Node.NextSibling;
|
|
end;
|
|
end;
|
|
SL.Add('</ul>');
|
|
SL.Add('</ul>');
|
|
- if not ISPP and (ParentNode = ContentsNode) then begin
|
|
|
|
- { Don't put next 2 lines on 1 line or hhc will hang... }
|
|
|
|
- SL.Add('<object type="text/sitemap">');
|
|
|
|
- SL.Add('<param name="Merge" value="ispp' + Postfix + '.chm::\hh_generated_contents.hhc"></object>');
|
|
|
|
- end;
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
begin
|
|
begin
|
|
@@ -965,11 +959,9 @@ procedure Go;
|
|
var
|
|
var
|
|
I: Integer;
|
|
I: Integer;
|
|
begin
|
|
begin
|
|
- if not ISPP then begin
|
|
|
|
- TransformFile('isxfunc.xml', 'isxfunc.xsl', 'isxfunc_generated.xml');
|
|
|
|
- GenerateIsxClassesFile;
|
|
|
|
- end else
|
|
|
|
- TransformFile('ispp.xml', 'ispp.xsl', 'ispp_generated.xml');
|
|
|
|
|
|
+ TransformFile('isxfunc.xml', 'isxfunc.xsl', 'isxfunc_generated.xml');
|
|
|
|
+ GenerateIsxClassesFile;
|
|
|
|
+ TransformFile('ispp.xml', 'ispp.xsl', 'ispp_generated.xml');
|
|
|
|
|
|
Keywords := TStringList.Create;
|
|
Keywords := TStringList.Create;
|
|
Keywords.Duplicates := dupAccept;
|
|
Keywords.Duplicates := dupAccept;
|
|
@@ -982,13 +974,11 @@ begin
|
|
SetupDirectives.Duplicates := dupError;
|
|
SetupDirectives.Duplicates := dupError;
|
|
SetupDirectives.Sorted := True;
|
|
SetupDirectives.Sorted := True;
|
|
try
|
|
try
|
|
- if not ISPP then begin
|
|
|
|
- DoDoc('isetup.xml');
|
|
|
|
- DoDoc('isx.xml');
|
|
|
|
- DoDoc('isxfunc_generated.xml');
|
|
|
|
- DoDoc('isxclasses_generated.xml');
|
|
|
|
- end else
|
|
|
|
- DoDoc('ispp_generated.xml');
|
|
|
|
|
|
+ DoDoc('isetup.xml');
|
|
|
|
+ DoDoc('isx.xml');
|
|
|
|
+ DoDoc('isxfunc_generated.xml');
|
|
|
|
+ DoDoc('isxclasses_generated.xml');
|
|
|
|
+ DoDoc('ispp_generated.xml');
|
|
|
|
|
|
CheckForNonexistentTargetTopics;
|
|
CheckForNonexistentTargetTopics;
|
|
|
|
|
|
@@ -1022,10 +1012,6 @@ begin
|
|
Postfix := ParamStr(2);
|
|
Postfix := ParamStr(2);
|
|
OutputDir := SourceDir + 'Staging' + Postfix + '\';
|
|
OutputDir := SourceDir + 'Staging' + Postfix + '\';
|
|
|
|
|
|
- ISPP := FileExists(SourceDir + 'ispp.xml');
|
|
|
|
- if ISPP then
|
|
|
|
- Writeln('Running in ISPP mode');
|
|
|
|
-
|
|
|
|
OleCheck(CoInitialize(nil)); { for MSXML }
|
|
OleCheck(CoInitialize(nil)); { for MSXML }
|
|
|
|
|
|
StartTime := GetTickCount;
|
|
StartTime := GetTickCount;
|