mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 12:26:02 +02:00
* added basic reading for ms help 2 the successor to chm
git-svn-id: trunk@15548 -
This commit is contained in:
andrew
parent
a0f62a1336
commit
ab10e35fd5
3
.gitattributes
vendored
3
.gitattributes
vendored
@ -998,6 +998,9 @@ packages/chm/src/chmwriter.pas svneol=native#text/plain
|
|||||||
packages/chm/src/fasthtmlparser.pas svneol=native#text/plain
|
packages/chm/src/fasthtmlparser.pas svneol=native#text/plain
|
||||||
packages/chm/src/htmlindexer.pas svneol=native#text/plain
|
packages/chm/src/htmlindexer.pas svneol=native#text/plain
|
||||||
packages/chm/src/htmlutil.pas svneol=native#text/plain
|
packages/chm/src/htmlutil.pas svneol=native#text/plain
|
||||||
|
packages/chm/src/itolitlsreader.pas svneol=native#text/plain
|
||||||
|
packages/chm/src/itolitlstypes.pas svneol=native#text/plain
|
||||||
|
packages/chm/src/itsftransform.pas svneol=native#text/plain
|
||||||
packages/chm/src/lzxcompressthread.pas svneol=native#text/plain
|
packages/chm/src/lzxcompressthread.pas svneol=native#text/plain
|
||||||
packages/chm/src/paslznonslide.pas svneol=native#text/plain
|
packages/chm/src/paslznonslide.pas svneol=native#text/plain
|
||||||
packages/chm/src/paslzx.pas svneol=native#text/plain
|
packages/chm/src/paslzx.pas svneol=native#text/plain
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
#
|
#
|
||||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2010/05/27]
|
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2010/07/11]
|
||||||
#
|
#
|
||||||
default: all
|
default: all
|
||||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian i386-nativent m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-solaris x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded mipsel-linux
|
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian i386-nativent m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-solaris x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded mipsel-linux
|
||||||
@ -450,187 +450,187 @@ ifeq ($(FULL_TARGET),mipsel-linux)
|
|||||||
override TARGET_PROGRAMS+=chmcmd chmls
|
override TARGET_PROGRAMS+=chmcmd chmls
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-linux)
|
ifeq ($(FULL_TARGET),i386-linux)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-go32v2)
|
ifeq ($(FULL_TARGET),i386-go32v2)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-win32)
|
ifeq ($(FULL_TARGET),i386-win32)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-os2)
|
ifeq ($(FULL_TARGET),i386-os2)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-freebsd)
|
ifeq ($(FULL_TARGET),i386-freebsd)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-beos)
|
ifeq ($(FULL_TARGET),i386-beos)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-haiku)
|
ifeq ($(FULL_TARGET),i386-haiku)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-netbsd)
|
ifeq ($(FULL_TARGET),i386-netbsd)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-solaris)
|
ifeq ($(FULL_TARGET),i386-solaris)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-qnx)
|
ifeq ($(FULL_TARGET),i386-qnx)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-netware)
|
ifeq ($(FULL_TARGET),i386-netware)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-openbsd)
|
ifeq ($(FULL_TARGET),i386-openbsd)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-wdosx)
|
ifeq ($(FULL_TARGET),i386-wdosx)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-darwin)
|
ifeq ($(FULL_TARGET),i386-darwin)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-emx)
|
ifeq ($(FULL_TARGET),i386-emx)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-watcom)
|
ifeq ($(FULL_TARGET),i386-watcom)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-wince)
|
ifeq ($(FULL_TARGET),i386-wince)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-embedded)
|
ifeq ($(FULL_TARGET),i386-embedded)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-symbian)
|
ifeq ($(FULL_TARGET),i386-symbian)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),i386-nativent)
|
ifeq ($(FULL_TARGET),i386-nativent)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),m68k-linux)
|
ifeq ($(FULL_TARGET),m68k-linux)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),m68k-freebsd)
|
ifeq ($(FULL_TARGET),m68k-freebsd)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),m68k-netbsd)
|
ifeq ($(FULL_TARGET),m68k-netbsd)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),m68k-amiga)
|
ifeq ($(FULL_TARGET),m68k-amiga)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),m68k-atari)
|
ifeq ($(FULL_TARGET),m68k-atari)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),m68k-openbsd)
|
ifeq ($(FULL_TARGET),m68k-openbsd)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),m68k-palmos)
|
ifeq ($(FULL_TARGET),m68k-palmos)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),m68k-embedded)
|
ifeq ($(FULL_TARGET),m68k-embedded)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),powerpc-linux)
|
ifeq ($(FULL_TARGET),powerpc-linux)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),powerpc-netbsd)
|
ifeq ($(FULL_TARGET),powerpc-netbsd)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),powerpc-amiga)
|
ifeq ($(FULL_TARGET),powerpc-amiga)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),powerpc-macos)
|
ifeq ($(FULL_TARGET),powerpc-macos)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),powerpc-darwin)
|
ifeq ($(FULL_TARGET),powerpc-darwin)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),powerpc-morphos)
|
ifeq ($(FULL_TARGET),powerpc-morphos)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),powerpc-embedded)
|
ifeq ($(FULL_TARGET),powerpc-embedded)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),sparc-linux)
|
ifeq ($(FULL_TARGET),sparc-linux)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),sparc-netbsd)
|
ifeq ($(FULL_TARGET),sparc-netbsd)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),sparc-solaris)
|
ifeq ($(FULL_TARGET),sparc-solaris)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),sparc-embedded)
|
ifeq ($(FULL_TARGET),sparc-embedded)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),x86_64-linux)
|
ifeq ($(FULL_TARGET),x86_64-linux)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),x86_64-solaris)
|
ifeq ($(FULL_TARGET),x86_64-solaris)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),x86_64-darwin)
|
ifeq ($(FULL_TARGET),x86_64-darwin)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),x86_64-embedded)
|
ifeq ($(FULL_TARGET),x86_64-embedded)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),arm-linux)
|
ifeq ($(FULL_TARGET),arm-linux)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),arm-palmos)
|
ifeq ($(FULL_TARGET),arm-palmos)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),arm-darwin)
|
ifeq ($(FULL_TARGET),arm-darwin)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),arm-wince)
|
ifeq ($(FULL_TARGET),arm-wince)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),arm-gba)
|
ifeq ($(FULL_TARGET),arm-gba)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),arm-nds)
|
ifeq ($(FULL_TARGET),arm-nds)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),arm-embedded)
|
ifeq ($(FULL_TARGET),arm-embedded)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),arm-symbian)
|
ifeq ($(FULL_TARGET),arm-symbian)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),powerpc64-linux)
|
ifeq ($(FULL_TARGET),powerpc64-linux)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),powerpc64-darwin)
|
ifeq ($(FULL_TARGET),powerpc64-darwin)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),powerpc64-embedded)
|
ifeq ($(FULL_TARGET),powerpc64-embedded)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),avr-embedded)
|
ifeq ($(FULL_TARGET),avr-embedded)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),armeb-linux)
|
ifeq ($(FULL_TARGET),armeb-linux)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),armeb-embedded)
|
ifeq ($(FULL_TARGET),armeb-embedded)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
ifeq ($(FULL_TARGET),mipsel-linux)
|
ifeq ($(FULL_TARGET),mipsel-linux)
|
||||||
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread
|
override TARGET_UNITS+=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
endif
|
endif
|
||||||
override INSTALL_FPCPACKAGE=y
|
override INSTALL_FPCPACKAGE=y
|
||||||
ifeq ($(FULL_TARGET),i386-linux)
|
ifeq ($(FULL_TARGET),i386-linux)
|
||||||
|
|||||||
@ -9,7 +9,7 @@ version=2.5.1
|
|||||||
[target]
|
[target]
|
||||||
units=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes \
|
units=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes \
|
||||||
chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer \
|
chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer \
|
||||||
chmfiftimain lzxcompressthread
|
chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||||
programs=chmcmd chmls
|
programs=chmcmd chmls
|
||||||
programs_win32=unblockchm
|
programs_win32=unblockchm
|
||||||
programs_win64=unblockchm
|
programs_win64=unblockchm
|
||||||
@ -35,4 +35,4 @@ cdmcmd$(EXEEXT): chmcmd.lpr
|
|||||||
|
|
||||||
chmls$(EXEEXT): chmls.lpr
|
chmls$(EXEEXT): chmls.lpr
|
||||||
|
|
||||||
unblockchm$(EXEEXT): unblockchm.pp
|
unblockchm$(EXEEXT): unblockchm.pp
|
||||||
|
|||||||
@ -93,6 +93,22 @@ begin
|
|||||||
begin
|
begin
|
||||||
AddUnit('htmlindexer');
|
AddUnit('htmlindexer');
|
||||||
end;
|
end;
|
||||||
|
T:=P.Targets.AddUnit('itolitlstypes.pas');
|
||||||
|
T:=P.Targets.AddUnit('itsftransform.pas');
|
||||||
|
with T.Dependencies do
|
||||||
|
begin
|
||||||
|
AddUnit('itolitlstypes');
|
||||||
|
AddUnit('paslzx');
|
||||||
|
end;
|
||||||
|
T:=P.Targets.AddUnit('itolitlsreader.pas');
|
||||||
|
with T.Dependencies do
|
||||||
|
begin //chmreader, itolitlstypes, Sysutils, chmbase, itsftransform;
|
||||||
|
AddUnit('chmbase');
|
||||||
|
AddUnit('chmreader');
|
||||||
|
AddUnit('itolitlstypes');
|
||||||
|
AddUnit('itsftransform');
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
// P.ProgramPath.Add('src');
|
// P.ProgramPath.Add('src');
|
||||||
T:=P.Targets.AddProgram('chmls.lpr');
|
T:=P.Targets.AddProgram('chmls.lpr');
|
||||||
|
|||||||
508
packages/chm/src/itolitlsreader.pas
Normal file
508
packages/chm/src/itolitlsreader.pas
Normal file
@ -0,0 +1,508 @@
|
|||||||
|
{ Copyright (C) <2009> <Andrew Haines> itloitlsreader.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, included in this distribution,
|
||||||
|
for details about the copyright.
|
||||||
|
}
|
||||||
|
unit ITOLITLSReader;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
{ $DEFINE DEBUG_HELP2}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, chmreader, itolitlstypes, Sysutils, chmbase, itsftransform;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TITOLITLSReader }
|
||||||
|
|
||||||
|
TITOLITLSReader = class(TITSFReader)
|
||||||
|
private
|
||||||
|
FStartStreamPos: QWord; // used when the data we are reading is part of a larger file
|
||||||
|
SectionNames: TStringList;
|
||||||
|
function GetStreamPos: Qword;
|
||||||
|
procedure SetStreamPos(const AValue: Qword);
|
||||||
|
|
||||||
|
private
|
||||||
|
Header: TITOLITLSHeader;
|
||||||
|
HeaderSectionTable: array of TITOLITLSHeaderSectionEntry;
|
||||||
|
PostHeader: TITOLITLSPostHeader;
|
||||||
|
CAOLHeader: TCAOLRec;
|
||||||
|
function FileSize: QWord;
|
||||||
|
function GetChunkType(AStream: TStream): TDirChunkType;
|
||||||
|
function GetTransform(const AGuid: TGuid): TITSFTransform;
|
||||||
|
procedure ReadHeader; override;
|
||||||
|
procedure ReadHeaderEntries; override;
|
||||||
|
function GetTransforms(ASectionPrefix: String): TITSFTransformList;
|
||||||
|
|
||||||
|
property StreamPos: Qword read GetStreamPos write SetStreamPos;
|
||||||
|
public
|
||||||
|
constructor Create(AStream: TStream; FreeStreamOnDestroy: Boolean); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure GetCompleteFileList(ForEach: TFileEntryForEach; AIncludeInternalFiles: Boolean = True); override;
|
||||||
|
function ObjectExists(Name: String): QWord; override;
|
||||||
|
function GetObject(Name: String): TMemoryStream; override;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TStreamChunk }
|
||||||
|
|
||||||
|
TStreamChunk = class(TStream)
|
||||||
|
private
|
||||||
|
FStream: TStream;
|
||||||
|
FSize: QWord;
|
||||||
|
FBasePos: QWord;
|
||||||
|
FPos: QWord;
|
||||||
|
public
|
||||||
|
Function GetSize : Int64; Override;
|
||||||
|
function Read(var Buffer; Count: Longint): Longint; override;
|
||||||
|
function Seek(Offset: Longint; Origin: Word): Longint; override;
|
||||||
|
constructor Create(AHostStream: TStream; ABasePos, ASize: QWord);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TStreamChunk }
|
||||||
|
|
||||||
|
function TStreamChunk.GetSize: Int64;
|
||||||
|
begin
|
||||||
|
Result:=FSize;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TStreamChunk.Read(var Buffer; Count: Longint): Longint;
|
||||||
|
begin
|
||||||
|
FStream.Seek(FBasePos+FPos, soFromBeginning);
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
//WriteLn('Want Read Count: ', Count,' Pos = ', FPos);
|
||||||
|
//if FSize - FPos < Count then
|
||||||
|
// Count := FSize - FPos;
|
||||||
|
{$ENDIF}
|
||||||
|
Result := FStream.Read(Buffer, Count);
|
||||||
|
Inc(FPos, Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TStreamChunk.Seek(Offset: Longint; Origin: Word): Longint;
|
||||||
|
var
|
||||||
|
NewPosition: LongInt;
|
||||||
|
begin
|
||||||
|
Case Origin of
|
||||||
|
soFromBeginning : NewPosition:=Offset;
|
||||||
|
soFromEnd : NewPosition:=FSize+Offset;
|
||||||
|
soFromCurrent : NewPosition:=NewPosition+Offset;
|
||||||
|
end;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
//WriteLn('WantSeek = ', Offset,' Size = ', FSize);
|
||||||
|
{$ENDIF}
|
||||||
|
FPos:=NewPosition;
|
||||||
|
Exit(NewPosition);
|
||||||
|
if NewPosition < 0 then NewPosition := 0;
|
||||||
|
if NewPosition >= FSize then NewPosition := FSize-1;
|
||||||
|
FStream.Position := FBasePos+NewPosition;
|
||||||
|
Result := FStream.Position - FBasePos;
|
||||||
|
FPos := Result;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
//WriteLn('Pos = ', fpos);
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TStreamChunk.Create(AHostStream: TStream; ABasePos, ASize: QWord);
|
||||||
|
begin
|
||||||
|
FStream := AHostStream;
|
||||||
|
FBasePos := ABasePos;
|
||||||
|
FSize := ASize;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
//WriteLn('Created Size = ', FSize, ' Offset = ', ABasePos);
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
{ TITOLITLSReader }
|
||||||
|
|
||||||
|
function TITOLITLSReader.GetStreamPos: Qword;
|
||||||
|
begin
|
||||||
|
Result := fStream.Position-FStartStreamPos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TITOLITLSReader.SetStreamPos(const AValue: Qword);
|
||||||
|
begin
|
||||||
|
fStream.Position:=FStartStreamPos+AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TITOLITLSReader.FileSize: QWord;
|
||||||
|
begin
|
||||||
|
fStream.Position:=LEtoN(HeaderSectionTable[0].OffSet)+8;
|
||||||
|
fStream.Read(Result, 8);
|
||||||
|
Result := LEtoN(Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TITOLITLSReader.GetChunkType(AStream: TStream): TDirChunkType;
|
||||||
|
var
|
||||||
|
Sig: TSig;
|
||||||
|
begin
|
||||||
|
AStream.Read(Sig, 4);
|
||||||
|
if Sig = 'PMGL' then Result := ctPMGL
|
||||||
|
else if Sig = 'PMGI' then Result := ctPMGI
|
||||||
|
else if Sig = 'AOLL' then Result := ctAOLL
|
||||||
|
else if Sig = 'AOLI' then Result := ctAOLI;
|
||||||
|
AStream.Seek(-4,soFromCurrent);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TITOLITLSReader.GetTransform(const AGuid: TGuid): TITSFTransform;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TITOLITLSReader.ReadHeader;
|
||||||
|
var
|
||||||
|
CachedPos: QWord;
|
||||||
|
SectionName: string;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn(ClassName);
|
||||||
|
{$ENDIF}
|
||||||
|
fStream.Read(Header, SizeOf(TITOLITLSHeader));
|
||||||
|
if not((Header.Sig[0] = 'ITOL') and (Header.Sig[1] = 'ITLS')) then
|
||||||
|
Exit;
|
||||||
|
ReadHeaderEntries;
|
||||||
|
CachedPos := StreamPos;
|
||||||
|
fStream.Read(PostHeader, Sizeof(TITOLITLSPostHeader));
|
||||||
|
StreamPos := CachedPos + PostHeader.CAOLOffset;
|
||||||
|
fStream.Read(CAOLHeader, SizeOf(TCAOLRec));
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn(CAOLHeader.ITSFHeader.ITSFsig);
|
||||||
|
{$ENDIF}
|
||||||
|
GetSections(SectionNames);
|
||||||
|
for i := 1 to SectionNames.Count-1 do
|
||||||
|
begin
|
||||||
|
FmtStr(SectionName, '::DataSpace/Storage/%s/',[SectionNames[i]]);
|
||||||
|
SectionNames.Objects[i] := GetTransforms(SectionName);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TITOLITLSReader.ReadHeaderEntries;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
StreamPos := Header.HeaderSectionTableOffset;
|
||||||
|
SetLength(HeaderSectionTable, Header.HeaderSectionEntryCount);
|
||||||
|
for i := 0 to Header.HeaderSectionEntryCount -1 do
|
||||||
|
begin
|
||||||
|
fStream.Read(HeaderSectionTable[i], SizeOf(TITOLITLSHeaderSectionEntry));
|
||||||
|
HeaderSectionTable[i].OffSet:= LEtoN(HeaderSectionTable[i].OffSet);
|
||||||
|
HeaderSectionTable[i].Length:= LEtoN(HeaderSectionTable[i].Length);
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
//WriteLn('Entry #',i,' Offset = ',Entry.OffSet,' Length = ',Entry.Length);
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TITOLITLSReader.GetTransforms(ASectionPrefix: String): TITSFTransformList;
|
||||||
|
var
|
||||||
|
Stream: TMemoryStream;
|
||||||
|
Guid: TGuid;
|
||||||
|
GCount: Integer;
|
||||||
|
Transform: TITSFTransform;
|
||||||
|
TransformClass: TITSFTransformClass = nil;
|
||||||
|
Idx: Integer;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
Stream := GetObject(ASectionPrefix+'Transform/List');
|
||||||
|
if Stream = nil then
|
||||||
|
begin
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
//WriteLn(ASectionPrefix+'Transform/List doesnt exist!');
|
||||||
|
{$ENDIF}
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Result := TITSFTransformList.Create;
|
||||||
|
|
||||||
|
FillChar(Guid, SizeOf(Guid), 0);
|
||||||
|
TransformClass := RegisteredTransforms.Transform[Guid];
|
||||||
|
Idx := Result.AddTransform(TransformClass);
|
||||||
|
Transform := TransformClass.Create(@Self.GetObject, nil);
|
||||||
|
Result.TransformInstance[Idx] := Transform;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('Sec: ', ASectionPrefix, ' Transform Add ', Transform.ClassName);
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
GCount := Stream.Size div SizeOf(TGuid);
|
||||||
|
while GCount > 0 do
|
||||||
|
begin
|
||||||
|
Dec(GCount);
|
||||||
|
Stream.Read(Guid, 16);
|
||||||
|
TransformClass := RegisteredTransforms.Transform[Guid];
|
||||||
|
Idx := Result.AddTransform(TransformClass);
|
||||||
|
Transform := TransformClass.Create(@Self.GetObject, Transform);
|
||||||
|
Result.TransformInstance[Idx] := Transform;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('Sec: ', ASectionPrefix, ' Transform Add ', Transform.ClassName);
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
Stream.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TITOLITLSReader.Create(AStream: TStream;
|
||||||
|
FreeStreamOnDestroy: Boolean);
|
||||||
|
begin
|
||||||
|
inherited Create(AStream, FreeStreamOnDestroy);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TITOLITLSReader.Destroy;
|
||||||
|
begin
|
||||||
|
if SectionNames<> nil then
|
||||||
|
begin
|
||||||
|
while SectionNames.Count > 0 do
|
||||||
|
begin
|
||||||
|
if SectionNames.Objects[SectionNames.Count-1] <> nil then
|
||||||
|
SectionNames.Objects[SectionNames.Count-1].Free;
|
||||||
|
SectionNames.Delete(SectionNames.Count-1);
|
||||||
|
end;
|
||||||
|
SectionNames.Free;
|
||||||
|
end;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ReadEntry(AStream: TStream): TPMGListChunkEntry;
|
||||||
|
var
|
||||||
|
NameLength: LongInt;
|
||||||
|
begin
|
||||||
|
NameLength:=GetCompressedInteger(AStream);
|
||||||
|
SetLength(Result.Name, NameLength);
|
||||||
|
AStream.Read(Result.Name[1], NameLength);
|
||||||
|
Result.ContentSection:= GetCompressedInteger(AStream);
|
||||||
|
Result.ContentOffset:= GetCompressedInteger(AStream);
|
||||||
|
Result.DecompressedLength:= GetCompressedInteger(AStream);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TITOLITLSReader.GetCompleteFileList(ForEach: TFileEntryForEach; AIncludeInternalFiles: Boolean = True);
|
||||||
|
var
|
||||||
|
SecOffset: QWord;
|
||||||
|
IFCM: TIFCMRec;
|
||||||
|
ChunkType: TDirChunkType;
|
||||||
|
Chunk: TMemoryStream;
|
||||||
|
i, j: Integer;
|
||||||
|
AOLL: TAOLLChunkHeader;
|
||||||
|
AOLI: TAOLIChunkHeader;
|
||||||
|
Entry: TPMGListChunkEntry;// not really a PMGL entry but the members are the same
|
||||||
|
NameLength: LongInt;
|
||||||
|
EntryCount: Word;
|
||||||
|
begin
|
||||||
|
StreamPos:=HeaderSectionTable[1].OffSet;
|
||||||
|
fStream.Read(IFCM, SizeOf(IFCM));
|
||||||
|
|
||||||
|
for i := 0 to IFCM.ChunkCount-1 do
|
||||||
|
begin
|
||||||
|
Chunk:= TMemoryStream.Create;
|
||||||
|
Chunk.CopyFrom(fStream, IFCM.ChunkSize);
|
||||||
|
Chunk.Position:=0;
|
||||||
|
|
||||||
|
ChunkType:= GetChunkType(Chunk);
|
||||||
|
case ChunkType of
|
||||||
|
ctAOLL :
|
||||||
|
begin
|
||||||
|
Chunk.Read(AOLL, SizeOf(AOLL));
|
||||||
|
Chunk.Seek(-2, soFromEnd);
|
||||||
|
EntryCount:= LEtoN(Chunk.ReadWord);
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn(EntryCount);
|
||||||
|
{$ENDIF}
|
||||||
|
Chunk.Seek(SizeOf(AOLL), soFromBeginning);
|
||||||
|
for j := 0 to EntryCount-1 do
|
||||||
|
begin
|
||||||
|
Entry := ReadEntry(Chunk);
|
||||||
|
ForEach(Entry.Name, Entry.ContentOffset, Entry.DecompressedLength, Entry.ContentSection);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ctAOLI :
|
||||||
|
begin
|
||||||
|
//Chunk.Read(AOLI, SizeOf(AOLI));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Chunk.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TITOLITLSReader.ObjectExists(Name: String): QWord;
|
||||||
|
var
|
||||||
|
IFCM: TIFCMRec;
|
||||||
|
ChunkIndex: QWord;
|
||||||
|
Chunk: TMemoryStream;
|
||||||
|
StartOfChunks: QWord;
|
||||||
|
EntryCount: Word;
|
||||||
|
AOLL: TAOLLChunkHeader;
|
||||||
|
AOLI: TAOLIChunkHeader;
|
||||||
|
Entry: TPMGListChunkEntry;
|
||||||
|
CRes: LongInt;
|
||||||
|
i: integer;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
if Name = fCachedEntry.Name then
|
||||||
|
Exit(fCachedEntry.DecompressedLength); // we've already looked it up
|
||||||
|
|
||||||
|
fCachedEntry.Name:='';
|
||||||
|
fCachedEntry.ContentSection:=-1;
|
||||||
|
fCachedEntry.DecompressedLength:=0;
|
||||||
|
fCachedEntry.ContentOffset:=-1;
|
||||||
|
|
||||||
|
StreamPos:=HeaderSectionTable[1].OffSet;
|
||||||
|
fStream.Read(IFCM, SizeOf(IFCM));
|
||||||
|
StartOfChunks := fstream.Position;
|
||||||
|
{$R-}
|
||||||
|
ChunkIndex:=PostHeader.ListChunkInfo.TopAOLIChunkIndex;
|
||||||
|
if ChunkIndex = -1 then
|
||||||
|
ChunkIndex := PostHeader.ListChunkInfo.FirstAOLLChunkIndex;
|
||||||
|
|
||||||
|
Chunk := TMemoryStream.Create;
|
||||||
|
while ChunkIndex <> -1 do
|
||||||
|
begin
|
||||||
|
Chunk.Position:=0;
|
||||||
|
fStream.Position:= StartOfChunks + (IFCM.ChunkSize*ChunkIndex);
|
||||||
|
Chunk.CopyFrom(fStream, IFCM.ChunkSize);
|
||||||
|
Chunk.Position:=0;
|
||||||
|
|
||||||
|
case GetChunkType(Chunk) of
|
||||||
|
ctAOLL :
|
||||||
|
begin
|
||||||
|
Chunk.Read(AOLL, SizeOf(AOLL));
|
||||||
|
Chunk.Seek(-2, soFromEnd);
|
||||||
|
EntryCount:= LEtoN(Chunk.ReadWord);
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn(EntryCount);
|
||||||
|
{$ENDIF}
|
||||||
|
Chunk.Seek(SizeOf(AOLL), soFromBeginning);
|
||||||
|
for i := 0 to EntryCount-1 do
|
||||||
|
begin
|
||||||
|
Entry := ReadEntry(Chunk);
|
||||||
|
CRes := ChmCompareText(Name, Entry.Name);
|
||||||
|
if CRes = 0 then
|
||||||
|
begin
|
||||||
|
ChunkIndex:=-1;
|
||||||
|
fCachedEntry := Entry;
|
||||||
|
Break;
|
||||||
|
|
||||||
|
end
|
||||||
|
else if CRes > 0 then
|
||||||
|
Continue
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
ChunkIndex := -1;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ctAOLI :
|
||||||
|
begin
|
||||||
|
//Chunk.Read(AOLI, SizeOf(AOLI));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end;
|
||||||
|
{$R+}
|
||||||
|
Chunk.Free;
|
||||||
|
Result := fCachedEntry.DecompressedLength;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TITOLITLSReader.GetObject(Name: String): TMemoryStream;
|
||||||
|
var
|
||||||
|
Entry,
|
||||||
|
ContentEntry: TPMGListChunkEntry;
|
||||||
|
SectionName: String;
|
||||||
|
Transforms: TITSFTransformList;
|
||||||
|
Transform: TITSFTransform;
|
||||||
|
ContentStream: TStream;
|
||||||
|
ChunkPos: QWord;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('Want: ', Name);
|
||||||
|
{$ENDIF}
|
||||||
|
if ObjectExists(Name) = 0 then begin
|
||||||
|
//WriteLn('Object ', name,' Doesn''t exist or is zero sized.');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if Name = '/' then
|
||||||
|
Exit; // wierd bug where written size and offset contain random data
|
||||||
|
Entry := fCachedEntry;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
if Entry.ContentSection = 0 then begin
|
||||||
|
Result := TMemoryStream.Create;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('Offset = ', Entry.ContentOffset);
|
||||||
|
{$ENDIF}
|
||||||
|
//StreamPos := CAOLHeader.ITSFHeader.Section0Offset + Entry.ContentOffset;
|
||||||
|
ChunkPos := CAOLHeader.ITSFHeader.Section0Offset;// + fCachedEntry.ContentOffset;
|
||||||
|
ContentStream := TStreamChunk.Create(fStream, ChunkPos, FileSize-ChunkPos);
|
||||||
|
ContentStream.Seek(Entry.ContentOffset, soFromBeginning);
|
||||||
|
Result.CopyFrom(ContentStream, Entry.DecompressedLength);
|
||||||
|
ContentStream.Free;
|
||||||
|
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
FmtStr(SectionName, '::DataSpace/Storage/%s/',[SectionNames[Entry.ContentSection]]);
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('Want: ', SectionName);
|
||||||
|
{$ENDIF}
|
||||||
|
if ObjectExists(SectionName+'Content') = 0 then
|
||||||
|
Exit;
|
||||||
|
ContentEntry := fCachedEntry;
|
||||||
|
|
||||||
|
Transforms := TITSFTransformList(SectionNames.Objects[Entry.ContentSection]);
|
||||||
|
if Transforms = nil then
|
||||||
|
Exit;
|
||||||
|
ChunkPos := CAOLHeader.ITSFHeader.Section0Offset + ContentEntry.ContentOffset;
|
||||||
|
ContentStream := TStreamChunk.Create(fStream, ChunkPos, ContentEntry.DecompressedLength);
|
||||||
|
//ContentStream := GetObject(SectionName+'Content');
|
||||||
|
Result := TMemoryStream.Create;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
{for i := Transforms.Count-1 downto 0 do
|
||||||
|
begin
|
||||||
|
//WriteLn('Found Transform: ', GUIDToString(Transforms.TransformIndex[i].GUID));
|
||||||
|
|
||||||
|
//WriteLn(Transform.ClassName);
|
||||||
|
Transform := Transforms.TransformInstance[i];
|
||||||
|
if Transform = nil then
|
||||||
|
WriteLn('Trqansform = nil!');
|
||||||
|
|
||||||
|
end;}
|
||||||
|
|
||||||
|
WriteLn('Transform Count = ', Transforms.Count);
|
||||||
|
WriteLn('Asking ', Transforms.TransformInstance[Transforms.Count-1].ClassName,' for data');
|
||||||
|
{$ENDIF}
|
||||||
|
Transforms.TransformInstance[Transforms.Count-1].WantData(SectionName, ContentStream, Entry.ContentOffset, Entry.DecompressedLength, Result);
|
||||||
|
ContentStream.Free;
|
||||||
|
end;
|
||||||
|
Result.Position := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
137
packages/chm/src/itolitlstypes.pas
Normal file
137
packages/chm/src/itolitlstypes.pas
Normal file
@ -0,0 +1,137 @@
|
|||||||
|
unit ITOLITLSTypes;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
{$PACKRECORDS C}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses ChmBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
TSig = array[0..3] of char;
|
||||||
|
TITOLITLSHeader = record
|
||||||
|
Sig: Array [0..1] of TSig; // ITLO/ITLS
|
||||||
|
Version: DWord; // = 1
|
||||||
|
HeaderSectionTableOffset: DWord;
|
||||||
|
HeaderSectionEntryCount: DWord;
|
||||||
|
PostHeaderTableSize: DWord;
|
||||||
|
GUID: TGuid; // {0A9007C1-4076-11D3-8789-0000F8105754}
|
||||||
|
end;
|
||||||
|
|
||||||
|
TITOLITLSHeaderSectionEntry = record
|
||||||
|
OffSet: QWord; // From Start of ITLO/ITLS
|
||||||
|
Length: QWord;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TChunkDirInfo = record
|
||||||
|
TopAOLIChunkIndex: QWord; // -1 if none
|
||||||
|
FirstAOLLChunkIndex,
|
||||||
|
LastAOLLChunkIndex: QWord;
|
||||||
|
Unknown0: QWord; // 0
|
||||||
|
ChunkSize: DWord; // = $2000 if list $200 if Index
|
||||||
|
QuickRefDensity: DWord; // = 2
|
||||||
|
Unknown1: DWord; // = 0
|
||||||
|
DirDepth: DWord; // 1 there is no index, 2 if there is one level of AOLI 3 if two index levels etc
|
||||||
|
Unknown2: QWord; // 0
|
||||||
|
DirEntryCount: QWord; // Number Of Directory Entries
|
||||||
|
end;
|
||||||
|
|
||||||
|
TITSFHeaderV4= record
|
||||||
|
ITSFsig: array [0..3] of char;
|
||||||
|
Version: LongWord;
|
||||||
|
HeaderLength: LongWord;
|
||||||
|
Unknown_1: LongWord;
|
||||||
|
Section0Offset: QWord;
|
||||||
|
TimeStamp: LongWord; //bigendian
|
||||||
|
LanguageID: LongWord;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TCAOLRec = record
|
||||||
|
Sig: TSig; // CAOL
|
||||||
|
Version: DWord; // 2
|
||||||
|
CAOLSize: DWord; // includes ITSF section = $50
|
||||||
|
CompilerID: array [0..1] of char; // = "HH"
|
||||||
|
Unknown: Word; // 0
|
||||||
|
Unknown1: DWord; // $43ED or 0
|
||||||
|
DirChunkSize: DWord; // $2000
|
||||||
|
DirIndexChunkSize: DWord; // $200
|
||||||
|
Unknown2, // $100000
|
||||||
|
Unknown3: DWord;// $20000
|
||||||
|
Unknown4,
|
||||||
|
Unknown5,
|
||||||
|
Unknown6: DWord; // = 0
|
||||||
|
ITSFHeader: TITSFHeaderV4;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TITOLITLSPostHeader = record
|
||||||
|
Version: DWord; // 2
|
||||||
|
CAOLOffset: DWord; // usually $98 (is from start of PostHeader)
|
||||||
|
ListChunkInfo,
|
||||||
|
IndexChunkInfo: TChunkDirInfo;
|
||||||
|
Unknown3: DWord; // = $100000
|
||||||
|
Unknown4: Dword; // = $20000
|
||||||
|
Unknown5: QWord; // 0
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
THeaderSection0 = TITSPHeaderPrefix;
|
||||||
|
|
||||||
|
TIFCMRec = record
|
||||||
|
SIG: TSig; // = IFCM
|
||||||
|
Version: DWord; // = 1
|
||||||
|
ChunkSize: DWord; // = $2000
|
||||||
|
UnKnown: DWord; // = $100000
|
||||||
|
Unknown1: DWord; // = -1
|
||||||
|
Unknown2: DWord; // = -1
|
||||||
|
ChunkCount: Dword;//
|
||||||
|
Unknown3: DWord; // = 0
|
||||||
|
end;
|
||||||
|
|
||||||
|
TAOLLChunkHeader = record
|
||||||
|
Sig: TSig; // = AOLL
|
||||||
|
QuickRefSize: DWord;
|
||||||
|
ChunkIndex: QWord; // must be correct in the order written
|
||||||
|
PrevChunkIndex: QWord;
|
||||||
|
NextChunkIndex: QWord;
|
||||||
|
FirstEntryIndex: QWord;
|
||||||
|
Unknown0, // = 1
|
||||||
|
Unknown1: DWord;// = 0
|
||||||
|
// entries
|
||||||
|
end;
|
||||||
|
|
||||||
|
TAOLIChunkHeader = record
|
||||||
|
Sig: TSig; // = AOLI
|
||||||
|
QuickRefSize: DWord;// Length of quickref area at end of directory chunk
|
||||||
|
ChunkIndex: QWord;// Directory chunk number
|
||||||
|
// entries
|
||||||
|
end;
|
||||||
|
|
||||||
|
const
|
||||||
|
ITOLITLSGuid: TGuid = '{0A9007C1-4076-11D3-8789-0000F8105754}';
|
||||||
|
|
||||||
|
type
|
||||||
|
TLZXv3ControlData = record
|
||||||
|
Sig: TSig;
|
||||||
|
Version: DWord;
|
||||||
|
ResetInterval: Dword;
|
||||||
|
WindowSize: DWord;
|
||||||
|
CacheSize: Dword;
|
||||||
|
Unknown1,
|
||||||
|
Unknown2: DWord; // 0
|
||||||
|
end;
|
||||||
|
|
||||||
|
TLZXv3ResetTable = record
|
||||||
|
Version: Dword;
|
||||||
|
EntryCount: DWord;
|
||||||
|
EntrySize: DWord;
|
||||||
|
EntryStart: DWord;
|
||||||
|
UnCompressedSize,
|
||||||
|
CompressedSize: QWord;
|
||||||
|
BlockSize: QWord; // $8000
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
442
packages/chm/src/itsftransform.pas
Normal file
442
packages/chm/src/itsftransform.pas
Normal file
@ -0,0 +1,442 @@
|
|||||||
|
{ Copyright (C) <2009> <Andrew Haines> itfstransform.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, included in this distribution,
|
||||||
|
for details about the copyright.
|
||||||
|
}
|
||||||
|
unit ITSFTransform;
|
||||||
|
|
||||||
|
{ $DEFINE DEBUG_HELP2}
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, paslzx, ITOLITLSTypes;
|
||||||
|
|
||||||
|
type
|
||||||
|
TGetObject = function(AName: String): TMemoryStream of object;
|
||||||
|
|
||||||
|
TITSFTransformList = class;
|
||||||
|
TITSFTransform = class;
|
||||||
|
|
||||||
|
{ TITSFTransform }
|
||||||
|
TITSFTransform = class
|
||||||
|
private
|
||||||
|
FDataStream: TStream;
|
||||||
|
FPrefix: String;
|
||||||
|
FParentTransform: TITSFTransform;
|
||||||
|
public
|
||||||
|
GetObject: TGetObject; // GetObject(Name: String): TMemoryStream;
|
||||||
|
OutStream: TMemoryStream;
|
||||||
|
constructor Create(AGetObject: TGetObject; AParentTransform: TITSFTransform); virtual;
|
||||||
|
|
||||||
|
function WantData(APrefix: String; ADataStream: TStream; const DataStart, DataLength: Integer; AOutStream: TMemoryStream): Boolean; virtual;
|
||||||
|
|
||||||
|
property ParentTransform : TITSFTransform read FParentTransform;
|
||||||
|
property Prefix: String read FPrefix write FPrefix;
|
||||||
|
property DataStream: TStream read FDataStream write FDataStream;
|
||||||
|
class function GUID: TGuid; virtual;
|
||||||
|
class function GUIDString: String; virtual;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TITSFTransformClass = class of TITSFTransform;
|
||||||
|
|
||||||
|
{ TPlainTransform }
|
||||||
|
|
||||||
|
TPlainTransform = class(TITSFTransform)
|
||||||
|
function WantData(APrefix: String; ADataStream: TStream; const DataStart, DataLength: Integer; AOutStream: TMemoryStream): Boolean; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TLZXv3Transform }
|
||||||
|
|
||||||
|
TLZXv3Transform = class(TITSFTransform)
|
||||||
|
private
|
||||||
|
Entries: array of QWord;
|
||||||
|
Data: TLZXv3ControlData;
|
||||||
|
Table: TLZXv3ResetTable;
|
||||||
|
function GetControlData: Boolean;
|
||||||
|
function GetResetTable: Boolean;
|
||||||
|
|
||||||
|
function FindChunkCompressedSize(AEntryIndex: Integer): DWord;
|
||||||
|
function FindFirstChunkFromOffset(AOffset, ASize: QWord; out ChunkCount: DWord): Integer;
|
||||||
|
|
||||||
|
function ExtractChunks(AFirstChunkIndex, AChunkCount: DWord; out ExtractedOffsetStart: QWord): TMemoryStream;
|
||||||
|
public
|
||||||
|
function WantData(APrefix: String; ADataStream: TStream; const DataStart, DataLength: Integer; AOutStream: TMemoryStream): Boolean; override;
|
||||||
|
|
||||||
|
class function GUID: TGuid; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TITSFTransformList }
|
||||||
|
|
||||||
|
TITSFTransformList = class(TFPList)
|
||||||
|
private
|
||||||
|
function GetTransform(AGuid: TGuid): TITSFTransformClass;
|
||||||
|
function GetTransformIndex(AIndex: DWord): TITSFTransformClass;
|
||||||
|
function GetTransformInstance(AIndex: DWord): TITSFTransform;
|
||||||
|
procedure SetTransformInstance(AIndex: DWord; const AValue: TITSFTransform);
|
||||||
|
public
|
||||||
|
function AddTransform(ATransform: TITSFTransformClass): Integer;
|
||||||
|
procedure Delete(AIndex: Integer);
|
||||||
|
property Transform[AGuid: TGuid]: TITSFTransformClass read GetTransform;
|
||||||
|
property TransformIndex[AIndex: DWord]: TITSFTransformClass read GetTransformIndex;
|
||||||
|
property TransformInstance[AIndex: DWord]: TITSFTransform read GetTransformInstance write SetTransformInstance;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function RegisteredTransforms: TITSFTransformList;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses
|
||||||
|
SysUtils;
|
||||||
|
|
||||||
|
var
|
||||||
|
LocTransforms: TITSFTransformList = nil;
|
||||||
|
|
||||||
|
type
|
||||||
|
PITSFTranformItem = ^TITSFTranformItem;
|
||||||
|
TITSFTranformItem = record
|
||||||
|
//Guid: TGuid;
|
||||||
|
Transform: TITSFTransformClass;
|
||||||
|
Instance: TITSFTransform;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function RegisteredTransforms: TITSFTransformList;
|
||||||
|
begin
|
||||||
|
if LocTransforms = nil then
|
||||||
|
LocTransforms := TITSFTransformList.Create;
|
||||||
|
Result := LocTransforms;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TITSFTransform }
|
||||||
|
|
||||||
|
constructor TITSFTransform.Create(AGetObject: TGetObject; AParentTransform: TITSFTransform);
|
||||||
|
begin
|
||||||
|
GetObject:=AGetObject;
|
||||||
|
FParentTransform := AParentTransform;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TITSFTransform.WantData(APrefix: String; ADataStream: TStream;
|
||||||
|
const DataStart, DataLength: Integer; AOutStream: TMemoryStream): Boolean;
|
||||||
|
begin
|
||||||
|
Prefix := APrefix;
|
||||||
|
DataStream := ADataStream;
|
||||||
|
OutStream := AOutStream;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('WantData Class = ', ClassName);
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TITSFTransform.GUID: TGuid;
|
||||||
|
const
|
||||||
|
AGuid: TGuid = '{00000000-0000-0000-0000-000000000000}';
|
||||||
|
begin
|
||||||
|
Result := AGuid;
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TITSFTransform.GUIDString: String;
|
||||||
|
begin
|
||||||
|
Result := GUIDToString(GUID);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TITSFTransformList }
|
||||||
|
|
||||||
|
function TITSFTransformList.GetTransform(AGuid: TGuid): TITSFTransformClass;
|
||||||
|
var
|
||||||
|
Item: PITSFTranformItem;
|
||||||
|
i: Integer;
|
||||||
|
GUID: TGuid;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
for i := 0 to Count-1 do
|
||||||
|
begin
|
||||||
|
Item := PITSFTranformItem(Items[i]);
|
||||||
|
GUID := Item^.Transform.GUID;
|
||||||
|
if CompareByte(GUID,AGuid, 16) = 0 then
|
||||||
|
Exit(Item^.Transform);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TITSFTransformList.GetTransformIndex(AIndex: DWord): TITSFTransformClass;
|
||||||
|
begin
|
||||||
|
Result := PITSFTranformItem(Items[AIndex])^.Transform;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TITSFTransformList.GetTransformInstance(AIndex: DWord): TITSFTransform;
|
||||||
|
begin
|
||||||
|
Result := PITSFTranformItem(Items[AIndex])^.Instance;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TITSFTransformList.SetTransformInstance(AIndex: DWord;
|
||||||
|
const AValue: TITSFTransform);
|
||||||
|
begin
|
||||||
|
PITSFTranformItem(Items[AIndex])^.Instance := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TITSFTransformList.AddTransform(ATransform: TITSFTransformClass): Integer;
|
||||||
|
var
|
||||||
|
Item: PITSFTranformItem;
|
||||||
|
begin
|
||||||
|
if not Assigned(ATransform) then
|
||||||
|
Exit;
|
||||||
|
New(Item);
|
||||||
|
Item^.Transform:= ATransform;
|
||||||
|
Item^.Instance := nil;
|
||||||
|
Add(Item);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TITSFTransformList.Delete(AIndex: Integer);
|
||||||
|
var
|
||||||
|
Item: PITSFTranformItem;
|
||||||
|
begin
|
||||||
|
Item := PITSFTranformItem(Items[AIndex]);
|
||||||
|
Dispose(Item);
|
||||||
|
Inherited Delete(AIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TLZXv3Transform }
|
||||||
|
|
||||||
|
function TLZXv3Transform.FindFirstChunkFromOffset(AOffset, ASize: QWord; out ChunkCount: DWord): Integer;
|
||||||
|
var
|
||||||
|
EndChunk: DWord;
|
||||||
|
begin
|
||||||
|
Result := AOffset div Table.BlockSize;
|
||||||
|
EndChunk := (AOffset + ASize) div Table.BlockSize;
|
||||||
|
ChunkCount:=EndChunk-Result;
|
||||||
|
//if ChunkCount = 0 then
|
||||||
|
Inc(ChunkCount);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TLZXv3Transform.GetControlData: Boolean;
|
||||||
|
var
|
||||||
|
ControlDataStream: TStream;
|
||||||
|
ESize: LongWord;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
try
|
||||||
|
ControlDataStream := GetObject(Prefix+'ControlData');
|
||||||
|
|
||||||
|
if ControlDataStream = nil then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
|
||||||
|
ESize := NtoLE(ControlDataStream.ReadDWord);
|
||||||
|
while ESize <> 7 do
|
||||||
|
begin
|
||||||
|
ControlDataStream.Seek(ESize*4, soFromCurrent);
|
||||||
|
ESize := LEtoN(ControlDataStream.ReadDWord);
|
||||||
|
end;
|
||||||
|
if ESize = 7 then
|
||||||
|
ControlDataStream.Read(Data, SizeOf(TLZXv3ControlData));
|
||||||
|
|
||||||
|
finally
|
||||||
|
if Assigned(ControlDataStream) then
|
||||||
|
ControlDataStream.Free;
|
||||||
|
end;
|
||||||
|
Result := ESize = 7;
|
||||||
|
//WriteLn('GetControlData = ', REsult);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TLZXv3Transform.GetResetTable: Boolean;
|
||||||
|
var
|
||||||
|
WholePrefix: String;
|
||||||
|
ResetStream: TStream;
|
||||||
|
{$IFDEF ENDIAN_BIG}
|
||||||
|
i: Integer;
|
||||||
|
{$ENDIF}
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
WholePrefix:=Prefix+'Transform/'+GUIDString+'/';
|
||||||
|
ResetStream := GetObject(WholePrefix+'InstanceData/ResetTable');
|
||||||
|
if ResetStream = nil then
|
||||||
|
Exit;
|
||||||
|
ResetStream.Read(Table, SizeOf(TLZXv3ResetTable));
|
||||||
|
SetLength(Entries, Table.EntryCount);
|
||||||
|
ResetStream.Read(Entries[0], Table.EntryCount*8);
|
||||||
|
{$IFDEF ENDIAN_BIG}
|
||||||
|
for i := Low(Entries) to High(Entries) do
|
||||||
|
Entries[i] := LEtoN(Entries[i]);
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
//for i := Low(Entries) to High(Entries) do
|
||||||
|
// WriteLn('Entry[',i,'] = ',Entries[i] ,' UnCompressStart = ', i*$8000);
|
||||||
|
{$ENDIF}
|
||||||
|
ResetStream.Free;
|
||||||
|
|
||||||
|
Result := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TLZXv3Transform.FindChunkCompressedSize(AEntryIndex: Integer): DWord;
|
||||||
|
begin
|
||||||
|
if AEntryIndex < High(Entries) then
|
||||||
|
Result := Entries[AEntryIndex+1] - Entries[AEntryIndex]
|
||||||
|
else
|
||||||
|
Result := DataStream.Size-Entries[AEntryIndex];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TLZXv3Transform.ExtractChunks(AFirstChunkIndex, AChunkCount: DWord;
|
||||||
|
out ExtractedOffsetStart: QWord): TMemoryStream;
|
||||||
|
var
|
||||||
|
LZX: PLZXState;
|
||||||
|
CStart,
|
||||||
|
CSize: DWord;
|
||||||
|
//CBuf: Pointer;
|
||||||
|
Buf: TMemoryStream;
|
||||||
|
CBuf: Pointer;
|
||||||
|
UBuf: Pointer;
|
||||||
|
USize: Dword;
|
||||||
|
URes: DWord;
|
||||||
|
WinCode: DWord;
|
||||||
|
WinSize: QWord;
|
||||||
|
BlockMask: Byte;
|
||||||
|
begin
|
||||||
|
BlockMask := (Data.ResetInterval shl 1) - 1;
|
||||||
|
|
||||||
|
// must start on a even numbered block
|
||||||
|
while (AFirstChunkIndex mod Data.ResetInterval <> 0) and (AFirstChunkIndex > 0) do
|
||||||
|
begin
|
||||||
|
Dec(AFirstChunkIndex);
|
||||||
|
Inc(AChunkCount);
|
||||||
|
end;
|
||||||
|
|
||||||
|
ExtractedOffsetStart := Table.BlockSize*AFirstChunkIndex;
|
||||||
|
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('Getting Data, StartChunk=', AFirstChunkIndex,' Count = ', AChunkCount);
|
||||||
|
WriteLn('Version = ', Data.Version);
|
||||||
|
WriteLn('Window Size = ',Data.WindowSize);
|
||||||
|
WriteLn('Block Size = ',Hexstr(Table.BlockSize,16));
|
||||||
|
WriteLn('Block Size = ',Table.BlockSize);
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
WinSize := (Data.WindowSize * Table.BlockSize);
|
||||||
|
WinCode := 0;
|
||||||
|
while WinSize > 1 do
|
||||||
|
begin
|
||||||
|
Inc(WinCode);
|
||||||
|
//WriteLn(HexStr(WinSize, 16));
|
||||||
|
WinSize := WinSize shr 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
LZX := LZXinit(WinCode);//ata.WindowSize);
|
||||||
|
|
||||||
|
CBuf := GetMem(Table.BlockSize);
|
||||||
|
UBuf := GetMem(Table.BlockSize);
|
||||||
|
|
||||||
|
Result := TMemoryStream.Create;
|
||||||
|
Buf := TMemoryStream.Create;
|
||||||
|
|
||||||
|
CStart := Entries[AFirstChunkIndex];
|
||||||
|
CSize := Entries[AFirstChunkIndex+AChunkCount]+FindChunkCompressedSize(AFirstChunkIndex+AChunkCount);
|
||||||
|
ParentTransform.WantData(Prefix, DataStream, CStart, CSize, Buf);
|
||||||
|
Buf.Position:=0;
|
||||||
|
|
||||||
|
while AChunkCount > 0 do
|
||||||
|
begin
|
||||||
|
Dec(AChunkCount);
|
||||||
|
|
||||||
|
CSize := FindChunkCompressedSize(AFirstChunkIndex);
|
||||||
|
|
||||||
|
CSize := Buf.Read(CBuf^, CSize);
|
||||||
|
if AFirstChunkIndex mod Data.ResetInterval = 0 then
|
||||||
|
begin
|
||||||
|
LZXreset(LZX);
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('Reset LZX Window');
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
URes := LZXdecompress(LZX, CBuf, UBuf, CSize, Table.BlockSize);
|
||||||
|
//CBuf.Size := 0;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('Decompress = ', URes);
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
Result.Write(UBuf^, Table.BlockSize);
|
||||||
|
Inc(AFirstChunkIndex);
|
||||||
|
end;
|
||||||
|
Buf.Free;
|
||||||
|
Freemem(UBuf);
|
||||||
|
Freemem(CBuf);
|
||||||
|
Result.Position:=0;
|
||||||
|
LZXteardown(LZX);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function TLZXv3Transform.WantData(APrefix: String; ADataStream: TStream; const DataStart,
|
||||||
|
DataLength: Integer; AOutStream: TMemoryStream): Boolean;
|
||||||
|
var
|
||||||
|
LZXData: TLZXv3ControlData;
|
||||||
|
ResetTable: TLZXv3ResetTable;
|
||||||
|
ChunkStart,
|
||||||
|
ChunkCount: DWord;
|
||||||
|
RawChunks: TStream;
|
||||||
|
ChunkDataStart: QWord;
|
||||||
|
begin
|
||||||
|
inherited WantData(APrefix, ADataStream, DataStart, DataLength, AOutStream);
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('WantData Pre=',APrefix,' DS=', DataStart,' DL=',DataLength);
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
Result := False;
|
||||||
|
if not (GetControlData and GetResetTable) then
|
||||||
|
Exit;
|
||||||
|
{$IFDEF DEBUG_HELP2}
|
||||||
|
WriteLn('Got Needed Info');
|
||||||
|
{$ENDIF}
|
||||||
|
ChunkStart := FindFirstChunkFromOffset(DataStart,DataLength, ChunkCount);
|
||||||
|
|
||||||
|
RawChunks := ExtractChunks(ChunkStart, ChunkCount, ChunkDataStart);
|
||||||
|
|
||||||
|
RawChunks.Position := DataStart-ChunkDataStart;
|
||||||
|
AOutStream.CopyFrom(RawChunks, DataLength);
|
||||||
|
RawChunks.Free;
|
||||||
|
|
||||||
|
Result := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TLZXv3Transform.GUID: TGuid;
|
||||||
|
const
|
||||||
|
AGuid: TGuid = '{0A9007C6-4076-11D3-8789-0000F8105754}';
|
||||||
|
begin
|
||||||
|
Result := AGuid;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TPlainTransform }
|
||||||
|
|
||||||
|
function TPlainTransform.WantData(APrefix: String; ADataStream: TStream; const DataStart, DataLength: Integer;
|
||||||
|
AOutStream: TMemoryStream): Boolean;
|
||||||
|
begin
|
||||||
|
inherited WantData(APrefix, ADataStream, DataStart, DataLength, AOutStream);
|
||||||
|
ADataStream.Position:=DataStart;
|
||||||
|
AOutStream.CopyFrom(ADataStream, DataLength);
|
||||||
|
Result := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisteredTransforms.AddTransform(TPlainTransform);
|
||||||
|
RegisteredTransforms.AddTransform(TLZXv3Transform);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
if Assigned(LocTransforms) then
|
||||||
|
LocTransforms.Free;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user