mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-02 09:59:44 +01:00
chmreader package: made all units virtual, because they are part of fpc 2.2.2 now. The package may be removed completely (maybe), if it doesn't register anything
git-svn-id: trunk@16490 -
This commit is contained in:
vincents
parent
3cc36950ac
commit
c17fd46445
3
.gitattributes
vendored
3
.gitattributes
vendored
@ -54,11 +54,8 @@ components/chmhelp/lhelp/lhelpcore.lfm svneol=native#text/plain
|
||||
components/chmhelp/lhelp/lhelpcore.lrs svneol=native#text/plain
|
||||
components/chmhelp/lhelp/lhelpcore.pas svneol=native#text/plain
|
||||
components/chmhelp/lhelp/lnethttpdataprovider.pas svneol=native#text/plain
|
||||
components/chmhelp/packages/chm/chmbase.pas svneol=native#text/plain
|
||||
components/chmhelp/packages/chm/chmpkg.lpk svneol=native#text/plain
|
||||
components/chmhelp/packages/chm/chmpkg.pas svneol=native#text/plain
|
||||
components/chmhelp/packages/chm/chmreader.pas svneol=native#text/plain
|
||||
components/chmhelp/packages/chm/paslzx.pas svneol=native#text/plain
|
||||
components/chmhelp/packages/help/lhelpcontrol.pas svneol=native#text/plain
|
||||
components/chmhelp/packages/help/lhelpcontrolpkg.lpk svneol=native#text/plain
|
||||
components/chmhelp/packages/help/lhelpcontrolpkg.pas svneol=native#text/plain
|
||||
|
||||
@ -1,203 +0,0 @@
|
||||
{ Copyright (C) <2005> <Andrew Haines> chmbase.pas
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it
|
||||
under the terms of the GNU Library General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or (at your
|
||||
option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful, but WITHOUT
|
||||
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
|
||||
for more details.
|
||||
|
||||
You should have received a copy of the GNU Library General Public License
|
||||
along with this library; if not, write to the Free Software Foundation,
|
||||
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
}
|
||||
{
|
||||
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
||||
for details about the copyright.
|
||||
}
|
||||
unit chmbase;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
type
|
||||
{$PACKRECORDS C}
|
||||
TITSFHeader= record
|
||||
ITSFsig: array [0..3] of char;
|
||||
Version: LongWord;
|
||||
HeaderLength: LongWord;
|
||||
Unknown_1: LongWord;
|
||||
TimeStamp: LongWord; //bigendian
|
||||
LanguageID: LongWord;
|
||||
Guid1: TGuid;
|
||||
Guid2: TGuid;
|
||||
end;
|
||||
TITSFHeaderEntry = record
|
||||
PosFromZero: QWord;
|
||||
Length: QWord;
|
||||
end;
|
||||
|
||||
//Version 3 has this qword. 2 does not
|
||||
TITSFHeaderSuffix = record
|
||||
Offset: QWord; // offset within file of content section 0
|
||||
end;
|
||||
|
||||
TITSPHeaderPrefix = record
|
||||
Unknown1: LongWord;// = $01FE
|
||||
Unknown2: LongWord;// = 0
|
||||
FileSize: QWord;
|
||||
Unknown3: LongWord;// =0
|
||||
Unknown4: LongWord;// =0
|
||||
end;
|
||||
|
||||
TITSPHeader = record
|
||||
ITSPsig: array [0..3] of char; // = 'ITSP'
|
||||
Version: LongWord; // =1
|
||||
DirHeaderLength: Longword; // Length of the directory header
|
||||
Unknown1: LongWord; // =$0a
|
||||
ChunkSize: LongWord; // $1000
|
||||
Density: LongWord; // usually = 2
|
||||
IndexTreeDepth: LongWord;// 1 if there is no index 2 if there is one level of PMGI chunks
|
||||
IndexOfRootChunk: LongInt;// -1 if no root chunk
|
||||
FirstPMGLChunkIndex,
|
||||
LastPMGLChunkIndex: LongWord;
|
||||
Unknown2: LongInt; // = -1
|
||||
DirectoryChunkCount: LongWord;
|
||||
LanguageID: LongWord;
|
||||
GUID: TGuid;
|
||||
LengthAgain: LongWord; //??? $54
|
||||
Unknown3: LongInt; // = -1
|
||||
Unknown4: LongInt; // = -1
|
||||
Unknown5: LongInt; // = -1
|
||||
end;
|
||||
|
||||
TPMGchunktype = (ctPMGL, ctPMGI, ctUnknown);
|
||||
|
||||
TPMGListChunk = record
|
||||
PMGLsig: array [0..3] of char;
|
||||
UnusedSpace: Longword; ///!!! this value can also represent the size of quickref area in the end of the chunk
|
||||
Unknown1: Longword; //always 0
|
||||
PreviousChunkIndex: LongInt; // chunk number of the prev listing chunk when reading dir in sequence
|
||||
// (-1 if this is the first listing chunk)
|
||||
NextChunkIndex: LongInt; // chunk number of the next listing chunk (-1 if this is the last chunk)
|
||||
end;
|
||||
|
||||
PPMGListChunkEntry = ^TPMGListChunkEntry;
|
||||
TPMGListChunkEntry = record
|
||||
//NameLength: LongInt; we don't need this permanantly so I've moved it to a temp var
|
||||
Name: String;
|
||||
ContentSection: LongWord;//QWord;
|
||||
ContentOffset: QWord;
|
||||
DecompressedLength: QWord;
|
||||
end;
|
||||
|
||||
TPMGIIndexChunk = record
|
||||
PMGIsig: array [0..3] of char;
|
||||
UnusedSpace: LongWord; // has a quickref area
|
||||
end;
|
||||
|
||||
TPMGIIndexChunkEntry = record
|
||||
Name: String;
|
||||
ListingChunk: DWord;
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
ITSFHeaderGUID : TGuid = '{7C01FD10-7BAA-11D0-9E0C-00A0C922E6EC}';
|
||||
ITSFFileSig: array [0..3] of char = 'ITSF';
|
||||
|
||||
ITSPHeaderGUID : TGuid = '{5D02926A-212E-11D0-9DF9-00A0C922E6EC}';
|
||||
ITSPHeaderSig: array [0..3] of char = 'ITSP';
|
||||
|
||||
// this function will advance the stream to the end of the compressed integer
|
||||
// and return the value
|
||||
function GetCompressedInteger(const Stream: TStream): DWord;
|
||||
// returns the number of bytes written to the stream
|
||||
function WriteCompressedInteger(const Stream: TStream; ANumber: DWord): DWord;
|
||||
function WriteCompressedInteger(Buffer: Pointer; ANumber: DWord): DWord;
|
||||
|
||||
// stupid needed function
|
||||
function ChmCompareText(S1, S2: String): Integer; inline;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
function GetCompressedInteger(const Stream: TStream): DWord;
|
||||
var
|
||||
total: QWord = 0;
|
||||
temp: Byte;
|
||||
Sanity: Integer = 0;
|
||||
begin
|
||||
try
|
||||
temp := Stream.ReadByte;
|
||||
while temp >= $80 do begin
|
||||
total := total shl 7;
|
||||
total := total + temp and $7f;
|
||||
temp := Stream.ReadByte;
|
||||
Inc(Sanity);
|
||||
if Sanity > 8 then begin
|
||||
Result := 0;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
Result := (total shl 7) + temp;
|
||||
except
|
||||
Result := 0;
|
||||
end;
|
||||
end;
|
||||
|
||||
// returns how many bytes were written
|
||||
function WriteCompressedInteger(const Stream: TStream; ANumber: DWord): DWord;
|
||||
var
|
||||
Buffer: QWord; // Easily large enough
|
||||
begin
|
||||
Result := WriteCompressedInteger(@Buffer, ANumber);
|
||||
Result := Stream.Write(Buffer, Result);
|
||||
end;
|
||||
|
||||
// returns how many bytes were written
|
||||
function WriteCompressedInteger(Buffer: Pointer; ANumber: DWord): DWord;
|
||||
var
|
||||
bit: dword;
|
||||
mask: QWord;
|
||||
buf: PByte;
|
||||
Value: DWord = 0;
|
||||
TheEnd: DWord = 0;
|
||||
begin
|
||||
bit := (sizeof(DWord)*8)div 7*7;
|
||||
buf := @Value;
|
||||
while True do begin
|
||||
mask := $7f shl bit;
|
||||
if (bit = 0) or ((ANumber and mask)<>0) then break;
|
||||
Dec(bit, 7);
|
||||
end;
|
||||
|
||||
while True do begin
|
||||
buf^ := Byte(((ANumber shr bit)and $7f));
|
||||
if(bit = 0) then break;
|
||||
buf^ := buf^ or $80;
|
||||
Inc(buf);
|
||||
Dec(bit, 7);
|
||||
Inc(TheEnd);
|
||||
end;
|
||||
|
||||
buf := @Value;
|
||||
Result := TheEnd+1;
|
||||
Move(Value, Buffer^, Result);
|
||||
end;
|
||||
|
||||
function ChmCompareText(S1, S2: String): Integer; inline;
|
||||
begin
|
||||
// for our purposes the CompareText function will not work.
|
||||
Result := CompareStr(LowerCase(S1), Lowercase(S2));
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -1,15 +1,14 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<Package Version="3">
|
||||
<PathDelim Value="\"/>
|
||||
<Name Value="chmpkg"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/$(LCLWidgetType)"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\$(LCLWidgetType)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
@ -20,14 +19,17 @@
|
||||
<Files Count="3">
|
||||
<Item1>
|
||||
<Filename Value="chmbase.pas"/>
|
||||
<Type Value="Virtual Unit"/>
|
||||
<UnitName Value="chmbase"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Filename Value="chmreader.pas"/>
|
||||
<Type Value="Virtual Unit"/>
|
||||
<UnitName Value="chmreader"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Filename Value="paslzx.pas"/>
|
||||
<Type Value="Virtual Unit"/>
|
||||
<UnitName Value="paslzx"/>
|
||||
</Item3>
|
||||
</Files>
|
||||
@ -42,10 +44,11 @@
|
||||
</Item2>
|
||||
</RequiredPkgs>
|
||||
<UsageOptions>
|
||||
<UnitPath Value="$(PkgOutDir)/"/>
|
||||
<UnitPath Value="$(PkgOutDir)\"/>
|
||||
</UsageOptions>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
</PublishOptions>
|
||||
</Package>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user