Browse Source

Rename/group the compression units. Stop using Compression.Base (Shared.Compress) in Compil32.

Martijn Laan 1 year ago
parent
commit
7d3b4aa85a

+ 0 - 1
Projects/Compil32.dpr

@@ -56,7 +56,6 @@ uses
   Shared.SignToolsFunc in 'Src\Shared.SignToolsFunc.pas',
   Shared.SignToolsFunc in 'Src\Shared.SignToolsFunc.pas',
   Shared.FileClass in 'Src\Shared.FileClass.pas',
   Shared.FileClass in 'Src\Shared.FileClass.pas',
   Shared.Int64Em in 'Src\Shared.Int64Em.pas',
   Shared.Int64Em in 'Src\Shared.Int64Em.pas',
-  Shared.Compress in 'Src\Shared.Compress.pas',
   Shared.TaskDialogFunc in 'Src\Shared.TaskDialogFunc.pas',
   Shared.TaskDialogFunc in 'Src\Shared.TaskDialogFunc.pas',
   IDE.RegistryDesignerForm in 'Src\IDE.RegistryDesignerForm.pas' {RegistryDesignerForm},
   IDE.RegistryDesignerForm in 'Src\IDE.RegistryDesignerForm.pas' {RegistryDesignerForm},
   IDE.Wizard.WizardFormRegistryHelper in 'Src\IDE.Wizard.WizardFormRegistryHelper.pas',
   IDE.Wizard.WizardFormRegistryHelper in 'Src\IDE.Wizard.WizardFormRegistryHelper.pas',

+ 0 - 1
Projects/Compil32.dproj

@@ -134,7 +134,6 @@
         <DCCReference Include="Src\Shared.SignToolsFunc.pas"/>
         <DCCReference Include="Src\Shared.SignToolsFunc.pas"/>
         <DCCReference Include="Src\Shared.FileClass.pas"/>
         <DCCReference Include="Src\Shared.FileClass.pas"/>
         <DCCReference Include="Src\Shared.Int64Em.pas"/>
         <DCCReference Include="Src\Shared.Int64Em.pas"/>
-        <DCCReference Include="Src\Shared.Compress.pas"/>
         <DCCReference Include="Src\Shared.TaskDialogFunc.pas"/>
         <DCCReference Include="Src\Shared.TaskDialogFunc.pas"/>
         <DCCReference Include="Src\IDE.RegistryDesignerForm.pas">
         <DCCReference Include="Src\IDE.RegistryDesignerForm.pas">
             <Form>RegistryDesignerForm</Form>
             <Form>RegistryDesignerForm</Form>

+ 4 - 4
Projects/ISCmplr.dpr

@@ -23,10 +23,10 @@ uses
   Compiler.ScriptClasses in 'Src\Compiler.ScriptClasses.pas',
   Compiler.ScriptClasses in 'Src\Compiler.ScriptClasses.pas',
   Shared.ResUpdateFunc in 'Src\Shared.ResUpdateFunc.pas',
   Shared.ResUpdateFunc in 'Src\Shared.ResUpdateFunc.pas',
   Compiler.ExeUpdateFunc in 'Src\Compiler.ExeUpdateFunc.pas',
   Compiler.ExeUpdateFunc in 'Src\Compiler.ExeUpdateFunc.pas',
-  Shared.Compress in 'Src\Shared.Compress.pas',
-  Shared.Compress.Zlib in 'Src\Shared.Compress.Zlib.pas',
-  Shared.Compress.bzlib in 'Src\Shared.Compress.bzlib.pas',
-  Compiler.LZMACompressor in 'Src\Compiler.LZMACompressor.pas',
+  Compression.Base in 'Src\Compression.Base.pas',
+  Compression.Zlib in 'Src\Compression.Zlib.pas',
+  Compression.bzlib in 'Src\Compression.bzlib.pas',
+  Compression.LZMACompressor in 'Src\Compression.LZMACompressor.pas',
   Shared.FileClass in 'Src\Shared.FileClass.pas',
   Shared.FileClass in 'Src\Shared.FileClass.pas',
   Shared.ArcFour in 'Src\Shared.ArcFour.pas',
   Shared.ArcFour in 'Src\Shared.ArcFour.pas',
   Shared.VerInfoFunc in 'Src\Shared.VerInfoFunc.pas',
   Shared.VerInfoFunc in 'Src\Shared.VerInfoFunc.pas',

+ 4 - 4
Projects/ISCmplr.dproj

@@ -89,10 +89,10 @@
         <DCCReference Include="Src\Compiler.ScriptClasses.pas"/>
         <DCCReference Include="Src\Compiler.ScriptClasses.pas"/>
         <DCCReference Include="Src\Shared.ResUpdateFunc.pas"/>
         <DCCReference Include="Src\Shared.ResUpdateFunc.pas"/>
         <DCCReference Include="Src\Compiler.ExeUpdateFunc.pas"/>
         <DCCReference Include="Src\Compiler.ExeUpdateFunc.pas"/>
-        <DCCReference Include="Src\Shared.Compress.pas"/>
-        <DCCReference Include="Src\Shared.Compress.Zlib.pas"/>
-        <DCCReference Include="Src\Shared.Compress.bzlib.pas"/>
-        <DCCReference Include="Src\Compiler.LZMACompressor.pas"/>
+        <DCCReference Include="Src\Compression.Base.pas"/>
+        <DCCReference Include="Src\Compression.Zlib.pas"/>
+        <DCCReference Include="Src\Compression.bzlib.pas"/>
+        <DCCReference Include="Src\Compression.LZMACompressor.pas"/>
         <DCCReference Include="Src\Shared.FileClass.pas"/>
         <DCCReference Include="Src\Shared.FileClass.pas"/>
         <DCCReference Include="Src\Shared.ArcFour.pas"/>
         <DCCReference Include="Src\Shared.ArcFour.pas"/>
         <DCCReference Include="Src\Shared.VerInfoFunc.pas"/>
         <DCCReference Include="Src\Shared.VerInfoFunc.pas"/>

+ 4 - 4
Projects/Setup.dpr

@@ -39,10 +39,10 @@ uses
   Setup.FileExtractor in 'Src\Setup.FileExtractor.pas',
   Setup.FileExtractor in 'Src\Setup.FileExtractor.pas',
   Shared.Int64Em in 'Src\Shared.Int64Em.pas',
   Shared.Int64Em in 'Src\Shared.Int64Em.pas',
   Setup.SelectFolderForm in 'Src\Setup.SelectFolderForm.pas' {SelectFolderForm},
   Setup.SelectFolderForm in 'Src\Setup.SelectFolderForm.pas' {SelectFolderForm},
-  Shared.Compress in 'Src\Shared.Compress.pas',
-  Shared.Compress.Zlib in 'Src\Shared.Compress.Zlib.pas',
-  Shared.Compress.bzlib in 'Src\Shared.Compress.bzlib.pas',
-  Setup.LZMADecompressor in 'Src\Setup.LZMADecompressor.pas',
+  Compression.Base in 'Src\Compression.Base.pas',
+  Compression.Zlib in 'Src\Compression.Zlib.pas',
+  Compression.bzlib in 'Src\Compression.bzlib.pas',
+  Compression.LZMADecompressor in 'Src\Compression.LZMADecompressor.pas',
   Shared.FileClass in 'Src\Shared.FileClass.pas',
   Shared.FileClass in 'Src\Shared.FileClass.pas',
   MD5 in '..\Components\MD5.pas',
   MD5 in '..\Components\MD5.pas',
   SHA1 in '..\Components\SHA1.pas',
   SHA1 in '..\Components\SHA1.pas',

+ 4 - 4
Projects/Setup.dproj

@@ -108,10 +108,10 @@
         <DCCReference Include="Src\Setup.SelectFolderForm.pas">
         <DCCReference Include="Src\Setup.SelectFolderForm.pas">
             <Form>SelectFolderForm</Form>
             <Form>SelectFolderForm</Form>
         </DCCReference>
         </DCCReference>
-        <DCCReference Include="Src\Shared.Compress.pas"/>
-        <DCCReference Include="Src\Shared.Compress.Zlib.pas"/>
-        <DCCReference Include="Src\Shared.Compress.bzlib.pas"/>
-        <DCCReference Include="Src\Setup.LZMADecompressor.pas"/>
+        <DCCReference Include="Src\Compression.Base.pas"/>
+        <DCCReference Include="Src\Compression.Zlib.pas"/>
+        <DCCReference Include="Src\Compression.bzlib.pas"/>
+        <DCCReference Include="Src\Compression.LZMADecompressor.pas"/>
         <DCCReference Include="Src\Shared.FileClass.pas"/>
         <DCCReference Include="Src\Shared.FileClass.pas"/>
         <DCCReference Include="..\Components\MD5.pas"/>
         <DCCReference Include="..\Components\MD5.pas"/>
         <DCCReference Include="..\Components\SHA1.pas"/>
         <DCCReference Include="..\Components\SHA1.pas"/>

+ 2 - 2
Projects/SetupLdr.dpr

@@ -15,8 +15,8 @@ uses
   Windows,
   Windows,
   Messages,
   Messages,
   SysUtils,
   SysUtils,
-  Shared.Compress in 'Src\Shared.Compress.pas',
-  SetupLdr.LZMA1SmallDecompressor in 'Src\SetupLdr.LZMA1SmallDecompressor.pas',
+  Compression.Base in 'Src\Compression.Base.pas',
+  Compression.LZMA1SmallDecompressor in 'Src\Compression.LZMA1SmallDecompressor.pas',
   Shared.SetupEntFunc in 'Src\Shared.SetupEntFunc.pas',
   Shared.SetupEntFunc in 'Src\Shared.SetupEntFunc.pas',
   PathFunc in '..\Components\PathFunc.pas',
   PathFunc in '..\Components\PathFunc.pas',
   Shared.CommonFunc in 'Src\Shared.CommonFunc.pas',
   Shared.CommonFunc in 'Src\Shared.CommonFunc.pas',

+ 2 - 2
Projects/SetupLdr.dproj

@@ -72,8 +72,8 @@
         </DelphiCompile>
         </DelphiCompile>
         <DCCReference Include="Src\Shared.SafeDLLPath.pas"/>
         <DCCReference Include="Src\Shared.SafeDLLPath.pas"/>
         <DCCReference Include="Src\Setup.XPTheme.pas"/>
         <DCCReference Include="Src\Setup.XPTheme.pas"/>
-        <DCCReference Include="Src\Shared.Compress.pas"/>
-        <DCCReference Include="Src\SetupLdr.LZMA1SmallDecompressor.pas"/>
+        <DCCReference Include="Src\Compression.Base.pas"/>
+        <DCCReference Include="Src\Compression.LZMA1SmallDecompressor.pas"/>
         <DCCReference Include="Src\Shared.SetupEntFunc.pas"/>
         <DCCReference Include="Src\Shared.SetupEntFunc.pas"/>
         <DCCReference Include="..\Components\PathFunc.pas"/>
         <DCCReference Include="..\Components\PathFunc.pas"/>
         <DCCReference Include="Src\Shared.CommonFunc.pas"/>
         <DCCReference Include="Src\Shared.CommonFunc.pas"/>

+ 1 - 1
Projects/Src/Compiler.Compile.pas

@@ -33,7 +33,7 @@ uses
   Shared.PreprocInt, Commctrl, Consts, Classes, IniFiles, TypInfo, AnsiStrings, Math,
   Shared.PreprocInt, Commctrl, Consts, Classes, IniFiles, TypInfo, AnsiStrings, Math,
   Generics.Collections, StrUtils, WideStrUtils,
   Generics.Collections, StrUtils, WideStrUtils,
   PathFunc, Shared.CommonFunc, Shared.Struct, Shared.Int64Em, Compiler.Messages, Shared.SetupEntFunc,
   PathFunc, Shared.CommonFunc, Shared.Struct, Shared.Int64Em, Compiler.Messages, Shared.SetupEntFunc,
-  Shared.FileClass, Shared.Compress, Shared.Compress.Zlib, Shared.Compress.bzlib, Compiler.LZMACompressor, Shared.ArcFour, SHA1,
+  Shared.FileClass, Compression.Base, Compression.Zlib, Compression.bzlib, Compression.LZMACompressor, Shared.ArcFour, SHA1,
   Shared.SetupMessageIDs, Shared.SetupSectionDirectives, Shared.LangOptionsSectionDirectives, Shared.DebugStruct, Shared.VerInfoFunc, Shared.ResUpdateFunc, Compiler.ExeUpdateFunc,
   Shared.SetupMessageIDs, Shared.SetupSectionDirectives, Shared.LangOptionsSectionDirectives, Shared.DebugStruct, Shared.VerInfoFunc, Shared.ResUpdateFunc, Compiler.ExeUpdateFunc,
 {$IFDEF STATICPREPROC}
 {$IFDEF STATICPREPROC}
   IsppPreprocess,
   IsppPreprocess,

+ 1 - 1
Projects/Src/Shared.Compress.pas → Projects/Src/Compression.Base.pas

@@ -1,4 +1,4 @@
-unit Shared.Compress;
+unit Compression.Base;
 
 
 {
 {
   Inno Setup
   Inno Setup

+ 2 - 2
Projects/Src/SetupLdr.LZMA1SmallDecompressor.pas → Projects/Src/Compression.LZMA1SmallDecompressor.pas

@@ -1,4 +1,4 @@
-unit SetupLdr.LZMA1SmallDecompressor;
+unit Compression.LZMA1SmallDecompressor;
 
 
 {
 {
   Inno Setup
   Inno Setup
@@ -13,7 +13,7 @@ unit SetupLdr.LZMA1SmallDecompressor;
 interface
 interface
 
 
 uses
 uses
-  Windows, SysUtils, Shared.Compress, Shared.Int64Em;
+  Windows, SysUtils, Compression.Base, Shared.Int64Em;
 
 
 type
 type
   { Internally-used record }
   { Internally-used record }

+ 2 - 2
Projects/Src/Compiler.LZMACompressor.pas → Projects/Src/Compression.LZMACompressor.pas

@@ -1,4 +1,4 @@
-unit Compiler.LZMACompressor;
+unit Compression.LZMACompressor;
 
 
 {
 {
   Inno Setup
   Inno Setup
@@ -13,7 +13,7 @@ interface
 
 
 uses
 uses
   Windows, SysUtils,
   Windows, SysUtils,
-  Shared.Compress, Shared.Int64Em;
+  Compression.Base, Shared.Int64Em;
 
 
 function LZMAInitCompressFunctions(Module: HMODULE): Boolean;
 function LZMAInitCompressFunctions(Module: HMODULE): Boolean;
 function LZMAGetLevel(const Value: String; var Level: Integer): Boolean;
 function LZMAGetLevel(const Value: String; var Level: Integer): Boolean;

+ 2 - 2
Projects/Src/Setup.LZMADecompressor.pas → Projects/Src/Compression.LZMADecompressor.pas

@@ -1,4 +1,4 @@
-unit Setup.LZMADecompressor;
+unit Compression.LZMADecompressor;
 
 
 {
 {
   Inno Setup
   Inno Setup
@@ -13,7 +13,7 @@ unit Setup.LZMADecompressor;
 interface
 interface
 
 
 uses
 uses
-  Windows, SysUtils, Shared.Int64Em, Shared.Compress;
+  Windows, SysUtils, Shared.Int64Em, Compression.Base;
 
 
 type
 type
   TLZMACustomDecompressor = class(TCustomDecompressor)
   TLZMACustomDecompressor = class(TCustomDecompressor)

+ 2 - 2
Projects/Src/Shared.Compress.Zlib.pas → Projects/Src/Compression.Zlib.pas

@@ -1,4 +1,4 @@
-unit Shared.Compress.Zlib;
+unit Compression.Zlib;
 
 
 {
 {
   Inno Setup
   Inno Setup
@@ -12,7 +12,7 @@ unit Shared.Compress.Zlib;
 interface
 interface
 
 
 uses
 uses
-  Windows, SysUtils, Shared.Compress;
+  Windows, SysUtils, Compression.Base;
 
 
 function ZlibInitCompressFunctions(Module: HMODULE): Boolean;
 function ZlibInitCompressFunctions(Module: HMODULE): Boolean;
 function ZlibInitDecompressFunctions(Module: HMODULE): Boolean;
 function ZlibInitDecompressFunctions(Module: HMODULE): Boolean;

+ 2 - 2
Projects/Src/Shared.Compress.bzlib.pas → Projects/Src/Compression.bzlib.pas

@@ -1,4 +1,4 @@
-unit Shared.Compress.bzlib;
+unit Compression.bzlib;
 
 
 {
 {
   Inno Setup
   Inno Setup
@@ -12,7 +12,7 @@ unit Shared.Compress.bzlib;
 interface
 interface
 
 
 uses
 uses
-  Windows, SysUtils, Shared.Compress;
+  Windows, SysUtils, Compression.Base;
 
 
 function BZInitCompressFunctions(Module: HMODULE): Boolean;
 function BZInitCompressFunctions(Module: HMODULE): Boolean;
 function BZInitDecompressFunctions(Module: HMODULE): Boolean;
 function BZInitDecompressFunctions(Module: HMODULE): Boolean;

+ 3 - 3
Projects/Src/Setup.FileExtractor.pas

@@ -12,7 +12,7 @@ unit Setup.FileExtractor;
 interface
 interface
 
 
 uses
 uses
-  Windows, SysUtils, Shared.Int64Em, Shared.FileClass, Shared.Compress,
+  Windows, SysUtils, Shared.Int64Em, Shared.FileClass, Compression.Base,
   Shared.Struct, Shared.ArcFour;
   Shared.Struct, Shared.ArcFour;
 
 
 type
 type
@@ -51,8 +51,8 @@ implementation
 
 
 uses
 uses
   PathFunc, Shared.CommonFunc, Setup.MainForm, Setup.Messages, Shared.SetupMessageIDs,
   PathFunc, Shared.CommonFunc, Setup.MainForm, Setup.Messages, Shared.SetupMessageIDs,
-  Setup.InstFunc, Shared.Compress.Zlib, Shared.Compress.bzlib,
-  Setup.LZMADecompressor, SHA1, Setup.LoggingFunc, Setup.NewDiskForm;
+  Setup.InstFunc, Compression.Zlib, Compression.bzlib,
+  Compression.LZMADecompressor, SHA1, Setup.LoggingFunc, Setup.NewDiskForm;
 
 
 var
 var
   FFileExtractor: TFileExtractor;
   FFileExtractor: TFileExtractor;

+ 1 - 1
Projects/Src/Setup.Install.pas

@@ -31,7 +31,7 @@ uses
   Windows, SysUtils, Messages, Classes, Forms, ShlObj, Shared.Struct, Setup.UninstallLog, Shared.SetupTypes,
   Windows, SysUtils, Messages, Classes, Forms, ShlObj, Shared.Struct, Setup.UninstallLog, Shared.SetupTypes,
   Setup.InstFunc, Setup.InstFunc.Ole, Setup.SecurityFunc, Setup.Messages,
   Setup.InstFunc, Setup.InstFunc.Ole, Setup.SecurityFunc, Setup.Messages,
   Setup.MainForm, Setup.LoggingFunc, Setup.FileExtractor, Shared.FileClass,
   Setup.MainForm, Setup.LoggingFunc, Setup.FileExtractor, Shared.FileClass,
-  Shared.Compress, SHA1, PathFunc, Shared.CommonFunc.Vcl, Shared.CommonFunc, Setup.RedirFunc, Shared.Int64Em, Shared.SetupMessageIDs,
+  Compression.Base, SHA1, PathFunc, Shared.CommonFunc.Vcl, Shared.CommonFunc, Setup.RedirFunc, Shared.Int64Em, Shared.SetupMessageIDs,
   Setup.WizardForm, Shared.DebugStruct, Setup.DebugClient, Shared.VerInfoFunc, Setup.ScriptRunner, Setup.RegDLL, Setup.Helper,
   Setup.WizardForm, Shared.DebugStruct, Setup.DebugClient, Shared.VerInfoFunc, Setup.ScriptRunner, Setup.RegDLL, Setup.Helper,
   Shared.ResUpdateFunc, Setup.DotNetFunc, Shared.TaskbarProgressFunc, NewProgressBar, RestartManager,
   Shared.ResUpdateFunc, Setup.DotNetFunc, Shared.TaskbarProgressFunc, NewProgressBar, RestartManager,
   Net.HTTPClient, Net.URLClient, NetEncoding, RegStr;
   Net.HTTPClient, Net.URLClient, NetEncoding, RegStr;

+ 1 - 1
Projects/Src/Setup.MainForm.pas

@@ -268,7 +268,7 @@ implementation
 uses
 uses
   ShellAPI, ShlObj, StrUtils,
   ShellAPI, ShlObj, StrUtils,
   Setup.Messages, Shared.SetupMessageIDs, Setup.Install, Setup.InstFunc, Setup.InstFunc.Ole, Setup.RedirFunc, PathFunc,
   Setup.Messages, Shared.SetupMessageIDs, Setup.Install, Setup.InstFunc, Setup.InstFunc.Ole, Setup.RedirFunc, PathFunc,
-  Shared.Compress, Shared.Compress.Zlib, Shared.Compress.bzlib, Setup.LZMADecompressor, Shared.ArcFour, Shared.SetupEntFunc, Setup.SelectLanguageForm,
+  Compression.Base, Compression.Zlib, Compression.bzlib, Compression.LZMADecompressor, Shared.ArcFour, Shared.SetupEntFunc, Setup.SelectLanguageForm,
   Setup.WizardForm, Setup.DebugClient, Shared.VerInfoFunc, Setup.FileExtractor, Shared.FileClass, Setup.LoggingFunc, MD5, SHA1, ActiveX,
   Setup.WizardForm, Setup.DebugClient, Shared.VerInfoFunc, Setup.FileExtractor, Shared.FileClass, Setup.LoggingFunc, MD5, SHA1, ActiveX,
   Shared.SimpleExpression, Setup.Helper, Setup.SpawnClient, Setup.SpawnServer, Setup.DotNetFunc, BitmapImage,
   Shared.SimpleExpression, Setup.Helper, Setup.SpawnClient, Setup.SpawnServer, Setup.DotNetFunc, BitmapImage,
   Shared.TaskDialogFunc, RegStr;
   Shared.TaskDialogFunc, RegStr;

+ 1 - 1
Projects/Src/Setup.Messages.pas

@@ -51,7 +51,7 @@ const
 implementation
 implementation
 
 
 uses
 uses
-  Windows, SysUtils, Shared.Compress, Shared.CommonFunc, Shared.FileClass;
+  Windows, SysUtils, Compression.Base, Shared.CommonFunc, Shared.FileClass;
 
 
 const
 const
   SMsgsFileTooLarge = 'Internal error: Messages file is too large';
   SMsgsFileTooLarge = 'Internal error: Messages file is too large';

+ 1 - 1
Projects/Src/Setup.UninstallLog.pas

@@ -156,7 +156,7 @@ implementation
 uses
 uses
   Messages, ShlObj, AnsiStrings,
   Messages, ShlObj, AnsiStrings,
   PathFunc, Shared.Struct, Setup.Messages, Shared.SetupMessageIDs, Setup.InstFunc,
   PathFunc, Shared.Struct, Setup.Messages, Shared.SetupMessageIDs, Setup.InstFunc,
-  Setup.InstFunc.Ole, Setup.RedirFunc, Shared.Compress,
+  Setup.InstFunc.Ole, Setup.RedirFunc, Compression.Base,
   Setup.LoggingFunc, Setup.RegDLL, Setup.Helper, Setup.DotNetFunc;
   Setup.LoggingFunc, Setup.RegDLL, Setup.Helper, Setup.DotNetFunc;
 
 
 type
 type

+ 1 - 1
Projects/Src/SetupLdr/LzmaDecode/LzmaDecodeInno.c

@@ -1,6 +1,6 @@
 /*
 /*
   LzmaDecodeInno.c = LzmaDecodeSize.c + additional helper functions used by
   LzmaDecodeInno.c = LzmaDecodeSize.c + additional helper functions used by
-  Inno Setup's SetupLdr.LZMA1SmallDecompressor.pas
+  Inno Setup's Compression.LZMA1SmallDecompressor.pas
 */
 */
 
 
 #include "LzmaDecodeSize.c"
 #include "LzmaDecodeSize.c"

+ 1 - 1
Projects/Src/Shared.SetupEntFunc.pas

@@ -12,7 +12,7 @@ unit Shared.SetupEntFunc;
 interface
 interface
 
 
 uses
 uses
-  Shared.Compress;
+  Compression.Base;
 
 
 procedure SEFreeRec(const P: Pointer; const NumStrings, NumAnsiStrings: Integer);
 procedure SEFreeRec(const P: Pointer; const NumStrings, NumAnsiStrings: Integer);
 procedure SEDuplicateRec(OldP, NewP: Pointer; Bytes: Cardinal;
 procedure SEDuplicateRec(OldP, NewP: Pointer; Bytes: Cardinal;