mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-10 05:48:59 +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/htmlindexer.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/paslznonslide.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
|
||||
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
|
||||
endif
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
override INSTALL_FPCPACKAGE=y
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
|
||||
@ -9,7 +9,7 @@ version=2.5.1
|
||||
[target]
|
||||
units=fasthtmlparser htmlutil paslzx paslzxcomp paslznonslide chmbase chmtypes \
|
||||
chmspecialfiles chmsitemap chmwriter chmfilewriter chmreader htmlindexer \
|
||||
chmfiftimain lzxcompressthread
|
||||
chmfiftimain lzxcompressthread itolitlstypes itsftransform itolitlsreader
|
||||
programs=chmcmd chmls
|
||||
programs_win32=unblockchm
|
||||
programs_win64=unblockchm
|
||||
@ -35,4 +35,4 @@ cdmcmd$(EXEEXT): chmcmd.lpr
|
||||
|
||||
chmls$(EXEEXT): chmls.lpr
|
||||
|
||||
unblockchm$(EXEEXT): unblockchm.pp
|
||||
unblockchm$(EXEEXT): unblockchm.pp
|
||||
|
||||
@ -93,6 +93,22 @@ begin
|
||||
begin
|
||||
AddUnit('htmlindexer');
|
||||
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');
|
||||
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