+ Add PTCpas package

git-svn-id: trunk@1944 -

.gitattributes

@@ -2746,6 +2746,52 @@ packages/extra/gtk2/pango/pango-types.inc svneol=native#text/plain
 packages/extra/gtk2/pango/pango.pas svneol=native#text/plain
 packages/extra/gtk2/pango/pangoincludes.inc svneol=native#text/plain
 packages/extra/gtk2/pango/pangoutils.pas svneol=native#text/plain
+packages/extra/hermes/Makefile -text
+packages/extra/hermes/Makefile.fpc -text
+packages/extra/hermes/clear.inc -text
+packages/extra/hermes/convert.inc -text
+packages/extra/hermes/d_32.pp -text
+packages/extra/hermes/debug.pp -text
+packages/extra/hermes/dither.pp -text
+packages/extra/hermes/factconv.pp -text
+packages/extra/hermes/factory.inc -text
+packages/extra/hermes/format.pp -text
+packages/extra/hermes/headp.pp -text
+packages/extra/hermes/hermconf.inc -text
+packages/extra/hermes/hermdef.inc -text
+packages/extra/hermes/hermes.pp -text
+packages/extra/hermes/i386/headi386.pp -text
+packages/extra/hermes/i386/headmmx.pp -text
+packages/extra/hermes/i386/mmx_clr.as -text
+packages/extra/hermes/i386/mmx_main.as -text
+packages/extra/hermes/i386/mmxp2_32.as -text
+packages/extra/hermes/i386/mmxp_32.as -text
+packages/extra/hermes/i386/x8616lut.as -text
+packages/extra/hermes/i386/x86_clr.as -text
+packages/extra/hermes/i386/x86_main.as -text
+packages/extra/hermes/i386/x86p_16.as -text
+packages/extra/hermes/i386/x86p_32.as -text
+packages/extra/hermes/i386/x86p_cpy.as -text
+packages/extra/hermes/i386/x86p_i8.as -text
+packages/extra/hermes/i386/x86p_s32.as -text
+packages/extra/hermes/i386/x86pscpy.as -text
+packages/extra/hermes/list.pp -text
+packages/extra/hermes/malloc.pp -text
+packages/extra/hermes/p_16.pp -text
+packages/extra/hermes/p_24.pp -text
+packages/extra/hermes/p_32.pp -text
+packages/extra/hermes/p_clr.pp -text
+packages/extra/hermes/p_cnv.pp -text
+packages/extra/hermes/p_cpy.pp -text
+packages/extra/hermes/p_g.pp -text
+packages/extra/hermes/p_ga.pp -text
+packages/extra/hermes/p_gac.pp -text
+packages/extra/hermes/p_gca.pp -text
+packages/extra/hermes/p_gcc.pp -text
+packages/extra/hermes/p_i8.pp -text
+packages/extra/hermes/p_muhmu.pp -text
+packages/extra/hermes/palette.inc -text
+packages/extra/hermes/utility.pp -text
 packages/extra/imlib/Makefile svneol=native#text/plain
 packages/extra/imlib/Makefile.fpc svneol=native#text/plain
 packages/extra/imlib/fpmake.inc svneol=native#text/plain
@@ -2996,6 +3042,168 @@ packages/extra/palmunits/uicontrols.pp svneol=native#text/plain
 packages/extra/palmunits/uiresources.pp svneol=native#text/plain
 packages/extra/palmunits/vfsmgr.pp svneol=native#text/plain
 packages/extra/palmunits/window.pp svneol=native#text/plain
+packages/extra/ptc/Makefile -text
+packages/extra/ptc/Makefile.fpc -text
+packages/extra/ptc/aread.inc -text
+packages/extra/ptc/areai.inc -text
+packages/extra/ptc/basecond.inc -text
+packages/extra/ptc/baseconi.inc -text
+packages/extra/ptc/basesurd.inc -text
+packages/extra/ptc/basesuri.inc -text
+packages/extra/ptc/c_api/area.inc -text
+packages/extra/ptc/c_api/aread.inc -text
+packages/extra/ptc/c_api/clear.inc -text
+packages/extra/ptc/c_api/cleard.inc -text
+packages/extra/ptc/c_api/clipper.inc -text
+packages/extra/ptc/c_api/clipperd.inc -text
+packages/extra/ptc/c_api/color.inc -text
+packages/extra/ptc/c_api/colord.inc -text
+packages/extra/ptc/c_api/console.inc -text
+packages/extra/ptc/c_api/consoled.inc -text
+packages/extra/ptc/c_api/copy.inc -text
+packages/extra/ptc/c_api/copyd.inc -text
+packages/extra/ptc/c_api/error.inc -text
+packages/extra/ptc/c_api/errord.inc -text
+packages/extra/ptc/c_api/except.inc -text
+packages/extra/ptc/c_api/exceptd.inc -text
+packages/extra/ptc/c_api/format.inc -text
+packages/extra/ptc/c_api/formatd.inc -text
+packages/extra/ptc/c_api/index.inc -text
+packages/extra/ptc/c_api/key.inc -text
+packages/extra/ptc/c_api/keyd.inc -text
+packages/extra/ptc/c_api/mode.inc -text
+packages/extra/ptc/c_api/moded.inc -text
+packages/extra/ptc/c_api/palette.inc -text
+packages/extra/ptc/c_api/paletted.inc -text
+packages/extra/ptc/c_api/surface.inc -text
+packages/extra/ptc/c_api/surfaced.inc -text
+packages/extra/ptc/c_api/timer.inc -text
+packages/extra/ptc/c_api/timerd.inc -text
+packages/extra/ptc/cleard.inc -text
+packages/extra/ptc/cleari.inc -text
+packages/extra/ptc/clipperd.inc -text
+packages/extra/ptc/clipperi.inc -text
+packages/extra/ptc/colord.inc -text
+packages/extra/ptc/colori.inc -text
+packages/extra/ptc/consoled.inc -text
+packages/extra/ptc/consolei.inc -text
+packages/extra/ptc/copyd.inc -text
+packages/extra/ptc/copyi.inc -text
+packages/extra/ptc/demos/Makefile -text
+packages/extra/ptc/demos/Makefile.fpc -text
+packages/extra/ptc/demos/fire.pp -text
+packages/extra/ptc/demos/flower.pp -text
+packages/extra/ptc/demos/land.pp -text
+packages/extra/ptc/demos/lights.pp -text
+packages/extra/ptc/demos/mojo.pp -text
+packages/extra/ptc/demos/mojo.raw -text
+packages/extra/ptc/demos/texwarp.pp -text
+packages/extra/ptc/demos/tunnel.pp -text
+packages/extra/ptc/demos/tunnel3d.pp -text
+packages/extra/ptc/demos/tunnel3d.raw -text
+packages/extra/ptc/docs/AUTHORS -text
+packages/extra/ptc/docs/CHANGES -text
+packages/extra/ptc/docs/INSTALL -text
+packages/extra/ptc/docs/INTRO -text
+packages/extra/ptc/docs/README -text
+packages/extra/ptc/docs/TODO -text
+packages/extra/ptc/docs/lgpl.txt -text
+packages/extra/ptc/dos/base/kbd.inc -text
+packages/extra/ptc/dos/base/kbdd.inc -text
+packages/extra/ptc/dos/cga/cga.pp -text
+packages/extra/ptc/dos/cga/console.inc -text
+packages/extra/ptc/dos/cga/consoled.inc -text
+packages/extra/ptc/dos/fakemode/console.inc -text
+packages/extra/ptc/dos/fakemode/consoled.inc -text
+packages/extra/ptc/dos/fakemode/vga.pp -text
+packages/extra/ptc/dos/textfx2/console.inc -text
+packages/extra/ptc/dos/textfx2/consoled.inc -text
+packages/extra/ptc/dos/textfx2/textfx2.pp -text
+packages/extra/ptc/dos/timeunit/timeunit.pp -text
+packages/extra/ptc/dos/vesa/console.inc -text
+packages/extra/ptc/dos/vesa/consoled.inc -text
+packages/extra/ptc/dos/vesa/vesa.pp -text
+packages/extra/ptc/errord.inc -text
+packages/extra/ptc/errori.inc -text
+packages/extra/ptc/examples/Makefile -text
+packages/extra/ptc/examples/Makefile.fpc -text
+packages/extra/ptc/examples/area.pp -text
+packages/extra/ptc/examples/buffer.pp -text
+packages/extra/ptc/examples/clear.pp -text
+packages/extra/ptc/examples/clip.pp -text
+packages/extra/ptc/examples/con_info.pp -text
+packages/extra/ptc/examples/console.pp -text
+packages/extra/ptc/examples/hicolor.pp -text
+packages/extra/ptc/examples/image.pp -text
+packages/extra/ptc/examples/image.tga -text
+packages/extra/ptc/examples/keyboard.pp -text
+packages/extra/ptc/examples/keybrd2.pp -text
+packages/extra/ptc/examples/modes.pp -text
+packages/extra/ptc/examples/palette.pp -text
+packages/extra/ptc/examples/pixel.pp -text
+packages/extra/ptc/examples/random.pp -text
+packages/extra/ptc/examples/save.pp -text
+packages/extra/ptc/examples/stretch.pp -text
+packages/extra/ptc/examples/stretch.tga -text
+packages/extra/ptc/examples/timer.pp -text
+packages/extra/ptc/formatd.inc -text
+packages/extra/ptc/formati.inc -text
+packages/extra/ptc/keyd.inc -text
+packages/extra/ptc/keyi.inc -text
+packages/extra/ptc/log.inc -text
+packages/extra/ptc/moded.inc -text
+packages/extra/ptc/modei.inc -text
+packages/extra/ptc/paletted.inc -text
+packages/extra/ptc/palettei.inc -text
+packages/extra/ptc/ptc.cfg -text
+packages/extra/ptc/ptc.pp -text
+packages/extra/ptc/surfaced.inc -text
+packages/extra/ptc/surfacei.inc -text
+packages/extra/ptc/test/convtest.pas -text
+packages/extra/ptc/test/endian.pas -text
+packages/extra/ptc/test/view.pp -text
+packages/extra/ptc/timerd.inc -text
+packages/extra/ptc/timeri.inc -text
+packages/extra/ptc/tinyptc/tinyptc.pp -text
+packages/extra/ptc/win32/base/cursor.inc -text
+packages/extra/ptc/win32/base/event.inc -text
+packages/extra/ptc/win32/base/eventd.inc -text
+packages/extra/ptc/win32/base/hook.inc -text
+packages/extra/ptc/win32/base/hookd.inc -text
+packages/extra/ptc/win32/base/kbd.inc -text
+packages/extra/ptc/win32/base/kbdd.inc -text
+packages/extra/ptc/win32/base/monitor.inc -text
+packages/extra/ptc/win32/base/monitord.inc -text
+packages/extra/ptc/win32/base/ptcres.rc -text
+packages/extra/ptc/win32/base/ptcres.res -text
+packages/extra/ptc/win32/base/window.inc -text
+packages/extra/ptc/win32/base/windowd.inc -text
+packages/extra/ptc/win32/base/windows.ico -text
+packages/extra/ptc/win32/directx/check.inc -text
+packages/extra/ptc/win32/directx/console.inc -text
+packages/extra/ptc/win32/directx/consoled.inc -text
+packages/extra/ptc/win32/directx/directdr.pp -text
+packages/extra/ptc/win32/directx/display.inc -text
+packages/extra/ptc/win32/directx/displayd.inc -text
+packages/extra/ptc/win32/directx/hook.inc -text
+packages/extra/ptc/win32/directx/hookd.inc -text
+packages/extra/ptc/win32/directx/library.inc -text
+packages/extra/ptc/win32/directx/libraryd.inc -text
+packages/extra/ptc/win32/directx/primary.inc -text
+packages/extra/ptc/win32/directx/primaryd.inc -text
+packages/extra/ptc/win32/directx/translte.inc -text
+packages/extra/ptc/x11/check.inc -text
+packages/extra/ptc/x11/console.inc -text
+packages/extra/ptc/x11/consoled.inc -text
+packages/extra/ptc/x11/dgadisp.inc -text
+packages/extra/ptc/x11/dgadispd.inc -text
+packages/extra/ptc/x11/display.inc -text
+packages/extra/ptc/x11/displayd.inc -text
+packages/extra/ptc/x11/image.inc -text
+packages/extra/ptc/x11/imaged.inc -text
+packages/extra/ptc/x11/window.inc -text
+packages/extra/ptc/x11/windowd.inc -text
+packages/extra/ptc/x11/xunikey.inc -text
 packages/extra/rexx/Makefile svneol=native#text/plain
 packages/extra/rexx/Makefile.fpc svneol=native#text/plain
 packages/extra/rexx/fpmake.inc svneol=native#text/plain

fcl/Makefile

@@ -1,5 +1,5 @@
 #
-# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/12/04]
+# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/11/26]
 #
 default: all
 MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-wince powerpc64-linux
@@ -236,115 +236,115 @@ ifneq ($(findstring 1.0.,$(FPC_VERSION)),)
 CLASSES10=classes
 endif
 ifeq ($(FULL_TARGET),i386-linux)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-go32v2)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-win32)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-os2)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-freebsd)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-beos)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-netbsd)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-solaris)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-qnx)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-netware)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-openbsd)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-wdosx)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-emx)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-watcom)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-netwlibc)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-wince)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),m68k-linux)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),m68k-freebsd)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),m68k-netbsd)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),m68k-amiga)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),m68k-atari)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),m68k-openbsd)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),m68k-palmos)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),powerpc-linux)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),powerpc-netbsd)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),powerpc-macos)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),powerpc-darwin)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),powerpc-morphos)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),sparc-linux)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),sparc-netbsd)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),sparc-solaris)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),x86_64-linux)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),x86_64-freebsd)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),x86_64-win64)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),arm-linux)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),arm-wince)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),powerpc64-linux)
-override TARGET_DIRS+=xml image db shedit passrc net fpcunit
+override TARGET_DIRS+=xml image shedit passrc net fpcunit
 endif
 ifeq ($(FULL_TARGET),i386-linux)
 override TARGET_UNITS+=$(CLASSES10) contnrs inifiles ezcgi pipes rtfpars idea base64 gettext iostream zstream cachecls avl_tree xmlreg registry eventlog custapp cgiapp wformat whtml wtex rttiutils bufstream streamex  process resolve ssockets fpasync syncobjs simpleipc msgintf dbugintf
@@ -1317,37 +1317,6 @@ endif
 else
 CROSSBINDIR=
 endif
-ifeq ($(OS_SOURCE),linux)
-ifndef GCCLIBDIR
-ifeq ($(CPU_TARGET),i386)
-ifneq ($(findstring x86_64,$(shell uname -a)),)
-ifeq ($(BINUTILSPREFIX),)
-GCCLIBDIR:=$(shell dirname `gcc -m32 -print-libgcc-file-name`)
-endif
-endif
-endif
-ifeq ($(CPU_TARGET),powerpc64)
-ifeq ($(BINUTILSPREFIX),)
-GCCLIBDIR:=$(shell dirname `gcc -m64 -print-libgcc-file-name`)
-endif
-endif
-endif
-ifndef GCCLIBDIR
-CROSSGCC=$(strip $(wildcard $(addsuffix /$(BINUTILSPREFIX)gcc$(SRCEXEEXT),$(SEARCHPATH))))
-ifneq ($(CROSSGCC),)
-GCCLIBDIR:=$(shell dirname `$(CROSSGCC) -print-libgcc-file-name`)
-endif
-endif
-ifndef OTHERLIBDIR
-OTHERLIBDIR:=$(shell grep -v "^\#" /etc/ld.so.conf | awk '{ ORS=" "; print $1 }')
-endif
-endif
-ifdef inUnix
-ifeq ($(OS_SOURCE),netbsd)
-OTHERLIBDIR+=/usr/pkg/lib
-endif
-export GCCLIBDIR OTHERLIB
-endif
 BATCHEXT=.bat
 LOADEREXT=.as
 EXEEXT=.exe
@@ -1892,11 +1861,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),i386-go32v2)
 REQUIRE_PACKAGES_RTL=1
@@ -1912,11 +1876,6 @@ REQUIRE_PACKAGES_HASH=1
 REQUIRE_PACKAGES_PASZLIB=1
 REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 REQUIRE_PACKAGES_LIBASYNC=1
 endif
 ifeq ($(FULL_TARGET),i386-os2)
@@ -1935,11 +1894,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),i386-beos)
 REQUIRE_PACKAGES_RTL=1
@@ -1956,11 +1910,6 @@ REQUIRE_PACKAGES_PASZLIB=1
 REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),i386-solaris)
 REQUIRE_PACKAGES_RTL=1
@@ -1993,11 +1942,6 @@ REQUIRE_PACKAGES_PASZLIB=1
 REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),i386-wdosx)
 REQUIRE_PACKAGES_RTL=1
@@ -2047,11 +1991,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),m68k-freebsd)
 REQUIRE_PACKAGES_RTL=1
@@ -2061,11 +2000,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),m68k-netbsd)
 REQUIRE_PACKAGES_RTL=1
@@ -2074,11 +2008,6 @@ REQUIRE_PACKAGES_PASZLIB=1
 REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),m68k-amiga)
 REQUIRE_PACKAGES_RTL=1
@@ -2103,11 +2032,6 @@ REQUIRE_PACKAGES_PASZLIB=1
 REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),m68k-palmos)
 REQUIRE_PACKAGES_RTL=1
@@ -2125,11 +2049,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),powerpc-netbsd)
 REQUIRE_PACKAGES_RTL=1
@@ -2138,11 +2057,6 @@ REQUIRE_PACKAGES_PASZLIB=1
 REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),powerpc-macos)
 REQUIRE_PACKAGES_RTL=1
@@ -2160,11 +2074,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),powerpc-morphos)
 REQUIRE_PACKAGES_RTL=1
@@ -2182,11 +2091,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),sparc-netbsd)
 REQUIRE_PACKAGES_RTL=1
@@ -2195,11 +2099,6 @@ REQUIRE_PACKAGES_PASZLIB=1
 REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),sparc-solaris)
 REQUIRE_PACKAGES_RTL=1
@@ -2217,11 +2116,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),x86_64-freebsd)
 REQUIRE_PACKAGES_RTL=1
@@ -2231,11 +2125,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),x86_64-win64)
 REQUIRE_PACKAGES_RTL=1
@@ -2253,11 +2142,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifeq ($(FULL_TARGET),arm-wince)
 REQUIRE_PACKAGES_RTL=1
@@ -2275,11 +2159,6 @@ REQUIRE_PACKAGES_NETDB=1
 REQUIRE_PACKAGES_LIBASYNC=1
 REQUIRE_PACKAGES_PTHREADS=1
 REQUIRE_PACKAGES_PASJPEG=1
-REQUIRE_PACKAGES_IBASE=1
-REQUIRE_PACKAGES_POSTGRES=1
-REQUIRE_PACKAGES_MYSQL=1
-REQUIRE_PACKAGES_ODBC=1
-REQUIRE_PACKAGES_SQLITE=1
 endif
 ifdef REQUIRE_PACKAGES_RTL
 PACKAGEDIR_RTL:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /rtl/Makefile.fpc,$(PACKAGESDIR))))))
@@ -2463,136 +2342,6 @@ ifdef UNITDIR_PASJPEG
 override COMPILER_UNITDIR+=$(UNITDIR_PASJPEG)
 endif
 endif
-ifdef REQUIRE_PACKAGES_IBASE
-PACKAGEDIR_IBASE:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /ibase/Makefile.fpc,$(PACKAGESDIR))))))
-ifneq ($(PACKAGEDIR_IBASE),)
-ifneq ($(wildcard $(PACKAGEDIR_IBASE)/units/$(TARGETSUFFIX)),)
-UNITDIR_IBASE=$(PACKAGEDIR_IBASE)/units/$(TARGETSUFFIX)
-else
-UNITDIR_IBASE=$(PACKAGEDIR_IBASE)
-endif
-ifdef CHECKDEPEND
-$(PACKAGEDIR_IBASE)/$(FPCMADE):
-	$(MAKE) -C $(PACKAGEDIR_IBASE) $(FPCMADE)
-override ALLDEPENDENCIES+=$(PACKAGEDIR_IBASE)/$(FPCMADE)
-endif
-else
-PACKAGEDIR_IBASE=
-UNITDIR_IBASE:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /ibase/Package.fpc,$(UNITSDIR)))))
-ifneq ($(UNITDIR_IBASE),)
-UNITDIR_IBASE:=$(firstword $(UNITDIR_IBASE))
-else
-UNITDIR_IBASE=
-endif
-endif
-ifdef UNITDIR_IBASE
-override COMPILER_UNITDIR+=$(UNITDIR_IBASE)
-endif
-endif
-ifdef REQUIRE_PACKAGES_POSTGRES
-PACKAGEDIR_POSTGRES:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /postgres/Makefile.fpc,$(PACKAGESDIR))))))
-ifneq ($(PACKAGEDIR_POSTGRES),)
-ifneq ($(wildcard $(PACKAGEDIR_POSTGRES)/units/$(TARGETSUFFIX)),)
-UNITDIR_POSTGRES=$(PACKAGEDIR_POSTGRES)/units/$(TARGETSUFFIX)
-else
-UNITDIR_POSTGRES=$(PACKAGEDIR_POSTGRES)
-endif
-ifdef CHECKDEPEND
-$(PACKAGEDIR_POSTGRES)/$(FPCMADE):
-	$(MAKE) -C $(PACKAGEDIR_POSTGRES) $(FPCMADE)
-override ALLDEPENDENCIES+=$(PACKAGEDIR_POSTGRES)/$(FPCMADE)
-endif
-else
-PACKAGEDIR_POSTGRES=
-UNITDIR_POSTGRES:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /postgres/Package.fpc,$(UNITSDIR)))))
-ifneq ($(UNITDIR_POSTGRES),)
-UNITDIR_POSTGRES:=$(firstword $(UNITDIR_POSTGRES))
-else
-UNITDIR_POSTGRES=
-endif
-endif
-ifdef UNITDIR_POSTGRES
-override COMPILER_UNITDIR+=$(UNITDIR_POSTGRES)
-endif
-endif
-ifdef REQUIRE_PACKAGES_MYSQL
-PACKAGEDIR_MYSQL:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /mysql/Makefile.fpc,$(PACKAGESDIR))))))
-ifneq ($(PACKAGEDIR_MYSQL),)
-ifneq ($(wildcard $(PACKAGEDIR_MYSQL)/units/$(TARGETSUFFIX)),)
-UNITDIR_MYSQL=$(PACKAGEDIR_MYSQL)/units/$(TARGETSUFFIX)
-else
-UNITDIR_MYSQL=$(PACKAGEDIR_MYSQL)
-endif
-ifdef CHECKDEPEND
-$(PACKAGEDIR_MYSQL)/$(FPCMADE):
-	$(MAKE) -C $(PACKAGEDIR_MYSQL) $(FPCMADE)
-override ALLDEPENDENCIES+=$(PACKAGEDIR_MYSQL)/$(FPCMADE)
-endif
-else
-PACKAGEDIR_MYSQL=
-UNITDIR_MYSQL:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /mysql/Package.fpc,$(UNITSDIR)))))
-ifneq ($(UNITDIR_MYSQL),)
-UNITDIR_MYSQL:=$(firstword $(UNITDIR_MYSQL))
-else
-UNITDIR_MYSQL=
-endif
-endif
-ifdef UNITDIR_MYSQL
-override COMPILER_UNITDIR+=$(UNITDIR_MYSQL)
-endif
-endif
-ifdef REQUIRE_PACKAGES_ODBC
-PACKAGEDIR_ODBC:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /odbc/Makefile.fpc,$(PACKAGESDIR))))))
-ifneq ($(PACKAGEDIR_ODBC),)
-ifneq ($(wildcard $(PACKAGEDIR_ODBC)/units/$(TARGETSUFFIX)),)
-UNITDIR_ODBC=$(PACKAGEDIR_ODBC)/units/$(TARGETSUFFIX)
-else
-UNITDIR_ODBC=$(PACKAGEDIR_ODBC)
-endif
-ifdef CHECKDEPEND
-$(PACKAGEDIR_ODBC)/$(FPCMADE):
-	$(MAKE) -C $(PACKAGEDIR_ODBC) $(FPCMADE)
-override ALLDEPENDENCIES+=$(PACKAGEDIR_ODBC)/$(FPCMADE)
-endif
-else
-PACKAGEDIR_ODBC=
-UNITDIR_ODBC:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /odbc/Package.fpc,$(UNITSDIR)))))
-ifneq ($(UNITDIR_ODBC),)
-UNITDIR_ODBC:=$(firstword $(UNITDIR_ODBC))
-else
-UNITDIR_ODBC=
-endif
-endif
-ifdef UNITDIR_ODBC
-override COMPILER_UNITDIR+=$(UNITDIR_ODBC)
-endif
-endif
-ifdef REQUIRE_PACKAGES_SQLITE
-PACKAGEDIR_SQLITE:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /sqlite/Makefile.fpc,$(PACKAGESDIR))))))
-ifneq ($(PACKAGEDIR_SQLITE),)
-ifneq ($(wildcard $(PACKAGEDIR_SQLITE)/units/$(TARGETSUFFIX)),)
-UNITDIR_SQLITE=$(PACKAGEDIR_SQLITE)/units/$(TARGETSUFFIX)
-else
-UNITDIR_SQLITE=$(PACKAGEDIR_SQLITE)
-endif
-ifdef CHECKDEPEND
-$(PACKAGEDIR_SQLITE)/$(FPCMADE):
-	$(MAKE) -C $(PACKAGEDIR_SQLITE) $(FPCMADE)
-override ALLDEPENDENCIES+=$(PACKAGEDIR_SQLITE)/$(FPCMADE)
-endif
-else
-PACKAGEDIR_SQLITE=
-UNITDIR_SQLITE:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /sqlite/Package.fpc,$(UNITSDIR)))))
-ifneq ($(UNITDIR_SQLITE),)
-UNITDIR_SQLITE:=$(firstword $(UNITDIR_SQLITE))
-else
-UNITDIR_SQLITE=
-endif
-endif
-ifdef UNITDIR_SQLITE
-override COMPILER_UNITDIR+=$(UNITDIR_SQLITE)
-endif
-endif
 ifndef NOCPUDEF
 override FPCOPTDEF=$(CPU_TARGET)
 endif
@@ -2700,12 +2449,6 @@ ifeq ($(FPC_VERSION),1.0.6)
 override FPCOPTDEF+=HASUNIX
 endif
 endif
-ifdef GCCLIBDIR
-override FPCOPT+=-Fl$(GCCLIBDIR)
-endif
-ifdef OTHERLIBDIR
-override FPCOPT+=$(addprefix -Fl,$(OTHERLIBDIR))
-endif
 ifdef OPT
 override FPCOPT+=$(OPT)
 endif
@@ -2720,14 +2463,6 @@ override FPCEXTCMD:=$(FPCOPT)
 override FPCOPT:=!FPCEXTCMD
 export FPCEXTCMD
 endif
-override AFULL_TARGET=$(CPU_TARGET)-$(OS_TARGET)
-override AFULL_SOURCE=$(CPU_SOURCE)-$(OS_SOURCE)
-ifneq ($(AFULL_TARGET),$(AFULL_SOURCE))
-override ACROSSCOMPILE=1
-endif
-ifdef ACROSSCOMPILE
-override FPCOPT+=$(CROSSOPT)
-endif
 override COMPILER:=$(FPC) $(FPCOPT)
 ifeq (,$(findstring -s ,$(COMPILER)))
 EXECPPAS=
@@ -3136,7 +2871,6 @@ fpc_makefiles: fpc_makefile fpc_makefile_dirs
 ifeq ($(FULL_TARGET),i386-linux)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3145,7 +2879,6 @@ endif
 ifeq ($(FULL_TARGET),i386-go32v2)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3154,7 +2887,6 @@ endif
 ifeq ($(FULL_TARGET),i386-win32)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3163,7 +2895,6 @@ endif
 ifeq ($(FULL_TARGET),i386-os2)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3172,7 +2903,6 @@ endif
 ifeq ($(FULL_TARGET),i386-freebsd)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3181,7 +2911,6 @@ endif
 ifeq ($(FULL_TARGET),i386-beos)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3190,7 +2919,6 @@ endif
 ifeq ($(FULL_TARGET),i386-netbsd)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3199,7 +2927,6 @@ endif
 ifeq ($(FULL_TARGET),i386-solaris)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3208,7 +2935,6 @@ endif
 ifeq ($(FULL_TARGET),i386-qnx)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3217,7 +2943,6 @@ endif
 ifeq ($(FULL_TARGET),i386-netware)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3226,7 +2951,6 @@ endif
 ifeq ($(FULL_TARGET),i386-openbsd)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3235,7 +2959,6 @@ endif
 ifeq ($(FULL_TARGET),i386-wdosx)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3244,7 +2967,6 @@ endif
 ifeq ($(FULL_TARGET),i386-emx)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3253,7 +2975,6 @@ endif
 ifeq ($(FULL_TARGET),i386-watcom)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3262,7 +2983,6 @@ endif
 ifeq ($(FULL_TARGET),i386-netwlibc)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3271,7 +2991,6 @@ endif
 ifeq ($(FULL_TARGET),i386-wince)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3280,7 +2999,6 @@ endif
 ifeq ($(FULL_TARGET),m68k-linux)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3289,7 +3007,6 @@ endif
 ifeq ($(FULL_TARGET),m68k-freebsd)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3298,7 +3015,6 @@ endif
 ifeq ($(FULL_TARGET),m68k-netbsd)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3307,7 +3023,6 @@ endif
 ifeq ($(FULL_TARGET),m68k-amiga)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3316,7 +3031,6 @@ endif
 ifeq ($(FULL_TARGET),m68k-atari)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3325,7 +3039,6 @@ endif
 ifeq ($(FULL_TARGET),m68k-openbsd)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3334,7 +3047,6 @@ endif
 ifeq ($(FULL_TARGET),m68k-palmos)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3343,7 +3055,6 @@ endif
 ifeq ($(FULL_TARGET),powerpc-linux)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3352,7 +3063,6 @@ endif
 ifeq ($(FULL_TARGET),powerpc-netbsd)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3361,7 +3071,6 @@ endif
 ifeq ($(FULL_TARGET),powerpc-macos)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3370,7 +3079,6 @@ endif
 ifeq ($(FULL_TARGET),powerpc-darwin)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3379,7 +3087,6 @@ endif
 ifeq ($(FULL_TARGET),powerpc-morphos)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3388,7 +3095,6 @@ endif
 ifeq ($(FULL_TARGET),sparc-linux)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3397,7 +3103,6 @@ endif
 ifeq ($(FULL_TARGET),sparc-netbsd)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3406,7 +3111,6 @@ endif
 ifeq ($(FULL_TARGET),sparc-solaris)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3415,7 +3119,6 @@ endif
 ifeq ($(FULL_TARGET),x86_64-linux)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3424,7 +3127,6 @@ endif
 ifeq ($(FULL_TARGET),x86_64-freebsd)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3433,7 +3135,6 @@ endif
 ifeq ($(FULL_TARGET),x86_64-win64)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3442,7 +3143,6 @@ endif
 ifeq ($(FULL_TARGET),arm-linux)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3451,7 +3151,6 @@ endif
 ifeq ($(FULL_TARGET),arm-wince)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3460,7 +3159,6 @@ endif
 ifeq ($(FULL_TARGET),powerpc64-linux)
 TARGET_DIRS_XML=1
 TARGET_DIRS_IMAGE=1
-TARGET_DIRS_DB=1
 TARGET_DIRS_SHEDIT=1
 TARGET_DIRS_PASSRC=1
 TARGET_DIRS_NET=1
@@ -3556,51 +3254,6 @@ image:
 	$(MAKE) -C image all
 .PHONY: image_all image_debug image_smart image_release image_units image_examples image_shared image_install image_sourceinstall image_exampleinstall image_distinstall image_zipinstall image_zipsourceinstall image_zipexampleinstall image_zipdistinstall image_clean image_distclean image_cleanall image_info image_makefiles image
 endif
-ifdef TARGET_DIRS_DB
-db_all:
-	$(MAKE) -C db all
-db_debug:
-	$(MAKE) -C db debug
-db_smart:
-	$(MAKE) -C db smart
-db_release:
-	$(MAKE) -C db release
-db_units:
-	$(MAKE) -C db units
-db_examples:
-	$(MAKE) -C db examples
-db_shared:
-	$(MAKE) -C db shared
-db_install:
-	$(MAKE) -C db install
-db_sourceinstall:
-	$(MAKE) -C db sourceinstall
-db_exampleinstall:
-	$(MAKE) -C db exampleinstall
-db_distinstall:
-	$(MAKE) -C db distinstall
-db_zipinstall:
-	$(MAKE) -C db zipinstall
-db_zipsourceinstall:
-	$(MAKE) -C db zipsourceinstall
-db_zipexampleinstall:
-	$(MAKE) -C db zipexampleinstall
-db_zipdistinstall:
-	$(MAKE) -C db zipdistinstall
-db_clean:
-	$(MAKE) -C db clean
-db_distclean:
-	$(MAKE) -C db distclean
-db_cleanall:
-	$(MAKE) -C db cleanall
-db_info:
-	$(MAKE) -C db info
-db_makefiles:
-	$(MAKE) -C db makefiles
-db:
-	$(MAKE) -C db all
-.PHONY: db_all db_debug db_smart db_release db_units db_examples db_shared db_install db_sourceinstall db_exampleinstall db_distinstall db_zipinstall db_zipsourceinstall db_zipexampleinstall db_zipdistinstall db_clean db_distclean db_cleanall db_info db_makefiles db
-endif
 ifdef TARGET_DIRS_SHEDIT
 shedit_all:
 	$(MAKE) -C shedit all

fcl/Makefile.fpc

@@ -22,7 +22,7 @@ packages_emx=netdb
 units=adler gzcrc gzio infblock infcodes inffast inftrees infutil minigzip paszlib trees zbase zcompres zdeflate zinflate zuncompr zutil pthreads streamio
 
 [target]
-dirs=xml image db shedit passrc net fpcunit
+dirs=xml image shedit passrc net fpcunit
 units=$(CLASSES10) contnrs inifiles ezcgi pipes rtfpars idea base64 gettext \
       iostream zstream cachecls avl_tree xmlreg registry eventlog custapp cgiapp \
       wformat whtml wtex rttiutils bufstream streamex

packages/extra/Makefile

@@ -1,5 +1,5 @@
 #
-# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/10/20]
+# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/11/26]
 #
 default: all
 MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-wince powerpc64-linux
@@ -231,79 +231,79 @@ UNITSDIR:=$(wildcard $(FPCDIR)/units/$(OS_TARGET))
 endif
 PACKAGESDIR:=$(wildcard $(FPCDIR) $(FPCDIR)/packages/base $(FPCDIR)/packages/extra)
 ifeq ($(FULL_TARGET),i386-linux)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
+override TARGET_DIRS+=unzip zlib fftw hermes x11 ptc opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
 endif
 ifeq ($(FULL_TARGET),i386-go32v2)
-override TARGET_DIRS+=unzip
+override TARGET_DIRS+=unzip hermes ptc
 endif
 ifeq ($(FULL_TARGET),i386-win32)
-override TARGET_DIRS+=unzip opengl gtk gtk2 zlib tcl cdrom fpgtk winunits fftw
+override TARGET_DIRS+=unzip opengl gtk gtk2 zlib tcl cdrom fpgtk winunits fftw hermes ptc
 endif
 ifeq ($(FULL_TARGET),i386-os2)
-override TARGET_DIRS+=os2units rexx unzip zlib x11 gtk libpng tcl imlib fpgtk
+override TARGET_DIRS+=os2units hermes rexx unzip zlib x11 gtk libpng tcl imlib fpgtk
 endif
 ifeq ($(FULL_TARGET),i386-freebsd)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
+override TARGET_DIRS+=unzip zlib fftw hermes x11 ptc opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
 endif
 ifeq ($(FULL_TARGET),i386-netbsd)
-override TARGET_DIRS+=unzip zlib x11 opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
+override TARGET_DIRS+=unzip zlib hermes x11 ptc opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
 endif
 ifeq ($(FULL_TARGET),i386-netware)
-override TARGET_DIRS+=unzip zlib
+override TARGET_DIRS+=unzip zlib hermes
 endif
 ifeq ($(FULL_TARGET),i386-openbsd)
-override TARGET_DIRS+=unzip zlib x11 opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
+override TARGET_DIRS+=unzip zlib hermes x11 ptc opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
 endif
 ifeq ($(FULL_TARGET),i386-emx)
 override TARGET_DIRS+=os2units rexx unzip zlib x11 gtk libpng tcl imlib fpgtk
 endif
 ifeq ($(FULL_TARGET),i386-netwlibc)
-override TARGET_DIRS+=unzip zlib
+override TARGET_DIRS+=unzip zlib hermes
 endif
 ifeq ($(FULL_TARGET),m68k-linux)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
+override TARGET_DIRS+=unzip zlib fftw hermes x11 ptc opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
 endif
 ifeq ($(FULL_TARGET),m68k-freebsd)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
+override TARGET_DIRS+=unzip zlib fftw hermes x11 ptc opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
 endif
 ifeq ($(FULL_TARGET),m68k-netbsd)
-override TARGET_DIRS+=unzip zlib x11 opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
+override TARGET_DIRS+=unzip zlib hermes x11 ptc opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
 endif
 ifeq ($(FULL_TARGET),m68k-amiga)
-override TARGET_DIRS+=amunits
+override TARGET_DIRS+=amunits hermes
 endif
 ifeq ($(FULL_TARGET),m68k-openbsd)
-override TARGET_DIRS+=unzip zlib x11 opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
+override TARGET_DIRS+=unzip zlib hermes x11 ptc opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
 endif
 ifeq ($(FULL_TARGET),m68k-palmos)
-override TARGET_DIRS+=palmunits
+override TARGET_DIRS+=palmunits hermes
 endif
 ifeq ($(FULL_TARGET),powerpc-linux)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
+override TARGET_DIRS+=unzip zlib fftw hermes x11 ptc opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
 endif
 ifeq ($(FULL_TARGET),powerpc-netbsd)
-override TARGET_DIRS+=unzip zlib x11 opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
+override TARGET_DIRS+=unzip zlib hermes x11 ptc opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
 endif
 ifeq ($(FULL_TARGET),powerpc-darwin)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
+override TARGET_DIRS+=unzip zlib fftw hermes x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
 endif
 ifeq ($(FULL_TARGET),sparc-linux)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
+override TARGET_DIRS+=unzip zlib fftw hermes x11 ptc opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
 endif
 ifeq ($(FULL_TARGET),sparc-netbsd)
-override TARGET_DIRS+=unzip zlib x11 opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
+override TARGET_DIRS+=unzip zlib hermes x11 ptc opengl gtk syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
 endif
 ifeq ($(FULL_TARGET),x86_64-linux)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
+override TARGET_DIRS+=unzip zlib fftw hermes x11 ptc opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
 endif
 ifeq ($(FULL_TARGET),x86_64-freebsd)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
+override TARGET_DIRS+=unzip zlib fftw hermes x11 ptc opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses fpgtk tcl imlib gnome1
 endif
 ifeq ($(FULL_TARGET),arm-linux)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
+override TARGET_DIRS+=unzip zlib fftw hermes x11 ptc opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
 endif
 ifeq ($(FULL_TARGET),powerpc64-linux)
-override TARGET_DIRS+=unzip zlib fftw x11 opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
+override TARGET_DIRS+=unzip zlib fftw hermes x11 ptc opengl gtk gtk2 syslog forms svgalib ggi libpng libgd utmp bfd gdbm ncurses tcl cdrom imlib gnome1 fpgtk unixutil newt uuid
 endif
 override INSTALL_FPCPACKAGE=y
 override INSTALL_FPCSUBDIR=packages/extra
@@ -1345,7 +1345,9 @@ ifeq ($(FULL_TARGET),i386-linux)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_GTK2=1
@@ -1370,6 +1372,8 @@ TARGET_DIRS_UUID=1
 endif
 ifeq ($(FULL_TARGET),i386-go32v2)
 TARGET_DIRS_UNZIP=1
+TARGET_DIRS_HERMES=1
+TARGET_DIRS_PTC=1
 endif
 ifeq ($(FULL_TARGET),i386-win32)
 TARGET_DIRS_UNZIP=1
@@ -1382,9 +1386,12 @@ TARGET_DIRS_CDROM=1
 TARGET_DIRS_FPGTK=1
 TARGET_DIRS_WINUNITS=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
+TARGET_DIRS_PTC=1
 endif
 ifeq ($(FULL_TARGET),i386-os2)
 TARGET_DIRS_OS2UNITS=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_REXX=1
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
@@ -1399,7 +1406,9 @@ ifeq ($(FULL_TARGET),i386-freebsd)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_GTK2=1
@@ -1421,7 +1430,9 @@ endif
 ifeq ($(FULL_TARGET),i386-netbsd)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_SYSLOG=1
@@ -1442,11 +1453,14 @@ endif
 ifeq ($(FULL_TARGET),i386-netware)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
+TARGET_DIRS_HERMES=1
 endif
 ifeq ($(FULL_TARGET),i386-openbsd)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_SYSLOG=1
@@ -1479,12 +1493,15 @@ endif
 ifeq ($(FULL_TARGET),i386-netwlibc)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
+TARGET_DIRS_HERMES=1
 endif
 ifeq ($(FULL_TARGET),m68k-linux)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_GTK2=1
@@ -1511,7 +1528,9 @@ ifeq ($(FULL_TARGET),m68k-freebsd)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_GTK2=1
@@ -1533,7 +1552,9 @@ endif
 ifeq ($(FULL_TARGET),m68k-netbsd)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_SYSLOG=1
@@ -1553,11 +1574,14 @@ TARGET_DIRS_GNOME1=1
 endif
 ifeq ($(FULL_TARGET),m68k-amiga)
 TARGET_DIRS_AMUNITS=1
+TARGET_DIRS_HERMES=1
 endif
 ifeq ($(FULL_TARGET),m68k-openbsd)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_SYSLOG=1
@@ -1577,12 +1601,15 @@ TARGET_DIRS_GNOME1=1
 endif
 ifeq ($(FULL_TARGET),m68k-palmos)
 TARGET_DIRS_PALMUNITS=1
+TARGET_DIRS_HERMES=1
 endif
 ifeq ($(FULL_TARGET),powerpc-linux)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_GTK2=1
@@ -1608,7 +1635,9 @@ endif
 ifeq ($(FULL_TARGET),powerpc-netbsd)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_SYSLOG=1
@@ -1630,6 +1659,7 @@ ifeq ($(FULL_TARGET),powerpc-darwin)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
@@ -1653,7 +1683,9 @@ ifeq ($(FULL_TARGET),sparc-linux)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_GTK2=1
@@ -1679,7 +1711,9 @@ endif
 ifeq ($(FULL_TARGET),sparc-netbsd)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_SYSLOG=1
@@ -1701,7 +1735,9 @@ ifeq ($(FULL_TARGET),x86_64-linux)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_GTK2=1
@@ -1728,7 +1764,9 @@ ifeq ($(FULL_TARGET),x86_64-freebsd)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_GTK2=1
@@ -1751,7 +1789,9 @@ ifeq ($(FULL_TARGET),arm-linux)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_GTK2=1
@@ -1778,7 +1818,9 @@ ifeq ($(FULL_TARGET),powerpc64-linux)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_FFTW=1
+TARGET_DIRS_HERMES=1
 TARGET_DIRS_X11=1
+TARGET_DIRS_PTC=1
 TARGET_DIRS_OPENGL=1
 TARGET_DIRS_GTK=1
 TARGET_DIRS_GTK2=1
@@ -1936,6 +1978,51 @@ fftw:
 	$(MAKE) -C fftw all
 .PHONY: fftw_all fftw_debug fftw_smart fftw_release fftw_units fftw_examples fftw_shared fftw_install fftw_sourceinstall fftw_exampleinstall fftw_distinstall fftw_zipinstall fftw_zipsourceinstall fftw_zipexampleinstall fftw_zipdistinstall fftw_clean fftw_distclean fftw_cleanall fftw_info fftw_makefiles fftw
 endif
+ifdef TARGET_DIRS_HERMES
+hermes_all:
+	$(MAKE) -C hermes all
+hermes_debug:
+	$(MAKE) -C hermes debug
+hermes_smart:
+	$(MAKE) -C hermes smart
+hermes_release:
+	$(MAKE) -C hermes release
+hermes_units:
+	$(MAKE) -C hermes units
+hermes_examples:
+	$(MAKE) -C hermes examples
+hermes_shared:
+	$(MAKE) -C hermes shared
+hermes_install:
+	$(MAKE) -C hermes install
+hermes_sourceinstall:
+	$(MAKE) -C hermes sourceinstall
+hermes_exampleinstall:
+	$(MAKE) -C hermes exampleinstall
+hermes_distinstall:
+	$(MAKE) -C hermes distinstall
+hermes_zipinstall:
+	$(MAKE) -C hermes zipinstall
+hermes_zipsourceinstall:
+	$(MAKE) -C hermes zipsourceinstall
+hermes_zipexampleinstall:
+	$(MAKE) -C hermes zipexampleinstall
+hermes_zipdistinstall:
+	$(MAKE) -C hermes zipdistinstall
+hermes_clean:
+	$(MAKE) -C hermes clean
+hermes_distclean:
+	$(MAKE) -C hermes distclean
+hermes_cleanall:
+	$(MAKE) -C hermes cleanall
+hermes_info:
+	$(MAKE) -C hermes info
+hermes_makefiles:
+	$(MAKE) -C hermes makefiles
+hermes:
+	$(MAKE) -C hermes all
+.PHONY: hermes_all hermes_debug hermes_smart hermes_release hermes_units hermes_examples hermes_shared hermes_install hermes_sourceinstall hermes_exampleinstall hermes_distinstall hermes_zipinstall hermes_zipsourceinstall hermes_zipexampleinstall hermes_zipdistinstall hermes_clean hermes_distclean hermes_cleanall hermes_info hermes_makefiles hermes
+endif
 ifdef TARGET_DIRS_X11
 x11_all:
 	$(MAKE) -C x11 all
@@ -1981,6 +2068,51 @@ x11:
 	$(MAKE) -C x11 all
 .PHONY: x11_all x11_debug x11_smart x11_release x11_units x11_examples x11_shared x11_install x11_sourceinstall x11_exampleinstall x11_distinstall x11_zipinstall x11_zipsourceinstall x11_zipexampleinstall x11_zipdistinstall x11_clean x11_distclean x11_cleanall x11_info x11_makefiles x11
 endif
+ifdef TARGET_DIRS_PTC
+ptc_all:
+	$(MAKE) -C ptc all
+ptc_debug:
+	$(MAKE) -C ptc debug
+ptc_smart:
+	$(MAKE) -C ptc smart
+ptc_release:
+	$(MAKE) -C ptc release
+ptc_units:
+	$(MAKE) -C ptc units
+ptc_examples:
+	$(MAKE) -C ptc examples
+ptc_shared:
+	$(MAKE) -C ptc shared
+ptc_install:
+	$(MAKE) -C ptc install
+ptc_sourceinstall:
+	$(MAKE) -C ptc sourceinstall
+ptc_exampleinstall:
+	$(MAKE) -C ptc exampleinstall
+ptc_distinstall:
+	$(MAKE) -C ptc distinstall
+ptc_zipinstall:
+	$(MAKE) -C ptc zipinstall
+ptc_zipsourceinstall:
+	$(MAKE) -C ptc zipsourceinstall
+ptc_zipexampleinstall:
+	$(MAKE) -C ptc zipexampleinstall
+ptc_zipdistinstall:
+	$(MAKE) -C ptc zipdistinstall
+ptc_clean:
+	$(MAKE) -C ptc clean
+ptc_distclean:
+	$(MAKE) -C ptc distclean
+ptc_cleanall:
+	$(MAKE) -C ptc cleanall
+ptc_info:
+	$(MAKE) -C ptc info
+ptc_makefiles:
+	$(MAKE) -C ptc makefiles
+ptc:
+	$(MAKE) -C ptc all
+.PHONY: ptc_all ptc_debug ptc_smart ptc_release ptc_units ptc_examples ptc_shared ptc_install ptc_sourceinstall ptc_exampleinstall ptc_distinstall ptc_zipinstall ptc_zipsourceinstall ptc_zipexampleinstall ptc_zipdistinstall ptc_clean ptc_distclean ptc_cleanall ptc_info ptc_makefiles ptc
+endif
 ifdef TARGET_DIRS_OPENGL
 opengl_all:
 	$(MAKE) -C opengl all

packages/extra/ggi/Makefile

@@ -1,5 +1,5 @@
 #
-# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/12/04]
+# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/11/26]
 #
 default: all
 MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-wince powerpc64-linux
@@ -657,11 +657,6 @@ GCCLIBDIR:=$(shell dirname `gcc -m32 -print-libgcc-file-name`)
 endif
 endif
 endif
-ifeq ($(CPU_TARGET),powerpc64)
-ifeq ($(BINUTILSPREFIX),)
-GCCLIBDIR:=$(shell dirname `gcc -m64 -print-libgcc-file-name`)
-endif
-endif
 endif
 ifndef GCCLIBDIR
 CROSSGCC=$(strip $(wildcard $(addsuffix /$(BINUTILSPREFIX)gcc$(SRCEXEEXT),$(SEARCHPATH))))
@@ -1479,14 +1474,6 @@ override FPCEXTCMD:=$(FPCOPT)
 override FPCOPT:=!FPCEXTCMD
 export FPCEXTCMD
 endif
-override AFULL_TARGET=$(CPU_TARGET)-$(OS_TARGET)
-override AFULL_SOURCE=$(CPU_SOURCE)-$(OS_SOURCE)
-ifneq ($(AFULL_TARGET),$(AFULL_SOURCE))
-override ACROSSCOMPILE=1
-endif
-ifdef ACROSSCOMPILE
-override FPCOPT+=$(CROSSOPT)
-endif
 override COMPILER:=$(FPC) $(FPCOPT)
 ifeq (,$(findstring -s ,$(COMPILER)))
 EXECPPAS=

packages/extra/hermes/Makefile

@@ -0,0 +1,2011 @@
+#
+# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/11/26]
+#
+default: all
+MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-wince powerpc64-linux
+BSDs = freebsd netbsd openbsd darwin
+UNIXs = linux $(BSDs) solaris qnx
+LIMIT83fs = go32v2 os2 emx watcom
+FORCE:
+.PHONY: FORCE
+override PATH:=$(patsubst %/,%,$(subst \,/,$(PATH)))
+ifneq ($(findstring darwin,$(OSTYPE)),)
+inUnix=1 #darwin
+SEARCHPATH:=$(filter-out .,$(subst :, ,$(PATH)))
+else
+ifeq ($(findstring ;,$(PATH)),)
+inUnix=1
+SEARCHPATH:=$(filter-out .,$(subst :, ,$(PATH)))
+else
+SEARCHPATH:=$(subst ;, ,$(PATH))
+endif
+endif
+SEARCHPATH+=$(patsubst %/,%,$(subst \,/,$(dir $(MAKE))))
+PWD:=$(strip $(wildcard $(addsuffix /pwd.exe,$(SEARCHPATH))))
+ifeq ($(PWD),)
+PWD:=$(strip $(wildcard $(addsuffix /pwd,$(SEARCHPATH))))
+ifeq ($(PWD),)
+$(error You need the GNU utils package to use this Makefile)
+else
+PWD:=$(firstword $(PWD))
+SRCEXEEXT=
+endif
+else
+PWD:=$(firstword $(PWD))
+SRCEXEEXT=.exe
+endif
+ifndef inUnix
+ifeq ($(OS),Windows_NT)
+inWinNT=1
+else
+ifdef OS2_SHELL
+inOS2=1
+endif
+endif
+else
+ifneq ($(findstring cygdrive,$(PATH)),)
+inCygWin=1
+endif
+endif
+ifdef inUnix
+SRCBATCHEXT=.sh
+else
+ifdef inOS2
+SRCBATCHEXT=.cmd
+else
+SRCBATCHEXT=.bat
+endif
+endif
+ifdef inUnix
+PATHSEP=/
+else
+PATHSEP:=$(subst /,\,/)
+ifdef inCygWin
+PATHSEP=/
+endif
+endif
+ifdef PWD
+BASEDIR:=$(subst \,/,$(shell $(PWD)))
+ifdef inCygWin
+ifneq ($(findstring /cygdrive/,$(BASEDIR)),)
+BASENODIR:=$(patsubst /cygdrive%,%,$(BASEDIR))
+BASEDRIVE:=$(firstword $(subst /, ,$(BASENODIR)))
+BASEDIR:=$(subst /cygdrive/$(BASEDRIVE)/,$(BASEDRIVE):/,$(BASEDIR))
+endif
+endif
+else
+BASEDIR=.
+endif
+ifdef inOS2
+ifndef ECHO
+ECHO:=$(strip $(wildcard $(addsuffix /gecho$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO=echo
+else
+ECHO:=$(firstword $(ECHO))
+endif
+else
+ECHO:=$(firstword $(ECHO))
+endif
+endif
+export ECHO
+endif
+override DEFAULT_FPCDIR=../../..
+ifndef FPC
+ifdef PP
+FPC=$(PP)
+endif
+endif
+ifndef FPC
+FPCPROG:=$(strip $(wildcard $(addsuffix /fpc$(SRCEXEEXT),$(SEARCHPATH))))
+ifneq ($(FPCPROG),)
+FPCPROG:=$(firstword $(FPCPROG))
+FPC:=$(shell $(FPCPROG) -PB)
+ifneq ($(findstring Error,$(FPC)),)
+override FPC=$(firstword $(strip $(wildcard $(addsuffix /ppc386$(SRCEXEEXT),$(SEARCHPATH)))))
+endif
+else
+override FPC=$(firstword $(strip $(wildcard $(addsuffix /ppc386$(SRCEXEEXT),$(SEARCHPATH)))))
+endif
+endif
+override FPC:=$(subst $(SRCEXEEXT),,$(FPC))
+override FPC:=$(subst \,/,$(FPC))$(SRCEXEEXT)
+FOUNDFPC:=$(strip $(wildcard $(FPC)))
+ifeq ($(FOUNDFPC),)
+FOUNDFPC=$(strip $(wildcard $(addsuffix /$(FPC),$(SEARCHPATH))))
+ifeq ($(FOUNDFPC),)
+$(error Compiler $(FPC) not found)
+endif
+endif
+ifndef FPC_COMPILERINFO
+FPC_COMPILERINFO:=$(shell $(FPC) -iVSPTPSOTO)
+endif
+ifndef FPC_VERSION
+FPC_VERSION:=$(word 1,$(FPC_COMPILERINFO))
+endif
+export FPC FPC_VERSION FPC_COMPILERINFO
+unexport CHECKDEPEND ALLDEPENDENCIES
+ifndef CPU_TARGET
+ifdef CPU_TARGET_DEFAULT
+CPU_TARGET=$(CPU_TARGET_DEFAULT)
+endif
+endif
+ifndef OS_TARGET
+ifdef OS_TARGET_DEFAULT
+OS_TARGET=$(OS_TARGET_DEFAULT)
+endif
+endif
+ifneq ($(words $(FPC_COMPILERINFO)),5)
+FPC_COMPILERINFO+=$(shell $(FPC) -iSP)
+FPC_COMPILERINFO+=$(shell $(FPC) -iTP)
+FPC_COMPILERINFO+=$(shell $(FPC) -iSO)
+FPC_COMPILERINFO+=$(shell $(FPC) -iTO)
+endif
+ifndef CPU_SOURCE
+CPU_SOURCE:=$(word 2,$(FPC_COMPILERINFO))
+endif
+ifndef CPU_TARGET
+CPU_TARGET:=$(word 3,$(FPC_COMPILERINFO))
+endif
+ifndef OS_SOURCE
+OS_SOURCE:=$(word 4,$(FPC_COMPILERINFO))
+endif
+ifndef OS_TARGET
+OS_TARGET:=$(word 5,$(FPC_COMPILERINFO))
+endif
+FULL_TARGET=$(CPU_TARGET)-$(OS_TARGET)
+FULL_SOURCE=$(CPU_SOURCE)-$(OS_SOURCE)
+ifneq ($(findstring $(OS_SOURCE),$(LIMIT83fs)),)
+TARGETSUFFIX=$(OS_TARGET)
+SOURCESUFFIX=$(OS_SOURCE)
+else
+TARGETSUFFIX=$(FULL_TARGET)
+SOURCESUFFIX=$(FULL_SOURCE)
+endif
+ifneq ($(FULL_TARGET),$(FULL_SOURCE))
+CROSSCOMPILE=1
+endif
+ifeq ($(findstring makefile,$(MAKECMDGOALS)),)
+ifeq ($(findstring $(FULL_TARGET),$(MAKEFILETARGETS)),)
+$(error The Makefile doesn't support target $(FULL_TARGET), please run fpcmake first)
+endif
+endif
+ifneq ($(findstring $(OS_TARGET),$(BSDs)),)
+BSDhier=1
+endif
+ifeq ($(OS_TARGET),linux)
+linuxHier=1
+endif
+export OS_TARGET OS_SOURCE CPU_TARGET CPU_SOURCE FULL_TARGET FULL_SOURCE TARGETSUFFIX SOURCESUFFIX CROSSCOMPILE
+ifdef FPCDIR
+override FPCDIR:=$(subst \,/,$(FPCDIR))
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR=wrong
+endif
+else
+override FPCDIR=wrong
+endif
+ifdef DEFAULT_FPCDIR
+ifeq ($(FPCDIR),wrong)
+override FPCDIR:=$(subst \,/,$(DEFAULT_FPCDIR))
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR=wrong
+endif
+endif
+endif
+ifeq ($(FPCDIR),wrong)
+ifdef inUnix
+override FPCDIR=/usr/local/lib/fpc/$(FPC_VERSION)
+ifeq ($(wildcard $(FPCDIR)/units),)
+override FPCDIR=/usr/lib/fpc/$(FPC_VERSION)
+endif
+else
+override FPCDIR:=$(subst /$(FPC),,$(firstword $(strip $(wildcard $(addsuffix /$(FPC),$(SEARCHPATH))))))
+override FPCDIR:=$(FPCDIR)/..
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR:=$(FPCDIR)/..
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR:=$(BASEDIR)
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR=c:/pp
+endif
+endif
+endif
+endif
+endif
+ifndef CROSSBINDIR
+CROSSBINDIR:=$(wildcard $(FPCDIR)/bin/$(TARGETSUFFIX))
+endif
+ifndef BINUTILSPREFIX
+ifndef CROSSBINDIR
+ifdef CROSSCOMPILE
+BINUTILSPREFIX=$(CPU_TARGET)-$(OS_TARGET)-
+endif
+endif
+endif
+UNITSDIR:=$(wildcard $(FPCDIR)/units/$(TARGETSUFFIX))
+ifeq ($(UNITSDIR),)
+UNITSDIR:=$(wildcard $(FPCDIR)/units/$(OS_TARGET))
+endif
+PACKAGESDIR:=$(wildcard $(FPCDIR) $(FPCDIR)/packages/base $(FPCDIR)/packages/extra)
+override PACKAGE_NAME=hermes
+override PACKAGE_VERSION=0.99.5
+I386_LOADERSSRC=i386/x86_main.as i386/x86p_cpy.as \
+	i386/x86pscpy.as i386/x86p_16.as \
+	i386/x86p_i8.as i386/x86_clr.as \
+	i386/x86p_32.as i386/x86p_s32.as
+ifeq ($(CPU_TARGET),i386)
+CPU_LOADERS=mmx_clr mmxp_32 mmx_main mmxp2_32 hm_i386
+else
+CPU_LOADERS=
+endif
+ifeq ($(FULL_TARGET),i386-linux)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override TARGET_UNITS+=hermes
+endif
+ifeq ($(FULL_TARGET),i386-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifdef REQUIRE_UNITSDIR
+override UNITSDIR+=$(REQUIRE_UNITSDIR)
+endif
+ifdef REQUIRE_PACKAGESDIR
+override PACKAGESDIR+=$(REQUIRE_PACKAGESDIR)
+endif
+ifdef ZIPINSTALL
+ifneq ($(findstring $(OS_TARGET),$(UNIXs)),)
+UNIXHier=1
+endif
+else
+ifneq ($(findstring $(OS_SOURCE),$(UNIXs)),)
+UNIXHier=1
+endif
+endif
+ifndef INSTALL_PREFIX
+ifdef PREFIX
+INSTALL_PREFIX=$(PREFIX)
+endif
+endif
+ifndef INSTALL_PREFIX
+ifdef UNIXHier
+INSTALL_PREFIX=/usr/local
+else
+ifdef INSTALL_FPCPACKAGE
+INSTALL_BASEDIR:=/pp
+else
+INSTALL_BASEDIR:=/$(PACKAGE_NAME)
+endif
+endif
+endif
+export INSTALL_PREFIX
+ifdef INSTALL_FPCSUBDIR
+export INSTALL_FPCSUBDIR
+endif
+ifndef DIST_DESTDIR
+DIST_DESTDIR:=$(BASEDIR)
+endif
+export DIST_DESTDIR
+ifndef COMPILER_UNITTARGETDIR
+ifdef PACKAGEDIR_MAIN
+COMPILER_UNITTARGETDIR=$(PACKAGEDIR_MAIN)/units/$(TARGETSUFFIX)
+else
+COMPILER_UNITTARGETDIR=units/$(TARGETSUFFIX)
+endif
+endif
+ifndef COMPILER_TARGETDIR
+COMPILER_TARGETDIR=.
+endif
+ifndef INSTALL_BASEDIR
+ifdef UNIXHier
+ifdef INSTALL_FPCPACKAGE
+INSTALL_BASEDIR:=$(INSTALL_PREFIX)/lib/fpc/$(FPC_VERSION)
+else
+INSTALL_BASEDIR:=$(INSTALL_PREFIX)/lib/$(PACKAGE_NAME)
+endif
+else
+INSTALL_BASEDIR:=$(INSTALL_PREFIX)
+endif
+endif
+ifndef INSTALL_BINDIR
+ifdef UNIXHier
+INSTALL_BINDIR:=$(INSTALL_PREFIX)/bin
+else
+INSTALL_BINDIR:=$(INSTALL_BASEDIR)/bin
+ifdef INSTALL_FPCPACKAGE
+ifdef CROSSCOMPILE
+ifdef CROSSINSTALL
+INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(SOURCESUFFIX)
+else
+INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(TARGETSUFFIX)
+endif
+else
+INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(TARGETSUFFIX)
+endif
+endif
+endif
+endif
+ifndef INSTALL_UNITDIR
+INSTALL_UNITDIR:=$(INSTALL_BASEDIR)/units/$(TARGETSUFFIX)
+ifdef INSTALL_FPCPACKAGE
+ifdef PACKAGE_NAME
+INSTALL_UNITDIR:=$(INSTALL_UNITDIR)/$(PACKAGE_NAME)
+endif
+endif
+endif
+ifndef INSTALL_LIBDIR
+ifdef UNIXHier
+INSTALL_LIBDIR:=$(INSTALL_PREFIX)/lib
+else
+INSTALL_LIBDIR:=$(INSTALL_UNITDIR)
+endif
+endif
+ifndef INSTALL_SOURCEDIR
+ifdef UNIXHier
+ifdef BSDhier
+SRCPREFIXDIR=share/src
+else
+ifdef linuxHier
+SRCPREFIXDIR=share/src
+else
+SRCPREFIXDIR=src
+endif
+endif
+ifdef INSTALL_FPCPACKAGE
+ifdef INSTALL_FPCSUBDIR
+INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/fpc-$(FPC_VERSION)/$(INSTALL_FPCSUBDIR)/$(PACKAGE_NAME)
+else
+INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/fpc-$(FPC_VERSION)/$(PACKAGE_NAME)
+endif
+else
+INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+endif
+else
+ifdef INSTALL_FPCPACKAGE
+ifdef INSTALL_FPCSUBDIR
+INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source/$(INSTALL_FPCSUBDIR)/$(PACKAGE_NAME)
+else
+INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source/$(PACKAGE_NAME)
+endif
+else
+INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source
+endif
+endif
+endif
+ifndef INSTALL_DOCDIR
+ifdef UNIXHier
+ifdef BSDhier
+DOCPREFIXDIR=share/doc
+else
+ifdef linuxHier
+DOCPREFIXDIR=share/doc
+else
+DOCPREFIXDIR=doc
+endif
+endif
+ifdef INSTALL_FPCPACKAGE
+INSTALL_DOCDIR:=$(INSTALL_PREFIX)/$(DOCPREFIXDIR)/fpc-$(FPC_VERSION)/$(PACKAGE_NAME)
+else
+INSTALL_DOCDIR:=$(INSTALL_PREFIX)/$(DOCPREFIXDIR)/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+endif
+else
+ifdef INSTALL_FPCPACKAGE
+INSTALL_DOCDIR:=$(INSTALL_BASEDIR)/doc/$(PACKAGE_NAME)
+else
+INSTALL_DOCDIR:=$(INSTALL_BASEDIR)/doc
+endif
+endif
+endif
+ifndef INSTALL_EXAMPLEDIR
+ifdef UNIXHier
+ifdef INSTALL_FPCPACKAGE
+ifdef BSDhier
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/share/examples/fpc-$(FPC_VERSION)/$(PACKAGE_NAME)
+else
+ifdef linuxHier
+INSTALL_EXAMPLEDIR:=$(INSTALL_DOCDIR)/examples
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/doc/fpc-$(FPC_VERSION)/examples/$(PACKAGE_NAME)
+endif
+endif
+else
+ifdef BSDhier
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/share/examples/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+else
+ifdef linuxHier
+INSTALL_EXAMPLEDIR:=$(INSTALL_DOCDIR)/examples/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/doc/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+endif
+endif
+endif
+else
+ifdef INSTALL_FPCPACKAGE
+INSTALL_EXAMPLEDIR:=$(INSTALL_BASEDIR)/examples/$(PACKAGE_NAME)
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_BASEDIR)/examples
+endif
+endif
+endif
+ifndef INSTALL_DATADIR
+INSTALL_DATADIR=$(INSTALL_BASEDIR)
+endif
+ifdef CROSSCOMPILE
+ifndef CROSSBINDIR
+CROSSBINDIR:=$(wildcard $(CROSSTARGETDIR)/bin/$(SOURCESUFFIX))
+ifeq ($(CROSSBINDIR),)
+CROSSBINDIR:=$(wildcard $(INSTALL_BASEDIR)/cross/$(TARGETSUFFIX)/bin/$(FULL_SOURCE))
+endif
+endif
+else
+CROSSBINDIR=
+endif
+BATCHEXT=.bat
+LOADEREXT=.as
+EXEEXT=.exe
+PPLEXT=.ppl
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.so
+STATICLIBPREFIX=libp
+RSTEXT=.rst
+ifeq ($(findstring 1.0.,$(FPC_VERSION)),)
+ifeq ($(OS_TARGET),go32v1)
+STATICLIBPREFIX=
+SHORTSUFFIX=v1
+endif
+ifeq ($(OS_TARGET),go32v2)
+STATICLIBPREFIX=
+SHORTSUFFIX=dos
+endif
+ifeq ($(OS_TARGET),watcom)
+STATICLIBPREFIX=
+OEXT=.obj
+ASMEXT=.asm
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=wat
+endif
+ifeq ($(OS_TARGET),linux)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=lnx
+endif
+ifeq ($(OS_TARGET),freebsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=fbs
+endif
+ifeq ($(OS_TARGET),netbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=nbs
+endif
+ifeq ($(OS_TARGET),openbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=obs
+endif
+ifeq ($(OS_TARGET),win32)
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=w32
+endif
+ifeq ($(OS_TARGET),os2)
+BATCHEXT=.cmd
+AOUTEXT=.out
+STATICLIBPREFIX=
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=os2
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),emx)
+BATCHEXT=.cmd
+AOUTEXT=.out
+STATICLIBPREFIX=
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=emx
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),amiga)
+EXEEXT=
+SHAREDLIBEXT=.library
+SHORTSUFFIX=amg
+endif
+ifeq ($(OS_TARGET),morphos)
+EXEEXT=
+SHAREDLIBEXT=.library
+SHORTSUFFIX=mos
+endif
+ifeq ($(OS_TARGET),atari)
+EXEEXT=.ttp
+SHORTSUFFIX=ata
+endif
+ifeq ($(OS_TARGET),beos)
+BATCHEXT=.sh
+EXEEXT=
+SHORTSUFFIX=be
+endif
+ifeq ($(OS_TARGET),solaris)
+BATCHEXT=.sh
+EXEEXT=
+SHORTSUFFIX=sun
+endif
+ifeq ($(OS_TARGET),qnx)
+BATCHEXT=.sh
+EXEEXT=
+SHORTSUFFIX=qnx
+endif
+ifeq ($(OS_TARGET),netware)
+EXEEXT=.nlm
+STATICLIBPREFIX=
+SHORTSUFFIX=nw
+endif
+ifeq ($(OS_TARGET),netwlibc)
+EXEEXT=.nlm
+STATICLIBPREFIX=
+SHORTSUFFIX=nwl
+endif
+ifeq ($(OS_TARGET),macos)
+BATCHEXT=
+EXEEXT=
+DEBUGSYMEXT=.xcoff
+SHORTSUFFIX=mac
+endif
+ifeq ($(OS_TARGET),darwin)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=dwn
+endif
+else
+ifeq ($(OS_TARGET),go32v1)
+PPUEXT=.pp1
+OEXT=.o1
+ASMEXT=.s1
+SMARTEXT=.sl1
+STATICLIBEXT=.a1
+SHAREDLIBEXT=.so1
+STATICLIBPREFIX=
+SHORTSUFFIX=v1
+endif
+ifeq ($(OS_TARGET),go32v2)
+STATICLIBPREFIX=
+SHORTSUFFIX=dos
+endif
+ifeq ($(OS_TARGET),watcom)
+STATICLIBPREFIX=
+SHORTSUFFIX=wat
+endif
+ifeq ($(OS_TARGET),linux)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=lnx
+endif
+ifeq ($(OS_TARGET),freebsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=fbs
+endif
+ifeq ($(OS_TARGET),netbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=nbs
+endif
+ifeq ($(OS_TARGET),openbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=obs
+endif
+ifeq ($(OS_TARGET),win32)
+PPUEXT=.ppw
+OEXT=.ow
+ASMEXT=.sw
+SMARTEXT=.slw
+STATICLIBEXT=.aw
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=w32
+endif
+ifeq ($(OS_TARGET),os2)
+BATCHEXT=.cmd
+PPUEXT=.ppo
+ASMEXT=.so2
+OEXT=.oo2
+AOUTEXT=.out
+SMARTEXT=.sl2
+STATICLIBPREFIX=
+STATICLIBEXT=.ao2
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=os2
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),amiga)
+EXEEXT=
+PPUEXT=.ppu
+ASMEXT=.asm
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.library
+SHORTSUFFIX=amg
+endif
+ifeq ($(OS_TARGET),atari)
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=.ttp
+SHORTSUFFIX=ata
+endif
+ifeq ($(OS_TARGET),beos)
+BATCHEXT=.sh
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+SHORTSUFFIX=be
+endif
+ifeq ($(OS_TARGET),solaris)
+BATCHEXT=.sh
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+SHORTSUFFIX=sun
+endif
+ifeq ($(OS_TARGET),qnx)
+BATCHEXT=.sh
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+SHORTSUFFIX=qnx
+endif
+ifeq ($(OS_TARGET),netware)
+STATICLIBPREFIX=
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.nlm
+EXEEXT=.nlm
+SHORTSUFFIX=nw
+endif
+ifeq ($(OS_TARGET),netwlibc)
+STATICLIBPREFIX=
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.nlm
+EXEEXT=.nlm
+SHORTSUFFIX=nwl
+endif
+ifeq ($(OS_TARGET),macos)
+BATCHEXT=
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+DEBUGSYMEXT=.xcoff
+SHORTSUFFIX=mac
+endif
+endif
+ifneq ($(findstring $(OS_SOURCE),$(LIMIT83fs)),)
+FPCMADE=fpcmade.$(SHORTSUFFIX)
+ZIPSUFFIX=$(SHORTSUFFIX)
+ZIPCROSSPREFIX=
+ZIPSOURCESUFFIX=src
+ZIPEXAMPLESUFFIX=exm
+else
+FPCMADE=fpcmade.$(TARGETSUFFIX)
+ZIPSOURCESUFFIX=.source
+ZIPEXAMPLESUFFIX=.examples
+ifdef CROSSCOMPILE
+ZIPSUFFIX=.$(SOURCESUFFIX)
+ZIPCROSSPREFIX=$(TARGETSUFFIX)-
+else
+ZIPSUFFIX=.$(TARGETSUFFIX)
+ZIPCROSSPREFIX=
+endif
+endif
+ifndef ECHO
+ECHO:=$(strip $(wildcard $(addsuffix /gecho$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO= __missing_command_ECHO
+else
+ECHO:=$(firstword $(ECHO))
+endif
+else
+ECHO:=$(firstword $(ECHO))
+endif
+endif
+export ECHO
+ifndef DATE
+DATE:=$(strip $(wildcard $(addsuffix /gdate$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(DATE),)
+DATE:=$(strip $(wildcard $(addsuffix /date$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(DATE),)
+DATE= __missing_command_DATE
+else
+DATE:=$(firstword $(DATE))
+endif
+else
+DATE:=$(firstword $(DATE))
+endif
+endif
+export DATE
+ifndef GINSTALL
+GINSTALL:=$(strip $(wildcard $(addsuffix /ginstall$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(GINSTALL),)
+GINSTALL:=$(strip $(wildcard $(addsuffix /install$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(GINSTALL),)
+GINSTALL= __missing_command_GINSTALL
+else
+GINSTALL:=$(firstword $(GINSTALL))
+endif
+else
+GINSTALL:=$(firstword $(GINSTALL))
+endif
+endif
+export GINSTALL
+ifndef CPPROG
+CPPROG:=$(strip $(wildcard $(addsuffix /cp$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(CPPROG),)
+CPPROG= __missing_command_CPPROG
+else
+CPPROG:=$(firstword $(CPPROG))
+endif
+endif
+export CPPROG
+ifndef RMPROG
+RMPROG:=$(strip $(wildcard $(addsuffix /rm$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(RMPROG),)
+RMPROG= __missing_command_RMPROG
+else
+RMPROG:=$(firstword $(RMPROG))
+endif
+endif
+export RMPROG
+ifndef MVPROG
+MVPROG:=$(strip $(wildcard $(addsuffix /mv$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(MVPROG),)
+MVPROG= __missing_command_MVPROG
+else
+MVPROG:=$(firstword $(MVPROG))
+endif
+endif
+export MVPROG
+ifndef MKDIRPROG
+MKDIRPROG:=$(strip $(wildcard $(addsuffix /gmkdir$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(MKDIRPROG),)
+MKDIRPROG:=$(strip $(wildcard $(addsuffix /mkdir$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(MKDIRPROG),)
+MKDIRPROG= __missing_command_MKDIRPROG
+else
+MKDIRPROG:=$(firstword $(MKDIRPROG))
+endif
+else
+MKDIRPROG:=$(firstword $(MKDIRPROG))
+endif
+endif
+export MKDIRPROG
+ifndef ECHOREDIR
+ifndef inUnix
+ECHOREDIR=echo
+else
+ECHOREDIR=$(ECHO)
+endif
+endif
+ifndef COPY
+COPY:=$(CPPROG) -fp
+endif
+ifndef COPYTREE
+COPYTREE:=$(CPPROG) -Rfp
+endif
+ifndef MKDIRTREE
+MKDIRTREE:=$(MKDIRPROG) -p
+endif
+ifndef MOVE
+MOVE:=$(MVPROG) -f
+endif
+ifndef DEL
+DEL:=$(RMPROG) -f
+endif
+ifndef DELTREE
+DELTREE:=$(RMPROG) -rf
+endif
+ifndef INSTALL
+ifdef inUnix
+INSTALL:=$(GINSTALL) -c -m 644
+else
+INSTALL:=$(COPY)
+endif
+endif
+ifndef INSTALLEXE
+ifdef inUnix
+INSTALLEXE:=$(GINSTALL) -c -m 755
+else
+INSTALLEXE:=$(COPY)
+endif
+endif
+ifndef MKDIR
+MKDIR:=$(GINSTALL) -m 755 -d
+endif
+export ECHOREDIR COPY COPYTREE MOVE DEL DELTREE INSTALL INSTALLEXE MKDIR
+ifndef PPUMOVE
+PPUMOVE:=$(strip $(wildcard $(addsuffix /ppumove$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(PPUMOVE),)
+PPUMOVE= __missing_command_PPUMOVE
+else
+PPUMOVE:=$(firstword $(PPUMOVE))
+endif
+endif
+export PPUMOVE
+ifndef FPCMAKE
+FPCMAKE:=$(strip $(wildcard $(addsuffix /fpcmake$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(FPCMAKE),)
+FPCMAKE= __missing_command_FPCMAKE
+else
+FPCMAKE:=$(firstword $(FPCMAKE))
+endif
+endif
+export FPCMAKE
+ifndef ZIPPROG
+ZIPPROG:=$(strip $(wildcard $(addsuffix /zip$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ZIPPROG),)
+ZIPPROG= __missing_command_ZIPPROG
+else
+ZIPPROG:=$(firstword $(ZIPPROG))
+endif
+endif
+export ZIPPROG
+ifndef TARPROG
+TARPROG:=$(strip $(wildcard $(addsuffix /tar$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(TARPROG),)
+TARPROG= __missing_command_TARPROG
+else
+TARPROG:=$(firstword $(TARPROG))
+endif
+endif
+export TARPROG
+ASNAME=$(BINUTILSPREFIX)as
+LDNAME=$(BINUTILSPREFIX)ld
+ARNAME=$(BINUTILSPREFIX)ar
+RCNAME=$(BINUTILSPREFIX)rc
+ifneq ($(findstring 1.0.,$(FPC_VERSION)),)
+ifeq ($(OS_TARGET),win32)
+ifeq ($(CROSSBINDIR),)
+ASNAME=asw
+LDNAME=ldw
+ARNAME=arw
+endif
+endif
+endif
+ifndef ASPROG
+ifdef CROSSBINDIR
+ASPROG=$(CROSSBINDIR)/$(ASNAME)$(SRCEXEEXT)
+else
+ASPROG=$(ASNAME)
+endif
+endif
+ifndef LDPROG
+ifdef CROSSBINDIR
+LDPROG=$(CROSSBINDIR)/$(LDNAME)$(SRCEXEEXT)
+else
+LDPROG=$(LDNAME)
+endif
+endif
+ifndef RCPROG
+ifdef CROSSBINDIR
+RCPROG=$(CROSSBINDIR)/$(RCNAME)$(SRCEXEEXT)
+else
+RCPROG=$(RCNAME)
+endif
+endif
+ifndef ARPROG
+ifdef CROSSBINDIR
+ARPROG=$(CROSSBINDIR)/$(ARNAME)$(SRCEXEEXT)
+else
+ARPROG=$(ARNAME)
+endif
+endif
+AS=$(ASPROG)
+LD=$(LDPROG)
+RC=$(RCPROG)
+AR=$(ARPROG)
+PPAS=ppas$(SRCBATCHEXT)
+ifdef inUnix
+LDCONFIG=ldconfig
+else
+LDCONFIG=
+endif
+ifdef DATE
+DATESTR:=$(shell $(DATE) +%Y%m%d)
+else
+DATESTR=
+endif
+ifndef UPXPROG
+ifeq ($(OS_TARGET),go32v2)
+UPXPROG:=1
+endif
+ifeq ($(OS_TARGET),win32)
+UPXPROG:=1
+endif
+ifdef UPXPROG
+UPXPROG:=$(strip $(wildcard $(addsuffix /upx$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(UPXPROG),)
+UPXPROG=
+else
+UPXPROG:=$(firstword $(UPXPROG))
+endif
+else
+UPXPROG=
+endif
+endif
+export UPXPROG
+ZIPOPT=-9
+ZIPEXT=.zip
+ifeq ($(USETAR),bz2)
+TAROPT=vj
+TAREXT=.tar.bz2
+else
+TAROPT=vz
+TAREXT=.tar.gz
+endif
+override REQUIRE_PACKAGES=rtl 
+ifeq ($(FULL_TARGET),i386-linux)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifdef REQUIRE_PACKAGES_RTL
+PACKAGEDIR_RTL:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /rtl/Makefile.fpc,$(PACKAGESDIR))))))
+ifneq ($(PACKAGEDIR_RTL),)
+ifneq ($(wildcard $(PACKAGEDIR_RTL)/units/$(TARGETSUFFIX)),)
+UNITDIR_RTL=$(PACKAGEDIR_RTL)/units/$(TARGETSUFFIX)
+else
+UNITDIR_RTL=$(PACKAGEDIR_RTL)
+endif
+ifdef CHECKDEPEND
+$(PACKAGEDIR_RTL)/$(FPCMADE):
+	$(MAKE) -C $(PACKAGEDIR_RTL) $(FPCMADE)
+override ALLDEPENDENCIES+=$(PACKAGEDIR_RTL)/$(FPCMADE)
+endif
+else
+PACKAGEDIR_RTL=
+UNITDIR_RTL:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /rtl/Package.fpc,$(UNITSDIR)))))
+ifneq ($(UNITDIR_RTL),)
+UNITDIR_RTL:=$(firstword $(UNITDIR_RTL))
+else
+UNITDIR_RTL=
+endif
+endif
+ifdef UNITDIR_RTL
+override COMPILER_UNITDIR+=$(UNITDIR_RTL)
+endif
+endif
+ifndef NOCPUDEF
+override FPCOPTDEF=$(CPU_TARGET)
+endif
+ifneq ($(OS_TARGET),$(OS_SOURCE))
+override FPCOPT+=-T$(OS_TARGET)
+endif
+ifeq ($(OS_SOURCE),openbsd)
+override FPCOPT+=-FD$(NEW_BINUTILS_PATH)
+endif
+ifndef CROSSBOOTSTRAP
+ifneq ($(BINUTILSPREFIX),)
+override FPCOPT+=-XP$(BINUTILSPREFIX) -Xc
+endif
+ifneq ($(BINUTILSPREFIX),)
+override FPCOPT+=-Xr$(RLINKPATH)
+endif
+endif
+ifdef UNITDIR
+override FPCOPT+=$(addprefix -Fu,$(UNITDIR))
+endif
+ifdef LIBDIR
+override FPCOPT+=$(addprefix -Fl,$(LIBDIR))
+endif
+ifdef OBJDIR
+override FPCOPT+=$(addprefix -Fo,$(OBJDIR))
+endif
+ifdef INCDIR
+override FPCOPT+=$(addprefix -Fi,$(INCDIR))
+endif
+ifdef LINKSMART
+override FPCOPT+=-XX
+endif
+ifdef CREATESMART
+override FPCOPT+=-CX
+endif
+ifdef DEBUG
+override FPCOPT+=-gl
+override FPCOPTDEF+=DEBUG
+endif
+ifdef RELEASE
+ifeq ($(CPU_TARGET),i386)
+FPCCPUOPT:=-OG2p3
+else
+ifeq ($(CPU_TARGET),powerpc)
+FPCCPUOPT:=-O1r
+else
+FPCCPUOPT:=
+endif
+endif
+override FPCOPT+=-Ur -Xs $(FPCCPUOPT) -n
+override FPCOPTDEF+=RELEASE
+endif
+ifdef STRIP
+override FPCOPT+=-Xs
+endif
+ifdef OPTIMIZE
+ifeq ($(CPU_TARGET),i386)
+override FPCOPT+=-OG2p3
+endif
+endif
+ifdef VERBOSE
+override FPCOPT+=-vwni
+endif
+ifdef COMPILER_OPTIONS
+override FPCOPT+=$(COMPILER_OPTIONS)
+endif
+ifdef COMPILER_UNITDIR
+override FPCOPT+=$(addprefix -Fu,$(COMPILER_UNITDIR))
+endif
+ifdef COMPILER_LIBRARYDIR
+override FPCOPT+=$(addprefix -Fl,$(COMPILER_LIBRARYDIR))
+endif
+ifdef COMPILER_OBJECTDIR
+override FPCOPT+=$(addprefix -Fo,$(COMPILER_OBJECTDIR))
+endif
+ifdef COMPILER_INCLUDEDIR
+override FPCOPT+=$(addprefix -Fi,$(COMPILER_INCLUDEDIR))
+endif
+ifdef CROSSBINDIR
+override FPCOPT+=-FD$(CROSSBINDIR)
+endif
+ifdef COMPILER_TARGETDIR
+override FPCOPT+=-FE$(COMPILER_TARGETDIR)
+ifeq ($(COMPILER_TARGETDIR),.)
+override TARGETDIRPREFIX=
+else
+override TARGETDIRPREFIX=$(COMPILER_TARGETDIR)/
+endif
+endif
+ifdef COMPILER_UNITTARGETDIR
+override FPCOPT+=-FU$(COMPILER_UNITTARGETDIR)
+ifeq ($(COMPILER_UNITTARGETDIR),.)
+override UNITTARGETDIRPREFIX=
+else
+override UNITTARGETDIRPREFIX=$(COMPILER_UNITTARGETDIR)/
+endif
+else
+ifdef COMPILER_TARGETDIR
+override COMPILER_UNITTARGETDIR=$(COMPILER_TARGETDIR)
+override UNITTARGETDIRPREFIX=$(TARGETDIRPREFIX)
+endif
+endif
+ifeq ($(OS_TARGET),linux)
+ifeq ($(FPC_VERSION),1.0.6)
+override FPCOPTDEF+=HASUNIX
+endif
+endif
+ifdef OPT
+override FPCOPT+=$(OPT)
+endif
+ifdef FPCOPTDEF
+override FPCOPT+=$(addprefix -d,$(FPCOPTDEF))
+endif
+ifdef CFGFILE
+override FPCOPT+=@$(CFGFILE)
+endif
+ifdef USEENV
+override FPCEXTCMD:=$(FPCOPT)
+override FPCOPT:=!FPCEXTCMD
+export FPCEXTCMD
+endif
+override COMPILER:=$(FPC) $(FPCOPT)
+ifeq (,$(findstring -s ,$(COMPILER)))
+EXECPPAS=
+else
+ifeq ($(FULL_SOURCE),$(FULL_TARGET))
+EXECPPAS:=@$(PPAS)
+endif
+endif
+.PHONY: fpc_loaders
+ifneq ($(TARGET_LOADERS),)
+override ALLTARGET+=fpc_loaders
+override CLEANTARGET+=fpc_loaders_clean
+override INSTALLTARGET+=fpc_loaders_install
+override LOADEROFILES:=$(addsuffix $(OEXT),$(TARGET_LOADERS))
+endif
+%$(OEXT): %$(LOADEREXT)
+ifdef COMPILER_UNITTARGETDIR
+	$(AS) -o $(COMPILER_UNITTARGETDIR)/$*$(OEXT) $<
+else
+	$(AS) -o $*$(OEXT) $<
+endif
+fpc_loaders: $(COMPILER_UNITTARGETDIR) $(LOADEROFILES)
+fpc_loaders_clean:
+ifdef COMPILER_UNITTARGETDIR
+	-$(DEL) $(addprefix $(COMPILER_UNITTARGETDIR)/,$(LOADEROFILES))
+else
+	-$(DEL) $(LOADEROFILES)
+endif
+fpc_loaders_install:
+	$(MKDIR) $(INSTALL_UNITDIR)
+ifdef COMPILER_UNITTARGETDIR
+	$(INSTALL) $(addprefix $(COMPILER_UNITTARGETDIR)/,$(LOADEROFILES)) $(INSTALL_UNITDIR)
+else
+	$(INSTALL) $(LOADEROFILES) $(INSTALL_UNITDIR)
+endif
+.PHONY: fpc_units
+ifneq ($(TARGET_UNITS),)
+override ALLTARGET+=fpc_units
+override UNITPPUFILES=$(addsuffix $(PPUEXT),$(TARGET_UNITS))
+override IMPLICITUNITPPUFILES=$(addsuffix $(PPUEXT),$(TARGET_IMPLICITUNITS))
+override INSTALLPPUFILES+=$(UNITPPUFILES) $(IMPLICITUNITPPUFILES)
+override CLEANPPUFILES+=$(UNITPPUFILES) $(IMPLICITUNITPPUFILES)
+endif
+fpc_units: $(COMPILER_UNITTARGETDIR) $(UNITPPUFILES)
+ifdef TARGET_RSTS
+override RSTFILES=$(addsuffix $(RSTEXT),$(TARGET_RSTS))
+override CLEANRSTFILES+=$(RSTFILES)
+endif
+.PHONY: fpc_all fpc_smart fpc_debug fpc_release
+$(FPCMADE): $(ALLDEPENDENCIES) $(ALLTARGET)
+	@$(ECHOREDIR) Compiled > $(FPCMADE)
+fpc_all: $(FPCMADE)
+fpc_smart:
+	$(MAKE) all LINKSMART=1 CREATESMART=1
+fpc_debug:
+	$(MAKE) all DEBUG=1
+fpc_release:
+	$(MAKE) all RELEASE=1
+.SUFFIXES: $(EXEEXT) $(PPUEXT) $(OEXT) .pas .lpr .dpr .pp .rc .res
+$(COMPILER_UNITTARGETDIR):
+	$(MKDIRTREE) $(COMPILER_UNITTARGETDIR)
+$(COMPILER_TARGETDIR):
+	$(MKDIRTREE) $(COMPILER_TARGETDIR)
+%$(PPUEXT): %.pp
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(PPUEXT): %.pas
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.pp
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.pas
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.lpr
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.dpr
+	$(COMPILER) $<
+	$(EXECPPAS)
+%.res: %.rc
+	windres -i $< -o $@
+vpath %.pp $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %.pas $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %.lpr $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %.dpr $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %$(OEXT) $(COMPILER_UNITTARGETDIR)
+vpath %$(PPUEXT) $(COMPILER_UNITTARGETDIR)
+.PHONY: fpc_install fpc_sourceinstall fpc_exampleinstall
+ifdef INSTALL_UNITS
+override INSTALLPPUFILES+=$(addsuffix $(PPUEXT),$(INSTALL_UNITS))
+endif
+ifdef INSTALL_BUILDUNIT
+override INSTALLPPUFILES:=$(filter-out $(INSTALL_BUILDUNIT)$(PPUEXT),$(INSTALLPPUFILES))
+endif
+ifdef INSTALLPPUFILES
+override INSTALLPPULINKFILES:=$(subst $(PPUEXT),$(OEXT),$(INSTALLPPUFILES)) $(addprefix $(STATICLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(INSTALLPPUFILES)))
+ifneq ($(UNITTARGETDIRPREFIX),)
+override INSTALLPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(notdir $(INSTALLPPUFILES)))
+override INSTALLPPULINKFILES:=$(wildcard $(addprefix $(UNITTARGETDIRPREFIX),$(notdir $(INSTALLPPULINKFILES))))
+endif
+override INSTALL_CREATEPACKAGEFPC=1
+endif
+ifdef INSTALLEXEFILES
+ifneq ($(TARGETDIRPREFIX),)
+override INSTALLEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(notdir $(INSTALLEXEFILES)))
+endif
+endif
+fpc_install: all $(INSTALLTARGET)
+ifdef INSTALLEXEFILES
+	$(MKDIR) $(INSTALL_BINDIR)
+ifdef UPXPROG
+	-$(UPXPROG) $(INSTALLEXEFILES)
+endif
+	$(INSTALLEXE) $(INSTALLEXEFILES) $(INSTALL_BINDIR)
+endif
+ifdef INSTALL_CREATEPACKAGEFPC
+ifdef FPCMAKE
+ifdef PACKAGE_VERSION
+ifneq ($(wildcard Makefile.fpc),)
+	$(FPCMAKE) -p -T$(CPU_TARGET)-$(OS_TARGET) Makefile.fpc
+	$(MKDIR) $(INSTALL_UNITDIR)
+	$(INSTALL) Package.fpc $(INSTALL_UNITDIR)
+endif
+endif
+endif
+endif
+ifdef INSTALLPPUFILES
+	$(MKDIR) $(INSTALL_UNITDIR)
+	$(INSTALL) $(INSTALLPPUFILES) $(INSTALL_UNITDIR)
+ifneq ($(INSTALLPPULINKFILES),)
+	$(INSTALL) $(INSTALLPPULINKFILES) $(INSTALL_UNITDIR)
+endif
+ifneq ($(wildcard $(LIB_FULLNAME)),)
+	$(MKDIR) $(INSTALL_LIBDIR)
+	$(INSTALL) $(LIB_FULLNAME) $(INSTALL_LIBDIR)
+ifdef inUnix
+	ln -sf $(LIB_FULLNAME) $(INSTALL_LIBDIR)/$(LIB_NAME)
+endif
+endif
+endif
+ifdef INSTALL_FILES
+	$(MKDIR) $(INSTALL_DATADIR)
+	$(INSTALL) $(INSTALL_FILES) $(INSTALL_DATADIR)
+endif
+fpc_sourceinstall: distclean
+	$(MKDIR) $(INSTALL_SOURCEDIR)
+	$(COPYTREE) $(BASEDIR)/* $(INSTALL_SOURCEDIR)
+fpc_exampleinstall: $(addsuffix _distclean,$(TARGET_EXAMPLEDIRS))
+ifdef HASEXAMPLES
+	$(MKDIR) $(INSTALL_EXAMPLEDIR)
+endif
+ifdef EXAMPLESOURCEFILES
+	$(COPY) $(EXAMPLESOURCEFILES) $(INSTALL_EXAMPLEDIR)
+endif
+ifdef TARGET_EXAMPLEDIRS
+	$(COPYTREE) $(addsuffix /*,$(TARGET_EXAMPLEDIRS)) $(INSTALL_EXAMPLEDIR)
+endif
+.PHONY: fpc_distinstall
+fpc_distinstall: install exampleinstall
+.PHONY: fpc_zipinstall fpc_zipsourceinstall fpc_zipexampleinstall
+ifndef PACKDIR
+ifndef inUnix
+PACKDIR=$(BASEDIR)/../fpc-pack
+else
+PACKDIR=/tmp/fpc-pack
+endif
+endif
+ifndef ZIPNAME
+ifdef DIST_ZIPNAME
+ZIPNAME=$(DIST_ZIPNAME)
+else
+ZIPNAME=$(PACKAGE_NAME)
+endif
+endif
+ifndef FULLZIPNAME
+FULLZIPNAME=$(ZIPCROSSPREFIX)$(ZIPPREFIX)$(ZIPNAME)$(ZIPSUFFIX)
+endif
+ifndef ZIPTARGET
+ifdef DIST_ZIPTARGET
+ZIPTARGET=DIST_ZIPTARGET
+else
+ZIPTARGET=install
+endif
+endif
+ifndef USEZIP
+ifdef inUnix
+USETAR=1
+endif
+endif
+ifndef inUnix
+USEZIPWRAPPER=1
+endif
+ifdef USEZIPWRAPPER
+ZIPPATHSEP=$(PATHSEP)
+ZIPWRAPPER=$(subst /,$(PATHSEP),$(DIST_DESTDIR)/fpczip$(SRCBATCHEXT))
+else
+ZIPPATHSEP=/
+endif
+ZIPCMD_CDPACK:=cd $(subst /,$(ZIPPATHSEP),$(PACKDIR))
+ZIPCMD_CDBASE:=cd $(subst /,$(ZIPPATHSEP),$(BASEDIR))
+ifdef USETAR
+ZIPDESTFILE:=$(DIST_DESTDIR)/$(FULLZIPNAME)$(TAREXT)
+ZIPCMD_ZIP:=$(TARPROG) cf$(TAROPT) $(ZIPDESTFILE) *
+else
+ZIPDESTFILE:=$(DIST_DESTDIR)/$(FULLZIPNAME)$(ZIPEXT)
+ZIPCMD_ZIP:=$(subst /,$(ZIPPATHSEP),$(ZIPPROG)) -Dr $(ZIPOPT) $(ZIPDESTFILE) *
+endif
+fpc_zipinstall:
+	$(MAKE) $(ZIPTARGET) INSTALL_PREFIX=$(PACKDIR) ZIPINSTALL=1
+	$(MKDIR) $(DIST_DESTDIR)
+	$(DEL) $(ZIPDESTFILE)
+ifdef USEZIPWRAPPER
+ifneq ($(ECHOREDIR),echo)
+	$(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_CDPACK))" > $(ZIPWRAPPER)
+	$(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_ZIP))" >> $(ZIPWRAPPER)
+	$(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_CDBASE))" >> $(ZIPWRAPPER)
+else
+	echo $(ZIPCMD_CDPACK) > $(ZIPWRAPPER)
+	echo $(ZIPCMD_ZIP) >> $(ZIPWRAPPER)
+	echo $(ZIPCMD_CDBASE) >> $(ZIPWRAPPER)
+endif
+ifdef inUnix
+	/bin/sh $(ZIPWRAPPER)
+else
+	$(ZIPWRAPPER)
+endif
+	$(DEL) $(ZIPWRAPPER)
+else
+	$(ZIPCMD_CDPACK) ; $(ZIPCMD_ZIP) ; $(ZIPCMD_CDBASE)
+endif
+	$(DELTREE) $(PACKDIR)
+fpc_zipsourceinstall:
+	$(MAKE) fpc_zipinstall ZIPTARGET=sourceinstall ZIPSUFFIX=$(ZIPSOURCESUFFIX)
+fpc_zipexampleinstall:
+ifdef HASEXAMPLES
+	$(MAKE) fpc_zipinstall ZIPTARGET=exampleinstall ZIPSUFFIX=$(ZIPEXAMPLESUFFIX)
+endif
+fpc_zipdistinstall:
+	$(MAKE) fpc_zipinstall ZIPTARGET=distinstall
+.PHONY: fpc_clean fpc_cleanall fpc_distclean
+ifdef EXEFILES
+override CLEANEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(CLEANEXEFILES))
+endif
+ifdef CLEAN_UNITS
+override CLEANPPUFILES+=$(addsuffix $(PPUEXT),$(CLEAN_UNITS))
+endif
+ifdef CLEANPPUFILES
+override CLEANPPULINKFILES:=$(subst $(PPUEXT),$(OEXT),$(CLEANPPUFILES)) $(addprefix $(STATICLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(CLEANPPUFILES)))
+ifdef DEBUGSYMEXT
+override CLEANPPULINKFILES+=$(subst $(PPUEXT),$(DEBUGSYMEXT),$(CLEANPPUFILES))
+endif
+override CLEANPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPUFILES))
+override CLEANPPULINKFILES:=$(wildcard $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPULINKFILES)))
+endif
+fpc_clean: $(CLEANTARGET)
+ifdef CLEANEXEFILES
+	-$(DEL) $(CLEANEXEFILES)
+endif
+ifdef CLEANPPUFILES
+	-$(DEL) $(CLEANPPUFILES)
+endif
+ifneq ($(CLEANPPULINKFILES),)
+	-$(DEL) $(CLEANPPULINKFILES)
+endif
+ifdef CLEANRSTFILES
+	-$(DEL) $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANRSTFILES))
+endif
+ifdef CLEAN_FILES
+	-$(DEL) $(CLEAN_FILES)
+endif
+ifdef LIB_NAME
+	-$(DEL) $(LIB_NAME) $(LIB_FULLNAME)
+endif
+	-$(DEL) $(FPCMADE) Package.fpc $(PPAS) script.res link.res $(FPCEXTFILE) $(REDIRFILE)
+	-$(DEL) *$(ASMEXT) *_ppas$(BATCHEXT)
+fpc_cleanall: $(CLEANTARGET)
+ifdef CLEANEXEFILES
+	-$(DEL) $(CLEANEXEFILES)
+endif
+ifdef COMPILER_UNITTARGETDIR
+ifdef CLEANPPUFILES
+	-$(DEL) $(CLEANPPUFILES)
+endif
+ifneq ($(CLEANPPULINKFILES),)
+	-$(DEL) $(CLEANPPULINKFILES)
+endif
+ifdef CLEANRSTFILES
+	-$(DEL) $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANRSTFILES))
+endif
+endif
+	-$(DELTREE) units
+	-$(DEL) *$(OEXT) *$(PPUEXT) *$(RSTEXT) *$(ASMEXT) *$(STATICLIBEXT) *$(SHAREDLIBEXT) *$(PPLEXT)
+ifneq ($(PPUEXT),.ppu)
+	-$(DEL) *.o *.ppu *.a
+endif
+	-$(DELTREE) *$(SMARTEXT)
+	-$(DEL) fpcmade.* Package.fpc $(PPAS) script.res link.res $(FPCEXTFILE) $(REDIRFILE)
+	-$(DEL) *_ppas$(BATCHEXT)
+ifdef AOUTEXT
+	-$(DEL) *$(AOUTEXT)
+endif
+ifdef DEBUGSYMEXT
+	-$(DEL) *$(DEBUGSYMEXT)
+endif
+fpc_distclean: cleanall
+.PHONY: fpc_baseinfo
+override INFORULES+=fpc_baseinfo
+fpc_baseinfo:
+	@$(ECHO)
+	@$(ECHO)  == Package info ==
+	@$(ECHO)  Package Name..... $(PACKAGE_NAME)
+	@$(ECHO)  Package Version.. $(PACKAGE_VERSION)
+	@$(ECHO)
+	@$(ECHO)  == Configuration info ==
+	@$(ECHO)
+	@$(ECHO)  FPC.......... $(FPC)
+	@$(ECHO)  FPC Version.. $(FPC_VERSION)
+	@$(ECHO)  Source CPU... $(CPU_SOURCE)
+	@$(ECHO)  Target CPU... $(CPU_TARGET)
+	@$(ECHO)  Source OS.... $(OS_SOURCE)
+	@$(ECHO)  Target OS.... $(OS_TARGET)
+	@$(ECHO)  Full Source.. $(FULL_SOURCE)
+	@$(ECHO)  Full Target.. $(FULL_TARGET)
+	@$(ECHO)  SourceSuffix. $(SOURCESUFFIX)
+	@$(ECHO)  TargetSuffix. $(TARGETSUFFIX)
+	@$(ECHO)
+	@$(ECHO)  == Directory info ==
+	@$(ECHO)
+	@$(ECHO)  Required pkgs... $(REQUIRE_PACKAGES)
+	@$(ECHO)
+	@$(ECHO)  Basedir......... $(BASEDIR)
+	@$(ECHO)  FPCDir.......... $(FPCDIR)
+	@$(ECHO)  CrossBinDir..... $(CROSSBINDIR)
+	@$(ECHO)  UnitsDir........ $(UNITSDIR)
+	@$(ECHO)  PackagesDir..... $(PACKAGESDIR)
+	@$(ECHO)
+	@$(ECHO)  GCC library..... $(GCCLIBDIR)
+	@$(ECHO)  Other library... $(OTHERLIBDIR)
+	@$(ECHO)
+	@$(ECHO)  == Tools info ==
+	@$(ECHO)
+	@$(ECHO)  As........ $(AS)
+	@$(ECHO)  Ld........ $(LD)
+	@$(ECHO)  Ar........ $(AR)
+	@$(ECHO)  Rc........ $(RC)
+	@$(ECHO)
+	@$(ECHO)  Mv........ $(MVPROG)
+	@$(ECHO)  Cp........ $(CPPROG)
+	@$(ECHO)  Rm........ $(RMPROG)
+	@$(ECHO)  GInstall.. $(GINSTALL)
+	@$(ECHO)  Echo...... $(ECHO)
+	@$(ECHO)  Shell..... $(SHELL)
+	@$(ECHO)  Date...... $(DATE)
+	@$(ECHO)  FPCMake... $(FPCMAKE)
+	@$(ECHO)  PPUMove... $(PPUMOVE)
+	@$(ECHO)  Upx....... $(UPXPROG)
+	@$(ECHO)  Zip....... $(ZIPPROG)
+	@$(ECHO)
+	@$(ECHO)  == Object info ==
+	@$(ECHO)
+	@$(ECHO)  Target Loaders........ $(TARGET_LOADERS)
+	@$(ECHO)  Target Units.......... $(TARGET_UNITS)
+	@$(ECHO)  Target Implicit Units. $(TARGET_IMPLICITUNITS)
+	@$(ECHO)  Target Programs....... $(TARGET_PROGRAMS)
+	@$(ECHO)  Target Dirs........... $(TARGET_DIRS)
+	@$(ECHO)  Target Examples....... $(TARGET_EXAMPLES)
+	@$(ECHO)  Target ExampleDirs.... $(TARGET_EXAMPLEDIRS)
+	@$(ECHO)
+	@$(ECHO)  Clean Units......... $(CLEAN_UNITS)
+	@$(ECHO)  Clean Files......... $(CLEAN_FILES)
+	@$(ECHO)
+	@$(ECHO)  Install Units....... $(INSTALL_UNITS)
+	@$(ECHO)  Install Files....... $(INSTALL_FILES)
+	@$(ECHO)
+	@$(ECHO)  == Install info ==
+	@$(ECHO)
+	@$(ECHO)  DateStr.............. $(DATESTR)
+	@$(ECHO)  ZipName.............. $(ZIPNAME)
+	@$(ECHO)  ZipPrefix............ $(ZIPPREFIX)
+	@$(ECHO)  ZipCrossPrefix....... $(ZIPCROSSPREFIX)
+	@$(ECHO)  ZipSuffix............ $(ZIPSUFFIX)
+	@$(ECHO)  FullZipName.......... $(FULLZIPNAME)
+	@$(ECHO)  Install FPC Package.. $(INSTALL_FPCPACKAGE)
+	@$(ECHO)
+	@$(ECHO)  Install base dir..... $(INSTALL_BASEDIR)
+	@$(ECHO)  Install binary dir... $(INSTALL_BINDIR)
+	@$(ECHO)  Install library dir.. $(INSTALL_LIBDIR)
+	@$(ECHO)  Install units dir.... $(INSTALL_UNITDIR)
+	@$(ECHO)  Install source dir... $(INSTALL_SOURCEDIR)
+	@$(ECHO)  Install doc dir...... $(INSTALL_DOCDIR)
+	@$(ECHO)  Install example dir.. $(INSTALL_EXAMPLEDIR)
+	@$(ECHO)  Install data dir..... $(INSTALL_DATADIR)
+	@$(ECHO)
+	@$(ECHO)  Dist destination dir. $(DIST_DESTDIR)
+	@$(ECHO)  Dist zip name........ $(DIST_ZIPNAME)
+	@$(ECHO)
+.PHONY: fpc_info
+fpc_info: $(INFORULES)
+.PHONY: fpc_makefile fpc_makefiles fpc_makefile_sub1 fpc_makefile_sub2 \
+	fpc_makefile_dirs
+fpc_makefile:
+	$(FPCMAKE) -w -T$(OS_TARGET) Makefile.fpc
+fpc_makefile_sub1:
+ifdef TARGET_DIRS
+	$(FPCMAKE) -w -T$(OS_TARGET) $(addsuffix /Makefile.fpc,$(TARGET_DIRS))
+endif
+ifdef TARGET_EXAMPLEDIRS
+	$(FPCMAKE) -w -T$(OS_TARGET) $(addsuffix /Makefile.fpc,$(TARGET_EXAMPLEDIRS))
+endif
+fpc_makefile_sub2: $(addsuffix _makefile_dirs,$(TARGET_DIRS) $(TARGET_EXAMPLEDIRS))
+fpc_makefile_dirs: fpc_makefile_sub1 fpc_makefile_sub2
+fpc_makefiles: fpc_makefile fpc_makefile_dirs
+all: fpc_all
+debug: fpc_debug
+smart: fpc_smart
+release: fpc_release
+units: fpc_units
+examples:
+shared:
+install: fpc_install
+sourceinstall: fpc_sourceinstall
+exampleinstall: fpc_exampleinstall
+distinstall: fpc_distinstall
+zipinstall: fpc_zipinstall
+zipsourceinstall: fpc_zipsourceinstall
+zipexampleinstall: fpc_zipexampleinstall
+zipdistinstall: fpc_zipdistinstall
+clean: fpc_clean
+distclean: fpc_distclean
+cleanall: fpc_cleanall
+info: fpc_info
+makefiles: fpc_makefiles
+.PHONY: all debug smart release units examples shared install sourceinstall exampleinstall distinstall zipinstall zipsourceinstall zipexampleinstall zipdistinstall clean distclean cleanall info makefiles
+ifneq ($(wildcard fpcmake.loc),)
+include fpcmake.loc
+endif
+mmx_clr$(OEXT):$(CPU_TARGET)/mmx_clr.as
+	$(AS) --32 -o $(UNITTARGETDIRPREFIX)mmx_clr$(OEXT) $(CPU_TARGET)/mmx_clr.as
+mmxp_32$(OEXT):$(CPU_TARGET)/mmxp_32.as
+	$(AS) --32 -o $(UNITTARGETDIRPREFIX)mmxp_32$(OEXT) $(CPU_TARGET)/mmxp_32.as
+mmx_main$(OEXT):$(CPU_TARGET)/mmx_main.as
+	$(AS) --32 -o $(UNITTARGETDIRPREFIX)mmx_main$(OEXT) $(CPU_TARGET)/mmx_main.as
+mmxp2_32$(OEXT):$(CPU_TARGET)/mmxp2_32.as
+	$(AS) --32 -o $(UNITTARGETDIRPREFIX)mmxp2_32$(OEXT) $(CPU_TARGET)/mmxp2_32.as
+hm_i386$(OEXT):$(I386_LOADERSSRC)
+	$(AS) --32 -o $(UNITTARGETDIRPREFIX)hm_i386$(OEXT) $(I386_LOADERSSRC)

packages/extra/hermes/Makefile.fpc

@@ -0,0 +1,45 @@
+#
+#   Makefile.fpc for PTCPas
+#
+
+[package]
+name=hermes
+version=0.99.5
+
+[target]
+units=hermes
+loaders=$(CPU_LOADERS)
+
+[compiler]
+unitdir=
+targetdir=.
+
+[default]
+fpcdir=../../..
+
+[rules]
+mmx_clr$(OEXT):$(CPU_TARGET)/mmx_clr.as
+        $(AS) --32 -o $(UNITTARGETDIRPREFIX)mmx_clr$(OEXT) $(CPU_TARGET)/mmx_clr.as
+
+mmxp_32$(OEXT):$(CPU_TARGET)/mmxp_32.as
+        $(AS) --32 -o $(UNITTARGETDIRPREFIX)mmxp_32$(OEXT) $(CPU_TARGET)/mmxp_32.as
+
+mmx_main$(OEXT):$(CPU_TARGET)/mmx_main.as
+        $(AS) --32 -o $(UNITTARGETDIRPREFIX)mmx_main$(OEXT) $(CPU_TARGET)/mmx_main.as
+
+mmxp2_32$(OEXT):$(CPU_TARGET)/mmxp2_32.as
+        $(AS) --32 -o $(UNITTARGETDIRPREFIX)mmxp2_32$(OEXT) $(CPU_TARGET)/mmxp2_32.as
+
+hm_i386$(OEXT):$(I386_LOADERSSRC)
+        $(AS) --32 -o $(UNITTARGETDIRPREFIX)hm_i386$(OEXT) $(I386_LOADERSSRC)
+
+[prerules]
+I386_LOADERSSRC=i386/x86_main.as i386/x86p_cpy.as \
+        i386/x86pscpy.as i386/x86p_16.as \
+        i386/x86p_i8.as i386/x86_clr.as \
+        i386/x86p_32.as i386/x86p_s32.as
+ifeq ($(CPU_TARGET),i386)
+CPU_LOADERS=mmx_clr mmxp_32 mmx_main mmxp2_32 hm_i386
+else
+CPU_LOADERS=
+endif

packages/extra/hermes/clear.inc

@@ -0,0 +1,223 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{Function Hermes_ClearerInstance : THermesHandle;
+Procedure Hermes_ClearerReturn(handle : THermesHandle);
+Function Hermes_ClearerRequest(handle : THermesHandle; format : PHermesFormat) : Boolean;
+Function Hermes_ClearerClear(handle : THermesHandle; pixels : Pointer;
+                             x1, y1, width, height, pitch : Integer;
+                             r, g, b : int32; index : char8) : Boolean;}
+
+Type
+  PClearerInstance = ^TClearerInstance;
+  TClearerInstance = Record
+    format : PHermesFormat;
+    func : THermesClearPtr;
+  End;
+
+Const
+{ClearerList is a list of TClearerInstance}
+  ClearerList : PHermesList = Nil;
+  CLEARrefcount : Integer = 0;
+  ClearCurrenthandle : THermesHandle = 0;
+
+Function Hermes_ClearerInstance : THermesHandle;
+
+Var
+  element : PHermesListElement;
+  newinstance : PClearerInstance;
+
+Begin
+  If CLEARrefcount = 0 Then
+  Begin
+    ClearerList := Hermes_ListNew;
+    If ClearerList = Nil Then
+    Begin
+      Hermes_ClearerInstance := 0;
+      Exit;
+    End;
+  End;
+  element := Hermes_ListElementNew(ClearCurrenthandle + 1);
+  If element = Nil Then
+  Begin
+    Hermes_ClearerInstance := 0;
+    Exit;
+  End;
+  newinstance := malloc(SizeOf(TClearerInstance));
+  If newinstance = Nil Then
+  Begin
+    Hermes_ClearerInstance := 0;
+    Exit;
+  End;
+  newinstance^.func := Nil;
+  newinstance^.format := Hermes_FormatNewEmpty;
+  If newinstance^.format = Nil Then
+  Begin
+    Hermes_ClearerInstance := 0;
+    Exit;
+  End;
+  element^.data := newinstance;
+  Hermes_ListAdd(ClearerList, element);
+  Inc(CLEARrefcount);
+  Inc(ClearCurrenthandle);
+  Hermes_ClearerInstance := ClearCurrenthandle;
+End;
+
+Procedure Hermes_ClearerFreeHandleCallback(q : Pointer);
+
+Begin
+  free(PClearerInstance(q)^.format);
+End;
+
+Procedure Hermes_ClearerReturn(handle : THermesHandle);
+
+Var
+  element : PHermesListElement;
+  instance : PClearerInstance;
+
+Begin
+  Dec(CLEARrefcount);
+  If Hermes_ListDeleteElement(ClearerList, handle, @Hermes_ClearerFreeHandleCallback) = False Then
+    Exit;
+  If CLEARrefcount = 0 Then
+  Begin
+    { Dirty fix: Free the format pointers in all the clearer instances }
+    { The list functions need updating to allow member deletion! }
+    element := ClearerList^.first;
+    While element <> Nil Do
+    Begin
+      instance := element^.data;
+      free(instance^.format);
+      element := element^.next;
+    End;
+    Hermes_ListDestroy(ClearerList);
+  End;
+End;
+
+Function Hermes_ClearerRequest(handle : THermesHandle; format : PHermesFormat) : Boolean;
+
+Var
+  element : PHermesListElement;
+  clr : PClearerInstance;
+  i : Integer;
+
+Begin
+  { Look up this clearer in the list }
+  element := Hermes_ListLookup(ClearerList, handle);
+  If element = Nil Then
+  Begin
+    Hermes_ClearerRequest := False;
+    Exit;
+  End;
+  clr := element^.data;
+
+  { If the clearer is the same, return 1 }
+  If Hermes_FormatEquals(clr^.format, format) Then
+  Begin
+    Hermes_ClearerRequest := True;
+    Exit;
+  End;
+
+  { Otherwise look for a new clearer }
+  clr^.func := Nil;
+  For i := 0 To numClearers - 1 Do
+  Begin
+    If Clearers[i]^.bits = format^.bits Then
+    Begin
+      clr^.func := Clearers[i]^.func;
+      Hermes_FormatCopy(format, clr^.format);
+      Hermes_ClearerRequest := True;
+      Exit;
+    End;
+  End;
+  Hermes_ClearerRequest := False;
+End;
+
+Function Hermes_ClearerClear(handle : THermesHandle; pixels : Pointer;
+                             x1, y1, width, height, pitch : Integer;
+                             r, g, b : int32; index : char8) : Boolean;
+
+Var
+  element : PHermesListElement;
+  info : THermesGenericInfo;
+  clr : PClearerInstance;
+  pixelval, d_r, d_g, d_b, d_a : int32;
+  iface : THermesClearInterface;
+
+Begin
+  If (height <= 0) Or (width <= 0) Then
+  Begin
+    Hermes_ClearerClear := True;
+    Exit;
+  End;
+
+  { Look up this clearer in the list }
+  element := Hermes_ListLookup(ClearerList, handle);
+  If (element = Nil) Or (element^.data = Nil) Then
+  Begin
+    Hermes_ClearerClear := False;
+    Exit;
+  End;
+
+  { Get clearer instance from list element data }
+  clr := element^.data;
+
+  { No conversion function assigned }
+  If clr^.func = Nil Then
+  Begin
+    Hermes_ClearerClear := False;
+    Exit;
+  End;
+
+  If clr^.format^.indexed Then
+    pixelval := index
+  Else
+  Begin
+    Hermes_Calculate_Generic_Info(24, 16, 8, 32,
+                                  Hermes_Topbit(clr^.format^.r),
+                                  Hermes_Topbit(clr^.format^.g),
+                                  Hermes_Topbit(clr^.format^.b),
+                                  Hermes_Topbit(clr^.format^.a), @info);
+    pixelval := (index Shl 24) Or (r Shl 16) Or (g Shl 8) Or b;
+    d_r := ((pixelval Shr info.r_right) Shl info.r_left) And clr^.format^.r;
+    d_g := ((pixelval Shr info.g_right) Shl info.g_left) And clr^.format^.g;
+    d_b := ((pixelval Shr info.b_right) Shl info.b_left) And clr^.format^.b;
+    d_a := ((pixelval Shr info.a_right) Shl info.a_left) And clr^.format^.a;
+    pixelval := d_r Or d_g Or d_b Or d_a;
+  End;
+  iface.dest := pixels;
+  Inc(iface.dest, y1*pitch + x1*(clr^.format^.bits Shr 3));
+
+  iface.width := width;
+  iface.height := height;
+  iface.add := pitch - width * (clr^.format^.bits Shr 3);
+
+  iface.value := pixelval;
+
+  { Optimization }
+  If iface.add = 0 Then
+  Begin
+    iface.width := iface.width * iface.height;
+    iface.height := 1;
+  End;
+
+  clr^.func(@iface);
+  Hermes_ClearerClear := True;
+End;

packages/extra/hermes/convert.inc

@@ -0,0 +1,739 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+
+{Function Hermes_ConverterInstance(flags : DWord) : THermesHandle;
+Procedure Hermes_ConverterReturn(handle : THermesHandle);}
+
+Var
+{ ConverterList is a list of HermesConverter* }
+  ConverterList : ^PHermesConverter;
+  ConvertCurrenthandle : THermesHandle;
+
+Const
+  lastConverter : Integer = 0;                { Array size, one beyond end }
+  CONVERTrefcount : Integer = 0;
+
+Function Hermes_ConverterInstance(flags : DWord) : THermesHandle;
+
+Var
+  i : Integer;
+  newinstance : PHermesConverter;
+  newlist : ^PHermesConverter;
+
+Begin
+  { Initialising, allocate initial size array of converters }
+  If CONVERTrefcount = 0 Then
+  Begin
+    ConverterList := malloc(SizeOf(PHermesConverter) * HERMES_INITIAL);
+    If ConverterList = Nil Then
+    Begin
+      Hermes_ConverterInstance := 0;
+      Exit;
+    End;
+    lastConverter := HERMES_INITIAL;
+    ConvertCurrenthandle := 1;
+    For i := 0 To lastConverter - 1 Do
+      ConverterList[i] := Nil;
+{    DEBUG_PRINT("Creating dynamic array(convert.c:57), size %d\n",HERMES_INITIAL)}
+  End;
+
+  { Uh oh, arrary too small, time for growth }
+  If ConvertCurrenthandle = lastConverter Then
+  Begin
+    { I'm told realloc isn't completely portable !? Let's do it by hand }
+    newlist := malloc(SizeOf(PHermesConverter)*(lastConverter+HERMES_GROWTH));
+    If newlist = Nil Then
+    Begin
+      Hermes_ConverterInstance := 0;
+      Exit;
+    End;
+    { Copy converter pointers }
+    For i := 0 To lastConverter - 1 Do
+      newlist[i] := ConverterList[i];
+    free(ConverterList);
+    { Assign new list to old one }
+    ConverterList := newlist;
+    Inc(lastConverter, HERMES_GROWTH);
+{    DEBUG_PRINT("Growing dynamic array, new size %d\n",lastConverter)}
+  End;
+
+  { Create a HermesConverter }
+  newinstance := malloc(sizeof(THermesConverter));
+  If newinstance = Nil Then
+  Begin
+    Hermes_ConverterInstance := 0;
+    Exit;
+  End;
+
+  { Zero it out }
+  newinstance^.loopnormal := Nil;
+  newinstance^.loopstretch := Nil;
+  newinstance^.normal := Nil;
+  newinstance^.stretch := Nil;
+  newinstance^.dither := Nil;
+  newinstance^.ditherstretch := Nil;
+  newinstance^.flags := flags;
+  FillChar(newinstance^.source, 0, SizeOf(THermesFormat));
+  FillChar(newinstance^.dest, 0, SizeOf(THermesFormat));
+
+  ConverterList[ConvertCurrenthandle] := newinstance;
+
+  Inc(CONVERTrefcount);
+  Inc(ConvertCurrenthandle);
+
+  Hermes_ConverterInstance := ConvertCurrenthandle - 1;
+End;
+
+Procedure Hermes_ConverterReturn(handle : THermesHandle);
+
+Begin
+  If (handle < 0) Or (handle >= lastConverter) Then
+    Exit;
+
+  { Adjust reference count }
+  Dec(CONVERTrefcount);
+
+  If ConverterList[handle] <> Nil Then
+  Begin
+    free(ConverterList[handle]);
+    ConverterList[handle] := Nil;
+  End;
+
+  { No more references, deinitialise }
+  If CONVERTrefcount = 0 Then
+  Begin
+    If ConverterList <> Nil Then
+    Begin
+      free(ConverterList);
+      ConverterList := Nil;
+    End;
+    ConvertCurrenthandle := 0;
+    lastConverter := 0;
+  End;
+End;
+
+Function Hermes_ConverterRequest(handle : THermesHandle;
+                                 source, dest : PHermesFormat) : Boolean;
+
+Var
+  searchlist : Integer;
+  i : Integer;
+  found : Boolean;
+  cnv : PHermesConverter;
+
+Begin
+{  DebugMSG('Hermes_ConverterRequest(' + C2Str(source^.bits)
+   + ',' + C2Str(source^.r) + ',' + C2Str(source^.g) + ',' +
+   C2Str(source^.b) + ';' + C2Str(dest^.bits)
+   + ',' + C2Str(dest^.r) + ',' + C2Str(dest^.g) + ',' +
+   C2Str(dest^.b) + ')');}
+
+  Hermes_ConverterRequest := False;
+  searchlist := 0;
+  i := 0;
+  found := False;
+  { Check array ranges }
+  If (handle < 0) Or (handle >= lastConverter) Then
+    Exit;
+  If ConverterList[handle] = Nil Then
+    Exit;
+  cnv := ConverterList[handle];
+
+  { Cache repeated requests of the same conversion }
+  If Hermes_FormatEquals(source, @ConverterList[handle]^.source) And
+     Hermes_FormatEquals(dest, @ConverterList[handle]^.dest) Then
+  Begin
+    Hermes_ConverterRequest := True;
+    Exit;
+  End;
+
+  { Clear the generic converter flag }
+  cnv^.flags := cnv^.flags And (Not HERMES_CONVERT_GENERIC);
+
+  { If the source and destination are equal, use copy routines }
+  If Hermes_FormatEquals(source, dest) Then
+  Begin
+{    DebugMSG('format equals!');}
+    If ((source^.bits And 7) <> 0) Or (source^.bits > 32) Or
+       (source^.bits = 0) Then
+      Exit;
+    i := (source^.bits Shr 3) - 1;
+    If equalConverters[i] = Nil Then
+      Exit;
+    Hermes_FormatCopy(source, @cnv^.source);
+    Hermes_FormatCopy(dest, @cnv^.dest);
+    cnv^.loopnormal := equalConverters[i]^.loopnormal;
+    cnv^.loopstretch := equalConverters[i]^.loopstretch;
+    cnv^.normal := equalConverters[i]^.normal;
+    cnv^.stretch := equalConverters[i]^.stretch;
+    Hermes_ConverterRequest := True;
+    Exit;
+  End;
+
+  { Start looking for specialised converters }
+  searchlist := $ff;
+  Case source^.bits Of
+    32 : If (source^.r = $ff0000) And (source^.g = $ff00) And (source^.b = $ff) Then
+           searchlist := 0
+         Else
+           If (source^.r = ($ff Shl 20)) And
+              (source^.g = ($ff Shl 10)) And
+              (source^.b = $ff) Then
+             searchlist := 3;
+    24 : If (source^.r = $ff0000) And (source^.g = $ff00) And (source^.b = $ff) Then
+           searchlist := 1;
+    16 : If (source^.r = $f800) And (source^.g = $7e0) And (source^.b = $1f) Then
+           searchlist := 2;
+     8 : If source^.indexed Then
+           searchlist := 4;
+  End;
+
+  { We can use a quicker loop for 8 bit }
+  If searchlist <> $ff Then
+    If source^.bits = 8 Then
+    Begin
+      For i := 0 To numConverters[searchlist] - 1 Do
+        If standardConverters[searchlist][i] <> Nil Then
+          If dest^.bits = standardConverters[searchlist][i]^.dest.bits Then
+          Begin
+            Hermes_FormatCopy(source, @cnv^.source);
+            Hermes_FormatCopy(dest, @cnv^.dest);
+
+            cnv^.loopnormal := standardConverters[searchlist][i]^.loopnormal;
+            cnv^.loopstretch := standardConverters[searchlist][i]^.loopstretch;
+
+            cnv^.normal := standardConverters[searchlist][i]^.normal;
+            cnv^.stretch := standardConverters[searchlist][i]^.stretch;
+
+            cnv^.dither := standardConverters[searchlist][i]^.dither;
+            cnv^.ditherstretch := standardConverters[searchlist][i]^.ditherstretch;
+
+            Hermes_ConverterRequest := True;
+            Exit;
+          End
+;
+    End
+    Else
+      For i := 0 To numConverters[searchlist] - 1 Do
+        If standardConverters[searchlist][i] <> Nil Then
+          If Hermes_FormatEquals(@standardConverters[searchlist][i]^.source, source) And
+             Hermes_FormatEquals(@standardConverters[searchlist][i]^.dest, dest) Then
+          Begin
+            Hermes_FormatCopy(source, @cnv^.source);
+            Hermes_FormatCopy(dest, @cnv^.dest);
+
+            cnv^.loopnormal := standardConverters[searchlist][i]^.loopnormal;
+            cnv^.loopstretch := standardConverters[searchlist][i]^.loopstretch;
+
+            cnv^.normal := standardConverters[searchlist][i]^.normal;
+            cnv^.stretch := standardConverters[searchlist][i]^.stretch;
+
+            cnv^.dither := standardConverters[searchlist][i]^.dither;
+            cnv^.ditherstretch := standardConverters[searchlist][i]^.ditherstretch;
+
+            Hermes_ConverterRequest := True;
+            Exit;
+          End;
+
+
+  { Otherwise find a generic converter }
+{  DebugMSG('looking for a generic converter!');}
+
+
+  cnv^.loopnormal := Nil;
+  cnv^.loopstretch := Nil;
+  cnv^.dither := Nil;
+  cnv^.ditherstretch := Nil;
+  cnv^.flags := cnv^.flags Or HERMES_CONVERT_GENERIC;
+
+
+  { Generic routines implement whole converters not scanline converters,
+    assign placeholders }
+
+  cnv^.normal := @NotApplicable;
+  cnv^.stretch := @NotApplicable;
+
+  found := False;
+
+{
+        Converting rules:
+
+        C -> C
+        C -> A
+
+        A -> O, A -> A
+        A -> C
+
+        O -> O , A, C are the same
+}
+
+  If source^.has_colorkey And dest^.has_colorkey Then { Ck -> Ck }
+    Case source^.bits Of
+      32 : Case dest^.bits Of
+        32 : Begin
+          cnv^.loopnormal := @ConvertP_Generic32_C_Generic32_C;
+          cnv^.loopstretch := @ConvertP_Generic32_C_Generic32_C_S;
+          found := True;
+        End;
+        24 : Begin
+          cnv^.loopnormal := @ConvertP_Generic32_C_Generic24_C;
+          found := True;
+        End;
+        16 : Begin
+          cnv^.loopnormal := @ConvertP_Generic32_C_Generic16_C;
+          cnv^.loopstretch := @ConvertP_Generic32_C_Generic16_C_S;
+          found := True;
+        End;
+        8 : Begin
+          cnv^.loopnormal := @ConvertP_Generic32_C_Generic8_C;
+          found := True;
+        End;
+      End;
+      24 : Case dest^.bits Of
+        32 : Begin
+          cnv^.loopnormal := @ConvertP_Generic24_C_Generic32_C;
+          found := True;
+        End;
+        24 : Begin
+          cnv^.loopnormal := @ConvertP_Generic24_C_Generic24_C;
+          found := True;
+        End;
+        16 : Begin
+          cnv^.loopnormal := @ConvertP_Generic24_C_Generic16_C;
+          found := True;
+        End;
+        8 : Begin
+          cnv^.loopnormal := @ConvertP_Generic24_C_Generic8_C;
+          found := True;
+        End;
+      End;
+      16 : Case dest^.bits Of
+        32 : Begin
+          cnv^.loopnormal := @ConvertP_Generic16_C_Generic32_C;
+          found := True;
+        End;
+        24 : Begin
+          cnv^.loopnormal := @ConvertP_Generic16_C_Generic24_C;
+          found := True;
+        End;
+        16 : Begin
+          cnv^.loopnormal := @ConvertP_Generic16_C_Generic16_C;
+          found := True;
+        End;
+        8 : Begin
+          cnv^.loopnormal := @ConvertP_Generic16_C_Generic8_C;
+          found := True;
+        End;
+      End;
+    End
+  Else
+    If source^.has_colorkey And (dest^.a <> 0) Then { Ck -> A }
+      Case source^.bits Of
+        32 : Case dest^.bits Of
+          32 : Begin
+            cnv^.loopnormal := @ConvertP_Generic32_C_Generic32_A;
+            cnv^.loopstretch := @ConvertP_Generic32_C_Generic32_A_S;
+            found := True;
+          End;
+          24 : Begin
+            cnv^.loopnormal := @ConvertP_Generic32_C_Generic24_A;
+            found := True;
+          End;
+          16 : Begin
+            cnv^.loopnormal := @ConvertP_Generic32_C_Generic16_A;
+            cnv^.loopstretch := @ConvertP_Generic32_C_Generic16_A_S;
+            found := True;
+          End;
+          8 : Begin
+            cnv^.loopnormal := @ConvertP_Generic32_C_Generic8_A;
+            found := True;
+          End;
+        End;
+        24 : Case dest^.bits Of
+          32 : Begin
+            cnv^.loopnormal := @ConvertP_Generic24_C_Generic32_A;
+            found := True;
+          End;
+          24 : Begin
+            cnv^.loopnormal := @ConvertP_Generic24_C_Generic24_A;
+            found := True;
+          End;
+          16 : Begin
+            cnv^.loopnormal := @ConvertP_Generic24_C_Generic16_A;
+            found := True;
+          End;
+          8 : Begin
+            cnv^.loopnormal := @ConvertP_Generic24_C_Generic8_A;
+            found := True;
+          End;
+        End;
+        16 : Case dest^.bits Of
+          32 : Begin
+            cnv^.loopnormal := @ConvertP_Generic16_C_Generic32_A;
+            found := True;
+          End;
+          24 : Begin
+            cnv^.loopnormal := @ConvertP_Generic16_C_Generic24_A;
+            found := True;
+          End;
+          16 : Begin
+            cnv^.loopnormal := @ConvertP_Generic16_C_Generic16_A;
+            found := True;
+          End;
+          8 : Begin
+            cnv^.loopnormal := @ConvertP_Generic16_C_Generic8_A;
+            found := True;
+          End;
+        End;
+      End
+    Else
+      If (source^.a <> 0) And dest^.has_colorkey Then { A -> Ck }
+        Case source^.bits Of
+          32 : Case dest^.bits Of
+            32 : Begin
+              cnv^.loopnormal := @ConvertP_Generic32_A_Generic32_C;
+              cnv^.loopstretch := @ConvertP_Generic32_A_Generic32_C_S;
+              found := True;
+            End;
+            24 : Begin
+              cnv^.loopnormal := @ConvertP_Generic32_A_Generic24_C;
+              found := True;
+            End;
+            16 : Begin
+              cnv^.loopnormal := @ConvertP_Generic32_A_Generic16_C;
+              cnv^.loopnormal := @ConvertP_Generic32_A_Generic16_C_S;
+              found := True;
+            End;
+            8 : Begin
+              cnv^.loopnormal := @ConvertP_Generic32_A_Generic8_C;
+              found := True;
+            End;
+          End;
+          24 : Case dest^.bits Of
+            32 : Begin
+              cnv^.loopnormal := @ConvertP_Generic24_A_Generic32_C;
+              found := True;
+            End;
+            24 : Begin
+              cnv^.loopnormal := @ConvertP_Generic24_A_Generic24_C;
+              found := True;
+            End;
+            16 : Begin
+              cnv^.loopnormal := @ConvertP_Generic24_A_Generic16_C;
+              found := True;
+            End;
+            8 : Begin
+              cnv^.loopnormal := @ConvertP_Generic24_A_Generic8_C;
+              found := True;
+            End;
+          End;
+          16 : Case dest^.bits Of
+            32 : Begin
+              cnv^.loopnormal := @ConvertP_Generic16_A_Generic32_C;
+              found := True;
+            End;
+            24 : Begin
+              cnv^.loopnormal := @ConvertP_Generic16_A_Generic24_C;
+              found := True;
+            End;
+            16 : Begin
+              cnv^.loopnormal := @ConvertP_Generic16_A_Generic16_C;
+              found := True;
+            End;
+            8 : Begin
+              cnv^.loopnormal := @ConvertP_Generic16_A_Generic8_C;
+              found := True;
+            End;
+          End;
+        End
+      Else
+        If (source^.a <> 0) And (dest^.a <> 0) Then { A -> A }
+          Case source^.bits Of
+            32 : Case dest^.bits Of
+              32 : Begin
+                cnv^.loopnormal := @ConvertP_Generic32_A_Generic32_A;
+                cnv^.loopstretch := @ConvertP_Generic32_A_Generic32_A_S;
+                found := True;
+              End;
+              24 : Begin
+                cnv^.loopnormal := @ConvertP_Generic32_A_Generic24_A;
+                found := True;
+              End;
+              16 : Begin
+                cnv^.loopnormal := @ConvertP_Generic32_A_Generic16_A;
+                cnv^.loopstretch := @ConvertP_Generic32_A_Generic16_A_S;
+                found := True;
+              End;
+              8 : Begin
+                cnv^.loopnormal := @ConvertP_Generic32_A_Generic8_A;
+                found := True;
+              End;
+            End;
+            24 : Case dest^.bits Of
+              32 : Begin
+                cnv^.loopnormal := @ConvertP_Generic24_A_Generic32_A;
+                found := True;
+              End;
+              24 : Begin
+                cnv^.loopnormal := @ConvertP_Generic24_A_Generic24_A;
+                found := True;
+              End;
+              16 : Begin
+                cnv^.loopnormal := @ConvertP_Generic24_A_Generic16_A;
+                found := True;
+              End;
+              8 : Begin
+                cnv^.loopnormal := @ConvertP_Generic24_A_Generic8_A;
+                found := True;
+              End;
+            End;
+            16 : Case dest^.bits Of
+              32 : Begin
+                cnv^.loopnormal := @ConvertP_Generic16_A_Generic32_A;
+                found := True;
+              End;
+              24 : Begin
+                cnv^.loopnormal := @ConvertP_Generic16_A_Generic24_A;
+                found := True;
+              End;
+              16 : Begin
+                cnv^.loopnormal := @ConvertP_Generic16_A_Generic16_A;
+                found := True;
+              End;
+              8 : Begin
+                cnv^.loopnormal := @ConvertP_Generic16_A_Generic8_A;
+                found := True;
+              End;
+            End;
+          End
+        Else { O->O, O->A, A->O, Ck->O, O->Ck }
+          Case source^.bits Of
+            32 : Case dest^.bits Of
+              32 : Begin
+                cnv^.loopnormal := @ConvertP_Generic32_Generic32;
+                cnv^.loopstretch := @ConvertP_Generic32_Generic32_S;
+                found := True;
+              End;
+              24 : Begin
+                cnv^.loopnormal := @ConvertP_Generic32_Generic24;
+                cnv^.loopstretch := @ConvertP_Generic32_Generic24_S;
+                found := True;
+              End;
+              16 : Begin
+                cnv^.loopnormal := @ConvertP_Generic32_Generic16;
+                cnv^.loopstretch := @ConvertP_Generic32_Generic16_S;
+                found := True;
+              End;
+              8 : Begin
+                cnv^.loopnormal := @ConvertP_Generic32_Generic8;
+                cnv^.loopstretch := @ConvertP_Generic32_Generic8_S;
+                found := True;
+              End;
+            End;
+            24 : Case dest^.bits Of
+              32 : Begin
+                cnv^.loopnormal := @ConvertP_Generic24_Generic32;
+                cnv^.loopstretch := @ConvertP_Generic24_Generic32_S;
+                found := True;
+              End;
+              24 : Begin
+                cnv^.loopnormal := @ConvertP_Generic24_Generic24;
+                cnv^.loopstretch := @ConvertP_Generic24_Generic24_S;
+                found := True;
+              End;
+              16 : Begin
+                cnv^.loopnormal := @ConvertP_Generic24_Generic16;
+                cnv^.loopstretch := @ConvertP_Generic24_Generic16_S;
+                found := True;
+              End;
+              8 : Begin
+                cnv^.loopnormal := @ConvertP_Generic24_Generic8;
+                cnv^.loopstretch := @ConvertP_Generic24_Generic8_S;
+                found := True;
+              End;
+            End;
+            16 : Case dest^.bits Of
+              32 : Begin
+                cnv^.loopnormal := @ConvertP_Generic16_Generic32;
+                cnv^.loopstretch := @ConvertP_Generic16_Generic32_S;
+                found := True;
+              End;
+              24 : Begin
+                cnv^.loopnormal := @ConvertP_Generic16_Generic24;
+                cnv^.loopstretch := @ConvertP_Generic16_Generic24_S;
+                found := True;
+              End;
+              16 : Begin
+                cnv^.loopnormal := @ConvertP_Generic16_Generic16;
+                cnv^.loopstretch := @ConvertP_Generic16_Generic16_S;
+                found := True;
+              End;
+              8 : Begin
+                cnv^.loopnormal := @ConvertP_Generic16_Generic8;
+                cnv^.loopstretch := @ConvertP_Generic16_Generic8_S;
+                found := True;
+              End;
+            End;
+          End;
+
+  If found Then
+  Begin
+    Hermes_FormatCopy(source, @cnv^.source);
+    Hermes_FormatCopy(dest, @cnv^.dest);
+
+    Hermes_ConverterRequest := True;
+    Exit;
+  End;
+
+  DebugMSG('no converter found!!!');
+  { No converter found, fail }
+  Hermes_ConverterRequest := False;
+End;
+
+Function Hermes_ConverterPalette(handle, sourcepal, destpal : THermesHandle) : Boolean;
+
+Begin
+{  DebugMSG('Hermes_ConverterPalette('+C2Str(sourcepal)+','+C2Str(destpal)+')');}
+  Hermes_ConverterPalette := False;
+  If (handle < 0) Or (handle >= lastConverter) Then
+    Exit;
+  If ConverterList[handle] = Nil Then
+    Exit;
+
+  { Fail silently if not indexed colour format }
+  If Not ConverterList[handle]^.source.indexed Then
+  Begin
+    ConverterList[handle]^.lookup := Nil;
+    Hermes_ConverterPalette := True;
+    Exit;
+  End;
+
+  ConverterList[handle]^.lookup :=
+    Hermes_PaletteGetTable(sourcepal, @ConverterList[handle]^.dest);
+
+  If ConverterList[handle]^.lookup = Nil Then
+    Exit;
+
+  Hermes_ConverterPalette := True;
+End;
+
+Function Hermes_ConverterCopy(handle : THermesHandle; s_pixels : Pointer;
+                              s_x, s_y, s_width, s_height, s_pitch : Integer;
+                              d_pixels : Pointer; d_x, d_y, d_width,
+                              d_height, d_pitch : Integer) : Boolean;
+
+Var
+  cnv : PHermesConverter;
+  iface : THermesConverterInterface;
+
+Begin
+  Hermes_ConverterCopy := False;
+  If (handle < 0) Or (handle >= lastConverter) Then
+    Exit;
+  cnv := ConverterList[handle];
+  If cnv = Nil Then
+    Exit;
+
+  { Returns success if height or width is zero. This is debatable.. ! }
+  If (s_width <= 0) Or (s_height <= 0) Or (d_width <= 0) Or (d_height <= 0) Then
+  Begin
+    Hermes_ConverterCopy := True;
+    Exit;
+  End;
+
+  iface.s_pixels := s_pixels;
+  iface.s_width := s_width;
+  iface.s_height := s_height;
+  iface.s_add := s_pitch - s_width * (cnv^.source.bits Shr 3);
+  iface.s_pitch := s_pitch;
+
+  iface.d_pixels := d_pixels;
+  iface.d_width := d_width;
+  iface.d_height := d_height;
+  iface.d_add := d_pitch - d_width*(cnv^.dest.bits Shr 3);
+  iface.d_pitch := d_pitch;
+
+  Inc(iface.s_pixels, s_y * s_pitch + s_x * (cnv^.source.bits Shr 3));
+  Inc(iface.d_pixels, d_y * d_pitch + d_x * (cnv^.dest.bits Shr 3));
+
+  iface.s_has_colorkey := cnv^.source.has_colorkey;
+  iface.d_has_colorkey := cnv^.dest.has_colorkey;
+  iface.s_colorkey := cnv^.source.colorkey;
+  iface.d_colorkey := cnv^.dest.colorkey;
+
+  iface.lookup := cnv^.lookup;
+
+
+  { For generic converters, do some extra setup (find shifts, etc.)
+    TODO: Move that out of here and in the request routine ! }
+  If (cnv^.flags And HERMES_CONVERT_GENERIC) <> 0 Then
+  Begin
+    Hermes_Calculate_Generic_Info(Hermes_Topbit(cnv^.source.r),
+                                  Hermes_Topbit(cnv^.source.g),
+                                  Hermes_Topbit(cnv^.source.b),
+                                  Hermes_Topbit(cnv^.source.a),
+                                  Hermes_Topbit(cnv^.dest.r),
+                                  Hermes_Topbit(cnv^.dest.g),
+                                  Hermes_Topbit(cnv^.dest.b),
+                                  Hermes_Topbit(cnv^.dest.a),
+                                  @iface.info);
+    iface.mask_r := cnv^.dest.r;
+    iface.mask_g := cnv^.dest.g;
+    iface.mask_b := cnv^.dest.b;
+    iface.mask_a := cnv^.dest.a;
+  End;
+
+  { Check for dithering. This should not be in here but in request as well }
+  If (cnv^.flags And HERMES_CONVERT_DITHER) <> 0 Then
+  Begin
+    { If there is a ditherer, use it else fall back to normal }
+    If cnv^.dither <> Nil Then
+      cnv^.loopnormal := cnv^.dither;
+  End;
+
+  { Normal conversion }
+  If (s_width = d_width) And (s_height = d_height) Then
+  Begin
+    If (cnv^.normal = Nil) Or (cnv^.loopnormal = Nil) Then
+      Exit;
+    { Optimization
+    If (iface.s_add = 0) And (iface.d_add = 0) Then
+    Begin
+      iface.s_width := iface.s_width * s_height;
+      iface.d_width := iface.d_width * d_height;
+      iface.s_height := 1;
+      iface.d_height := 1;
+    End;}
+    iface.func := cnv^.normal;
+    cnv^.loopnormal(@iface);
+    Hermes_ConverterCopy := True;
+    Exit;
+  End
+  { Stretch conversion }
+  Else
+  Begin
+    If (cnv^.stretch = Nil) Or (cnv^.loopstretch = Nil) Then
+      Exit;
+    iface.func := cnv^.stretch;
+    cnv^.loopstretch(@iface);
+  End;
+  Hermes_ConverterCopy := True;
+End;

packages/extra/hermes/d_32.pp

@@ -0,0 +1,176 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   32 bit to * dithered converters for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+  
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+Procedure ConvertP_32rgb888_16rgb565_dither(iface : PHermesConverterInterface); CDecl;
+
+Var
+  source, dest : Pchar8;
+  d_pixel : int32;
+  y, count : LongInt;
+
+Begin
+  y := 0;
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  While y < iface^.d_height Do
+  Begin
+    { Get counter for this scanline }
+    count := iface^.d_width;
+
+    { Check first pixel alignment, correct if necessary }
+    If (PtrUInt(iface^.d_pixels) And 3) <> 0 Then
+    Begin
+      Pshort16(dest)^ := 
+        DitherTab_r565_44[count And 3, y And 3, (Pint32(source)^ Shr 16) And $ff] Or
+	DitherTab_g565_44[count And 3, y And 3, (Pint32(source)^ Shr 8) And $ff] Or
+	DitherTab_b565_44[count And 3, y And 3, Pint32(source)^ And $ff];
+
+      Inc(source, 4);
+      Inc(dest, 2);
+      Dec(count);
+    End;
+
+    { Two pixels at a time loop }
+    While count > 1 Do
+    Begin
+      d_pixel :=
+        DitherTab_r565_44[count And 3, y And 3, (Pint32(source)^ Shr 16) And $ff] Or
+	DitherTab_g565_44[count And 3, y And 3, (Pint32(source)^ Shr 8) And $ff] Or
+	DitherTab_b565_44[count And 3, y And 3, Pint32(source)^ And $ff];
+
+      Inc(source, 4);
+      Dec(count);
+
+      d_pixel := d_pixel Or ((
+        DitherTab_r565_44[count And 3, y And 3, (Pint32(source)^ Shr 16) And $ff] Or
+	DitherTab_g565_44[count And 3, y And 3, (Pint32(source)^ Shr 8) And $ff] Or
+	DitherTab_b565_44[count And 3, y And 3, Pint32(source)^ And $ff]) Shl 16);
+
+      Dec(count);
+      Inc(source, 4);
+
+      Pint32(dest)^ := d_pixel;
+
+      Inc(dest, 4);
+    End;
+
+    { Convert the odd trailing pixel }
+    If (iface^.d_width And 1) <> 0 Then
+    Begin
+      Pshort16(dest)^ :=
+        DitherTab_r565_44[count And 3, y And 3, (Pint32(source)^ Shr 16) And $ff] Or
+	DitherTab_g565_44[count And 3, y And 3, (Pint32(source)^ Shr 8) And $ff] Or
+	DitherTab_b565_44[count And 3, y And 3, Pint32(source)^ And $ff];
+
+      Inc(source, 4);
+      Inc(dest, 2);
+    End;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+
+    Inc(y);
+  End;
+End;
+
+Procedure ConvertP_32rgb888_8rgb332_dither(iface : PHermesConverterInterface); CDecl;
+
+Var
+  source, dest : Pchar8;
+  d_pixel : int32;
+  y, count : LongInt;
+
+Begin
+  y := 0;
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+ 
+  While y < iface^.d_height Do
+  Begin
+    { Get counter for this scanline }
+    count := iface^.d_width;
+
+
+    { TODO: alignment loop }
+
+
+    { Convert 4 pixels at a time }
+    While count > 3 Do
+    Begin
+      d_pixel :=
+        DitherTab_r332_44[count And 3, y And 3, (Pint32(source)^ Shr 16) And $ff] Or
+	DitherTab_g332_44[count And 3, y And 3, (Pint32(source)^ Shr 8) And $ff] Or
+	DitherTab_b332_44[count And 3, y And 3, Pint32(source)^ And $ff];
+      Dec(count);
+      Inc(source, 4);
+
+      d_pixel := d_pixel Or ((
+        DitherTab_r332_44[count And 3, y And 3, (Pint32(source)^ Shr 16) And $ff] Or
+	DitherTab_g332_44[count And 3, y And 3, (Pint32(source)^ Shr 8) And $ff] Or
+	DitherTab_b332_44[count And 3, y And 3, Pint32(source)^ And $ff]) Shl 8);
+      Dec(count);
+      Inc(source, 4);
+
+      d_pixel := d_pixel Or ((
+        DitherTab_r332_44[count And 3, y And 3, (Pint32(source)^ Shr 16) And $ff] Or
+	DitherTab_g332_44[count And 3, y And 3, (Pint32(source)^ Shr 8) And $ff] Or
+	DitherTab_b332_44[count And 3, y And 3, Pint32(source)^ And $ff]) Shl 16);
+      Dec(count);
+      Inc(source, 4);
+
+      d_pixel := d_pixel Or ((
+        DitherTab_r332_44[count And 3, y And 3, (Pint32(source)^ Shr 16) And $ff] Or
+	DitherTab_g332_44[count And 3, y And 3, (Pint32(source)^ Shr 8) And $ff] Or
+	DitherTab_b332_44[count And 3, y And 3, Pint32(source)^ And $ff]) Shl 24);
+      Dec(count);
+      Inc(source, 4);
+
+      Pint32(dest)^ := d_pixel;
+      Inc(dest, 4);
+    End;
+
+    { Write trailing pixels }
+    While count <> 0 Do
+    Begin
+      Dec(count);
+      dest^ := 
+        DitherTab_r332_44[count And 3, y And 3, (Pint32(source)^ Shr 16) And $ff] Or
+	DitherTab_g332_44[count And 3, y And 3, (Pint32(source)^ Shr 8) And $ff] Or
+	DitherTab_b332_44[count And 3, y And 3, Pint32(source)^ And $ff];
+
+      Inc(source, 4);
+      Inc(dest);
+    End;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+
+    Inc(y);
+  End;
+End;

packages/extra/hermes/debug.pp

@@ -0,0 +1,62 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Function C2Str(Q : Integer) : String;
+
+Var
+  S : String;
+
+Begin
+  Str(Q, S);
+  C2Str := S;
+End;
+
+Procedure DebugInit;
+
+{Var
+  F : Text;}
+
+Begin
+{  ASSign(F, 'debug.txt');
+  Rewrite(F);
+  Close(F);}
+End;
+
+Procedure DebugMSG(S : String);
+
+Var
+  F : Text;
+
+Begin
+  ASSign(F, 'debug.txt');
+  {$I-}
+  Append(F);
+  {$I+}
+  If IOResult <> 0 Then
+  Begin
+    {$I-}
+    Rewrite(F);
+    {$I+}
+    If IOResult <> 0 Then
+      Exit;
+  End;
+  Writeln(F, S);
+  Close(F);
+End;

packages/extra/hermes/dither.pp

@@ -0,0 +1,82 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{ Everything in here (C)1998 The Rasterman }
+
+{ Rasterman's dither matrix }
+
+Const
+  DitherMatrix_44 : Array[0..3, 0..3] Of char8 = (
+    (0, 4, 1, 5),
+    (6, 2, 7, 3),
+    (1, 5, 0, 4),
+    (7, 3, 6, 2));
+
+Var
+  DitherTab_r565_44 : Array[0..3, 0..3, 0..255] Of short16;
+  DitherTab_g565_44 : Array[0..3, 0..3, 0..255] Of short16;
+  DitherTab_b565_44 : Array[0..3, 0..3, 0..255] Of short16;
+
+  DitherTab_r332_44 : Array[0..3, 0..3, 0..255] Of char8;
+  DitherTab_g332_44 : Array[0..3, 0..3, 0..255] Of char8;
+  DitherTab_b332_44 : Array[0..3, 0..3, 0..255] Of char8;
+
+Procedure Dither_SetupMatrices;
+
+Var
+  i, x, y : LongInt;
+
+Begin  
+  For y := 0 To 3 Do
+    For x := 0 To 3 Do
+      For i := 0 To 255 Do
+      Begin
+        If (DitherMatrix_44[x, y] < (i And $7)) And (i < (256 - 8)) Then
+	Begin
+	  DitherTab_r565_44[x, y, i] := ((i + 8) And $f8) Shl 8;
+	  DitherTab_r332_44[x, y, i] := ((i + 8) And $e0);
+	End
+	Else
+	Begin
+	  DitherTab_r565_44[x, y, i] := (i And $f8) Shl 8;
+	  DitherTab_r332_44[x, y, i] := i And $e0;
+	End;
+        If (DitherMatrix_44[x, y] < ((i And $3) Shl 1)) And (i < (256 - 4)) Then
+	Begin
+	  DitherTab_g565_44[x, y, i] := (((i + 4) And $fc) Shl 8) Shr 5;
+	  DitherTab_g332_44[x, y, i] := ((i + 4) And $e0) Shr 3;
+	End
+	Else
+	Begin
+	  DitherTab_g565_44[x, y, i] := ((i And $fc) Shl 8) Shr 5;
+	  DitherTab_g332_44[x, y, i] := (i And $e0) Shr 3;
+	End;
+        If (DitherMatrix_44[x, y] < (i And $7)) And (i < (256 - 8)) Then
+	Begin
+	  DitherTab_b565_44[x, y, i] := (((i + 8) And $f8) Shl 16) Shr 19;
+	  DitherTab_b332_44[x, y, i] := ((i + 8) Shr 6) And $3;
+	End
+	Else
+	Begin
+	  DitherTab_b565_44[x, y, i] := ((i And $f8) Shl 16) Shr 19;
+	  DitherTab_b332_44[x, y, i] := (i Shr 6) And $3;
+	End;
+      End;
+End;

packages/extra/hermes/factconv.pp

@@ -0,0 +1,482 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+
+{  Placeholder converter. This is for things like 8 bit converters that have
+   one main loop and NO scanline conversion function as opposed to most others
+   which use the generic loop.
+   There needs to be a function assigned to the scanline loop however,
+   otherwise the converter will fail a test in Convert.c. This is the easiest
+   way. Do NOT use NotApplicable as NotYetImplemented ! }
+Procedure NotApplicable(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Begin
+  If source <> Nil Then;
+  If dest <> Nil Then;
+  If count <> 0 Then;
+  If inc_source <> 0 Then;
+End;
+
+{  Factory converter array, holds ALL converters available from HERMES. Note
+   that converters have to be assigned IN ORDER of priority for processors
+   that can run different converters.
+   Thus, for an Intel MMX Pentium, the order would be:
+
+      - MMX converters
+      - X86 converters
+      - Pascal converters
+
+   If someone wrote a P2 or P3 converter, if would be added even further up. }
+
+Const
+  Factory_NumConverters = 45
+  {$IFDEF I386_ASSEMBLER}+27{$ENDIF I386_ASSEMBLER};
+
+  Factory_Converters : Array[0..Factory_NumConverters - 1] Of THermesFactoryStruct =
+(
+{$IFDEF I386_ASSEMBLER}
+  { ------ From 32 RGB 888 - MMX PENTIUM II ---- }
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff0000;d_g:$ff00;d_b:$ff;d_a:0;
+   loopnormal:@ConvertMMX;loopstretch:Nil;normal:@ConvertMMXpII32_24RGB888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_MMX_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$f800;d_g:$7e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertMMX;loopstretch:Nil;normal:@ConvertMMXpII32_16RGB565;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_MMX_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$7e0;d_b:$f800;d_a:0;
+   loopnormal:@ConvertMMX;loopstretch:Nil;normal:@ConvertMMXpII32_16BGR565;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_MMX_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$7c00;d_g:$3e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertMMX;loopstretch:Nil;normal:@ConvertMMXpII32_16RGB555;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_MMX_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$3e0;d_b:$7c00;d_a:0;
+   loopnormal:@ConvertMMX;loopstretch:Nil;normal:@ConvertMMXpII32_16BGR555;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_MMX_PENTIUM),
+
+  { ------ From 32 RGB 888 - MMX PENTIUM ------- }
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$7c00;d_g:$3e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertMMX;loopstretch:Nil;normal:@ConvertMMXpII32_16RGB555;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_MMX_PENTIUM),
+
+  { ------ From 32 RGB 888 - X86 PENTIUM ------- }
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p32_32BGR888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff000000;d_g:$ff0000;d_b:$ff00;d_a:$ff;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p32_32RGBA888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff00;d_g:$ff0000;d_b:$ff000000;d_a:$ff;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p32_32BGRA888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff0000;d_g:$ff00;d_b:$ff;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p32_24RGB888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p32_24BGR888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$f800;d_g:$7e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:@ConvertX86Stretch;
+   normal:@ConvertX86p32_16RGB565;stretch:@ConvertX86p32_16RGB565_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$7e0;d_b:$f800;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p32_16BGR565;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$7c00;d_g:$3e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p32_16RGB555;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$3e0;d_b:$7c00;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p32_16BGR555;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:8;d_idx:False;d_r:$e0;d_g:$1c;d_b:$3;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p32_8RGB332;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  { ------ From 16 RGB 565 - X86 PENTIUM ------- }
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff0000;d_g:$ff00;d_b:$ff;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p16_32RGB888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p16_32BGR888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff000000;d_g:$ff0000;d_b:$ff00;d_a:$ff;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p16_32RGBA888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff00;d_g:$ff0000;d_b:$ff000000;d_a:$ff;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p16_32BGRA888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff0000;d_g:$ff00;d_b:$ff;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p16_24RGB888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p16_24BGR888;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$7e0;d_b:$f800;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p16_16BGR565;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:16;d_idx:False;d_r:$7c00;d_g:$3e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p16_16RGB555;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$3e0;d_b:$7c00;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p16_16BGR555;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:8;d_idx:False;d_r:$e0;d_g:$1c;d_b:$3;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86p16_8RGB332;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+
+  (s_bits:8;s_idx:True;s_r:0;s_g:0;s_b:0;s_a:0;
+   d_bits:16;d_idx:False;d_r:0;d_g:0;d_b:0;d_a:0;
+   loopnormal:@ConvertX86;loopstretch:Nil;normal:@ConvertX86pI8_16;
+   stretch:Nil;dither:Nil;ditherstretch:Nil;processor:PROC_X86_PENTIUM),
+{$ENDIF I386_ASSEMBLER}
+
+  { ------ From 32 RGBA 8888 ---- }
+  {
+  (s_bits:32;s_idx:False;s_r:$ff000000;s_g:$ff0000;s_b:$ff00;s_a:$ff;
+   d_bits:32;d_idx:False;d_r:$ff000000;d_g:$ff0000;d_b:$ff00;d_a:$ff;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_32bgr888;stretch:@ConvertP_32rgb888_32bgr888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+  }
+
+  { ------ From 32 RGB 888 ------- }
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_32bgr888;stretch:@ConvertP_32rgb888_32bgr888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff000000;d_g:$ff0000;d_b:$ff00;d_a:$ff;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_32rgba888;stretch:@ConvertP_32rgb888_32rgba888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff00;d_g:$ff0000;d_b:$ff000000;d_a:$ff;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_32bgra888;stretch:@ConvertP_32rgb888_32bgra888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff0000;d_g:$ff00;d_b:$ff;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_24rgb888;stretch:@ConvertP_32rgb888_24rgb888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_24bgr888;stretch:@ConvertP_32rgb888_24bgr888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$f800;d_g:$7e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_16rgb565;stretch:@ConvertP_32rgb888_16rgb565_S;
+   dither:@ConvertP_32rgb888_16rgb565_dither;ditherstretch:Nil;
+   processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$7e0;d_b:$f800;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_16bgr565;stretch:@ConvertP_32rgb888_16bgr565_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$7c00;d_g:$3e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_16rgb555;stretch:@ConvertP_32rgb888_16rgb555_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$3e0;d_b:$7c00;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_16bgr555;stretch:@ConvertP_32rgb888_16bgr555_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:8;d_idx:False;d_r:$e0;d_g:$1c;d_b:$3;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_32rgb888_8rgb332;stretch:@ConvertP_32rgb888_8rgb332_S;
+   dither:@ConvertP_32rgb888_8rgb332_dither;
+   ditherstretch:Nil;processor:PROC_GENERIC),
+
+ { ------ From 32 RGB MUHMU ------- }
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff0000;d_g:$ff00;d_b:$ff;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_32rgb888;stretch:@ConvertP_muhmu32_32rgb888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_32bgr888;stretch:@ConvertP_muhmu32_32bgr888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff000000;d_g:$ff0000;d_b:$ff00;d_a:$ff;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_32rgba888;stretch:@ConvertP_muhmu32_32rgba888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff00;d_g:$ff0000;d_b:$ff000000;d_a:$ff;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_32bgra888;stretch:@ConvertP_muhmu32_32bgra888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff0000;d_g:$ff00;d_b:$ff;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_24rgb888;stretch:@ConvertP_muhmu32_24rgb888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_24bgr888;stretch:@ConvertP_muhmu32_24bgr888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$f800;d_g:$7e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_16rgb565;stretch:@ConvertP_muhmu32_16rgb565_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$7e0;d_b:$f800;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_16bgr565;stretch:@ConvertP_muhmu32_16bgr565_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$7c00;d_g:$3e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_16rgb555;stretch:@ConvertP_muhmu32_16rgb555_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$3e0;d_b:$7c00;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_16bgr555;stretch:@ConvertP_muhmu32_16bgr555_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:32;s_idx:False;s_r:$ff Shl 20;s_g:$ff Shl 10;s_b:$ff;s_a:0;
+   d_bits:8;d_idx:False;d_r:$e0;d_g:$1c;d_b:$3;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_muhmu32_8rgb332;stretch:@ConvertP_muhmu32_8rgb332_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  { ------ From 24 RGB 888 ------- }
+  (s_bits:24;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff0000;d_g:$ff00;d_b:$ff;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_24rgb888_32rgb888;stretch:@ConvertP_24rgb888_32rgb888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:24;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_24rgb888_32bgr888;stretch:@ConvertP_24rgb888_32bgr888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:24;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff000000;d_g:$ff0000;d_b:$ff00;d_a:$ff;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_24rgb888_32rgba888;stretch:@ConvertP_24rgb888_32rgba888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:24;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff00;d_g:$ff0000;d_b:$ff000000;d_a:$ff;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_24rgb888_32bgra888;stretch:@ConvertP_24rgb888_32bgra888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:24;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_24rgb888_24bgr888;stretch:@ConvertP_24rgb888_24bgr888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:24;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$f800;d_g:$7e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_24rgb888_16rgb565;stretch:@ConvertP_24rgb888_16rgb565_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:24;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$7e0;d_b:$f800;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_24rgb888_16bgr565;stretch:@ConvertP_24rgb888_16bgr565_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:24;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$7c00;d_g:$3e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_24rgb888_16rgb555;stretch:@ConvertP_24rgb888_16rgb555_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:24;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$3e0;d_b:$7c00;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_24rgb888_16bgr555;stretch:@ConvertP_24rgb888_16bgr555_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:24;s_idx:False;s_r:$ff0000;s_g:$ff00;s_b:$ff;s_a:0;
+   d_bits:8;d_idx:False;d_r:$e0;d_g:$1c;d_b:$3;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_24rgb888_8rgb332;stretch:@ConvertP_24rgb888_8rgb332_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  { ------ From 16 RGB 565 ------- }
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff0000;d_g:$ff00;d_b:$ff;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_16rgb565_32rgb888;stretch:@ConvertP_16rgb565_32rgb888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_16rgb565_32bgr888;stretch:@ConvertP_16rgb565_32bgr888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff000000;d_g:$ff0000;d_b:$ff00;d_a:$ff;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_16rgb565_32rgba888;stretch:@ConvertP_16rgb565_32rgba888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:32;d_idx:False;d_r:$ff00;d_g:$ff0000;d_b:$ff000000;d_a:$ff;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_16rgb565_32bgra888;stretch:@ConvertP_16rgb565_32bgra888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff0000;d_g:$ff00;d_b:$ff;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_16rgb565_24rgb888;stretch:@ConvertP_16rgb565_24rgb888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:24;d_idx:False;d_r:$ff;d_g:$ff00;d_b:$ff0000;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_16rgb565_24bgr888;stretch:@ConvertP_16rgb565_24bgr888_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$7e0;d_b:$f800;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_16rgb565_16bgr565;stretch:@ConvertP_16rgb565_16bgr565_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:16;d_idx:False;d_r:$7c00;d_g:$3e0;d_b:$1f;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_16rgb565_16rgb555;stretch:@ConvertP_16rgb565_16rgb555_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:16;d_idx:False;d_r:$1f;d_g:$3e0;d_b:$7c00;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_16rgb565_16bgr555;stretch:@ConvertP_16rgb565_16bgr555_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:16;s_idx:False;s_r:$f800;s_g:$7e0;s_b:$1f;s_a:0;
+   d_bits:8;d_idx:False;d_r:$e0;d_g:$1c;d_b:$3;d_a:0;
+   loopnormal:@ConvertP;loopstretch:@ConvertPStretch;
+   normal:@ConvertP_16rgb565_8rgb332;stretch:@ConvertP_16rgb565_8rgb332_S;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  { ------ From 8 bit INDEXED ------- }
+  (s_bits:8;s_idx:True;s_r:0;s_g:0;s_b:0;s_a:0;
+   d_bits:32;d_idx:False;d_r:0;d_g:0;d_b:0;d_a:0;
+   loopnormal:@ConvertP_index8_32;loopstretch:@ConvertP_index8_32_S;
+   normal:@NotApplicable;stretch:@NotApplicable;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:8;s_idx:True;s_r:0;s_g:0;s_b:0;s_a:0;
+   d_bits:24;d_idx:False;d_r:0;d_g:0;d_b:0;d_a:0;
+   loopnormal:@ConvertP_index8_24;loopstretch:@ConvertP_index8_24_S;
+   normal:@NotApplicable;stretch:@NotApplicable;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:8;s_idx:True;s_r:0;s_g:0;s_b:0;s_a:0;
+   d_bits:16;d_idx:False;d_r:0;d_g:0;d_b:0;d_a:0;
+   loopnormal:@ConvertP_index8_16;loopstretch:@ConvertP_index8_16_S;
+   normal:@NotApplicable;stretch:@NotApplicable;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC),
+
+  (s_bits:8;s_idx:True;s_r:0;s_g:0;s_b:0;s_a:0;
+   d_bits:8;d_idx:False;d_r:0;d_g:0;d_b:0;d_a:0;
+   loopnormal:@ConvertP_index8_8;loopstretch:@ConvertP_index8_8_S;
+   normal:@NotApplicable;stretch:@NotApplicable;
+   dither:Nil;ditherstretch:Nil;processor:PROC_GENERIC)
+);

packages/extra/hermes/factory.inc

@@ -0,0 +1,398 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Var
+  Processor : Integer;
+
+Procedure Hermes_Factory_Init;
+
+Var
+  res : Integer;
+
+Begin
+  res := 0;
+  Processor := PROC_GENERIC;
+
+  {$IFDEF I386_ASSEMBLER}
+    Processor := Processor Or PROC_X86_PENTIUM;{There are no others at the moment}
+    res := Hermes_X86_CPU;
+    If (res And $800000) <> 0 Then
+    Begin
+//      Writeln('mmx disabled for debugging');
+      Processor := Processor Or PROC_MMX_PENTIUM;
+{      Writeln('mmx!');}
+    End;
+  {$ENDIF I386_ASSEMBLER}
+End;
+
+Function Hermes_Factory_getClearer(bits : int32) : PHermesClearer;
+
+Var
+  tmp : PHermesClearer;
+
+Begin
+  { Try different processors in order of priority..
+    Note that for this to work, an MMX processor has to have both MMX and
+    X86 flags }
+  tmp := malloc(SizeOf(THermesClearer));
+  If tmp = Nil Then
+  Begin
+    Hermes_Factory_getClearer := Nil;
+    Exit;
+  End;
+
+  tmp^.bits := bits;
+  Hermes_Factory_getClearer := tmp;
+
+  {$IFDEF I386_ASSEMBLER}
+    If (Processor And PROC_MMX_PENTIUM) <> 0 Then
+      Case bits Of
+        32 : Begin
+          tmp^.func := @ClearMMX_32;
+          Exit;
+        End;
+        24 : ;
+        16 : Begin
+          tmp^.func := @ClearMMX_16;
+          Exit;
+        End;
+        8 : Begin
+          tmp^.func := @ClearMMX_8;
+          Exit;
+        End;
+      End;
+
+    If (Processor And PROC_X86_PENTIUM) <> 0 Then
+      Case bits Of
+        32 : Begin
+          tmp^.func := @ClearX86_32;
+          Exit;
+        End;
+        24 : ;
+        16 : Begin
+          tmp^.func := @ClearX86_16;
+          Exit;
+        End;
+        8 : Begin
+          tmp^.func := @ClearX86_8;
+          Exit;
+        End;
+      End;
+  {$ENDIF I386_ASSEMBLER}
+
+  Case bits Of
+    32 : Begin
+      tmp^.func := @ClearP_32;
+      Exit;
+    End;
+    24 : Begin
+      tmp^.func := @ClearP_24;
+      Exit;
+    End;
+    16 : Begin
+      tmp^.func := @ClearP_16;
+      Exit;
+    End;
+    8 : Begin
+      tmp^.func := @ClearP_8;
+      Exit;
+    End;
+    Else
+    Begin
+      free(tmp);
+      Hermes_Factory_getClearer := Nil;
+    End;
+  End;
+End;
+
+Function Hermes_Factory_getConverter(source, dest : PHermesFormat) : PHermesConverter;
+
+Var
+  tmp : PHermesConverter;
+  i : Integer;
+  found : Boolean;
+
+Begin
+  found := False;
+
+  tmp := malloc(SizeOf(THermesConverter));
+  If tmp = Nil Then
+  Begin
+    Hermes_Factory_getConverter := Nil;
+    Exit;
+  End;
+
+  { Set all conversion routines to nil }
+  tmp^.loopnormal := Nil;
+  tmp^.loopstretch := Nil;
+  tmp^.normal := Nil;
+  tmp^.stretch := Nil;
+  tmp^.dither := Nil;
+  tmp^.ditherstretch := Nil;
+  tmp^.flags := 0;
+
+  If source^.indexed Then
+    { For 8 bit indexed, just look at the destination bit depth and check
+      if the converter's processor is a subset of our processor }
+    For i := 0 To Factory_NumConverters - 1 Do
+      If (Factory_Converters[i].d_bits = dest^.bits) And
+        (Factory_Converters[i].s_idx And
+        ((processor And Factory_Converters[i].processor) <> 0)) Then
+      Begin
+        { If any routines are unassigned, assign them now }
+
+        If tmp^.loopnormal = Nil Then
+        Begin
+          tmp^.loopnormal := Factory_Converters[i].loopnormal;
+          found := True;
+        End;
+
+        If tmp^.normal = Nil Then
+        Begin
+          tmp^.normal := Factory_Converters[i].normal;
+          found := True;
+        End;
+
+        If tmp^.loopstretch = Nil Then
+        Begin
+          tmp^.loopstretch := Factory_Converters[i].loopstretch;
+          found := True;
+        End;
+
+        If tmp^.stretch = Nil Then
+        Begin
+          tmp^.stretch := Factory_Converters[i].stretch;
+          found := True;
+        End;
+      End Else
+  Else
+    { Otherwise we need to compare everything, including bitmasks }
+    For i := 0 To Factory_NumConverters - 1 Do
+      If (Factory_Converters[i].d_bits = dest^.bits) And
+         (Factory_Converters[i].d_r = dest^.r) And
+         (Factory_Converters[i].d_g = dest^.g) And
+         (Factory_Converters[i].d_b = dest^.b) And
+         (Factory_Converters[i].d_a = dest^.a) And
+         (Factory_Converters[i].d_idx = dest^.indexed) And
+         (Factory_Converters[i].s_bits = source^.bits) And
+         (Factory_Converters[i].s_r = source^.r) And
+         (Factory_Converters[i].s_g = source^.g) And
+         (Factory_Converters[i].s_b = source^.b) And
+         (Factory_Converters[i].s_a = source^.a) And
+         (Factory_Converters[i].s_idx = source^.indexed) And
+         ((processor And Factory_Converters[i].processor) <> 0) Then
+      Begin
+        { If any routines are unassigned, assign them now }
+
+        If (tmp^.loopnormal = Nil) And
+           (Factory_Converters[i].loopnormal <> Nil) Then
+        Begin
+          tmp^.loopnormal := Factory_Converters[i].loopnormal;
+          found := True;
+        End;
+
+        If (tmp^.normal = Nil) And
+           (Factory_Converters[i].normal <> Nil) Then
+        Begin
+          tmp^.normal := Factory_Converters[i].normal;
+          found := True;
+        End;
+
+        If (tmp^.loopstretch = Nil) And
+           (Factory_Converters[i].loopstretch <> Nil) Then
+        Begin
+          tmp^.loopstretch := Factory_Converters[i].loopstretch;
+          found := True;
+        End;
+
+        If (tmp^.stretch = Nil) And
+           (Factory_Converters[i].stretch <> Nil) Then
+        Begin
+          tmp^.stretch := Factory_Converters[i].stretch;
+          found := True;
+        End;
+
+        If (tmp^.dither = Nil) And
+           (Factory_Converters[i].dither <> Nil) Then
+        Begin
+          tmp^.dither := Factory_Converters[i].dither;
+          found := True;
+        End;
+
+        If (tmp^.ditherstretch = Nil) And
+           (Factory_Converters[i].ditherstretch <> Nil) Then
+        Begin
+          tmp^.ditherstretch := Factory_Converters[i].ditherstretch;
+          found := True;
+        End;
+
+        { In the rare event of having everything assigned, pull the emergency
+          break. Otherwise we need to continue looking (might be stretching
+          routines somewhere :)
+          Do I sound like a stewardess? }
+        If (tmp^.loopnormal <> Nil) And (tmp^.normal <> Nil) And
+           (tmp^.loopstretch <> Nil) And (tmp^.stretch <> Nil) And
+           (tmp^.dither <> Nil) And (tmp^.ditherstretch <> Nil) Then
+          Break;
+      End;
+
+  If found Then
+  Begin
+    Hermes_FormatCopy(source, @tmp^.source);
+    Hermes_FormatCopy(dest, @tmp^.dest);
+
+    Hermes_Factory_getConverter := tmp;
+  End
+  Else
+  Begin
+    free(tmp);
+    Hermes_Factory_getConverter := Nil;
+  End;
+End;
+
+Function Hermes_Factory_getEqualConverter(bits : Integer) : PHermesConverter;
+
+Var
+  found : Boolean;
+  tmp : PHermesConverter;
+  asm_found : Integer;
+  c_found : Integer;
+
+Begin
+  found := False;
+  tmp := malloc(SizeOf(THermesConverter));
+  If tmp = Nil Then
+  Begin
+    Hermes_Factory_getEqualConverter := Nil;
+    Exit;
+  End;
+
+  { Set all conversion routines to null }
+  tmp^.loopnormal := Nil;
+  tmp^.loopstretch := Nil;
+  tmp^.normal := Nil;
+  tmp^.stretch := Nil;
+  tmp^.dither := Nil;
+  tmp^.ditherstretch := Nil;
+
+{$IFDEF I386_ASSEMBLER}
+
+  { Try MMX routines }
+  If (tmp^.loopnormal = Nil) Or (tmp^.normal = Nil) Or
+     (tmp^.loopstretch = Nil) Or (tmp^.stretch = Nil) Then
+    If (processor And PROC_MMX_PENTIUM) <> 0 Then
+{      Case bits Of
+      End};
+
+  { Try X86 routines }
+  If (tmp^.loopnormal = Nil) Or (tmp^.normal = Nil) Or
+     (tmp^.loopstretch = Nil) Or (tmp^.stretch = Nil) Then
+    If (processor And PROC_X86_PENTIUM) <> 0 Then
+    Begin
+      asm_found := 0;
+      Case bits Of
+        32 : Begin
+          tmp^.normal := @CopyX86p_4byte; asm_found := 1;
+        End;
+        24 : ;
+        16 : Begin
+          tmp^.normal := @CopyX86p_2byte; asm_found := 1;
+        End;
+         8 : Begin
+          tmp^.normal := @CopyX86p_1byte; asm_found := 1;
+        End;
+      End;
+
+      If (asm_found And 1) <> 0 Then
+      Begin
+        tmp^.loopnormal := @ConvertX86;
+        found := True;
+      End;
+    End;
+
+{$ENDIF I386_ASSEMBLER}
+
+
+  If (tmp^.loopnormal = Nil) Or (tmp^.normal = Nil) Or
+     (tmp^.loopstretch = Nil) Or (tmp^.stretch = Nil) Then
+  Begin
+    c_found := 0;
+
+    Case bits Of
+      32 : Begin
+        If tmp^.normal = Nil Then
+        Begin
+          tmp^.normal := @CopyP_4byte; c_found := c_found Or 1;
+        End;
+        If tmp^.stretch = Nil Then
+        Begin
+          tmp^.stretch := @CopyP_4byte_S; c_found := c_found Or 2;
+        End;
+      End;
+      24 : Begin
+        If tmp^.normal = Nil Then
+        Begin
+          tmp^.normal := @CopyP_3byte; c_found := c_found Or 1;
+        End;
+        If tmp^.stretch = Nil Then
+        Begin
+          tmp^.stretch := @CopyP_3byte_S; c_found := c_found Or 2;
+        End;
+      End;
+      16 : Begin
+        If tmp^.normal = Nil Then
+        Begin
+          tmp^.normal := @CopyP_2byte; c_found := c_found Or 1;
+        End;
+        If tmp^.stretch = Nil Then
+        Begin
+          tmp^.stretch := @CopyP_2byte_S; c_found := c_found Or 2;
+        End;
+      End;
+       8 : Begin
+        If tmp^.normal = Nil Then
+        Begin
+          tmp^.normal := @CopyP_1byte; c_found := c_found Or 1;
+        End;
+        If tmp^.stretch = Nil Then
+        Begin
+          tmp^.stretch := @CopyP_1byte_S; c_found := c_found Or 2;
+        End;
+      End;
+    End;
+
+    If (c_found And 1) <> 0 Then
+    Begin
+      tmp^.loopnormal := @ConvertP; found := True;
+    End;
+    If (c_found And 2) <> 0 Then
+    Begin
+      tmp^.loopstretch := @ConvertPStretch; found := True;
+    End;
+  End;
+
+  If found Then
+    Hermes_Factory_getEqualConverter := tmp
+  Else
+  Begin
+    free(tmp);
+    Hermes_Factory_getEqualConverter := Nil;
+  End;
+End;

packages/extra/hermes/format.pp

@@ -0,0 +1,138 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{Function Hermes_FormatNewEmpty : PHermesFormat;
+Function Hermes_FormatNew(bits : Integer; r, g, b, a : int32;
+                          indexed : Boolean) : PHermesFormat;
+Procedure Hermes_FormatFree(fmt : PHermesFormat);
+Function Hermes_FormatNewEx(bits : Integer; r, g, b, a : int32;
+                            indexed, has_colorkey : Boolean;
+                            colorkey : int32) : PHermesFormat;
+Function Hermes_FormatEquals(op1, op2 : PHermesFormat) : Boolean;
+Procedure Hermes_FormatCopy(source, dest : PHermesFormat);}
+
+Function Hermes_FormatNewEmpty : PHermesFormat;
+
+Var
+  tmp : PHermesFormat;
+
+Begin
+  tmp := malloc(SizeOf(THermesFormat));
+  If tmp = Nil Then
+  Begin
+    Hermes_FormatNewEmpty := Nil;
+    Exit;
+  End;
+  tmp^.bits := 0;
+  tmp^.indexed := False;
+  tmp^.r := 0;
+  tmp^.g := 0;
+  tmp^.b := 0;
+  tmp^.a := 0;
+  tmp^.has_colorkey := False;
+  tmp^.colorkey := 0;
+  Hermes_FormatNewEmpty := tmp;
+End;
+
+Function Hermes_FormatNew(bits : Integer; r, g, b, a : int32;
+                          indexed : Boolean) : PHermesFormat;
+
+Var
+  tmp : PHermesFormat;
+
+Begin
+  If indexed And (bits <> 8) Then
+  Begin
+    Hermes_FormatNew := Nil;
+    Exit;
+  End;
+  tmp := malloc(SizeOf(THermesFormat));
+  If tmp = Nil Then
+  Begin
+    Hermes_FormatNew := Nil;
+    Exit;
+  End;
+  tmp^.bits := bits;
+  tmp^.r := r;
+  tmp^.g := g;
+  tmp^.b := b;
+  tmp^.a := a;
+  tmp^.indexed := indexed;
+  tmp^.has_colorkey := False;
+  tmp^.colorkey := 0;
+  Hermes_FormatNew := tmp;
+End;
+
+Procedure Hermes_FormatFree(fmt : PHermesFormat);
+
+Begin
+  If fmt <> Nil Then
+    free(fmt);
+End;
+
+Function Hermes_FormatNewEx(bits : Integer; r, g, b, a : int32;
+                            indexed, has_colorkey : Boolean;
+                            colorkey : int32) : PHermesFormat;
+
+Var
+  tmp : PHermesFormat;
+
+Begin
+  If indexed And (bits <> 8) Then
+  Begin
+    Hermes_FormatNewEx := Nil;
+    Exit;
+  End;
+  tmp := malloc(SizeOf(THermesFormat));
+  If tmp = Nil Then
+  Begin
+    Hermes_FormatNewEx := Nil;
+    Exit;
+  End;
+  tmp^.bits := bits;
+  tmp^.r := r;
+  tmp^.g := g;
+  tmp^.b := b;
+  tmp^.a := a;
+  tmp^.indexed := indexed;
+  tmp^.has_colorkey := has_colorkey;
+  tmp^.colorkey := colorkey;
+  Hermes_FormatNewEx := tmp;
+End;
+
+Function Hermes_FormatEquals(op1, op2 : PHermesFormat) : Boolean;
+
+Begin
+  Hermes_FormatEquals := ((op1^.indexed = op2^.indexed) And
+                          (op1^.bits = op2^.bits) And
+                          (op1^.r = op2^.r) And
+                          (op1^.g = op2^.g) And
+                          (op1^.b = op2^.b) And
+                          (op1^.a = op2^.a) And
+                          (op1^.has_colorkey = op2^.has_colorkey) And
+                          ((op1^.has_colorkey = False) Or
+                           (op1^.colorkey = op2^.colorkey)));
+End;
+
+Procedure Hermes_FormatCopy(source, dest : PHermesFormat);
+
+Begin
+  Move(source^, dest^, SizeOf(THermesFormat));
+End;

packages/extra/hermes/headp.pp

@@ -0,0 +1,42 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{ This little definition makes everything much nicer below here }
+{$MACRO ON}
+{$define CONVERT_PARAMETERS:=source, dest : Pchar8; count, inc_source : DWord}
+
+{$I p_16.pp}
+{$I p_24.pp}
+{$I p_32.pp}
+{ $I p32aoblt.pp}
+{$I p_clr.pp}
+{$I p_cnv.pp}
+{$I p_cpy.pp}
+{$I p_g.pp}
+{$I p_ga.pp}
+{$I p_gac.pp}
+{ $I p_gaoblt.pp}
+{$I p_gca.pp}
+{$I p_gcc.pp}
+{ $I p_gccblt.pp}
+{ $I p_gcoblt.pp}
+{$I p_i8.pp}
+{$I p_muhmu.pp}
+{$I d_32.pp}

packages/extra/hermes/hermconf.inc

@@ -0,0 +1,40 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+
+Const
+  HERMES_INITIAL = 8; { Initial size and growth of dynamic }
+  HERMES_GROWTH = 4; { array structures }
+
+  A_32 = 3;		      { oh yes, hardcode it... tsk tsk tsk }
+  R_32 = 2;                   { Position of R,G,B in a 32 bit dword }
+  G_32 = 1;
+  B_32 = 0;
+  R_24 = 2;                   { Position of R,G,B in a 24 bit pixel }
+  G_24 = 1;
+  B_24 = 0;
+{  #define DWORD_BYTE0(s) s         /* Shift values to get to bytes in dwords */
+  #define DWORD_BYTE1(s) ((s)<<8)  /* Check out the bracket paranoia to */   
+  #define DWORD_BYTE2(s) ((s)<<16) /* prevent bugs :)) */     
+  #define DWORD_BYTE3(s) ((s)<<24)       
+  #define DWORD_SHORT0(s) s
+  #define DWORD_SHORT1(s) ((s)<<16)
+  #define DWORD_SHORT0(s) s
+  #define DWORD_SHORT1(s) ((s)<<16)}

packages/extra/hermes/hermdef.inc

@@ -0,0 +1,60 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+
+{$IFDEF CPU86}
+  {$DEFINE I386_ASSEMBLER}
+  {$IFNDEF win32}
+    Const
+      ExternalAsmPrefix='_';
+  {$ELSE win32}
+    Const
+      ExternalAsmPrefix='';
+  {$ENDIF win32}
+{$ENDIF CPU86}
+
+{$IFDEF VER1_0}
+  {$IFDEF ENDIAN_LITTLE}
+    {$DEFINE FPC_LITTLE_ENDIAN}
+  {$ENDIF ENDIAN_LITTLE}
+  {$IFDEF ENDIAN_BIG}
+    {$DEFINE FPC_BIG_ENDIAN}
+  {$ENDIF ENDIAN_BIG}
+  Type
+    PtrInt = LongInt;
+    PtrUInt = Cardinal;
+{$ENDIF VER1_0}
+
+{$IFDEF FPC_LITTLE_ENDIAN}
+  {$IFDEF FPC_BIG_ENDIAN}
+    {$FATAL Both FPC_LITTLE_ENDIAN and FPC_BIG_ENDIAN defined?!}
+  {$ENDIF FPC_BIG_ENDIAN}
+{$ELSE FPC_LITTLE_ENDIAN}
+  {$IFNDEF FPC_BIG_ENDIAN}
+    {$FATAL Neither FPC_LITTLE_ENDIAN, nor FPC_BIG_ENDIAN defined?!}
+  {$ENDIF FPC_BIG_ENDIAN}
+{$ENDIF FPC_LITTLE_ENDIAN}
+
+{$IFDEF FPC_LITTLE_ENDIAN}
+  {$INFO FPC_LITTLE_ENDIAN}
+{$ENDIF FPC_LITTLE_ENDIAN}
+{$IFDEF FPC_BIG_ENDIAN}
+  {$INFO FPC_BIG_ENDIAN}
+{$ENDIF FPC_BIG_ENDIAN}

packages/extra/hermes/hermes.pp

@@ -0,0 +1,536 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Unit Hermes;
+
+{$MODE objfpc}
+
+Interface
+
+Const
+  HERMES_CONVERT_NORMAL = 0;
+  HERMES_CONVERT_DITHER = 1;
+
+Type
+  THermesHandle = Integer;
+  Pint32 = ^int32;
+  int32 = DWord;
+  Pshort16 = ^short16;
+  short16 = Word;
+  Pchar8 = ^char8;
+  char8 = Byte;
+  PHermesFormat = ^THermesFormat;
+  THermesFormat = Record
+    r,g,b,a : int32;
+    bits : Integer;
+    indexed : Boolean;
+    has_colorkey : Boolean;
+    colorkey : int32;
+  End;
+
+Function Hermes_FormatNewEmpty : PHermesFormat;
+
+{ Create a new format structure, returns 0 if failed. }
+Function Hermes_FormatNew(bits : Integer; r, g, b, a : int32;
+                          indexed : Boolean) : PHermesFormat;
+
+{ Free a format structure }
+Procedure Hermes_FormatFree(fmt : PHermesFormat);
+
+{ Create a new format structure with colorkey info, returns 0 if failed. }
+Function Hermes_FormatNewEx(bits : Integer; r, g, b, a : int32;
+                            indexed, has_colorkey : Boolean;
+                            colorkey : int32) : PHermesFormat;
+
+{ Compare two formats. Return true if they are equal, false otherwise }
+Function Hermes_FormatEquals(op1, op2 : PHermesFormat) : Boolean;
+
+{ Copy the contents of format 'source' to format 'destination' }
+Procedure Hermes_FormatCopy(source, dest : PHermesFormat);
+
+
+{
+   Get a converter to work with, specifying a combination of the flags
+   above. Returns 0 if unsuccessful.
+}
+Function Hermes_ConverterInstance(flags : DWord) : THermesHandle;
+
+{
+   Return a converter if it is not needed anymore, thus releasing some
+   memory.
+}
+Procedure Hermes_ConverterReturn(handle : THermesHandle);
+
+{
+   Request a format conversion between two formats. This function returns false
+   if the conversion cannot be provided (which should not occur too often :)
+   Repeated calls to this function will be cached an terminate almost
+   immediately, so don't be ashamed of calling it often.
+}
+Function Hermes_ConverterRequest(handle : THermesHandle;
+                                 source, dest : PHermesFormat) : Boolean;
+
+{
+   Set the palette of the source surface / destination surface for a
+   subsequent conversion. At the moment, only sourcepal is used.
+   Returns false if unsuccessful (invalid handle!).
+}
+Function Hermes_ConverterPalette(handle, sourcepal, destpal : THermesHandle) : Boolean;
+
+{
+   Do a format conversion after calling the setup routines above. This will
+   convert (or copy) the pixel data from s_pixels to the data in d_pixels.
+   Both source and destination areas/origins can be specified as well as
+   the scanline width in bytes of the source/destination.
+   Returns false if unsuccessful (invalid handle or request not called before).
+}
+Function Hermes_ConverterCopy(handle : THermesHandle; s_pixels : Pointer;
+                              s_x, s_y, s_width, s_height, s_pitch : Integer;
+                              d_pixels : Pointer; d_x, d_y, d_width,
+                              d_height, d_pitch : Integer) : Boolean;
+
+(*
+{-----------------H_BLIT---------------}
+
+{
+   Get a blitter to work with, specifying a combination of the flags
+   in H_Conv. Returns 0 if unsuccessful.
+}
+Function Hermes_BlitterInstance(flags : DWord) : THermesHandle;
+
+{
+   Return a blitter if it is not needed anymore, thus releasing some
+   memory.
+}
+Procedure Hermes_BlitterReturn(handle : THermesHandle);
+
+{
+   Request a format blitting between two formats. This function returns false
+   if the blitting cannot be provided (which should not occur too often :)
+   Repeated calls to this function will be cached an terminate almost
+   immediately, so don't be ashamed of calling it often.
+}
+Function Hermes_BlitterRequest(handle : THermesHandle;
+                               source, dest : PHermesFormat) : Boolean;
+
+{
+   Set the palette of the source surface / destination surface for a
+   subsequent blitting. At the moment, only sourcepal is used.
+   Returns false if unsuccessful (invalid handle!).
+}
+Function Hermes_BlitterPalette(handle, sourcepal, destpal : THermesHandle) : Boolean;
+
+{
+   Do a format blitting after calling the setup routines above. This will
+   blit the pixel data from s_pixels to the data in d_pixels.  Both source
+   and destination areas/origins can be specified as well as the scanline
+   width in bytes of the source/destination.  Returns false if unsuccessful
+   (invalid handle or request not called before).
+}
+Function Hermes_BlitterBlit(handle : THermesHandle; s_pixels : Pointer;
+                            s_x, s_y, s_width, s_height, s_pitch : Integer;
+                            d_pixels : Pointer; d_x, d_y, d_width, d_height,
+                            d_pitch : Integer) : Boolean;
+*)
+{-----------------H_PAL---------------}
+
+{ Get a handle for a palette to work with. This allocates memory for an
+   internal palette. Returns 0 if failed.
+}
+Function Hermes_PaletteInstance : THermesHandle;
+
+{
+   Return a handle for a palette if the palette isn't used anymore. The
+   internal palette will be deallocated.
+}
+Procedure Hermes_PaletteReturn(handle : THermesHandle);
+
+{
+   Copy the contents of the palette parameter provided into the internal
+   palette. The user palette has to be 256*4 bytes long.
+}
+Procedure Hermes_PaletteSet(handle : THermesHandle; palette : Pointer);
+
+{
+   Return the pointer to the internal palette. The palette is 256*4 bytes
+   long.
+}
+Function Hermes_PaletteGet(handle : THermesHandle) : Pointer;
+
+{
+   Force invalidation of the palette cache. This will force lookup tables to
+   be regenerated and has to be done manually after PaletteGet has been used
+   and the data has been modified without the knowledge of Hermes.
+}
+Procedure Hermes_PaletteInvalidateCache(handle : THermesHandle);
+
+
+{-----------------H_CLEAR---------------}
+
+{
+   Get a handle for a new clearer instance to work with. Returns 0 if failed.
+}
+Function Hermes_ClearerInstance : THermesHandle;
+
+{
+   Return the clearer instance if it is no longer needed.
+}
+Procedure Hermes_ClearerReturn(handle : THermesHandle);
+
+{
+   Request the clearing routines to be set up for clearing to a specific
+   format later. Repeated calls to the routine will be cached and terminate
+   after a short check.
+}
+Function Hermes_ClearerRequest(handle : THermesHandle; format : PHermesFormat) : Boolean;
+
+{
+   Clear a surface. pixels points to the pixel data, x1, y1, width, height
+   specify the area to clear, pitch is the width of a scanline in bytes,
+   the rest are the colour components.
+}
+Function Hermes_ClearerClear(handle : THermesHandle; pixels : Pointer;
+                             x1, y1, width, height, pitch : Integer;
+                             r, g, b : int32; index : char8) : Boolean;
+
+
+{ Initialise Hermes, returns false if failed }
+Function Hermes_Init : Boolean;
+
+{ Deinitialise Hermes, returns false if failed }
+Function Hermes_Done : Boolean;
+
+Implementation
+
+{$I hermdef.inc}
+
+Const
+  PROC_GENERIC = 1;
+  PROC_X86_PENTIUM = 2;
+  PROC_MMX_PENTIUM = 4;
+  HERMES_CONVERT_GENERIC = 65536;
+
+{$I hermconf.inc}
+
+Type
+  PHermesClearInterface = ^THermesClearInterface;
+  THermesClearInterface = Record
+    dest : ^char8;
+    value : int32;
+    width, height : Integer;
+    add : Integer;
+  End;
+  THermesClearPtr = Procedure(hci : PHermesClearInterface); CDecl;
+  PHermesClearer = ^THermesClearer;
+  THermesClearer = Record
+    bits : Integer;
+    func : THermesClearPtr;
+  End;
+
+
+{ Structure to hold shift amounts for the generic routines }
+  PHermesGenericInfo = ^THermesGenericInfo;
+  THermesGenericInfo = Record
+    r_right, g_right, b_right, a_right : Integer; {Shift amount to the right}
+    r_left, g_left, b_left, a_left : Integer; {Shift amount to the right}
+  End;
+
+
+{ Pointer to specialised (one-scanline-only) conversion procedure }
+  THermesConverterPtr = Procedure(source, dest : Pchar8;
+                                  count, inc_source : DWord); CDecl;
+
+{ Structure for conversion loop routines, don't be scared, size does NOT
+   matter in this case :) }
+  PHermesConverterInterface = ^THermesConverterInterface;
+  THermesConverterInterface = Record
+    s_pixels : Pchar8;
+    s_width,s_height : Integer;
+    s_add : Integer;          { Offset to next line from end of line }
+
+    d_pixels : Pchar8;
+    d_width,d_height : Integer;
+    d_add : Integer;
+
+    func : THermesConverterPtr;
+
+    lookup : Pint32;          { Palette lookup table ptr, for 8 bit }
+
+    s_pitch : Integer;        { Source and destination pitch, }
+    d_pitch : Integer;        { only used by C routines }
+
+    info : THermesGenericInfo; { Only used by generic converters }
+    mask_r, mask_g, mask_b, mask_a : int32; { Only used by generic converters }
+    s_mask_a : int32;
+
+    s_has_colorkey : Boolean;
+    s_colorkey : int32;
+
+    d_has_colorkey : Boolean;
+    d_colorkey : int32;
+  End;
+
+{ Pointer to loop function (C, assembler main loop, generic routines) }
+  THermesConverterLoopPtr = Procedure(hci : PHermesConverterInterface); CDecl;
+
+  PHermesConverter = ^THermesConverter;
+  THermesConverter = Record
+    source,dest : THermesFormat;           { Source and destination format }
+    lookup : Pint32;                       { Pointer to lookup table (8bit) }
+
+    flags : DWord;                         { Defined in H_Conv.h, DITHER,etc}
+
+    loopnormal : THermesConverterLoopPtr;  { Loop routine for normal conv. }
+    loopstretch : THermesConverterLoopPtr;
+    normal : THermesConverterPtr;          { One-scanline routine }
+    stretch : THermesConverterPtr;
+
+    dither : THermesConverterLoopPtr;        { Dithering routines always }
+    ditherstretch : THermesConverterLoopPtr; { convert the whole buffer }
+  End;
+
+  PHermesFactoryStruct = ^THermesFactoryStruct;
+  THermesFactoryStruct = Record
+    s_bits : Integer;
+    s_idx : Boolean;
+    s_r, s_g, s_b, s_a : int32;
+    d_bits : Integer;
+    d_idx : Boolean;
+    d_r, d_g, d_b, d_a : int32;
+
+    loopnormal, loopstretch : THermesConverterLoopPtr;
+    normal, stretch : THermesConverterPtr;
+    dither, ditherstretch : THermesConverterLoopPtr;
+
+    processor : Integer;
+  End;
+
+{dither types ?}
+
+Const
+{ p_converters holds a list of formats, for conversion from 32 bit, 24 bit,
+  16 bit, muhmu and 8 bit.
+  The destination formats are listed in the order of frequency they might
+  occur so common formats can be retrieved faster.
+
+  Format of a row:
+  source bpp, s. indexed, s. r_mask, s. g_mask, s. b_mask, s. alpha ,dest bpp,
+  d.indexed, d. r_mask, d. g_mask, d. b_mask, d. alpha
+}
+{ I wish I could touch this, but it's used in too many other placed in the code,
+  ( at least indirectly), and many of the indicies are hardcoded }
+  p_converters : Array[0..4, 0..11, 0..11] Of DWord =
+  (
+  ( {From 32 bit RGB 888}
+  (32,0,$ff0000,$ff00,$ff,0,16,0,$f800,$7e0,$1f,0),          {16RGB565 }
+  (32,0,$ff0000,$ff00,$ff,0, 8,0,$e0,$1c,$3,0),              { 8RGB332 }
+  (32,0,$ff0000,$ff00,$ff,0,16,0,$7c00,$3e0,$1f,0),          { 16RGB555 }
+  (32,0,$ff0000,$ff00,$ff,0,24,0,$ff0000,$ff00,$ff,0),       { 24RGB888 }
+  (32,0,$ff0000,$ff00,$ff,0,32,0,$ff,$ff00,$ff0000,0),       { 32BGR888 }
+  (32,0,$ff0000,$ff00,$ff,0,16,0,$1f,$7e0,$f800,0),          { 16BGR565 }
+  (32,0,$ff0000,$ff00,$ff,0,16,0,$1f,$3e0,$7c00,0),          { 16BGR555 }
+  (32,0,$ff0000,$ff00,$ff,0,32,0,$ff000000,$ff0000,$ff00,$ff), { 32RGBA888 }
+  (32,0,$ff0000,$ff00,$ff,0,32,0,$ff00,$ff0000,$ff000000,$ff), { 32BGRA888 }
+  (32,0,$ff0000,$ff00,$ff,0,24,0,$ff,$ff00,$ff0000,0),       { 24BGR888 }
+  (0,0,0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0,0,0)
+  )
+  ,
+  ( {From 24 bit RGB 888}
+  (24,0,$ff0000,$ff00,$ff,0,32,0,$ff0000,$ff00,$ff,0),       { 32RGB888 }
+  (24,0,$ff0000,$ff00,$ff,0,16,0,$f800,$7e0,$1f,0),          { 16RGB565 }
+  (24,0,$ff0000,$ff00,$ff,0, 8,0,$e0,$1c,$3,0),              { 8RGB332 }
+  (24,0,$ff0000,$ff00,$ff,0,16,0,$7c00,$3e0,$1f,0),          { 16RGB555 }
+  (24,0,$ff0000,$ff00,$ff,0,32,0,$ff,$ff00,$ff0000,0),       { 32BGR888 }
+  (24,0,$ff0000,$ff00,$ff,0,16,0,$1f,$7e0,$f800,0),          { 16BGR565 }
+  (24,0,$ff0000,$ff00,$ff,0,16,0,$1f,$3e0,$7c00,0),          { 16BGR555 }
+  (24,0,$ff0000,$ff00,$ff,0,32,0,$ff000000,$ff0000,$ff00,$ff), { 32RGBA888 }
+  (24,0,$ff0000,$ff00,$ff,0,32,0,$ff00,$ff0000,$ff000000,$ff), { 32BGRA888 }
+  (24,0,$ff0000,$ff00,$ff,0,24,0,$ff,$ff00,$ff0000,0),       { 24BGR888 }
+  (0,0,0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0,0,0)
+  )
+  ,
+  ( {From 16 bit RGB 565}
+  (16,0,$f800,$7e0,$1f,0,32,0,$ff0000,$ff00,$ff,0),          { 32RGB888 }
+  (16,0,$f800,$7e0,$1f,0, 8,0,$e0,$1c,$3,0),                 { 8RGB332 }
+  (16,0,$f800,$7e0,$1f,0,16,0,$7c00,$3e0,$1f,0),             { 16RGB555 }
+  (16,0,$f800,$7e0,$1f,0,24,0,$ff0000,$ff00,$ff,0),          { 24RGB888 }
+  (16,0,$f800,$7e0,$1f,0,32,0,$ff,$ff00,$ff0000,0),          { 32BGR888 }
+  (16,0,$f800,$7e0,$1f,0,16,0,$1f,$7e0,$f800,0),             { 16BGR565 }
+  (16,0,$f800,$7e0,$1f,0,16,0,$1f,$3e0,$7c00,0),             { 16BGR555 }
+  (16,0,$f800,$7e0,$1f,0,32,0,$ff000000,$ff0000,$ff00,$ff),    { 32RGBA888 }
+  (16,0,$f800,$7e0,$1f,0,32,0,$ff00,$ff0000,$ff000000,$ff),    { 32BGRA888 }
+  (16,0,$f800,$7e0,$1f,0,24,0,$ff,$ff00,$ff0000,0),          { 24BGR888 }
+  (0,0,0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0,0,0)
+  ),
+  ( {From 32 bit muhmu}
+  (32,0,$ff00000,$3fc00,$ff,0,32,0,$ff0000,$ff00,$ff,0),     { 32RGB888 }
+  (32,0,$ff00000,$3fc00,$ff,0,16,0,$f800,$7e0,$1f,0),        { 16RGB565 }
+  (32,0,$ff00000,$3fc00,$ff,0, 8,0,$e0,$1c,$3,0),            { 8RGB332 }
+  (32,0,$ff00000,$3fc00,$ff,0,16,0,$7c00,$3e0,$1f,0),        { 16RGB555 }
+  (32,0,$ff00000,$3fc00,$ff,0,24,0,$ff0000,$ff00,$ff,0),     { 24RGB888 }
+  (32,0,$ff00000,$3fc00,$ff,0,32,0,$ff,$ff00,$ff0000,0),     { 32BGR888 }
+  (32,0,$ff00000,$3fc00,$ff,0,16,0,$1f,$7e0,$f800,0),        { 16BGR565 }
+  (32,0,$ff00000,$3fc00,$ff,0,16,0,$1f,$3e0,$7c00,0),        { 16BGR555 }
+  (32,0,$ff00000,$3fc00,$ff,0,32,0,$ff000000,$ff0000,$ff00,$ff), { 32RGBA888 }
+  (32,0,$ff00000,$3fc00,$ff,0,32,0,$ff00,$ff0000,$ff000000,$ff), { 32BGRA888 }
+  (32,0,$ff00000,$3fc00,$ff,0,24,0,$ff,$ff00,$ff0000,0),     { 24BGR888 }
+  (0,0,0,0,0,0,0,0,0,0,0,0)
+  ),
+  ( {From 8 bit indexed}
+  (8,1,0,0,0,0,32,0,0,0,0,0),
+  (8,1,0,0,0,0,24,0,0,0,0,0),
+  (8,1,0,0,0,0,16,0,0,0,0,0),
+  (8,1,0,0,0,0,8,0,0,0,0,0),
+  (0,0,0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0,0,0),
+  (0,0,0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0,0,0),
+  (0,0,0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0,0,0),
+  (0,0,0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0,0,0)
+  )
+  );
+  numConverters : Array[0..4] Of Integer = (10,10,10,11,4);
+  refcount : Integer = 0;
+
+Var
+  Clearers : Array[0..3] Of PHermesClearer;
+  numClearers : Integer;
+  standardConverters : Array[0..4] Of ^PHermesConverter;
+  equalConverters : Array[0..3] Of PHermesConverter;
+
+{$I malloc.pp}
+
+{$I debug.pp}
+
+{$I dither.pp}
+{$I headp.pp}
+{$IFDEF I386_ASSEMBLER}
+  {$I i386/headi386.pp}
+  {$I i386/headmmx.pp}
+{$ENDIF I386_ASSEMBLER}
+{$I factconv.pp}
+{$I list.pp}
+{$I utility.pp}
+{$I format.pp}
+{$I palette.inc}
+{$I convert.inc}
+{$I clear.inc}
+{$I factory.inc}
+
+Function Hermes_Init : Boolean;
+
+Var
+  i, j : Integer;
+  source, dest : THermesFormat;
+
+Begin
+  If refcount > 0 Then
+  Begin
+    Inc(refcount);
+    Hermes_Init := True;
+    Exit;
+  End;
+  { Initialise hermes factory }
+  Hermes_Factory_Init;
+
+  { Instruct the factory to return clearing routines }
+  Clearers[0] := Hermes_Factory_getClearer(32);
+  Clearers[1] := Hermes_Factory_getClearer(24);
+  Clearers[2] := Hermes_Factory_getClearer(16);
+  Clearers[3] := Hermes_Factory_getClearer(8);
+  numClearers := 4;
+
+  { Use factory to obtain specialised converters }
+  For j := 0 To 4 Do
+  Begin
+    standardConverters[j] := malloc(SizeOf(PHermesConverter)*numConverters[j]);
+    For i := 0 To numConverters[j] - 1 Do
+    Begin
+      // xxx jm color keys not taken into consideration here
+      FillChar(source, SizeOf(source), 0);
+      FillChar(dest, SizeOf(dest), 0);
+      source.bits := p_converters[j, i, 0];    dest.bits := p_converters[j, i, 6];
+      source.indexed:= p_converters[j,i,1]<>0; dest.indexed:= p_converters[j,i,7]<>0;
+      source.r := p_converters[j, i, 2];       dest.r := p_converters[j, i, 8];
+      source.g := p_converters[j, i, 3];       dest.g := p_converters[j, i, 9];
+      source.b := p_converters[j, i, 4];       dest.b := p_converters[j, i, 10];
+      source.a := p_converters[j, i, 5];       dest.a := p_converters[j, i, 11];
+
+      standardConverters[j][i] := Hermes_Factory_getConverter(@source, @dest);
+    End;
+  End;
+
+
+  { Set up converters for equal colour formats }
+  equalConverters[3] := Hermes_Factory_getEqualConverter(32);
+  equalConverters[2] := Hermes_Factory_getEqualConverter(24);
+  equalConverters[1] := Hermes_Factory_getEqualConverter(16);
+  equalConverters[0] := Hermes_Factory_getEqualConverter(8);
+
+  { Initialise dithering tables }
+  Dither_SetupMatrices;
+
+  Inc(refcount);
+  Hermes_Init := True;
+End;
+
+Function Hermes_Done : Boolean;
+
+Var
+  i, j : Integer;
+
+Begin
+  Dec(refcount);
+  If refcount < 0 Then
+  Begin
+    refcount := 0;
+    Hermes_Done := False;
+    Exit;
+  End;
+  If refcount = 0 Then
+  Begin
+    For i := 0 To 3 Do
+    Begin
+      If Clearers[i] <> Nil Then
+      Begin
+        free(Clearers[i]);
+        Clearers[i] := Nil;
+      End;
+      If equalConverters[i] <> Nil Then
+      Begin
+        free(equalConverters[i]);
+        equalConverters[i] := Nil;
+      End;
+    End;
+    For i := 0 To 4 Do
+    Begin
+      If standardConverters[i] <> Nil Then
+      Begin
+        For j := 0 To numConverters[i] - 1 Do
+          free(standardConverters[i][j]);
+        free(standardConverters[i]);
+      End;
+      standardConverters[i] := Nil;
+    End;
+  End;
+  Hermes_Done := True;
+End;
+
+Begin
+  DebugInit;
+End.

packages/extra/hermes/i386/headi386.pp

@@ -0,0 +1,44 @@
+
+{$L hm_i386}
+
+Procedure ConvertX86(hci : PHermesConverterInterface); CDecl; External name ExternalAsmPrefix+'ConvertX86';
+Procedure ConvertX86Stretch(hci : PHermesConverterInterface); CDecl; External name ExternalAsmPrefix+'ConvertX86Stretch';
+Procedure ClearX86_32(hci : PHermesClearInterface); CDecl; External name ExternalAsmPrefix+'ClearX86_32';
+Procedure ClearX86_24(hci : PHermesClearInterface); CDecl; External name ExternalAsmPrefix+'ClearX86_24';
+Procedure ClearX86_16(hci : PHermesClearInterface); CDecl; External name ExternalAsmPrefix+'ClearX86_16';
+Procedure ClearX86_8(hci : PHermesClearInterface); CDecl; External name ExternalAsmPrefix+'ClearX86_8';
+
+Function Hermes_X86_CPU : Integer; CDecl; External name ExternalAsmPrefix+'Hermes_X86_CPU';
+
+Procedure ConvertX86p32_32BGR888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_32BGR888';
+Procedure ConvertX86p32_32RGBA888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_32RGBA888';
+Procedure ConvertX86p32_32BGRA888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_32BGRA888';
+Procedure ConvertX86p32_24RGB888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_24RGB888';
+Procedure ConvertX86p32_24BGR888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_24BGR888';
+Procedure ConvertX86p32_16RGB565(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_16RGB565';
+Procedure ConvertX86p32_16BGR565(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_16BGR565';
+Procedure ConvertX86p32_16RGB555(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_16RGB555';
+Procedure ConvertX86p32_16BGR555(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_16BGR555';
+Procedure ConvertX86p32_8RGB332(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_8RGB332';
+
+Procedure ConvertX86p32_16RGB565_S(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p32_16RGB565_S';
+
+Procedure ConvertX86p16_32RGB888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p16_32RGB888';
+Procedure ConvertX86p16_32BGR888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p16_32BGR888';
+Procedure ConvertX86p16_32RGBA888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p16_32RGBA888';
+Procedure ConvertX86p16_32BGRA888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p16_32BGRA888';
+Procedure ConvertX86p16_24RGB888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p16_24RGB888';
+Procedure ConvertX86p16_24BGR888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p16_24BGR888';
+Procedure ConvertX86p16_16BGR565(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p16_16BGR565';
+Procedure ConvertX86p16_16RGB555(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p16_16RGB555';
+Procedure ConvertX86p16_16BGR555(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p16_16BGR555';
+Procedure ConvertX86p16_8RGB332(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86p16_8RGB332';
+
+Procedure CopyX86p_4byte(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'CopyX86p_4byte';
+Procedure CopyX86p_3byte(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'CopyX86p_3byte';
+Procedure CopyX86p_2byte(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'CopyX86p_2byte';
+Procedure CopyX86p_1byte(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'CopyX86p_1byte';
+
+Procedure ConvertX86pI8_32(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86pI8_32';
+Procedure ConvertX86pI8_24(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86pI8_24';
+Procedure ConvertX86pI8_16(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertX86pI8_16';

packages/extra/hermes/i386/headmmx.pp

@@ -0,0 +1,20 @@
+
+{$L mmx_clr}
+{$L mmx_main}
+{$L mmxp2_32}
+{$L mmxp_32}
+
+Procedure ConvertMMX(hci : PHermesConverterInterface); CDecl; External name ExternalAsmPrefix+'ConvertMMX';
+
+Procedure ClearMMX_32(hci : PHermesClearInterface); CDecl; External name ExternalAsmPrefix+'ClearMMX_32';
+Procedure ClearMMX_24(hci : PHermesClearInterface); CDecl; External name ExternalAsmPrefix+'ClearMMX_24';
+Procedure ClearMMX_16(hci : PHermesClearInterface); CDecl; External name ExternalAsmPrefix+'ClearMMX_16';
+Procedure ClearMMX_8(hci : PHermesClearInterface); CDecl; External name ExternalAsmPrefix+'ClearMMX_8';
+
+Procedure ConvertMMXpII32_24RGB888(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertMMXpII32_24RGB888';
+Procedure ConvertMMXpII32_16RGB565(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertMMXpII32_16RGB565';
+Procedure ConvertMMXpII32_16BGR565(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertMMXpII32_16BGR565';
+Procedure ConvertMMXpII32_16RGB555(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertMMXpII32_16RGB555';
+Procedure ConvertMMXpII32_16BGR555(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertMMXpII32_16BGR555';
+
+Procedure ConvertMMXp32_16RGB555(CONVERT_PARAMETERS); CDecl; External name ExternalAsmPrefix+'ConvertMMXp32_16RGB555';

packages/extra/hermes/i386/mmx_clr.as

@@ -0,0 +1,271 @@
+#
+# MMX surface clear routines for HERMES
+# Copyright (c) 1998 Christian Nentwich ([email protected])
+# This source code is licensed under the GNU LGPL
+# 
+# Please refer to the file COPYING.LIB contained in the distribution for
+# licensing conditions
+#
+
+
+.globl _ClearMMX_32
+.globl _ClearMMX_24
+.globl _ClearMMX_16
+.globl _ClearMMX_8
+
+.text
+
+##
+## --------------------------------------------------------------------------
+## HermesClearInterface (ebp+..)
+##   0: char8 *dest
+##   4: int32 value
+##   8: unsigned int width (already checked to be >0!)
+##  12: unsigned int height (already checked to be >0!)
+##  16: int add
+
+
+_ClearMMX_32: 
+        pushl %ebp
+        movl %esp,%ebp
+
+        movl 8(%ebp),%ebp
+
+        movl 4(%ebp),%eax       # pixel value   
+        movd 4(%ebp),%mm0
+
+        movl 12(%ebp),%edx      # height
+        movq %mm0,%mm1
+
+        psllq $32,%mm0
+        movl (%ebp),%edi        # destination
+
+        por %mm1,%mm0
+_ClearMMX_32.L_y: 
+        movl 8(%ebp),%ecx
+
+        movl %ecx,%ebx
+
+        shrl %ecx
+        jz _ClearMMX_32.L_last
+
+_ClearMMX_32.L_x: 
+        movq %mm0,(%edi)
+        addl $8,%edi
+
+        decl %ecx
+        jnz _ClearMMX_32.L_x
+
+
+_ClearMMX_32.L_last: 
+        testl $1,%ebx
+        jz _ClearMMX_32.L_endline
+
+        movl %eax,(%edi)
+        addl $4,%edi
+
+_ClearMMX_32.L_endline: 
+
+        addl 16(%ebp),%edi
+
+        decl %edx
+        jnz _ClearMMX_32.L_y
+
+        emms
+
+        popl %ebp
+        ret
+
+
+
+_ClearMMX_24: 
+        ret
+
+
+
+_ClearMMX_16: 
+        pushl %ebp
+        movl %esp,%ebp
+
+        movl 8(%ebp),%ebp
+
+        movl 4(%ebp),%eax       # pixel value   
+        movl 4(%ebp),%ebx
+
+        movl 12(%ebp),%edx      # height
+        movl (%ebp),%edi        # destination
+
+        shll $16,%eax           # Duplicate pixel value
+        andl $0x0ffff,%ebx
+
+        orl %ebx,%eax
+
+        movd %eax,%mm0
+        movd %eax,%mm1
+
+        psllq $32,%mm0
+
+        por %mm1,%mm0
+_ClearMMX_16.L_y: 
+        movl 8(%ebp),%ecx
+
+        testl $3,%edi           # Check if destination is aligned mod 4
+        jz _ClearMMX_16.L_aligned
+
+        movw %ax,(%edi)         # otherwise write one pixel
+        addl $2,%edi
+
+        decl %ecx
+        jz _ClearMMX_16.L_endline
+
+_ClearMMX_16.L_aligned: 
+        movl %ecx,%ebx
+        shrl $2,%ecx
+
+        jz _ClearMMX_16.L_last
+
+_ClearMMX_16.L_x: 
+        movq %mm0,(%edi)
+        addl $8,%edi
+
+        decl %ecx
+        jnz _ClearMMX_16.L_x
+
+_ClearMMX_16.L_last: 
+        andl $3,%ebx
+        jz _ClearMMX_16.L_endline
+
+        movw %ax,(%edi)         # Write trailing pixels
+        addl $2,%edi
+        decl %ebx
+        jz _ClearMMX_16.L_endline
+
+        movw %ax,(%edi)
+        addl $2,%edi
+        decl %ebx
+        jz _ClearMMX_16.L_endline
+
+        movw %ax,(%edi)
+        addl $2,%edi
+        decl %ebx
+        jnz _ClearMMX_16.L_endline
+
+_ClearMMX_16.L_endline: 
+        addl 16(%ebp),%edi
+
+        decl %edx
+        jnz _ClearMMX_16.L_y
+
+        emms
+
+        popl %ebp
+        ret
+
+
+
+## Clear8_x86 isnt optimised fully yet as it seems to be a tiny bit slower
+## than the C routine
+_ClearMMX_8: 
+        pushl %ebp
+        movl %esp,%ebp
+
+        movl 8(%ebp),%ebp
+
+        movl 4(%ebp),%eax       # pixel value           
+        movl 4(%ebp),%ebx
+
+        movl 12(%ebp),%edx      # height
+        andl $0x0ff,%ebx
+
+        shll $8,%eax            # Put the byte pixel value in all four bytes
+        movl (%ebp),%edi        # destination
+
+        movb %bl,%al
+        movb %bl,%bh
+
+        shll $16,%eax
+
+        movb %bh,%ah
+        movb %bl,%al
+
+        movd %eax,%mm0
+        movd %eax,%mm1
+
+        psllq $32,%mm0
+
+        por %mm1,%mm0
+
+_ClearMMX_8.L_y: 
+        movl 8(%ebp),%ecx
+
+        testl $3,%edi           # Align mod 4
+        jz _ClearMMX_8.L_aligned
+
+        movl %edi,%ebx
+
+        andl $3,%ebx
+
+        movb %al,(%edi)         # Unrolled (copy & paste), align and jump
+        incl %edi               # if finished, faster than a loop...
+        decl %ecx
+        jz _ClearMMX_8.L_endline
+        decl %ebx
+        jz _ClearMMX_8.L_aligned
+
+        movb %al,(%edi)         # Second pixel
+        incl %edi
+        decl %ecx
+        jz _ClearMMX_8.L_endline
+        decl %ebx
+        jz _ClearMMX_8.L_aligned
+
+        movb %al,(%edi)         # Third pixel
+        incl %edi
+        decl %ecx
+        jz _ClearMMX_8.L_endline
+        decl %ebx
+        jz _ClearMMX_8.L_aligned
+
+_ClearMMX_8.L_aligned: 
+        movl %ecx,%ebx          # Store ecx for later
+
+        shrl $3,%ecx            # We write 8 pixels at once
+        jz _ClearMMX_8.L_last
+
+_ClearMMX_8.L_x: 
+        movq %mm0,(%edi)
+        addl $8,%edi
+
+        decl %ecx
+        jnz _ClearMMX_8.L_x
+
+_ClearMMX_8.L_last: 
+        movl %ebx,%ecx          # Clean up trailing pixels
+
+        andl $7,%ecx            # Could be up to 7 left
+        jz _ClearMMX_8.L_endline
+
+        testb $0b100,%cl        # If theres less than four jump
+        jz _ClearMMX_8.L_lessthanfour
+
+        movl %eax,(%edi)        # Otherwise write a dword
+        addl $4,%edi
+
+        subl $4,%ecx
+
+_ClearMMX_8.L_lessthanfour: 
+        rep
+ stosb              # Clean up the very rest
+
+_ClearMMX_8.L_endline: 
+        addl 16(%ebp),%edi
+
+        decl %edx
+        jnz _ClearMMX_8.L_y
+
+        emms
+
+        popl %ebp
+        ret
+
+

packages/extra/hermes/i386/mmx_main.as

@@ -0,0 +1,70 @@
+#
+# x86 format converters for HERMES
+# Some routines Copyright (c) 1998 Christian Nentwich ([email protected])
+# This source code is licensed under the GNU LGPL
+# 
+# Please refer to the file COPYING.LIB contained in the distribution for
+# licensing conditions          
+#
+# Most routines are (c) Glenn Fiedler ([email protected]), used with permission
+# 
+
+#BITS 32
+
+.globl _ConvertMMX
+.globl _mmxreturn
+
+
+.text
+
+## _ConvertMMX:  
+## [ESP+8] ConverterInfo*
+## --------------------------------------------------------------------------
+## ConverterInfo (ebp+..)
+##   0: void *s_pixels
+##   4: int s_width
+##   8: int s_height
+##  12: int s_add
+##  16: void *d_pixels
+##  20: int d_width
+##  24: int d_height
+##  28: int d_add
+##  32: void (*converter_function)() 
+##  36: int32 *lookup
+
+_ConvertMMX: 
+        pushl %ebp
+        movl %esp,%ebp
+
+        movl 8(%ebp),%eax
+
+        cmpl $0,4(%eax)
+        je endconvert
+
+        movl %eax,%ebp
+
+        movl (%ebp),%esi
+        movl 16(%ebp),%edi
+
+y_loop: 
+        movl 4(%ebp),%ecx
+
+        jmp *32(%ebp)
+
+_mmxreturn: 
+        addl 12(%ebp),%esi
+        addl 28(%ebp),%edi
+
+        decl 8(%ebp)
+        jnz y_loop
+
+
+        popl %ebp
+
+endconvert: 
+        emms
+
+        ret
+
+
+

packages/extra/hermes/i386/mmxp2_32.as

@@ -0,0 +1,386 @@
+#
+# pII-optimised MMX format converters for HERMES
+# Copyright (c) 1998 Christian Nentwich ([email protected])
+#   and (c) 1999 Jonathan Matthew ([email protected])
+# This source code is licensed under the GNU LGPL
+# 
+# Please refer to the file COPYING.LIB contained in the distribution for
+# licensing conditions          
+#
+# COPYRIGHT NOTICE
+# 
+# This file partly contains code that is (c) Intel Corporation, specifically
+# the mode detection routine, and the converter to 15 bit (8 pixel
+# conversion routine from the mmx programming tutorial pages).
+#
+#
+# These routines aren't exactly pII optimised - it's just that as they
+# are, theyre terrible on p5 MMXs, but less so on pIIs.  Someone needs to
+# optimise them for p5 MMXs..
+
+#BITS 32
+
+
+.globl _ConvertMMXpII32_24RGB888
+.globl _ConvertMMXpII32_16RGB565
+.globl _ConvertMMXpII32_16BGR565
+.globl _ConvertMMXpII32_16RGB555
+.globl _ConvertMMXpII32_16BGR555
+
+.extern _mmxreturn
+
+.data
+
+.align 8
+
+## Constants for conversion routines
+
+mmx32_rgb888_mask: .long 0x00ffffff,0x00ffffff
+
+mmx32_rgb565_b: .long 0x000000f8,0x000000f8
+mmx32_rgb565_g: .long 0x0000fc00,0x0000fc00
+mmx32_rgb565_r: .long 0x00f80000,0x00f80000
+
+mmx32_rgb555_rb: .long 0x00f800f8,0x00f800f8
+mmx32_rgb555_g: .long 0x0000f800,0x0000f800
+mmx32_rgb555_mul: .long 0x20000008,0x20000008
+mmx32_bgr555_mul: .long 0x00082000,0x00082000
+
+
+
+.text
+
+_ConvertMMXpII32_24RGB888: 
+
+        # set up mm6 as the mask, mm7 as zero
+        movq mmx32_rgb888_mask,%mm6
+        pxor %mm7,%mm7
+
+        movl %ecx,%edx                  # save ecx
+        andl $0x0fffffffc,%ecx          # clear lower two bits
+        jnz _ConvertMMXpII32_24RGB888.L1
+        jmp _ConvertMMXpII32_24RGB888.L2
+
+_ConvertMMXpII32_24RGB888.L1: 
+
+        movq (%esi),%mm0                # A R G B a r g b
+        pand %mm6,%mm0                  # 0 R G B 0 r g b
+        movq 8(%esi),%mm1               # A R G B a r g b
+        pand %mm6,%mm1                  # 0 R G B 0 r g b
+
+        movq %mm0,%mm2                  # 0 R G B 0 r g b
+        punpckhdq %mm7,%mm2             # 0 0 0 0 0 R G B
+        punpckldq %mm7,%mm0             # 0 0 0 0 0 r g b
+        psllq $24,%mm2                  # 0 0 R G B 0 0 0
+        por %mm2,%mm0                   # 0 0 R G B r g b
+
+        movq %mm1,%mm3                  # 0 R G B 0 r g b
+        psllq $48,%mm3                  # g b 0 0 0 0 0 0
+        por %mm3,%mm0                   # g b R G B r g b
+
+        movq %mm1,%mm4                  # 0 R G B 0 r g b
+        punpckhdq %mm7,%mm4             # 0 0 0 0 0 R G B
+        punpckldq %mm7,%mm1             # 0 0 0 0 0 r g b
+        psrlq $16,%mm1                  # 0 0 0 R G B 0 r
+        psllq $8,%mm4                   # 0 0 0 0 R G B 0
+        por %mm4,%mm1                   # 0 0 0 0 R G B r
+
+        movq %mm0,(%edi)
+        addl $16,%esi
+        movd %mm1,8(%edi)
+        addl $12,%edi
+        subl $4,%ecx
+        jnz _ConvertMMXpII32_24RGB888.L1
+
+_ConvertMMXpII32_24RGB888.L2: 
+        movl %edx,%ecx
+        andl $3,%ecx
+        jz _ConvertMMXpII32_24RGB888.L4
+_ConvertMMXpII32_24RGB888.L3: 
+        movb (%esi),%al
+        movb 1(%esi),%bl
+        movb 2(%esi),%dl
+        movb %al,(%edi)
+        movb %bl,1(%edi)
+        movb %dl,2(%edi)
+        addl $4,%esi
+        addl $3,%edi
+        decl %ecx
+        jnz _ConvertMMXpII32_24RGB888.L3
+_ConvertMMXpII32_24RGB888.L4: 
+        jmp _mmxreturn
+
+
+
+_ConvertMMXpII32_16RGB565: 
+
+        # set up masks
+        movq mmx32_rgb565_b,%mm5
+        movq mmx32_rgb565_g,%mm6
+        movq mmx32_rgb565_r,%mm7
+
+        movl %ecx,%edx
+        shrl $2,%ecx
+        jnz _ConvertMMXpII32_16RGB565.L1
+        jmp _ConvertMMXpII32_16RGB565.L2 # not necessary at the moment, but doesnt hurt (much)
+
+_ConvertMMXpII32_16RGB565.L1: 
+        movq (%esi),%mm0        # argb
+        movq %mm0,%mm1          # argb
+        pand %mm6,%mm0          # 00g0
+        movq %mm1,%mm3          # argb
+        pand %mm5,%mm1          # 000b
+        pand %mm7,%mm3          # 0r00
+        pslld $2,%mm1           # 0 0 000000bb bbb00000
+        por %mm1,%mm0           # 0 0 ggggggbb bbb00000
+        psrld $5,%mm0           # 0 0 00000ggg gggbbbbb
+
+        movq 8(%esi),%mm4       # argb
+        movq %mm4,%mm2          # argb
+        pand %mm6,%mm4          # 00g0
+        movq %mm2,%mm1          # argb
+        pand %mm5,%mm2          # 000b
+        pand %mm7,%mm1          # 0r00
+        pslld $2,%mm2           # 0 0 000000bb bbb00000
+        por %mm2,%mm4           # 0 0 ggggggbb bbb00000
+        psrld $5,%mm4           # 0 0 00000ggg gggbbbbb
+
+        packuswb %mm1,%mm3      # R 0 r 0
+        packssdw %mm4,%mm0      # as above.. ish
+        por %mm3,%mm0           # done.
+        movq %mm0,(%edi)
+
+        addl $16,%esi
+        addl $8,%edi
+        decl %ecx
+        jnz _ConvertMMXpII32_16RGB565.L1
+
+_ConvertMMXpII32_16RGB565.L2: 
+        movl %edx,%ecx
+        andl $3,%ecx
+        jz _ConvertMMXpII32_16RGB565.L4
+_ConvertMMXpII32_16RGB565.L3: 
+        movb (%esi),%al
+        movb 1(%esi),%bh
+        movb 2(%esi),%ah
+        shrb $3,%al
+        andl $0x0F81F,%eax         # BYTE?
+        shrl $5,%ebx
+        andl $0x07E0,%ebx          # BYTE?
+        addl %ebx,%eax
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+        decl %ecx
+        jnz _ConvertMMXpII32_16RGB565.L3
+
+_ConvertMMXpII32_16RGB565.L4: 
+        jmp _mmxreturn
+
+
+_ConvertMMXpII32_16BGR565: 
+
+        movq mmx32_rgb565_r,%mm5
+        movq mmx32_rgb565_g,%mm6
+        movq mmx32_rgb565_b,%mm7
+
+        movl %ecx,%edx
+        shrl $2,%ecx
+        jnz _ConvertMMXpII32_16BGR565.L1
+        jmp _ConvertMMXpII32_16BGR565.L2
+
+_ConvertMMXpII32_16BGR565.L1: 
+        movq (%esi),%mm0                # a r g b
+        movq %mm0,%mm1                  # a r g b
+        pand %mm6,%mm0                  # 0 0 g 0
+        movq %mm1,%mm3                  # a r g b
+        pand %mm5,%mm1                  # 0 r 0 0
+        pand %mm7,%mm3                  # 0 0 0 b
+
+        psllq $16,%mm3                  # 0 b 0 0
+        psrld $14,%mm1                  # 0 0 000000rr rrr00000
+        por %mm1,%mm0                   # 0 0 ggggggrr rrr00000
+        psrld $5,%mm0                   # 0 0 00000ggg gggrrrrr
+
+        movq 8(%esi),%mm4               # a r g b
+        movq %mm4,%mm2                  # a r g b
+        pand %mm6,%mm4                  # 0 0 g 0
+        movq %mm2,%mm1                  # a r g b
+        pand %mm5,%mm2                  # 0 r 0 0
+        pand %mm7,%mm1                  # 0 0 0 b
+
+        psllq $16,%mm1                  # 0 b 0 0
+        psrld $14,%mm2                  # 0 0 000000rr rrr00000
+        por %mm2,%mm4                   # 0 0 ggggggrr rrr00000
+        psrld $5,%mm4                   # 0 0 00000ggg gggrrrrr
+
+        packuswb %mm1,%mm3              # BBBBB000 00000000 bbbbb000 00000000
+        packssdw %mm4,%mm0              # 00000GGG GGGRRRRR 00000GGG GGGRRRRR
+        por %mm3,%mm0                   # BBBBBGGG GGGRRRRR bbbbbggg gggrrrrr
+        movq %mm0,(%edi)
+
+        addl $16,%esi
+        addl $8,%edi
+        decl %ecx
+        jnz _ConvertMMXpII32_16BGR565.L1
+
+_ConvertMMXpII32_16BGR565.L2: 
+        andl $3,%edx
+        jz _ConvertMMXpII32_16BGR565.L4
+_ConvertMMXpII32_16BGR565.L3: 
+        movb 2(%esi),%al
+        movb 1(%esi),%bh
+        movb (%esi),%ah
+        shrb $3,%al
+        andl $0x0F81F,%eax                 # BYTE ?
+        shrl $5,%ebx
+        andl $0x07E0,%ebx                  # BYTE ?
+        addl %ebx,%eax
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+        decl %edx
+        jnz _ConvertMMXpII32_16BGR565.L3
+
+_ConvertMMXpII32_16BGR565.L4: 
+        jmp _mmxreturn
+
+_ConvertMMXpII32_16BGR555: 
+
+        # the 16BGR555 converter is identical to the RGB555 one,
+        # except it uses a different multiplier for the pmaddwd
+        # instruction.  cool huh.
+
+        movq mmx32_bgr555_mul,%mm7
+        jmp _convert_bgr555_cheat
+
+# This is the same as the Intel version.. they obviously went to
+# much more trouble to expand/coil the loop than I did, so theirs
+# would almost certainly be faster, even if only a little.
+# I did rename 'mmx32_rgb555_add' to 'mmx32_rgb555_mul', which is
+# (I think) a more accurate name..
+_ConvertMMXpII32_16RGB555: 
+
+        movq mmx32_rgb555_mul,%mm7
+_convert_bgr555_cheat: 
+        movq mmx32_rgb555_g,%mm6
+
+        movl %ecx,%edx                     # Save ecx 
+
+        andl $0x0fffffff8,%ecx             # clear lower three bits
+        jnz _convert_bgr555_cheat.L_OK
+        jmp _convert_bgr555_cheat.L2
+
+_convert_bgr555_cheat.L_OK: 
+
+        movq 8(%esi),%mm2
+
+        movq (%esi),%mm0
+        movq %mm2,%mm3
+
+        pand mmx32_rgb555_rb,%mm3
+        movq %mm0,%mm1
+
+        pand mmx32_rgb555_rb,%mm1
+        pmaddwd %mm7,%mm3
+
+        pmaddwd %mm7,%mm1
+        pand %mm6,%mm2
+
+_convert_bgr555_cheat.L1: 
+        movq 24(%esi),%mm4
+        pand %mm6,%mm0
+
+        movq 16(%esi),%mm5
+        por %mm2,%mm3
+
+        psrld $6,%mm3
+        por %mm0,%mm1
+
+        movq %mm4,%mm0
+        psrld $6,%mm1
+
+        pand mmx32_rgb555_rb,%mm0
+        packssdw %mm3,%mm1
+
+        movq %mm5,%mm3
+        pmaddwd %mm7,%mm0
+
+        pand mmx32_rgb555_rb,%mm3
+        pand %mm6,%mm4
+
+        movq %mm1,(%edi)
+        pmaddwd %mm7,%mm3
+
+        addl $32,%esi
+        por %mm0,%mm4
+
+        pand %mm6,%mm5
+        psrld $6,%mm4
+
+        movq 8(%esi),%mm2
+        por %mm3,%mm5
+
+        movq (%esi),%mm0
+        psrld $6,%mm5
+
+        movq %mm2,%mm3
+        movq %mm0,%mm1
+
+        pand mmx32_rgb555_rb,%mm3
+        packssdw %mm4,%mm5
+
+        pand mmx32_rgb555_rb,%mm1
+        pand %mm6,%mm2
+
+        movq %mm5,8(%edi)
+        pmaddwd %mm7,%mm3
+
+        pmaddwd %mm7,%mm1
+        addl $16,%edi
+
+        subl $8,%ecx
+        jz _convert_bgr555_cheat.L2
+        jmp _convert_bgr555_cheat.L1
+
+
+_convert_bgr555_cheat.L2: 
+        movl %edx,%ecx
+
+        andl $7,%ecx
+        jz _convert_bgr555_cheat.L4
+
+_convert_bgr555_cheat.L3: 
+        movl (%esi),%ebx
+        addl $4,%esi
+
+        movl %ebx,%eax
+        movl %ebx,%edx
+
+        shrl $3,%eax
+        shrl $6,%edx
+
+        andl $0b0000000000011111,%eax
+        andl $0b0000001111100000,%edx
+
+        shrl $9,%ebx
+
+        orl %edx,%eax
+
+        andl $0b0111110000000000,%ebx
+
+        orl %ebx,%eax
+
+        movw %ax,(%edi)
+        addl $2,%edi
+
+        decl %ecx
+        jnz _convert_bgr555_cheat.L3
+
+_convert_bgr555_cheat.L4: 
+        jmp _mmxreturn
+
+
+

packages/extra/hermes/i386/mmxp_32.as

@@ -0,0 +1,163 @@
+#
+# MMX format converters for HERMES
+# Copyright (c) 1998 Christian Nentwich ([email protected])
+# This source code is licensed under the GNU LGPL
+# 
+# Please refer to the file COPYING.LIB contained in the distribution for
+# licensing conditions          
+#
+# COPYRIGHT NOTICE
+# 
+# This file partly contains code that is (c) Intel Corporation, specifically
+# the mode detection routine, and the converter to 15 bit (8 pixel
+# conversion routine from the mmx programming tutorial pages).
+# 
+
+#BITS 32
+
+
+.globl _ConvertMMXp32_16RGB555
+
+.extern _mmxreturn
+
+.data
+
+.align 8
+
+mmx32_rgb555_rb: .long 0x00f800f8,0x00f800f8 # Constants for conversion routines 
+mmx32_rgb555_add: .long 0x20000008,0x20000008
+mmx32_rgb555_g: .long 0x0000f800,0x0000f800
+
+
+
+.text
+
+
+
+## Gone for now, it didnt draw correctly AND was slower than the x86 routine 
+_ConvertMMXp32_16RGB565: 
+
+        jmp _mmxreturn
+
+
+
+
+_ConvertMMXp32_16RGB555: 
+
+        movq mmx32_rgb555_add,%mm7
+        movq mmx32_rgb555_g,%mm6
+
+        movl %ecx,%edx                     # Save ecx 
+
+        andl $0x0fffffff8,%ecx             # clear lower three bits
+        jnz _ConvertMMXp32_16RGB555.L_OK
+        jmp _ConvertMMXp32_16RGB555.L2
+
+_ConvertMMXp32_16RGB555.L_OK: 
+
+        movq 8(%esi),%mm2
+
+        movq (%esi),%mm0
+        movq %mm2,%mm3
+
+        pand mmx32_rgb555_rb,%mm3
+        movq %mm0,%mm1
+
+        pand mmx32_rgb555_rb,%mm1
+        pmaddwd %mm7,%mm3
+
+        pmaddwd %mm7,%mm1
+        pand %mm6,%mm2
+
+_ConvertMMXp32_16RGB555.L1: 
+        movq 24(%esi),%mm4
+        pand %mm6,%mm0
+
+        movq 16(%esi),%mm5
+        por %mm2,%mm3
+
+        psrld $6,%mm3
+        por %mm0,%mm1
+
+        movq %mm4,%mm0
+        psrld $6,%mm1
+
+        pand mmx32_rgb555_rb,%mm0
+        packssdw %mm3,%mm1
+
+        movq %mm5,%mm3
+        pmaddwd %mm7,%mm0
+
+        pand mmx32_rgb555_rb,%mm3
+        pand %mm6,%mm4
+
+        movq %mm1,(%edi)
+        pmaddwd %mm7,%mm3
+
+        addl $32,%esi
+        por %mm0,%mm4
+
+        pand %mm6,%mm5
+        psrld $6,%mm4
+
+        movq 8(%esi),%mm2
+        por %mm3,%mm5
+
+        movq (%esi),%mm0
+        psrld $6,%mm5
+
+        movq %mm2,%mm3
+        movq %mm0,%mm1
+
+        pand mmx32_rgb555_rb,%mm3
+        packssdw %mm4,%mm5
+
+        pand mmx32_rgb555_rb,%mm1
+        pand %mm6,%mm2
+
+        movq %mm5,8(%edi)
+        pmaddwd %mm7,%mm3
+
+        pmaddwd %mm7,%mm1
+        addl $16,%edi
+
+        subl $8,%ecx
+        jz _ConvertMMXp32_16RGB555.L2
+        jmp _ConvertMMXp32_16RGB555.L1
+
+
+_ConvertMMXp32_16RGB555.L2: 
+        movl %edx,%ecx
+
+        andl $7,%ecx
+        jz _ConvertMMXp32_16RGB555.L4
+
+_ConvertMMXp32_16RGB555.L3: 
+        movl (%esi),%ebx
+        addl $4,%esi
+
+        movl %ebx,%eax
+        movl %ebx,%edx
+
+        shrl $3,%eax
+        shrl $6,%edx
+
+        andl $0b0000000000011111,%eax
+        andl $0b0000001111100000,%edx
+
+        shrl $9,%ebx
+
+        orl %edx,%eax
+
+        andl $0b0111110000000000,%ebx
+
+        orl %ebx,%eax
+
+        movw %ax,(%edi)
+        addl $2,%edi
+
+        decl %ecx
+        jnz _ConvertMMXp32_16RGB555.L3
+
+_ConvertMMXp32_16RGB555.L4: 
+        jmp _mmxreturn

packages/extra/hermes/i386/x8616lut.as

@@ -0,0 +1,2059 @@
+
+.data
+
+_ConvertX86p16_32RGB888_LUT_X86:
+		.long 0x00000
+		.long 0x00000
+		.long 0x00008
+		.long 0x02000
+		.long 0x00010
+		.long 0x04000
+		.long 0x00018
+		.long 0x06100
+		.long 0x00020
+		.long 0x08100
+		.long 0x00029
+		.long 0x0a100
+		.long 0x00031
+		.long 0x0c200
+		.long 0x00039
+		.long 0x0e200
+		.long 0x00041
+		.long 0x80000
+		.long 0x0004a
+		.long 0x82000
+		.long 0x00052
+		.long 0x84000
+		.long 0x0005a
+		.long 0x86100
+		.long 0x00062
+		.long 0x88100
+		.long 0x0006a
+		.long 0x8a100
+		.long 0x00073
+		.long 0x8c200
+		.long 0x0007b
+		.long 0x8e200
+		.long 0x00083
+		.long 0x100000
+		.long 0x0008b
+		.long 0x102000
+		.long 0x00094
+		.long 0x104000
+		.long 0x0009c
+		.long 0x106100
+		.long 0x000a4
+		.long 0x108100
+		.long 0x000ac
+		.long 0x10a100
+		.long 0x000b4
+		.long 0x10c200
+		.long 0x000bd
+		.long 0x10e200
+		.long 0x000c5
+		.long 0x180000
+		.long 0x000cd
+		.long 0x182000
+		.long 0x000d5
+		.long 0x184000
+		.long 0x000de
+		.long 0x186100
+		.long 0x000e6
+		.long 0x188100
+		.long 0x000ee
+		.long 0x18a100
+		.long 0x000f6
+		.long 0x18c200
+		.long 0x000ff
+		.long 0x18e200
+		.long 0x00400
+		.long 0x200000
+		.long 0x00408
+		.long 0x202000
+		.long 0x00410
+		.long 0x204000
+		.long 0x00418
+		.long 0x206100
+		.long 0x00420
+		.long 0x208100
+		.long 0x00429
+		.long 0x20a100
+		.long 0x00431
+		.long 0x20c200
+		.long 0x00439
+		.long 0x20e200
+		.long 0x00441
+		.long 0x290000
+		.long 0x0044a
+		.long 0x292000
+		.long 0x00452
+		.long 0x294000
+		.long 0x0045a
+		.long 0x296100
+		.long 0x00462
+		.long 0x298100
+		.long 0x0046a
+		.long 0x29a100
+		.long 0x00473
+		.long 0x29c200
+		.long 0x0047b
+		.long 0x29e200
+		.long 0x00483
+		.long 0x310000
+		.long 0x0048b
+		.long 0x312000
+		.long 0x00494
+		.long 0x314000
+		.long 0x0049c
+		.long 0x316100
+		.long 0x004a4
+		.long 0x318100
+		.long 0x004ac
+		.long 0x31a100
+		.long 0x004b4
+		.long 0x31c200
+		.long 0x004bd
+		.long 0x31e200
+		.long 0x004c5
+		.long 0x390000
+		.long 0x004cd
+		.long 0x392000
+		.long 0x004d5
+		.long 0x394000
+		.long 0x004de
+		.long 0x396100
+		.long 0x004e6
+		.long 0x398100
+		.long 0x004ee
+		.long 0x39a100
+		.long 0x004f6
+		.long 0x39c200
+		.long 0x004ff
+		.long 0x39e200
+		.long 0x00800
+		.long 0x410000
+		.long 0x00808
+		.long 0x412000
+		.long 0x00810
+		.long 0x414000
+		.long 0x00818
+		.long 0x416100
+		.long 0x00820
+		.long 0x418100
+		.long 0x00829
+		.long 0x41a100
+		.long 0x00831
+		.long 0x41c200
+		.long 0x00839
+		.long 0x41e200
+		.long 0x00841
+		.long 0x4a0000
+		.long 0x0084a
+		.long 0x4a2000
+		.long 0x00852
+		.long 0x4a4000
+		.long 0x0085a
+		.long 0x4a6100
+		.long 0x00862
+		.long 0x4a8100
+		.long 0x0086a
+		.long 0x4aa100
+		.long 0x00873
+		.long 0x4ac200
+		.long 0x0087b
+		.long 0x4ae200
+		.long 0x00883
+		.long 0x520000
+		.long 0x0088b
+		.long 0x522000
+		.long 0x00894
+		.long 0x524000
+		.long 0x0089c
+		.long 0x526100
+		.long 0x008a4
+		.long 0x528100
+		.long 0x008ac
+		.long 0x52a100
+		.long 0x008b4
+		.long 0x52c200
+		.long 0x008bd
+		.long 0x52e200
+		.long 0x008c5
+		.long 0x5a0000
+		.long 0x008cd
+		.long 0x5a2000
+		.long 0x008d5
+		.long 0x5a4000
+		.long 0x008de
+		.long 0x5a6100
+		.long 0x008e6
+		.long 0x5a8100
+		.long 0x008ee
+		.long 0x5aa100
+		.long 0x008f6
+		.long 0x5ac200
+		.long 0x008ff
+		.long 0x5ae200
+		.long 0x00c00
+		.long 0x620000
+		.long 0x00c08
+		.long 0x622000
+		.long 0x00c10
+		.long 0x624000
+		.long 0x00c18
+		.long 0x626100
+		.long 0x00c20
+		.long 0x628100
+		.long 0x00c29
+		.long 0x62a100
+		.long 0x00c31
+		.long 0x62c200
+		.long 0x00c39
+		.long 0x62e200
+		.long 0x00c41
+		.long 0x6a0000
+		.long 0x00c4a
+		.long 0x6a2000
+		.long 0x00c52
+		.long 0x6a4000
+		.long 0x00c5a
+		.long 0x6a6100
+		.long 0x00c62
+		.long 0x6a8100
+		.long 0x00c6a
+		.long 0x6aa100
+		.long 0x00c73
+		.long 0x6ac200
+		.long 0x00c7b
+		.long 0x6ae200
+		.long 0x00c83
+		.long 0x730000
+		.long 0x00c8b
+		.long 0x732000
+		.long 0x00c94
+		.long 0x734000
+		.long 0x00c9c
+		.long 0x736100
+		.long 0x00ca4
+		.long 0x738100
+		.long 0x00cac
+		.long 0x73a100
+		.long 0x00cb4
+		.long 0x73c200
+		.long 0x00cbd
+		.long 0x73e200
+		.long 0x00cc5
+		.long 0x7b0000
+		.long 0x00ccd
+		.long 0x7b2000
+		.long 0x00cd5
+		.long 0x7b4000
+		.long 0x00cde
+		.long 0x7b6100
+		.long 0x00ce6
+		.long 0x7b8100
+		.long 0x00cee
+		.long 0x7ba100
+		.long 0x00cf6
+		.long 0x7bc200
+		.long 0x00cff
+		.long 0x7be200
+		.long 0x01000
+		.long 0x830000
+		.long 0x01008
+		.long 0x832000
+		.long 0x01010
+		.long 0x834000
+		.long 0x01018
+		.long 0x836100
+		.long 0x01020
+		.long 0x838100
+		.long 0x01029
+		.long 0x83a100
+		.long 0x01031
+		.long 0x83c200
+		.long 0x01039
+		.long 0x83e200
+		.long 0x01041
+		.long 0x8b0000
+		.long 0x0104a
+		.long 0x8b2000
+		.long 0x01052
+		.long 0x8b4000
+		.long 0x0105a
+		.long 0x8b6100
+		.long 0x01062
+		.long 0x8b8100
+		.long 0x0106a
+		.long 0x8ba100
+		.long 0x01073
+		.long 0x8bc200
+		.long 0x0107b
+		.long 0x8be200
+		.long 0x01083
+		.long 0x940000
+		.long 0x0108b
+		.long 0x942000
+		.long 0x01094
+		.long 0x944000
+		.long 0x0109c
+		.long 0x946100
+		.long 0x010a4
+		.long 0x948100
+		.long 0x010ac
+		.long 0x94a100
+		.long 0x010b4
+		.long 0x94c200
+		.long 0x010bd
+		.long 0x94e200
+		.long 0x010c5
+		.long 0x9c0000
+		.long 0x010cd
+		.long 0x9c2000
+		.long 0x010d5
+		.long 0x9c4000
+		.long 0x010de
+		.long 0x9c6100
+		.long 0x010e6
+		.long 0x9c8100
+		.long 0x010ee
+		.long 0x9ca100
+		.long 0x010f6
+		.long 0x9cc200
+		.long 0x010ff
+		.long 0x9ce200
+		.long 0x01400
+		.long 0xa40000
+		.long 0x01408
+		.long 0xa42000
+		.long 0x01410
+		.long 0xa44000
+		.long 0x01418
+		.long 0xa46100
+		.long 0x01420
+		.long 0xa48100
+		.long 0x01429
+		.long 0xa4a100
+		.long 0x01431
+		.long 0xa4c200
+		.long 0x01439
+		.long 0xa4e200
+		.long 0x01441
+		.long 0xac0000
+		.long 0x0144a
+		.long 0xac2000
+		.long 0x01452
+		.long 0xac4000
+		.long 0x0145a
+		.long 0xac6100
+		.long 0x01462
+		.long 0xac8100
+		.long 0x0146a
+		.long 0xaca100
+		.long 0x01473
+		.long 0xacc200
+		.long 0x0147b
+		.long 0xace200
+		.long 0x01483
+		.long 0xb40000
+		.long 0x0148b
+		.long 0xb42000
+		.long 0x01494
+		.long 0xb44000
+		.long 0x0149c
+		.long 0xb46100
+		.long 0x014a4
+		.long 0xb48100
+		.long 0x014ac
+		.long 0xb4a100
+		.long 0x014b4
+		.long 0xb4c200
+		.long 0x014bd
+		.long 0xb4e200
+		.long 0x014c5
+		.long 0xbd0000
+		.long 0x014cd
+		.long 0xbd2000
+		.long 0x014d5
+		.long 0xbd4000
+		.long 0x014de
+		.long 0xbd6100
+		.long 0x014e6
+		.long 0xbd8100
+		.long 0x014ee
+		.long 0xbda100
+		.long 0x014f6
+		.long 0xbdc200
+		.long 0x014ff
+		.long 0xbde200
+		.long 0x01800
+		.long 0xc50000
+		.long 0x01808
+		.long 0xc52000
+		.long 0x01810
+		.long 0xc54000
+		.long 0x01818
+		.long 0xc56100
+		.long 0x01820
+		.long 0xc58100
+		.long 0x01829
+		.long 0xc5a100
+		.long 0x01831
+		.long 0xc5c200
+		.long 0x01839
+		.long 0xc5e200
+		.long 0x01841
+		.long 0xcd0000
+		.long 0x0184a
+		.long 0xcd2000
+		.long 0x01852
+		.long 0xcd4000
+		.long 0x0185a
+		.long 0xcd6100
+		.long 0x01862
+		.long 0xcd8100
+		.long 0x0186a
+		.long 0xcda100
+		.long 0x01873
+		.long 0xcdc200
+		.long 0x0187b
+		.long 0xcde200
+		.long 0x01883
+		.long 0xd50000
+		.long 0x0188b
+		.long 0xd52000
+		.long 0x01894
+		.long 0xd54000
+		.long 0x0189c
+		.long 0xd56100
+		.long 0x018a4
+		.long 0xd58100
+		.long 0x018ac
+		.long 0xd5a100
+		.long 0x018b4
+		.long 0xd5c200
+		.long 0x018bd
+		.long 0xd5e200
+		.long 0x018c5
+		.long 0xde0000
+		.long 0x018cd
+		.long 0xde2000
+		.long 0x018d5
+		.long 0xde4000
+		.long 0x018de
+		.long 0xde6100
+		.long 0x018e6
+		.long 0xde8100
+		.long 0x018ee
+		.long 0xdea100
+		.long 0x018f6
+		.long 0xdec200
+		.long 0x018ff
+		.long 0xdee200
+		.long 0x01c00
+		.long 0xe60000
+		.long 0x01c08
+		.long 0xe62000
+		.long 0x01c10
+		.long 0xe64000
+		.long 0x01c18
+		.long 0xe66100
+		.long 0x01c20
+		.long 0xe68100
+		.long 0x01c29
+		.long 0xe6a100
+		.long 0x01c31
+		.long 0xe6c200
+		.long 0x01c39
+		.long 0xe6e200
+		.long 0x01c41
+		.long 0xee0000
+		.long 0x01c4a
+		.long 0xee2000
+		.long 0x01c52
+		.long 0xee4000
+		.long 0x01c5a
+		.long 0xee6100
+		.long 0x01c62
+		.long 0xee8100
+		.long 0x01c6a
+		.long 0xeea100
+		.long 0x01c73
+		.long 0xeec200
+		.long 0x01c7b
+		.long 0xeee200
+		.long 0x01c83
+		.long 0xf60000
+		.long 0x01c8b
+		.long 0xf62000
+		.long 0x01c94
+		.long 0xf64000
+		.long 0x01c9c
+		.long 0xf66100
+		.long 0x01ca4
+		.long 0xf68100
+		.long 0x01cac
+		.long 0xf6a100
+		.long 0x01cb4
+		.long 0xf6c200
+		.long 0x01cbd
+		.long 0xf6e200
+		.long 0x01cc5
+		.long 0xff0000
+		.long 0x01ccd
+		.long 0xff2000
+		.long 0x01cd5
+		.long 0xff4000
+		.long 0x01cde
+		.long 0xff6100
+		.long 0x01ce6
+		.long 0xff8100
+		.long 0x01cee
+		.long 0xffa100
+		.long 0x01cf6
+		.long 0xffc200
+		.long 0x01cff
+		.long 0xffe200
+
+_ConvertX86p16_32BGR888_LUT_X86:
+		.long 0x00000
+		.long 0x00000
+		.long 0x80000
+		.long 0x02000
+		.long 0x100000
+		.long 0x04000
+		.long 0x180000
+		.long 0x06100
+		.long 0x200000
+		.long 0x08100
+		.long 0x290000
+		.long 0x0a100
+		.long 0x310000
+		.long 0x0c200
+		.long 0x390000
+		.long 0x0e200
+		.long 0x410000
+		.long 0x00008
+		.long 0x4a0000
+		.long 0x02008
+		.long 0x520000
+		.long 0x04008
+		.long 0x5a0000
+		.long 0x06108
+		.long 0x620000
+		.long 0x08108
+		.long 0x6a0000
+		.long 0x0a108
+		.long 0x730000
+		.long 0x0c208
+		.long 0x7b0000
+		.long 0x0e208
+		.long 0x830000
+		.long 0x00010
+		.long 0x8b0000
+		.long 0x02010
+		.long 0x940000
+		.long 0x04010
+		.long 0x9c0000
+		.long 0x06110
+		.long 0xa40000
+		.long 0x08110
+		.long 0xac0000
+		.long 0x0a110
+		.long 0xb40000
+		.long 0x0c210
+		.long 0xbd0000
+		.long 0x0e210
+		.long 0xc50000
+		.long 0x00018
+		.long 0xcd0000
+		.long 0x02018
+		.long 0xd50000
+		.long 0x04018
+		.long 0xde0000
+		.long 0x06118
+		.long 0xe60000
+		.long 0x08118
+		.long 0xee0000
+		.long 0x0a118
+		.long 0xf60000
+		.long 0x0c218
+		.long 0xff0000
+		.long 0x0e218
+		.long 0x00400
+		.long 0x00020
+		.long 0x80400
+		.long 0x02020
+		.long 0x100400
+		.long 0x04020
+		.long 0x180400
+		.long 0x06120
+		.long 0x200400
+		.long 0x08120
+		.long 0x290400
+		.long 0x0a120
+		.long 0x310400
+		.long 0x0c220
+		.long 0x390400
+		.long 0x0e220
+		.long 0x410400
+		.long 0x00029
+		.long 0x4a0400
+		.long 0x02029
+		.long 0x520400
+		.long 0x04029
+		.long 0x5a0400
+		.long 0x06129
+		.long 0x620400
+		.long 0x08129
+		.long 0x6a0400
+		.long 0x0a129
+		.long 0x730400
+		.long 0x0c229
+		.long 0x7b0400
+		.long 0x0e229
+		.long 0x830400
+		.long 0x00031
+		.long 0x8b0400
+		.long 0x02031
+		.long 0x940400
+		.long 0x04031
+		.long 0x9c0400
+		.long 0x06131
+		.long 0xa40400
+		.long 0x08131
+		.long 0xac0400
+		.long 0x0a131
+		.long 0xb40400
+		.long 0x0c231
+		.long 0xbd0400
+		.long 0x0e231
+		.long 0xc50400
+		.long 0x00039
+		.long 0xcd0400
+		.long 0x02039
+		.long 0xd50400
+		.long 0x04039
+		.long 0xde0400
+		.long 0x06139
+		.long 0xe60400
+		.long 0x08139
+		.long 0xee0400
+		.long 0x0a139
+		.long 0xf60400
+		.long 0x0c239
+		.long 0xff0400
+		.long 0x0e239
+		.long 0x00800
+		.long 0x00041
+		.long 0x80800
+		.long 0x02041
+		.long 0x100800
+		.long 0x04041
+		.long 0x180800
+		.long 0x06141
+		.long 0x200800
+		.long 0x08141
+		.long 0x290800
+		.long 0x0a141
+		.long 0x310800
+		.long 0x0c241
+		.long 0x390800
+		.long 0x0e241
+		.long 0x410800
+		.long 0x0004a
+		.long 0x4a0800
+		.long 0x0204a
+		.long 0x520800
+		.long 0x0404a
+		.long 0x5a0800
+		.long 0x0614a
+		.long 0x620800
+		.long 0x0814a
+		.long 0x6a0800
+		.long 0x0a14a
+		.long 0x730800
+		.long 0x0c24a
+		.long 0x7b0800
+		.long 0x0e24a
+		.long 0x830800
+		.long 0x00052
+		.long 0x8b0800
+		.long 0x02052
+		.long 0x940800
+		.long 0x04052
+		.long 0x9c0800
+		.long 0x06152
+		.long 0xa40800
+		.long 0x08152
+		.long 0xac0800
+		.long 0x0a152
+		.long 0xb40800
+		.long 0x0c252
+		.long 0xbd0800
+		.long 0x0e252
+		.long 0xc50800
+		.long 0x0005a
+		.long 0xcd0800
+		.long 0x0205a
+		.long 0xd50800
+		.long 0x0405a
+		.long 0xde0800
+		.long 0x0615a
+		.long 0xe60800
+		.long 0x0815a
+		.long 0xee0800
+		.long 0x0a15a
+		.long 0xf60800
+		.long 0x0c25a
+		.long 0xff0800
+		.long 0x0e25a
+		.long 0x00c00
+		.long 0x00062
+		.long 0x80c00
+		.long 0x02062
+		.long 0x100c00
+		.long 0x04062
+		.long 0x180c00
+		.long 0x06162
+		.long 0x200c00
+		.long 0x08162
+		.long 0x290c00
+		.long 0x0a162
+		.long 0x310c00
+		.long 0x0c262
+		.long 0x390c00
+		.long 0x0e262
+		.long 0x410c00
+		.long 0x0006a
+		.long 0x4a0c00
+		.long 0x0206a
+		.long 0x520c00
+		.long 0x0406a
+		.long 0x5a0c00
+		.long 0x0616a
+		.long 0x620c00
+		.long 0x0816a
+		.long 0x6a0c00
+		.long 0x0a16a
+		.long 0x730c00
+		.long 0x0c26a
+		.long 0x7b0c00
+		.long 0x0e26a
+		.long 0x830c00
+		.long 0x00073
+		.long 0x8b0c00
+		.long 0x02073
+		.long 0x940c00
+		.long 0x04073
+		.long 0x9c0c00
+		.long 0x06173
+		.long 0xa40c00
+		.long 0x08173
+		.long 0xac0c00
+		.long 0x0a173
+		.long 0xb40c00
+		.long 0x0c273
+		.long 0xbd0c00
+		.long 0x0e273
+		.long 0xc50c00
+		.long 0x0007b
+		.long 0xcd0c00
+		.long 0x0207b
+		.long 0xd50c00
+		.long 0x0407b
+		.long 0xde0c00
+		.long 0x0617b
+		.long 0xe60c00
+		.long 0x0817b
+		.long 0xee0c00
+		.long 0x0a17b
+		.long 0xf60c00
+		.long 0x0c27b
+		.long 0xff0c00
+		.long 0x0e27b
+		.long 0x01000
+		.long 0x00083
+		.long 0x81000
+		.long 0x02083
+		.long 0x101000
+		.long 0x04083
+		.long 0x181000
+		.long 0x06183
+		.long 0x201000
+		.long 0x08183
+		.long 0x291000
+		.long 0x0a183
+		.long 0x311000
+		.long 0x0c283
+		.long 0x391000
+		.long 0x0e283
+		.long 0x411000
+		.long 0x0008b
+		.long 0x4a1000
+		.long 0x0208b
+		.long 0x521000
+		.long 0x0408b
+		.long 0x5a1000
+		.long 0x0618b
+		.long 0x621000
+		.long 0x0818b
+		.long 0x6a1000
+		.long 0x0a18b
+		.long 0x731000
+		.long 0x0c28b
+		.long 0x7b1000
+		.long 0x0e28b
+		.long 0x831000
+		.long 0x00094
+		.long 0x8b1000
+		.long 0x02094
+		.long 0x941000
+		.long 0x04094
+		.long 0x9c1000
+		.long 0x06194
+		.long 0xa41000
+		.long 0x08194
+		.long 0xac1000
+		.long 0x0a194
+		.long 0xb41000
+		.long 0x0c294
+		.long 0xbd1000
+		.long 0x0e294
+		.long 0xc51000
+		.long 0x0009c
+		.long 0xcd1000
+		.long 0x0209c
+		.long 0xd51000
+		.long 0x0409c
+		.long 0xde1000
+		.long 0x0619c
+		.long 0xe61000
+		.long 0x0819c
+		.long 0xee1000
+		.long 0x0a19c
+		.long 0xf61000
+		.long 0x0c29c
+		.long 0xff1000
+		.long 0x0e29c
+		.long 0x01400
+		.long 0x000a4
+		.long 0x81400
+		.long 0x020a4
+		.long 0x101400
+		.long 0x040a4
+		.long 0x181400
+		.long 0x061a4
+		.long 0x201400
+		.long 0x081a4
+		.long 0x291400
+		.long 0x0a1a4
+		.long 0x311400
+		.long 0x0c2a4
+		.long 0x391400
+		.long 0x0e2a4
+		.long 0x411400
+		.long 0x000ac
+		.long 0x4a1400
+		.long 0x020ac
+		.long 0x521400
+		.long 0x040ac
+		.long 0x5a1400
+		.long 0x061ac
+		.long 0x621400
+		.long 0x081ac
+		.long 0x6a1400
+		.long 0x0a1ac
+		.long 0x731400
+		.long 0x0c2ac
+		.long 0x7b1400
+		.long 0x0e2ac
+		.long 0x831400
+		.long 0x000b4
+		.long 0x8b1400
+		.long 0x020b4
+		.long 0x941400
+		.long 0x040b4
+		.long 0x9c1400
+		.long 0x061b4
+		.long 0xa41400
+		.long 0x081b4
+		.long 0xac1400
+		.long 0x0a1b4
+		.long 0xb41400
+		.long 0x0c2b4
+		.long 0xbd1400
+		.long 0x0e2b4
+		.long 0xc51400
+		.long 0x000bd
+		.long 0xcd1400
+		.long 0x020bd
+		.long 0xd51400
+		.long 0x040bd
+		.long 0xde1400
+		.long 0x061bd
+		.long 0xe61400
+		.long 0x081bd
+		.long 0xee1400
+		.long 0x0a1bd
+		.long 0xf61400
+		.long 0x0c2bd
+		.long 0xff1400
+		.long 0x0e2bd
+		.long 0x01800
+		.long 0x000c5
+		.long 0x81800
+		.long 0x020c5
+		.long 0x101800
+		.long 0x040c5
+		.long 0x181800
+		.long 0x061c5
+		.long 0x201800
+		.long 0x081c5
+		.long 0x291800
+		.long 0x0a1c5
+		.long 0x311800
+		.long 0x0c2c5
+		.long 0x391800
+		.long 0x0e2c5
+		.long 0x411800
+		.long 0x000cd
+		.long 0x4a1800
+		.long 0x020cd
+		.long 0x521800
+		.long 0x040cd
+		.long 0x5a1800
+		.long 0x061cd
+		.long 0x621800
+		.long 0x081cd
+		.long 0x6a1800
+		.long 0x0a1cd
+		.long 0x731800
+		.long 0x0c2cd
+		.long 0x7b1800
+		.long 0x0e2cd
+		.long 0x831800
+		.long 0x000d5
+		.long 0x8b1800
+		.long 0x020d5
+		.long 0x941800
+		.long 0x040d5
+		.long 0x9c1800
+		.long 0x061d5
+		.long 0xa41800
+		.long 0x081d5
+		.long 0xac1800
+		.long 0x0a1d5
+		.long 0xb41800
+		.long 0x0c2d5
+		.long 0xbd1800
+		.long 0x0e2d5
+		.long 0xc51800
+		.long 0x000de
+		.long 0xcd1800
+		.long 0x020de
+		.long 0xd51800
+		.long 0x040de
+		.long 0xde1800
+		.long 0x061de
+		.long 0xe61800
+		.long 0x081de
+		.long 0xee1800
+		.long 0x0a1de
+		.long 0xf61800
+		.long 0x0c2de
+		.long 0xff1800
+		.long 0x0e2de
+		.long 0x01c00
+		.long 0x000e6
+		.long 0x81c00
+		.long 0x020e6
+		.long 0x101c00
+		.long 0x040e6
+		.long 0x181c00
+		.long 0x061e6
+		.long 0x201c00
+		.long 0x081e6
+		.long 0x291c00
+		.long 0x0a1e6
+		.long 0x311c00
+		.long 0x0c2e6
+		.long 0x391c00
+		.long 0x0e2e6
+		.long 0x411c00
+		.long 0x000ee
+		.long 0x4a1c00
+		.long 0x020ee
+		.long 0x521c00
+		.long 0x040ee
+		.long 0x5a1c00
+		.long 0x061ee
+		.long 0x621c00
+		.long 0x081ee
+		.long 0x6a1c00
+		.long 0x0a1ee
+		.long 0x731c00
+		.long 0x0c2ee
+		.long 0x7b1c00
+		.long 0x0e2ee
+		.long 0x831c00
+		.long 0x000f6
+		.long 0x8b1c00
+		.long 0x020f6
+		.long 0x941c00
+		.long 0x040f6
+		.long 0x9c1c00
+		.long 0x061f6
+		.long 0xa41c00
+		.long 0x081f6
+		.long 0xac1c00
+		.long 0x0a1f6
+		.long 0xb41c00
+		.long 0x0c2f6
+		.long 0xbd1c00
+		.long 0x0e2f6
+		.long 0xc51c00
+		.long 0x000ff
+		.long 0xcd1c00
+		.long 0x020ff
+		.long 0xd51c00
+		.long 0x040ff
+		.long 0xde1c00
+		.long 0x061ff
+		.long 0xe61c00
+		.long 0x081ff
+		.long 0xee1c00
+		.long 0x0a1ff
+		.long 0xf61c00
+		.long 0x0c2ff
+		.long 0xff1c00
+		.long 0x0e2ff
+
+_ConvertX86p16_32RGBA888_LUT_X86:
+		.long 0x00000
+		.long 0x000ff
+		.long 0x00800
+		.long 0x2000ff
+		.long 0x01000
+		.long 0x4000ff
+		.long 0x01800
+		.long 0x6100ff
+		.long 0x02000
+		.long 0x8100ff
+		.long 0x02900
+		.long 0xa100ff
+		.long 0x03100
+		.long 0xc200ff
+		.long 0x03900
+		.long 0xe200ff
+		.long 0x04100
+		.long 0x80000ff
+		.long 0x04a00
+		.long 0x82000ff
+		.long 0x05200
+		.long 0x84000ff
+		.long 0x05a00
+		.long 0x86100ff
+		.long 0x06200
+		.long 0x88100ff
+		.long 0x06a00
+		.long 0x8a100ff
+		.long 0x07300
+		.long 0x8c200ff
+		.long 0x07b00
+		.long 0x8e200ff
+		.long 0x08300
+		.long 0x100000ff
+		.long 0x08b00
+		.long 0x102000ff
+		.long 0x09400
+		.long 0x104000ff
+		.long 0x09c00
+		.long 0x106100ff
+		.long 0x0a400
+		.long 0x108100ff
+		.long 0x0ac00
+		.long 0x10a100ff
+		.long 0x0b400
+		.long 0x10c200ff
+		.long 0x0bd00
+		.long 0x10e200ff
+		.long 0x0c500
+		.long 0x180000ff
+		.long 0x0cd00
+		.long 0x182000ff
+		.long 0x0d500
+		.long 0x184000ff
+		.long 0x0de00
+		.long 0x186100ff
+		.long 0x0e600
+		.long 0x188100ff
+		.long 0x0ee00
+		.long 0x18a100ff
+		.long 0x0f600
+		.long 0x18c200ff
+		.long 0x0ff00
+		.long 0x18e200ff
+		.long 0x40000
+		.long 0x200000ff
+		.long 0x40800
+		.long 0x202000ff
+		.long 0x41000
+		.long 0x204000ff
+		.long 0x41800
+		.long 0x206100ff
+		.long 0x42000
+		.long 0x208100ff
+		.long 0x42900
+		.long 0x20a100ff
+		.long 0x43100
+		.long 0x20c200ff
+		.long 0x43900
+		.long 0x20e200ff
+		.long 0x44100
+		.long 0x290000ff
+		.long 0x44a00
+		.long 0x292000ff
+		.long 0x45200
+		.long 0x294000ff
+		.long 0x45a00
+		.long 0x296100ff
+		.long 0x46200
+		.long 0x298100ff
+		.long 0x46a00
+		.long 0x29a100ff
+		.long 0x47300
+		.long 0x29c200ff
+		.long 0x47b00
+		.long 0x29e200ff
+		.long 0x48300
+		.long 0x310000ff
+		.long 0x48b00
+		.long 0x312000ff
+		.long 0x49400
+		.long 0x314000ff
+		.long 0x49c00
+		.long 0x316100ff
+		.long 0x4a400
+		.long 0x318100ff
+		.long 0x4ac00
+		.long 0x31a100ff
+		.long 0x4b400
+		.long 0x31c200ff
+		.long 0x4bd00
+		.long 0x31e200ff
+		.long 0x4c500
+		.long 0x390000ff
+		.long 0x4cd00
+		.long 0x392000ff
+		.long 0x4d500
+		.long 0x394000ff
+		.long 0x4de00
+		.long 0x396100ff
+		.long 0x4e600
+		.long 0x398100ff
+		.long 0x4ee00
+		.long 0x39a100ff
+		.long 0x4f600
+		.long 0x39c200ff
+		.long 0x4ff00
+		.long 0x39e200ff
+		.long 0x80000
+		.long 0x410000ff
+		.long 0x80800
+		.long 0x412000ff
+		.long 0x81000
+		.long 0x414000ff
+		.long 0x81800
+		.long 0x416100ff
+		.long 0x82000
+		.long 0x418100ff
+		.long 0x82900
+		.long 0x41a100ff
+		.long 0x83100
+		.long 0x41c200ff
+		.long 0x83900
+		.long 0x41e200ff
+		.long 0x84100
+		.long 0x4a0000ff
+		.long 0x84a00
+		.long 0x4a2000ff
+		.long 0x85200
+		.long 0x4a4000ff
+		.long 0x85a00
+		.long 0x4a6100ff
+		.long 0x86200
+		.long 0x4a8100ff
+		.long 0x86a00
+		.long 0x4aa100ff
+		.long 0x87300
+		.long 0x4ac200ff
+		.long 0x87b00
+		.long 0x4ae200ff
+		.long 0x88300
+		.long 0x520000ff
+		.long 0x88b00
+		.long 0x522000ff
+		.long 0x89400
+		.long 0x524000ff
+		.long 0x89c00
+		.long 0x526100ff
+		.long 0x8a400
+		.long 0x528100ff
+		.long 0x8ac00
+		.long 0x52a100ff
+		.long 0x8b400
+		.long 0x52c200ff
+		.long 0x8bd00
+		.long 0x52e200ff
+		.long 0x8c500
+		.long 0x5a0000ff
+		.long 0x8cd00
+		.long 0x5a2000ff
+		.long 0x8d500
+		.long 0x5a4000ff
+		.long 0x8de00
+		.long 0x5a6100ff
+		.long 0x8e600
+		.long 0x5a8100ff
+		.long 0x8ee00
+		.long 0x5aa100ff
+		.long 0x8f600
+		.long 0x5ac200ff
+		.long 0x8ff00
+		.long 0x5ae200ff
+		.long 0xc0000
+		.long 0x620000ff
+		.long 0xc0800
+		.long 0x622000ff
+		.long 0xc1000
+		.long 0x624000ff
+		.long 0xc1800
+		.long 0x626100ff
+		.long 0xc2000
+		.long 0x628100ff
+		.long 0xc2900
+		.long 0x62a100ff
+		.long 0xc3100
+		.long 0x62c200ff
+		.long 0xc3900
+		.long 0x62e200ff
+		.long 0xc4100
+		.long 0x6a0000ff
+		.long 0xc4a00
+		.long 0x6a2000ff
+		.long 0xc5200
+		.long 0x6a4000ff
+		.long 0xc5a00
+		.long 0x6a6100ff
+		.long 0xc6200
+		.long 0x6a8100ff
+		.long 0xc6a00
+		.long 0x6aa100ff
+		.long 0xc7300
+		.long 0x6ac200ff
+		.long 0xc7b00
+		.long 0x6ae200ff
+		.long 0xc8300
+		.long 0x730000ff
+		.long 0xc8b00
+		.long 0x732000ff
+		.long 0xc9400
+		.long 0x734000ff
+		.long 0xc9c00
+		.long 0x736100ff
+		.long 0xca400
+		.long 0x738100ff
+		.long 0xcac00
+		.long 0x73a100ff
+		.long 0xcb400
+		.long 0x73c200ff
+		.long 0xcbd00
+		.long 0x73e200ff
+		.long 0xcc500
+		.long 0x7b0000ff
+		.long 0xccd00
+		.long 0x7b2000ff
+		.long 0xcd500
+		.long 0x7b4000ff
+		.long 0xcde00
+		.long 0x7b6100ff
+		.long 0xce600
+		.long 0x7b8100ff
+		.long 0xcee00
+		.long 0x7ba100ff
+		.long 0xcf600
+		.long 0x7bc200ff
+		.long 0xcff00
+		.long 0x7be200ff
+		.long 0x100000
+		.long 0x830000ff
+		.long 0x100800
+		.long 0x832000ff
+		.long 0x101000
+		.long 0x834000ff
+		.long 0x101800
+		.long 0x836100ff
+		.long 0x102000
+		.long 0x838100ff
+		.long 0x102900
+		.long 0x83a100ff
+		.long 0x103100
+		.long 0x83c200ff
+		.long 0x103900
+		.long 0x83e200ff
+		.long 0x104100
+		.long 0x8b0000ff
+		.long 0x104a00
+		.long 0x8b2000ff
+		.long 0x105200
+		.long 0x8b4000ff
+		.long 0x105a00
+		.long 0x8b6100ff
+		.long 0x106200
+		.long 0x8b8100ff
+		.long 0x106a00
+		.long 0x8ba100ff
+		.long 0x107300
+		.long 0x8bc200ff
+		.long 0x107b00
+		.long 0x8be200ff
+		.long 0x108300
+		.long 0x940000ff
+		.long 0x108b00
+		.long 0x942000ff
+		.long 0x109400
+		.long 0x944000ff
+		.long 0x109c00
+		.long 0x946100ff
+		.long 0x10a400
+		.long 0x948100ff
+		.long 0x10ac00
+		.long 0x94a100ff
+		.long 0x10b400
+		.long 0x94c200ff
+		.long 0x10bd00
+		.long 0x94e200ff
+		.long 0x10c500
+		.long 0x9c0000ff
+		.long 0x10cd00
+		.long 0x9c2000ff
+		.long 0x10d500
+		.long 0x9c4000ff
+		.long 0x10de00
+		.long 0x9c6100ff
+		.long 0x10e600
+		.long 0x9c8100ff
+		.long 0x10ee00
+		.long 0x9ca100ff
+		.long 0x10f600
+		.long 0x9cc200ff
+		.long 0x10ff00
+		.long 0x9ce200ff
+		.long 0x140000
+		.long 0xa40000ff
+		.long 0x140800
+		.long 0xa42000ff
+		.long 0x141000
+		.long 0xa44000ff
+		.long 0x141800
+		.long 0xa46100ff
+		.long 0x142000
+		.long 0xa48100ff
+		.long 0x142900
+		.long 0xa4a100ff
+		.long 0x143100
+		.long 0xa4c200ff
+		.long 0x143900
+		.long 0xa4e200ff
+		.long 0x144100
+		.long 0xac0000ff
+		.long 0x144a00
+		.long 0xac2000ff
+		.long 0x145200
+		.long 0xac4000ff
+		.long 0x145a00
+		.long 0xac6100ff
+		.long 0x146200
+		.long 0xac8100ff
+		.long 0x146a00
+		.long 0xaca100ff
+		.long 0x147300
+		.long 0xacc200ff
+		.long 0x147b00
+		.long 0xace200ff
+		.long 0x148300
+		.long 0xb40000ff
+		.long 0x148b00
+		.long 0xb42000ff
+		.long 0x149400
+		.long 0xb44000ff
+		.long 0x149c00
+		.long 0xb46100ff
+		.long 0x14a400
+		.long 0xb48100ff
+		.long 0x14ac00
+		.long 0xb4a100ff
+		.long 0x14b400
+		.long 0xb4c200ff
+		.long 0x14bd00
+		.long 0xb4e200ff
+		.long 0x14c500
+		.long 0xbd0000ff
+		.long 0x14cd00
+		.long 0xbd2000ff
+		.long 0x14d500
+		.long 0xbd4000ff
+		.long 0x14de00
+		.long 0xbd6100ff
+		.long 0x14e600
+		.long 0xbd8100ff
+		.long 0x14ee00
+		.long 0xbda100ff
+		.long 0x14f600
+		.long 0xbdc200ff
+		.long 0x14ff00
+		.long 0xbde200ff
+		.long 0x180000
+		.long 0xc50000ff
+		.long 0x180800
+		.long 0xc52000ff
+		.long 0x181000
+		.long 0xc54000ff
+		.long 0x181800
+		.long 0xc56100ff
+		.long 0x182000
+		.long 0xc58100ff
+		.long 0x182900
+		.long 0xc5a100ff
+		.long 0x183100
+		.long 0xc5c200ff
+		.long 0x183900
+		.long 0xc5e200ff
+		.long 0x184100
+		.long 0xcd0000ff
+		.long 0x184a00
+		.long 0xcd2000ff
+		.long 0x185200
+		.long 0xcd4000ff
+		.long 0x185a00
+		.long 0xcd6100ff
+		.long 0x186200
+		.long 0xcd8100ff
+		.long 0x186a00
+		.long 0xcda100ff
+		.long 0x187300
+		.long 0xcdc200ff
+		.long 0x187b00
+		.long 0xcde200ff
+		.long 0x188300
+		.long 0xd50000ff
+		.long 0x188b00
+		.long 0xd52000ff
+		.long 0x189400
+		.long 0xd54000ff
+		.long 0x189c00
+		.long 0xd56100ff
+		.long 0x18a400
+		.long 0xd58100ff
+		.long 0x18ac00
+		.long 0xd5a100ff
+		.long 0x18b400
+		.long 0xd5c200ff
+		.long 0x18bd00
+		.long 0xd5e200ff
+		.long 0x18c500
+		.long 0xde0000ff
+		.long 0x18cd00
+		.long 0xde2000ff
+		.long 0x18d500
+		.long 0xde4000ff
+		.long 0x18de00
+		.long 0xde6100ff
+		.long 0x18e600
+		.long 0xde8100ff
+		.long 0x18ee00
+		.long 0xdea100ff
+		.long 0x18f600
+		.long 0xdec200ff
+		.long 0x18ff00
+		.long 0xdee200ff
+		.long 0x1c0000
+		.long 0xe60000ff
+		.long 0x1c0800
+		.long 0xe62000ff
+		.long 0x1c1000
+		.long 0xe64000ff
+		.long 0x1c1800
+		.long 0xe66100ff
+		.long 0x1c2000
+		.long 0xe68100ff
+		.long 0x1c2900
+		.long 0xe6a100ff
+		.long 0x1c3100
+		.long 0xe6c200ff
+		.long 0x1c3900
+		.long 0xe6e200ff
+		.long 0x1c4100
+		.long 0xee0000ff
+		.long 0x1c4a00
+		.long 0xee2000ff
+		.long 0x1c5200
+		.long 0xee4000ff
+		.long 0x1c5a00
+		.long 0xee6100ff
+		.long 0x1c6200
+		.long 0xee8100ff
+		.long 0x1c6a00
+		.long 0xeea100ff
+		.long 0x1c7300
+		.long 0xeec200ff
+		.long 0x1c7b00
+		.long 0xeee200ff
+		.long 0x1c8300
+		.long 0xf60000ff
+		.long 0x1c8b00
+		.long 0xf62000ff
+		.long 0x1c9400
+		.long 0xf64000ff
+		.long 0x1c9c00
+		.long 0xf66100ff
+		.long 0x1ca400
+		.long 0xf68100ff
+		.long 0x1cac00
+		.long 0xf6a100ff
+		.long 0x1cb400
+		.long 0xf6c200ff
+		.long 0x1cbd00
+		.long 0xf6e200ff
+		.long 0x1cc500
+		.long 0xff0000ff
+		.long 0x1ccd00
+		.long 0xff2000ff
+		.long 0x1cd500
+		.long 0xff4000ff
+		.long 0x1cde00
+		.long 0xff6100ff
+		.long 0x1ce600
+		.long 0xff8100ff
+		.long 0x1cee00
+		.long 0xffa100ff
+		.long 0x1cf600
+		.long 0xffc200ff
+		.long 0x1cff00
+		.long 0xffe200ff
+
+_ConvertX86p16_32BGRA888_LUT_X86:
+		.long 0x00000
+		.long 0x000ff
+		.long 0x8000000
+		.long 0x2000ff
+		.long 0x10000000
+		.long 0x4000ff
+		.long 0x18000000
+		.long 0x6100ff
+		.long 0x20000000
+		.long 0x8100ff
+		.long 0x29000000
+		.long 0xa100ff
+		.long 0x31000000
+		.long 0xc200ff
+		.long 0x39000000
+		.long 0xe200ff
+		.long 0x41000000
+		.long 0x008ff
+		.long 0x4a000000
+		.long 0x2008ff
+		.long 0x52000000
+		.long 0x4008ff
+		.long 0x5a000000
+		.long 0x6108ff
+		.long 0x62000000
+		.long 0x8108ff
+		.long 0x6a000000
+		.long 0xa108ff
+		.long 0x73000000
+		.long 0xc208ff
+		.long 0x7b000000
+		.long 0xe208ff
+		.long 0x83000000
+		.long 0x010ff
+		.long 0x8b000000
+		.long 0x2010ff
+		.long 0x94000000
+		.long 0x4010ff
+		.long 0x9c000000
+		.long 0x6110ff
+		.long 0xa4000000
+		.long 0x8110ff
+		.long 0xac000000
+		.long 0xa110ff
+		.long 0xb4000000
+		.long 0xc210ff
+		.long 0xbd000000
+		.long 0xe210ff
+		.long 0xc5000000
+		.long 0x018ff
+		.long 0xcd000000
+		.long 0x2018ff
+		.long 0xd5000000
+		.long 0x4018ff
+		.long 0xde000000
+		.long 0x6118ff
+		.long 0xe6000000
+		.long 0x8118ff
+		.long 0xee000000
+		.long 0xa118ff
+		.long 0xf6000000
+		.long 0xc218ff
+		.long 0xff000000
+		.long 0xe218ff
+		.long 0x40000
+		.long 0x020ff
+		.long 0x8040000
+		.long 0x2020ff
+		.long 0x10040000
+		.long 0x4020ff
+		.long 0x18040000
+		.long 0x6120ff
+		.long 0x20040000
+		.long 0x8120ff
+		.long 0x29040000
+		.long 0xa120ff
+		.long 0x31040000
+		.long 0xc220ff
+		.long 0x39040000
+		.long 0xe220ff
+		.long 0x41040000
+		.long 0x029ff
+		.long 0x4a040000
+		.long 0x2029ff
+		.long 0x52040000
+		.long 0x4029ff
+		.long 0x5a040000
+		.long 0x6129ff
+		.long 0x62040000
+		.long 0x8129ff
+		.long 0x6a040000
+		.long 0xa129ff
+		.long 0x73040000
+		.long 0xc229ff
+		.long 0x7b040000
+		.long 0xe229ff
+		.long 0x83040000
+		.long 0x031ff
+		.long 0x8b040000
+		.long 0x2031ff
+		.long 0x94040000
+		.long 0x4031ff
+		.long 0x9c040000
+		.long 0x6131ff
+		.long 0xa4040000
+		.long 0x8131ff
+		.long 0xac040000
+		.long 0xa131ff
+		.long 0xb4040000
+		.long 0xc231ff
+		.long 0xbd040000
+		.long 0xe231ff
+		.long 0xc5040000
+		.long 0x039ff
+		.long 0xcd040000
+		.long 0x2039ff
+		.long 0xd5040000
+		.long 0x4039ff
+		.long 0xde040000
+		.long 0x6139ff
+		.long 0xe6040000
+		.long 0x8139ff
+		.long 0xee040000
+		.long 0xa139ff
+		.long 0xf6040000
+		.long 0xc239ff
+		.long 0xff040000
+		.long 0xe239ff
+		.long 0x80000
+		.long 0x041ff
+		.long 0x8080000
+		.long 0x2041ff
+		.long 0x10080000
+		.long 0x4041ff
+		.long 0x18080000
+		.long 0x6141ff
+		.long 0x20080000
+		.long 0x8141ff
+		.long 0x29080000
+		.long 0xa141ff
+		.long 0x31080000
+		.long 0xc241ff
+		.long 0x39080000
+		.long 0xe241ff
+		.long 0x41080000
+		.long 0x04aff
+		.long 0x4a080000
+		.long 0x204aff
+		.long 0x52080000
+		.long 0x404aff
+		.long 0x5a080000
+		.long 0x614aff
+		.long 0x62080000
+		.long 0x814aff
+		.long 0x6a080000
+		.long 0xa14aff
+		.long 0x73080000
+		.long 0xc24aff
+		.long 0x7b080000
+		.long 0xe24aff
+		.long 0x83080000
+		.long 0x052ff
+		.long 0x8b080000
+		.long 0x2052ff
+		.long 0x94080000
+		.long 0x4052ff
+		.long 0x9c080000
+		.long 0x6152ff
+		.long 0xa4080000
+		.long 0x8152ff
+		.long 0xac080000
+		.long 0xa152ff
+		.long 0xb4080000
+		.long 0xc252ff
+		.long 0xbd080000
+		.long 0xe252ff
+		.long 0xc5080000
+		.long 0x05aff
+		.long 0xcd080000
+		.long 0x205aff
+		.long 0xd5080000
+		.long 0x405aff
+		.long 0xde080000
+		.long 0x615aff
+		.long 0xe6080000
+		.long 0x815aff
+		.long 0xee080000
+		.long 0xa15aff
+		.long 0xf6080000
+		.long 0xc25aff
+		.long 0xff080000
+		.long 0xe25aff
+		.long 0xc0000
+		.long 0x062ff
+		.long 0x80c0000
+		.long 0x2062ff
+		.long 0x100c0000
+		.long 0x4062ff
+		.long 0x180c0000
+		.long 0x6162ff
+		.long 0x200c0000
+		.long 0x8162ff
+		.long 0x290c0000
+		.long 0xa162ff
+		.long 0x310c0000
+		.long 0xc262ff
+		.long 0x390c0000
+		.long 0xe262ff
+		.long 0x410c0000
+		.long 0x06aff
+		.long 0x4a0c0000
+		.long 0x206aff
+		.long 0x520c0000
+		.long 0x406aff
+		.long 0x5a0c0000
+		.long 0x616aff
+		.long 0x620c0000
+		.long 0x816aff
+		.long 0x6a0c0000
+		.long 0xa16aff
+		.long 0x730c0000
+		.long 0xc26aff
+		.long 0x7b0c0000
+		.long 0xe26aff
+		.long 0x830c0000
+		.long 0x073ff
+		.long 0x8b0c0000
+		.long 0x2073ff
+		.long 0x940c0000
+		.long 0x4073ff
+		.long 0x9c0c0000
+		.long 0x6173ff
+		.long 0xa40c0000
+		.long 0x8173ff
+		.long 0xac0c0000
+		.long 0xa173ff
+		.long 0xb40c0000
+		.long 0xc273ff
+		.long 0xbd0c0000
+		.long 0xe273ff
+		.long 0xc50c0000
+		.long 0x07bff
+		.long 0xcd0c0000
+		.long 0x207bff
+		.long 0xd50c0000
+		.long 0x407bff
+		.long 0xde0c0000
+		.long 0x617bff
+		.long 0xe60c0000
+		.long 0x817bff
+		.long 0xee0c0000
+		.long 0xa17bff
+		.long 0xf60c0000
+		.long 0xc27bff
+		.long 0xff0c0000
+		.long 0xe27bff
+		.long 0x100000
+		.long 0x083ff
+		.long 0x8100000
+		.long 0x2083ff
+		.long 0x10100000
+		.long 0x4083ff
+		.long 0x18100000
+		.long 0x6183ff
+		.long 0x20100000
+		.long 0x8183ff
+		.long 0x29100000
+		.long 0xa183ff
+		.long 0x31100000
+		.long 0xc283ff
+		.long 0x39100000
+		.long 0xe283ff
+		.long 0x41100000
+		.long 0x08bff
+		.long 0x4a100000
+		.long 0x208bff
+		.long 0x52100000
+		.long 0x408bff
+		.long 0x5a100000
+		.long 0x618bff
+		.long 0x62100000
+		.long 0x818bff
+		.long 0x6a100000
+		.long 0xa18bff
+		.long 0x73100000
+		.long 0xc28bff
+		.long 0x7b100000
+		.long 0xe28bff
+		.long 0x83100000
+		.long 0x094ff
+		.long 0x8b100000
+		.long 0x2094ff
+		.long 0x94100000
+		.long 0x4094ff
+		.long 0x9c100000
+		.long 0x6194ff
+		.long 0xa4100000
+		.long 0x8194ff
+		.long 0xac100000
+		.long 0xa194ff
+		.long 0xb4100000
+		.long 0xc294ff
+		.long 0xbd100000
+		.long 0xe294ff
+		.long 0xc5100000
+		.long 0x09cff
+		.long 0xcd100000
+		.long 0x209cff
+		.long 0xd5100000
+		.long 0x409cff
+		.long 0xde100000
+		.long 0x619cff
+		.long 0xe6100000
+		.long 0x819cff
+		.long 0xee100000
+		.long 0xa19cff
+		.long 0xf6100000
+		.long 0xc29cff
+		.long 0xff100000
+		.long 0xe29cff
+		.long 0x140000
+		.long 0x0a4ff
+		.long 0x8140000
+		.long 0x20a4ff
+		.long 0x10140000
+		.long 0x40a4ff
+		.long 0x18140000
+		.long 0x61a4ff
+		.long 0x20140000
+		.long 0x81a4ff
+		.long 0x29140000
+		.long 0xa1a4ff
+		.long 0x31140000
+		.long 0xc2a4ff
+		.long 0x39140000
+		.long 0xe2a4ff
+		.long 0x41140000
+		.long 0x0acff
+		.long 0x4a140000
+		.long 0x20acff
+		.long 0x52140000
+		.long 0x40acff
+		.long 0x5a140000
+		.long 0x61acff
+		.long 0x62140000
+		.long 0x81acff
+		.long 0x6a140000
+		.long 0xa1acff
+		.long 0x73140000
+		.long 0xc2acff
+		.long 0x7b140000
+		.long 0xe2acff
+		.long 0x83140000
+		.long 0x0b4ff
+		.long 0x8b140000
+		.long 0x20b4ff
+		.long 0x94140000
+		.long 0x40b4ff
+		.long 0x9c140000
+		.long 0x61b4ff
+		.long 0xa4140000
+		.long 0x81b4ff
+		.long 0xac140000
+		.long 0xa1b4ff
+		.long 0xb4140000
+		.long 0xc2b4ff
+		.long 0xbd140000
+		.long 0xe2b4ff
+		.long 0xc5140000
+		.long 0x0bdff
+		.long 0xcd140000
+		.long 0x20bdff
+		.long 0xd5140000
+		.long 0x40bdff
+		.long 0xde140000
+		.long 0x61bdff
+		.long 0xe6140000
+		.long 0x81bdff
+		.long 0xee140000
+		.long 0xa1bdff
+		.long 0xf6140000
+		.long 0xc2bdff
+		.long 0xff140000
+		.long 0xe2bdff
+		.long 0x180000
+		.long 0x0c5ff
+		.long 0x8180000
+		.long 0x20c5ff
+		.long 0x10180000
+		.long 0x40c5ff
+		.long 0x18180000
+		.long 0x61c5ff
+		.long 0x20180000
+		.long 0x81c5ff
+		.long 0x29180000
+		.long 0xa1c5ff
+		.long 0x31180000
+		.long 0xc2c5ff
+		.long 0x39180000
+		.long 0xe2c5ff
+		.long 0x41180000
+		.long 0x0cdff
+		.long 0x4a180000
+		.long 0x20cdff
+		.long 0x52180000
+		.long 0x40cdff
+		.long 0x5a180000
+		.long 0x61cdff
+		.long 0x62180000
+		.long 0x81cdff
+		.long 0x6a180000
+		.long 0xa1cdff
+		.long 0x73180000
+		.long 0xc2cdff
+		.long 0x7b180000
+		.long 0xe2cdff
+		.long 0x83180000
+		.long 0x0d5ff
+		.long 0x8b180000
+		.long 0x20d5ff
+		.long 0x94180000
+		.long 0x40d5ff
+		.long 0x9c180000
+		.long 0x61d5ff
+		.long 0xa4180000
+		.long 0x81d5ff
+		.long 0xac180000
+		.long 0xa1d5ff
+		.long 0xb4180000
+		.long 0xc2d5ff
+		.long 0xbd180000
+		.long 0xe2d5ff
+		.long 0xc5180000
+		.long 0x0deff
+		.long 0xcd180000
+		.long 0x20deff
+		.long 0xd5180000
+		.long 0x40deff
+		.long 0xde180000
+		.long 0x61deff
+		.long 0xe6180000
+		.long 0x81deff
+		.long 0xee180000
+		.long 0xa1deff
+		.long 0xf6180000
+		.long 0xc2deff
+		.long 0xff180000
+		.long 0xe2deff
+		.long 0x1c0000
+		.long 0x0e6ff
+		.long 0x81c0000
+		.long 0x20e6ff
+		.long 0x101c0000
+		.long 0x40e6ff
+		.long 0x181c0000
+		.long 0x61e6ff
+		.long 0x201c0000
+		.long 0x81e6ff
+		.long 0x291c0000
+		.long 0xa1e6ff
+		.long 0x311c0000
+		.long 0xc2e6ff
+		.long 0x391c0000
+		.long 0xe2e6ff
+		.long 0x411c0000
+		.long 0x0eeff
+		.long 0x4a1c0000
+		.long 0x20eeff
+		.long 0x521c0000
+		.long 0x40eeff
+		.long 0x5a1c0000
+		.long 0x61eeff
+		.long 0x621c0000
+		.long 0x81eeff
+		.long 0x6a1c0000
+		.long 0xa1eeff
+		.long 0x731c0000
+		.long 0xc2eeff
+		.long 0x7b1c0000
+		.long 0xe2eeff
+		.long 0x831c0000
+		.long 0x0f6ff
+		.long 0x8b1c0000
+		.long 0x20f6ff
+		.long 0x941c0000
+		.long 0x40f6ff
+		.long 0x9c1c0000
+		.long 0x61f6ff
+		.long 0xa41c0000
+		.long 0x81f6ff
+		.long 0xac1c0000
+		.long 0xa1f6ff
+		.long 0xb41c0000
+		.long 0xc2f6ff
+		.long 0xbd1c0000
+		.long 0xe2f6ff
+		.long 0xc51c0000
+		.long 0x0ffff
+		.long 0xcd1c0000
+		.long 0x20ffff
+		.long 0xd51c0000
+		.long 0x40ffff
+		.long 0xde1c0000
+		.long 0x61ffff
+		.long 0xe61c0000
+		.long 0x81ffff
+		.long 0xee1c0000
+		.long 0xa1ffff
+		.long 0xf61c0000
+		.long 0xc2ffff
+		.long 0xff1c0000
+		.long 0xe2ffff
+

packages/extra/hermes/i386/x86_clr.as

@@ -0,0 +1,297 @@
+#
+# x86 surface clear routines for HERMES
+# Copyright (c) 1998 Christian Nentwich ([email protected])
+# This source code is licensed under the GNU LGPL
+# 
+# Please refer to the file COPYING.LIB contained in the distribution for
+# licensing conditions
+#
+# (04/10/99)    Modified ClearX86_8             <[email protected]>
+
+
+
+
+.globl _ClearX86_32
+.globl _ClearX86_24
+.globl _ClearX86_16
+.globl _ClearX86_8
+
+.text
+
+##   
+## --------------------------------------------------------------------------
+## HermesClearInterface (ebp+..)
+##   0: char8 *dest
+##   4: int32 value
+##   8: unsigned int width (already checked to be >0!)
+##  12: unsigned int height (already checked to be >0!)
+##  16: int add
+
+.align 8
+_ClearX86_32: 
+        pushl %ebp
+        movl %esp,%ebp
+
+        movl 8(%ebp),%ebp
+
+        movl (%ebp),%edi        # destination
+        movl 4(%ebp),%eax       # pixel value   
+
+        movl 12(%ebp),%edx      # height
+.align 4
+_ClearX86_32.L_y: 
+        movl 8(%ebp),%ecx
+        rep
+ stosl
+
+        addl 16(%ebp),%edi
+
+        decl %edx
+        jnz _ClearX86_32.L_y
+
+        popl %ebp
+        ret
+
+
+
+_ClearX86_24: 
+        ret
+
+
+
+.align 8
+_ClearX86_16: 
+        pushl %ebp
+        movl %esp,%ebp
+
+        movl 8(%ebp),%ebp
+
+        movl (%ebp),%edi        # destination
+        movl 4(%ebp),%eax       # pixel value   
+
+        movl 12(%ebp),%edx      # height
+        movl %eax,%ebx
+
+        shll $16,%eax           # Duplicate pixel value
+        andl $0x0ffff,%ebx
+
+        orl %ebx,%eax
+_ClearX86_16.L_y: 
+        movl 8(%ebp),%ecx
+
+        testl $3,%edi           # Check if destination is aligned mod 4
+        jz _ClearX86_16.L_aligned
+
+        movw %ax,(%edi)         # otherwise write one pixel
+        addl $2,%edi
+
+        decl %ecx
+        jz _ClearX86_16.L_endline
+
+_ClearX86_16.L_aligned: 
+        shrl %ecx
+
+rep
+ stosl
+
+        jnc _ClearX86_16.L_endline
+
+        movw %ax,(%edi)
+        addl $2,%edi
+
+_ClearX86_16.L_endline: 
+        addl 16(%ebp),%edi
+
+        decl %edx
+        jnz _ClearX86_16.L_y
+
+        popl %ebp
+        ret
+
+
+
+.align 8
+_ClearX86_8: 
+        pushl %ebp
+        movl %esp,%ebp
+
+        movl 8(%ebp),%ebp
+
+        movl 4(%ebp),%eax       # pixel value           
+        movl 12(%ebp),%edx      # height
+
+        movb %al,%ah
+        movl (%ebp),%edi        # destination
+
+        movl %eax,%ecx
+
+        shll $16,%eax           # Put the byte pixel value in all four bytes
+        andl $0x0ffff,%ecx      # of eax
+
+        movl 8(%ebp),%ebx
+        orl %ecx,%eax
+
+        cmpl $5,%ebx            # removes need for extra checks later
+        jbe _ClearX86_8.L_short_y
+
+.align 4
+_ClearX86_8.L_y: 
+        testl $3,%edi
+        jz _ClearX86_8.L_aligned
+
+        movl %edi,%ecx
+        negl %ecx
+        andl $3,%ecx
+
+        subl %ecx,%ebx
+
+        rep
+ stosb
+
+_ClearX86_8.L_aligned: 
+        movl %ebx,%ecx
+
+        shrl $2,%ecx
+        andl $3,%ebx
+
+        rep
+ stosl
+
+        movl %ebx,%ecx
+        rep
+ stosb
+
+        addl 16(%ebp),%edi
+
+        decl %edx
+        movl 8(%ebp),%ebx
+        jnz _ClearX86_8.L_y
+
+        popl %ebp
+        ret
+
+## Short loop
+.align 4
+_ClearX86_8.L_short_y: 
+        movl %ebx,%ecx
+
+        rep
+ stosb
+        addl 16(%ebp),%edi
+
+        decl %edx
+        jnz _ClearX86_8.L_short_y
+
+        popl %ebp
+        ret
+
+## ClearX86_8 version 2,  
+## Im not sure wheather this is faster or not... 
+## too many jumps could confuse the CPU branch quessing
+
+
+.align 8
+_ClearX86_8_2: 
+        pushl %ebp
+        movl %esp,%ebp
+
+        movl 8(%ebp),%ebp
+
+        movl 4(%ebp),%eax       # pixel value           
+        movl 12(%ebp),%edx      # height
+
+        movb %al,%ah
+        movl (%ebp),%edi        # destination
+
+        movl %eax,%ecx
+
+        shll $16,%eax           # Put the byte pixel value in all four bytes
+        andl $0x0ffff,%ecx      # of eax
+
+        movl 8(%ebp),%ebx
+        orl %ecx,%eax
+
+        cmpl $5,%ebx            # removes need for extra checks in main loop
+        jbe _ClearX86_8_2.L_short_y
+
+
+.align 4
+_ClearX86_8_2.L_y: 
+        testl $3,%edi
+        jz _ClearX86_8_2.L_aligned
+
+        movl %edi,%ecx
+        negl %ecx
+        andl $3,%ecx
+
+        movb %al,(%edi)
+        subl %ecx,%ebx
+
+        incl %edi
+
+        decl %ecx
+        jz _ClearX86_8_2.L_aligned
+
+        movb %al,(%edi)
+        incl %edi
+        decl %ecx
+        jz _ClearX86_8_2.L_aligned
+
+        movb %al,(%edi)
+        incl %edi
+
+_ClearX86_8_2.L_aligned: 
+        movl %ebx,%ecx
+
+        shrl $2,%ecx
+        andl $3,%ebx
+
+        rep
+ stosl
+
+        jz _ClearX86_8_2.L_endline
+                # ebx
+
+        movb %al,(%edi)
+                # Write remaining (1,2 or 3) pixels
+        incl %edi
+        decl %ebx
+        jz _ClearX86_8_2.L_endline
+
+        movb %al,(%edi)
+        incl %edi
+        decl %ebx
+        jz _ClearX86_8_2.L_endline
+
+        movb %al,(%edi)
+        incl %edi
+        decl %ebx
+        jz _ClearX86_8_2.L_endline
+
+        movb %al,(%edi)
+        incl %edi
+
+_ClearX86_8_2.L_endline: 
+        addl 16(%ebp),%edi
+
+        decl %edx
+        movl 8(%ebp),%ebx
+        jnz _ClearX86_8_2.L_y
+
+        popl %ebp
+        ret
+
+## Short loop
+.align 4
+_ClearX86_8_2.L_short_y: 
+        movl %ebx,%ecx
+
+        rep
+ stosb
+        addl 16(%ebp),%edi
+
+        decl %edx
+        jnz _ClearX86_8_2.L_short_y
+
+        popl %ebp
+        ret

packages/extra/hermes/i386/x86_main.as

@@ -0,0 +1,182 @@
+#
+# x86 format converters for HERMES
+# Some routines Copyright (c) 1998 Christian Nentwich ([email protected])
+# This source code is licensed under the GNU LGPL
+# 
+# Please refer to the file COPYING.LIB contained in the distribution for
+# licensing conditions          
+#
+
+
+
+.globl _ConvertX86
+.globl _ConvertX86Stretch
+.globl _x86return
+.globl _x86return_S
+
+.globl _Hermes_X86_CPU
+
+
+.data
+
+cpu_flags: .long 0
+
+.text
+
+.equ s_pixels, 0
+.equ s_width, 4
+.equ s_height, 8
+.equ s_add, 12
+.equ d_pixels, 16
+.equ d_width, 20
+.equ d_height, 24
+.equ d_add, 28
+.equ conv_func, 32
+.equ lookup, 36
+.equ s_pitch, 40
+.equ d_pitch, 44
+
+## _ConvertX86:  
+## [ESP+8] ConverterInfo*
+## --------------------------------------------------------------------------
+##
+## ConvertX86Stretch 'abuses' the following info structure fields:
+##      - d_pitch for the y increment
+##      - s_add for the x increment
+## because they're unused anyway and this is thread safe.. (it's a per
+## converter handle structure)
+_ConvertX86Stretch: 
+        pushl %ebp
+        movl %esp,%ebp
+
+        movl 8(%ebp),%ebp
+
+        movl s_height(%ebp),%eax
+        sall $16,%eax
+        cdq
+        idivl d_height(%ebp)
+        movl %eax,d_pitch(%ebp)
+
+        movl s_width(%ebp),%eax
+        sall $16,%eax
+        cdq
+        idivl d_width(%ebp)
+        movl %eax,s_add(%ebp)
+
+        movl $0,s_height(%ebp)
+
+        movl d_pixels(%ebp),%edi
+        movl s_pixels(%ebp),%esi
+
+        movl s_add(%ebp),%edx
+        movl d_width(%ebp),%ecx
+        jmp *conv_func(%ebp)
+
+.align 8
+_x86return_S: 
+
+        decl d_height(%ebp)
+        jz endconvert_S
+
+        movl s_height(%ebp),%eax
+        addl d_add(%ebp),%edi
+
+        addl d_pitch(%ebp),%eax
+
+        movl %eax,%ebx
+
+        shrl $16,%eax
+
+        mull s_pitch(%ebp)
+        andl $0x0ffff,%ebx
+
+        movl %ebx,s_height(%ebp)
+        addl %eax,%esi
+
+        movl s_add(%ebp),%edx
+        movl d_width(%ebp),%ecx
+
+        jmp *conv_func(%ebp)
+
+endconvert_S: 
+
+        popl %ebp
+        ret
+
+
+
+_ConvertX86: 
+        pushl %ebp
+        movl %esp,%ebp
+
+        movl 8(%ebp),%ebp
+
+        movl s_pixels(%ebp),%esi
+        movl d_width(%ebp),%ecx
+        movl d_pixels(%ebp),%edi
+
+        jmp *32(%ebp)
+
+.align 8
+_x86return: 
+        decl s_height(%ebp)
+        jz endconvert
+
+        movl d_width(%ebp),%ecx
+        addl s_add(%ebp),%esi
+        addl d_add(%ebp),%edi
+
+        jmp *32(%ebp)
+
+
+endconvert: 
+        popl %ebp
+        ret
+
+
+
+## Hermes_X86_CPU returns the CPUID flags in eax
+
+_Hermes_X86_CPU: 
+        pushfl
+        popl %eax
+
+        movl %eax,%ecx
+
+        xorl $0x040000,%eax
+        pushl %eax
+
+        popfl
+        pushfl
+
+        popl %eax
+        xorl %ecx,%eax
+        jz _Hermes_X86_CPU.L1   # Processor is 386
+
+        pushl %ecx
+        popfl
+
+        movl %ecx,%eax
+        xorl $0x200000,%eax
+
+        pushl %eax
+        popfl
+        pushfl
+
+        popl %eax
+        xorl %ecx,%eax
+        je _Hermes_X86_CPU.L1
+
+        pusha
+
+        movl $1,%eax
+        cpuid
+
+        movl %edx,cpu_flags
+
+        popa
+
+        movl cpu_flags,%eax
+
+_Hermes_X86_CPU.L1: 
+        ret

packages/extra/hermes/i386/x86p_16.as

@@ -0,0 +1,1154 @@
+#
+# x86 format converters for HERMES
+# Copyright (c) 1998 Glenn Fielder ([email protected])
+# This source code is licensed under the GNU LGPL
+# 
+# Please refer to the file COPYING.LIB contained in the distribution for
+# licensing conditions          
+# 
+# Routines adjusted for Hermes by Christian Nentwich ([email protected])
+# Used with permission.
+# 
+
+
+#BITS 32
+
+.globl _ConvertX86p16_32RGB888
+.globl _ConvertX86p16_32BGR888
+.globl _ConvertX86p16_32RGBA888
+.globl _ConvertX86p16_32BGRA888
+.globl _ConvertX86p16_24RGB888
+.globl _ConvertX86p16_24BGR888
+.globl _ConvertX86p16_16BGR565
+.globl _ConvertX86p16_16RGB555
+.globl _ConvertX86p16_16BGR555
+.globl _ConvertX86p16_8RGB332
+
+.extern _ConvertX86
+.extern _x86return
+
+.globl _ConvertX86p16_32RGB888_LUT_X86
+.globl _ConvertX86p16_32BGR888_LUT_X86
+.globl _ConvertX86p16_32RGBA888_LUT_X86
+.globl _ConvertX86p16_32BGRA888_LUT_X86
+
+.include "i386/x8616lut.as"
+
+.text
+
+
+
+_ConvertX86p16_32RGB888: 
+
+    # check short
+    cmpl $32,%ecx
+    ja _ConvertX86p16_32RGB888.L3
+
+
+    # short loop
+    xorl %ebx,%ebx
+_ConvertX86p16_32RGB888.L1: movb (%esi),%bl             # ebx = lower byte pixel 1
+    movl _ConvertX86p16_32RGB888_LUT_X86(,%ebx,8),%eax  # eax = ARGB8888 of lower byte pixel 1
+    movb 1(%esi),%bl                                    # ebx = upper byte pixel 1
+    movl _ConvertX86p16_32RGB888_LUT_X86+4(,%ebx,8),%edx# edx = ARGB8888 of upper byte pixel 1
+    addl %edx,%eax
+    movl %eax,(%edi)
+    addl $2,%esi
+    addl $4,%edi
+    decl %ecx
+    jnz _ConvertX86p16_32RGB888.L1
+_ConvertX86p16_32RGB888.L2: 
+    jmp _x86return
+
+
+_ConvertX86p16_32RGB888.L3:  # save ebp
+    pushl %ebp
+
+    # save count
+    pushl %ecx
+
+    # unroll twice
+    movl %ecx,%ebp
+    shrl %ebp
+
+    # point arrays to end
+    leal (%esi,%ebp,4),%esi
+    leal (%edi,%ebp,8),%edi
+
+    # negative counter 
+    negl %ebp
+
+    # clear
+    xorl %ebx,%ebx
+    xorl %ecx,%ecx
+
+    # prestep
+    movb (%esi,%ebp,4),%cl
+    movb 1(%esi,%ebp,4),%bl
+
+_ConvertX86p16_32RGB888.L4: movl _ConvertX86p16_32RGB888_LUT_X86(,%ecx,8),%edx
+        movb 2(%esi,%ebp,4),%cl
+
+        movl _ConvertX86p16_32RGB888_LUT_X86+4(,%ebx,8),%eax
+        movb 3(%esi,%ebp,4),%bl
+
+        addl %edx,%eax
+        movl _ConvertX86p16_32RGB888_LUT_X86(,%ecx,8),%edx
+
+        movl %eax,(%edi,%ebp,8)
+        movl _ConvertX86p16_32RGB888_LUT_X86+4(,%ebx,8),%eax
+
+        addl %edx,%eax
+        movb 4(%esi,%ebp,4),%cl
+
+        movl %eax,4(%edi,%ebp,8)
+        movb 5(%esi,%ebp,4),%bl
+
+        incl %ebp
+        jnz _ConvertX86p16_32RGB888.L4
+
+    # tail
+    popl %ecx
+    andl $1,%ecx
+    jz _ConvertX86p16_32RGB888.L6
+    xorl %ebx,%ebx
+    movb (%esi),%bl                                     # ebx = lower byte pixel 1
+    movl _ConvertX86p16_32RGB888_LUT_X86(,%ebx,8),%eax  # eax = ARGB8888 of lower byte pixel 1
+    movb 1(%esi),%bl                                    # ebx = upper byte pixel 1
+    movl _ConvertX86p16_32RGB888_LUT_X86+4(,%ebx,8),%edx# edx = ARGB8888 of upper byte pixel 1
+    addl %edx,%eax
+    movl %eax,(%edi)
+    addl $2,%esi
+    addl $4,%edi
+
+_ConvertX86p16_32RGB888.L6: popl %ebp
+    jmp _x86return
+
+
+
+
+
+
+_ConvertX86p16_32BGR888: 
+
+    # check short
+    cmpl $32,%ecx
+    ja _ConvertX86p16_32BGR888.L3
+
+
+    # short loop
+    xorl %ebx,%ebx
+_ConvertX86p16_32BGR888.L1: movb (%esi),%bl             # ebx = lower byte pixel 1
+    movl _ConvertX86p16_32BGR888_LUT_X86(,%ebx,8),%eax  # eax = ABGR8888 of lower byte pixel 1
+    movb 1(%esi),%bl                                    # ebx = upper byte pixel 1
+    movl _ConvertX86p16_32BGR888_LUT_X86+4(,%ebx,8),%edx# edx = ABGR8888 of upper byte pixel 1
+    addl %edx,%eax
+    movl %eax,(%edi)
+    addl $2,%esi
+    addl $4,%edi
+    decl %ecx
+    jnz _ConvertX86p16_32BGR888.L1
+_ConvertX86p16_32BGR888.L2: 
+    jmp _x86return
+
+_ConvertX86p16_32BGR888.L3:  # save ebp
+    pushl %ebp
+
+    # save count
+    pushl %ecx
+
+    # unroll twice
+    movl %ecx,%ebp
+    shrl %ebp
+
+    # point arrays to end
+    leal (%esi,%ebp,4),%esi
+    leal (%edi,%ebp,8),%edi
+
+    # negative counter 
+    negl %ebp
+
+    # clear
+    xorl %ebx,%ebx
+    xorl %ecx,%ecx
+
+    # prestep
+    movb (%esi,%ebp,4),%cl
+    movb 1(%esi,%ebp,4),%bl
+
+_ConvertX86p16_32BGR888.L4: movl _ConvertX86p16_32BGR888_LUT_X86(,%ecx,8),%edx
+        movb 2(%esi,%ebp,4),%cl
+
+        movl _ConvertX86p16_32BGR888_LUT_X86+4(,%ebx,8),%eax
+        movb 3(%esi,%ebp,4),%bl
+
+        addl %edx,%eax
+        movl _ConvertX86p16_32BGR888_LUT_X86(,%ecx,8),%edx
+
+        movl %eax,(%edi,%ebp,8)
+        movl _ConvertX86p16_32BGR888_LUT_X86+4(,%ebx,8),%eax
+
+        addl %edx,%eax
+        movb 4(%esi,%ebp,4),%cl
+
+        movl %eax,4(%edi,%ebp,8)
+        movb 5(%esi,%ebp,4),%bl
+
+        incl %ebp
+        jnz _ConvertX86p16_32BGR888.L4
+
+    # tail
+    popl %ecx
+    andl $1,%ecx
+    jz _ConvertX86p16_32BGR888.L6
+    xorl %ebx,%ebx
+    movb (%esi),%bl                                     # ebx = lower byte pixel 1
+    movl _ConvertX86p16_32BGR888_LUT_X86(,%ebx,8),%eax  # eax = ABGR8888 of lower byte pixel 1
+    movb 1(%esi),%bl                                    # ebx = upper byte pixel 1
+    movl _ConvertX86p16_32BGR888_LUT_X86+4(,%ebx,8),%edx# edx = ABGR8888 of upper byte pixel 1
+    addl %edx,%eax
+    movl %eax,(%edi)
+    addl $2,%esi
+    addl $4,%edi
+
+_ConvertX86p16_32BGR888.L6: popl %ebp
+    jmp _x86return
+
+
+
+
+
+
+_ConvertX86p16_32RGBA888: 
+
+    # check short
+    cmpl $32,%ecx
+    ja _ConvertX86p16_32RGBA888.L3
+
+
+    # short loop
+    xorl %ebx,%ebx
+_ConvertX86p16_32RGBA888.L1: movb (%esi),%bl             # ebx = lower byte pixel 1
+    movl _ConvertX86p16_32RGBA888_LUT_X86(,%ebx,8),%eax  # eax = RGBA8888 of lower byte pixel 1
+    movb 1(%esi),%bl                                     # ebx = upper byte pixel 1
+    movl _ConvertX86p16_32RGBA888_LUT_X86+4(,%ebx,8),%edx# edx = RGBA8888 of upper byte pixel 1
+    addl %edx,%eax
+    movl %eax,(%edi)
+    addl $2,%esi
+    addl $4,%edi
+    decl %ecx
+    jnz _ConvertX86p16_32RGBA888.L1
+_ConvertX86p16_32RGBA888.L2: 
+    jmp _x86return
+
+_ConvertX86p16_32RGBA888.L3:  # save ebp
+    pushl %ebp
+
+    # save count
+    pushl %ecx
+
+    # unroll twice
+    movl %ecx,%ebp
+    shrl %ebp
+
+    # point arrays to end
+    leal (%esi,%ebp,4),%esi
+    leal (%edi,%ebp,8),%edi
+
+    # negative counter 
+    negl %ebp
+
+    # clear
+    xorl %ebx,%ebx
+    xorl %ecx,%ecx
+
+    # prestep
+    movb (%esi,%ebp,4),%cl
+    movb 1(%esi,%ebp,4),%bl
+
+_ConvertX86p16_32RGBA888.L4: movl _ConvertX86p16_32RGBA888_LUT_X86(,%ecx,8),%edx
+        movb 2(%esi,%ebp,4),%cl
+
+        movl _ConvertX86p16_32RGBA888_LUT_X86+4(,%ebx,8),%eax
+        movb 3(%esi,%ebp,4),%bl
+
+        addl %edx,%eax
+        movl _ConvertX86p16_32RGBA888_LUT_X86(,%ecx,8),%edx
+
+        movl %eax,(%edi,%ebp,8)
+        movl _ConvertX86p16_32RGBA888_LUT_X86+4(,%ebx,8),%eax
+
+        addl %edx,%eax
+        movb 4(%esi,%ebp,4),%cl
+
+        movl %eax,4(%edi,%ebp,8)
+        movb 5(%esi,%ebp,4),%bl
+
+        incl %ebp
+        jnz _ConvertX86p16_32RGBA888.L4
+
+    # tail
+    popl %ecx
+    andl $1,%ecx
+    jz _ConvertX86p16_32RGBA888.L6
+    xorl %ebx,%ebx
+    movb (%esi),%bl                                      # ebx = lower byte pixel 1
+    movl _ConvertX86p16_32RGBA888_LUT_X86(,%ebx,8),%eax  # eax = RGBA8888 of lower byte pixel 1
+    movb 1(%esi),%bl                                     # ebx = upper byte pixel 1
+    movl _ConvertX86p16_32RGBA888_LUT_X86+4(,%ebx,8),%edx# edx = RGBA8888 of upper byte pixel 1
+    addl %edx,%eax
+    movl %eax,(%edi)
+    addl $2,%esi
+    addl $4,%edi
+
+_ConvertX86p16_32RGBA888.L6: popl %ebp
+    jmp _x86return
+
+
+
+
+
+
+_ConvertX86p16_32BGRA888: 
+
+    # check short
+    cmpl $32,%ecx
+    ja _ConvertX86p16_32BGRA888.L3
+
+    # short loop
+    xorl %ebx,%ebx
+_ConvertX86p16_32BGRA888.L1: movb (%esi),%bl             # ebx = lower byte pixel 1
+    movl _ConvertX86p16_32BGRA888_LUT_X86(,%ebx,8),%eax  # eax = BGRA8888 of lower byte pixel 1
+    movb 1(%esi),%bl                                     # ebx = upper byte pixel 1
+    movl _ConvertX86p16_32BGRA888_LUT_X86+4(,%ebx,8),%edx# edx = BGRA8888 of upper byte pixel 1
+    addl %edx,%eax
+    movl %eax,(%edi)
+    addl $2,%esi
+    addl $4,%edi
+    decl %ecx
+    jnz _ConvertX86p16_32BGRA888.L1
+_ConvertX86p16_32BGRA888.L2: 
+    jmp _x86return
+
+_ConvertX86p16_32BGRA888.L3:  # save ebp
+    pushl %ebp
+
+    # save count
+    pushl %ecx
+
+    # unroll twice
+    movl %ecx,%ebp
+    shrl %ebp
+
+    # point arrays to end
+    leal (%esi,%ebp,4),%esi
+    leal (%edi,%ebp,8),%edi
+
+    # negative counter 
+    negl %ebp
+
+    # clear
+    xorl %ebx,%ebx
+    xorl %ecx,%ecx
+
+    # prestep
+    movb (%esi,%ebp,4),%cl
+    movb 1(%esi,%ebp,4),%bl
+
+_ConvertX86p16_32BGRA888.L4: movl _ConvertX86p16_32BGRA888_LUT_X86(,%ecx,8),%edx
+        movb 2(%esi,%ebp,4),%cl
+
+        movl _ConvertX86p16_32BGRA888_LUT_X86+4(,%ebx,8),%eax
+        movb 3(%esi,%ebp,4),%bl
+
+        addl %edx,%eax
+        movl _ConvertX86p16_32BGRA888_LUT_X86(,%ecx,8),%edx
+
+        movl %eax,(%edi,%ebp,8)
+        movl _ConvertX86p16_32BGRA888_LUT_X86+4(,%ebx,8),%eax
+
+        addl %edx,%eax
+        movb 4(%esi,%ebp,4),%cl
+
+        movl %eax,4(%edi,%ebp,8)
+        movb 5(%esi,%ebp,4),%bl
+
+        incl %ebp
+        jnz _ConvertX86p16_32BGRA888.L4
+
+    # tail
+    popl %ecx
+    andl $1,%ecx
+    jz _ConvertX86p16_32BGRA888.L6
+    xorl %ebx,%ebx
+    movb (%esi),%bl                                      # ebx = lower byte pixel 1
+    movl _ConvertX86p16_32BGRA888_LUT_X86(,%ebx,8),%eax  # eax = BGRA8888 of lower byte pixel 1
+    movb 1(%esi),%bl                                     # ebx = upper byte pixel 1
+    movl _ConvertX86p16_32BGRA888_LUT_X86+4(,%ebx,8),%edx# edx = BGRA8888 of upper byte pixel 1
+    addl %edx,%eax
+    movl %eax,(%edi)
+    addl $2,%esi
+    addl $4,%edi
+
+_ConvertX86p16_32BGRA888.L6: popl %ebp
+    jmp _x86return
+
+
+
+
+
+
+_ConvertX86p16_24RGB888: 
+
+    # check short
+    cmpl $32,%ecx
+    ja _ConvertX86p16_24RGB888.L3
+
+
+    # short loop
+    xorl %edx,%edx
+_ConvertX86p16_24RGB888.L1: movb (%esi),%dl
+    movl _ConvertX86p16_32RGB888_LUT_X86(,%edx,8),%eax    # eax = ARGB8888 of lower byte
+    movb 1(%esi),%dl
+    movl _ConvertX86p16_32RGB888_LUT_X86+4(,%edx,8),%ebx  # ebx = ARGB8888 of upper byte
+    addl %ebx,%eax                                        # eax = ARGB8888 pixel
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    shrl $16,%eax
+    movb %al,2(%edi)
+    addl $2,%esi
+    addl $3,%edi
+    decl %ecx
+    jnz _ConvertX86p16_24RGB888.L1
+_ConvertX86p16_24RGB888.L2: jmp _x86return
+
+
+_ConvertX86p16_24RGB888.L3:  # clear edx
+    xorl %edx,%edx
+
+_ConvertX86p16_24RGB888.L4:  # head
+    movl %edi,%eax
+    andl $0b11,%eax
+    jz _ConvertX86p16_24RGB888.L5
+    movb (%esi),%dl
+    movl _ConvertX86p16_32RGB888_LUT_X86(,%edx,8),%eax    # eax = ARGB8888 of lower byte
+    movb 1(%esi),%dl
+    movl _ConvertX86p16_32RGB888_LUT_X86+4(,%edx,8),%ebx  # ebx = ARGB8888 of upper byte
+    addl %ebx,%eax                                        # eax = ARGB8888 pixel
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    shrl $16,%eax
+    movb %al,2(%edi)
+    addl $2,%esi
+    addl $3,%edi
+    decl %ecx
+    jmp _ConvertX86p16_24RGB888.L4
+
+_ConvertX86p16_24RGB888.L5:  # unroll 4 times
+    pushl %ebp
+    movl %ecx,%ebp
+    shrl $2,%ebp
+
+    # clear ebx
+    xorl %ebx,%ebx
+
+    # save count
+    pushl %ecx
+
+    # prestep
+    movb (%esi),%bl                                     # ebx = lower byte pixel 1
+    movb 1(%esi),%dl                                    # edx = upper byte pixel 1
+
+_ConvertX86p16_24RGB888.L6: movl _ConvertX86p16_32RGB888_LUT_X86(,%ebx,8),%eax # eax = ARGB8888 of lower byte pixel 1
+        movb 2(%esi),%bl                                    # ebx = lower byte pixel 2
+
+        movl _ConvertX86p16_32RGB888_LUT_X86+4(,%edx,8),%ecx    # ecx = ARGB8888 of upper byte pixel 1
+        movb 3(%esi),%dl                                    # edx = upper byte pixel 2
+
+        pushl %ebp                                          # save ebp
+        addl %ecx,%eax                                      # eax = ARGB8888 of pixel 1
+
+        movl _ConvertX86p16_32RGB888_LUT_X86(,%ebx,8),%ebp      # ebp = ARGB8888 of lower byte pixel 2
+        movl _ConvertX86p16_32RGB888_LUT_X86+4(,%edx,8),%ecx    # ecx = ARGB8888 of upper byte pixel 2
+
+        movb 4(%esi),%bl                                    # ebx = lower byte pixel 3
+        addl %ebp,%ecx                                      # ecx = ARGB8888 of pixel 2
+
+        shll $24,%ebp                                       # ebp = [b][0][0][0] of pixel 2
+        movb 5(%esi),%dl                                    # edx = upper byte pixel 3
+
+        shrl $8,%ecx                                        # ecx = [0][0][r][g] pixel 2
+        addl %ebp,%eax                                      # eax = [b2][r1][g1][b1] (done)
+
+        movl %eax,(%edi)                                    # store dword 1
+        movl _ConvertX86p16_32RGB888_LUT_X86+4(,%edx,8),%eax    # eax = ARGB8888 of upper byte pixel 3
+
+        movl _ConvertX86p16_32RGB888_LUT_X86(,%ebx,8),%ebp      # ebp = ARGB8888 of lower byte pixel 3
+        movb 6(%esi),%bl                                    # ebx = lower byte pixel 4
+
+        addl %eax,%ebp                                      # ebp = ARGB8888 of pixel 3
+        movb 7(%esi),%dl                                    # edx = upper byte pixel 4
+
+        shll $16,%ebp                                       # ebp = [g][b][0][0] pixel 3
+
+        shrl $16,%eax                                       #  al = red component of pixel 3
+        addl %ecx,%ebp                                      # ebp = [g3][b3][r2][g2] (done)
+
+        movl %ebp,4(%edi)                                   # store dword 2
+        movl _ConvertX86p16_32RGB888_LUT_X86(,%ebx,8),%ecx      # ebx = ARGB8888 of lower byte pixel 4
+
+        movl _ConvertX86p16_32RGB888_LUT_X86+4(,%edx,8),%ebp    # ebp = ARGB8888 of upper byte pixel 4
+        movb 4*2+0(%esi),%bl                                # ebx = lower byte pixel 1
+
+        addl %ebp,%ecx                                      # ecx = ARGB8888 of pixel 4
+        movb 4*2+1(%esi),%dl                                # edx = upper byte pixel 1
+
+        shll $8,%ecx                                        # ecx = [r][g][b][0]
+        popl %ebp                                           # restore ebp
+
+        movb %al,%cl                                        # ecx = [r4][g4][b4][r3] (done)
+        addl $4*2,%esi
+
+        movl %ecx,8(%edi)                                   # store dword 3
+        addl $3*4,%edi
+
+        decl %ebp
+        jz _ConvertX86p16_24RGB888.L7
+
+        jmp _ConvertX86p16_24RGB888.L6
+
+_ConvertX86p16_24RGB888.L7:  # check tail
+    popl %ecx
+    andl $0b11,%ecx
+    jz _ConvertX86p16_24RGB888.L9
+
+_ConvertX86p16_24RGB888.L8:  # tail
+    movb (%esi),%dl
+    movl _ConvertX86p16_32RGB888_LUT_X86(,%edx,8),%eax    # eax = ARGB8888 of lower byte
+    movb 1(%esi),%dl
+    movl _ConvertX86p16_32RGB888_LUT_X86+4(,%edx,8),%ebx  # ebx = ARGB8888 of upper byte
+    addl %ebx,%eax                                    # eax = ARGB8888 pixel
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    shrl $16,%eax
+    movb %al,2(%edi)
+    addl $2,%esi
+    addl $3,%edi
+    decl %ecx
+    jnz _ConvertX86p16_24RGB888.L8
+
+_ConvertX86p16_24RGB888.L9: popl %ebp
+    jmp _x86return
+
+
+
+
+
+_ConvertX86p16_24BGR888: 
+
+    # check short
+    cmpl $32,%ecx
+    ja _ConvertX86p16_24BGR888.L3
+
+
+    # short loop
+    xorl %edx,%edx
+_ConvertX86p16_24BGR888.L1: movb (%esi),%dl
+    movl _ConvertX86p16_32BGR888_LUT_X86(,%edx,8),%eax    # eax = ABGR8888 of lower byte
+    movb 1(%esi),%dl
+    movl _ConvertX86p16_32BGR888_LUT_X86+4(,%edx,8),%ebx  # ebx = ABGR8888 of upper byte
+    addl %ebx,%eax                                    # eax = ABGR8888 pixel
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    shrl $16,%eax
+    movb %al,2(%edi)
+    addl $2,%esi
+    addl $3,%edi
+    decl %ecx
+    jnz _ConvertX86p16_24BGR888.L1
+_ConvertX86p16_24BGR888.L2: 
+    jmp _x86return
+
+
+_ConvertX86p16_24BGR888.L3:  # clear edx
+    xorl %edx,%edx
+
+_ConvertX86p16_24BGR888.L4:  # head
+    movl %edi,%eax
+    andl $0b11,%eax
+    jz _ConvertX86p16_24BGR888.L5
+    movb (%esi),%dl
+    movl _ConvertX86p16_32BGR888_LUT_X86(,%edx,8),%eax    # eax = ABGR8888 of lower byte
+    movb 1(%esi),%dl
+    movl _ConvertX86p16_32BGR888_LUT_X86+4(,%edx,8),%ebx  # ebx = ABGR8888 of upper byte
+    addl %ebx,%eax                                    # eax = ABGR8888 pixel
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    shrl $16,%eax
+    movb %al,2(%edi)
+    addl $2,%esi
+    addl $3,%edi
+    decl %ecx
+    jmp _ConvertX86p16_24BGR888.L4
+
+_ConvertX86p16_24BGR888.L5:  # unroll 4 times
+    pushl %ebp
+    movl %ecx,%ebp
+    shrl $2,%ebp
+
+    # clear ebx
+    xorl %ebx,%ebx
+
+    # save count
+    pushl %ecx
+
+    # prestep
+    movb (%esi),%bl                                     # ebx = lower byte pixel 1
+    movb 1(%esi),%dl                                    # edx = upper byte pixel 1
+
+_ConvertX86p16_24BGR888.L6: movl _ConvertX86p16_32BGR888_LUT_X86(,%ebx,8),%eax # eax = ABGR8888 of lower byte pixel 1
+        movb 2(%esi),%bl                                    # ebx = lower byte pixel 2
+
+        movl _ConvertX86p16_32BGR888_LUT_X86+4(,%edx,8),%ecx    # ecx = ABGR8888 of upper byte pixel 1
+        movb 3(%esi),%dl                                    # edx = upper byte pixel 2
+
+        pushl %ebp                                          # save ebp
+        addl %ecx,%eax                                      # eax = ABGR8888 of pixel 1
+
+        movl _ConvertX86p16_32BGR888_LUT_X86(,%ebx,8),%ecx      # ecx = ABGR8888 of lower byte pixel 2
+        movl _ConvertX86p16_32BGR888_LUT_X86+4(,%edx,8),%ebp    # ebp = ABGR8888 of upper byte pixel 2
+
+        movb 4(%esi),%bl                                    # ebx = lower byte pixel 3
+        addl %ebp,%ecx                                      # ecx = ABGR8888 of pixel 2
+
+        shll $24,%ebp                                       # ebp = [r][0][0][0] of pixel 2
+        movb 5(%esi),%dl                                    # edx = upper byte pixel 3
+
+        shrl $8,%ecx                                        # ecx = [0][0][b][g] pixel 2
+        addl %ebp,%eax                                      # eax = [r2][b1][g1][r1] (done)
+
+        movl %eax,(%edi)                                    # store dword 1
+        movl _ConvertX86p16_32BGR888_LUT_X86+4(,%edx,8),%ebp    # ebp = ABGR8888 of upper byte pixel 3
+
+        movl _ConvertX86p16_32BGR888_LUT_X86(,%ebx,8),%eax      # eax = ABGR8888 of lower byte pixel 3
+        movb 6(%esi),%bl                                    # ebx = lower byte pixel 4
+
+        addl %eax,%ebp                                      # ebp = ABGR8888 of pixel 3
+        movb 7(%esi),%dl                                    # edx = upper byte pixel 4
+
+        shll $16,%ebp                                       # ebp = [g][r][0][0] pixel 3
+
+        shrl $16,%eax                                       #  al = blue component of pixel 3
+        addl %ecx,%ebp                                      # ebp = [g3][r3][b2][g2] (done)
+
+        movl %ebp,4(%edi)                                   # store dword 2
+        movl _ConvertX86p16_32BGR888_LUT_X86(,%ebx,8),%ecx      # ebx = ABGR8888 of lower byte pixel 4
+
+        movl _ConvertX86p16_32BGR888_LUT_X86+4(,%edx,8),%ebp    # ebp = ABGR8888 of upper byte pixel 4
+        movb 4*2+0(%esi),%bl                                # ebx = lower byte pixel 1
+
+        addl %ebp,%ecx                                      # ecx = ABGR8888 of pixel 4
+        movb 4*2+1(%esi),%dl                                # edx = upper byte pixel 1
+
+        shll $8,%ecx                                        # ecx = [b][g][r][0]
+        popl %ebp                                           # restore ebp
+
+        movb %al,%cl                                        # ecx = [b4][g4][r4][b3] (done)
+        addl $4*2,%esi
+
+        movl %ecx,8(%edi)                                   # store dword 3
+        addl $3*4,%edi
+
+        decl %ebp
+        jz _ConvertX86p16_24BGR888.L7
+
+        jmp _ConvertX86p16_24BGR888.L6
+
+_ConvertX86p16_24BGR888.L7:  # check tail
+    popl %ecx
+    andl $0b11,%ecx
+    jz _ConvertX86p16_24BGR888.L9
+
+_ConvertX86p16_24BGR888.L8:  # tail
+    movb (%esi),%dl
+    movl _ConvertX86p16_32BGR888_LUT_X86(,%edx,8),%eax    # eax = ABGR8888 of lower byte
+    movb 1(%esi),%dl
+    movl _ConvertX86p16_32BGR888_LUT_X86+4(,%edx,8),%ebx  # ebx = ABGR8888 of upper byte
+    addl %ebx,%eax                                    # eax = ABGR8888 pixel
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    shrl $16,%eax
+    movb %al,2(%edi)
+    addl $2,%esi
+    addl $3,%edi
+    decl %ecx
+    jnz _ConvertX86p16_24BGR888.L8
+
+_ConvertX86p16_24BGR888.L9: popl %ebp
+    jmp _x86return
+
+
+
+
+_ConvertX86p16_16BGR565: 
+
+    # check short
+    cmpl $16,%ecx
+    ja _ConvertX86p16_16BGR565.L3
+
+
+_ConvertX86p16_16BGR565.L1:  # short loop
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    movl %eax,%edx
+    shrl $11,%eax
+    andl $0b11111,%eax
+    andl $0b11111100000,%ebx
+    shll $11,%edx
+    addl %ebx,%eax
+    addl %edx,%eax
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    addl $2,%esi
+    addl $2,%edi
+    decl %ecx
+    jnz _ConvertX86p16_16BGR565.L1
+_ConvertX86p16_16BGR565.L2: 
+    jmp _x86return
+
+_ConvertX86p16_16BGR565.L3:  # head
+    movl %edi,%eax
+    andl $0b11,%eax
+    jz _ConvertX86p16_16BGR565.L4
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    movl %eax,%edx
+    shrl $11,%eax
+    andl $0b11111,%eax
+    andl $0b11111100000,%ebx
+    shll $11,%edx
+    addl %ebx,%eax
+    addl %edx,%eax
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    addl $2,%esi
+    addl $2,%edi
+    decl %ecx
+
+_ConvertX86p16_16BGR565.L4:  # save count
+    pushl %ecx
+
+    # unroll twice
+    shrl %ecx
+
+    # point arrays to end
+    leal (%esi,%ecx,4),%esi
+    leal (%edi,%ecx,4),%edi
+
+    # negative counter 
+    negl %ecx
+    jmp _ConvertX86p16_16BGR565.L6
+
+_ConvertX86p16_16BGR565.L5: movl %eax,-4(%edi,%ecx,4)
+_ConvertX86p16_16BGR565.L6: movl (%esi,%ecx,4),%eax
+
+        movl (%esi,%ecx,4),%ebx
+        andl $0x07E007E0,%eax
+
+        movl (%esi,%ecx,4),%edx
+        andl $0x0F800F800,%ebx
+
+        shrl $11,%ebx
+        andl $0x001F001F,%edx
+
+        shll $11,%edx
+        addl %ebx,%eax
+
+        addl %edx,%eax
+        incl %ecx
+
+        jnz _ConvertX86p16_16BGR565.L5
+
+    movl %eax,-4(%edi,%ecx,4)
+
+    # tail
+    popl %ecx
+    andl $1,%ecx
+    jz _ConvertX86p16_16BGR565.L7
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    movl %eax,%edx
+    shrl $11,%eax
+    andl $0b11111,%eax
+    andl $0b11111100000,%ebx
+    shll $11,%edx
+    addl %ebx,%eax
+    addl %edx,%eax
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    addl $2,%esi
+    addl $2,%edi
+
+_ConvertX86p16_16BGR565.L7: 
+    jmp _x86return
+
+
+
+
+
+
+_ConvertX86p16_16RGB555: 
+
+    # check short
+    cmpl $32,%ecx
+    ja _ConvertX86p16_16RGB555.L3
+
+
+_ConvertX86p16_16RGB555.L1:  # short loop
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    shrl %ebx
+    andl $0b0111111111100000,%ebx
+    andl $0b0000000000011111,%eax
+    addl %ebx,%eax
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    addl $2,%esi
+    addl $2,%edi
+    decl %ecx
+    jnz _ConvertX86p16_16RGB555.L1
+_ConvertX86p16_16RGB555.L2: 
+    jmp _x86return
+
+_ConvertX86p16_16RGB555.L3:  # head
+    movl %edi,%eax
+    andl $0b11,%eax
+    jz _ConvertX86p16_16RGB555.L4
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    shrl %ebx
+    andl $0b0111111111100000,%ebx
+    andl $0b0000000000011111,%eax
+    addl %ebx,%eax
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    addl $2,%esi
+    addl $2,%edi
+    decl %ecx
+
+_ConvertX86p16_16RGB555.L4:  # save ebp
+    pushl %ebp
+
+    # save count
+    pushl %ecx
+
+    # unroll four times
+    shrl $2,%ecx
+
+    # point arrays to end
+    leal (%esi,%ecx,8),%esi
+    leal (%edi,%ecx,8),%edi
+
+    # negative counter 
+    xorl %ebp,%ebp
+    subl %ecx,%ebp
+
+_ConvertX86p16_16RGB555.L5: movl (%esi,%ebp,8),%eax # agi?
+        movl 4(%esi,%ebp,8),%ecx
+
+        movl %eax,%ebx
+        movl %ecx,%edx
+
+        andl $0x0FFC0FFC0,%eax
+        andl $0x0FFC0FFC0,%ecx
+
+        shrl %eax
+        andl $0x001F001F,%ebx
+
+        shrl %ecx
+        andl $0x001F001F,%edx
+
+        addl %ebx,%eax
+        addl %edx,%ecx
+
+        movl %eax,(%edi,%ebp,8)
+        movl %ecx,4(%edi,%ebp,8)
+
+        incl %ebp
+        jnz _ConvertX86p16_16RGB555.L5
+
+    # tail
+    popl %ecx
+_ConvertX86p16_16RGB555.L6: andl $0b11,%ecx
+    jz _ConvertX86p16_16RGB555.L7
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    shrl %ebx
+    andl $0b0111111111100000,%ebx
+    andl $0b0000000000011111,%eax
+    addl %ebx,%eax
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    addl $2,%esi
+    addl $2,%edi
+    decl %ecx
+    jmp _ConvertX86p16_16RGB555.L6
+
+_ConvertX86p16_16RGB555.L7: popl %ebp
+    jmp _x86return
+
+
+
+
+
+
+_ConvertX86p16_16BGR555: 
+
+    # check short
+    cmpl $16,%ecx
+    ja _ConvertX86p16_16BGR555.L3
+
+
+_ConvertX86p16_16BGR555.L1:  # short loop
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    movl %eax,%edx
+    shrl $11,%eax
+    andl $0b11111,%eax
+    shrl %ebx
+    andl $0b1111100000,%ebx
+    shll $10,%edx
+    andl $0b0111110000000000,%edx
+    addl %ebx,%eax
+    addl %edx,%eax
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    addl $2,%esi
+    addl $2,%edi
+    decl %ecx
+    jnz _ConvertX86p16_16BGR555.L1
+_ConvertX86p16_16BGR555.L2: 
+    jmp _x86return
+
+_ConvertX86p16_16BGR555.L3:  # head
+    movl %edi,%eax
+    andl $0b11,%eax
+    jz _ConvertX86p16_16BGR555.L4
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    movl %eax,%edx
+    shrl $11,%eax
+    andl $0b11111,%eax
+    shrl %ebx
+    andl $0b1111100000,%ebx
+    shll $10,%edx
+    andl $0b0111110000000000,%edx
+    addl %ebx,%eax
+    addl %edx,%eax
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    addl $2,%esi
+    addl $2,%edi
+    decl %ecx
+
+_ConvertX86p16_16BGR555.L4:  # save count
+    pushl %ecx
+
+    # unroll twice
+    shrl %ecx
+
+    # point arrays to end
+    leal (%esi,%ecx,4),%esi
+    leal (%edi,%ecx,4),%edi
+
+    # negative counter 
+    negl %ecx
+    jmp _ConvertX86p16_16BGR555.L6
+
+_ConvertX86p16_16BGR555.L5: movl %eax,-4(%edi,%ecx,4)
+_ConvertX86p16_16BGR555.L6: movl (%esi,%ecx,4),%eax
+
+        shrl %eax
+        movl (%esi,%ecx,4),%ebx
+
+        andl $0x03E003E0,%eax
+        movl (%esi,%ecx,4),%edx
+
+        andl $0x0F800F800,%ebx
+
+        shrl $11,%ebx
+        andl $0x001F001F,%edx
+
+        shll $10,%edx
+        addl %ebx,%eax
+
+        addl %edx,%eax
+        incl %ecx
+
+        jnz _ConvertX86p16_16BGR555.L5
+
+    movl %eax,-4(%edi,%ecx,4)
+
+    # tail
+    popl %ecx
+    andl $1,%ecx
+    jz _ConvertX86p16_16BGR555.L7
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    movl %eax,%edx
+    shrl $11,%eax
+    andl $0b11111,%eax
+    shrl %ebx
+    andl $0b1111100000,%ebx
+    shll $10,%edx
+    andl $0b0111110000000000,%edx
+    addl %ebx,%eax
+    addl %edx,%eax
+    movb %al,(%edi)
+    movb %ah,1(%edi)
+    addl $2,%esi
+    addl $2,%edi
+
+_ConvertX86p16_16BGR555.L7: 
+    jmp _x86return
+
+
+
+
+
+
+_ConvertX86p16_8RGB332: 
+
+    # check short
+    cmpl $16,%ecx
+    ja _ConvertX86p16_8RGB332.L3
+
+
+_ConvertX86p16_8RGB332.L1:  # short loop
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    movl %eax,%edx
+    andl $0b11000,%eax          # blue
+    shrl $3,%eax
+    andl $0b11100000000,%ebx    # green
+    shrl $6,%ebx
+    andl $0b1110000000000000,%edx # red
+    shrl $8,%edx
+    addl %ebx,%eax
+    addl %edx,%eax
+    movb %al,(%edi)
+    addl $2,%esi
+    incl %edi
+    decl %ecx
+    jnz _ConvertX86p16_8RGB332.L1
+_ConvertX86p16_8RGB332.L2: 
+    jmp _x86return
+
+_ConvertX86p16_8RGB332.L3: movl %edi,%eax
+    andl $0b11,%eax
+    jz _ConvertX86p16_8RGB332.L4
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    movl %eax,%edx
+    andl $0b11000,%eax          # blue
+    shrl $3,%eax
+    andl $0b11100000000,%ebx    # green
+    shrl $6,%ebx
+    andl $0b1110000000000000,%edx # red
+    shrl $8,%edx
+    addl %ebx,%eax
+    addl %edx,%eax
+    movb %al,(%edi)
+    addl $2,%esi
+    incl %edi
+    decl %ecx
+    jmp _ConvertX86p16_8RGB332.L3
+
+_ConvertX86p16_8RGB332.L4:  # save ebp
+    pushl %ebp
+
+    # save count
+    pushl %ecx
+
+    # unroll 4 times
+    shrl $2,%ecx
+
+    # prestep
+    movb (%esi),%dl
+    movb 1(%esi),%bl
+    movb 2(%esi),%dh
+
+_ConvertX86p16_8RGB332.L5: shll $16,%edx
+        movb 3(%esi),%bh
+
+        shll $16,%ebx
+        movb 4(%esi),%dl
+
+        movb 6(%esi),%dh
+        movb 5(%esi),%bl
+
+        andl $0b00011000000110000001100000011000,%edx
+        movb 7(%esi),%bh
+
+        rorl $16+3,%edx
+        movl %ebx,%eax                                  # setup eax for reds
+
+        andl $0b00000111000001110000011100000111,%ebx
+        andl $0b11100000111000001110000011100000,%eax   # reds
+
+        rorl $16-2,%ebx
+        addl $8,%esi
+
+        rorl $16,%eax
+        addl $4,%edi
+
+        addl %ebx,%eax
+        movb 1(%esi),%bl                                # greens
+
+        addl %edx,%eax
+        movb (%esi),%dl                                 # blues
+
+        movl %eax,-4(%edi)
+        movb 2(%esi),%dh
+
+        decl %ecx
+        jnz _ConvertX86p16_8RGB332.L5
+
+    # check tail
+    popl %ecx
+    andl $0b11,%ecx
+    jz _ConvertX86p16_8RGB332.L7
+
+_ConvertX86p16_8RGB332.L6:  # tail
+    movb (%esi),%al
+    movb 1(%esi),%ah
+    movl %eax,%ebx
+    movl %eax,%edx
+    andl $0b11000,%eax          # blue
+    shrl $3,%eax
+    andl $0b11100000000,%ebx    # green
+    shrl $6,%ebx
+    andl $0b1110000000000000,%edx # red
+    shrl $8,%edx
+    addl %ebx,%eax
+    addl %edx,%eax
+    movb %al,(%edi)
+    addl $2,%esi
+    incl %edi
+    decl %ecx
+    jnz _ConvertX86p16_8RGB332.L6
+
+_ConvertX86p16_8RGB332.L7: popl %ebp
+    jmp _x86return
+

packages/extra/hermes/i386/x86p_32.as

@@ -0,0 +1,1043 @@
+#
+# x86 format converters for HERMES
+# Some routines Copyright (c) 1998 Christian Nentwich ([email protected])
+# This source code is licensed under the GNU LGPL
+# 
+# Please refer to the file COPYING.LIB contained in the distribution for
+# licensing conditions          
+#
+# Most routines are (c) Glenn Fiedler ([email protected]), used with permission
+# 
+
+
+
+.globl _ConvertX86p32_32BGR888
+.globl _ConvertX86p32_32RGBA888
+.globl _ConvertX86p32_32BGRA888
+.globl _ConvertX86p32_24RGB888
+.globl _ConvertX86p32_24BGR888
+.globl _ConvertX86p32_16RGB565
+.globl _ConvertX86p32_16BGR565
+.globl _ConvertX86p32_16RGB555
+.globl _ConvertX86p32_16BGR555
+.globl _ConvertX86p32_8RGB332
+
+.extern _x86return
+
+.text
+
+
+## _Convert_*
+## Paramters:   
+##   ESI = source 
+##   EDI = dest
+##   ECX = amount (NOT 0!!! (the _ConvertX86 routine checks for that though))
+## Destroys:
+##   EAX, EBX, EDX
+
+
+_ConvertX86p32_32BGR888: 
+
+    # check short
+    cmpl $32,%ecx
+    ja _ConvertX86p32_32BGR888.L3
+
+_ConvertX86p32_32BGR888.L1:  # short loop
+    movl (%esi),%edx
+    bswapl %edx
+    rorl $8,%edx
+    movl %edx,(%edi)
+    addl $4,%esi
+    addl $4,%edi
+    decl %ecx
+    jnz _ConvertX86p32_32BGR888.L1
+_ConvertX86p32_32BGR888.L2: 
+    jmp _x86return
+
+_ConvertX86p32_32BGR888.L3:  # save ebp
+    pushl %ebp
+
+    # unroll four times
+    movl %ecx,%ebp
+    shrl $2,%ebp
+
+    # save count
+    pushl %ecx
+
+_ConvertX86p32_32BGR888.L4: movl (%esi),%eax
+        movl 4(%esi),%ebx
+
+        bswapl %eax
+
+        bswapl %ebx
+
+        rorl $8,%eax
+        movl 8(%esi),%ecx
+
+        rorl $8,%ebx
+        movl 12(%esi),%edx
+
+        bswapl %ecx
+
+        bswapl %edx
+
+        rorl $8,%ecx
+        movl %eax,(%edi)
+
+        rorl $8,%edx
+        movl %ebx,4(%edi)
+
+        movl %ecx,8(%edi)
+        movl %edx,12(%edi)
+
+        addl $16,%esi
+        addl $16,%edi
+
+        decl %ebp
+        jnz _ConvertX86p32_32BGR888.L4
+
+    # check tail
+    popl %ecx
+    andl $0b11,%ecx
+    jz _ConvertX86p32_32BGR888.L6
+
+_ConvertX86p32_32BGR888.L5:  # tail loop
+    movl (%esi),%edx
+    bswapl %edx
+    rorl $8,%edx
+    movl %edx,(%edi)
+    addl $4,%esi
+    addl $4,%edi
+    decl %ecx
+    jnz _ConvertX86p32_32BGR888.L5
+
+_ConvertX86p32_32BGR888.L6: popl %ebp
+    jmp _x86return
+
+
+
+
+_ConvertX86p32_32RGBA888: 
+
+    # check short
+    cmpl $32,%ecx
+    ja _ConvertX86p32_32RGBA888.L3
+
+_ConvertX86p32_32RGBA888.L1:  # short loop
+    movl (%esi),%edx
+    roll $8,%edx
+    movl %edx,(%edi)
+    addl $4,%esi
+    addl $4,%edi
+    decl %ecx
+    jnz _ConvertX86p32_32RGBA888.L1
+_ConvertX86p32_32RGBA888.L2: 
+    jmp _x86return
+
+_ConvertX86p32_32RGBA888.L3:  # save ebp
+    pushl %ebp
+
+    # unroll four times
+    movl %ecx,%ebp
+    shrl $2,%ebp
+
+    # save count
+    pushl %ecx
+
+_ConvertX86p32_32RGBA888.L4: movl (%esi),%eax
+        movl 4(%esi),%ebx
+
+        roll $8,%eax
+        movl 8(%esi),%ecx
+
+        roll $8,%ebx
+        movl 12(%esi),%edx
+
+        roll $8,%ecx
+        movl %eax,(%edi)
+
+        roll $8,%edx
+        movl %ebx,4(%edi)
+
+        movl %ecx,8(%edi)
+        movl %edx,12(%edi)
+
+        addl $16,%esi
+        addl $16,%edi
+
+        decl %ebp
+        jnz _ConvertX86p32_32RGBA888.L4
+
+    # check tail
+    popl %ecx
+    andl $0b11,%ecx
+    jz _ConvertX86p32_32RGBA888.L6
+
+_ConvertX86p32_32RGBA888.L5:  # tail loop
+    movl (%esi),%edx
+    roll $8,%edx
+    movl %edx,(%edi)
+    addl $4,%esi
+    addl $4,%edi
+    decl %ecx
+    jnz _ConvertX86p32_32RGBA888.L5
+
+_ConvertX86p32_32RGBA888.L6: popl %ebp
+    jmp _x86return
+
+
+
+
+_ConvertX86p32_32BGRA888: 
+
+    # check short
+    cmpl $32,%ecx
+    ja _ConvertX86p32_32BGRA888.L3
+
+_ConvertX86p32_32BGRA888.L1:  # short loop
+    movl (%esi),%edx
+    bswapl %edx
+    movl %edx,(%edi)
+    addl $4,%esi
+    addl $4,%edi
+    decl %ecx
+    jnz _ConvertX86p32_32BGRA888.L1
+_ConvertX86p32_32BGRA888.L2: 
+    jmp _x86return
+
+_ConvertX86p32_32BGRA888.L3:  # save ebp
+    pushl %ebp
+
+    # unroll four times
+    movl %ecx,%ebp
+    shrl $2,%ebp
+
+    # save count
+    pushl %ecx
+
+_ConvertX86p32_32BGRA888.L4: movl (%esi),%eax
+        movl 4(%esi),%ebx
+
+        movl 8(%esi),%ecx
+        movl 12(%esi),%edx
+
+        bswapl %eax
+
+        bswapl %ebx
+
+        bswapl %ecx
+
+        bswapl %edx
+
+        movl %eax,(%edi)
+        movl %ebx,4(%edi)
+
+        movl %ecx,8(%edi)
+        movl %edx,12(%edi)
+
+        addl $16,%esi
+        addl $16,%edi
+
+        decl %ebp
+        jnz _ConvertX86p32_32BGRA888.L4
+
+    # check tail
+    popl %ecx
+    andl $0b11,%ecx
+    jz _ConvertX86p32_32BGRA888.L6
+
+_ConvertX86p32_32BGRA888.L5:  # tail loop
+    movl (%esi),%edx
+    bswapl %edx
+    movl %edx,(%edi)
+    addl $4,%esi
+    addl $4,%edi
+    decl %ecx
+    jnz _ConvertX86p32_32BGRA888.L5
+
+_ConvertX86p32_32BGRA888.L6: popl %ebp
+    jmp _x86return
+
+
+
+
+## 32 bit RGB 888 to 24 BIT RGB 888
+
+_ConvertX86p32_24RGB888: 
+
+        # check short
+        cmpl $32,%ecx
+        ja _ConvertX86p32_24RGB888.L3
+
+_ConvertX86p32_24RGB888.L1:  # short loop
+        movb (%esi),%al
+        movb 1(%esi),%bl
+        movb 2(%esi),%dl
+        movb %al,(%edi)
+        movb %bl,1(%edi)
+        movb %dl,2(%edi)
+        addl $4,%esi
+        addl $3,%edi
+        decl %ecx
+        jnz _ConvertX86p32_24RGB888.L1
+_ConvertX86p32_24RGB888.L2: 
+        jmp _x86return
+
+_ConvertX86p32_24RGB888.L3:  #        head
+        movl %edi,%edx
+        andl $0b11,%edx
+        jz _ConvertX86p32_24RGB888.L4
+        movb (%esi),%al
+        movb 1(%esi),%bl
+        movb 2(%esi),%dl
+        movb %al,(%edi)
+        movb %bl,1(%edi)
+        movb %dl,2(%edi)
+        addl $4,%esi
+        addl $3,%edi
+        decl %ecx
+        jmp _ConvertX86p32_24RGB888.L3
+
+_ConvertX86p32_24RGB888.L4:  # unroll 4 times
+        pushl %ebp
+        movl %ecx,%ebp
+        shrl $2,%ebp
+
+    # save count
+        pushl %ecx
+
+_ConvertX86p32_24RGB888.L5: movl (%esi),%eax # first dword            eax = [A][R][G][B]
+        movl 4(%esi),%ebx               # second dword           ebx = [a][r][g][b]
+
+        shll $8,%eax                    #                        eax = [R][G][B][.]
+        movl 12(%esi),%ecx              # third dword            ecx = [a][r][g][b]
+
+        shll $8,%ebx                    #                        ebx = [r][g][b][.]
+        movb 4(%esi),%al                #                        eax = [R][G][B][b]
+
+        rorl $8,%eax                    #                        eax = [b][R][G][B] (done)
+        movb 8+1(%esi),%bh              #                        ebx = [r][g][G][.]
+
+        movl %eax,(%edi)
+        addl $3*4,%edi
+
+        shll $8,%ecx                    #                        ecx = [r][g][b][.]
+        movb 8+0(%esi),%bl              #                        ebx = [r][g][G][B]
+
+        roll $16,%ebx                   #                        ebx = [G][B][r][g] (done)
+        movb 8+2(%esi),%cl              #                        ecx = [r][g][b][R] (done)
+
+        movl %ebx,4-3*4(%edi)
+        addl $4*4,%esi
+
+        movl %ecx,8-3*4(%edi)
+        decl %ebp
+
+        jnz _ConvertX86p32_24RGB888.L5
+
+    # check tail
+        popl %ecx
+        andl $0b11,%ecx
+        jz _ConvertX86p32_24RGB888.L7
+
+_ConvertX86p32_24RGB888.L6:  # tail loop
+        movb (%esi),%al
+        movb 1(%esi),%bl
+        movb 2(%esi),%dl
+        movb %al,(%edi)
+        movb %bl,1(%edi)
+        movb %dl,2(%edi)
+        addl $4,%esi
+        addl $3,%edi
+        decl %ecx
+        jnz _ConvertX86p32_24RGB888.L6
+
+_ConvertX86p32_24RGB888.L7: popl %ebp
+        jmp _x86return
+
+
+
+
+## 32 bit RGB 888 to 24 bit BGR 888
+
+_ConvertX86p32_24BGR888: 
+
+        # check short
+        cmpl $32,%ecx
+        ja _ConvertX86p32_24BGR888.L3
+
+
+_ConvertX86p32_24BGR888.L1:  # short loop
+        movb (%esi),%dl
+        movb 1(%esi),%bl
+        movb 2(%esi),%al
+        movb %al,(%edi)
+        movb %bl,1(%edi)
+        movb %dl,2(%edi)
+        addl $4,%esi
+        addl $3,%edi
+        decl %ecx
+        jnz _ConvertX86p32_24BGR888.L1
+_ConvertX86p32_24BGR888.L2: 
+        jmp _x86return
+
+_ConvertX86p32_24BGR888.L3:  # head
+        movl %edi,%edx
+        andl $0b11,%edx
+        jz _ConvertX86p32_24BGR888.L4
+        movb (%esi),%dl
+        movb 1(%esi),%bl
+        movb 2(%esi),%al
+        movb %al,(%edi)
+        movb %bl,1(%edi)
+        movb %dl,2(%edi)
+        addl $4,%esi
+        addl $3,%edi
+        decl %ecx
+        jmp _ConvertX86p32_24BGR888.L3
+
+_ConvertX86p32_24BGR888.L4:  # unroll 4 times
+        pushl %ebp
+        movl %ecx,%ebp
+        shrl $2,%ebp
+
+        # save count
+        pushl %ecx
+
+_ConvertX86p32_24BGR888.L5: 
+        movl (%esi),%eax                # first dword            eax = [A][R][G][B]
+        movl 4(%esi),%ebx               # second dword           ebx = [a][r][g][b]
+
+        bswapl %eax                     #                        eax = [B][G][R][A]
+
+        bswapl %ebx                     #                        ebx = [b][g][r][a]
+
+        movb 4+2(%esi),%al              #                        eax = [B][G][R][r] 
+        movb 4+4+1(%esi),%bh            #                        ebx = [b][g][G][a]
+
+        rorl $8,%eax                    #                        eax = [r][B][G][R] (done)
+        movb 4+4+2(%esi),%bl            #                        ebx = [b][g][G][R]
+
+        rorl $16,%ebx                   #                        ebx = [G][R][b][g] (done)
+        movl %eax,(%edi)
+
+        movl %ebx,4(%edi)
+        movl 12(%esi),%ecx              # third dword            ecx = [a][r][g][b]
+
+        bswapl %ecx                     #                        ecx = [b][g][r][a]
+
+        movb 8(%esi),%cl                #                        ecx = [b][g][r][B] (done)
+        addl $4*4,%esi
+
+        movl %ecx,8(%edi)
+        addl $3*4,%edi
+
+        decl %ebp
+        jnz _ConvertX86p32_24BGR888.L5
+
+        # check tail
+        popl %ecx
+        andl $0b11,%ecx
+        jz _ConvertX86p32_24BGR888.L7
+
+_ConvertX86p32_24BGR888.L6:  # tail loop
+        movb (%esi),%dl
+        movb 1(%esi),%bl
+        movb 2(%esi),%al
+        movb %al,(%edi)
+        movb %bl,1(%edi)
+        movb %dl,2(%edi)
+        addl $4,%esi
+        addl $3,%edi
+        decl %ecx
+        jnz _ConvertX86p32_24BGR888.L6
+
+_ConvertX86p32_24BGR888.L7: 
+        popl %ebp
+        jmp _x86return
+
+
+
+
+## 32 bit RGB 888 to 16 BIT RGB 565 
+.align 8
+_ConvertX86p32_16RGB565: 
+        # check short
+        cmpl $16,%ecx
+        ja _ConvertX86p32_16RGB565.L3
+
+_ConvertX86p32_16RGB565.L1:  # short loop
+        movb (%esi),%bl   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%ah  # red
+        shrb $3,%ah
+        andb $0b11111100,%al
+        shll $3,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+        decl %ecx
+        jnz _ConvertX86p32_16RGB565.L1
+
+_ConvertX86p32_16RGB565.L2:     # End of short loop
+        jmp _x86return
+
+
+_ConvertX86p32_16RGB565.L3:  # head
+        movl %edi,%ebx
+        andl $0b11,%ebx
+        jz _ConvertX86p32_16RGB565.L4
+
+        movb (%esi),%bl   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%ah  # red
+        shrb $3,%ah
+        andb $0b11111100,%al
+        shll $3,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+        decl %ecx
+
+_ConvertX86p32_16RGB565.L4: 
+    # save count
+        pushl %ecx
+
+    # unroll twice
+        shrl %ecx
+
+    # point arrays to end
+        leal (%esi,%ecx,8),%esi
+        leal (%edi,%ecx,4),%edi
+
+    # negative counter 
+        negl %ecx
+        jmp _ConvertX86p32_16RGB565.L6
+
+_ConvertX86p32_16RGB565.L5: 
+        movl %eax,-4(%edi,%ecx,4)
+.align 8
+_ConvertX86p32_16RGB565.L6: 
+        movl (%esi,%ecx,8),%eax
+
+        shrb $2,%ah
+        movl 4(%esi,%ecx,8),%ebx
+
+        shrl $3,%eax
+        movl 4(%esi,%ecx,8),%edx
+
+        shrb $2,%bh
+        movb 2(%esi,%ecx,8),%dl
+
+        shll $13,%ebx
+        andl $0x000007FF,%eax
+
+        shll $8,%edx
+        andl $0x07FF0000,%ebx
+
+        andl $0x0F800F800,%edx
+        addl %ebx,%eax
+
+        addl %edx,%eax
+        incl %ecx
+
+        jnz _ConvertX86p32_16RGB565.L5
+
+        movl %eax,-4(%edi,%ecx,4)
+
+    # tail
+        popl %ecx
+        testb $1,%cl
+        jz _ConvertX86p32_16RGB565.L7
+
+        movb (%esi),%bl   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%ah  # red
+        shrb $3,%ah
+        andb $0b11111100,%al
+        shll $3,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+
+_ConvertX86p32_16RGB565.L7: 
+        jmp _x86return
+
+
+
+
+## 32 bit RGB 888 to 16 BIT BGR 565 
+
+_ConvertX86p32_16BGR565: 
+
+        # check short
+        cmpl $16,%ecx
+        ja _ConvertX86p32_16BGR565.L3
+
+_ConvertX86p32_16BGR565.L1:  # short loop
+        movb (%esi),%ah   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%bl  # red
+        shrb $3,%ah
+        andb $0b11111100,%al
+        shll $3,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+        decl %ecx
+        jnz _ConvertX86p32_16BGR565.L1
+_ConvertX86p32_16BGR565.L2: 
+        jmp _x86return
+
+_ConvertX86p32_16BGR565.L3:  # head
+        movl %edi,%ebx
+        andl $0b11,%ebx
+        jz _ConvertX86p32_16BGR565.L4
+        movb (%esi),%ah   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%bl  # red
+        shrb $3,%ah
+        andb $0b11111100,%al
+        shll $3,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+        decl %ecx
+
+_ConvertX86p32_16BGR565.L4:  # save count
+        pushl %ecx
+
+        # unroll twice
+        shrl %ecx
+
+        # point arrays to end
+        leal (%esi,%ecx,8),%esi
+        leal (%edi,%ecx,4),%edi
+
+        # negative count
+        negl %ecx
+        jmp _ConvertX86p32_16BGR565.L6
+
+_ConvertX86p32_16BGR565.L5: 
+        movl %eax,-4(%edi,%ecx,4)
+_ConvertX86p32_16BGR565.L6: 
+        movl 4(%esi,%ecx,8),%edx
+
+        movb 4(%esi,%ecx,8),%bh
+        movb (%esi,%ecx,8),%ah
+
+        shrb $3,%bh
+        movb 1(%esi,%ecx,8),%al
+
+        shrb $3,%ah
+        movb 5(%esi,%ecx,8),%bl
+
+        shll $3,%eax
+        movb 2(%esi,%ecx,8),%dl
+
+        shll $19,%ebx
+        andl $0x0000FFE0,%eax
+
+        shrl $3,%edx
+        andl $0x0FFE00000,%ebx
+
+        andl $0x001F001F,%edx
+        addl %ebx,%eax
+
+        addl %edx,%eax
+        incl %ecx
+
+        jnz _ConvertX86p32_16BGR565.L5
+
+        movl %eax,-4(%edi,%ecx,4)
+
+        # tail
+        popl %ecx
+        andl $1,%ecx
+        jz _ConvertX86p32_16BGR565.L7
+        movb (%esi),%ah   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%bl  # red
+        shrb $3,%ah
+        andb $0b11111100,%al
+        shll $3,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+
+_ConvertX86p32_16BGR565.L7: 
+        jmp _x86return
+
+
+
+
+## 32 BIT RGB TO 16 BIT RGB 555
+
+_ConvertX86p32_16RGB555: 
+
+        # check short
+        cmpl $16,%ecx
+        ja _ConvertX86p32_16RGB555.L3
+
+_ConvertX86p32_16RGB555.L1:  # short loop
+        movb (%esi),%bl   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%ah  # red
+        shrb $3,%ah
+        andb $0b11111000,%al
+        shll $2,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+        decl %ecx
+        jnz _ConvertX86p32_16RGB555.L1
+_ConvertX86p32_16RGB555.L2: 
+        jmp _x86return
+
+_ConvertX86p32_16RGB555.L3:  # head
+        movl %edi,%ebx
+        andl $0b11,%ebx
+        jz _ConvertX86p32_16RGB555.L4
+        movb (%esi),%bl   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%ah  # red
+        shrb $3,%ah
+        andb $0b11111000,%al
+        shll $2,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+        decl %ecx
+
+_ConvertX86p32_16RGB555.L4:  # save count
+        pushl %ecx
+
+        # unroll twice
+        shrl %ecx
+
+        # point arrays to end
+        leal (%esi,%ecx,8),%esi
+        leal (%edi,%ecx,4),%edi
+
+        # negative counter 
+        negl %ecx
+        jmp _ConvertX86p32_16RGB555.L6
+
+_ConvertX86p32_16RGB555.L5: 
+        movl %eax,-4(%edi,%ecx,4)
+_ConvertX86p32_16RGB555.L6: 
+        movl (%esi,%ecx,8),%eax
+
+        shrb $3,%ah
+        movl 4(%esi,%ecx,8),%ebx
+
+        shrl $3,%eax
+        movl 4(%esi,%ecx,8),%edx
+
+        shrb $3,%bh
+        movb 2(%esi,%ecx,8),%dl
+
+        shll $13,%ebx
+        andl $0x000007FF,%eax
+
+        shll $7,%edx
+        andl $0x07FF0000,%ebx
+
+        andl $0x07C007C00,%edx
+        addl %ebx,%eax
+
+        addl %edx,%eax
+        incl %ecx
+
+        jnz _ConvertX86p32_16RGB555.L5
+
+        movl %eax,-4(%edi,%ecx,4)
+
+        # tail
+        popl %ecx
+        andl $1,%ecx
+        jz _ConvertX86p32_16RGB555.L7
+        movb (%esi),%bl   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%ah  # red
+        shrb $3,%ah
+        andb $0b11111000,%al
+        shll $2,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+
+_ConvertX86p32_16RGB555.L7: 
+        jmp _x86return
+
+
+
+
+## 32 BIT RGB TO 16 BIT BGR 555
+
+_ConvertX86p32_16BGR555: 
+
+        # check short
+        cmpl $16,%ecx
+        ja _ConvertX86p32_16BGR555.L3
+
+
+_ConvertX86p32_16BGR555.L1:  # short loop
+        movb (%esi),%ah   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%bl  # red
+        shrb $3,%ah
+        andb $0b11111000,%al
+        shll $2,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+        decl %ecx
+        jnz _ConvertX86p32_16BGR555.L1
+_ConvertX86p32_16BGR555.L2: 
+        jmp _x86return
+
+_ConvertX86p32_16BGR555.L3:  # head
+        movl %edi,%ebx
+        andl $0b11,%ebx
+        jz _ConvertX86p32_16BGR555.L4
+        movb (%esi),%ah   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%bl  # red
+        shrb $3,%ah
+        andb $0b11111000,%al
+        shll $2,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+        decl %ecx
+
+_ConvertX86p32_16BGR555.L4:  # save count
+        pushl %ecx
+
+        # unroll twice
+        shrl %ecx
+
+        # point arrays to end
+        leal (%esi,%ecx,8),%esi
+        leal (%edi,%ecx,4),%edi
+
+        # negative counter 
+        negl %ecx
+        jmp _ConvertX86p32_16BGR555.L6
+
+_ConvertX86p32_16BGR555.L5: 
+        movl %eax,-4(%edi,%ecx,4)
+_ConvertX86p32_16BGR555.L6: 
+        movl 4(%esi,%ecx,8),%edx
+
+        movb 4(%esi,%ecx,8),%bh
+        movb (%esi,%ecx,8),%ah
+
+        shrb $3,%bh
+        movb 1(%esi,%ecx,8),%al
+
+        shrb $3,%ah
+        movb 5(%esi,%ecx,8),%bl
+
+        shll $2,%eax
+        movb 2(%esi,%ecx,8),%dl
+
+        shll $18,%ebx
+        andl $0x00007FE0,%eax
+
+        shrl $3,%edx
+        andl $0x07FE00000,%ebx
+
+        andl $0x001F001F,%edx
+        addl %ebx,%eax
+
+        addl %edx,%eax
+        incl %ecx
+
+        jnz _ConvertX86p32_16BGR555.L5
+
+        movl %eax,-4(%edi,%ecx,4)
+
+        # tail
+        popl %ecx
+        andl $1,%ecx
+        jz _ConvertX86p32_16BGR555.L7
+        movb (%esi),%ah   # blue
+        movb 1(%esi),%al  # green
+        movb 2(%esi),%bl  # red
+        shrb $3,%ah
+        andb $0b11111000,%al
+        shll $2,%eax
+        shrb $3,%bl
+        addb %bl,%al
+        movb %al,(%edi)
+        movb %ah,1(%edi)
+        addl $4,%esi
+        addl $2,%edi
+
+_ConvertX86p32_16BGR555.L7: 
+        jmp _x86return
+
+
+
+
+
+## FROM 32 BIT RGB to 8 BIT RGB (rrrgggbbb)
+## This routine writes FOUR pixels at once (dword) and then, if they exist
+## the trailing three pixels
+_ConvertX86p32_8RGB332: 
+
+
+_ConvertX86p32_8RGB332.L_ALIGNED: 
+        pushl %ecx
+
+        shrl $2,%ecx            # We will draw 4 pixels at once
+        jnz _ConvertX86p32_8RGB332.L1
+
+        jmp _ConvertX86p32_8RGB332.L2 # short jump out of range :(
+
+_ConvertX86p32_8RGB332.L1: 
+        movl (%esi),%eax        # first pair of pixels
+        movl 4(%esi),%edx
+
+        shrb $6,%dl
+        movl %eax,%ebx
+
+        shrb $6,%al
+        andb $0x0e0,%ah
+
+        shrl $16,%ebx
+        andb $0x0e0,%dh
+
+        shrb $3,%ah
+        andb $0x0e0,%bl
+
+        shrb $3,%dh
+
+        orb %bl,%al
+
+        movl %edx,%ebx
+        orb %ah,%al
+
+        shrl $16,%ebx
+        orb %dh,%dl
+
+        andb $0x0e0,%bl
+
+        orb %bl,%dl
+
+        movb %dl,%ah
+
+
+
+        movl 8(%esi),%ebx       # second pair of pixels
+
+        movl %ebx,%edx
+        andb $0x0e0,%bh
+
+        shrb $6,%bl
+        andl $0x0e00000,%edx
+
+        shrl $16,%edx
+
+        shrb $3,%bh
+
+        rorl $16,%eax
+        orb %dl,%bl
+
+        movl 12(%esi),%edx
+        orb %bh,%bl
+
+        movb %bl,%al
+
+        movl %edx,%ebx
+        andb $0x0e0,%dh
+
+        shrb $6,%dl
+        andl $0x0e00000,%ebx
+
+        shrb $3,%dh
+        movb %dl,%ah
+
+        shrl $16,%ebx
+        orb %dh,%ah
+
+        orb %bl,%ah
+
+        roll $16,%eax
+        addl $16,%esi
+
+        movl %eax,(%edi)
+        addl $4,%edi
+
+        decl %ecx
+        jz _ConvertX86p32_8RGB332.L2 # L1 out of range for short jump :(
+
+        jmp _ConvertX86p32_8RGB332.L1
+_ConvertX86p32_8RGB332.L2: 
+
+        popl %ecx
+        andl $3,%ecx            # mask out number of pixels to draw
+
+        jz _ConvertX86p32_8RGB332.L4 # Nothing to do anymore
+
+_ConvertX86p32_8RGB332.L3: 
+        movl (%esi),%eax        # single pixel conversion for trailing pixels
+
+        movl %eax,%ebx
+
+        shrb $6,%al
+        andb $0x0e0,%ah
+
+        shrl $16,%ebx
+
+        shrb $3,%ah
+        andb $0x0e0,%bl
+
+        orb %ah,%al
+        orb %bl,%al
+
+        movb %al,(%edi)
+
+        incl %edi
+        addl $4,%esi
+
+        decl %ecx
+        jnz _ConvertX86p32_8RGB332.L3
+
+_ConvertX86p32_8RGB332.L4: 
+        jmp _x86return

packages/extra/hermes/i386/x86p_cpy.as

@@ -0,0 +1,120 @@
+
+
+
+
+
+.globl _CopyX86p_4byte
+.globl _CopyX86p_3byte
+.globl _CopyX86p_2byte
+.globl _CopyX86p_1byte
+
+.extern _x86return
+
+
+.text
+
+## _Copy*
+## Paramters:
+##   ESI = source 
+##   EDI = dest
+##   ECX = amount (NOT 0!!! (the _ConvertX86 routine checks for that though))
+## Destroys:
+##   EAX, EBX, EDX
+
+_CopyX86p_4byte: 
+
+        rep
+ movsl
+
+        jmp _x86return
+
+
+_CopyX86p_3byte: 
+
+        leal (%ecx,%ecx,2),%ecx
+        jmp _CopyX86p_1byte
+
+
+
+_CopyX86p_2byte: 
+
+        testl $3,%edi                   # Check if video memory is aligned
+        jz _CopyX86p_2byte.L_ALIGNED
+
+        movw (%esi),%ax
+        addl $2,%esi
+
+        movw %ax,(%edi)
+        addl $2,%edi
+
+        decl %ecx
+        jz _CopyX86p_2byte.L3
+
+_CopyX86p_2byte.L_ALIGNED: 
+
+        movl %ecx,%ebx                  # Save ecx for later
+
+        shrl %ecx
+        jz _CopyX86p_2byte.L2
+
+        rep
+ movsl
+
+_CopyX86p_2byte.L2: 
+        andl $1,%ebx
+        jz _CopyX86p_2byte.L3
+
+        movw (%esi),%ax
+        addl $2,%esi
+
+        movw %ax,(%edi)
+        addl $2,%edi
+
+_CopyX86p_2byte.L3: 
+        jmp _x86return
+
+
+
+_CopyX86p_1byte: 
+
+_CopyX86p_1byte.L_alignloop: 
+        testl $3,%edi
+        jz _CopyX86p_1byte.L_aligned
+
+        movb (%esi),%al
+        incl %esi
+
+        movb %al,(%edi)
+        incl %edi
+
+        decl %ecx
+        jz _CopyX86p_1byte.L4
+        jmp _CopyX86p_1byte.L_alignloop
+
+_CopyX86p_1byte.L_aligned: 
+        movl %ecx,%edx
+
+        shrl $2,%ecx
+        jz _CopyX86p_1byte.L2
+
+        rep
+ movsl
+
+_CopyX86p_1byte.L2: 
+        movl %edx,%ecx          # Get the remaining pixels to draw
+
+        andl $3,%ecx
+        jz _CopyX86p_1byte.L4   # width was modulo 4
+
+_CopyX86p_1byte.L3: 
+        movb (%esi),%al
+        incl %esi
+
+        movb %al,(%edi)
+        incl %edi
+
+        decl %ecx
+        jnz _CopyX86p_1byte.L3
+
+_CopyX86p_1byte.L4: 
+        jmp _x86return

packages/extra/hermes/i386/x86p_i8.as

@@ -0,0 +1,230 @@
+#
+# x86 format converters for HERMES
+# Copyright (c) 1998 Christian Nentwich ([email protected])
+# This source code is licensed under the GNU LGPL
+# 
+# Please refer to the file COPYING.LIB contained in the distribution for
+# licensing conditions          
+# 
+# Some routines are (c) Glenn Fiedler ([email protected]), used with permission
+#
+
+
+
+.globl _ConvertX86pI8_32
+.globl _ConvertX86pI8_24
+.globl _ConvertX86pI8_16
+
+.extern _ConvertX86
+.extern _x86return
+
+.text
+
+
+## Convert_*
+## Paramters:   
+##   ESI = source 
+##   EDI = dest
+##   ECX = amount (NOT 0!!! (the ConvertX86 routine checks for that though))
+## Destroys:
+##   EAX, EBX, EDX
+
+_ConvertX86pI8_32: 
+
+        xorl %ebx,%ebx
+        movl 36(%ebp),%edx
+_ConvertX86pI8_32.L1: 
+        movb (%esi),%bl
+        incl %esi
+
+        movl (%edx,%ebx,4),%eax
+
+        movl %eax,(%edi)
+        addl $4,%edi
+
+        decl %ecx
+        jnz _ConvertX86pI8_32.L1
+
+        jmp _x86return
+
+
+
+_ConvertX86pI8_24: 
+        movl 36(%ebp),%ebx
+
+        xorl %edx,%edx
+
+        # check short
+        cmpl $32,%ecx
+        ja _ConvertX86pI8_24.L3
+
+
+_ConvertX86pI8_24.L1:  # short loop
+        movb (%esi),%dl
+        movl (%ebx,%edx,4),%eax
+        movb %al,(%edi) # blue
+        movb %ah,1(%edi)# green
+        shrl $16,%eax
+        movb %al,2(%edi)# red
+        incl %esi
+        addl $3,%edi
+        decl %ecx
+        jnz _ConvertX86pI8_24.L1
+_ConvertX86pI8_24.L2: 
+        jmp _x86return
+
+_ConvertX86pI8_24.L3:  # head
+        movl %edi,%eax
+        andl $0b11,%eax
+        jz _ConvertX86pI8_24.L4
+        movb (%esi),%dl
+        movl (%ebx,%edx,4),%eax
+        movb %al,(%edi) # blue
+        movb %ah,1(%edi)# green
+        shrl $16,%eax
+        movb %al,2(%edi)# red
+        incl %esi
+        addl $3,%edi
+        decl %ecx
+        jmp _ConvertX86pI8_24.L3
+
+_ConvertX86pI8_24.L4:  # save ebp
+        pushl %ebp
+        movl %ebx,%ebp
+
+        # save count
+        pushl %ecx
+
+        # unroll 4 times
+        shrl $2,%ecx
+
+_ConvertX86pI8_24.L5: pushl %ecx        # save ecx
+        movb (%esi),%dl                 # index to "A"           
+
+        movl (%ebp,%edx,4),%eax         # eax = [xx][A2][A1][A0]
+        shll $8,%eax                    # eax = [A2][A1][A0][xx]
+
+        movb 1(%esi),%dl                # index to "B"
+
+        movb (%ebp,%edx,4),%al          # eax = [A2][A1][A0][B0]
+        rorl $8,%eax                    # eax = [B0][A2][A1][A0] (done)
+        movl %eax,(%edi)
+
+        movl (%ebp,%edx,4),%eax         # eax = [xx][B2][B1][B0]
+        shll $8,%eax                    # eax = [B2][B1][B0][xx]
+
+        movb 3(%esi),%dl                # index to "D"
+
+        movl (%ebp,%edx,4),%ecx         # ecx = [xx][D2][D1][D0]
+        shll $8,%ecx                    # ecx = [D2][D1][D0][xx]
+
+        movb 2(%esi),%dl                # index to "C"
+
+        movb 1(%ebp,%edx,4),%ah         # eax = [B2][B1][C1][xx]
+        movb (%ebp,%edx,4),%al          # eax = [B2][B1][C1][C0]
+        rorl $16,%eax                   # eax = [C1][C0][B2][B1] (done)
+
+        movb 2(%ebp,%edx,4),%cl         # ecx = [D2][D1][D0][C2] (done)
+
+        movl %eax,4(%edi)
+        movl %ecx,8(%edi)
+
+        addl $4,%esi
+        addl $3*4,%edi
+
+        popl %ecx                       # restore ecx
+
+        decl %ecx
+        jnz _ConvertX86pI8_24.L5
+
+        # tail
+        popl %ecx
+        andl $0b11,%ecx
+        jz _ConvertX86pI8_24.L7
+
+_ConvertX86pI8_24.L6: 
+        movb (%esi),%dl
+        movl (%ebx,%edx,4),%eax
+        movb %al,(%edi) # blue
+        movb %ah,1(%edi)# green
+        shrl $16,%eax
+        movb %al,2(%edi)# red
+        incl %esi
+        addl $3,%edi
+        decl %ecx
+        jnz _ConvertX86pI8_24.L6
+
+_ConvertX86pI8_24.L7: popl %ebp
+        jmp _x86return
+
+
+.align 8
+_ConvertX86pI8_16: 
+        xorl %ebx,%ebx
+        movl 36(%ebp),%edx
+
+        testl $3,%edi
+        jz _ConvertX86pI8_16.Laligned
+
+        movb (%esi),%bl
+
+        movl (%edx,%ebx,4),%eax
+        incl %esi
+
+        movw %ax,(%edi)
+        addl $2,%edi
+
+        decl %ecx
+        jz _ConvertX86pI8_16.out
+
+_ConvertX86pI8_16.Laligned: 
+        pushl %ecx
+
+        xorl %eax,%eax
+        xorl %ebx,%ebx
+
+        shrl %ecx
+        jz _ConvertX86pI8_16.last_pixel
+.align 8
+_ConvertX86pI8_16.Ly: 
+        movb 1(%esi),%bl
+        movb (%esi),%al
+
+        movl (%edx,%ebx,4),%ebx
+        addl $2,%esi
+
+        shll $16,%ebx
+        movl (%edx,%eax,4),%eax
+
+        orl %ebx,%eax
+        xorl %ebx,%ebx
+
+        movl %eax,(%edi)
+        addl $4,%edi
+
+        xorl %eax,%eax
+        decl %ecx
+        jnz _ConvertX86pI8_16.Ly
+
+_ConvertX86pI8_16.last_pixel: 
+        popl %ecx
+
+        testb $1,%cl
+        jz _ConvertX86pI8_16.out
+
+        movb (%esi),%bl
+
+        movl (%edx,%ebx,4),%eax
+        incl %esi
+
+        movw %ax,(%edi)
+        addl $2,%edi
+
+_ConvertX86pI8_16.out: 
+        jmp _x86return
+
+
+
+
+
+

packages/extra/hermes/i386/x86p_s32.as

@@ -0,0 +1,116 @@
+
+
+
+.globl _ConvertX86p32_16RGB565_S
+
+.text
+
+.extern _x86return_S
+
+## _Convert*_S
+## Paramters:   
+##   ESI = source
+##   EDI = dest
+##   ECX = amount (NOT 0!!! (the _ConvertX86 routine checks for that though))
+##   EDX = x increment
+## Destroys:
+##   EAX, EBX, ECX, EDX
+
+
+_ConvertX86p32_16RGB565_S: 
+
+        pushl %ebp
+        pushl %edx              # increment now at [esp+4]!
+
+        movl $0,%ebp
+
+        pushl %ecx
+        shrl %ecx
+        jnz _ConvertX86p32_16RGB565_S.L_ok
+        jmp _ConvertX86p32_16RGB565_S.L_final
+
+_ConvertX86p32_16RGB565_S.L_ok: 
+
+.align 8
+_ConvertX86p32_16RGB565_S.Lx: 
+        movl %ebp,%eax
+
+        shrl $14,%eax
+        addl 4(%esp),%ebp
+
+        movl %ebp,%edx
+        andl $0x0fffffffc,%eax
+
+        shrl $14,%edx
+        movl (%esi,%eax,),%ebx  # ebx = pixel one
+
+        andl $0x0fffffffc,%edx
+        andl $0x0f8fcf8,%ebx
+
+        shrb $2,%bh
+        movl (%esi,%edx,),%eax  # eax = pixel two
+
+        andl $0x0f8fcf8,%eax
+        addl 4(%esp),%ebp
+
+        shrb $2,%ah             # eax & ebx= rrrrr000|00gggggg|bbbbb000
+
+        movl %eax,%edx
+
+        shrw $3,%dx
+        andl $0x0f80000,%eax
+
+        shrl $8,%eax
+
+        orl %edx,%eax
+
+        shll $16,%eax
+        movl %ebx,%edx
+
+        shrw $3,%dx
+        andl $0x0f80000,%ebx
+
+        shrl $8,%ebx
+        orb %dh,%ah
+
+        orb %bh,%ah
+        orb %dl,%al
+
+        movl %eax,(%edi)
+        addl $4,%edi
+
+        decl %ecx
+        jnz _ConvertX86p32_16RGB565_S.Lx
+
+_ConvertX86p32_16RGB565_S.L_final: 
+        popl %ecx
+        andl $1,%ecx
+        jz _ConvertX86p32_16RGB565_S.L_out
+
+        shrl $14,%ebp           # trailing pixel
+
+        andl $0x0fffffffc,%ebp
+
+        movl (%esi,%ebp,),%eax
+        movl (%esi,%ebp,),%ebx
+
+        shrl $8,%ebx
+        andl $0x0fcf8,%eax
+
+        shrb $2,%ah
+        andl $0x0f800,%ebx
+
+        shrl $3,%eax
+
+        orl %ebx,%eax
+
+        movw %ax,(%edi)
+        addl $2,%edi
+
+_ConvertX86p32_16RGB565_S.L_out: 
+
+        popl %edx
+        popl %ebp
+        jmp _x86return_S
+
+

packages/extra/hermes/i386/x86pscpy.as

@@ -0,0 +1,42 @@
+
+
+
+.globl _CopyX86p_4byte_S
+.globl _CopyX86p_3byte_S
+.globl _CopyX86p_2byte_S
+.globl _CopyX86p_1byte_S
+
+.extern _x86return
+
+
+.text
+
+## _Copy*
+## Paramters:
+##   ESI = source 
+##   EDI = dest
+##   ECX = amount (NOT 0!!! (the _ConvertX86 routine checks for that though))
+## Destroys:
+##   EAX, EBX, EDX
+
+_CopyX86p_4byte_S: 
+
+
+        jmp _x86return_S
+
+
+_CopyX86p_3byte_S: 
+
+        jmp _x86return_S
+
+
+
+_CopyX86p_2byte_S: 
+
+        jmp _x86return_S
+
+_CopyX86p_1byte_S: 
+
+        jmp _x86return_S
+
+

packages/extra/hermes/list.pp

@@ -0,0 +1,212 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Type
+  TListFreeCallback = Procedure(p : Pointer);
+  PHermesListElementStruct = ^THermesListElementStruct;
+  THermesListElementStruct = Record
+    handle : THermesHandle;
+    data : Pointer;
+    next : PHermesListElementStruct;
+  End;
+  PHermesListElement = ^THermesListElement;
+  THermesListElement = THermesListElementStruct;
+  PHermesList = ^THermesList;
+  THermesList = Record
+    first, last : PHermesListElement;
+  End;
+
+{Function Hermes_ListNew : PHermesList;
+Procedure Hermes_ListDestroy(list : PHermesList);
+Function Hermes_ListElementNew(handle : THermesHandle) : PHermesListElement;
+Procedure Hermes_ListAdd(list : PHermesList; element : PHermesListElement);
+Procedure Hermes_ListAddFront(list : PHermesList; element : PHermesListElement);
+Function Hermes_ListDeleteElement(list : PHermesList; handle : THermesHandle) : Boolean;
+Function Hermes_ListLookup(list : PHermesList;
+                           handle : THermesHandle) : PHermesListElement;}
+
+Function Hermes_ListNew : PHermesList;
+
+Var
+  tmp : PHermesList;
+
+Begin
+{  New(tmp);}
+  tmp := malloc(SizeOf(THermesList));
+  If tmp = Nil Then
+  Begin
+    Hermes_ListNew := Nil;
+    Exit;
+  End;
+  tmp^.first := Nil;
+  tmp^.last := Nil;
+  Hermes_ListNew := tmp;
+End;
+
+Procedure Hermes_ListDestroy(list : PHermesList);
+
+Var
+  tmp, run : PHermesListElement;
+
+Begin
+  If list = Nil Then
+    Exit;
+  run := list^.first;
+  While run <> Nil Do
+  Begin
+    tmp := run;
+    run := run^.next;
+    If tmp^.data <> Nil Then
+    Begin
+      {to do: free(tmp->data)}
+      free(tmp^.data);
+    End;
+    free(tmp);
+  End;
+  free(list);
+  list := Nil;
+End;
+
+Function Hermes_ListElementNew(handle : THermesHandle) : PHermesListElement;
+
+Var
+  tmp : PHermesListElement;
+
+Begin
+  tmp := malloc(SizeOf(THermesListElement));
+  If tmp = Nil Then
+  Begin
+    Hermes_ListElementNew := Nil;
+    Exit;
+  End;
+  tmp^.handle := handle;
+  tmp^.next := Nil;
+  tmp^.data := Nil;
+  Hermes_ListElementNew := tmp;
+End;
+
+Procedure Hermes_ListAdd(list : PHermesList; element : PHermesListElement);
+
+Begin
+  If (list = Nil) Or (element = Nil) Then
+    Exit;
+  If list^.first = Nil Then
+  Begin
+    list^.first := element;
+    list^.last := element;
+    element^.next := Nil;
+    Exit;
+  End;
+  list^.last^.next := element;
+  list^.last := element;
+  element^.next := Nil;
+End;
+
+Procedure Hermes_ListAddFront(list : PHermesList; element : PHermesListElement);
+
+Begin
+  If (list = Nil) Or (element = Nil) Then
+    Exit;
+  If list^.first = Nil Then
+  Begin
+    list^.first := element;
+    list^.last := element;
+    element^.next := Nil;
+    Exit;
+  End;
+  element^.next := list^.first;
+  list^.first := element;
+End;
+
+Function Hermes_ListDeleteElement(list : PHermesList; handle : THermesHandle; user_free : TListFreeCallback) : Boolean;
+
+Var
+  run, previous : PHermesListElement;
+
+Begin
+  If list = Nil Then
+  Begin
+    Hermes_ListDeleteElement := False;
+    Exit;
+  End;
+  previous := Nil;
+  run := list^.first;
+  While run <> Nil Do
+  Begin
+    If run^.handle = handle Then
+    Begin
+      If run = list^.first Then
+        list^.first := run^.next
+      Else
+        previous^.next := run^.next;
+      If run = list^.last Then
+      Begin
+        list^.last := previous;
+        If list^.last <> Nil Then
+          list^.last^.next := Nil;
+      End;
+      If run^.data <> Nil Then
+      Begin
+        If user_free <> Nil Then
+        Begin
+          user_free(run^.data);
+        End;
+        free(run^.data);
+      End;
+      free(run);
+      Hermes_ListDeleteElement := True;
+      Exit;
+    End;
+    previous := run;
+    run := run^.next;
+  End;
+  Hermes_ListDeleteElement := False;
+End;
+
+Function Hermes_ListDeleteElement(list : PHermesList; handle : THermesHandle) : Boolean;
+
+Begin
+  Hermes_ListDeleteElement := Hermes_ListDeleteElement(list, handle, Nil);
+End;
+
+Function Hermes_ListLookup(list : PHermesList;
+                           handle : THermesHandle) : PHermesListElement;
+
+Var
+  run : PHermesListElement;
+
+Begin
+  If list = Nil Then
+  Begin
+    Hermes_ListLookup := Nil;
+    Exit;
+  End;
+  run := list^.first;
+  While run <> Nil Do
+  Begin
+    If run^.handle = handle Then
+    Begin
+      Hermes_ListLookup := run;
+      Exit;
+    End;
+    run := run^.next;
+  End;
+  Hermes_ListLookup := Nil;
+End;

packages/extra/hermes/malloc.pp

@@ -0,0 +1,31 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Function malloc(size : DWord) : Pointer;
+
+Begin
+  malloc := GetMem(size);
+End;
+
+Procedure free(ptr : Pointer);
+
+Begin
+  FreeMem(ptr);
+End;

packages/extra/hermes/p_16.pp

@@ -0,0 +1,795 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   16 bit to * converters for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+{ TO 32 BIT RGB }
+Procedure ConvertP_16rgb565_32rgb888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_pixel : int32;
+
+Begin
+  Repeat
+    d_pixel := Pshort16(source)^;
+
+    d_pixel := ((d_pixel And $f800) Shl 8) Or ((d_pixel And $7e0) Shl 5) Or
+               ((d_pixel And $1f) Shl 3) Or $030103;
+
+    Pint32(dest)^ := d_pixel;
+
+    Inc(source, 2);
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 32 BIT BGR }
+Procedure ConvertP_16rgb565_32bgr888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_pixel : int32;
+
+Begin
+  Repeat
+    d_pixel := Pshort16(source)^;
+
+    d_pixel := ((d_pixel And $f800) Shr 8) Or ((d_pixel And $7e0) Shl 5) Or
+               ((d_pixel And $1f) Shl 19) Or $030103;
+
+    Pint32(dest)^ := d_pixel;
+
+    Inc(source, 2);
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 32 BIT RGBA }
+Procedure ConvertP_16rgb565_32rgba888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_pixel : int32;
+
+Begin
+  Repeat
+    d_pixel := Pshort16(source)^;
+
+    d_pixel := ((d_pixel And $f800) Shl 8) Or ((d_pixel And $7e0) Shl 5) Or
+               ((d_pixel And $1f) Shl 3) Or $030103;
+
+    Pint32(dest)^ := (d_pixel Shl 8) Or $ff;
+
+    Inc(source, 2);
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 32 BIT BGRA }
+Procedure ConvertP_16rgb565_32bgra888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_pixel : int32;
+
+Begin
+  Repeat
+    d_pixel := Pshort16(source)^;
+
+    d_pixel := ((d_pixel And $f800) Shr 8) Or ((d_pixel And $7e0) Shl 5) Or
+               ((d_pixel And $1f) Shl 19) Or $030103;
+
+    Pint32(dest)^ := (d_pixel Shl 8) Or $ff;
+
+    Inc(source, 2);
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 24 BIT RGB }
+Procedure ConvertP_16rgb565_24rgb888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_pixel : int32;
+  d_ptr : Pchar8;
+
+Begin
+  d_ptr := @d_pixel;
+  Repeat
+    d_pixel := Pshort16(source)^;
+
+    d_pixel := ((d_pixel And $f800) Shl 8) Or ((d_pixel And $7e0) Shl 5) Or
+               ((d_pixel And $1f) Shl 3) Or $030103;
+
+    (dest + R_24)^ := (d_ptr + R_32)^;
+    (dest + G_24)^ := (d_ptr + G_32)^;
+    (dest + B_24)^ := (d_ptr + B_32)^;
+
+    Inc(source, 2);
+    Inc(dest, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 24 BIT BGR }
+Procedure ConvertP_16rgb565_24bgr888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_pixel : int32;
+  d_ptr : Pchar8;
+
+Begin
+  d_ptr := @d_pixel;
+  Repeat
+    d_pixel := Pshort16(source)^;
+
+    d_pixel := ((d_pixel And $f800) Shl 8) Or ((d_pixel And $7e0) Shl 5) Or
+               ((d_pixel And $1f) Shl 3) Or $030103;
+
+    { Red and blue are swapped here }
+    (dest + R_24)^ := (d_ptr + B_32)^;
+    (dest + G_24)^ := (d_ptr + G_32)^;
+    (dest + B_24)^ := (d_ptr + R_32)^;
+
+    Inc(source, 2);
+    Inc(dest, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 16 BIT BGR 565 }
+Procedure ConvertP_16rgb565_16bgr565(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  s_pixel : int32;
+
+Begin
+  { If we are not aligned to a dword, try and convert a single pixel }
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    s_pixel := Pshort16(source)^;
+
+    { Swap around R and B, leave G unchanged }
+    s_pixel := (s_pixel Shr 11) Or (s_pixel And $7e0) Or
+               ((s_pixel Shl 11) And $f800);
+
+    Pshort16(dest)^ := s_pixel;
+
+    Dec(count);
+    Inc(dest, 2); Inc(source, 2);
+  End;
+
+  { Now copy blocks of dwords }
+  For i := 1 To count Shr 1 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    { Leave G unchanged, shift R to the right and B to the left }
+    s_pixel := (s_pixel And $07e007e0) Or ((s_pixel And $f800f800) Shr 11) Or
+               ((s_pixel And $001f001f) Shl 11);
+
+    Pint32(dest)^ := s_pixel;
+    Inc(source, 4); Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := Pshort16(source)^;
+
+    { Swap around R and B, leave G unchanged }
+    s_pixel := (s_pixel Shr 11) Or (s_pixel And $7e0) Or
+               ((s_pixel Shl 11) And $f800);
+
+    Pshort16(dest)^ := s_pixel;
+  End;
+End;
+
+{ TO 16 BIT RGB 555 }
+Procedure ConvertP_16rgb565_16rgb555(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  s_pixel : int32;
+
+Begin
+  { If we are not aligned to a dword, try and convert a single pixel }
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    s_pixel := Pshort16(source)^;
+
+    { Leave blue untouched, mask red and shift by one, mask green and shift
+      by one }
+    s_pixel := (s_pixel And $1f) Or ((s_pixel And $f800) Shr 1) Or
+               ((s_pixel And $7c0) Shr 1);
+
+    Pshort16(dest)^ := s_pixel;
+
+    Dec(count);
+    Inc(dest, 2); Inc(source, 2);
+  End;
+
+  { Now copy blocks of dwords }
+  For i := 1 To count Shr 1 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    { Leave blue untouched, mask red and shift by one, mask green and shift
+      by one }
+    s_pixel := (s_pixel And $001f001f) Or ((s_pixel And $f800f800) Shr 1) Or
+               ((s_pixel And $07c007c0) Shr 1);
+
+    Pint32(dest)^ := s_pixel;
+    Inc(source, 4); Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := Pshort16(source)^;
+
+    { Leave blue untouched, mask red and shift by one, mask green and shift
+      by one }
+    s_pixel := (s_pixel And $1f) Or ((s_pixel And $f800) Shr 1) Or
+               ((s_pixel And $7c0) Shr 1);
+
+    Pshort16(dest)^ := s_pixel;
+  End;
+End;
+
+{ TO 16 BIT BGR 555 }
+Procedure ConvertP_16rgb565_16bgr555(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  s_pixel : int32;
+
+Begin
+  { If we are not aligned to a dword, try and convert a single pixel }
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    s_pixel := Pshort16(source)^;
+
+    { Shift red right by 11, mask green and shift right one, shift blue
+      left ten }
+    s_pixel := ((s_pixel And $f800) Shr 11) Or ((s_pixel And $7c0) Shr 1) Or
+               ((s_pixel And $1f) Shl 10);
+
+    Pshort16(dest)^ := s_pixel;
+
+    Dec(count);
+    Inc(dest, 2); Inc(source, 2);
+  End;
+
+  { Now copy blocks of dwords }
+  For i := 1 To count Shr 1 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    { Shift red right by 11, mask green and shift right one, shift blue
+      left ten }
+    s_pixel := ((s_pixel And $f800f800) Shr 11) Or
+               ((s_pixel And $07c007c0) Shr 1) Or
+               ((s_pixel And $001f001f) Shl 10);
+
+    Pint32(dest)^ := s_pixel;
+    Inc(source, 4); Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := Pshort16(source)^;
+
+    { Shift red right by 11, mask green and shift right one, shift blue
+      left ten }
+    s_pixel := ((s_pixel And $f800) Shr 11) Or ((s_pixel And $7c0) Shr 1) Or
+               ((s_pixel And $1f) Shl 10);
+
+    Pshort16(dest)^ := s_pixel;
+  End;
+End;
+
+{ TO 8 BIT RGB 332 }
+Procedure ConvertP_16rgb565_8rgb332(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_block, d_block : int32;
+  i : DWord;
+
+Begin
+  { Align to dword first }
+  While (PtrUInt(dest) And $3) <> 0 Do
+  Begin
+    s_block := Pshort16(source)^;
+
+    s_block := ((s_block And $e000) Shr 8) Or ((s_block And $0700) Shr 6) Or
+               ((s_block And $18) Shr 3);
+
+    dest^ := s_block;
+
+    Dec(count);
+    If count = 0 Then
+      Exit;
+
+    Inc(source, 2);
+    Inc(dest);
+  End;
+
+  { Write blocks of four pixels }
+  For i := 1 To count Shr 2 Do
+  Begin
+    { Read and process first two pixels }
+    s_block := Pint32(source)^;
+
+    d_block := ((s_block And $e000e000) Shr 8) Or
+               ((s_block And $07000700) Shr 6) Or
+               ((s_block And $00180018) Shr 3);
+    d_block := (d_block And $ff) Or ((d_block And $ff0000) Shr 8);
+
+    { And the second two }
+    s_block := (Pint32(source)+1)^;
+
+    s_block := ((s_block And $e000e000) Shr 8) Or
+               ((s_block And $07000700) Shr 6) Or
+               ((s_block And $00180018) Shr 3);
+    s_block := (s_block And $ff) Or ((s_block And $ff0000) Shr 8);
+
+    { Put it all in one dword and write it }
+    d_block := d_block Or (s_block Shl 16);
+
+    Pint32(dest)^ := d_block;
+    Inc(source, 8);
+    Inc(dest, 4);
+  End;
+
+  { Clean up remaining pixels }
+  count := count And 3;
+  While count > 0 Do
+  Begin
+    Dec(count);
+    s_block := Pshort16(source)^;
+
+    dest^ := ((s_block And $e000) Shr 8) Or ((s_block And $0700) Shr 6) Or
+             ((s_block And $18) Shr 3);
+    Inc(dest);
+    Inc(source, 2);
+  End;
+End;
+
+{ -------------------------------------------------------------------------
+
+                          STRETCH CONVERTERS
+
+  ------------------------------------------------------------------------- }
+
+
+Procedure ConvertP_16rgb565_32rgb888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  Repeat
+    p := (((Pshort16(source) + (x Shr 16))^ And $f800) Shl 8) Or
+         (((Pshort16(source) + (x Shr 16))^ And $7e0) Shl 5) Or
+         (((Pshort16(source) + (x Shr 16))^ And $1f) Shl 3) Or $30103;
+
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_16rgb565_32bgr888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_pixel : int32;
+  x : DWord;
+
+Begin
+  x := 0;
+
+  Repeat
+    d_pixel := (Pshort16(source) + (x Shr 16))^;
+
+    d_pixel := ((d_pixel And $f800) Shr 8) Or ((d_pixel And $7e0) Shl 5) Or
+               ((d_pixel And $1f) Shl 19) Or $30103;
+
+    Pint32(dest)^ := d_pixel;
+
+    Inc(dest, 4);
+    Inc(x, inc_source);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_16rgb565_32rgba888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  Repeat
+    p := (((Pshort16(source) + (x Shr 16))^ And $f800) Shl (8+8)) Or
+         (((Pshort16(source) + (x Shr 16))^ And $7e0) Shl (5+8)) Or
+         (((Pshort16(source) + (x Shr 16))^ And $1f) Shl (3+8)) Or $30103ff;
+
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_16rgb565_32bgra888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_pixel : int32;
+  x : DWord;
+
+Begin
+  x := 0;
+
+  Repeat
+    d_pixel := (Pshort16(source) + (x Shr 16))^;
+
+    d_pixel := ((d_pixel And $f800) {Shr 8}) Or ((d_pixel And $7e0) Shl (5+8)) Or
+               ((d_pixel And $1f) Shl (19+8)) Or $30103ff;
+
+    Pint32(dest)^ := d_pixel;
+
+    Inc(dest, 4);
+    Inc(x, inc_source);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_16rgb565_24rgb888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  p1, p2, p3, p4 : DWord;
+  c : DWord;
+
+Begin
+  x := 0;
+  While (PtrUInt(dest) And 3) <> 0 Do
+  Begin
+    p1 := (((Pshort16(source) + (x Shr 16))^ And $f800) Shl 8) Or
+          (((Pshort16(source) + (x Shr 16))^ And $7e0) Shl 5) Or
+          (((Pshort16(source) + (x Shr 16))^ And $1f) Shl 3) Or $30103;
+    Pshort16(dest)^ := p1 And $FFFF;
+    (dest + 2)^ := p1 Shr 16;
+    
+    Inc(dest, 3);
+    Inc(x, inc_source);
+    Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+  
+  c := count Shr 2;
+  While c > 0 Do
+  Begin
+    p1 := (Pshort16(source) + (x Shr 16))^;
+    p2 := (Pshort16(source) + ((x + inc_source) Shr 16))^;
+    p3 := (Pshort16(source) + ((x + 2*inc_source) Shr 16))^;
+    p4 := (Pshort16(source) + ((x + 3*inc_source) Shr 16))^;
+
+    Pint32(dest + 0)^ := ((p2 And $001F) Shl 27) Or ((p1 And $F800) Shl 8) Or ((p1 And $07E0) Shl 5) Or ((p1 And $001F) Shl 3) Or $03030103;
+    Pint32(dest + 4)^ := ((p3 And $07E0) Shl 21) Or ((p3 And $001F) Shl 19) Or (p2 And $F800) Or ((p2 And $07E0) Shr 3) Or $01030301;
+    Pint32(dest + 8)^ := ((p4 And $F800) Shl 16) Or ((p4 And $07E0) Shl 13) Or ((p4 And $001F) Shl 11) Or ((p3 And $F800) Shr 8) Or $03010303;
+    
+    Inc(x, 4*inc_source);
+    Inc(dest, 12);
+    Dec(c);
+  End;
+  
+  count := count And 3;
+  While count > 0 Do
+  Begin
+    p1 := (((Pshort16(source) + (x Shr 16))^ And $f800) Shl 8) Or
+          (((Pshort16(source) + (x Shr 16))^ And $7e0) Shl 5) Or
+          (((Pshort16(source) + (x Shr 16))^ And $1f) Shl 3) Or $30103;
+    Pshort16(dest)^ := p1 And $FFFF;
+    (dest + 2)^ := p1 Shr 16;
+    
+    Inc(dest, 3);
+    Inc(x, inc_source);
+    Dec(count);
+  End;
+End;
+
+Procedure ConvertP_16rgb565_24bgr888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  p1, p2, p3, p4 : DWord;
+  c : DWord;
+
+Begin
+  x := 0;
+  While (PtrUInt(dest) And 3) <> 0 Do
+  Begin
+    p1 := (((Pshort16(source) + (x Shr 16))^ And $f800) Shr 8) Or
+          (((Pshort16(source) + (x Shr 16))^ And $7e0) Shl 5) Or
+          (((Pshort16(source) + (x Shr 16))^ And $1f) Shl 19) Or $30103;
+    Pshort16(dest)^ := p1 And $FFFF;
+    (dest + 2)^ := p1 Shr 16;
+    
+    Inc(dest, 3);
+    Inc(x, inc_source);
+    Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+  
+  c := count Shr 2;
+  While c > 0 Do
+  Begin
+    p1 := (Pshort16(source) + (x Shr 16))^;
+    p2 := (Pshort16(source) + ((x + inc_source) Shr 16))^;
+    p3 := (Pshort16(source) + ((x + 2*inc_source) Shr 16))^;
+    p4 := (Pshort16(source) + ((x + 3*inc_source) Shr 16))^;
+
+    Pint32(dest + 0)^ := ((p2 And $F800) Shl 16) Or ((p1 And $001F) Shl 19) Or ((p1 And $07E0) Shl 5) Or ((p1 And $F800) Shr 8) Or $03030103;
+    Pint32(dest + 4)^ := ((p3 And $07E0) Shl 21) Or ((p3 And $F800) Shl 8) Or ((p2 And $001F) Shl 11) Or ((p2 And $07E0) Shr 3) Or $01030301;
+    Pint32(dest + 8)^ := ((p4 And $001F) Shl 27) Or ((p4 And $07E0) Shl 13) Or (p4 And $F800) Or ((p3 And $001F) Shl 3) Or $03010303;
+    
+    Inc(x, 4*inc_source);
+    Inc(dest, 12);
+    Dec(c);
+  End;
+  
+  count := count And 3;
+  While count > 0 Do
+  Begin
+    p1 := (((Pshort16(source) + (x Shr 16))^ And $f800) Shr 8) Or
+          (((Pshort16(source) + (x Shr 16))^ And $7e0) Shl 5) Or
+          (((Pshort16(source) + (x Shr 16))^ And $1f) Shl 19) Or $30103;
+    Pshort16(dest)^ := p1 And $FFFF;
+    (dest + 2)^ := p1 Shr 16;
+    
+    Inc(dest, 3);
+    Inc(x, inc_source);
+    Dec(count);
+  End;
+End;
+
+Procedure ConvertP_16rgb565_16bgr565_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { If we are not aligned to a dword, try and convert a single pixel }
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    { Swap r and b, leave g untouched }
+    Pshort16(dest)^ := ((Pshort16(source) + (x Shr 16))^ Shr 11) Or
+                       ((Pshort16(source) + (x Shr 16))^ And $7e0) Or
+                       (((Pshort16(source) + (x Shr 16))^ Shl 11) And $f800);
+    Inc(x, inc_source);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  c := count Shr 1;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+
+    { Swap r and b, leave g untouched }
+    p := ((Pshort16(source) + (x Shr 16))^ Shr 11) Or
+         ((Pshort16(source) + (x Shr 16))^ And $7e0) Or
+         (((Pshort16(source) + (x Shr 16))^ Shl 11) And $f800);
+    Inc(x, inc_source);
+
+    p := p Or ((((Pshort16(source) + (x Shr 16))^ Shr 11) Or
+                ((Pshort16(source) + (x Shr 16))^ And $7e0) Or
+                (((Pshort16(source) + (x Shr 16))^ Shl 11) And $f800)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+    Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := ((Pshort16(source) + (x Shr 16))^ Shr 11) Or
+                       ((Pshort16(source) + (x Shr 16))^ And $7e0) Or
+                       (((Pshort16(source) + (x Shr 16))^ Shl 11) And $f800);
+End;
+
+Procedure ConvertP_16rgb565_16rgb555_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { If we are not aligned to a dword, try and convert a single pixel }
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    Pshort16(dest)^ := (((Pshort16(source) + (x Shr 16))^ And $f800) Shr 1) Or
+                       (((Pshort16(source) + (x Shr 16))^ And $7c0) Shr 1) Or
+                       ((Pshort16(source) + (x Shr 16))^ And $1f);
+    Inc(dest, 2);
+    Inc(x, inc_source);
+    Dec(count);
+  End;
+
+  c := count Shr 1;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+
+    { Leave blue untouched, mask red and shift by one, mask green and shift
+      by one }
+    p := (((Pshort16(source) + (x Shr 16))^ And $f800) Shr 1) Or
+         (((Pshort16(source) + (x Shr 16))^ And $7c0) Shr 1) Or
+         ((Pshort16(source) + (x Shr 16))^ And $1f);
+    Inc(x, inc_source);
+
+    p := p Or (((((Pshort16(source) + (x Shr 16))^ And $f800) Shr 1) Or
+                (((Pshort16(source) + (x Shr 16))^ And $7c0) Shr 1) Or
+                ((Pshort16(source) + (x Shr 16))^ And $1f)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+    Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (((Pshort16(source) + (x Shr 16))^ And $f800) Shr 1) Or
+                       (((Pshort16(source) + (x Shr 16))^ And $7c0) Shr 1) Or
+                       ((Pshort16(source) + (x Shr 16))^ And $1f);
+End;
+
+Procedure ConvertP_16rgb565_16bgr555_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { If we are not aligned to a dword, try and convert a single pixel }
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    Pshort16(dest)^ := (((Pshort16(source) + (x Shr 16))^ And $f800) Shr 11) Or
+                       (((Pshort16(source) + (x Shr 16))^ And $7c0) Shr 1) Or
+                       (((Pshort16(source) + (x Shr 16))^ And $1f) Shl 10);
+    Inc(dest, 2);
+    Inc(x, inc_source);
+    Dec(count);
+  End;
+
+  c := count Shr 1;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+
+    p := (((Pshort16(source) + (x Shr 16))^ And $f800) Shr 11) Or
+         (((Pshort16(source) + (x Shr 16))^ And $7c0) Shr 1) Or
+         (((Pshort16(source) + (x Shr 16))^ And $1f) Shl 10);
+    Inc(x, inc_source);
+
+    p := p Or (((((Pshort16(source) + (x Shr 16))^ And $f800) Shr 11) Or
+                (((Pshort16(source) + (x Shr 16))^ And $7c0) Shr 1) Or
+                (((Pshort16(source) + (x Shr 16))^ And $1f) Shl 10)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+    Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (((Pshort16(source) + (x Shr 16))^ And $f800) Shr 11) Or
+                       (((Pshort16(source) + (x Shr 16))^ And $7c0) Shr 1) Or
+                       (((Pshort16(source) + (x Shr 16))^ And $1f) Shl 10);
+End;
+
+Procedure ConvertP_16rgb565_8rgb332_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+
+  { Write single pixels until the destination address is aligned mod 4 }
+  While (PtrUInt(dest) And $3) <> 0 Do
+  Begin
+    dest^ := (((Pshort16(source) + (x Shr 16))^ Shr 8) And $e0) Or
+             (((Pshort16(source) + (x Shr 16))^ Shr 6) And $1c) Or
+             (((Pshort16(source) + (x Shr 16))^ Shr 3) And $3);
+    Inc(x, inc_source);
+    Inc(dest);
+    Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+
+
+  {* Write blocks of four pixels now }
+  c := count Shr 2;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pshort16(source) + (x Shr 16))^ Shr 8) And $e0) Or
+         (((Pshort16(source) + (x Shr 16))^ Shr 6) And $1c) Or
+         (((Pshort16(source) + (x Shr 16))^ Shr 3) And $3);
+    Inc(x, inc_source);
+
+    p := p Or
+      (((((Pshort16(source) + (x Shr 16))^ Shr 8) And $e0) Or
+        (((Pshort16(source) + (x Shr 16))^ Shr 6) And $1c) Or
+        (((Pshort16(source) + (x Shr 16))^ Shr 3) And $3)) Shl 8);
+    Inc(x, inc_source);
+
+    p := p Or
+      (((((Pshort16(source) + (x Shr 16))^ Shr 8) And $e0) Or
+        (((Pshort16(source) + (x Shr 16))^ Shr 6) And $1c) Or
+        (((Pshort16(source) + (x Shr 16))^ Shr 3) And $3)) Shl 16);
+    Inc(x, inc_source);
+
+    p := p Or
+      (((((Pshort16(source) + (x Shr 16))^ Shr 8) And $e0) Or
+        (((Pshort16(source) + (x Shr 16))^ Shr 6) And $1c) Or
+        (((Pshort16(source) + (x Shr 16))^ Shr 3) And $3)) Shl 24);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+  End;
+
+  { Write up to three trailing pixels }
+  c := count And $3;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    dest^ := (((Pshort16(source) + (x Shr 16))^ Shr 8) And $e0) Or
+             (((Pshort16(source) + (x Shr 16))^ Shr 6) And $1c) Or
+             (((Pshort16(source) + (x Shr 16))^ Shr 3) And $3);
+    Inc(x, inc_source);
+    Inc(dest);
+  End;
+End;

packages/extra/hermes/p_24.pp

@@ -0,0 +1,691 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   Generic C converter (from 24 bit) for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+{ -------------------------------------------------------------------------
+
+                             NORMAL CONVERTERS
+
+  ------------------------------------------------------------------------- }
+{ FROM 24 BIT ROUTINES }
+Procedure ConvertP_24rgb888_32rgb888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+
+Begin
+  Repeat
+    d_block := ((source + R_24)^ Shl 16) Or
+               ((source + G_24)^ Shl 8) Or
+               (source + B_24)^;
+    Pint32(dest)^ := d_block;
+    Inc(dest, 4);
+    Inc(source, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_24rgb888_32bgr888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+
+Begin
+  Repeat
+    d_block := (source + R_24)^ Or
+               ((source + G_24)^ Shl 8) Or
+               ((source + B_24)^ Shl 16);
+    Pint32(dest)^ := d_block;
+    Inc(dest, 4);
+    Inc(source, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_24rgb888_32rgba888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+
+Begin
+  Repeat
+    d_block := ((source + R_24)^ Shl 24) Or
+               ((source + G_24)^ Shl 16) Or
+               ((source + B_24)^ Shl 8) Or $ff;
+    Pint32(dest)^ := d_block;
+    Inc(dest, 4);
+    Inc(source, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_24rgb888_32bgra888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+
+Begin
+  Repeat
+    d_block := ((source + R_24)^ Shl 8) Or
+               ((source + G_24)^ Shl 16) Or
+               ((source + B_24)^ Shl 24) Or $ff;
+    Pint32(dest)^ := d_block;
+    Inc(dest, 4);
+    Inc(source, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_24rgb888_24bgr888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_pix1, d_pix2, d_pix3 : int32;
+  c_pix1, c_pix2, c_pix3 : Pchar8;
+  c : DWord;
+  tmp : char8;
+
+Begin
+  While ((PtrUInt(dest) And 3) <> 0) And (count > 0) Do
+  Begin
+    (dest + 0)^ := (source + 2)^;
+    (dest + 1)^ := (source + 1)^;
+    (dest + 2)^ := (source + 0)^;
+    Dec(count);
+    Inc(dest, 3);
+    Inc(source, 3);
+  End;
+  
+  c_pix1 := @d_pix1;
+  c_pix2 := @d_pix2;
+  c_pix3 := @d_pix3;
+
+  c := count Shr 2;
+  While c > 0 Do
+  Begin
+    d_pix1 := Pint32(source)^;
+    d_pix2 := Pint32(source + 4)^;
+    d_pix3 := Pint32(source + 8)^;
+
+    { Swap R and B in all three pixels }
+    tmp := (c_pix1 + 0)^; (c_pix1 + 0)^ := (c_pix1 + 2)^; (c_pix1 + 2)^ := tmp;
+    tmp := (c_pix1 + 3)^; (c_pix1 + 3)^ := (c_pix2 + 1)^; (c_pix2 + 1)^ := tmp;
+    tmp := (c_pix2 + 2)^; (c_pix2 + 2)^ := (c_pix3 + 0)^; (c_pix3 + 0)^ := tmp;
+    tmp := (c_pix3 + 1)^; (c_pix3 + 1)^ := (c_pix3 + 3)^; (c_pix3 + 3)^ := tmp;
+
+    Pint32(dest)^ := d_pix1;
+    Pint32(dest + 4)^ := d_pix2;
+    Pint32(dest + 8)^ := d_pix3;
+    Inc(dest, 12);
+    Inc(source, 12);
+    Dec(c);
+  End;
+
+  count := count And $3;
+  While count > 0 Do
+  Begin
+    (dest + 0)^ := (source + 2)^;
+    (dest + 1)^ := (source + 1)^;
+    (dest + 2)^ := (source + 0)^;
+    Dec(count);
+    Inc(dest, 3);
+    Inc(source, 3);
+  End;
+End;
+
+Procedure ConvertP_24rgb888_16rgb565(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+  i : DWord;
+
+Begin
+  For i := 0 To (count Shr 1) - 1 Do
+  Begin
+    d_block := (((source + R_24)^ Shl 8) And $f800) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shr 3) And $1f);
+
+    d_block := d_block Or
+             (((((source + R_24 + 3)^ Shl 8) And $f800) Or
+               (((source + G_24 + 3)^ Shl 3) And $7e0) Or
+               (((source + B_24 + 3)^ Shr 3) And $1f)) Shl 16);
+
+    Pint32(dest)^ := d_block;
+    Inc(source, 6);
+    Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shl 8) And $f800) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shr 3) And $1f);
+
+    Pshort16(dest)^ := d_block;
+  End;
+End;
+
+Procedure ConvertP_24rgb888_16bgr565(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+  i : DWord;
+
+Begin
+  For i := 0 To (count Shr 1) - 1 Do
+  Begin
+    d_block := (((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shl 8) And $f800);
+
+    d_block := d_block Or
+             (((((source + R_24 + 3)^ Shr 3) And $1f) Or
+               (((source + G_24 + 3)^ Shl 3) And $7e0) Or
+               (((source + B_24 + 3)^ Shl 8) And $f800)) Shl 16);
+
+    Pint32(dest)^ := d_block;
+    Inc(source, 6);
+    Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shl 8) And $f800);
+
+    Pshort16(dest)^ := d_block;
+  End;
+End;
+
+Procedure ConvertP_24rgb888_16rgb555(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+  i : DWord;
+
+Begin
+  For i := 0 To (count Shr 1) - 1 Do
+  Begin
+    d_block := (((source + R_24)^ Shl 7) And $7c00) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shr 3) And $1f);
+
+    d_block := d_block Or
+             (((((source + R_24 + 3)^ Shl 7) And $7c00) Or
+               (((source + G_24 + 3)^ Shl 2) And $3e0) Or
+               (((source + B_24 + 3)^ Shr 3) And $1f)) Shl 16);
+
+    Pint32(dest)^ := d_block;
+    Inc(source, 6);
+    Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shl 7) And $7c00) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shr 3) And $1f);
+
+    Pshort16(dest)^ := d_block;
+  End;
+End;
+
+Procedure ConvertP_24rgb888_16bgr555(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+  i : DWord;
+
+Begin
+  For i := 0 To (count Shr 1) - 1 Do
+  Begin
+    d_block := (((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shl 7) And $7c00);
+
+    d_block := d_block Or
+             (((((source + R_24 + 3)^ Shr 3) And $1f) Or
+               (((source + G_24 + 3)^ Shl 2) And $3e0) Or
+               (((source + B_24 + 3)^ Shl 7) And $7c00)) Shl 16);
+
+    Pint32(dest)^ := d_block;
+    Inc(source, 6);
+    Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shl 7) And $7c00);
+
+    Pshort16(dest)^ := d_block;
+  End;
+End;
+
+{ optimise me !! }
+
+Procedure ConvertP_24rgb888_8rgb332(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  r, g, b : int32;
+  i : DWord;
+
+Begin
+  For i := 0 To count - 1 Do
+  Begin
+    r := (source + R_24)^ And $e0;
+    g := ((source + G_24)^ Shr 3) And $1c;
+    b := ((source + B_24)^ Shr 6) And $3;
+
+    dest^ := r Or g Or b;
+    Inc(source, 3);
+    Inc(dest);
+  End;
+End;
+
+{ -------------------------------------------------------------------------
+
+                             STRETCH CONVERTERS
+
+  ------------------------------------------------------------------------- }
+Procedure ConvertP_24rgb888_32rgb888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+
+Begin
+  x := 0;
+  Repeat
+    Pint32(dest)^ := ((source + R_24)^ Shl 16) Or
+                     ((source + G_24)^ Shl 8) Or
+                      (source + B_24)^;
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_24rgb888_32bgr888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+
+Begin
+  x := 0;
+  Repeat
+    Pint32(dest)^ :=  (source + R_24)^ Or
+                     ((source + G_24)^ Shl 8) Or
+                     ((source + B_24)^ Shl 16);
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_24rgb888_32rgba888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+
+Begin
+  x := 0;
+  Repeat
+    Pint32(dest)^ := ((((source + R_24)^ Shl 16) Or
+                       ((source + G_24)^ Shl 8) Or
+                        (source + B_24)^) Shl 8) Or $FF;
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_24rgb888_32bgra888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+
+Begin
+  x := 0;
+  Repeat
+    Pint32(dest)^ :=  (((source + R_24)^ Or
+                       ((source + G_24)^ Shl 8) Or
+                       ((source + B_24)^ Shl 16)) Shl 8) Or $FF;
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_24rgb888_24bgr888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : int32;
+
+Begin
+  x := 0;
+  Repeat
+    (dest + 0)^ := (source + 2)^;
+    (dest + 1)^ := (source + 1)^;
+    (dest + 2)^ := (source + 0)^;
+
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+    Inc(dest, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_24rgb888_16rgb565_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+  x : DWord;
+  c : DWord;
+
+Begin
+  x := 0;
+  If (PtrUInt(dest) And 3) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shl 8) And $f800) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shr 3) And $1f);
+
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    Pshort16(dest)^ := d_block;
+    Inc(dest, 2);
+  End;
+  c := count Shr 1;
+  While c > 0 Do
+  Begin
+    d_block := (((source + R_24)^ Shl 8) And $f800) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shr 3) And $1f);
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    d_block := d_block Or
+             (((((source + R_24)^ Shl 8) And $f800) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shr 3) And $1f)) Shl 16);
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    Pint32(dest)^ := d_block;
+    Inc(dest, 4);
+    Dec(c);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shl 8) And $f800) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shr 3) And $1f);
+
+    Pshort16(dest)^ := d_block;
+  End;
+End;
+
+Procedure ConvertP_24rgb888_16bgr565_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+  x : DWord;
+  c : DWord;
+
+Begin
+  x := 0;
+  If (PtrUInt(dest) And 3) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shl 8) And $f800);
+
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    Pshort16(dest)^ := d_block;
+    Inc(dest, 2);
+  End;
+  c := count Shr 1;
+  While c > 0 Do
+  Begin
+    d_block := (((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shl 8) And $f800);
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    d_block := d_block Or
+              (((((source + R_24)^ Shr 3) And $1f) Or
+                (((source + G_24)^ Shl 3) And $7e0) Or
+                (((source + B_24)^ Shl 8) And $f800)) Shl 16);
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    Pint32(dest)^ := d_block;
+    Inc(dest, 4);
+    Dec(c);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 3) And $7e0) Or
+               (((source + B_24)^ Shl 8) And $f800);
+
+    Pshort16(dest)^ := d_block;
+  End;
+End;
+
+Procedure ConvertP_24rgb888_16rgb555_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+  x : DWord;
+  c : DWord;
+
+Begin
+  x := 0;
+  If (PtrUInt(dest) And 3) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shl 7) And $7c00) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shr 3) And $1f);
+
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    Pshort16(dest)^ := d_block;
+    Inc(dest, 2);
+  End;
+  c := count Shr 1;
+  While c > 0 Do
+  Begin
+    d_block := (((source + R_24)^ Shl 7) And $7c00) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shr 3) And $1f);
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    d_block := d_block Or
+               (((((source + R_24)^ Shl 7) And $7c00) Or
+                (((source + G_24)^ Shl 2) And $3e0) Or
+                (((source + B_24)^ Shr 3) And $1f)) Shl 16);
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    Pint32(dest)^ := d_block;
+    Inc(dest, 4);
+    Dec(c);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shl 7) And $7c00) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shr 3) And $1f);
+
+    Pshort16(dest)^ := d_block;
+  End;
+End;
+
+Procedure ConvertP_24rgb888_16bgr555_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  d_block : int32;
+  x : DWord;
+  c : DWord;
+
+Begin
+  x := 0;
+  If (PtrUInt(dest) And 3) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shl 7) And $7c00);
+
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    Pshort16(dest)^ := d_block;
+    Inc(dest, 2);
+  End;
+  c := count Shr 1;
+  While c > 0 Do
+  Begin
+    d_block := (((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shl 7) And $7c00);
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    d_block := d_block Or
+             (((((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shl 7) And $7c00)) Shl 16);
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+
+    Pint32(dest)^ := d_block;
+    Inc(dest, 4);
+    Dec(c);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    d_block := (((source + R_24)^ Shr 3) And $1f) Or
+               (((source + G_24)^ Shl 2) And $3e0) Or
+               (((source + B_24)^ Shl 7) And $7c00);
+
+    Pshort16(dest)^ := d_block;
+  End;
+End;
+
+Procedure ConvertP_24rgb888_8rgb332_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  r, g, b : int32;
+  i : DWord;
+  x : DWord;
+
+Begin
+  x := 0;
+  For i := 0 To count - 1 Do
+  Begin
+    r := (source + R_24)^ And $e0;
+    g := ((source + G_24)^ Shr 3) And $1c;
+    b := ((source + B_24)^ Shr 6) And $3;
+
+    dest^ := r Or g Or b;
+    Inc(x, inc_source);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    Inc(source, x Shr 16);
+    x := x And $FFFF;
+    Inc(dest);
+  End;
+End;

packages/extra/hermes/p_32.pp

@@ -0,0 +1,943 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   32 bit to * converters for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+{ -------------------------------------------------------------------------
+
+                             NORMAL CONVERTERS
+
+  ------------------------------------------------------------------------- }
+
+
+{ TO 32 BGR }
+Procedure ConvertP_32rgb888_32bgr888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_pixel : int32;
+  s_ptr : Pchar8;
+  tmp : char8;
+
+Begin
+  s_ptr := @s_pixel;
+  Repeat
+    s_pixel := Pint32(source)^;
+
+    tmp := (s_ptr + R_32)^;
+    (s_ptr + R_32)^ := (s_ptr + B_32)^;
+    (s_ptr + B_32)^ := tmp;
+
+    Pint32(dest)^ := s_pixel;
+
+    Inc(dest, 4);
+    Inc(source, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ 32 RGBA }
+Procedure ConvertP_32rgb888_32rgba888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Begin
+  Repeat
+    Pint32(dest)^ := (Pint32(source)^ Shl 8) Or $ff;
+
+    Inc(dest, 4);
+    Inc(source, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ 32 BGRA }
+Procedure ConvertP_32rgb888_32bgra888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_pixel : int32;
+  s_ptr : Pchar8;
+  tmp : char8;
+
+Begin
+  s_ptr := @s_pixel;
+  Repeat
+    s_pixel := Pint32(source)^;
+
+    tmp := (s_ptr + R_32)^;
+    (s_ptr + R_32)^ := (s_ptr + B_32)^;
+    (s_ptr + B_32)^ := tmp;
+
+    Pint32(dest)^ := (s_pixel Shl 8) Or $ff;
+
+    Inc(dest, 4);
+    Inc(source, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 24 RGB }
+Procedure ConvertP_32rgb888_24rgb888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_pixel, s_pixel2 : int32;
+  s_point : Pchar8;
+  c : DWord;
+
+Begin
+  s_point := @s_pixel;
+
+  { Align mod 4 (quite important in this case.. ) }
+
+  While (PtrUInt(dest) And $3) <> 0 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    (dest + R_24)^ := (s_point + R_32)^;
+    (dest + G_24)^ := (s_point + G_32)^;
+    (dest + B_24)^ := (s_point + B_32)^;
+
+    Inc(source, 4);
+    Inc(dest, 3);
+
+    Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+
+  { Main loop. TODO: Big endian check! }
+
+  c := count Shr 2;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    s_pixel := Pint32(source)^;
+    s_pixel2 := (Pint32(source) + 1)^;
+
+    s_pixel := (s_pixel And $ffffff) Or (s_pixel2 Shl 24);
+    Pint32(dest)^ := s_pixel;
+
+    s_pixel := (Pint32(source) + 2)^;
+    s_pixel2 := ((s_pixel2 Shr 8) And $ffff) Or (s_pixel Shl 16);
+    (Pint32(dest) + 1)^ := s_pixel2;
+
+    s_pixel2 := (Pint32(source) + 3)^;
+    s_pixel := ((s_pixel Shr 16) And $ff) Or (s_pixel2 Shl 8);
+    (Pint32(dest) + 2)^ := s_pixel;
+
+    Inc(source, 16);
+    Inc(dest, 12);
+  End;
+
+  { Convert trailing pixels }
+
+  count := count And $3;
+  While count <> 0 Do
+  Begin
+    Dec(count);
+    s_pixel := Pint32(source)^;
+
+    (dest + R_24)^ := (s_point + R_32)^;
+    (dest + G_24)^ := (s_point + G_32)^;
+    (dest + B_24)^ := (s_point + B_32)^;
+
+    Inc(source, 4);
+    Inc(dest, 3);
+  End;
+End;
+
+{ TO 24 BGR }
+Procedure ConvertP_32rgb888_24bgr888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_pixel : int32;
+  s_point : Pchar8;
+
+Begin
+  s_point := @s_pixel;
+  Repeat
+    s_pixel := Pint32(source)^;
+
+    { Note that R and B are swapped }
+    (dest + B_24)^ := (s_point + R_32)^;
+    (dest + G_24)^ := (s_point + G_32)^;
+    (dest + R_24)^ := (s_point + B_32)^;
+
+    Inc(source, 4);
+    Inc(dest, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 16 RGB 565 }
+Procedure ConvertP_32rgb888_16rgb565(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  s_pixel : int32;
+  source_32, dest_32 : Pint32;
+
+Begin
+  dest_32 := Pint32(dest);
+  source_32 := Pint32(source);
+
+  { If the current pixel isn't dword aligned, try write one pixel first }
+  If (PtrUInt(dest_32) And $3) <> 0 Then
+  Begin
+    s_pixel := ((source_32^ Shr 8) And $f800) Or
+               ((source_32^ Shr 5) And $7e0) Or
+               ((source_32^ Shr 3) And $1f);
+
+    Pshort16(dest_32)^ := s_pixel;
+
+    dest_32 := Pint32(dest + 2);
+    Inc(source_32);
+
+    Dec(count);
+  End;
+
+  { Write blocks of two pixels }
+
+  For i := 1 To count Shr 1 Do
+  Begin
+    {This horrible construct is actually faster than loading into a variable}
+    dest_32^ := ((source_32^ Shr 8) And $f800) Or
+                ((source_32^ Shr 5) And $7e0) Or
+                ((source_32^ Shr 3) And $1f) Or
+                (((source_32 + 1)^ Shl 8) And $f8000000) Or
+                (((source_32 + 1)^ Shl 11) And $7e00000) Or
+                (((source_32 + 1)^ Shl 13) And $1f0000);
+
+    Inc(dest_32);
+    Inc(source_32, 2);
+  End;
+
+  { Eventually, write a single odd pixel that might be left }
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := source_32^;
+    Pshort16(dest_32)^ := ((s_pixel Shr 8) And $f800) Or
+                          ((s_pixel Shr 5) And $7e0) Or
+                          ((s_pixel Shr 3) And $1f);
+  End;
+End;
+
+{ TO 16 BGR 565 }
+Procedure ConvertP_32rgb888_16bgr565(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  r, g, b : int32;
+  s_pixel, d_pixelblock : int32;
+  d_pixel : short16;
+
+Begin
+  { If the current pixel isn't dword aligned, try write one pixel first }
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+
+    r := (s_pixel Shr 19) And $1f;
+    g := (s_pixel Shr 5) And $7e0;
+    b := (s_pixel Shl 8) And $f800;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+
+    Inc(source, 4);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  { Write blocks of two pixels }
+  For i := 1 To count Shr 1 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    d_pixelblock := ((s_pixel Shr 19) And $1f) Or
+                    ((s_pixel Shr 5) And $7e0) Or
+                    ((s_pixel Shl 8) And $f800);
+
+    s_pixel := (Pint32(source) + 1)^;
+
+    d_pixelblock := d_pixelblock Or
+                  ((((s_pixel Shr 19) And $1f) Or
+                    ((s_pixel Shr 5) And $7e0) Or
+                    ((s_pixel Shl 8) And $f800)) Shl 16);
+
+    Pint32(dest)^ := d_pixelblock;
+    Inc(source, 8);
+    Inc(dest, 4);
+  End;
+
+  { Eventually, write a single odd pixel that might be left }
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+
+    r := (s_pixel Shr 19) And $1f;
+    g := (s_pixel Shr 5) And $7e0;
+    b := (s_pixel Shl 8) And $f800;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+  End;
+End;
+
+{ TO 16 RGB 555 }
+Procedure ConvertP_32rgb888_16rgb555(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  r, g, b : int32;
+  s_pixel, d_pixelblock : int32;
+  d_pixel : short16;
+  i : DWord;
+
+Begin
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+
+    r := (s_pixel Shr 9) And $7c00;
+    g := (s_pixel Shr 6) And $3e0;
+    b := (s_pixel Shr 3) And $1f;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+
+    Inc(source, 4);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  For i := 1 To count Shr 1 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    d_pixelblock := ((s_pixel Shr 9) And $7c00) Or
+                    ((s_pixel Shr 6) And $3e0) Or
+                    ((s_pixel Shr 3) And $1f);
+
+    s_pixel := (Pint32(source) + 1)^;
+
+    d_pixelblock := d_pixelblock Or
+                  ((((s_pixel Shr 9) And $7c00) Or
+                    ((s_pixel Shr 6) And $3e0) Or
+                    ((s_pixel Shr 3) And $1f)) Shl 16);
+
+    Pint32(dest)^ := d_pixelblock;
+    Inc(source, 8);
+    Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+
+    r := (s_pixel Shr 9) And $7c00;
+    g := (s_pixel Shr 6) And $3e0;
+    b := (s_pixel Shr 3) And $1f;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+  End;
+End;
+
+{ TO 16 BGR 555 }
+Procedure ConvertP_32rgb888_16bgr555(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  r, g, b : int32;
+  s_pixel, d_pixelblock : int32;
+  d_pixel : short16;
+  i : DWord;
+
+Begin
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+
+    r := (s_pixel Shr 19) And $1f;
+    g := (s_pixel Shr 6) And $3e0;
+    b := (s_pixel Shl 7) And $7c00;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+
+    Inc(source, 4);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  For i := 1 To count Shr 1 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    d_pixelblock := ((s_pixel Shr 19) And $1f) Or
+                    ((s_pixel Shr 6) And $3e0) Or
+                    ((s_pixel Shl 7) And $7c00);
+
+    s_pixel := (Pint32(source) + 1)^;
+
+    d_pixelblock := d_pixelblock Or
+                  ((((s_pixel Shr 19) And $1f) Or
+                    ((s_pixel Shr 6) And $3e0) Or
+                    ((s_pixel Shl 7) And $7c00)) Shl 16);
+
+    Pint32(dest)^ := d_pixelblock;
+    Inc(source, 8);
+    Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+
+    r := (s_pixel Shr 19) And $1f;
+    g := (s_pixel Shr 6) And $3e0;
+    b := (s_pixel Shl 7) And $7c00;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+  End;
+End;
+
+{ TO 8 RGB 332 }
+Procedure ConvertP_32rgb888_8rgb332(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  s_pixel, d_block : int32;
+  d_pixel : char8;
+
+Begin
+  { Process single pixels until we are dword aligned }
+  While (PtrUInt(dest) And $3) <> 0 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    d_pixel := ((s_pixel Shr 16) And $e0) Or
+               ((s_pixel Shr 11) And $1c) Or
+               ((s_pixel Shr 6) And $3);
+
+    dest^ := d_pixel;
+
+    Dec(count);
+    If count = 0 Then
+      Exit;
+    Inc(dest);
+    Inc(source, 4);
+  End;
+
+  { Now process blocks of four pixels }
+  For i := 1 To count Shr 2 Do
+  Begin
+    s_pixel := Pint32(source)^;
+    d_block := ((s_pixel Shr 16) And $e0) Or
+               ((s_pixel Shr 11) And $1c) Or
+               ((s_pixel Shr 6) And $3);
+
+    s_pixel := (Pint32(source) + 1)^;
+    d_block := ((((s_pixel Shr 16) And $e0) Or
+                 ((s_pixel Shr 11) And $1c) Or
+                 ((s_pixel Shr 6) And $3)) Shl 8) Or d_block;
+
+    s_pixel := (Pint32(source) + 2)^;
+    d_block := ((((s_pixel Shr 16) And $e0) Or
+                 ((s_pixel Shr 11) And $1c) Or
+                 ((s_pixel Shr 6) And $3)) Shl 16) Or d_block;
+
+    s_pixel := (Pint32(source) + 3)^;
+    d_block := ((((s_pixel Shr 16) And $e0) Or
+                 ((s_pixel Shr 11) And $1c) Or
+                 ((s_pixel Shr 6) And $3)) Shl 24) Or d_block;
+
+    Pint32(dest)^ := d_block;
+    Inc(source, 16);
+    Inc(dest, 4);
+  End;
+
+  { Write all possibly remaining pixel }
+  count := count And $3;
+  While count <> 0 Do
+  Begin
+    Dec(count);
+    s_pixel := Pint32(source)^;
+
+    dest^ := ((s_pixel Shr 16) And $e0) Or
+             ((s_pixel Shr 11) And $1c) Or
+             ((s_pixel Shr 6) And $3);
+
+    Inc(dest);
+    Inc(source, 4);
+  End;
+End;
+
+{ -------------------------------------------------------------------------
+
+                             STRETCH CONVERTERS
+
+  ------------------------------------------------------------------------- }
+
+Procedure ConvertP_32rgb888_32bgr888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  s_pixel : int32;
+  s_ptr : Pchar8;
+  tmp : char8;
+
+Begin
+  x := 0;
+  s_ptr := @s_pixel;
+  Repeat
+    s_pixel := (Pint32(source)+(x Shr 16))^;
+
+    tmp := (s_ptr + R_32)^;
+    (s_ptr + R_32)^ := (s_ptr + B_32)^;
+    (s_ptr + B_32)^ := tmp;
+
+    Pint32(dest)^ := s_pixel;
+
+    Inc(dest, 4);
+    Inc(x, inc_source);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_32rgb888_32rgba888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+
+Begin
+  x := 0;
+  Repeat
+    Pint32(dest)^ := ((Pint32(source) + (x Shr 16))^ Shl 8) Or $ff;
+
+    Inc(dest, 4);
+    Inc(x, inc_source);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_32rgb888_32bgra888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  s_pixel : int32;
+  s_ptr : Pchar8;
+  tmp : char8;
+
+Begin
+  x := 0;
+  s_ptr := @s_pixel;
+  Repeat
+    s_pixel := (Pint32(source)+(x Shr 16))^;
+
+    tmp := (s_ptr + R_32)^;
+    (s_ptr + R_32)^ := (s_ptr + B_32)^;
+    (s_ptr + B_32)^ := tmp;
+
+    Pint32(dest)^ := (s_pixel Shl 8) Or $ff;
+
+    Inc(dest, 4);
+    Inc(x, inc_source);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure ConvertP_32rgb888_24rgb888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  s1, s2 : DWord;
+
+Begin
+  x := 0;
+  While (PtrUInt(dest) And 3) <> 0 Do
+  Begin
+    Pshort16(dest)^ := Pshort16(source)^;
+    (dest + 2)^ := (source + 2)^;
+    
+    Inc(x, inc_source);
+    Inc(source, (x Shr 16)*4);
+    x := x And $FFFF;
+    
+    Inc(dest, 3);
+    Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+  
+  c := count Shr 2;
+  While c > 0 Do
+  Begin
+    s1 := (Pint32(source) + ((x + inc_source) Shr 16))^ And $FFFFFF;
+    Pint32(dest)^ := ((Pint32(source) + (x Shr 16))^ And $FFFFFF) Or (s1 Shl 24);
+    s2 := (Pint32(source) + ((x + 2*inc_source) Shr 16))^ And $FFFFFF;
+    Pint32(dest + 4)^ := (s1 Shr 8) Or (s2 Shl 16);
+    Pint32(dest + 8)^ := (s2 Shr 16) Or ((Pint32(source) + ((x + 3*inc_source) Shr 16))^ Shl 8);
+    Inc(x, 4*inc_source);
+    
+    Inc(dest, 12);
+    Dec(c);
+  End;
+  Inc(source, (x Shr 16) * 4);
+  x := x And $FFFF;
+  
+  count := count And $3;
+  While count > 0 Do
+  Begin
+    Pshort16(dest)^ := Pshort16(source)^;
+    (dest + 2)^ := (source + 2)^;
+    
+    Inc(x, inc_source);
+    Inc(source, (x Shr 16)*4);
+    x := x And $FFFF;
+    
+    Inc(dest, 3);
+    Dec(count);
+  End;
+End;
+
+Procedure ConvertP_32rgb888_24bgr888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  s1, s2, s3, s4 : DWord;
+
+Begin
+  x := 0;
+  While (PtrUInt(dest) And 3) <> 0 Do
+  Begin
+    (dest)^ := (source + 2)^;
+    (dest + 1)^ := (source + 1)^;
+    (dest + 2)^ := (source)^;
+    
+    Inc(x, inc_source);
+    Inc(source, (x Shr 16)*4);
+    x := x And $FFFF;
+    
+    Inc(dest, 3);
+    Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+  
+  c := count Shr 2;
+  While c > 0 Do
+  Begin
+    s1 := (Pint32(source) + (x Shr 16))^;
+    s2 := (Pint32(source) + ((x + inc_source) Shr 16))^;
+    s3 := (Pint32(source) + ((x + 2*inc_source) Shr 16))^;
+    s4 := (Pint32(source) + ((x + 3*inc_source) Shr 16))^;
+    
+    Pint32(dest + 0)^ := ((s2 And $FF0000) Shl 8) Or ((s1 And $FF) Shl 16) Or (s1 And $FF00) Or ((s1 Shr 16) And $FF);
+    Pint32(dest + 4)^ := ((s3 And $FF00) Shl 16) Or (s3 And $FF0000) Or ((s2 And $FF) Shl 8) Or ((s2 Shr 8) And $FF);
+    Pint32(dest + 8)^ := ((s4 And $FF) Shl 24) Or ((s4 And $FF00) Shl 8) Or ((s4 Shr 8) And $FF00) Or (s3 And $FF);
+    
+    Inc(x, 4*inc_source);
+    
+    Inc(dest, 12);
+    Dec(c);
+  End;
+  Inc(source, (x Shr 16) * 4);
+  x := x And $FFFF;
+  
+  count := count And $3;
+  While count > 0 Do
+  Begin
+    (dest)^ := (source + 2)^;
+    (dest + 1)^ := (source + 1)^;
+    (dest + 2)^ := (source)^;
+    
+    Inc(x, inc_source);
+    Inc(source, (x Shr 16)*4);
+    x := x And $FFFF;
+    
+    Inc(dest, 3);
+    Dec(count);
+  End;
+End;
+
+Procedure ConvertP_32rgb888_16rgb565_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Align mod 4 }
+  If (PtrUInt(dest) And 3) <> 0 Then
+  Begin
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 8) And $f800) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 5) And $7e0) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f);
+    Inc(x, inc_source);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  { Try to write 2 pixel blocks }
+  c := count Shr 1;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pint32(source) + (x Shr 16))^ Shr 8) And $f800) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 5) And $7e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 8) And $f800) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 5) And $7e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+  End;
+
+  { Write trailing pixel }
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 8) And $f800) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 5) And $7e0) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f);
+End;
+
+Procedure ConvertP_32rgb888_16bgr565_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Align mod 4 }
+  If (PtrUInt(dest) And 3) <> 0 Then
+  Begin
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 19) And $1f) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 5) And $7e0) Or
+                       (((Pint32(source) + (x Shr 16))^ Shl 8) And $f800);
+    Inc(x, inc_source);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  { Try to write 2 pixel blocks }
+  c := count Shr 1;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pint32(source) + (x Shr 16))^ Shr 19) And $1f) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 5) And $7e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shl 8) And $f800);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 19) And $1f) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 5) And $7e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shl 8) And $f800)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+  End;
+
+  { Write trailing pixel }
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 19) And $1f) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 5) And $7e0) Or
+                       (((Pint32(source) + (x Shr 16))^ Shl 8) And $f800);
+End;
+
+Procedure ConvertP_32rgb888_16rgb555_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Align mod 4 }
+  If (PtrUInt(dest) And 3) <> 0 Then
+  Begin
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 9) And $7c00) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 6) And $3e0) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f);
+    Inc(x, inc_source);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  { Try to write 2 pixel blocks }
+  c := count Shr 1;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pint32(source) + (x Shr 16))^ Shr 9) And $7c00) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 6) And $3e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 9) And $7c00) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 6) And $3e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+  End;
+
+  { Write trailing pixel }
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 9) And $7c00) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 6) And $3e0) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f);
+End;
+
+Procedure ConvertP_32rgb888_16bgr555_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Align mod 4 }
+  If (PtrUInt(dest) And 3) <> 0 Then
+  Begin
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 19) And $1f) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 6) And $3e0) Or
+                       (((Pint32(source) + (x Shr 16))^ Shl 7) And $7c00);
+    Inc(x, inc_source);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  { Try to write 2 pixel blocks }
+  c := count Shr 1;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pint32(source) + (x Shr 16))^ Shr 19) And $1f) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 6) And $3e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shl 7) And $7c00);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 19) And $1f) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 6) And $3e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shl 7) And $7c00)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+  End;
+
+  { Write trailing pixel }
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 19) And $1f) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 6) And $3e0) Or
+                       (((Pint32(source) + (x Shr 16))^ Shl 7) And $7c00);
+End;
+
+Procedure ConvertP_32rgb888_8rgb332_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Write single pixels until the destination address is aligned mod 4 }
+  While (PtrUInt(dest) And $3) <> 0 Do
+  Begin
+    dest^ := (((Pint32(source) + (x Shr 16))^ Shr 16) And $e0) Or
+             (((Pint32(source) + (x Shr 16))^ Shr 11) And $1c) Or
+             (((Pint32(source) + (x Shr 16))^ Shr 6) And $3);
+    Inc(x, inc_source);
+    Inc(dest);
+    Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+
+  { Write blocks of four pixels now }
+  c := count Shr 2;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pint32(source) + (x Shr 16))^ Shr 16) And $e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 11) And $1c) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 6) And $3);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 16) And $e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 11) And $1c) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 6) And $3)) Shl 8);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 16) And $e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 11) And $1c) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 6) And $3)) Shl 16);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 16) And $e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 11) And $1c) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 6) And $3)) Shl 24);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+    Inc(dest, 4);
+  End;
+
+  { Write up to three trailing pixels }
+  c := count And $3;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    dest^ := (((Pint32(source) + (x Shr 16))^ Shr 16) And $e0) Or
+             (((Pint32(source) + (x Shr 16))^ Shr 11) And $1c) Or
+             (((Pint32(source) + (x Shr 16))^ Shr 6) And $3);
+    Inc(x, inc_source);
+    Inc(dest);
+  End;
+End;

packages/extra/hermes/p_clr.pp

@@ -0,0 +1,171 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   C surface clearing routines for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+Procedure ClearP_32(iface : PHermesClearInterface); CDecl;
+
+Var
+  count : DWord;
+  value : int32;
+  dest : Pchar8;
+
+Begin
+  value := iface^.value;
+  dest := iface^.dest;
+  Repeat
+    count := iface^.width;
+    Repeat
+      Pint32(dest)^ := value;
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+    Inc(dest, iface^.add);
+    Dec(iface^.height);
+  Until iface^.height = 0;
+End;
+
+Procedure ClearP_24(iface : PHermesClearInterface); CDecl;
+
+Var
+  p_value : Pchar8;
+  count : DWord;
+  dest : Pchar8;
+
+Begin
+  p_value := @iface^.value;
+  dest := iface^.dest;
+  Repeat
+    count := iface^.width;
+    Repeat
+      (dest + R_24)^ := (p_value + B_32)^;
+      (dest + G_24)^ := (p_value + G_32)^;
+      (dest + B_24)^ := (p_value + B_32)^;
+
+      Inc(dest, 3);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.add);
+    Dec(iface^.height);
+  Until iface^.height = 0;
+End;
+
+Procedure ClearP_16(iface : PHermesClearInterface); CDecl;
+
+Var
+  value32 : DWord;
+  countshifted, count : DWord;
+  dest : Pchar8;
+
+Begin
+  value32 := (iface^.value Shl 16) Or (iface^.value And $ffff);
+  dest := iface^.dest;
+  Repeat
+    count := iface^.width;
+
+    { Align destination }
+    If (PtrUInt(dest) And $3) <> 0 Then
+    Begin
+      Pshort16(dest)^ := iface^.value;
+      Inc(dest, 2);
+      Dec(count);
+    End;
+
+    countshifted := count Shr 1;
+
+    While countshifted <> 0 Do
+    Begin
+      Dec(countshifted);
+      Pint32(dest)^ := value32;
+      Inc(dest, 4);
+    End;
+
+    If (count And 1) <> 0 Then
+    Begin
+      Pshort16(dest)^ := iface^.value;
+      Inc(dest, 2);
+    End;
+
+    Inc(dest, iface^.add);
+    Dec(iface^.height);
+  Until iface^.height = 0;
+End;
+
+{$GOTO ON}
+
+Procedure ClearP_8(iface : PHermesClearInterface); CDecl;
+
+Label
+  yloop;
+
+Var
+  count, shiftcount : DWord;
+  value32 : int32;
+  value : char8;
+  dest : Pchar8;
+
+Begin
+  dest := iface^.dest;
+
+  value := iface^.value And $ff;
+  value32 := (value Shl 24) Or (value Shl 16) Or (value Shl 8) Or value;
+
+  Repeat
+    count := iface^.width;
+
+    While (PtrUInt(dest) And $3) <> 0 Do    { Align to dword boundary }
+    Begin
+      dest^ := value;
+      Inc(dest);
+      Dec(count);
+      If count = 0 Then
+        Goto yloop;                { GOTO's are nice ;) }
+    End;
+
+    shiftcount := count Shr 2;
+
+    While shiftcount <> 0 Do
+    Begin
+      Dec(shiftcount);
+      Pint32(dest)^ := value32;
+      Inc(dest, 4);
+    End;
+
+    count := count And $3;
+    While count <> 0 Do
+    Begin
+      Dec(count);
+      dest^ := value;
+      Inc(dest);
+    End;
+
+yloop:
+    Inc(dest, iface^.add);
+    Dec(iface^.height);
+  Until iface^.height = 0;
+End;

packages/extra/hermes/p_cnv.pp

@@ -0,0 +1,67 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   C converter main loops for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+Procedure ConvertP(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  { Simply loop through all scanlines }
+  Repeat
+    iface^.func(iface^.s_pixels, iface^.d_pixels, iface^.d_width, 1);
+
+    Inc(iface^.s_pixels, iface^.s_pitch);
+    Inc(iface^.d_pixels, iface^.d_pitch);
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertPStretch(iface : PHermesConverterInterface); CDecl;
+
+Var
+  dx, dy : DWord;
+  y : DWord;
+
+Begin
+  y := 0;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+
+  { We have the increment of y and x on the source surface now let's start }
+  Repeat
+    iface^.func(iface^.s_pixels, iface^.d_pixels, iface^.d_width, dx);
+
+    Inc(iface^.d_pixels, iface^.d_pitch);
+
+    Inc(y, dy);
+
+    { Check how many lines we need to step forward }
+    Inc(iface^.s_pixels, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;

packages/extra/hermes/p_cpy.pp

@@ -0,0 +1,167 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   C straight copy routines for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+Procedure CopyP_4byte(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Begin
+  Move(source^, dest^, count Shl 2);
+End;
+
+Procedure CopyP_3byte(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Begin
+  Move(source^, dest^, count * 3);
+End;
+
+Procedure CopyP_2byte(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Begin
+  Move(source^, dest^, count Shl 1);
+End;
+
+Procedure CopyP_1byte(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Begin
+  Move(source^, dest^, count);
+End;
+
+Procedure CopyP_4byte_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+
+Begin
+  x := 0;
+  Repeat
+    Pint32(dest)^ := (Pint32(source)+(x Shr 16))^;
+
+    Inc(x, inc_source);
+    Inc(dest, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TODO: Optimise }
+Procedure CopyP_3byte_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+
+Begin
+  x := 0;
+  Repeat
+    dest[R_24] := source[R_24];
+    dest[G_24] := source[G_24];
+    dest[B_24] := source[B_24];
+
+    Inc(x, inc_source);
+    Inc(source, 3*(x Shr 16));
+    x := x And $FFFF;
+    Inc(dest, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+Procedure CopyP_2byte_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Alignment mod 4 }
+  If (PtrUInt(dest) And 3) <> 0 Then
+  Begin
+    Pshort16(dest)^ := (Pshort16(source) + (x Shr 16))^;
+    Inc(x, inc_source);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  c := count Shr 1;
+
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    { TODO: make fast :) }
+    p := (Pshort16(source) + (x Shr 16))^; Inc(x, inc_source);
+    p := p Or ((Pshort16(source) + (x Shr 16))^ Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+    Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (Pshort16(source) + (x Shr 16))^;
+End;
+
+Procedure CopyP_1byte_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Alignment mod 4 }
+  While (PtrUInt(dest) And 3) <> 0 Do
+  Begin
+    dest^ := (source + (x Shr 16))^;
+    Inc(x, inc_source);
+    Inc(dest); Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+
+  { Write blocks of four pixels }
+  c := count Shr 2;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (source + (x Shr 16))^; Inc(x, inc_source);
+    p := p Or ((source + (x Shr 16))^ Shl 8); Inc(x, inc_source);
+    p := p Or ((source + (x Shr 16))^ Shl 16); Inc(x, inc_source);
+    p := p Or ((source + (x Shr 16))^ Shl 24); Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+    Inc(dest, 4);
+  End;
+
+  { Write up to three trailing pixels }
+  c := count And $3;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    dest^ := (source + (x Shr 16))^;
+    Inc(x, inc_source);
+    Inc(dest);
+  End;
+End;

packages/extra/hermes/p_g.pp

@@ -0,0 +1,1118 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   Generic format conversion routines for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+Procedure ConvertP_Generic32_Generic32(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pint32(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pint32(dest)^ := r Or g Or b;
+
+      Inc(source, 4);
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic32_Generic24(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  d_ptr : Pchar8;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  d_ptr := @s_pixel;
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pint32(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      s_pixel := r Or g Or b;
+
+      (dest+R_24)^ := (d_ptr+R_32)^;
+      (dest+G_24)^ := (d_ptr+G_32)^;
+      (dest+B_24)^ := (d_ptr+B_32)^;
+
+      Inc(source, 4);
+      Inc(dest, 3);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic32_Generic16(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width Shr 1;
+
+    If count <> 0 Then
+      Repeat
+        r := (((Pint32(source)^) Shr iface^.info.r_right) Shl iface^.info.r_left) And
+              iface^.mask_r;
+        g := (((Pint32(source)^) Shr iface^.info.g_right) Shl iface^.info.g_left) And
+              iface^.mask_g;
+        b := (((Pint32(source)^) Shr iface^.info.b_right) Shl iface^.info.b_left) And
+              iface^.mask_b;
+
+        s_pixel := (r Or g Or b) And $FFFF;
+
+        r := ((((Pint32(source)+1)^) Shr iface^.info.r_right) Shl iface^.info.r_left) And
+              iface^.mask_r;
+        g := ((((Pint32(source)+1)^) Shr iface^.info.g_right) Shl iface^.info.g_left) And
+              iface^.mask_g;
+        b := ((((Pint32(source)+1)^) Shr iface^.info.b_right) Shl iface^.info.b_left) And
+              iface^.mask_b;
+
+        s_pixel := s_pixel Or ((r Or g Or b) Shl 16);
+
+        Pint32(dest)^ := s_pixel;
+
+        Inc(source, 8);
+        Inc(dest, 4);
+        Dec(count);
+      Until count = 0;
+
+
+    { Trailing pixel }
+
+    If (iface^.s_width And 1) <> 0 Then
+    Begin
+      r := (((Pint32(source)^) Shr iface^.info.r_right) Shl iface^.info.r_left) And
+            iface^.mask_r;
+      g := (((Pint32(source)^) Shr iface^.info.g_right) Shl iface^.info.g_left) And
+            iface^.mask_g;
+      b := (((Pint32(source)^) Shr iface^.info.b_right) Shl iface^.info.b_left) And
+            iface^.mask_b;
+
+      Pshort16(dest)^ := r Or g Or b;
+      Inc(dest, 2);
+      Inc(source, 4);
+    End;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic32_Generic8(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pint32(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      dest^ := r Or g Or b;
+
+      Inc(source, 4);
+      Inc(dest);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic24_Generic32(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := (((source+R_24)^) Shl 16) Or
+                 (((source+G_24)^) Shl 8) Or
+                 ((source+B_24)^);
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pint32(dest)^ := r Or g Or b;
+
+      Inc(source, 3);
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic24_Generic24(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  d_ptr : Pchar8;
+  count : DWord;
+  source, dest : PChar8;
+
+Begin
+  d_ptr := @s_pixel;
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := (((source+R_24)^) Shl 16) Or
+                 (((source+G_24)^) Shl 8) Or
+                 ((source+B_24)^);
+
+      r := ((s_pixel Shl iface^.info.r_left) Shr iface^.info.r_right) And
+        iface^.mask_r;
+      g := ((s_pixel Shl iface^.info.g_left) Shr iface^.info.g_right) And
+        iface^.mask_g;
+      b := ((s_pixel Shl iface^.info.b_left) Shr iface^.info.b_right) And
+        iface^.mask_b;
+
+      s_pixel := r Or g Or b;
+
+      (dest + R_24)^ := (d_ptr + R_32)^;
+      (dest + G_24)^ := (d_ptr + G_32)^;
+      (dest + B_24)^ := (d_ptr + B_32)^;
+
+      Inc(source, 3);
+      Inc(dest, 3);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic24_Generic16(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := (((source+R_24)^) Shl 16) Or
+                 (((source+G_24)^) Shl 8) Or
+                 ((source+B_24)^);
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pshort16(dest)^ := r Or g Or b;
+
+      Inc(source, 3);
+      Inc(dest, 2);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic24_Generic8(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := (((source+R_24)^) Shl 16) Or
+                 (((source+G_24)^) Shl 8) Or
+                 ((source+B_24)^);
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      dest^ := r Or g Or b;
+
+      Inc(source, 3);
+      Inc(dest);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic16_Generic32(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pshort16(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pint32(dest)^ := r Or g Or b;
+
+      Inc(source, 2);
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic16_Generic24(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  d_ptr : Pchar8;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  d_ptr := @s_pixel;
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pshort16(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      s_pixel := r Or g Or b;
+
+      (dest + R_24)^ := (d_ptr + R_32)^;
+      (dest + G_24)^ := (d_ptr + G_32)^;
+      (dest + B_24)^ := (d_ptr + B_32)^;
+
+      Inc(source, 2);
+      Inc(dest, 3);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic16_Generic16(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pshort16(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pshort16(dest)^ := r Or g Or b;
+
+      Inc(source, 2);
+      Inc(dest, 2);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic16_Generic8(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pshort16(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      dest^ := r Or g Or b;
+
+      Inc(source, 2);
+      Inc(dest);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic8_Generic32(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {todo}
+End;
+
+Procedure ConvertP_Generic8_Generic24(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {todo}
+End;
+
+Procedure ConvertP_Generic8_Generic16(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {todo}
+End;
+
+Procedure ConvertP_Generic8_Generic8(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {todo}
+End;
+
+{ -------------------------------------------------------------------------
+
+                              STRETCH CONVERTERS
+
+  ------------------------------------------------------------------------- }
+
+Procedure ConvertP_Generic32_Generic32_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    Repeat
+      s_pixel := (Pint32(source)+(x Shr 16))^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pint32(dest)^ := r Or g Or b;
+
+      Inc(x, dx);
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic32_Generic24_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  d_ptr : Pchar8;
+  count : DWord;
+  source, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  d_ptr := @s_pixel;
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    Repeat
+      s_pixel := (Pint32(source)+(x Shr 16))^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      s_pixel := r Or g Or b;
+
+      (dest + R_24)^ := (d_ptr + R_32)^;
+      (dest + G_24)^ := (d_ptr + G_32)^;
+      (dest + B_24)^ := (d_ptr + B_32)^;
+
+      Inc(x, dx);
+      Inc(dest, 3);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic32_Generic16_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    Repeat
+      s_pixel := (Pint32(source)+(x Shr 16))^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pshort16(dest)^ := r Or g Or b;
+
+      Inc(x, dx);
+      Inc(dest, 2);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic32_Generic8_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    Repeat
+      s_pixel := (Pint32(source)+(x Shr 16))^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      dest^ := r Or g Or b;
+
+      Inc(x, dx);
+      Inc(dest);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic24_Generic32_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, src, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    src := source;
+    Repeat
+      s_pixel := (((src+R_24)^) Shl 16) Or
+                 (((src+G_24)^) Shl 8) Or
+                 ((src+B_24)^);
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pint32(dest)^ := r Or g Or b;
+
+      Inc(x, dx);
+      Inc(src, x Shr 16);
+      Inc(src, x Shr 16);
+      Inc(src, x Shr 16);
+      x := x And $FFFF;
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic24_Generic24_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  d_ptr : Pchar8;
+  count : DWord;
+  source, src, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  d_ptr := @s_pixel;
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    src := source;
+    Repeat
+      s_pixel := (((src+R_24)^) Shl 16) Or
+                 (((src+G_24)^) Shl 8) Or
+                 ((src+B_24)^);
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      s_pixel := r Or g Or b;
+
+      (dest + R_24)^ := (d_ptr + R_32)^;
+      (dest + G_24)^ := (d_ptr + G_32)^;
+      (dest + B_24)^ := (d_ptr + B_32)^;
+
+      Inc(x, dx);
+      Inc(src, x Shr 16);
+      Inc(src, x Shr 16);
+      Inc(src, x Shr 16);
+      x := x And $FFFF;
+      Inc(dest, 3);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic24_Generic16_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, src, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    src := source;
+    Repeat
+      s_pixel := (((src+R_24)^) Shl 16) Or
+                 (((src+G_24)^) Shl 8) Or
+                 ((src+B_24)^);
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pshort16(dest)^ := r Or g Or b;
+
+      Inc(x, dx);
+      Inc(src, x Shr 16);
+      Inc(src, x Shr 16);
+      Inc(src, x Shr 16);
+      x := x And $FFFF;
+      Inc(dest, 2);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic24_Generic8_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, src, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    src := source;
+    Repeat
+      s_pixel := (((src+R_24)^) Shl 16) Or
+                 (((src+G_24)^) Shl 8) Or
+                 ((src+B_24)^);
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      dest^ := r Or g Or b;
+
+      Inc(x, dx);
+      Inc(src, x Shr 16);
+      Inc(src, x Shr 16);
+      Inc(src, x Shr 16);
+      x := x And $FFFF;
+      Inc(dest);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic16_Generic32_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    Repeat
+      s_pixel := (Pshort16(source)+(x Shr 16))^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pint32(dest)^ := r Or g Or b;
+
+      Inc(x, dx);
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic16_Generic24_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  d_ptr : Pchar8;
+  count : DWord;
+  source, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  d_ptr := @s_pixel;
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    Repeat
+      s_pixel := (Pshort16(source)+(x Shr 16))^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      s_pixel := r Or g Or b;
+
+      (dest + R_24)^ := (d_ptr + R_32)^;
+      (dest + G_24)^ := (d_ptr + G_32)^;
+      (dest + B_24)^ := (d_ptr + B_32)^;
+
+      Inc(x, dx);
+      Inc(dest, 3);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic16_Generic16_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    Repeat
+      s_pixel := (Pshort16(source)+(x Shr 16))^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      Pshort16(dest)^ := r Or g Or b;
+
+      Inc(x, dx);
+      Inc(dest, 2);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic16_Generic8_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b : int32;
+  count : DWord;
+  source, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    Repeat
+      s_pixel := (Pshort16(source)+(x Shr 16))^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+
+      dest^ := r Or g Or b;
+
+      Inc(x, dx);
+      Inc(dest);
+      Dec(count);
+    Until count = 0;
+
+    Inc(dest, iface^.d_add);
+
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic8_Generic32_S(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {todo}
+End;
+
+Procedure ConvertP_Generic8_Generic24_S(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {todo}
+End;
+
+Procedure ConvertP_Generic8_Generic16_S(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {todo}
+End;
+
+Procedure ConvertP_Generic8_Generic8_S(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {todo}
+End;

packages/extra/hermes/p_ga.pp

@@ -0,0 +1,617 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   Generic format conversion routines for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+  
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+Procedure ConvertP_Generic32_A_Generic32_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pint32(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+
+      Pint32(dest)^ := r Or g Or b Or a;
+
+      Inc(source, 4);
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic32_A_Generic24_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  d_ptr : Pchar8;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  d_ptr := @s_pixel;
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pint32(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+
+      s_pixel := r Or g Or b Or a;
+
+      (dest+R_24)^ := (d_ptr+R_32)^;
+      (dest+G_24)^ := (d_ptr+G_32)^;
+      (dest+B_24)^ := (d_ptr+B_32)^;
+
+      Inc(source, 4);
+      Inc(dest, 3);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic32_A_Generic16_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width Shr 1;
+
+    If count <> 0 Then
+      Repeat
+        r := (((Pint32(source)^) Shr iface^.info.r_right) Shl iface^.info.r_left) And
+	      iface^.mask_r;
+        g := (((Pint32(source)^) Shr iface^.info.g_right) Shl iface^.info.g_left) And
+	      iface^.mask_g;
+        b := (((Pint32(source)^) Shr iface^.info.b_right) Shl iface^.info.b_left) And
+	      iface^.mask_b;
+        a := (((Pint32(source)^) Shr iface^.info.a_right) Shl iface^.info.a_left) And
+	      iface^.mask_a;
+
+        s_pixel := (r Or g Or b Or a) And $FFFF;
+      
+        r := ((((Pint32(source)+1)^) Shr iface^.info.r_right) Shl iface^.info.r_left) And
+	      iface^.mask_r;
+        g := ((((Pint32(source)+1)^) Shr iface^.info.g_right) Shl iface^.info.g_left) And
+	      iface^.mask_g;
+        b := ((((Pint32(source)+1)^) Shr iface^.info.b_right) Shl iface^.info.b_left) And
+	      iface^.mask_b;
+        a := ((((Pint32(source)+1)^) Shr iface^.info.a_right) Shl iface^.info.a_left) And
+	      iface^.mask_a;
+
+        s_pixel := s_pixel Or ((r Or g Or b Or a) Shl 16);
+
+        Pint32(dest)^ := s_pixel;
+
+        Inc(source, 8);
+        Inc(dest, 4);
+        Dec(count);
+      Until count = 0;
+
+
+    { Trailing pixel }
+    
+    If (iface^.s_width And 1) <> 0 Then
+    Begin
+      r := (((Pint32(source)^) Shr iface^.info.r_right) Shl iface^.info.r_left) And
+	    iface^.mask_r;
+      g := (((Pint32(source)^) Shr iface^.info.g_right) Shl iface^.info.g_left) And
+	    iface^.mask_g;
+      b := (((Pint32(source)^) Shr iface^.info.b_right) Shl iface^.info.b_left) And
+	    iface^.mask_b;
+      a := (((Pint32(source)^) Shr iface^.info.a_right) Shl iface^.info.a_left) And
+	    iface^.mask_a;
+
+      Pshort16(dest)^ := r Or g Or b Or a;
+      Inc(dest, 2);
+      Inc(source, 4);
+    End;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic32_A_Generic8_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pint32(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+
+      dest^ := r Or g Or b Or a;
+
+      Inc(source, 4);
+      Inc(dest);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic24_A_Generic32_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := ((Pint32(source+R_24)^) Shl 16) Or
+                 ((Pint32(source+G_24)^) Shl 8) Or
+                 (PInt32(source+B_24)^);
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+
+      Pint32(dest)^ := r Or g Or b Or a;
+
+      Inc(source, 3);
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic24_A_Generic24_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  d_ptr : Pchar8;
+  count : DWord;
+  source, dest : PChar8;
+
+Begin
+  d_ptr := @s_pixel;
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := ((Pint32(source+R_24)^) Shl 16) Or
+                 ((Pint32(source+G_24)^) Shl 8) Or
+                 (PInt32(source+B_24)^);
+    
+      r := ((s_pixel Shl iface^.info.r_left) Shr iface^.info.r_right) And
+        iface^.mask_r;
+      g := ((s_pixel Shl iface^.info.g_left) Shr iface^.info.g_right) And
+        iface^.mask_g;
+      b := ((s_pixel Shl iface^.info.b_left) Shr iface^.info.b_right) And
+        iface^.mask_b;
+      a := ((s_pixel Shl iface^.info.a_left) Shr iface^.info.a_right) And
+        iface^.mask_a;
+
+      s_pixel := r Or g Or b Or a;
+
+      (dest + R_24)^ := (d_ptr + R_32)^;
+      (dest + G_24)^ := (d_ptr + G_32)^;
+      (dest + B_24)^ := (d_ptr + B_32)^;
+    
+      Inc(source, 3);
+      Inc(dest, 3);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic24_A_Generic16_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := ((Pint32(source+R_24)^) Shl 16) Or
+                 ((Pint32(source+G_24)^) Shl 8) Or
+                 (PInt32(source+B_24)^);
+    
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+
+      Pshort16(dest)^ := r Or g Or b Or a;
+
+      Inc(source, 3);
+      Inc(dest, 2);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic24_A_Generic8_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := ((Pint32(source+R_24)^) Shl 16) Or
+                 ((Pint32(source+G_24)^) Shl 8) Or
+                 (PInt32(source+B_24)^);
+    
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+    
+      dest^ := r Or g Or b Or a;
+    
+      Inc(source, 3);
+      Inc(dest);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic16_A_Generic32_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pshort16(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+
+      Pint32(dest)^ := r Or g Or b Or a;
+
+      Inc(source, 2);
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic16_A_Generic24_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  d_ptr : Pchar8;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  d_ptr := @s_pixel;
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pshort16(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+    
+      s_pixel := r Or g Or b Or a;
+
+      (dest + R_24)^ := (d_ptr + R_32)^;
+      (dest + G_24)^ := (d_ptr + G_32)^;
+      (dest + B_24)^ := (d_ptr + B_32)^;
+    
+      Inc(source, 2);
+      Inc(dest, 3);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic16_A_Generic16_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pshort16(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+
+      Pshort16(dest)^ := r Or g Or b Or a;
+
+      Inc(source, 2);
+      Inc(dest, 2);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_Generic16_A_Generic8_A(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels; dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    Repeat
+      s_pixel := Pshort16(source)^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+
+      dest^ := r Or g Or b Or a;
+
+      Inc(source, 2);
+      Inc(dest);
+      Dec(count);
+    Until count = 0;
+
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+{ -------------------------------------------------------------------------
+
+                             STRETCH CONVERTERS
+   
+  ------------------------------------------------------------------------- }
+
+
+Procedure ConvertP_Generic32_A_Generic32_A_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    Repeat
+      s_pixel := (Pint32(source)+(x Shr 16))^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+    
+      Pint32(dest)^ := r Or g Or b Or a;
+    
+      Inc(x, dx);
+      Inc(dest, 4);
+      Dec(count);
+    Until count = 0;
+    
+    Inc(dest, iface^.d_add);
+    
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_Generic32_A_Generic16_A_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  s_pixel, r, g, b, a : int32;
+  count : DWord;
+  source, dest : Pchar8;
+  dx, dy, x, y : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  y := 0;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+    Repeat
+      s_pixel := (Pint32(source)+(x Shr 16))^;
+
+      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
+        iface^.mask_r;
+      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
+        iface^.mask_g;
+      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
+        iface^.mask_b;
+      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
+        iface^.mask_a;
+    
+      Pshort16(dest)^ := r Or g Or b Or a;
+    
+      Inc(x, dx);
+      Inc(dest, 2);
+      Dec(count);
+    Until count = 0;
+    
+    Inc(dest, iface^.d_add);
+    
+    Inc(y, dy);
+    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
+    y := y And $ffff;
+
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;

packages/extra/hermes/p_gac.pp

@@ -0,0 +1,119 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   Generic format conversion routines for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+  
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+Procedure ConvertP_Generic32_A_Generic32_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_A_Generic24_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_A_Generic16_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_A_Generic8_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_A_Generic32_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_A_Generic24_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_A_Generic16_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_A_Generic8_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_A_Generic32_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_A_Generic24_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_A_Generic16_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_A_Generic8_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+{ -------------------------------------------------------------------------
+
+                             STRETCH CONVERTERS
+   
+  ------------------------------------------------------------------------- }
+
+
+Procedure ConvertP_Generic32_A_Generic32_C_S(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_A_Generic16_C_S(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;

packages/extra/hermes/p_gca.pp

@@ -0,0 +1,118 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   Generic format conversion routines for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+  
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+Procedure ConvertP_Generic32_C_Generic32_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_C_Generic24_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_C_Generic16_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_C_Generic8_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_C_Generic32_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_C_Generic24_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_C_Generic16_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_C_Generic8_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_C_Generic32_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_C_Generic24_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_C_Generic16_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_C_Generic8_A(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+{ -------------------------------------------------------------------------
+
+                             STRETCH CONVERTERS
+   
+  ------------------------------------------------------------------------- }
+
+Procedure ConvertP_Generic32_C_Generic32_A_S(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_C_Generic16_A_S(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;

packages/extra/hermes/p_gcc.pp

@@ -0,0 +1,119 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   Generic format conversion routines for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+  
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+Procedure ConvertP_Generic32_C_Generic32_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_C_Generic24_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_C_Generic16_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_C_Generic8_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_C_Generic32_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_C_Generic24_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_C_Generic16_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic24_C_Generic8_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_C_Generic32_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_C_Generic24_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_C_Generic16_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic16_C_Generic8_C(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+{ -------------------------------------------------------------------------
+
+                             STRETCH CONVERTERS
+   
+  ------------------------------------------------------------------------- }
+
+
+Procedure ConvertP_Generic32_C_Generic32_C_S(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;
+
+Procedure ConvertP_Generic32_C_Generic16_C_S(iface : PHermesConverterInterface); CDecl;
+
+Begin
+  {NOT YET IMPLEMENTED!}
+End;

packages/extra/hermes/p_i8.pp

@@ -0,0 +1,405 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+
+   Generic C converter (from 8 bit indexed) for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+{ -------------------------------------------------------------------------
+
+                             NORMAL CONVERTERS
+
+  ------------------------------------------------------------------------- }
+
+Procedure ConvertP_index8_32(iface : PHermesConverterInterface); CDecl;
+
+Var
+  i : Integer;
+  s_pixel : char8;
+  d_pixel : int32;
+  source, dest : Pchar8;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  Repeat
+    For i := 0 To iface^.s_width - 1 Do
+    Begin
+      s_pixel := source^;
+      d_pixel := iface^.lookup[s_pixel];
+      Pint32(dest)^ := d_pixel;
+      Inc(source);
+      Inc(dest, 4);
+    End;
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_index8_24(iface : PHermesConverterInterface); CDecl;
+
+Var
+  count : Integer;
+  s_pixel, s_pixel2, d_pixel : int32;
+  d_ptr, source, dest : Pchar8;
+
+Begin
+  d_ptr := @d_pixel;
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  Repeat
+    count := iface^.d_width Shr 2;
+    While count <> 0 Do
+    Begin
+      Dec(count);
+
+      s_pixel := iface^.lookup[source^]; Inc(source);
+      s_pixel2 := iface^.lookup[source^]; Inc(source);
+
+      s_pixel := (s_pixel And $ffffff) Or (s_pixel2 Shl 24);
+      Pint32(dest)^ := s_pixel;
+
+      s_pixel := iface^.lookup[source^]; Inc(source);
+      s_pixel2 := ((s_pixel2 Shr 8) And $ffff) Or (s_pixel Shl 16);
+      Pint32(dest + 4)^ := s_pixel2;
+
+      s_pixel2 := iface^.lookup[source^]; Inc(source);
+      s_pixel := ((s_pixel Shr 16) And $ff) Or (s_pixel2 Shl 8);
+      Pint32(dest + 8)^ := s_pixel;
+
+      Inc(dest, 12);
+    End;
+
+    count := iface^.d_width And $3;
+    While count <> 0 Do
+    Begin
+      Dec(count);
+      d_pixel := iface^.lookup[source^]; Inc(source);
+
+      (dest + R_24)^ := (d_ptr + R_32)^;
+      (dest + G_24)^ := (d_ptr + G_32)^;
+      (dest + B_24)^ := (d_ptr + B_32)^;
+
+      Inc(dest, 3);
+    End;
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_index8_16(iface : PHermesConverterInterface); CDecl;
+
+Var
+  source, dest : Pchar8;
+  count, c : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    If (PtrUInt(dest) And $3) <> 0 Then
+    Begin
+      Pshort16(dest)^ := iface^.lookup[source^]; Inc(source);
+      Inc(dest, 2);
+      Dec(count);
+    End;
+    c := count Shr 1;
+    If c <> 0 Then
+      Repeat
+        Pint32(dest)^ := iface^.lookup[source^] Or
+                        (iface^.lookup[(source + 1)^] Shl 16);
+        Inc(dest, 4);
+        Inc(source, 2);
+        Dec(c);
+      Until c = 0;
+    If (count And 1) <> 0 Then
+    Begin
+      Pshort16(dest)^ := iface^.lookup[source^];
+      Inc(source);
+      Inc(dest, 2);
+    End;
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+Procedure ConvertP_index8_8(iface : PHermesConverterInterface); CDecl;
+
+Var
+  source, dest : Pchar8;
+  count, c : DWord;
+
+Begin
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  Repeat
+    count := iface^.s_width;
+    If (PtrUInt(dest) And $3) <> 0 Then
+    Begin
+      dest^ := iface^.lookup[source^]; Inc(source);
+      Inc(dest);
+      Dec(count);
+    End;
+    c := count Shr 2;
+    If c <> 0 Then
+      Repeat
+        Pint32(dest)^ := iface^.lookup[source^] Or
+                        (iface^.lookup[(source + 1)^] Shl 8) Or
+                        (iface^.lookup[(source + 2)^] Shl 16) Or
+                        (iface^.lookup[(source + 3)^] Shl 24);
+        Inc(dest, 4);
+        Inc(source, 4);
+        Dec(c);
+      Until c = 0;
+    count := count And $03;
+    While count > 0 Do
+    Begin
+      dest^ := iface^.lookup[source^]; Inc(source);
+      Inc(dest);
+      Dec(count);
+    End;
+    Inc(source, iface^.s_add);
+    Inc(dest, iface^.d_add);
+    Dec(iface^.s_height);
+  Until iface^.s_height = 0;
+End;
+
+{ -------------------------------------------------------------------------
+
+                             STRETCH CONVERTERS
+
+  ------------------------------------------------------------------------- }
+
+Procedure ConvertP_index8_32_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  x, y, count : DWord;
+  dx, dy : DWord;
+  source : Pchar8;
+
+Begin
+  y := 0;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  source := iface^.s_pixels;
+  Repeat
+    count := iface^.d_width;
+    x := 0;
+
+    Repeat
+      Pint32(iface^.d_pixels)^ := iface^.lookup[(source + (x Shr 16))^];
+      Inc(x, dx);
+      Inc(iface^.d_pixels, 4);
+      Dec(count);
+    Until count = 0;
+
+    { Go to next destination row }
+    Inc(iface^.d_pixels, iface^.d_add);
+
+    { Calculate amount of rows to move in source surface }
+    Inc(y, dy);
+
+    Inc(source, (y Shr 16) * DWord(iface^.s_pitch));
+    y := y And $ffff;
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+{by me!}
+Procedure ConvertP_index8_24_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  x, y, count : DWord;
+  dx, dy : DWord;
+  source, dest : Pchar8;
+  s_pixel, s_pixel2, d_pixel : int32;
+
+Begin
+  y := 0;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  Repeat
+    x := 0;
+    count := iface^.d_width Shr 2;
+    While count <> 0 Do
+    Begin
+      Dec(count);
+
+      s_pixel := iface^.lookup[(source + (x Shr 16))^]; Inc(x, dx);
+      s_pixel2 := iface^.lookup[(source + (x Shr 16))^]; Inc(x, dx);
+
+      s_pixel := (s_pixel And $ffffff) Or (s_pixel2 Shl 24);
+      Pint32(dest)^ := s_pixel;
+
+      s_pixel := iface^.lookup[(source + (x Shr 16))^]; Inc(x, dx);
+      s_pixel2 := ((s_pixel2 Shr 8) And $ffff) Or (s_pixel Shl 16);
+      Pint32(dest + 4)^ := s_pixel2;
+
+      s_pixel2 := iface^.lookup[(source + (x Shr 16))^]; Inc(x, dx);
+      s_pixel := ((s_pixel Shr 16) And $ff) Or (s_pixel2 Shl 8);
+      Pint32(dest + 8)^ := s_pixel;
+
+      Inc(dest, 12);
+    End;
+
+    count := iface^.d_width And $3;
+    While count <> 0 Do
+    Begin
+      Dec(count);
+      d_pixel := iface^.lookup[(source + (x Shr 16))^]; Inc(x, dx);
+
+      Pshort16(dest)^ := d_pixel;
+      Pchar8(dest + 2)^ := d_pixel Shr 16;
+
+      Inc(dest, 3);
+    End;
+
+    { Go to next destination row }
+{    Inc(iface^.d_pixels, iface^.d_add);}
+    Inc(dest, iface^.d_add);
+
+    { Calculate amount of rows to move in source surface }
+    Inc(y, dy);
+
+    Inc(source, (y Shr 16) * DWord(iface^.s_pitch));
+    y := y And $ffff;
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+{ Quick hack of a index 8 to 16 stretch converter }
+Procedure ConvertP_index8_16_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  x, y, count : DWord;
+  dx, dy : DWord;
+  source, dest : Pchar8;
+
+Begin
+  y := 0;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  Repeat
+    { Do a two pixel at a time loop }
+
+    count := iface^.d_width Shr 1;
+    x := 0;
+
+    While count <> 0 Do
+    Begin
+      Dec(count);
+      Pint32(dest)^ := iface^.lookup[(source + (x Shr 16))^] Or
+                      (iface^.lookup[(source + ((x + dx) Shr 16))^] Shl 16);
+      Inc(x, dx); Inc(x, dx);
+      Inc(dest, 4);
+    End;
+
+    { Clean up remaining pixel if odd width }
+    If (iface^.d_width And 1) <> 0 Then
+    Begin
+      Pshort16(dest)^ := iface^.lookup[(source + (x Shr 16))^];
+      Inc(dest, 2);
+    End;
+
+    { Go to next destination row }
+    Inc(dest, iface^.d_add);
+
+    { Calculate amount of rows to move in source surface }
+    Inc(y, dy);
+
+    Inc(source, (y Shr 16) * DWord(iface^.s_pitch));
+    y := y And $ffff;
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;
+
+Procedure ConvertP_index8_8_S(iface : PHermesConverterInterface); CDecl;
+
+Var
+  x, y, count, c : DWord;
+  dx, dy : DWord;
+  source, dest : Pchar8;
+
+Begin
+  y := 0;
+  dy := (iface^.s_height Shl 16) Div iface^.d_height;
+  dx := (iface^.s_width Shl 16) Div iface^.d_width;
+  source := iface^.s_pixels;
+  dest := iface^.d_pixels;
+  Repeat
+    { Do a four pixel at a time loop }
+
+    count := iface^.d_width;
+    x := 0;
+
+    While ((PtrUInt(dest) And 3) <> 0) And (count > 0) Do
+    Begin
+      Dec(count);
+      dest^ := iface^.lookup[(source + (x Shr 16))^];
+      Inc(x, dx);
+      Inc(dest);
+    End;
+
+    c := count Shr 2;
+    count := count And 3;
+
+    While c <> 0 Do
+    Begin
+      Dec(c);
+      Pint32(dest)^ := iface^.lookup[(source + (x Shr 16))^] Or
+                      (iface^.lookup[(source + ((x + dx) Shr 16))^] Shl 8) Or
+                      (iface^.lookup[(source + ((x + (dx Shl 1)) Shr 16))^] Shl 16) Or
+                      (iface^.lookup[(source + ((x + dx + (dx Shl 1)) Shr 16))^] Shl 24);
+      Inc(x, dx Shl 2);
+      Inc(dest, 4);
+    End;
+
+    While count > 0 Do
+    Begin
+      Dec(count);
+      dest^ := iface^.lookup[(source + (x Shr 16))^];
+      Inc(dest);
+    End;
+
+    { Go to next destination row }
+    Inc(dest, iface^.d_add);
+
+    { Calculate amount of rows to move in source surface }
+    Inc(y, dy);
+
+    Inc(source, (y Shr 16) * DWord(iface^.s_pitch));
+    y := y And $ffff;
+    Dec(iface^.d_height);
+  Until iface^.d_height = 0;
+End;

packages/extra/hermes/p_muhmu.pp

@@ -0,0 +1,899 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{
+   muhmuh converters for the HERMES library
+   Copyright (c) 1998 Christian Nentwich ([email protected])
+   This source code is licensed under the GNU LGPL
+ 
+   Please refer to the file COPYING.LIB contained in the distribution for
+   licensing conditions
+}
+
+{ TO 32 RGB }
+Procedure ConvertP_muhmu32_32rgb888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_pixel : int32;
+
+Begin
+  Repeat
+    s_pixel := Pint32(source)^;
+
+    Pint32(dest)^ := (s_pixel And $ff) Or
+                    ((s_pixel And ($ff Shl 10)) Shr 2) Or
+	            ((s_pixel And ($ff Shl 20)) Shr 4);
+    
+    Inc(dest, 4);
+    Inc(source, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 32 BGR }
+Procedure ConvertP_muhmu32_32bgr888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_pixel : int32;
+
+Begin
+  Repeat
+    s_pixel := Pint32(source)^;
+
+    Pint32(dest)^ := ((s_pixel And $ff) Shl 16) Or
+                     ((s_pixel And ($ff Shl 10)) Shr 2) Or
+	             ((s_pixel Shr 20) And $FF);
+
+    Inc(dest, 4);
+    Inc(source, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 32 RGBA }
+Procedure ConvertP_muhmu32_32rgba888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_pixel : int32;
+
+Begin
+  Repeat
+    s_pixel := Pint32(source)^;
+
+    Pint32(dest)^ := (((s_pixel And $ff) Or
+                      ((s_pixel And ($ff Shl 10)) Shr 2) Or
+	              ((s_pixel And ($ff Shl 20)) Shr 4)) Shl 8) Or $FF;
+    
+    Inc(dest, 4);
+    Inc(source, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 32 BGRA }
+Procedure ConvertP_muhmu32_32bgra888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_pixel : int32;
+
+Begin
+  Repeat
+    s_pixel := Pint32(source)^;
+
+    Pint32(dest)^ := (((s_pixel And $ff) Shl 24) Or
+                      ((s_pixel And ($ff Shl 10)) Shl 6) Or
+	              ((s_pixel Shr 12) And $FF00)) Or $FF;
+
+    Inc(dest, 4);
+    Inc(source, 4);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 24 RGB }
+Procedure ConvertP_muhmu32_24rgb888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_pixel : int32;
+  s_point : Pchar8;
+
+Begin
+  s_point := @s_pixel;
+  Repeat
+    s_pixel := Pint32(source)^;
+    s_pixel := (s_pixel And $ff) Or
+               ((s_pixel And ($ff Shl 10)) Shr 2) Or
+	       ((s_pixel And ($ff Shl 20)) Shr 4);
+
+    (dest+R_24)^ := (s_point+R_32)^;
+    (dest+G_24)^ := (s_point+G_32)^;
+    (dest+B_24)^ := (s_point+B_32)^;
+
+    Inc(source, 4);
+    Inc(dest, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 24 BGR }
+Procedure ConvertP_muhmu32_24bgr888(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  s_pixel : int32;
+  s_point : Pchar8;
+
+Begin
+  s_point := @s_pixel;
+  Repeat
+    s_pixel := Pint32(source)^;
+    s_pixel := (s_pixel And $ff) Or
+               ((s_pixel And ($ff Shl 10)) Shr 2) Or
+	       ((s_pixel And ($ff Shl 20)) Shr 4);
+
+    { Note that R and B are swapped }
+    (dest+B_24)^ := (s_point+R_32)^;
+    (dest+G_24)^ := (s_point+G_32)^;
+    (dest+R_24)^ := (s_point+B_32)^;
+
+    Inc(source, 4);
+    Inc(dest, 3);
+    Dec(count);
+  Until count = 0;
+End;
+
+{ TO 16 RGB 565 }
+Procedure ConvertP_muhmu32_16rgb565(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  r, g, b : int32;
+  s_pixel, d_pixelblock : int32;
+  d_pixel : short16;
+
+Begin
+  { If the current pixel isn't dword aligned, try write one pixel first }
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+  
+    r := (s_pixel Shr 12) And $f800;
+    g := (s_pixel Shr 7) And $7e0;
+    b := (s_pixel Shr 3) And $1f;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+
+    Inc(source, 4);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  { Write blocks of two pixels }
+  For i := 1 To count Shr 1 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    d_pixelblock := ((s_pixel Shr 12) And $f800) Or
+                    ((s_pixel Shr 7) And $7e0) Or
+		    ((s_pixel Shr 3) And $1f);
+
+    s_pixel := (Pint32(source) + 1)^;
+
+    d_pixelblock := d_pixelblock Or
+      ((((s_pixel Shr 12) And $f800) Or
+        ((s_pixel Shr 7) And $7e0) Or
+	((s_pixel Shr 3) And $1f)) Shl 16);
+
+    Pint32(dest)^ := d_pixelblock;
+    Inc(source, 8); Inc(dest, 4);
+  End;
+
+  { Eventually, write a single odd pixel that might be left }
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+
+    r := (s_pixel Shr 12) And $f800;
+    g := (s_pixel Shr 7) And $7e0;
+    b := (s_pixel Shr 3) And $1f;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+  End;
+End;
+
+{ TO 16 BGR 565 }
+Procedure ConvertP_muhmu32_16bgr565(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  r, g, b : int32;
+  s_pixel, d_pixelblock : int32;
+  d_pixel : short16;
+
+Begin
+  { If the current pixel isn't dword aligned, try write one pixel first }
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+  
+    r := (s_pixel Shr 23) And $1f;
+    g := (s_pixel Shr 7) And $7e0;
+    b := (s_pixel Shl 8) And $f800;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+
+    Inc(source, 4);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  { Write blocks of two pixels }
+  For i := 1 To count Shr 1 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    d_pixelblock := ((s_pixel Shr 23) And $1f) Or
+                    ((s_pixel Shr 7) And $7e0) Or
+		    ((s_pixel Shl 8) And $f800);
+
+    s_pixel := (Pint32(source) + 1)^;
+
+    d_pixelblock := d_pixelblock Or
+      ((((s_pixel Shr 23) And $1f) Or
+        ((s_pixel Shr 7) And $7e0) Or
+	((s_pixel Shl 8) And $f800)) Shl 16);
+
+    Pint32(dest)^ := d_pixelblock;
+    Inc(source, 8); Inc(dest, 4);
+  End;
+
+  { Eventually, write a single odd pixel that might be left }
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+
+    r := (s_pixel Shr 23) And $1f;
+    g := (s_pixel Shr 7) And $7e0;
+    b := (s_pixel Shl 8) And $f800;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+  End;
+End;
+
+{ TO 16 RGB 555 }
+Procedure ConvertP_muhmu32_16rgb555(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  r, g, b : int32;
+  s_pixel, d_pixelblock : int32;
+  d_pixel : short16;
+
+Begin
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+  
+    r := (s_pixel Shr 13) And $7c00;
+    g := (s_pixel Shr 8) And $3e0;
+    b := (s_pixel Shr 3) And $1f;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+
+    Inc(source, 4);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  For i := 1 To count Shr 1 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    d_pixelblock := ((s_pixel Shr 13) And $7c00) Or
+                    ((s_pixel Shr 8) And $3e0) Or
+		    ((s_pixel Shr 3) And $1f);
+
+    s_pixel := (Pint32(source) + 1)^;
+
+    d_pixelblock := d_pixelblock Or
+      ((((s_pixel Shr 13) And $7c00) Or
+        ((s_pixel Shr 8) And $3e0) Or
+	((s_pixel Shr 3) And $1f)) Shl 16);
+
+    Pint32(dest)^ := d_pixelblock;
+    Inc(source, 8); Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+
+    r := (s_pixel Shr 13) And $7c00;
+    g := (s_pixel Shr 8) And $3e0;
+    b := (s_pixel Shr 3) And $1f;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+  End;
+End;
+
+{ TO 16 BGR 555 }
+Procedure ConvertP_muhmu32_16bgr555(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  r, g, b : int32;
+  s_pixel, d_pixelblock : int32;
+  d_pixel : short16;
+
+Begin
+  If (PtrUInt(dest) And $3) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+  
+    r := (s_pixel Shr 23) And $1f;
+    g := (s_pixel Shr 8) And $3e0;
+    b := (s_pixel Shl 7) And $7c00;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+
+    Inc(source, 4);
+    Inc(dest, 2);
+    Dec(count);
+  End;
+
+  For i := 1 To count Shr 1 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    d_pixelblock := ((s_pixel Shr 23) And $1f) Or
+                    ((s_pixel Shr 8) And $3e0) Or
+		    ((s_pixel Shl 7) And $7c00);
+
+    s_pixel := (Pint32(source) + 1)^;
+
+    d_pixelblock := d_pixelblock Or
+      ((((s_pixel Shr 23) And $1f) Or
+        ((s_pixel Shr 8) And $3e0) Or
+	((s_pixel Shl 7) And $7c00)) Shl 16);
+
+    Pint32(dest)^ := d_pixelblock;
+    Inc(source, 8); Inc(dest, 4);
+  End;
+
+  If (count And 1) <> 0 Then
+  Begin
+    s_pixel := Pint32(source)^;
+
+    r := (s_pixel Shr 23) And $1f;
+    g := (s_pixel Shr 8) And $3e0;
+    b := (s_pixel Shl 7) And $7c00;
+
+    d_pixel := r Or g Or b;
+
+    Pshort16(dest)^ := d_pixel;
+  End;
+End;
+
+{ TO 8 RGB 332 }
+Procedure ConvertP_muhmu32_8rgb332(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  i : DWord;
+  s_pixel, d_block : int32;
+  d_pixel : char8;
+
+Begin
+  { Process single pixels until we are dword aligned }
+  While (PtrUInt(dest) And $3) <> 0 Do
+  Begin
+    s_pixel := Pint32(source)^;
+
+    d_pixel := ((s_pixel Shr 20) And $e0) Or
+               ((s_pixel Shr 13) And $1c) Or
+	       ((s_pixel Shr 6) And $3);
+
+    dest^ := d_pixel;
+
+    Dec(count);
+    If count = 0 Then
+      Exit;
+    Inc(dest);
+    Inc(source, 4);
+  End;
+
+  { Now process blocks of four pixels }
+  For i := 1 To count Shr 2 Do
+  Begin
+    s_pixel := Pint32(source)^;
+    d_block := ((s_pixel Shr 20) And $e0) Or
+               ((s_pixel Shr 13) And $1c) Or
+	       ((s_pixel Shr 6) And $3);
+
+    s_pixel := (Pint32(source) + 1)^;
+    d_block := d_block Or
+               ((((s_pixel Shr 20) And $e0) Or
+                 ((s_pixel Shr 13) And $1c) Or
+	         ((s_pixel Shr 6) And $3)) Shl 8);
+
+    s_pixel := (Pint32(source) + 2)^;
+    d_block := d_block Or
+               ((((s_pixel Shr 20) And $e0) Or
+                 ((s_pixel Shr 13) And $1c) Or
+	         ((s_pixel Shr 6) And $3)) Shl 16);
+
+    s_pixel := (Pint32(source) + 3)^;
+    d_block := d_block Or
+               ((((s_pixel Shr 20) And $e0) Or
+                 ((s_pixel Shr 13) And $1c) Or
+	         ((s_pixel Shr 6) And $3)) Shl 24);
+
+    Pint32(dest)^ := d_block;
+    Inc(source, 16);
+    Inc(dest, 4);
+  End;
+
+  { Write all possibly remaining pixel }
+  count := count And 3;
+  While count <> 0 Do
+  Begin
+    Dec(count);
+    dest^ := ((s_pixel Shr 20) And $e0) Or
+             ((s_pixel Shr 13) And $1c) Or
+	     ((s_pixel Shr 6) And $3);
+
+    Inc(dest);
+    Inc(source, 4);
+  End;
+End;
+
+{ -------------------------------------------------------------------------
+
+                             STRETCH CONVERTERS
+   
+  ------------------------------------------------------------------------- }
+
+Procedure ConvertP_muhmu32_32rgb888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  s_pixel : DWord;
+
+Begin
+  x := 0;
+  While count > 0 Do
+  Begin
+    s_pixel := Pint32(source)^;
+    Pint32(dest)^ := (s_pixel And $ff) Or
+                    ((s_pixel And ($ff Shl 10)) Shr 2) Or
+	            ((s_pixel And ($ff Shl 20)) Shr 4);
+    Inc(x, inc_source);
+    Inc(source, (x Shr 16)*4);
+    x := x And $FFFF;
+    Inc(dest, 4);
+    Dec(count);
+  End;
+End;
+
+Procedure ConvertP_muhmu32_32bgr888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  s_pixel : DWord;
+
+Begin
+  x := 0;
+  While count > 0 Do
+  Begin
+    s_pixel := Pint32(source)^;
+    Pint32(dest)^ := ((s_pixel And $ff) Shl 16) Or
+                     ((s_pixel And ($ff Shl 10)) Shr 2) Or
+	             ((s_pixel Shr 20) And $FF);
+    Inc(x, inc_source);
+    Inc(source, (x Shr 16)*4);
+    x := x And $FFFF;
+    Inc(dest, 4);
+    Dec(count);
+  End;
+End;
+
+Procedure ConvertP_muhmu32_32rgba888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  s_pixel : DWord;
+
+Begin
+  x := 0;
+  While count > 0 Do
+  Begin
+    s_pixel := Pint32(source)^;
+    Pint32(dest)^ := (((s_pixel And $ff) Or
+                      ((s_pixel And ($ff Shl 10)) Shr 2) Or
+	              ((s_pixel And ($ff Shl 20)) Shr 4)) Shl 8) Or $FF;
+    Inc(x, inc_source);
+    Inc(source, (x Shr 16)*4);
+    x := x And $FFFF;
+    Inc(dest, 4);
+    Dec(count);
+  End;
+End;
+
+Procedure ConvertP_muhmu32_32bgra888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  s_pixel : DWord;
+
+Begin
+  x := 0;
+  While count > 0 Do
+  Begin
+    s_pixel := Pint32(source)^;
+    Pint32(dest)^ := (((s_pixel And $ff) Shl 24) Or
+                      ((s_pixel And ($ff Shl 10)) Shl 6) Or
+	              ((s_pixel Shr 12) And $FF00)) Or $FF;
+    Inc(x, inc_source);
+    Inc(source, (x Shr 16)*4);
+    x := x And $FFFF;
+    Inc(dest, 4);
+    Dec(count);
+  End;
+End;
+
+Procedure ConvertP_muhmu32_24rgb888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  p1, p2, p3, p4 : DWord;
+  c : DWord;
+
+Begin
+  x := 0;
+  While (PtrUInt(dest) And 3) <> 0 Do
+  Begin
+    p1 := (Pint32(source) + (x Shr 16))^;
+    p1 := (p1 And $ff) Or
+         ((p1 And ($ff Shl 10)) Shr 2) Or
+         ((p1 And ($ff Shl 20)) Shr 4);
+    Pshort16(dest)^ := p1 And $FFFF;
+    Pchar8(dest + 2)^ := p1 Shr 16;
+    
+    Inc(x, inc_source);
+    Inc(dest, 3);
+    Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+  
+  c := count Shr 2;
+  While c > 0 Do
+  Begin
+    p1 := (Pint32(source) + (x Shr 16))^;
+    p2 := (Pint32(source) + ((x + inc_source) Shr 16))^;
+    p3 := (Pint32(source) + ((x + 2*inc_source) Shr 16))^;
+    p4 := (Pint32(source) + ((x + 3*inc_source) Shr 16))^;
+    
+    Pint32(dest + 0)^ := ((p2 And $FF) Shl 24) Or ((p1 And $FF00000) Shr 4) Or ((p1 And $3FC00) Shr 2) Or (p1 And $FF);
+    Pint32(dest + 4)^ := ((p3 And $3FC00) Shl 14) Or ((p3 And $FF) Shl 16) Or ((p2 And $FF00000) Shr 12) Or ((p2 And $3FC00) Shr 10);
+    Pint32(dest + 8)^ := ((p4 And $FF00000) Shl 4) Or ((p4 And $3FC00) Shl 6) Or ((p4 And $FF) Shl 8) Or ((p3 And $FF00000) Shr 20);
+    
+    Dec(c);
+    Inc(x, inc_source*4);
+    Inc(dest, 12);
+  End;
+  
+  count := count And 3;
+  While count > 0 Do
+  Begin
+    p1 := (Pint32(source) + (x Shr 16))^;
+    p1 := (p1 And $ff) Or
+         ((p1 And ($ff Shl 10)) Shr 2) Or
+         ((p1 And ($ff Shl 20)) Shr 4);
+    Pshort16(dest)^ := p1 And $FFFF;
+    Pchar8(dest + 2)^ := p1 Shr 16;
+    
+    Inc(x, inc_source);
+    Inc(dest, 3);
+    Dec(count);
+  End;
+End;
+
+Procedure ConvertP_muhmu32_24bgr888_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x : DWord;
+  p1, p2, p3, p4 : DWord;
+  c : DWord;
+
+Begin
+  x := 0;
+  While (PtrUInt(dest) And 3) <> 0 Do
+  Begin
+    p1 := (Pint32(source) + (x Shr 16))^;
+    p1 := ((p1 And $ff) Shl 16) Or
+          ((p1 And ($ff Shl 10)) Shr 2) Or
+          ((p1 And ($ff Shl 20)) Shr 20);
+    Pshort16(dest)^ := p1 And $FFFF;
+    Pchar8(dest + 2)^ := p1 Shr 16;
+    
+    Inc(x, inc_source);
+    Inc(dest, 3);
+    Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+  
+  c := count Shr 2;
+  While c > 0 Do
+  Begin
+    p1 := (Pint32(source) + (x Shr 16))^;
+    p2 := (Pint32(source) + ((x + inc_source) Shr 16))^;
+    p3 := (Pint32(source) + ((x + 2*inc_source) Shr 16))^;
+    p4 := (Pint32(source) + ((x + 3*inc_source) Shr 16))^;
+    
+    Pint32(dest + 0)^ := ((p2 And $FF00000) Shl 4) Or ((p1 And $FF) Shl 16) Or ((p1 And $3FC00) Shr 2) Or ((p1 And $FF00000) Shr 20);
+    Pint32(dest + 4)^ := ((p3 And $3FC00) Shl 14) Or ((p3 And $FF00000) Shr 4) Or ((p2 And $FF) Shl 8) Or ((p2 And $3FC00) Shr 10);
+    Pint32(dest + 8)^ := ((p4 And $FF) Shl 24) Or ((p4 And $3FC00) Shl 6) Or ((p4 And $FF00000) Shr 12) Or (p3 And $FF);
+    
+    Dec(c);
+    Inc(x, inc_source*4);
+    Inc(dest, 12);
+  End;
+  
+  count := count And 3;
+  While count > 0 Do
+  Begin
+    p1 := (Pint32(source) + (x Shr 16))^;
+    p1 := ((p1 And $ff) Shl 16) Or
+          ((p1 And ($ff Shl 10)) Shr 2) Or
+          ((p1 And ($ff Shl 20)) Shr 20);
+    Pshort16(dest)^ := p1 And $FFFF;
+    Pchar8(dest + 2)^ := p1 Shr 16;
+    
+    Inc(x, inc_source);
+    Inc(dest, 3);
+    Dec(count);
+  End;
+End;
+
+Procedure ConvertP_muhmu32_16rgb565_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Try to write 2 pixel blocks }
+  c := count Shr 1; 
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pint32(source) + (x Shr 16))^ Shr 12) And $f800) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 7) And $7e0) Or
+	 (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 12) And $f800) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 7) And $7e0) Or
+	 (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+  End;
+
+  { Write trailing pixel }
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 12) And $f800) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 7) And $7e0) Or
+	               (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f);
+End;
+
+Procedure ConvertP_muhmu32_16bgr565_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Try to write 2 pixel blocks }
+  c := count Shr 1; 
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pint32(source) + (x Shr 16))^ Shr 23) And $1f) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 7) And $7e0) Or
+	 (((Pint32(source) + (x Shr 16))^ Shl 8) And $f800);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 23) And $1f) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 7) And $7e0) Or
+	 (((Pint32(source) + (x Shr 16))^ Shl 8) And $f800)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+  End;
+
+  { Write trailing pixel }
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 23) And $1f) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 7) And $7e0) Or
+	               (((Pint32(source) + (x Shr 16))^ Shl 8) And $f800);
+End;
+
+Procedure ConvertP_muhmu32_16rgb555_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Try to write 2 pixel blocks }
+  c := count Shr 1; 
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pint32(source) + (x Shr 16))^ Shr 13) And $7c00) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 8) And $3e0) Or
+	 (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 13) And $7c00) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 8) And $3e0) Or
+	 (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+  End;
+
+  { Write trailing pixel }
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 13) And $7c00) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 8) And $3e0) Or
+	               (((Pint32(source) + (x Shr 16))^ Shr 3) And $1f);
+End;
+
+Procedure ConvertP_muhmu32_16bgr555_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+  { Try to write 2 pixel blocks }
+  c := count Shr 1; 
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pint32(source) + (x Shr 16))^ Shr 23) And $1f) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 8) And $3e0) Or
+	 (((Pint32(source) + (x Shr 16))^ Shl 7) And $7c00);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 23) And $1f) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 8) And $3e0) Or
+	 (((Pint32(source) + (x Shr 16))^ Shl 7) And $7c00)) Shl 16);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+  End;
+
+  { Write trailing pixel }
+  If (count And 1) <> 0 Then
+    Pshort16(dest)^ := (((Pint32(source) + (x Shr 16))^ Shr 23) And $1f) Or
+                       (((Pint32(source) + (x Shr 16))^ Shr 8) And $3e0) Or
+	               (((Pint32(source) + (x Shr 16))^ Shl 7) And $7c00);
+End;
+
+Procedure ConvertP_muhmu32_8rgb332_S(source, dest : Pchar8; count, inc_source : DWord); CDecl;
+
+Var
+  x, c : DWord;
+  p : int32;
+
+Begin
+  x := 0;
+
+  { Write single pixels until the destination address is aligned mod 4 }
+  While (PtrUInt(dest) And $3) <> 0 Do
+  Begin
+    dest^ := (((Pint32(source) + (x Shr 16))^ Shr 20) And $e0) Or
+             (((Pint32(source) + (x Shr 16))^ Shr 13) And $1c) Or
+	     (((Pint32(source) + (x Shr 16))^ Shr 6) And $3);
+    Inc(x, inc_source);
+    Inc(dest);
+    Dec(count);
+    If count = 0 Then
+      Exit;
+  End;
+
+  { Write blocks of four pixels now }
+  c := count Shr 2;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    p := (((Pint32(source) + (x Shr 16))^ Shr 20) And $e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 13) And $1c) Or
+	 (((Pint32(source) + (x Shr 16))^ Shr 6) And $3);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 20) And $e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 13) And $1c) Or
+	 (((Pint32(source) + (x Shr 16))^ Shr 6) And $3)) Shl 8);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 20) And $e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 13) And $1c) Or
+	 (((Pint32(source) + (x Shr 16))^ Shr 6) And $3)) Shl 16);
+    Inc(x, inc_source);
+
+    p := p Or
+       (((((Pint32(source) + (x Shr 16))^ Shr 20) And $e0) Or
+         (((Pint32(source) + (x Shr 16))^ Shr 13) And $1c) Or
+	 (((Pint32(source) + (x Shr 16))^ Shr 6) And $3)) Shl 24);
+    Inc(x, inc_source);
+
+    Pint32(dest)^ := p;
+
+    Inc(dest, 4);
+  End;
+
+  { Write up to three trailing pixels }
+  c := count And $3;
+  While c <> 0 Do
+  Begin
+    Dec(c);
+    dest^ := (((Pint32(source) + (x Shr 16))^ Shr 20) And $e0) Or
+             (((Pint32(source) + (x Shr 16))^ Shr 13) And $1c) Or
+	     (((Pint32(source) + (x Shr 16))^ Shr 6) And $3);
+    Inc(x, inc_source);
+    Inc(dest);
+  End;
+End;

packages/extra/hermes/palette.inc

@@ -0,0 +1,348 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Type
+  PHermesLookupTable = ^THermesLookupTable;
+  THermesLookupTable = Record
+    data : ^int32;             { Actual lookup table }
+    valid : Boolean;           { Is this table up to date? }
+    format : THermesFormat;    { Format of lookup table }
+  End;
+  PHermesPalette = ^THermesPalette;
+  THermesPalette = Record
+    data : ^int32;             { Palette data }
+    tables : PHermesList;      { Linked list of HermesLookupTables }
+  End;
+
+Const
+  PaletteList : PHermesList = Nil;
+  PALETTErefcount : Integer = 0;
+  currenthandle : THermesHandle = 0;
+
+{Function Hermes_PaletteGetTable(palette : THermesHandle; format : PHermesFormat) : Pointer;
+Procedure Hermes_PaletteMakeLookup(lookup, palette : Pint32;
+                                   format : PHermesFormat);
+
+Function Hermes_PaletteInstance : THermesHandle;
+Procedure Hermes_PaletteReturn(handle : THermesHandle);
+Procedure Hermes_PaletteSet(handle : THermesHandle; palette : Pointer);
+Function Hermes_PaletteGet(handle : THermesHandle) : Pointer;
+Procedure Hermes_PaletteInvalidateCache(handle : THermesHandle);}
+
+Function Hermes_PaletteInstance : THermesHandle;
+
+Var
+  newinstance : PHermesPalette;
+  newelement : PHermesListElement;
+
+Begin
+  If PaletteList = Nil Then
+  Begin
+    PaletteList := Hermes_ListNew;
+    { Could not create a new list }
+    If PaletteList = Nil Then
+    Begin
+      Hermes_PaletteInstance := 0;
+      Exit;
+    End;
+  End;
+  { Create a new palette structure }
+  newinstance := malloc(SizeOf(THermesPalette));
+  If newinstance = Nil Then
+  Begin
+    Hermes_PaletteInstance := 0;
+    Exit;
+  End;
+  { Create palette data }
+  newinstance^.data := malloc(256*SizeOf(int32));
+  If newinstance^.data = Nil Then
+  Begin
+    free(newinstance);
+    Hermes_PaletteInstance := 0;
+    Exit;
+  End;
+  { Create lookup table list }
+  newinstance^.tables := Hermes_ListNew;
+  If newinstance^.tables = Nil Then
+  Begin
+    free(newinstance^.data);
+    free(newinstance);
+    Hermes_PaletteInstance := 0;
+    Exit;
+  End;
+  { Everything fine so far, create a new list element }
+  newelement := Hermes_ListElementNew(currenthandle+1);
+  If newelement = Nil Then
+  Begin
+    Hermes_ListDestroy(newinstance^.tables);
+    free(newinstance^.data);
+    free(newinstance);
+    Hermes_PaletteInstance := 0;
+    Exit;
+  End;
+
+  { No errors, put current palette structure into the list element and add
+    that to the list }
+  newelement^.data := newinstance;
+
+  Hermes_ListAdd(PaletteList, newelement);
+
+  Inc(PALETTErefcount);
+  Inc(currenthandle);
+  Hermes_PaletteInstance := currenthandle;
+End;
+
+Procedure Hermes_PaletteReturn(handle : THermesHandle);
+
+Var
+  element : PHermesListElement;
+  pal : PHermesPalette;
+  table : PHermesLookupTable;
+
+Begin
+  element := Hermes_ListLookup(PaletteList, handle);
+  If element = Nil Then
+    Exit;
+
+  pal := element^.data;
+
+
+  { Free palette data and lookup tables }
+  free(pal^.data);
+
+  element := pal^.tables^.first;
+  While element <> Nil Do
+  Begin
+    table := element^.data;
+    If (table <> Nil) And (table^.data <> Nil) Then
+    Begin
+      free(table^.data);
+      table^.data := Nil;
+    End;
+    element := element^.next;
+  End;
+  Hermes_ListDestroy(pal^.tables);
+
+
+  { Delete list element that holds this palette }
+  Hermes_ListDeleteElement(PaletteList, handle);
+
+
+  { Decrease reference count. If down to zero, delete palette list }
+  Dec(PALETTErefcount);
+  If PALETTErefcount = 0 Then
+  Begin
+    Hermes_ListDestroy(PaletteList);
+    PaletteList := Nil;
+  End;
+End;
+
+Procedure Hermes_PaletteSet(handle : THermesHandle; palette : Pointer);
+
+Var
+  element : PHermesListElement;
+  pal : PHermesPalette;
+
+Begin
+{  DebugMSG('Hermes_PaletteSet('+C2Str(handle)+','+C2Str(DWord(palette))+')');}
+  element := Hermes_ListLookup(PaletteList, handle);
+  If element = Nil Then
+    Exit;
+
+  pal := element^.data;
+  element := pal^.tables^.first;
+
+  { Invalidate all lookup tables }
+
+  While element <> Nil Do
+  Begin
+    (PHermesLookupTable(element^.data))^.valid := False;
+    element := element^.next;
+  End;
+
+{  FillChar(palette^, 256*4, $7f);}
+  Move(palette^, pal^.data^, 256*4);
+End;
+
+Function Hermes_PaletteGet(handle : THermesHandle) : Pointer;
+
+Var
+  element : PHermesListElement;
+  pal : PHermesPalette;
+
+Begin
+  element := Hermes_ListLookup(PaletteList, handle);
+  If element = Nil Then
+  Begin
+    Hermes_PaletteGet := Nil;
+    Exit;
+  End;
+
+  pal := element^.data;
+  Hermes_PaletteGet := pal^.data;
+End;
+
+Procedure Hermes_PaletteMakeLookup(lookup, palette : Pint32;
+                                   format : PHermesFormat);
+
+Var
+  info : THermesGenericInfo;
+  I : Integer;
+  r, g, b : int32;
+
+Begin
+{  DebugMSG('Yo! Hermes_PaletteMakeLookup');}
+  r := 0;
+  g := 0;
+  b := 0;
+  If format^.indexed Then
+    Exit;
+
+  Hermes_Calculate_Generic_Info(24,16,8,32,
+                                Hermes_Topbit(format^.r),
+                                Hermes_Topbit(format^.g),
+                                Hermes_Topbit(format^.b),
+                                Hermes_Topbit(format^.a),
+                                @info);
+
+  { Optimised loop if there are no left shifts }
+  If (info.r_left = 0) And (info.g_left = 0) And (info.b_left = 0) Then
+    For I := 0 To 255 Do
+    Begin
+      r := (palette[i] Shr info.r_right) And format^.r;
+      g := (palette[i] Shr info.g_right) And format^.g;
+      b := (palette[i] Shr info.b_right) And format^.b;
+      lookup[i] := r Or g Or b;
+    End
+  Else
+    For I := 0 To 255 Do
+    Begin
+      r := ((palette[i] Shr info.r_right) Shl info.r_left) And format^.r;
+      g := ((palette[i] Shr info.g_right) Shl info.g_left) And format^.g;
+      b := ((palette[i] Shr info.b_right) Shl info.b_left) And format^.b;
+      lookup[i] := r Or g Or b;
+    End;
+End;
+
+Function Hermes_PaletteGetTable(palette : THermesHandle; format : PHermesFormat) : Pointer;
+
+Var
+  element : PHermesListElement;
+  pal : PHermesPalette;
+  table : PHermesLookupTable;
+
+Begin
+  element := Hermes_ListLookup(PaletteList, palette);
+  If element = Nil Then
+  Begin
+    Hermes_PaletteGetTable := Nil;
+    Exit;
+  End;
+
+  pal := element^.data;
+
+  { Go to the first table in the list }
+  element := pal^.tables^.first;
+
+  { Search for correct table using format }
+  While element <> Nil Do
+  Begin
+    table := element^.data;
+
+    If Hermes_FormatEquals(@table^.format, format) Then
+    Begin
+      If table^.valid Then
+      Begin
+        Hermes_PaletteGetTable := table^.data;
+        Exit;
+      End;
+
+      { Have to recreate the lookup table }
+      Hermes_PaletteMakeLookup(table^.data, pal^.data, format);
+      table^.valid := True;
+
+      Hermes_PaletteGetTable := table^.data;
+      Exit;
+    End;
+
+    element := element^.next;
+  End;
+
+  { Format not found, have to create a new table (need no handle) }
+  table := malloc(SizeOf(THermesLookupTable));
+  If table = Nil Then
+  Begin
+    Hermes_PaletteGetTable := Nil;
+    Exit;
+  End;
+
+  table^.data := malloc(1024);
+  If table^.data = Nil Then
+  Begin
+    Hermes_PaletteGetTable := Nil;
+    Exit;
+  End;
+
+  { Create lookup table }
+  Hermes_PaletteMakeLookup(table^.data, pal^.data, format);
+  Hermes_FormatCopy(format, @table^.format);
+
+  table^.valid := True;
+
+  { Create a new list element }
+  element := Hermes_ListElementNew(0);
+  If element = Nil Then
+  Begin
+    Hermes_PaletteGetTable := Nil;
+    Exit;
+  End;
+  element^.data := table;
+
+  { Add to the front of the list }
+  Hermes_ListAddFront(pal^.tables, element);
+
+  { Return lookup data }
+  Hermes_PaletteGetTable := table^.data;
+
+End;
+
+Procedure Hermes_PaletteInvalidateCache(handle : THermesHandle);
+
+Var
+  element : PHermesListElement;
+  pal : PHermesPalette;
+
+Begin
+  element := Hermes_ListLookup(PaletteList, handle);
+  If element = Nil Then
+    Exit;
+
+  pal := element^.data;
+
+  element := pal^.tables^.first;
+
+  { Invalidate all lookup tables }
+
+  While element <> Nil Do
+  Begin
+    (PHermesLookupTable(element^.data))^.valid := False;
+    element := element^.next;
+  End;
+End;

packages/extra/hermes/utility.pp

@@ -0,0 +1,111 @@
+{
+    Free Pascal port of the Hermes C library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C version by Christian Nentwich ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{Procedure Hermes_Calculate_Generic_Info(s_r, s_g, s_b, s_a, 
+                                        d_r, d_g, d_b, d_a : int32;
+					info : PHermesGenericInfo);
+Function Hermes_Topbit(mask : int32) : Integer;}
+
+Procedure Hermes_Calculate_Generic_Info(s_r, s_g, s_b, s_a, 
+                                        d_r, d_g, d_b, d_a : Integer;
+					info : PHermesGenericInfo);
+
+Var
+  r_right, g_right, b_right, a_right : Integer;
+
+Begin
+  {Calculate right shift amount for red. If it's <0, then set it to 0
+   and calculate left shift amount}
+  r_right := s_r - d_r;
+  If r_right < 0 Then
+  Begin
+    info^.r_left := -r_right;
+    info^.r_right := 0;
+  End
+  Else
+  Begin
+    info^.r_left := 0;
+    info^.r_right := r_right;
+  End;
+  
+  {Same for green}
+  g_right := s_g - d_g;
+  If g_right < 0 Then
+  Begin
+    info^.g_left := -g_right;
+    info^.g_right := 0;
+  End
+  Else
+  Begin
+    info^.g_left := 0;
+    info^.g_right := g_right;
+  End;
+  
+  {Same for blue}
+  b_right := s_b - d_b;
+  If b_right < 0 Then
+  Begin
+    info^.b_left := -b_right;
+    info^.b_right := 0;
+  End
+  Else
+  Begin
+    info^.b_left := 0;
+    info^.b_right := b_right;
+  End;
+  
+  {Alpha}
+  a_right := s_a - d_a;
+  If a_right < 0 Then
+  Begin
+    info^.a_left := -a_right;
+    info^.a_right := 0;
+  End
+  Else
+  Begin
+    info^.a_left := 0;
+    info^.a_right := a_right;
+  End;
+End;
+
+Function Hermes_Topbit(mask : int32) : Integer;
+
+Var
+  i : Integer;
+
+Begin
+  If mask = 0 Then
+  Begin
+    Hermes_Topbit := 0;
+    Exit;
+  End;
+  i := 0;
+  While (mask And 1) = 0 Do
+  Begin
+    mask := mask Shr 1;
+    Inc(i);
+  End;
+  While (mask And 1) = 1 Do
+  Begin
+    mask := mask Shr 1;
+    Inc(i);
+  End;
+  Hermes_Topbit := i;
+End;

packages/extra/ptc/Makefile

@@ -0,0 +1,2601 @@
+#
+# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/11/26]
+#
+default: all
+MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-wince powerpc64-linux
+BSDs = freebsd netbsd openbsd darwin
+UNIXs = linux $(BSDs) solaris qnx
+LIMIT83fs = go32v2 os2 emx watcom
+FORCE:
+.PHONY: FORCE
+override PATH:=$(patsubst %/,%,$(subst \,/,$(PATH)))
+ifneq ($(findstring darwin,$(OSTYPE)),)
+inUnix=1 #darwin
+SEARCHPATH:=$(filter-out .,$(subst :, ,$(PATH)))
+else
+ifeq ($(findstring ;,$(PATH)),)
+inUnix=1
+SEARCHPATH:=$(filter-out .,$(subst :, ,$(PATH)))
+else
+SEARCHPATH:=$(subst ;, ,$(PATH))
+endif
+endif
+SEARCHPATH+=$(patsubst %/,%,$(subst \,/,$(dir $(MAKE))))
+PWD:=$(strip $(wildcard $(addsuffix /pwd.exe,$(SEARCHPATH))))
+ifeq ($(PWD),)
+PWD:=$(strip $(wildcard $(addsuffix /pwd,$(SEARCHPATH))))
+ifeq ($(PWD),)
+$(error You need the GNU utils package to use this Makefile)
+else
+PWD:=$(firstword $(PWD))
+SRCEXEEXT=
+endif
+else
+PWD:=$(firstword $(PWD))
+SRCEXEEXT=.exe
+endif
+ifndef inUnix
+ifeq ($(OS),Windows_NT)
+inWinNT=1
+else
+ifdef OS2_SHELL
+inOS2=1
+endif
+endif
+else
+ifneq ($(findstring cygdrive,$(PATH)),)
+inCygWin=1
+endif
+endif
+ifdef inUnix
+SRCBATCHEXT=.sh
+else
+ifdef inOS2
+SRCBATCHEXT=.cmd
+else
+SRCBATCHEXT=.bat
+endif
+endif
+ifdef inUnix
+PATHSEP=/
+else
+PATHSEP:=$(subst /,\,/)
+ifdef inCygWin
+PATHSEP=/
+endif
+endif
+ifdef PWD
+BASEDIR:=$(subst \,/,$(shell $(PWD)))
+ifdef inCygWin
+ifneq ($(findstring /cygdrive/,$(BASEDIR)),)
+BASENODIR:=$(patsubst /cygdrive%,%,$(BASEDIR))
+BASEDRIVE:=$(firstword $(subst /, ,$(BASENODIR)))
+BASEDIR:=$(subst /cygdrive/$(BASEDRIVE)/,$(BASEDRIVE):/,$(BASEDIR))
+endif
+endif
+else
+BASEDIR=.
+endif
+ifdef inOS2
+ifndef ECHO
+ECHO:=$(strip $(wildcard $(addsuffix /gecho$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO=echo
+else
+ECHO:=$(firstword $(ECHO))
+endif
+else
+ECHO:=$(firstword $(ECHO))
+endif
+endif
+export ECHO
+endif
+override DEFAULT_FPCDIR=../../..
+ifndef FPC
+ifdef PP
+FPC=$(PP)
+endif
+endif
+ifndef FPC
+FPCPROG:=$(strip $(wildcard $(addsuffix /fpc$(SRCEXEEXT),$(SEARCHPATH))))
+ifneq ($(FPCPROG),)
+FPCPROG:=$(firstword $(FPCPROG))
+FPC:=$(shell $(FPCPROG) -PB)
+ifneq ($(findstring Error,$(FPC)),)
+override FPC=$(firstword $(strip $(wildcard $(addsuffix /ppc386$(SRCEXEEXT),$(SEARCHPATH)))))
+endif
+else
+override FPC=$(firstword $(strip $(wildcard $(addsuffix /ppc386$(SRCEXEEXT),$(SEARCHPATH)))))
+endif
+endif
+override FPC:=$(subst $(SRCEXEEXT),,$(FPC))
+override FPC:=$(subst \,/,$(FPC))$(SRCEXEEXT)
+FOUNDFPC:=$(strip $(wildcard $(FPC)))
+ifeq ($(FOUNDFPC),)
+FOUNDFPC=$(strip $(wildcard $(addsuffix /$(FPC),$(SEARCHPATH))))
+ifeq ($(FOUNDFPC),)
+$(error Compiler $(FPC) not found)
+endif
+endif
+ifndef FPC_COMPILERINFO
+FPC_COMPILERINFO:=$(shell $(FPC) -iVSPTPSOTO)
+endif
+ifndef FPC_VERSION
+FPC_VERSION:=$(word 1,$(FPC_COMPILERINFO))
+endif
+export FPC FPC_VERSION FPC_COMPILERINFO
+unexport CHECKDEPEND ALLDEPENDENCIES
+ifndef CPU_TARGET
+ifdef CPU_TARGET_DEFAULT
+CPU_TARGET=$(CPU_TARGET_DEFAULT)
+endif
+endif
+ifndef OS_TARGET
+ifdef OS_TARGET_DEFAULT
+OS_TARGET=$(OS_TARGET_DEFAULT)
+endif
+endif
+ifneq ($(words $(FPC_COMPILERINFO)),5)
+FPC_COMPILERINFO+=$(shell $(FPC) -iSP)
+FPC_COMPILERINFO+=$(shell $(FPC) -iTP)
+FPC_COMPILERINFO+=$(shell $(FPC) -iSO)
+FPC_COMPILERINFO+=$(shell $(FPC) -iTO)
+endif
+ifndef CPU_SOURCE
+CPU_SOURCE:=$(word 2,$(FPC_COMPILERINFO))
+endif
+ifndef CPU_TARGET
+CPU_TARGET:=$(word 3,$(FPC_COMPILERINFO))
+endif
+ifndef OS_SOURCE
+OS_SOURCE:=$(word 4,$(FPC_COMPILERINFO))
+endif
+ifndef OS_TARGET
+OS_TARGET:=$(word 5,$(FPC_COMPILERINFO))
+endif
+FULL_TARGET=$(CPU_TARGET)-$(OS_TARGET)
+FULL_SOURCE=$(CPU_SOURCE)-$(OS_SOURCE)
+ifneq ($(findstring $(OS_SOURCE),$(LIMIT83fs)),)
+TARGETSUFFIX=$(OS_TARGET)
+SOURCESUFFIX=$(OS_SOURCE)
+else
+TARGETSUFFIX=$(FULL_TARGET)
+SOURCESUFFIX=$(FULL_SOURCE)
+endif
+ifneq ($(FULL_TARGET),$(FULL_SOURCE))
+CROSSCOMPILE=1
+endif
+ifeq ($(findstring makefile,$(MAKECMDGOALS)),)
+ifeq ($(findstring $(FULL_TARGET),$(MAKEFILETARGETS)),)
+$(error The Makefile doesn't support target $(FULL_TARGET), please run fpcmake first)
+endif
+endif
+ifneq ($(findstring $(OS_TARGET),$(BSDs)),)
+BSDhier=1
+endif
+ifeq ($(OS_TARGET),linux)
+linuxHier=1
+endif
+export OS_TARGET OS_SOURCE CPU_TARGET CPU_SOURCE FULL_TARGET FULL_SOURCE TARGETSUFFIX SOURCESUFFIX CROSSCOMPILE
+ifdef FPCDIR
+override FPCDIR:=$(subst \,/,$(FPCDIR))
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR=wrong
+endif
+else
+override FPCDIR=wrong
+endif
+ifdef DEFAULT_FPCDIR
+ifeq ($(FPCDIR),wrong)
+override FPCDIR:=$(subst \,/,$(DEFAULT_FPCDIR))
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR=wrong
+endif
+endif
+endif
+ifeq ($(FPCDIR),wrong)
+ifdef inUnix
+override FPCDIR=/usr/local/lib/fpc/$(FPC_VERSION)
+ifeq ($(wildcard $(FPCDIR)/units),)
+override FPCDIR=/usr/lib/fpc/$(FPC_VERSION)
+endif
+else
+override FPCDIR:=$(subst /$(FPC),,$(firstword $(strip $(wildcard $(addsuffix /$(FPC),$(SEARCHPATH))))))
+override FPCDIR:=$(FPCDIR)/..
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR:=$(FPCDIR)/..
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR:=$(BASEDIR)
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR=c:/pp
+endif
+endif
+endif
+endif
+endif
+ifndef CROSSBINDIR
+CROSSBINDIR:=$(wildcard $(FPCDIR)/bin/$(TARGETSUFFIX))
+endif
+ifndef BINUTILSPREFIX
+ifndef CROSSBINDIR
+ifdef CROSSCOMPILE
+BINUTILSPREFIX=$(CPU_TARGET)-$(OS_TARGET)-
+endif
+endif
+endif
+UNITSDIR:=$(wildcard $(FPCDIR)/units/$(TARGETSUFFIX))
+ifeq ($(UNITSDIR),)
+UNITSDIR:=$(wildcard $(FPCDIR)/units/$(OS_TARGET))
+endif
+PACKAGESDIR:=$(wildcard $(FPCDIR) $(FPCDIR)/packages/base $(FPCDIR)/packages/extra)
+override PACKAGE_NAME=ptc
+override PACKAGE_VERSION=0.99.5
+ifeq ($(FULL_TARGET),i386-linux)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override TARGET_UNITS+=ptc
+endif
+ifeq ($(FULL_TARGET),i386-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override TARGET_LOADERS+=$(CPU_LOADERS)
+endif
+ifeq ($(FULL_TARGET),i386-linux)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override TARGET_EXAMPLEDIRS+=demos examples
+endif
+ifeq ($(FULL_TARGET),i386-linux)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override COMPILER_UNITDIR+=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa win32/directx
+endif
+ifeq ($(FULL_TARGET),i386-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override COMPILER_TARGETDIR+=.
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override COMPILER_TARGETDIR+=.
+endif
+ifdef REQUIRE_UNITSDIR
+override UNITSDIR+=$(REQUIRE_UNITSDIR)
+endif
+ifdef REQUIRE_PACKAGESDIR
+override PACKAGESDIR+=$(REQUIRE_PACKAGESDIR)
+endif
+ifdef ZIPINSTALL
+ifneq ($(findstring $(OS_TARGET),$(UNIXs)),)
+UNIXHier=1
+endif
+else
+ifneq ($(findstring $(OS_SOURCE),$(UNIXs)),)
+UNIXHier=1
+endif
+endif
+ifndef INSTALL_PREFIX
+ifdef PREFIX
+INSTALL_PREFIX=$(PREFIX)
+endif
+endif
+ifndef INSTALL_PREFIX
+ifdef UNIXHier
+INSTALL_PREFIX=/usr/local
+else
+ifdef INSTALL_FPCPACKAGE
+INSTALL_BASEDIR:=/pp
+else
+INSTALL_BASEDIR:=/$(PACKAGE_NAME)
+endif
+endif
+endif
+export INSTALL_PREFIX
+ifdef INSTALL_FPCSUBDIR
+export INSTALL_FPCSUBDIR
+endif
+ifndef DIST_DESTDIR
+DIST_DESTDIR:=$(BASEDIR)
+endif
+export DIST_DESTDIR
+ifndef COMPILER_UNITTARGETDIR
+ifdef PACKAGEDIR_MAIN
+COMPILER_UNITTARGETDIR=$(PACKAGEDIR_MAIN)/units/$(TARGETSUFFIX)
+else
+COMPILER_UNITTARGETDIR=units/$(TARGETSUFFIX)
+endif
+endif
+ifndef COMPILER_TARGETDIR
+COMPILER_TARGETDIR=.
+endif
+ifndef INSTALL_BASEDIR
+ifdef UNIXHier
+ifdef INSTALL_FPCPACKAGE
+INSTALL_BASEDIR:=$(INSTALL_PREFIX)/lib/fpc/$(FPC_VERSION)
+else
+INSTALL_BASEDIR:=$(INSTALL_PREFIX)/lib/$(PACKAGE_NAME)
+endif
+else
+INSTALL_BASEDIR:=$(INSTALL_PREFIX)
+endif
+endif
+ifndef INSTALL_BINDIR
+ifdef UNIXHier
+INSTALL_BINDIR:=$(INSTALL_PREFIX)/bin
+else
+INSTALL_BINDIR:=$(INSTALL_BASEDIR)/bin
+ifdef INSTALL_FPCPACKAGE
+ifdef CROSSCOMPILE
+ifdef CROSSINSTALL
+INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(SOURCESUFFIX)
+else
+INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(TARGETSUFFIX)
+endif
+else
+INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(TARGETSUFFIX)
+endif
+endif
+endif
+endif
+ifndef INSTALL_UNITDIR
+INSTALL_UNITDIR:=$(INSTALL_BASEDIR)/units/$(TARGETSUFFIX)
+ifdef INSTALL_FPCPACKAGE
+ifdef PACKAGE_NAME
+INSTALL_UNITDIR:=$(INSTALL_UNITDIR)/$(PACKAGE_NAME)
+endif
+endif
+endif
+ifndef INSTALL_LIBDIR
+ifdef UNIXHier
+INSTALL_LIBDIR:=$(INSTALL_PREFIX)/lib
+else
+INSTALL_LIBDIR:=$(INSTALL_UNITDIR)
+endif
+endif
+ifndef INSTALL_SOURCEDIR
+ifdef UNIXHier
+ifdef BSDhier
+SRCPREFIXDIR=share/src
+else
+ifdef linuxHier
+SRCPREFIXDIR=share/src
+else
+SRCPREFIXDIR=src
+endif
+endif
+ifdef INSTALL_FPCPACKAGE
+ifdef INSTALL_FPCSUBDIR
+INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/fpc-$(FPC_VERSION)/$(INSTALL_FPCSUBDIR)/$(PACKAGE_NAME)
+else
+INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/fpc-$(FPC_VERSION)/$(PACKAGE_NAME)
+endif
+else
+INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+endif
+else
+ifdef INSTALL_FPCPACKAGE
+ifdef INSTALL_FPCSUBDIR
+INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source/$(INSTALL_FPCSUBDIR)/$(PACKAGE_NAME)
+else
+INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source/$(PACKAGE_NAME)
+endif
+else
+INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source
+endif
+endif
+endif
+ifndef INSTALL_DOCDIR
+ifdef UNIXHier
+ifdef BSDhier
+DOCPREFIXDIR=share/doc
+else
+ifdef linuxHier
+DOCPREFIXDIR=share/doc
+else
+DOCPREFIXDIR=doc
+endif
+endif
+ifdef INSTALL_FPCPACKAGE
+INSTALL_DOCDIR:=$(INSTALL_PREFIX)/$(DOCPREFIXDIR)/fpc-$(FPC_VERSION)/$(PACKAGE_NAME)
+else
+INSTALL_DOCDIR:=$(INSTALL_PREFIX)/$(DOCPREFIXDIR)/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+endif
+else
+ifdef INSTALL_FPCPACKAGE
+INSTALL_DOCDIR:=$(INSTALL_BASEDIR)/doc/$(PACKAGE_NAME)
+else
+INSTALL_DOCDIR:=$(INSTALL_BASEDIR)/doc
+endif
+endif
+endif
+ifndef INSTALL_EXAMPLEDIR
+ifdef UNIXHier
+ifdef INSTALL_FPCPACKAGE
+ifdef BSDhier
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/share/examples/fpc-$(FPC_VERSION)/$(PACKAGE_NAME)
+else
+ifdef linuxHier
+INSTALL_EXAMPLEDIR:=$(INSTALL_DOCDIR)/examples
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/doc/fpc-$(FPC_VERSION)/examples/$(PACKAGE_NAME)
+endif
+endif
+else
+ifdef BSDhier
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/share/examples/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+else
+ifdef linuxHier
+INSTALL_EXAMPLEDIR:=$(INSTALL_DOCDIR)/examples/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/doc/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+endif
+endif
+endif
+else
+ifdef INSTALL_FPCPACKAGE
+INSTALL_EXAMPLEDIR:=$(INSTALL_BASEDIR)/examples/$(PACKAGE_NAME)
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_BASEDIR)/examples
+endif
+endif
+endif
+ifndef INSTALL_DATADIR
+INSTALL_DATADIR=$(INSTALL_BASEDIR)
+endif
+ifdef CROSSCOMPILE
+ifndef CROSSBINDIR
+CROSSBINDIR:=$(wildcard $(CROSSTARGETDIR)/bin/$(SOURCESUFFIX))
+ifeq ($(CROSSBINDIR),)
+CROSSBINDIR:=$(wildcard $(INSTALL_BASEDIR)/cross/$(TARGETSUFFIX)/bin/$(FULL_SOURCE))
+endif
+endif
+else
+CROSSBINDIR=
+endif
+ifeq ($(OS_SOURCE),linux)
+ifndef GCCLIBDIR
+ifeq ($(CPU_TARGET),i386)
+ifneq ($(findstring x86_64,$(shell uname -a)),)
+ifeq ($(BINUTILSPREFIX),)
+GCCLIBDIR:=$(shell dirname `gcc -m32 -print-libgcc-file-name`)
+endif
+endif
+endif
+endif
+ifndef GCCLIBDIR
+CROSSGCC=$(strip $(wildcard $(addsuffix /$(BINUTILSPREFIX)gcc$(SRCEXEEXT),$(SEARCHPATH))))
+ifneq ($(CROSSGCC),)
+GCCLIBDIR:=$(shell dirname `$(CROSSGCC) -print-libgcc-file-name`)
+endif
+endif
+ifndef OTHERLIBDIR
+OTHERLIBDIR:=$(shell grep -v "^\#" /etc/ld.so.conf | awk '{ ORS=" "; print $1 }')
+endif
+endif
+ifdef inUnix
+ifeq ($(OS_SOURCE),netbsd)
+OTHERLIBDIR+=/usr/pkg/lib
+endif
+export GCCLIBDIR OTHERLIB
+endif
+BATCHEXT=.bat
+LOADEREXT=.as
+EXEEXT=.exe
+PPLEXT=.ppl
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.so
+STATICLIBPREFIX=libp
+RSTEXT=.rst
+ifeq ($(findstring 1.0.,$(FPC_VERSION)),)
+ifeq ($(OS_TARGET),go32v1)
+STATICLIBPREFIX=
+SHORTSUFFIX=v1
+endif
+ifeq ($(OS_TARGET),go32v2)
+STATICLIBPREFIX=
+SHORTSUFFIX=dos
+endif
+ifeq ($(OS_TARGET),watcom)
+STATICLIBPREFIX=
+OEXT=.obj
+ASMEXT=.asm
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=wat
+endif
+ifeq ($(OS_TARGET),linux)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=lnx
+endif
+ifeq ($(OS_TARGET),freebsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=fbs
+endif
+ifeq ($(OS_TARGET),netbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=nbs
+endif
+ifeq ($(OS_TARGET),openbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=obs
+endif
+ifeq ($(OS_TARGET),win32)
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=w32
+endif
+ifeq ($(OS_TARGET),os2)
+BATCHEXT=.cmd
+AOUTEXT=.out
+STATICLIBPREFIX=
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=os2
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),emx)
+BATCHEXT=.cmd
+AOUTEXT=.out
+STATICLIBPREFIX=
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=emx
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),amiga)
+EXEEXT=
+SHAREDLIBEXT=.library
+SHORTSUFFIX=amg
+endif
+ifeq ($(OS_TARGET),morphos)
+EXEEXT=
+SHAREDLIBEXT=.library
+SHORTSUFFIX=mos
+endif
+ifeq ($(OS_TARGET),atari)
+EXEEXT=.ttp
+SHORTSUFFIX=ata
+endif
+ifeq ($(OS_TARGET),beos)
+BATCHEXT=.sh
+EXEEXT=
+SHORTSUFFIX=be
+endif
+ifeq ($(OS_TARGET),solaris)
+BATCHEXT=.sh
+EXEEXT=
+SHORTSUFFIX=sun
+endif
+ifeq ($(OS_TARGET),qnx)
+BATCHEXT=.sh
+EXEEXT=
+SHORTSUFFIX=qnx
+endif
+ifeq ($(OS_TARGET),netware)
+EXEEXT=.nlm
+STATICLIBPREFIX=
+SHORTSUFFIX=nw
+endif
+ifeq ($(OS_TARGET),netwlibc)
+EXEEXT=.nlm
+STATICLIBPREFIX=
+SHORTSUFFIX=nwl
+endif
+ifeq ($(OS_TARGET),macos)
+BATCHEXT=
+EXEEXT=
+DEBUGSYMEXT=.xcoff
+SHORTSUFFIX=mac
+endif
+ifeq ($(OS_TARGET),darwin)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=dwn
+endif
+else
+ifeq ($(OS_TARGET),go32v1)
+PPUEXT=.pp1
+OEXT=.o1
+ASMEXT=.s1
+SMARTEXT=.sl1
+STATICLIBEXT=.a1
+SHAREDLIBEXT=.so1
+STATICLIBPREFIX=
+SHORTSUFFIX=v1
+endif
+ifeq ($(OS_TARGET),go32v2)
+STATICLIBPREFIX=
+SHORTSUFFIX=dos
+endif
+ifeq ($(OS_TARGET),watcom)
+STATICLIBPREFIX=
+SHORTSUFFIX=wat
+endif
+ifeq ($(OS_TARGET),linux)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=lnx
+endif
+ifeq ($(OS_TARGET),freebsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=fbs
+endif
+ifeq ($(OS_TARGET),netbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=nbs
+endif
+ifeq ($(OS_TARGET),openbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=obs
+endif
+ifeq ($(OS_TARGET),win32)
+PPUEXT=.ppw
+OEXT=.ow
+ASMEXT=.sw
+SMARTEXT=.slw
+STATICLIBEXT=.aw
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=w32
+endif
+ifeq ($(OS_TARGET),os2)
+BATCHEXT=.cmd
+PPUEXT=.ppo
+ASMEXT=.so2
+OEXT=.oo2
+AOUTEXT=.out
+SMARTEXT=.sl2
+STATICLIBPREFIX=
+STATICLIBEXT=.ao2
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=os2
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),amiga)
+EXEEXT=
+PPUEXT=.ppu
+ASMEXT=.asm
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.library
+SHORTSUFFIX=amg
+endif
+ifeq ($(OS_TARGET),atari)
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=.ttp
+SHORTSUFFIX=ata
+endif
+ifeq ($(OS_TARGET),beos)
+BATCHEXT=.sh
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+SHORTSUFFIX=be
+endif
+ifeq ($(OS_TARGET),solaris)
+BATCHEXT=.sh
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+SHORTSUFFIX=sun
+endif
+ifeq ($(OS_TARGET),qnx)
+BATCHEXT=.sh
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+SHORTSUFFIX=qnx
+endif
+ifeq ($(OS_TARGET),netware)
+STATICLIBPREFIX=
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.nlm
+EXEEXT=.nlm
+SHORTSUFFIX=nw
+endif
+ifeq ($(OS_TARGET),netwlibc)
+STATICLIBPREFIX=
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.nlm
+EXEEXT=.nlm
+SHORTSUFFIX=nwl
+endif
+ifeq ($(OS_TARGET),macos)
+BATCHEXT=
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+DEBUGSYMEXT=.xcoff
+SHORTSUFFIX=mac
+endif
+endif
+ifneq ($(findstring $(OS_SOURCE),$(LIMIT83fs)),)
+FPCMADE=fpcmade.$(SHORTSUFFIX)
+ZIPSUFFIX=$(SHORTSUFFIX)
+ZIPCROSSPREFIX=
+ZIPSOURCESUFFIX=src
+ZIPEXAMPLESUFFIX=exm
+else
+FPCMADE=fpcmade.$(TARGETSUFFIX)
+ZIPSOURCESUFFIX=.source
+ZIPEXAMPLESUFFIX=.examples
+ifdef CROSSCOMPILE
+ZIPSUFFIX=.$(SOURCESUFFIX)
+ZIPCROSSPREFIX=$(TARGETSUFFIX)-
+else
+ZIPSUFFIX=.$(TARGETSUFFIX)
+ZIPCROSSPREFIX=
+endif
+endif
+ifndef ECHO
+ECHO:=$(strip $(wildcard $(addsuffix /gecho$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO= __missing_command_ECHO
+else
+ECHO:=$(firstword $(ECHO))
+endif
+else
+ECHO:=$(firstword $(ECHO))
+endif
+endif
+export ECHO
+ifndef DATE
+DATE:=$(strip $(wildcard $(addsuffix /gdate$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(DATE),)
+DATE:=$(strip $(wildcard $(addsuffix /date$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(DATE),)
+DATE= __missing_command_DATE
+else
+DATE:=$(firstword $(DATE))
+endif
+else
+DATE:=$(firstword $(DATE))
+endif
+endif
+export DATE
+ifndef GINSTALL
+GINSTALL:=$(strip $(wildcard $(addsuffix /ginstall$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(GINSTALL),)
+GINSTALL:=$(strip $(wildcard $(addsuffix /install$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(GINSTALL),)
+GINSTALL= __missing_command_GINSTALL
+else
+GINSTALL:=$(firstword $(GINSTALL))
+endif
+else
+GINSTALL:=$(firstword $(GINSTALL))
+endif
+endif
+export GINSTALL
+ifndef CPPROG
+CPPROG:=$(strip $(wildcard $(addsuffix /cp$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(CPPROG),)
+CPPROG= __missing_command_CPPROG
+else
+CPPROG:=$(firstword $(CPPROG))
+endif
+endif
+export CPPROG
+ifndef RMPROG
+RMPROG:=$(strip $(wildcard $(addsuffix /rm$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(RMPROG),)
+RMPROG= __missing_command_RMPROG
+else
+RMPROG:=$(firstword $(RMPROG))
+endif
+endif
+export RMPROG
+ifndef MVPROG
+MVPROG:=$(strip $(wildcard $(addsuffix /mv$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(MVPROG),)
+MVPROG= __missing_command_MVPROG
+else
+MVPROG:=$(firstword $(MVPROG))
+endif
+endif
+export MVPROG
+ifndef MKDIRPROG
+MKDIRPROG:=$(strip $(wildcard $(addsuffix /gmkdir$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(MKDIRPROG),)
+MKDIRPROG:=$(strip $(wildcard $(addsuffix /mkdir$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(MKDIRPROG),)
+MKDIRPROG= __missing_command_MKDIRPROG
+else
+MKDIRPROG:=$(firstword $(MKDIRPROG))
+endif
+else
+MKDIRPROG:=$(firstword $(MKDIRPROG))
+endif
+endif
+export MKDIRPROG
+ifndef ECHOREDIR
+ifndef inUnix
+ECHOREDIR=echo
+else
+ECHOREDIR=$(ECHO)
+endif
+endif
+ifndef COPY
+COPY:=$(CPPROG) -fp
+endif
+ifndef COPYTREE
+COPYTREE:=$(CPPROG) -Rfp
+endif
+ifndef MKDIRTREE
+MKDIRTREE:=$(MKDIRPROG) -p
+endif
+ifndef MOVE
+MOVE:=$(MVPROG) -f
+endif
+ifndef DEL
+DEL:=$(RMPROG) -f
+endif
+ifndef DELTREE
+DELTREE:=$(RMPROG) -rf
+endif
+ifndef INSTALL
+ifdef inUnix
+INSTALL:=$(GINSTALL) -c -m 644
+else
+INSTALL:=$(COPY)
+endif
+endif
+ifndef INSTALLEXE
+ifdef inUnix
+INSTALLEXE:=$(GINSTALL) -c -m 755
+else
+INSTALLEXE:=$(COPY)
+endif
+endif
+ifndef MKDIR
+MKDIR:=$(GINSTALL) -m 755 -d
+endif
+export ECHOREDIR COPY COPYTREE MOVE DEL DELTREE INSTALL INSTALLEXE MKDIR
+ifndef PPUMOVE
+PPUMOVE:=$(strip $(wildcard $(addsuffix /ppumove$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(PPUMOVE),)
+PPUMOVE= __missing_command_PPUMOVE
+else
+PPUMOVE:=$(firstword $(PPUMOVE))
+endif
+endif
+export PPUMOVE
+ifndef FPCMAKE
+FPCMAKE:=$(strip $(wildcard $(addsuffix /fpcmake$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(FPCMAKE),)
+FPCMAKE= __missing_command_FPCMAKE
+else
+FPCMAKE:=$(firstword $(FPCMAKE))
+endif
+endif
+export FPCMAKE
+ifndef ZIPPROG
+ZIPPROG:=$(strip $(wildcard $(addsuffix /zip$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ZIPPROG),)
+ZIPPROG= __missing_command_ZIPPROG
+else
+ZIPPROG:=$(firstword $(ZIPPROG))
+endif
+endif
+export ZIPPROG
+ifndef TARPROG
+TARPROG:=$(strip $(wildcard $(addsuffix /tar$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(TARPROG),)
+TARPROG= __missing_command_TARPROG
+else
+TARPROG:=$(firstword $(TARPROG))
+endif
+endif
+export TARPROG
+ASNAME=$(BINUTILSPREFIX)as
+LDNAME=$(BINUTILSPREFIX)ld
+ARNAME=$(BINUTILSPREFIX)ar
+RCNAME=$(BINUTILSPREFIX)rc
+ifneq ($(findstring 1.0.,$(FPC_VERSION)),)
+ifeq ($(OS_TARGET),win32)
+ifeq ($(CROSSBINDIR),)
+ASNAME=asw
+LDNAME=ldw
+ARNAME=arw
+endif
+endif
+endif
+ifndef ASPROG
+ifdef CROSSBINDIR
+ASPROG=$(CROSSBINDIR)/$(ASNAME)$(SRCEXEEXT)
+else
+ASPROG=$(ASNAME)
+endif
+endif
+ifndef LDPROG
+ifdef CROSSBINDIR
+LDPROG=$(CROSSBINDIR)/$(LDNAME)$(SRCEXEEXT)
+else
+LDPROG=$(LDNAME)
+endif
+endif
+ifndef RCPROG
+ifdef CROSSBINDIR
+RCPROG=$(CROSSBINDIR)/$(RCNAME)$(SRCEXEEXT)
+else
+RCPROG=$(RCNAME)
+endif
+endif
+ifndef ARPROG
+ifdef CROSSBINDIR
+ARPROG=$(CROSSBINDIR)/$(ARNAME)$(SRCEXEEXT)
+else
+ARPROG=$(ARNAME)
+endif
+endif
+AS=$(ASPROG)
+LD=$(LDPROG)
+RC=$(RCPROG)
+AR=$(ARPROG)
+PPAS=ppas$(SRCBATCHEXT)
+ifdef inUnix
+LDCONFIG=ldconfig
+else
+LDCONFIG=
+endif
+ifdef DATE
+DATESTR:=$(shell $(DATE) +%Y%m%d)
+else
+DATESTR=
+endif
+ifndef UPXPROG
+ifeq ($(OS_TARGET),go32v2)
+UPXPROG:=1
+endif
+ifeq ($(OS_TARGET),win32)
+UPXPROG:=1
+endif
+ifdef UPXPROG
+UPXPROG:=$(strip $(wildcard $(addsuffix /upx$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(UPXPROG),)
+UPXPROG=
+else
+UPXPROG:=$(firstword $(UPXPROG))
+endif
+else
+UPXPROG=
+endif
+endif
+export UPXPROG
+ZIPOPT=-9
+ZIPEXT=.zip
+ifeq ($(USETAR),bz2)
+TAROPT=vj
+TAREXT=.tar.bz2
+else
+TAROPT=vz
+TAREXT=.tar.gz
+endif
+override REQUIRE_PACKAGES=rtl hermes
+ifeq ($(FULL_TARGET),i386-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+endif
+ifdef REQUIRE_PACKAGES_RTL
+PACKAGEDIR_RTL:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /rtl/Makefile.fpc,$(PACKAGESDIR))))))
+ifneq ($(PACKAGEDIR_RTL),)
+ifneq ($(wildcard $(PACKAGEDIR_RTL)/units/$(TARGETSUFFIX)),)
+UNITDIR_RTL=$(PACKAGEDIR_RTL)/units/$(TARGETSUFFIX)
+else
+UNITDIR_RTL=$(PACKAGEDIR_RTL)
+endif
+ifdef CHECKDEPEND
+$(PACKAGEDIR_RTL)/$(FPCMADE):
+	$(MAKE) -C $(PACKAGEDIR_RTL) $(FPCMADE)
+override ALLDEPENDENCIES+=$(PACKAGEDIR_RTL)/$(FPCMADE)
+endif
+else
+PACKAGEDIR_RTL=
+UNITDIR_RTL:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /rtl/Package.fpc,$(UNITSDIR)))))
+ifneq ($(UNITDIR_RTL),)
+UNITDIR_RTL:=$(firstword $(UNITDIR_RTL))
+else
+UNITDIR_RTL=
+endif
+endif
+ifdef UNITDIR_RTL
+override COMPILER_UNITDIR+=$(UNITDIR_RTL)
+endif
+endif
+ifdef REQUIRE_PACKAGES_HERMES
+PACKAGEDIR_HERMES:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /hermes/Makefile.fpc,$(PACKAGESDIR))))))
+ifneq ($(PACKAGEDIR_HERMES),)
+ifneq ($(wildcard $(PACKAGEDIR_HERMES)/units/$(TARGETSUFFIX)),)
+UNITDIR_HERMES=$(PACKAGEDIR_HERMES)/units/$(TARGETSUFFIX)
+else
+UNITDIR_HERMES=$(PACKAGEDIR_HERMES)
+endif
+ifdef CHECKDEPEND
+$(PACKAGEDIR_HERMES)/$(FPCMADE):
+	$(MAKE) -C $(PACKAGEDIR_HERMES) $(FPCMADE)
+override ALLDEPENDENCIES+=$(PACKAGEDIR_HERMES)/$(FPCMADE)
+endif
+else
+PACKAGEDIR_HERMES=
+UNITDIR_HERMES:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /hermes/Package.fpc,$(UNITSDIR)))))
+ifneq ($(UNITDIR_HERMES),)
+UNITDIR_HERMES:=$(firstword $(UNITDIR_HERMES))
+else
+UNITDIR_HERMES=
+endif
+endif
+ifdef UNITDIR_HERMES
+override COMPILER_UNITDIR+=$(UNITDIR_HERMES)
+endif
+endif
+ifdef REQUIRE_PACKAGES_X11
+PACKAGEDIR_X11:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /x11/Makefile.fpc,$(PACKAGESDIR))))))
+ifneq ($(PACKAGEDIR_X11),)
+ifneq ($(wildcard $(PACKAGEDIR_X11)/units/$(TARGETSUFFIX)),)
+UNITDIR_X11=$(PACKAGEDIR_X11)/units/$(TARGETSUFFIX)
+else
+UNITDIR_X11=$(PACKAGEDIR_X11)
+endif
+ifdef CHECKDEPEND
+$(PACKAGEDIR_X11)/$(FPCMADE):
+	$(MAKE) -C $(PACKAGEDIR_X11) $(FPCMADE)
+override ALLDEPENDENCIES+=$(PACKAGEDIR_X11)/$(FPCMADE)
+endif
+else
+PACKAGEDIR_X11=
+UNITDIR_X11:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /x11/Package.fpc,$(UNITSDIR)))))
+ifneq ($(UNITDIR_X11),)
+UNITDIR_X11:=$(firstword $(UNITDIR_X11))
+else
+UNITDIR_X11=
+endif
+endif
+ifdef UNITDIR_X11
+override COMPILER_UNITDIR+=$(UNITDIR_X11)
+endif
+endif
+ifndef NOCPUDEF
+override FPCOPTDEF=$(CPU_TARGET)
+endif
+ifneq ($(OS_TARGET),$(OS_SOURCE))
+override FPCOPT+=-T$(OS_TARGET)
+endif
+ifeq ($(OS_SOURCE),openbsd)
+override FPCOPT+=-FD$(NEW_BINUTILS_PATH)
+endif
+ifndef CROSSBOOTSTRAP
+ifneq ($(BINUTILSPREFIX),)
+override FPCOPT+=-XP$(BINUTILSPREFIX) -Xc
+endif
+ifneq ($(BINUTILSPREFIX),)
+override FPCOPT+=-Xr$(RLINKPATH)
+endif
+endif
+ifdef UNITDIR
+override FPCOPT+=$(addprefix -Fu,$(UNITDIR))
+endif
+ifdef LIBDIR
+override FPCOPT+=$(addprefix -Fl,$(LIBDIR))
+endif
+ifdef OBJDIR
+override FPCOPT+=$(addprefix -Fo,$(OBJDIR))
+endif
+ifdef INCDIR
+override FPCOPT+=$(addprefix -Fi,$(INCDIR))
+endif
+ifdef LINKSMART
+override FPCOPT+=-XX
+endif
+ifdef CREATESMART
+override FPCOPT+=-CX
+endif
+ifdef DEBUG
+override FPCOPT+=-gl
+override FPCOPTDEF+=DEBUG
+endif
+ifdef RELEASE
+ifeq ($(CPU_TARGET),i386)
+FPCCPUOPT:=-OG2p3
+else
+ifeq ($(CPU_TARGET),powerpc)
+FPCCPUOPT:=-O1r
+else
+FPCCPUOPT:=
+endif
+endif
+override FPCOPT+=-Ur -Xs $(FPCCPUOPT) -n
+override FPCOPTDEF+=RELEASE
+endif
+ifdef STRIP
+override FPCOPT+=-Xs
+endif
+ifdef OPTIMIZE
+ifeq ($(CPU_TARGET),i386)
+override FPCOPT+=-OG2p3
+endif
+endif
+ifdef VERBOSE
+override FPCOPT+=-vwni
+endif
+ifdef COMPILER_OPTIONS
+override FPCOPT+=$(COMPILER_OPTIONS)
+endif
+ifdef COMPILER_UNITDIR
+override FPCOPT+=$(addprefix -Fu,$(COMPILER_UNITDIR))
+endif
+ifdef COMPILER_LIBRARYDIR
+override FPCOPT+=$(addprefix -Fl,$(COMPILER_LIBRARYDIR))
+endif
+ifdef COMPILER_OBJECTDIR
+override FPCOPT+=$(addprefix -Fo,$(COMPILER_OBJECTDIR))
+endif
+ifdef COMPILER_INCLUDEDIR
+override FPCOPT+=$(addprefix -Fi,$(COMPILER_INCLUDEDIR))
+endif
+ifdef CROSSBINDIR
+override FPCOPT+=-FD$(CROSSBINDIR)
+endif
+ifdef COMPILER_TARGETDIR
+override FPCOPT+=-FE$(COMPILER_TARGETDIR)
+ifeq ($(COMPILER_TARGETDIR),.)
+override TARGETDIRPREFIX=
+else
+override TARGETDIRPREFIX=$(COMPILER_TARGETDIR)/
+endif
+endif
+ifdef COMPILER_UNITTARGETDIR
+override FPCOPT+=-FU$(COMPILER_UNITTARGETDIR)
+ifeq ($(COMPILER_UNITTARGETDIR),.)
+override UNITTARGETDIRPREFIX=
+else
+override UNITTARGETDIRPREFIX=$(COMPILER_UNITTARGETDIR)/
+endif
+else
+ifdef COMPILER_TARGETDIR
+override COMPILER_UNITTARGETDIR=$(COMPILER_TARGETDIR)
+override UNITTARGETDIRPREFIX=$(TARGETDIRPREFIX)
+endif
+endif
+ifeq ($(OS_TARGET),linux)
+ifeq ($(FPC_VERSION),1.0.6)
+override FPCOPTDEF+=HASUNIX
+endif
+endif
+ifdef GCCLIBDIR
+override FPCOPT+=-Fl$(GCCLIBDIR)
+endif
+ifdef OTHERLIBDIR
+override FPCOPT+=$(addprefix -Fl,$(OTHERLIBDIR))
+endif
+ifdef OPT
+override FPCOPT+=$(OPT)
+endif
+ifdef FPCOPTDEF
+override FPCOPT+=$(addprefix -d,$(FPCOPTDEF))
+endif
+ifdef CFGFILE
+override FPCOPT+=@$(CFGFILE)
+endif
+ifdef USEENV
+override FPCEXTCMD:=$(FPCOPT)
+override FPCOPT:=!FPCEXTCMD
+export FPCEXTCMD
+endif
+override COMPILER:=$(FPC) $(FPCOPT)
+ifeq (,$(findstring -s ,$(COMPILER)))
+EXECPPAS=
+else
+ifeq ($(FULL_SOURCE),$(FULL_TARGET))
+EXECPPAS:=@$(PPAS)
+endif
+endif
+.PHONY: fpc_loaders
+ifneq ($(TARGET_LOADERS),)
+override ALLTARGET+=fpc_loaders
+override CLEANTARGET+=fpc_loaders_clean
+override INSTALLTARGET+=fpc_loaders_install
+override LOADEROFILES:=$(addsuffix $(OEXT),$(TARGET_LOADERS))
+endif
+%$(OEXT): %$(LOADEREXT)
+ifdef COMPILER_UNITTARGETDIR
+	$(AS) -o $(COMPILER_UNITTARGETDIR)/$*$(OEXT) $<
+else
+	$(AS) -o $*$(OEXT) $<
+endif
+fpc_loaders: $(COMPILER_UNITTARGETDIR) $(LOADEROFILES)
+fpc_loaders_clean:
+ifdef COMPILER_UNITTARGETDIR
+	-$(DEL) $(addprefix $(COMPILER_UNITTARGETDIR)/,$(LOADEROFILES))
+else
+	-$(DEL) $(LOADEROFILES)
+endif
+fpc_loaders_install:
+	$(MKDIR) $(INSTALL_UNITDIR)
+ifdef COMPILER_UNITTARGETDIR
+	$(INSTALL) $(addprefix $(COMPILER_UNITTARGETDIR)/,$(LOADEROFILES)) $(INSTALL_UNITDIR)
+else
+	$(INSTALL) $(LOADEROFILES) $(INSTALL_UNITDIR)
+endif
+.PHONY: fpc_units
+ifneq ($(TARGET_UNITS),)
+override ALLTARGET+=fpc_units
+override UNITPPUFILES=$(addsuffix $(PPUEXT),$(TARGET_UNITS))
+override IMPLICITUNITPPUFILES=$(addsuffix $(PPUEXT),$(TARGET_IMPLICITUNITS))
+override INSTALLPPUFILES+=$(UNITPPUFILES) $(IMPLICITUNITPPUFILES)
+override CLEANPPUFILES+=$(UNITPPUFILES) $(IMPLICITUNITPPUFILES)
+endif
+fpc_units: $(COMPILER_UNITTARGETDIR) $(UNITPPUFILES)
+ifdef TARGET_RSTS
+override RSTFILES=$(addsuffix $(RSTEXT),$(TARGET_RSTS))
+override CLEANRSTFILES+=$(RSTFILES)
+endif
+.PHONY: fpc_examples
+ifneq ($(TARGET_EXAMPLES),)
+HASEXAMPLES=1
+override EXAMPLESOURCEFILES:=$(wildcard $(addsuffix .pp,$(TARGET_EXAMPLES)) $(addsuffix .pas,$(TARGET_EXAMPLES)) $(addsuffix .lpr,$(TARGET_EXAMPLES)) $(addsuffix .dpr,$(TARGET_EXAMPLES)))
+override EXAMPLEFILES:=$(addsuffix $(EXEEXT),$(TARGET_EXAMPLES))
+override EXAMPLEOFILES:=$(addsuffix $(OEXT),$(TARGET_EXAMPLES)) $(addprefix $(STATICLIBPREFIX),$(addsuffix $(STATICLIBEXT),$(TARGET_EXAMPLES)))
+override CLEANEXEFILES+=$(EXAMPLEFILES) $(EXAMPLEOFILES)
+ifeq ($(OS_TARGET),os2)
+override CLEANEXEFILES+=$(addsuffix $(AOUTEXT),$(TARGET_EXAMPLES))
+endif
+ifeq ($(OS_TARGET),emx)
+override CLEANEXEFILES+=$(addsuffix $(AOUTEXT),$(TARGET_EXAMPLES))
+endif
+endif
+ifneq ($(TARGET_EXAMPLEDIRS),)
+HASEXAMPLES=1
+endif
+fpc_examples: all $(EXAMPLEFILES) $(addsuffix _all,$(TARGET_EXAMPLEDIRS))
+.PHONY: fpc_all fpc_smart fpc_debug fpc_release
+$(FPCMADE): $(ALLDEPENDENCIES) $(ALLTARGET)
+	@$(ECHOREDIR) Compiled > $(FPCMADE)
+fpc_all: $(FPCMADE)
+fpc_smart:
+	$(MAKE) all LINKSMART=1 CREATESMART=1
+fpc_debug:
+	$(MAKE) all DEBUG=1
+fpc_release:
+	$(MAKE) all RELEASE=1
+.SUFFIXES: $(EXEEXT) $(PPUEXT) $(OEXT) .pas .lpr .dpr .pp .rc .res
+$(COMPILER_UNITTARGETDIR):
+	$(MKDIRTREE) $(COMPILER_UNITTARGETDIR)
+$(COMPILER_TARGETDIR):
+	$(MKDIRTREE) $(COMPILER_TARGETDIR)
+%$(PPUEXT): %.pp
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(PPUEXT): %.pas
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.pp
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.pas
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.lpr
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.dpr
+	$(COMPILER) $<
+	$(EXECPPAS)
+%.res: %.rc
+	windres -i $< -o $@
+vpath %.pp $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %.pas $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %.lpr $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %.dpr $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %$(OEXT) $(COMPILER_UNITTARGETDIR)
+vpath %$(PPUEXT) $(COMPILER_UNITTARGETDIR)
+.PHONY: fpc_install fpc_sourceinstall fpc_exampleinstall
+ifdef INSTALL_UNITS
+override INSTALLPPUFILES+=$(addsuffix $(PPUEXT),$(INSTALL_UNITS))
+endif
+ifdef INSTALL_BUILDUNIT
+override INSTALLPPUFILES:=$(filter-out $(INSTALL_BUILDUNIT)$(PPUEXT),$(INSTALLPPUFILES))
+endif
+ifdef INSTALLPPUFILES
+override INSTALLPPULINKFILES:=$(subst $(PPUEXT),$(OEXT),$(INSTALLPPUFILES)) $(addprefix $(STATICLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(INSTALLPPUFILES)))
+ifneq ($(UNITTARGETDIRPREFIX),)
+override INSTALLPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(notdir $(INSTALLPPUFILES)))
+override INSTALLPPULINKFILES:=$(wildcard $(addprefix $(UNITTARGETDIRPREFIX),$(notdir $(INSTALLPPULINKFILES))))
+endif
+override INSTALL_CREATEPACKAGEFPC=1
+endif
+ifdef INSTALLEXEFILES
+ifneq ($(TARGETDIRPREFIX),)
+override INSTALLEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(notdir $(INSTALLEXEFILES)))
+endif
+endif
+fpc_install: all $(INSTALLTARGET)
+ifdef INSTALLEXEFILES
+	$(MKDIR) $(INSTALL_BINDIR)
+ifdef UPXPROG
+	-$(UPXPROG) $(INSTALLEXEFILES)
+endif
+	$(INSTALLEXE) $(INSTALLEXEFILES) $(INSTALL_BINDIR)
+endif
+ifdef INSTALL_CREATEPACKAGEFPC
+ifdef FPCMAKE
+ifdef PACKAGE_VERSION
+ifneq ($(wildcard Makefile.fpc),)
+	$(FPCMAKE) -p -T$(CPU_TARGET)-$(OS_TARGET) Makefile.fpc
+	$(MKDIR) $(INSTALL_UNITDIR)
+	$(INSTALL) Package.fpc $(INSTALL_UNITDIR)
+endif
+endif
+endif
+endif
+ifdef INSTALLPPUFILES
+	$(MKDIR) $(INSTALL_UNITDIR)
+	$(INSTALL) $(INSTALLPPUFILES) $(INSTALL_UNITDIR)
+ifneq ($(INSTALLPPULINKFILES),)
+	$(INSTALL) $(INSTALLPPULINKFILES) $(INSTALL_UNITDIR)
+endif
+ifneq ($(wildcard $(LIB_FULLNAME)),)
+	$(MKDIR) $(INSTALL_LIBDIR)
+	$(INSTALL) $(LIB_FULLNAME) $(INSTALL_LIBDIR)
+ifdef inUnix
+	ln -sf $(LIB_FULLNAME) $(INSTALL_LIBDIR)/$(LIB_NAME)
+endif
+endif
+endif
+ifdef INSTALL_FILES
+	$(MKDIR) $(INSTALL_DATADIR)
+	$(INSTALL) $(INSTALL_FILES) $(INSTALL_DATADIR)
+endif
+fpc_sourceinstall: distclean
+	$(MKDIR) $(INSTALL_SOURCEDIR)
+	$(COPYTREE) $(BASEDIR)/* $(INSTALL_SOURCEDIR)
+fpc_exampleinstall: $(addsuffix _distclean,$(TARGET_EXAMPLEDIRS))
+ifdef HASEXAMPLES
+	$(MKDIR) $(INSTALL_EXAMPLEDIR)
+endif
+ifdef EXAMPLESOURCEFILES
+	$(COPY) $(EXAMPLESOURCEFILES) $(INSTALL_EXAMPLEDIR)
+endif
+ifdef TARGET_EXAMPLEDIRS
+	$(COPYTREE) $(addsuffix /*,$(TARGET_EXAMPLEDIRS)) $(INSTALL_EXAMPLEDIR)
+endif
+.PHONY: fpc_distinstall
+fpc_distinstall: install exampleinstall
+.PHONY: fpc_zipinstall fpc_zipsourceinstall fpc_zipexampleinstall
+ifndef PACKDIR
+ifndef inUnix
+PACKDIR=$(BASEDIR)/../fpc-pack
+else
+PACKDIR=/tmp/fpc-pack
+endif
+endif
+ifndef ZIPNAME
+ifdef DIST_ZIPNAME
+ZIPNAME=$(DIST_ZIPNAME)
+else
+ZIPNAME=$(PACKAGE_NAME)
+endif
+endif
+ifndef FULLZIPNAME
+FULLZIPNAME=$(ZIPCROSSPREFIX)$(ZIPPREFIX)$(ZIPNAME)$(ZIPSUFFIX)
+endif
+ifndef ZIPTARGET
+ifdef DIST_ZIPTARGET
+ZIPTARGET=DIST_ZIPTARGET
+else
+ZIPTARGET=install
+endif
+endif
+ifndef USEZIP
+ifdef inUnix
+USETAR=1
+endif
+endif
+ifndef inUnix
+USEZIPWRAPPER=1
+endif
+ifdef USEZIPWRAPPER
+ZIPPATHSEP=$(PATHSEP)
+ZIPWRAPPER=$(subst /,$(PATHSEP),$(DIST_DESTDIR)/fpczip$(SRCBATCHEXT))
+else
+ZIPPATHSEP=/
+endif
+ZIPCMD_CDPACK:=cd $(subst /,$(ZIPPATHSEP),$(PACKDIR))
+ZIPCMD_CDBASE:=cd $(subst /,$(ZIPPATHSEP),$(BASEDIR))
+ifdef USETAR
+ZIPDESTFILE:=$(DIST_DESTDIR)/$(FULLZIPNAME)$(TAREXT)
+ZIPCMD_ZIP:=$(TARPROG) cf$(TAROPT) $(ZIPDESTFILE) *
+else
+ZIPDESTFILE:=$(DIST_DESTDIR)/$(FULLZIPNAME)$(ZIPEXT)
+ZIPCMD_ZIP:=$(subst /,$(ZIPPATHSEP),$(ZIPPROG)) -Dr $(ZIPOPT) $(ZIPDESTFILE) *
+endif
+fpc_zipinstall:
+	$(MAKE) $(ZIPTARGET) INSTALL_PREFIX=$(PACKDIR) ZIPINSTALL=1
+	$(MKDIR) $(DIST_DESTDIR)
+	$(DEL) $(ZIPDESTFILE)
+ifdef USEZIPWRAPPER
+ifneq ($(ECHOREDIR),echo)
+	$(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_CDPACK))" > $(ZIPWRAPPER)
+	$(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_ZIP))" >> $(ZIPWRAPPER)
+	$(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_CDBASE))" >> $(ZIPWRAPPER)
+else
+	echo $(ZIPCMD_CDPACK) > $(ZIPWRAPPER)
+	echo $(ZIPCMD_ZIP) >> $(ZIPWRAPPER)
+	echo $(ZIPCMD_CDBASE) >> $(ZIPWRAPPER)
+endif
+ifdef inUnix
+	/bin/sh $(ZIPWRAPPER)
+else
+	$(ZIPWRAPPER)
+endif
+	$(DEL) $(ZIPWRAPPER)
+else
+	$(ZIPCMD_CDPACK) ; $(ZIPCMD_ZIP) ; $(ZIPCMD_CDBASE)
+endif
+	$(DELTREE) $(PACKDIR)
+fpc_zipsourceinstall:
+	$(MAKE) fpc_zipinstall ZIPTARGET=sourceinstall ZIPSUFFIX=$(ZIPSOURCESUFFIX)
+fpc_zipexampleinstall:
+ifdef HASEXAMPLES
+	$(MAKE) fpc_zipinstall ZIPTARGET=exampleinstall ZIPSUFFIX=$(ZIPEXAMPLESUFFIX)
+endif
+fpc_zipdistinstall:
+	$(MAKE) fpc_zipinstall ZIPTARGET=distinstall
+.PHONY: fpc_clean fpc_cleanall fpc_distclean
+ifdef EXEFILES
+override CLEANEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(CLEANEXEFILES))
+endif
+ifdef CLEAN_UNITS
+override CLEANPPUFILES+=$(addsuffix $(PPUEXT),$(CLEAN_UNITS))
+endif
+ifdef CLEANPPUFILES
+override CLEANPPULINKFILES:=$(subst $(PPUEXT),$(OEXT),$(CLEANPPUFILES)) $(addprefix $(STATICLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(CLEANPPUFILES)))
+ifdef DEBUGSYMEXT
+override CLEANPPULINKFILES+=$(subst $(PPUEXT),$(DEBUGSYMEXT),$(CLEANPPUFILES))
+endif
+override CLEANPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPUFILES))
+override CLEANPPULINKFILES:=$(wildcard $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPULINKFILES)))
+endif
+fpc_clean: $(CLEANTARGET)
+ifdef CLEANEXEFILES
+	-$(DEL) $(CLEANEXEFILES)
+endif
+ifdef CLEANPPUFILES
+	-$(DEL) $(CLEANPPUFILES)
+endif
+ifneq ($(CLEANPPULINKFILES),)
+	-$(DEL) $(CLEANPPULINKFILES)
+endif
+ifdef CLEANRSTFILES
+	-$(DEL) $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANRSTFILES))
+endif
+ifdef CLEAN_FILES
+	-$(DEL) $(CLEAN_FILES)
+endif
+ifdef LIB_NAME
+	-$(DEL) $(LIB_NAME) $(LIB_FULLNAME)
+endif
+	-$(DEL) $(FPCMADE) Package.fpc $(PPAS) script.res link.res $(FPCEXTFILE) $(REDIRFILE)
+	-$(DEL) *$(ASMEXT) *_ppas$(BATCHEXT)
+fpc_cleanall: $(CLEANTARGET)
+ifdef CLEANEXEFILES
+	-$(DEL) $(CLEANEXEFILES)
+endif
+ifdef COMPILER_UNITTARGETDIR
+ifdef CLEANPPUFILES
+	-$(DEL) $(CLEANPPUFILES)
+endif
+ifneq ($(CLEANPPULINKFILES),)
+	-$(DEL) $(CLEANPPULINKFILES)
+endif
+ifdef CLEANRSTFILES
+	-$(DEL) $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANRSTFILES))
+endif
+endif
+	-$(DELTREE) units
+	-$(DEL) *$(OEXT) *$(PPUEXT) *$(RSTEXT) *$(ASMEXT) *$(STATICLIBEXT) *$(SHAREDLIBEXT) *$(PPLEXT)
+ifneq ($(PPUEXT),.ppu)
+	-$(DEL) *.o *.ppu *.a
+endif
+	-$(DELTREE) *$(SMARTEXT)
+	-$(DEL) fpcmade.* Package.fpc $(PPAS) script.res link.res $(FPCEXTFILE) $(REDIRFILE)
+	-$(DEL) *_ppas$(BATCHEXT)
+ifdef AOUTEXT
+	-$(DEL) *$(AOUTEXT)
+endif
+ifdef DEBUGSYMEXT
+	-$(DEL) *$(DEBUGSYMEXT)
+endif
+fpc_distclean: cleanall
+.PHONY: fpc_baseinfo
+override INFORULES+=fpc_baseinfo
+fpc_baseinfo:
+	@$(ECHO)
+	@$(ECHO)  == Package info ==
+	@$(ECHO)  Package Name..... $(PACKAGE_NAME)
+	@$(ECHO)  Package Version.. $(PACKAGE_VERSION)
+	@$(ECHO)
+	@$(ECHO)  == Configuration info ==
+	@$(ECHO)
+	@$(ECHO)  FPC.......... $(FPC)
+	@$(ECHO)  FPC Version.. $(FPC_VERSION)
+	@$(ECHO)  Source CPU... $(CPU_SOURCE)
+	@$(ECHO)  Target CPU... $(CPU_TARGET)
+	@$(ECHO)  Source OS.... $(OS_SOURCE)
+	@$(ECHO)  Target OS.... $(OS_TARGET)
+	@$(ECHO)  Full Source.. $(FULL_SOURCE)
+	@$(ECHO)  Full Target.. $(FULL_TARGET)
+	@$(ECHO)  SourceSuffix. $(SOURCESUFFIX)
+	@$(ECHO)  TargetSuffix. $(TARGETSUFFIX)
+	@$(ECHO)
+	@$(ECHO)  == Directory info ==
+	@$(ECHO)
+	@$(ECHO)  Required pkgs... $(REQUIRE_PACKAGES)
+	@$(ECHO)
+	@$(ECHO)  Basedir......... $(BASEDIR)
+	@$(ECHO)  FPCDir.......... $(FPCDIR)
+	@$(ECHO)  CrossBinDir..... $(CROSSBINDIR)
+	@$(ECHO)  UnitsDir........ $(UNITSDIR)
+	@$(ECHO)  PackagesDir..... $(PACKAGESDIR)
+	@$(ECHO)
+	@$(ECHO)  GCC library..... $(GCCLIBDIR)
+	@$(ECHO)  Other library... $(OTHERLIBDIR)
+	@$(ECHO)
+	@$(ECHO)  == Tools info ==
+	@$(ECHO)
+	@$(ECHO)  As........ $(AS)
+	@$(ECHO)  Ld........ $(LD)
+	@$(ECHO)  Ar........ $(AR)
+	@$(ECHO)  Rc........ $(RC)
+	@$(ECHO)
+	@$(ECHO)  Mv........ $(MVPROG)
+	@$(ECHO)  Cp........ $(CPPROG)
+	@$(ECHO)  Rm........ $(RMPROG)
+	@$(ECHO)  GInstall.. $(GINSTALL)
+	@$(ECHO)  Echo...... $(ECHO)
+	@$(ECHO)  Shell..... $(SHELL)
+	@$(ECHO)  Date...... $(DATE)
+	@$(ECHO)  FPCMake... $(FPCMAKE)
+	@$(ECHO)  PPUMove... $(PPUMOVE)
+	@$(ECHO)  Upx....... $(UPXPROG)
+	@$(ECHO)  Zip....... $(ZIPPROG)
+	@$(ECHO)
+	@$(ECHO)  == Object info ==
+	@$(ECHO)
+	@$(ECHO)  Target Loaders........ $(TARGET_LOADERS)
+	@$(ECHO)  Target Units.......... $(TARGET_UNITS)
+	@$(ECHO)  Target Implicit Units. $(TARGET_IMPLICITUNITS)
+	@$(ECHO)  Target Programs....... $(TARGET_PROGRAMS)
+	@$(ECHO)  Target Dirs........... $(TARGET_DIRS)
+	@$(ECHO)  Target Examples....... $(TARGET_EXAMPLES)
+	@$(ECHO)  Target ExampleDirs.... $(TARGET_EXAMPLEDIRS)
+	@$(ECHO)
+	@$(ECHO)  Clean Units......... $(CLEAN_UNITS)
+	@$(ECHO)  Clean Files......... $(CLEAN_FILES)
+	@$(ECHO)
+	@$(ECHO)  Install Units....... $(INSTALL_UNITS)
+	@$(ECHO)  Install Files....... $(INSTALL_FILES)
+	@$(ECHO)
+	@$(ECHO)  == Install info ==
+	@$(ECHO)
+	@$(ECHO)  DateStr.............. $(DATESTR)
+	@$(ECHO)  ZipName.............. $(ZIPNAME)
+	@$(ECHO)  ZipPrefix............ $(ZIPPREFIX)
+	@$(ECHO)  ZipCrossPrefix....... $(ZIPCROSSPREFIX)
+	@$(ECHO)  ZipSuffix............ $(ZIPSUFFIX)
+	@$(ECHO)  FullZipName.......... $(FULLZIPNAME)
+	@$(ECHO)  Install FPC Package.. $(INSTALL_FPCPACKAGE)
+	@$(ECHO)
+	@$(ECHO)  Install base dir..... $(INSTALL_BASEDIR)
+	@$(ECHO)  Install binary dir... $(INSTALL_BINDIR)
+	@$(ECHO)  Install library dir.. $(INSTALL_LIBDIR)
+	@$(ECHO)  Install units dir.... $(INSTALL_UNITDIR)
+	@$(ECHO)  Install source dir... $(INSTALL_SOURCEDIR)
+	@$(ECHO)  Install doc dir...... $(INSTALL_DOCDIR)
+	@$(ECHO)  Install example dir.. $(INSTALL_EXAMPLEDIR)
+	@$(ECHO)  Install data dir..... $(INSTALL_DATADIR)
+	@$(ECHO)
+	@$(ECHO)  Dist destination dir. $(DIST_DESTDIR)
+	@$(ECHO)  Dist zip name........ $(DIST_ZIPNAME)
+	@$(ECHO)
+.PHONY: fpc_info
+fpc_info: $(INFORULES)
+.PHONY: fpc_makefile fpc_makefiles fpc_makefile_sub1 fpc_makefile_sub2 \
+	fpc_makefile_dirs
+fpc_makefile:
+	$(FPCMAKE) -w -T$(OS_TARGET) Makefile.fpc
+fpc_makefile_sub1:
+ifdef TARGET_DIRS
+	$(FPCMAKE) -w -T$(OS_TARGET) $(addsuffix /Makefile.fpc,$(TARGET_DIRS))
+endif
+ifdef TARGET_EXAMPLEDIRS
+	$(FPCMAKE) -w -T$(OS_TARGET) $(addsuffix /Makefile.fpc,$(TARGET_EXAMPLEDIRS))
+endif
+fpc_makefile_sub2: $(addsuffix _makefile_dirs,$(TARGET_DIRS) $(TARGET_EXAMPLEDIRS))
+fpc_makefile_dirs: fpc_makefile_sub1 fpc_makefile_sub2
+fpc_makefiles: fpc_makefile fpc_makefile_dirs
+ifeq ($(FULL_TARGET),i386-linux)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+TARGET_EXAMPLEDIRS_DEMOS=1
+TARGET_EXAMPLEDIRS_EXAMPLES=1
+endif
+ifdef TARGET_EXAMPLEDIRS_DEMOS
+demos_all:
+	$(MAKE) -C demos all
+demos_debug:
+	$(MAKE) -C demos debug
+demos_smart:
+	$(MAKE) -C demos smart
+demos_release:
+	$(MAKE) -C demos release
+demos_units:
+	$(MAKE) -C demos units
+demos_examples:
+	$(MAKE) -C demos examples
+demos_shared:
+	$(MAKE) -C demos shared
+demos_install:
+	$(MAKE) -C demos install
+demos_sourceinstall:
+	$(MAKE) -C demos sourceinstall
+demos_exampleinstall:
+	$(MAKE) -C demos exampleinstall
+demos_distinstall:
+	$(MAKE) -C demos distinstall
+demos_zipinstall:
+	$(MAKE) -C demos zipinstall
+demos_zipsourceinstall:
+	$(MAKE) -C demos zipsourceinstall
+demos_zipexampleinstall:
+	$(MAKE) -C demos zipexampleinstall
+demos_zipdistinstall:
+	$(MAKE) -C demos zipdistinstall
+demos_clean:
+	$(MAKE) -C demos clean
+demos_distclean:
+	$(MAKE) -C demos distclean
+demos_cleanall:
+	$(MAKE) -C demos cleanall
+demos_info:
+	$(MAKE) -C demos info
+demos_makefiles:
+	$(MAKE) -C demos makefiles
+demos:
+	$(MAKE) -C demos all
+.PHONY: demos_all demos_debug demos_smart demos_release demos_units demos_examples demos_shared demos_install demos_sourceinstall demos_exampleinstall demos_distinstall demos_zipinstall demos_zipsourceinstall demos_zipexampleinstall demos_zipdistinstall demos_clean demos_distclean demos_cleanall demos_info demos_makefiles demos
+endif
+ifdef TARGET_EXAMPLEDIRS_EXAMPLES
+examples_all:
+	$(MAKE) -C examples all
+examples_debug:
+	$(MAKE) -C examples debug
+examples_smart:
+	$(MAKE) -C examples smart
+examples_release:
+	$(MAKE) -C examples release
+examples_units:
+	$(MAKE) -C examples units
+examples_examples:
+	$(MAKE) -C examples examples
+examples_shared:
+	$(MAKE) -C examples shared
+examples_install:
+	$(MAKE) -C examples install
+examples_sourceinstall:
+	$(MAKE) -C examples sourceinstall
+examples_exampleinstall:
+	$(MAKE) -C examples exampleinstall
+examples_distinstall:
+	$(MAKE) -C examples distinstall
+examples_zipinstall:
+	$(MAKE) -C examples zipinstall
+examples_zipsourceinstall:
+	$(MAKE) -C examples zipsourceinstall
+examples_zipexampleinstall:
+	$(MAKE) -C examples zipexampleinstall
+examples_zipdistinstall:
+	$(MAKE) -C examples zipdistinstall
+examples_clean:
+	$(MAKE) -C examples clean
+examples_distclean:
+	$(MAKE) -C examples distclean
+examples_cleanall:
+	$(MAKE) -C examples cleanall
+examples_info:
+	$(MAKE) -C examples info
+examples_makefiles:
+	$(MAKE) -C examples makefiles
+examples:
+	$(MAKE) -C examples all
+.PHONY: examples_all examples_debug examples_smart examples_release examples_units examples_examples examples_shared examples_install examples_sourceinstall examples_exampleinstall examples_distinstall examples_zipinstall examples_zipsourceinstall examples_zipexampleinstall examples_zipdistinstall examples_clean examples_distclean examples_cleanall examples_info examples_makefiles examples
+endif
+all: fpc_all
+debug: fpc_debug
+smart: fpc_smart
+release: fpc_release
+units: fpc_units
+examples: fpc_examples
+shared:
+install: fpc_install
+sourceinstall: fpc_sourceinstall
+exampleinstall: fpc_exampleinstall
+distinstall: fpc_distinstall
+zipinstall: fpc_zipinstall
+zipsourceinstall: fpc_zipsourceinstall
+zipexampleinstall: fpc_zipexampleinstall
+zipdistinstall: fpc_zipdistinstall
+clean: fpc_clean $(addsuffix _clean,$(TARGET_EXAMPLEDIRS))
+distclean: fpc_distclean
+cleanall: fpc_cleanall
+info: fpc_info
+makefiles: fpc_makefiles
+.PHONY: all debug smart release units examples shared install sourceinstall exampleinstall distinstall zipinstall zipsourceinstall zipexampleinstall zipdistinstall clean distclean cleanall info makefiles
+ifneq ($(wildcard fpcmake.loc),)
+include fpcmake.loc
+endif

packages/extra/ptc/Makefile.fpc

@@ -0,0 +1,26 @@
+#
+#   Makefile.fpc for PTCPas
+#
+
+[package]
+name=ptc
+version=0.99.5
+
+[target]
+units=ptc
+loaders=$(CPU_LOADERS)
+exampledirs=demos examples
+
+[compiler]
+unitdir=x11 dos/cga dos/fakemode dos/textfx2 dos/timeunit dos/vesa \
+        win32/directx
+targetdir=.
+
+[require]
+packages=hermes
+packages_linux=x11
+packages_freebsd=x11
+
+[default]
+fpcdir=../../..
+

packages/extra/ptc/aread.inc

@@ -0,0 +1,38 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Type
+  TPTCArea=Class(TObject)
+  Private
+    Fleft, Ftop, Fright, Fbottom : Integer;
+  Public
+    Constructor Create;
+    Constructor Create(_left, _top, _right, _bottom : Integer);
+    Constructor Create(Const Area : TPTCArea);
+    Destructor Destroy; Override;
+    Function width : Integer;
+    Function height : Integer;
+    Procedure Assign(Const area : TPTCArea);
+    Function Equals(Const area : TPTCArea) : Boolean;
+    Property left : Integer read Fleft;
+    Property top : Integer read Ftop;
+    Property right : Integer read Fright;
+    Property bottom : Integer read Fbottom;
+  End;

packages/extra/ptc/areai.inc

@@ -0,0 +1,97 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Constructor TPTCArea.Create(_left, _top, _right, _bottom : Integer);
+
+Begin
+  If _left < _right Then
+  Begin
+    Fleft := _left;
+    Fright := _right;
+  End
+  Else
+  Begin
+    Fleft := _right;
+    Fright := _left;
+  End;
+  If _top < _bottom Then
+  Begin
+    Ftop := _top;
+    Fbottom := _bottom;
+  End
+  Else
+  Begin
+    Ftop := _bottom;
+    Fbottom := _top;
+  End;
+End;
+
+Constructor TPTCArea.Create;
+
+Begin
+  Fleft := 0;
+  Fright := 0;
+  Ftop := 0;
+  Fbottom := 0;
+End;
+
+Constructor TPTCArea.Create(Const area : TPTCArea);
+
+Begin
+  ASSign(area);
+End;
+
+Destructor TPTCArea.Destroy;
+
+Begin
+  Inherited Destroy;
+End;
+
+Procedure TPTCArea.Assign(Const area : TPTCArea);
+
+Begin
+  If Self = area Then
+    Raise TPTCError.Create('self assignment is not allowed');
+  Fleft := area.Fleft;
+  Ftop := area.Ftop;
+  Fright := area.Fright;
+  Fbottom := area.Fbottom;
+End;
+
+Function TPTCArea.Equals(Const area : TPTCArea) : Boolean;
+
+Begin
+  Equals := (Fleft = area.Fleft) And
+	    (Ftop = area.Ftop) And
+	    (Fright = area.Fright) And
+	    (Fbottom = area.Fbottom);
+End;
+
+Function TPTCArea.width : Integer;
+
+Begin
+  width := Fright - Fleft;
+End;
+
+Function TPTCArea.height : Integer;
+
+Begin
+  height := Fbottom - Ftop;
+End;

packages/extra/ptc/basecond.inc

@@ -0,0 +1,60 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Type
+  TPTCBaseConsole=Class(TPTCBaseSurface)
+  Protected
+    FReleaseEnabled : Boolean;
+    
+    Procedure internal_ReadKey(k : TPTCKey); Virtual; Abstract;
+    Function internal_PeekKey(k : TPTCKey) : Boolean; Virtual; Abstract;
+  Public
+    Constructor Create;
+    Procedure configure(Const _file : String); Virtual; Abstract;
+    Function modes : PPTCMode; Virtual; Abstract;
+    Procedure open(Const _title : String; _pages : Integer); Overload; Virtual; Abstract;
+    Procedure open(Const _title : String; Const _format : TPTCFormat;
+                   _pages : Integer); Overload; Virtual; Abstract;
+    Procedure open(Const _title : String; _width, _height : Integer;
+                   Const _format : TPTCFormat; _pages : Integer); Overload; Virtual; Abstract;
+    Procedure open(Const _title : String; Const _mode : TPTCMode;
+                   _pages : Integer); Overload; Virtual; Abstract;
+    {pages=0}
+    Procedure open(Const _title : String); Overload; Virtual;
+    Procedure open(Const _title : String; Const _format : TPTCFormat); Overload; Virtual;
+    Procedure open(Const _title : String; _width, _height : Integer;
+                   Const _format : TPTCFormat); Overload; Virtual;
+    Procedure open(Const _title : String; Const _mode : TPTCMode); Overload; Virtual;
+    {/pages=0}
+    Procedure close; Virtual; Abstract;
+    Procedure flush; Virtual; Abstract;
+    Procedure finish; Virtual; Abstract;
+    Procedure update; Virtual; Abstract;
+    Procedure update(Const _area : TPTCArea); Virtual; Abstract;
+    Function KeyPressed : Boolean;
+    Function PeekKey(k : TPTCKey) : Boolean;
+    Procedure ReadKey(k : TPTCKey);
+    Procedure ReadKey;
+    Function pages : Integer; Virtual; Abstract;
+    Function name : String; Virtual; Abstract;
+    Function title : String; Virtual; Abstract;
+    Function information : String; Virtual; Abstract;
+    Property KeyReleaseEnabled : Boolean Read FReleaseEnabled Write FReleaseEnabled;
+  End;

packages/extra/ptc/baseconi.inc

@@ -0,0 +1,104 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Constructor TPTCBaseConsole.Create;
+
+Begin
+  FReleaseEnabled := False;
+End;
+
+Procedure TPTCBaseConsole.open(Const _title : String);{ Overload;}
+
+Begin
+  open(_title, 0);
+End;
+
+Procedure TPTCBaseConsole.open(Const _title : String; Const _format : TPTCFormat);{ Overload;}
+
+Begin
+  open(_title, _format, 0);
+End;
+
+Procedure TPTCBaseConsole.open(Const _title : String; _width, _height : Integer;
+                               Const _format : TPTCFormat);{ Overload;}
+
+Begin
+  open(_title, _width, _height, _format, 0);
+End;
+
+Procedure TPTCBaseConsole.open(Const _title : String; Const _mode : TPTCMode);{ Overload;}
+
+Begin
+  open(_title, _mode, 0);
+End;
+
+Function TPTCBaseConsole.KeyPressed : Boolean;
+
+Var
+  k : TPTCKey;
+
+Begin
+  k := TPTCKey.Create;
+  Try
+    Repeat
+      If internal_PeekKey(k) = False Then
+        Exit(False);
+      If FReleaseEnabled Or k.Press Then
+        Exit(True);
+      internal_ReadKey(k);
+    Until False;
+  Finally
+    k.Free;
+  End;
+End;
+
+Procedure TPTCBaseConsole.ReadKey(k : TPTCKey);
+
+Begin
+  Repeat
+    internal_ReadKey(k);
+  Until FReleaseEnabled Or k.Press;
+End;
+
+Function TPTCBaseConsole.PeekKey(k : TPTCKey) : Boolean;
+
+Begin
+  If KeyPressed Then
+  Begin
+    ReadKey(k);
+    Result := True;
+  End
+  Else
+    Result := False;
+End;
+
+Procedure TPTCBaseConsole.ReadKey;
+
+Var
+  k : TPTCKey;
+
+Begin
+  k := TPTCKey.Create;
+  Try
+    ReadKey(k);
+  Finally
+    k.Free;
+  End;
+End;

packages/extra/ptc/basesurd.inc

@@ -0,0 +1,63 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Type
+  TPTCBaseSurface=Class(TObject)
+  Public
+{    Constructor Create;}
+{    Destructor Destroy; Override;}
+    Procedure copy(Var surface : TPTCBaseSurface); Virtual; Abstract;
+    Procedure copy(Var surface : TPTCBaseSurface;
+                   Const source, destination : TPTCArea); Virtual; Abstract;
+    Function lock : Pointer; Virtual; Abstract;
+    Procedure unlock; Virtual; Abstract;
+    Procedure load(Const pixels : Pointer;
+                   _width, _height, _pitch : Integer;
+                   Const _format : TPTCFormat;
+                   Const _palette : TPTCPalette); Virtual; Abstract;
+    Procedure load(Const pixels : Pointer;
+                   _width, _height, _pitch : Integer;
+                   Const _format : TPTCFormat;
+                   Const _palette : TPTCPalette;
+                   Const source, destination : TPTCArea); Virtual; Abstract;
+    Procedure save(pixels : Pointer;
+                   _width, _height, _pitch : Integer;
+                   Const _format : TPTCFormat;
+                   Const _palette : TPTCPalette); Virtual; Abstract;
+    Procedure save(pixels : Pointer;
+                   _width, _height, _pitch : Integer;
+                   Const _format : TPTCFormat;
+                   Const _palette : TPTCPalette;
+                   Const source, destination : TPTCArea); Virtual; Abstract;
+    Procedure clear; Virtual; Abstract;
+    Procedure clear(Const color : TPTCColor); Virtual; Abstract;
+    Procedure clear(Const color : TPTCColor;
+                    Const _area : TPTCArea); Virtual; Abstract;
+    Procedure palette(Const _palette : TPTCPalette); Virtual; Abstract;
+    Function palette : TPTCPalette; Virtual; Abstract;
+    Procedure clip(Const _area : TPTCArea); Virtual; Abstract;
+    Function width : Integer; Virtual; Abstract;
+    Function height : Integer; Virtual; Abstract;
+    Function pitch : Integer; Virtual; Abstract;
+    Function area : TPTCArea; Virtual; Abstract;
+    Function clip : TPTCArea; Virtual; Abstract;
+    Function format : TPTCFormat; Virtual; Abstract;
+    Function option(Const _option : String) : Boolean; Virtual; Abstract;
+  End;

packages/extra/ptc/basesuri.inc

@@ -0,0 +1,31 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{Constructor TPTCBaseSurface.Create;
+
+Begin
+End;
+}
+{Destructor TPTCBaseSurface.Destroy;
+
+Begin
+  Inherited Destroy;
+End;
+}

packages/extra/ptc/c_api/area.inc

@@ -0,0 +1,140 @@
+Function ptc_area_create(left, top, right, bottom : Integer) : TPTC_AREA;
+
+Begin
+  Try
+    ptc_area_create := TPTC_AREA(TPTCArea.Create(left, top, right, bottom));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_create := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_area_destroy(obj : TPTC_AREA);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCArea(obj).Destroy;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+    End;
+  End;
+End;
+
+Function ptc_area_left(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_left := TPTCArea(obj).left;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_left := 0;
+    End;
+  End;
+End;
+
+Function ptc_area_top(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_top := TPTCArea(obj).top;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_top := 0;
+    End;
+  End;
+End;
+
+Function ptc_area_right(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_right := TPTCArea(obj).right;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_right := 0;
+    End;
+  End;
+End;
+
+Function ptc_area_bottom(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_bottom := TPTCArea(obj).bottom;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_bottom := 0;
+    End;
+  End;
+End;
+
+Function ptc_area_width(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_width := TPTCArea(obj).width;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_width := 0;
+    End;
+  End;
+End;
+
+Function ptc_area_height(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_height := TPTCArea(obj).height;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_height := 0;
+    End;
+  End;
+End;
+
+Procedure ptc_area_assign(obj, area : TPTC_AREA);
+
+Begin
+  Try
+    TPTCArea(obj).ASSign(TPTCArea(area));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+    End;
+  End;
+End;
+
+Function ptc_area_equals(obj, area : TPTC_AREA) : Boolean;
+
+Begin
+  Try
+    ptc_area_equals := TPTCArea(obj).Equals(TPTCArea(area));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_equals := False;
+    End;
+  End;
+End;
+

packages/extra/ptc/c_api/aread.inc

@@ -0,0 +1,15 @@
+{ setup }
+Function ptc_area_create(left, top, right, bottom : Integer) : TPTC_AREA;
+Procedure ptc_area_destroy(obj : TPTC_AREA);
+
+{ data access }
+Function ptc_area_left(obj : TPTC_AREA) : Integer;
+Function ptc_area_top(obj : TPTC_AREA) : Integer;
+Function ptc_area_right(obj : TPTC_AREA) : Integer;
+Function ptc_area_bottom(obj : TPTC_AREA) : Integer;
+Function ptc_area_width(obj : TPTC_AREA) : Integer;
+Function ptc_area_height(obj : TPTC_AREA) : Integer;
+
+{ operators }
+Procedure ptc_area_assign(obj, area : TPTC_AREA);
+Function ptc_area_equals(obj, area : TPTC_AREA) : Boolean;

packages/extra/ptc/c_api/clear.inc

@@ -0,0 +1,48 @@
+Function ptc_clear_create : TPTC_CLEAR;
+
+Begin
+  Try
+    ptc_clear_create := TPTC_CLEAR(TPTCClear.Create);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_clear_create := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_clear_destroy(obj : TPTC_CLEAR);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCClear(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_clear_request(obj : TPTC_CLEAR; format : TPTC_FORMAT);
+
+Begin
+  Try
+    TPTCClear(obj).request(TPTCFormat(format));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_clear_clear(obj : TPTC_CLEAR; pixels : Pointer; x, y, width, height, pitch : Integer; color : TPTC_COLOR);
+
+Begin
+  Try
+    TPTCClear(obj).clear(pixels, x, y, width, height, pitch, TPTCColor(color));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;

packages/extra/ptc/c_api/cleard.inc

@@ -0,0 +1,9 @@
+{ setup }
+Function ptc_clear_create : TPTC_CLEAR;
+Procedure ptc_clear_destroy(obj : TPTC_CLEAR);
+
+{ request clear }
+Procedure ptc_clear_request(obj : TPTC_CLEAR; format : TPTC_FORMAT);
+
+{ clear pixels }
+Procedure ptc_clear_clear(obj : TPTC_CLEAR; pixels : Pointer; x, y, width, height, pitch : Integer; color : TPTC_COLOR);

packages/extra/ptc/c_api/clipper.inc

@@ -0,0 +1,33 @@
+Procedure ptc_clipper_clip(area, clip, clipped : TPTC_AREA);
+
+Var
+  tmp : TPTCArea;
+
+Begin
+  Try
+    tmp := TPTCClipper.clip(TPTCArea(area), TPTCArea(clip));
+    Try
+      TPTCArea(clipped).ASSign(tmp);
+    Finally
+      tmp.Destroy;
+    End;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+    End;
+  End;
+End;
+
+Procedure ptc_clipper_clip_complex(source, clip_source, clipped_source, destination, clip_destination, clipped_destination : TPTC_AREA);
+
+Begin
+  Try
+    TPTCClipper.clip(TPTCArea(source), TPTCArea(clip_source), TPTCArea(clipped_source), TPTCArea(destination), TPTCArea(clip_destination), TPTCArea(clipped_destination));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+    End;
+  End;
+End;

packages/extra/ptc/c_api/clipperd.inc

@@ -0,0 +1,5 @@
+{ clip a single area against clip area }
+Procedure ptc_clipper_clip(area, clip, clipped : TPTC_AREA);
+
+{ clip source and destination areas against source and destination clip areas }
+Procedure ptc_clipper_clip_complex(source, clip_source, clipped_source, destination, clip_destination, clipped_destination : TPTC_AREA);

packages/extra/ptc/c_api/color.inc

@@ -0,0 +1,177 @@
+Function ptc_color_create : TPTC_COLOR;
+
+Begin
+  Try
+    ptc_color_create := TPTC_COLOR(TPTCColor.Create);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_create := Nil;
+    End;
+  End;
+End;
+
+Function ptc_color_create_indexed(index : Integer) : TPTC_COLOR;
+
+Begin
+  Try
+    ptc_color_create_indexed := TPTC_COLOR(TPTCColor.Create(index));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_create_indexed := Nil;
+    End;
+  End;
+End;
+
+Function ptc_color_create_direct(r, g, b, a : Single) : TPTC_COLOR;
+
+Begin
+  Try
+    ptc_color_create_direct := TPTC_COLOR(TPTCColor.Create(r, g, b, a));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_create_direct := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_color_destroy(obj : TPTC_COLOR);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCColor(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_color_index(obj : TPTC_COLOR) : Integer;
+
+Begin
+  Try
+    ptc_color_index := TPTCColor(obj).index;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_index := 0;
+    End;
+  End;
+End;
+
+Function ptc_color_r(obj : TPTC_COLOR) : Single;
+
+Begin
+  Try
+    ptc_color_r := TPTCColor(obj).r;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_r := 0;
+    End;
+  End;
+End;
+
+Function ptc_color_g(obj : TPTC_COLOR) : Single;
+
+Begin
+  Try
+    ptc_color_g := TPTCColor(obj).g;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_g := 0;
+    End;
+  End;
+End;
+
+Function ptc_color_b(obj : TPTC_COLOR) : Single;
+
+Begin
+  Try
+    ptc_color_b := TPTCColor(obj).b;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_b := 0;
+    End;
+  End;
+End;
+
+Function ptc_color_a(obj : TPTC_COLOR) : Single;
+
+Begin
+  Try
+    ptc_color_a := TPTCColor(obj).a;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_a := 0;
+    End;
+  End;
+End;
+
+Function ptc_color_direct(obj : TPTC_COLOR) : Boolean;
+
+Begin
+  Try
+    ptc_color_direct := TPTCColor(obj).direct;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_direct := False;
+    End;
+  End;
+End;
+
+Function ptc_color_indexed(obj : TPTC_COLOR) : Boolean;
+
+Begin
+  Try
+    ptc_color_indexed := TPTCColor(obj).indexed;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_indexed := False;
+    End;
+  End;
+End;
+
+Procedure ptc_color_assign(obj, color : TPTC_COLOR);
+
+Begin
+  Try
+    TPTCColor(obj).ASSign(TPTCColor(color));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_color_equals(obj, color : TPTC_COLOR) : Boolean;
+
+Begin
+  Try
+    ptc_color_equals := TPTCColor(obj).Equals(TPTCColor(color));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_color_equals := False;
+    End;
+  End;
+End;

packages/extra/ptc/c_api/colord.inc

@@ -0,0 +1,18 @@
+{ setup }
+Function ptc_color_create : TPTC_COLOR;
+Function ptc_color_create_indexed(index : Integer) : TPTC_COLOR;
+Function ptc_color_create_direct(r, g, b, a : Single) : TPTC_COLOR;
+Procedure ptc_color_destroy(obj : TPTC_COLOR);
+
+{ data access }
+Function ptc_color_index(obj : TPTC_COLOR) : Integer;
+Function ptc_color_r(obj : TPTC_COLOR) : Single;
+Function ptc_color_g(obj : TPTC_COLOR) : Single;
+Function ptc_color_b(obj : TPTC_COLOR) : Single;
+Function ptc_color_a(obj : TPTC_COLOR) : Single;
+Function ptc_color_direct(obj : TPTC_COLOR) : Boolean;
+Function ptc_color_indexed(obj : TPTC_COLOR) : Boolean;
+
+{ operators }
+Procedure ptc_color_assign(obj, color : TPTC_COLOR);
+Function ptc_color_equals(obj, color : TPTC_COLOR) : Boolean;

packages/extra/ptc/c_api/console.inc

@@ -0,0 +1,497 @@
+Function ptc_console_create : TPTC_CONSOLE;
+
+Begin
+  Try
+    ptc_console_create := TPTC_CONSOLE(TPTCConsole.Create);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_create := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_console_destroy(obj : TPTC_CONSOLE);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCBaseConsole(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_configure(obj : TPTC_CONSOLE; _file : String);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).configure(_file);
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_console_option(obj : TPTC_CONSOLE; _option : String) : Boolean;
+
+Begin
+  Try
+    ptc_console_option := TPTCBaseConsole(obj).option(_option);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_option := False;
+    End;
+  End;
+End;
+
+Function ptc_console_mode(obj : TPTC_CONSOLE; index : Integer) : TPTC_MODE;
+
+Begin
+  Try
+    ptc_console_mode := TPTC_MODE(TPTCBaseConsole(obj).modes[index]);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_mode := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_console_open(obj : TPTC_CONSOLE; title : String; pages : Integer);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).open(title, pages);
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_open_format(obj : TPTC_CONSOLE; title : String; format : TPTC_FORMAT; pages : Integer);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).open(title, TPTCFormat(format), pages);
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_open_resolution(obj : TPTC_CONSOLE; title : String; width, height : Integer; format : TPTC_FORMAT; pages : Integer);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).open(title, width, height, TPTCFormat(format), pages);
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_open_mode(obj : TPTC_CONSOLE; title : String; mode : TPTC_MODE; pages : Integer);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).open(title, TPTCMode(mode), pages);
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_close(obj : TPTC_CONSOLE);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).close;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_flush(obj : TPTC_CONSOLE);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).flush;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_finish(obj : TPTC_CONSOLE);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).finish;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_update(obj : TPTC_CONSOLE);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).update;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_update_area(obj : TPTC_CONSOLE; area : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).update(TPTCArea(area));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_console_key(obj : TPTC_CONSOLE) : Boolean;
+
+Begin
+  Try
+    ptc_console_key := TPTCBaseConsole(obj).key;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_key := False;
+    End;
+  End;
+End;
+
+Procedure ptc_console_read(obj : TPTC_CONSOLE; key : TPTC_KEY);
+
+Var
+  tmp : TPTCKey;
+
+Begin
+  Try
+    tmp := TPTCBaseConsole(obj).read;
+    Try
+      TPTCKey(key).ASSign(tmp);
+    Finally
+      tmp.Destroy;
+    End;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_copy(obj : TPTC_CONSOLE; surface : TPTC_SURFACE);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).copy(TPTCBaseSurface(surface));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_copy_area(obj : TPTC_CONSOLE; surface : TPTC_SURFACE; source, destination : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).copy(TPTCBaseSurface(surface), TPTCArea(source), TPTCArea(destination));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_console_lock(obj : TPTC_CONSOLE) : Pointer;
+
+Begin
+  Try
+    ptc_console_lock := TPTCBaseConsole(obj).lock;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_lock := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_console_unlock(obj : TPTC_CONSOLE);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).unlock;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_load(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).load(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_load_area(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE; source, destination : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).load(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette), TPTCArea(source), TPTCArea(destination));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_save(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).save(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_save_area(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE; source, destination : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).save(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette), TPTCArea(source), TPTCArea(destination));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_clear(obj : TPTC_CONSOLE);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).clear;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_clear_color(obj : TPTC_CONSOLE; color : TPTC_COLOR);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).clear(TPTCColor(color));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_clear_color_area(obj : TPTC_CONSOLE; color : TPTC_COLOR; area : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).clear(TPTCColor(color), TPTCArea(area));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_console_palette_set(obj : TPTC_CONSOLE; palette : TPTC_PALETTE);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).palette(TPTCPalette(palette));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_console_palette_get(obj : TPTC_CONSOLE) : TPTC_PALETTE;
+
+Begin
+  Try
+    ptc_console_palette_get := TPTC_PALETTE(TPTCBaseConsole(obj).palette);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_palette_get := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_console_clip_set(obj : TPTC_CONSOLE; area : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseConsole(obj).clip(TPTCArea(area));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_console_width(obj : TPTC_CONSOLE) : Integer;
+
+Begin
+  Try
+    ptc_console_width := TPTCBaseConsole(obj).width;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_width := 0;
+    End;
+  End;
+End;
+
+Function ptc_console_height(obj : TPTC_CONSOLE) : Integer;
+
+Begin
+  Try
+    ptc_console_height := TPTCBaseConsole(obj).height;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_height := 0;
+    End;
+  End;
+End;
+
+Function ptc_console_pages(obj : TPTC_CONSOLE) : Integer;
+
+Begin
+  Try
+    ptc_console_pages := TPTCBaseConsole(obj).pages;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_pages := 0;
+    End;
+  End;
+End;
+
+Function ptc_console_pitch(obj : TPTC_CONSOLE) : Integer;
+
+Begin
+  Try
+    ptc_console_pitch := TPTCBaseConsole(obj).pitch;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_pitch := 0;
+    End;
+  End;
+End;
+
+Function ptc_console_area(obj : TPTC_CONSOLE) : TPTC_AREA;
+
+Begin
+  Try
+    ptc_console_area := TPTC_AREA(TPTCBaseConsole(obj).area);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_area := Nil;
+    End;
+  End;
+End;
+
+Function ptc_console_clip(obj : TPTC_CONSOLE) : TPTC_AREA;
+
+Begin
+  Try
+    ptc_console_clip := TPTC_AREA(TPTCBaseConsole(obj).clip);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_clip := Nil;
+    End;
+  End;
+End;
+
+Function ptc_console_format(obj : TPTC_CONSOLE) : TPTC_FORMAT;
+
+Begin
+  Try
+    ptc_console_format := TPTC_FORMAT(TPTCBaseConsole(obj).format);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_format := Nil;
+    End;
+  End;
+End;
+
+Function ptc_console_name(obj : TPTC_CONSOLE) : String;
+
+Begin
+  Try
+    ptc_console_name := TPTCBaseConsole(obj).name;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_name := '';
+    End;
+  End;
+End;
+
+Function ptc_console_title(obj : TPTC_CONSOLE) : String;
+
+Begin
+  Try
+    ptc_console_title := TPTCBaseConsole(obj).title;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_title := '';
+    End;
+  End;
+End;
+
+Function ptc_console_information(obj : TPTC_CONSOLE) : String;
+
+Begin
+  Try
+    ptc_console_information := TPTCBaseConsole(obj).information;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_console_information := '';
+    End;
+  End;
+End;

packages/extra/ptc/c_api/consoled.inc

@@ -0,0 +1,83 @@
+{ setup }
+Function ptc_console_create : TPTC_CONSOLE;
+Procedure ptc_console_destroy(obj : TPTC_CONSOLE);
+
+{ console configuration }
+Procedure ptc_console_configure(obj : TPTC_CONSOLE; _file : String);
+
+{ console option string }
+Function ptc_console_option(obj : TPTC_CONSOLE; _option : String) : Boolean;
+
+{ console modes }
+Function ptc_console_mode(obj : TPTC_CONSOLE; index : Integer) : TPTC_MODE;
+
+{ console management }
+Procedure ptc_console_open(obj : TPTC_CONSOLE; title : String; pages : Integer);
+Procedure ptc_console_open_format(obj : TPTC_CONSOLE; title : String; format : TPTC_FORMAT; pages : Integer);
+Procedure ptc_console_open_resolution(obj : TPTC_CONSOLE; title : String; width, height : Integer; format : TPTC_FORMAT; pages : Integer);
+Procedure ptc_console_open_mode(obj : TPTC_CONSOLE; title : String; mode : TPTC_MODE; pages : Integer);
+Procedure ptc_console_close(obj : TPTC_CONSOLE);
+
+{ synchronization }
+Procedure ptc_console_flush(obj : TPTC_CONSOLE);
+Procedure ptc_console_finish(obj : TPTC_CONSOLE);
+Procedure ptc_console_update(obj : TPTC_CONSOLE);
+Procedure ptc_console_update_area(obj : TPTC_CONSOLE; area : TPTC_AREA);
+
+{ keyboard input }
+Function ptc_console_key(obj : TPTC_CONSOLE) : Boolean;
+Procedure ptc_console_read(obj : TPTC_CONSOLE; key : TPTC_KEY);
+
+{ copy to surface }
+Procedure ptc_console_copy(obj : TPTC_CONSOLE; surface : TPTC_SURFACE);
+Procedure ptc_console_copy_area(obj : TPTC_CONSOLE; surface : TPTC_SURFACE; source, destination : TPTC_AREA);
+
+{ memory access }
+Function ptc_console_lock(obj : TPTC_CONSOLE) : Pointer;
+Procedure ptc_console_unlock(obj : TPTC_CONSOLE);
+
+{ load pixels to console }
+Procedure ptc_console_load(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE);
+Procedure ptc_console_load_area(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE; source, destination : TPTC_AREA);
+
+{ save console pixels }
+Procedure ptc_console_save(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE);
+Procedure ptc_console_save_area(obj : TPTC_CONSOLE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE; source, destination : TPTC_AREA);
+
+{ clear console }
+Procedure ptc_console_clear(obj : TPTC_CONSOLE);
+Procedure ptc_console_clear_color(obj : TPTC_CONSOLE; color : TPTC_COLOR);
+Procedure ptc_console_clear_color_area(obj : TPTC_CONSOLE; color : TPTC_COLOR; area : TPTC_AREA);
+
+{ console palette }
+Procedure ptc_console_palette_set(obj : TPTC_CONSOLE; palette : TPTC_PALETTE);
+Function ptc_console_palette_get(obj : TPTC_CONSOLE) : TPTC_PALETTE;
+
+{ console clip area }
+Procedure ptc_console_clip_set(obj : TPTC_CONSOLE; area : TPTC_AREA);
+
+{ data access }
+Function ptc_console_width(obj : TPTC_CONSOLE) : Integer;
+Function ptc_console_height(obj : TPTC_CONSOLE) : Integer;
+Function ptc_console_pages(obj : TPTC_CONSOLE) : Integer;
+Function ptc_console_pitch(obj : TPTC_CONSOLE) : Integer;
+Function ptc_console_area(obj : TPTC_CONSOLE) : TPTC_AREA;
+Function ptc_console_clip(obj : TPTC_CONSOLE) : TPTC_AREA;
+Function ptc_console_format(obj : TPTC_CONSOLE) : TPTC_FORMAT;
+Function ptc_console_name(obj : TPTC_CONSOLE) : String;
+Function ptc_console_title(obj : TPTC_CONSOLE) : String;
+Function ptc_console_information(obj : TPTC_CONSOLE) : String;
+
+{ extension functions }
+{#ifdef __PTC_WIN32_EXTENSIONS__
+CAPI void PTCAPI ptc_console_open_window(PTC_CONSOLE object,HWND window,int pages);
+CAPI void PTCAPI ptc_console_open_window_format(PTC_CONSOLE object,HWND window,PTC_FORMAT format,int pages);
+CAPI void PTCAPI ptc_console_open_window_resolution(PTC_CONSOLE object,HWND window,int width,int height,PTC_FORMAT format,int pages);
+CAPI void PTCAPI ptc_console_open_window_mode(PTC_CONSOLE object,HWND window,PTC_MODE mode,int pages);
+CAPI HWND PTCAPI ptc_console_window(PTC_CONSOLE object);
+CAPI LPDIRECTDRAW PTCAPI ptc_console_lpDD(PTC_CONSOLE object);
+CAPI LPDIRECTDRAW2 PTCAPI ptc_console_lpDD2(PTC_CONSOLE object);
+CAPI LPDIRECTDRAWSURFACE PTCAPI ptc_console_lpDDS(PTC_CONSOLE object);
+CAPI LPDIRECTDRAWSURFACE PTCAPI ptc_console_lpDDS_primary(PTC_CONSOLE object);
+CAPI LPDIRECTDRAWSURFACE PTCAPI ptc_console_lpDDS_secondary(PTC_CONSOLE object);
+#endif}

packages/extra/ptc/c_api/copy.inc

@@ -0,0 +1,74 @@
+Function ptc_copy_create : TPTC_COPY;
+
+Begin
+  Try
+    ptc_copy_create := TPTC_COPY(TPTCCopy.Create);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_copy_create := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_copy_destroy(obj : TPTC_COPY);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCCopy(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_copy_request(obj : TPTC_COPY; source, destination : TPTC_FORMAT);
+
+Begin
+  Try
+    TPTCCopy(obj).request(TPTCFormat(source), TPTCFormat(destination));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_copy_palette(obj : TPTC_COPY; source, destination : TPTC_PALETTE);
+
+Begin
+  Try
+    TPTCCopy(obj).palette(TPTCPalette(source), TPTCPalette(destination));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_copy_copy(obj : TPTC_COPY; source_pixels : Pointer; source_x, source_y, source_width, source_height, source_pitch : Integer;
+                        destination_pixels : Pointer; destination_x, destination_y, destination_width, destination_height, destination_pitch : Integer);
+
+Begin
+  Try
+    TPTCCopy(obj).copy(source_pixels, source_x, source_y, source_width, source_height, source_pitch, destination_pixels, destination_x, destination_y, destination_width, destination_height, destination_pitch);
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_copy_option(obj : TPTC_COPY; option : String) : Boolean;
+
+Begin
+  Try
+    TPTCCopy(obj).option(option);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_copy_option := False;
+    End;
+  End;
+End;

packages/extra/ptc/c_api/copyd.inc

@@ -0,0 +1,16 @@
+{ setup }
+Function ptc_copy_create : TPTC_COPY;
+Procedure ptc_copy_destroy(obj : TPTC_COPY);
+
+{ set source and destination formats }
+Procedure ptc_copy_request(obj : TPTC_COPY; source, destination : TPTC_FORMAT);
+
+{ set source and destination palettes }
+Procedure ptc_copy_palette(obj : TPTC_COPY; source, destination : TPTC_PALETTE);
+
+{ copy pixels }
+Procedure ptc_copy_copy(obj : TPTC_COPY; source_pixels : Pointer; source_x, source_y, source_width, source_height, source_pitch : Integer;
+                        destination_pixels : Pointer; destination_x, destination_y, destination_width, destination_height, destination_pitch : Integer);
+
+{ copy option string }
+Function ptc_copy_option(obj : TPTC_COPY; option : String) : Boolean;

packages/extra/ptc/c_api/error.inc

@@ -0,0 +1,96 @@
+Function ptc_error_create(message : String) : TPTC_ERROR;
+
+Begin
+  Try
+    ptc_error_create := TPTC_ERROR(TPTCError.Create(message));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_error_create := Nil;
+    End;
+  End;
+End;
+
+Function ptc_error_create_composite(message : String; error : TPTC_ERROR) : TPTC_ERROR;
+
+Begin
+  Try
+    ptc_error_create_composite := TPTC_ERROR(TPTCError.Create(message, TPTCError(error)));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_error_create_composite := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_error_destroy(obj : TPTC_ERROR);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCError(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_error_report(obj : TPTC_ERROR);
+
+Begin
+  Try
+    TPTCError(obj).report;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_error_message(obj : TPTC_ERROR) : String;
+
+Begin
+  Try
+    ptc_error_message := TPTCError(obj).message;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_error_message := '';
+    End;
+  End;
+End;
+
+Procedure ptc_error_assign(obj, error : TPTC_ERROR);
+
+Begin
+  Try
+    TPTCError(obj).ASSign(TPTCError(error));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_error_equals(obj, error : TPTC_ERROR) : Boolean;
+
+Begin
+  Try
+    ptc_error_equals := TPTCError(obj).Equals(TPTCError(error));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_error_equals := False;
+    End;
+  End;
+End;
+
+Procedure ptc_error_handler(handler : TPTC_ERROR_HANDLER);
+
+Begin
+  ptc_exception_handler(handler);
+End;

packages/extra/ptc/c_api/errord.inc

@@ -0,0 +1,15 @@
+Type
+  TPTC_ERROR_HANDLER = Procedure(error : TPTC_ERROR);
+
+Function ptc_error_create(message : String) : TPTC_ERROR;
+Function ptc_error_create_composite(message : String; error : TPTC_ERROR) : TPTC_ERROR;
+Procedure ptc_error_destroy(obj : TPTC_ERROR);
+
+Procedure ptc_error_report(obj : TPTC_ERROR);
+
+Function ptc_error_message(obj : TPTC_ERROR) : String;
+
+Procedure ptc_error_assign(obj, error : TPTC_ERROR);
+Function ptc_error_equals(obj, error : TPTC_ERROR) : Boolean;
+
+Procedure ptc_error_handler(handler : TPTC_ERROR_HANDLER);

packages/extra/ptc/c_api/except.inc

@@ -0,0 +1,23 @@
+Var
+  ptc_error_handler_function : TPTC_ERROR_HANDLER;
+
+Procedure ptc_error_handler_default(error : TPTC_ERROR);
+
+Begin
+  TPTCError(error).report;
+End;
+
+Procedure ptc_exception_handler(handler : TPTC_ERROR_HANDLER);
+
+Begin
+  If handler = Nil Then
+    ptc_error_handler_function := @ptc_error_handler_default
+  Else
+    ptc_error_handler_function := handler;
+End;
+
+Procedure ptc_exception_handle(error : TPTCError);
+
+Begin
+  ptc_error_handler_function(TPTC_ERROR(error));
+End;

packages/extra/ptc/c_api/exceptd.inc

@@ -0,0 +1,2 @@
+Procedure ptc_exception_handler(handler : TPTC_ERROR_HANDLER);
+Procedure ptc_exception_handle(error : TPTCError);

packages/extra/ptc/c_api/format.inc

@@ -0,0 +1,191 @@
+Function ptc_format_create : TPTC_FORMAT;
+
+Begin
+  Try
+    ptc_format_create := TPTC_FORMAT(TPTCFormat.Create);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_create := Nil;
+    End;
+  End;
+End;
+
+Function ptc_format_create_indexed(bits : Integer) : TPTC_FORMAT;
+
+Begin
+  Try
+    ptc_format_create_indexed := TPTC_FORMAT(TPTCFormat.Create(bits));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_create_indexed := Nil;
+    End;
+  End;
+End;
+
+Function ptc_format_create_direct(bits : Integer; r, g, b, a : int32) : TPTC_FORMAT;
+
+Begin
+  Try
+    ptc_format_create_direct := TPTC_FORMAT(TPTCFormat.Create(bits, r, g, b, a));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_create_direct := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_format_destroy(obj : TPTC_FORMAT);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCFormat(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_format_r(obj : TPTC_FORMAT) : int32;
+
+Begin
+  Try
+    ptc_format_r := TPTCFormat(obj).r;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_r := 0;
+    End;
+  End;
+End;
+
+Function ptc_format_g(obj : TPTC_FORMAT) : int32;
+
+Begin
+  Try
+    ptc_format_g := TPTCFormat(obj).g;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_g := 0;
+    End;
+  End;
+End;
+
+Function ptc_format_b(obj : TPTC_FORMAT) : int32;
+
+Begin
+  Try
+    ptc_format_b := TPTCFormat(obj).b;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_b := 0;
+    End;
+  End;
+End;
+
+Function ptc_format_a(obj : TPTC_FORMAT) : int32;
+
+Begin
+  Try
+    ptc_format_a := TPTCFormat(obj).a;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_a := 0;
+    End;
+  End;
+End;
+
+Function ptc_format_bits(obj : TPTC_FORMAT) : Integer;
+
+Begin
+  Try
+    ptc_format_bits := TPTCFormat(obj).bits;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_bits := 0;
+    End;
+  End;
+End;
+
+Function ptc_format_bytes(obj : TPTC_FORMAT) : Integer;
+
+Begin
+  Try
+    ptc_format_bytes := TPTCFormat(obj).bytes;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_bytes := 0;
+    End;
+  End;
+End;
+
+Function ptc_format_direct(obj : TPTC_FORMAT) : Boolean;
+
+Begin
+  Try
+    ptc_format_direct := TPTCFormat(obj).direct;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_direct := False;
+    End;
+  End;
+End;
+
+Function ptc_format_indexed(obj : TPTC_FORMAT) : Boolean;
+
+Begin
+  Try
+    ptc_format_indexed := TPTCFormat(obj).indexed;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_indexed := False;
+    End;
+  End;
+End;
+
+Procedure ptc_format_assign(obj, format : TPTC_FORMAT);
+
+Begin
+  Try
+    TPTCFormat(obj).ASSign(TPTCFormat(format));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_format_equals(obj, format : TPTC_FORMAT) : Boolean;
+
+Begin
+  Try
+    ptc_format_equals := TPTCFormat(obj).Equals(TPTCFormat(format));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_format_equals := False;
+    End;
+  End;
+End;

packages/extra/ptc/c_api/formatd.inc

@@ -0,0 +1,19 @@
+{ setup }
+Function ptc_format_create : TPTC_FORMAT;
+Function ptc_format_create_indexed(bits : Integer) : TPTC_FORMAT;
+Function ptc_format_create_direct(bits : Integer; r, g, b, a : int32) : TPTC_FORMAT;
+Procedure ptc_format_destroy(obj : TPTC_FORMAT);
+
+{ data access }
+Function ptc_format_r(obj : TPTC_FORMAT) : int32;
+Function ptc_format_g(obj : TPTC_FORMAT) : int32;
+Function ptc_format_b(obj : TPTC_FORMAT) : int32;
+Function ptc_format_a(obj : TPTC_FORMAT) : int32;
+Function ptc_format_bits(obj : TPTC_FORMAT) : Integer;
+Function ptc_format_bytes(obj : TPTC_FORMAT) : Integer;
+Function ptc_format_direct(obj : TPTC_FORMAT) : Boolean;
+Function ptc_format_indexed(obj : TPTC_FORMAT) : Boolean;
+
+{ operators }
+Procedure ptc_format_assign(obj, format : TPTC_FORMAT);
+Function ptc_format_equals(obj, format : TPTC_FORMAT) : Boolean;

packages/extra/ptc/c_api/index.inc

@@ -0,0 +1,14 @@
+Type
+  { object handles }
+  TPTC_KEY     = Pointer; { equivalent to Object Pascal TPTCKey         }
+  TPTC_AREA    = Pointer; { equivalent to Object Pascal TPTCArea        }
+  TPTC_MODE    = Pointer; { equivalent to Object Pascal TPTCMode        }
+  TPTC_COPY    = Pointer; { equivalent to Object Pascal TPTCCopy        }
+  TPTC_CLEAR   = Pointer; { equivalent to Object Pascal TPTCClear       }
+  TPTC_TIMER   = Pointer; { equivalent to Object Pascal TPTCTimer       }
+  TPTC_ERROR   = Pointer; { equivalent to Object Pascal TPTCError       }
+  TPTC_COLOR   = Pointer; { equivalent to Object Pascal TPTCColor       }
+  TPTC_FORMAT  = Pointer; { equivalent to Object Pascal TPTCFormat      }
+  TPTC_PALETTE = Pointer; { equivalent to Object Pascal TPTCPalette     }
+  TPTC_SURFACE = Pointer; { equivalent to Object Pascal TPTCBaseSurface }
+  TPTC_CONSOLE = Pointer; { equivalent to Object Pascal TPTCBaseConsole }

packages/extra/ptc/c_api/key.inc

@@ -0,0 +1,107 @@
+Function ptc_key_create(code : Integer; alt, shift, control : Boolean) : TPTC_KEY;
+
+Begin
+  Try
+    ptc_key_create := TPTC_KEY(TPTCKey.Create(code, alt, shift, control));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_key_create := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_key_destroy(obj : TPTC_KEY);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCKey(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_key_code(obj : TPTC_KEY) : Integer;
+
+Begin
+  Try
+    ptc_key_code := Integer(TPTCKey(obj).code);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_key_code := 0;
+    End;
+  End;
+End;
+
+Function ptc_key_alt(obj : TPTC_KEY) : Boolean;
+
+Begin
+  Try
+    ptc_key_alt := TPTCKey(obj).alt;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_key_alt := False;
+    End;
+  End;
+End;
+
+Function ptc_key_shift(obj : TPTC_KEY) : Boolean;
+
+Begin
+  Try
+    ptc_key_shift := TPTCKey(obj).shift;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_key_shift := False;
+    End;
+  End;
+End;
+
+Function ptc_key_control(obj : TPTC_KEY) : Boolean;
+
+Begin
+  Try
+    ptc_key_control := TPTCKey(obj).control;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_key_control := False;
+    End;
+  End;
+End;
+
+Procedure ptc_key_assign(obj : TPTC_KEY; key : TPTC_KEY);
+
+Begin
+  Try
+    TPTCKey(obj).ASSign(TPTCKey(key));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_key_equals(obj : TPTC_KEY; key : TPTC_KEY) : Boolean;
+
+Begin
+  Try
+    ptc_key_equals := TPTCKey(obj).Equals(TPTCKey(key));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_key_equals := False;
+    End;
+  End;
+End;

packages/extra/ptc/c_api/keyd.inc

@@ -0,0 +1,126 @@
+{ setup }
+Function ptc_key_create(code : Integer; alt, shift, control : Boolean) : TPTC_KEY;
+Procedure ptc_key_destroy(obj : TPTC_KEY);
+
+{ key code }
+Function ptc_key_code(obj : TPTC_KEY) : Integer;
+
+{ modifiers }
+Function ptc_key_alt(obj : TPTC_KEY) : Boolean;
+Function ptc_key_shift(obj : TPTC_KEY) : Boolean;
+Function ptc_key_control(obj : TPTC_KEY) : Boolean;
+
+{ operators }
+Procedure ptc_key_assign(obj : TPTC_KEY; key : TPTC_KEY);
+Function ptc_key_equals(obj : TPTC_KEY; key : TPTC_KEY) : Boolean;
+
+{ key codes }
+{#define PTC_KEY_ENTER            '\n'
+#define PTC_KEY_BACKSPACE        '\b'
+#define PTC_KEY_TAB              '\t'
+#define PTC_KEY_CANCEL           0x03
+#define PTC_KEY_CLEAR            0x0C
+#define PTC_KEY_SHIFT            0x10
+#define PTC_KEY_CONTROL          0x11
+#define PTC_KEY_ALT              0x12
+#define PTC_KEY_PAUSE            0x13
+#define PTC_KEY_CAPSLOCK         0x14
+#define PTC_KEY_ESCAPE           0x1B
+#define PTC_KEY_SPACE            0x20
+#define PTC_KEY_PAGEUP           0x21
+#define PTC_KEY_PAGEDOWN         0x22
+#define PTC_KEY_END              0x23
+#define PTC_KEY_HOME             0x24
+#define PTC_KEY_LEFT             0x25
+#define PTC_KEY_UP               0x26
+#define PTC_KEY_RIGHT            0x27
+#define PTC_KEY_DOWN             0x28
+#define PTC_KEY_COMMA            0x2C
+#define PTC_KEY_PERIOD           0x2E
+#define PTC_KEY_SLASH            0x2F
+#define PTC_KEY_ZERO             0x30
+#define PTC_KEY_ONE              0x31
+#define PTC_KEY_TWO              0x32
+#define PTC_KEY_THREE            0x33
+#define PTC_KEY_FOUR             0x34
+#define PTC_KEY_FIVE             0x35
+#define PTC_KEY_SIX              0x36
+#define PTC_KEY_SEVEN            0x37
+#define PTC_KEY_EIGHT            0x38
+#define PTC_KEY_NINE             0x39
+#define PTC_KEY_SEMICOLON        0x3B
+#define PTC_KEY_EQUALS           0x3D
+#define PTC_KEY_A                0x41
+#define PTC_KEY_B                0x42
+#define PTC_KEY_C                0x43
+#define PTC_KEY_D                0x44
+#define PTC_KEY_E                0x45
+#define PTC_KEY_F                0x46
+#define PTC_KEY_G                0x47
+#define PTC_KEY_H                0x48
+#define PTC_KEY_I                0x49
+#define PTC_KEY_J                0x4A
+#define PTC_KEY_K                0x4B
+#define PTC_KEY_L                0x4C
+#define PTC_KEY_M                0x4D
+#define PTC_KEY_N                0x4E
+#define PTC_KEY_O                0x4F
+#define PTC_KEY_P                0x50
+#define PTC_KEY_Q                0x51
+#define PTC_KEY_R                0x52
+#define PTC_KEY_S                0x53
+#define PTC_KEY_T                0x54
+#define PTC_KEY_U                0x55
+#define PTC_KEY_V                0x56
+#define PTC_KEY_W                0x57
+#define PTC_KEY_X                0x58
+#define PTC_KEY_Y                0x59
+#define PTC_KEY_Z                0x5A
+#define PTC_KEY_OPENBRACKET      0x5B
+#define PTC_KEY_BACKSLASH        0x5C
+#define PTC_KEY_CLOSEBRACKET     0x5D
+#define PTC_KEY_NUMPAD0          0x60
+#define PTC_KEY_NUMPAD1          0x61
+#define PTC_KEY_NUMPAD2          0x62
+#define PTC_KEY_NUMPAD3          0x63
+#define PTC_KEY_NUMPAD4          0x64
+#define PTC_KEY_NUMPAD5          0x65
+#define PTC_KEY_NUMPAD6          0x66
+#define PTC_KEY_NUMPAD7          0x67
+#define PTC_KEY_NUMPAD8          0x68
+#define PTC_KEY_NUMPAD9          0x69
+#define PTC_KEY_MULTIPLY         0x6A
+#define PTC_KEY_ADD              0x6B
+#define PTC_KEY_SEPARATOR        0x6C
+#define PTC_KEY_SUBTRACT         0x6D
+#define PTC_KEY_DECIMAL          0x6E
+#define PTC_KEY_DIVIDE           0x6F
+#define PTC_KEY_F1               0x70
+#define PTC_KEY_F2               0x71
+#define PTC_KEY_F3               0x72
+#define PTC_KEY_F4               0x73
+#define PTC_KEY_F5               0x74
+#define PTC_KEY_F6               0x75
+#define PTC_KEY_F7               0x76
+#define PTC_KEY_F8               0x77
+#define PTC_KEY_F9               0x78
+#define PTC_KEY_F10              0x79
+#define PTC_KEY_F11              0x7A
+#define PTC_KEY_F12              0x7B
+#define PTC_KEY_DELETE           0x7F
+#define PTC_KEY_NUMLOCK          0x90
+#define PTC_KEY_SCROLLLOCK       0x91
+#define PTC_KEY_PRINTSCREEN      0x9A
+#define PTC_KEY_INSERT           0x9B
+#define PTC_KEY_HELP             0x9C
+#define PTC_KEY_META             0x9D
+#define PTC_KEY_BACKQUOTE        0xC0
+#define PTC_KEY_QUOTE            0xDE
+#define PTC_KEY_FINAL            0x18
+#define PTC_KEY_CONVERT          0x1C
+#define PTC_KEY_NONCONVERT       0x1D
+#define PTC_KEY_ACCEPT           0x1E
+#define PTC_KEY_MODECHANGE       0x1F
+#define PTC_KEY_KANA             0x15
+#define PTC_KEY_KANJI            0x19
+#define PTC_KEY_UNDEFINED        0x0}

packages/extra/ptc/c_api/mode.inc

@@ -0,0 +1,121 @@
+Function ptc_mode_create(width, height : Integer; format : TPTC_FORMAT) : TPTC_MODE;
+
+Begin
+  Try
+    ptc_mode_create := TPTC_MODE(TPTCMode.Create(width, height, TPTCFormat(format)));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_mode_create := Nil;
+    End;
+  End;
+End;
+
+Function ptc_mode_create_invalid : TPTC_MODE;
+
+Begin
+  Try
+    ptc_mode_create_invalid := TPTC_MODE(TPTCMode.Create);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_mode_create_invalid := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_mode_destroy(obj : TPTC_MODE);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCMode(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_mode_valid(obj : TPTC_MODE) : Boolean;
+
+Begin
+  Try
+    ptc_mode_valid := TPTCMode(obj).valid;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_mode_valid := False;
+    End;
+  End;
+End;
+
+Function ptc_mode_width(obj : TPTC_MODE) : Integer;
+
+Begin
+  Try
+    ptc_mode_width := TPTCMode(obj).width;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_mode_width := 0;
+    End;
+  End;
+End;
+
+Function ptc_mode_height(obj : TPTC_MODE) : Integer;
+
+Begin
+  Try
+    ptc_mode_height := TPTCMode(obj).height;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_mode_height := 0;
+    End;
+  End;
+End;
+
+Function ptc_mode_format(obj : TPTC_MODE) : TPTC_FORMAT;
+
+Begin
+  Try
+    ptc_mode_format := TPTC_FORMAT(TPTCMode(obj).format);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_mode_format := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_mode_assign(obj, mode : TPTC_MODE);
+
+Begin
+  Try
+    TPTCMode(obj).ASSign(TPTCMode(mode));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_mode_equals(obj, mode : TPTC_MODE) : Boolean;
+
+Begin
+  Try
+    ptc_mode_equals := TPTCMode(obj).Equals(TPTCMode(mode));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_mode_equals := False;
+    End;
+  End;
+End;

packages/extra/ptc/c_api/moded.inc

@@ -0,0 +1,16 @@
+{ setup }
+Function ptc_mode_create(width, height : Integer; format : TPTC_FORMAT) : TPTC_MODE;
+Function ptc_mode_create_invalid : TPTC_MODE;
+Procedure ptc_mode_destroy(obj : TPTC_MODE);
+
+{ valid mode flag }
+Function ptc_mode_valid(obj : TPTC_MODE) : Boolean;
+
+{ data access }
+Function ptc_mode_width(obj : TPTC_MODE) : Integer;
+Function ptc_mode_height(obj : TPTC_MODE) : Integer;
+Function ptc_mode_format(obj : TPTC_MODE) : TPTC_FORMAT;
+
+{ operators }
+Procedure ptc_mode_assign(obj, mode : TPTC_MODE);
+Function ptc_mode_equals(obj, mode : TPTC_MODE) : Boolean;

packages/extra/ptc/c_api/palette.inc

@@ -0,0 +1,126 @@
+Function ptc_palette_create : TPTC_PALETTE;
+
+Begin
+  Try
+    ptc_palette_create := TPTC_PALETTE(TPTCPalette.Create);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_palette_create := Nil;
+    End;
+  End;
+End;
+
+{Function ptc_palette_create_data(data : Pint32) : TPTC_PALETTE;
+
+Begin
+  Try
+    ptc_palette_create_data := TPTC_PALETTE(TPTCPalette.Create(data));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_palette_create_data := Nil;
+    End;
+  End;
+End;}
+
+Procedure ptc_palette_destroy(obj : TPTC_PALETTE);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCPalette(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_palette_lock(obj : TPTC_PALETTE) : Pint32;
+
+Begin
+  Try
+    ptc_palette_lock := TPTCPalette(obj).lock;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_palette_lock := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_palette_unlock(obj : TPTC_PALETTE);
+
+Begin
+  Try
+    TPTCPalette(obj).unlock;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_palette_load(obj : TPTC_PALETTE; data : Pint32);
+
+Begin
+  Try
+    TPTCPalette(obj).load(data);
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_palette_save(obj : TPTC_PALETTE; data : Pint32);
+
+Begin
+  Try
+    TPTCPalette(obj).save(data);
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_palette_data(obj : TPTC_PALETTE) : Pint32;
+
+Begin
+  Try
+    ptc_palette_data := TPTCPalette(obj).data;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_palette_data := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_palette_assign(obj, palette : TPTC_PALETTE);
+
+Begin
+  Try
+    TPTCPalette(obj).ASSign(TPTCPalette(palette));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_palette_equals(obj, palette : TPTC_PALETTE) : Boolean;
+
+Begin
+  Try
+    ptc_palette_equals := TPTCPalette(obj).Equals(TPTCPalette(palette));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_palette_equals := False;
+    End;
+  End;
+End;

packages/extra/ptc/c_api/paletted.inc

@@ -0,0 +1,21 @@
+{ setup }
+Function ptc_palette_create : TPTC_PALETTE;
+{Function ptc_palette_create_data(data : Pint32) : TPTC_PALETTE;}
+Procedure ptc_palette_destroy(obj : TPTC_PALETTE);
+
+{ memory access }
+Function ptc_palette_lock(obj : TPTC_PALETTE) : Pint32;
+Procedure ptc_palette_unlock(obj : TPTC_PALETTE);
+
+{ load palette data }
+Procedure ptc_palette_load(obj : TPTC_PALETTE; data : Pint32);
+
+{ save palette data }
+Procedure ptc_palette_save(obj : TPTC_PALETTE; data : Pint32);
+
+{ get palette data }
+Function ptc_palette_data(obj : TPTC_PALETTE) : Pint32;
+
+{ operators }
+Procedure ptc_palette_assign(obj, palette : TPTC_PALETTE);
+Function ptc_palette_equals(obj, palette : TPTC_PALETTE) : Boolean;

packages/extra/ptc/c_api/surface.inc

@@ -0,0 +1,284 @@
+Function ptc_surface_create(width, height : Integer; format : TPTC_FORMAT) : TPTC_SURFACE;
+
+Begin
+  Try
+    ptc_surface_create := TPTC_SURFACE(TPTCSurface.Create(width, height, TPTCFormat(format)));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_surface_create := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_surface_destroy(obj : TPTC_SURFACE);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCBaseSurface(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_surface_copy(obj : TPTC_SURFACE; surface : TPTC_SURFACE);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).copy(TPTCBaseSurface(surface));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_surface_copy_area(obj : TPTC_SURFACE; surface : TPTC_SURFACE; source, destination : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).copy(TPTCBaseSurface(surface), TPTCArea(source), TPTCArea(destination));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_surface_lock(obj : TPTC_SURFACE) : Pointer;
+
+Begin
+  Try
+    ptc_surface_lock := TPTCBaseSurface(obj).lock;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_surface_lock := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_surface_unlock(obj : TPTC_SURFACE);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).unlock;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_surface_load(obj : TPTC_SURFACE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).load(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_surface_load_area(obj : TPTC_SURFACE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE; source, destination : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).load(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette), TPTCArea(source), TPTCArea(destination));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_surface_save(obj : TPTC_SURFACE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).save(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_surface_save_area(obj : TPTC_SURFACE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE; source, destination : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).save(pixels, width, height, pitch, TPTCFormat(format), TPTCPalette(palette), TPTCArea(source), TPTCArea(destination));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_surface_clear(obj : TPTC_SURFACE);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).clear;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_surface_clear_color(obj : TPTC_SURFACE; color : TPTC_COLOR);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).clear(TPTCColor(color));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_surface_clear_color_area(obj : TPTC_SURFACE; color : TPTC_COLOR; area : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).clear(TPTCColor(color), TPTCArea(area));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_surface_palette_set(obj : TPTC_SURFACE; palette : TPTC_PALETTE);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).palette(TPTCPalette(palette));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_surface_palette_get(obj : TPTC_SURFACE) : TPTC_PALETTE;
+
+Begin
+  Try
+    ptc_surface_palette_get := TPTC_PALETTE(TPTCBaseSurface(obj).palette);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_surface_palette_get := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_surface_clip_set(obj : TPTC_SURFACE; area : TPTC_AREA);
+
+Begin
+  Try
+    TPTCBaseSurface(obj).clip(TPTCArea(area));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_surface_width(obj : TPTC_SURFACE) : Integer;
+
+Begin
+  Try
+    ptc_surface_width := TPTCBaseSurface(obj).width;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_surface_width := 0;
+    End;
+  End;
+End;
+
+Function ptc_surface_height(obj : TPTC_SURFACE) : Integer;
+
+Begin
+  Try
+    ptc_surface_height := TPTCBaseSurface(obj).height;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_surface_height := 0;
+    End;
+  End;
+End;
+
+Function ptc_surface_pitch(obj : TPTC_SURFACE) : Integer;
+
+Begin
+  Try
+    ptc_surface_pitch := TPTCBaseSurface(obj).pitch;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_surface_pitch := 0;
+    End;
+  End;
+End;
+
+Function ptc_surface_area(obj : TPTC_SURFACE) : TPTC_AREA;
+
+Begin
+  Try
+    ptc_surface_area := TPTC_AREA(TPTCBaseSurface(obj).area);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_surface_area := Nil;
+    End;
+  End;
+End;
+
+Function ptc_surface_clip(obj : TPTC_SURFACE) : TPTC_AREA;
+
+Begin
+  Try
+    ptc_surface_clip := TPTC_AREA(TPTCBaseSurface(obj).clip);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_surface_clip := Nil;
+    End;
+  End;
+End;
+
+Function ptc_surface_format(obj : TPTC_SURFACE) : TPTC_FORMAT;
+
+Begin
+  Try
+    ptc_surface_format := TPTC_FORMAT(TPTCBaseSurface(obj).format);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_surface_format := Nil;
+    End;
+  End;
+End;
+
+Function ptc_surface_option(obj : TPTC_SURFACE; _option : String) : Boolean;
+
+Begin
+  Try
+    ptc_surface_option := TPTCBaseSurface(obj).option(_option);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_surface_option := False;
+    End;
+  End;
+End;

packages/extra/ptc/c_api/surfaced.inc

@@ -0,0 +1,42 @@
+{ setup }
+Function ptc_surface_create(width, height : Integer; format : TPTC_FORMAT) : TPTC_SURFACE;
+Procedure ptc_surface_destroy(obj : TPTC_SURFACE);
+
+{ copy to surface }
+Procedure ptc_surface_copy(obj : TPTC_SURFACE; surface : TPTC_SURFACE);
+Procedure ptc_surface_copy_area(obj : TPTC_SURFACE; surface : TPTC_SURFACE; source, destination : TPTC_AREA);
+
+{ memory access }
+Function ptc_surface_lock(obj : TPTC_SURFACE) : Pointer;
+Procedure ptc_surface_unlock(obj : TPTC_SURFACE);
+
+{ load pixels to surface }
+Procedure ptc_surface_load(obj : TPTC_SURFACE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE);
+Procedure ptc_surface_load_area(obj : TPTC_SURFACE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE; source, destination : TPTC_AREA);
+
+{ save surface pixels }
+Procedure ptc_surface_save(obj : TPTC_SURFACE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE);
+Procedure ptc_surface_save_area(obj : TPTC_SURFACE; pixels : Pointer; width, height, pitch : Integer; format : TPTC_FORMAT; palette : TPTC_PALETTE; source, destination : TPTC_AREA);
+
+{ clear surface }
+Procedure ptc_surface_clear(obj : TPTC_SURFACE);
+Procedure ptc_surface_clear_color(obj : TPTC_SURFACE; color : TPTC_COLOR);
+Procedure ptc_surface_clear_color_area(obj : TPTC_SURFACE; color : TPTC_COLOR; area : TPTC_AREA);
+
+{ surface palette }
+Procedure ptc_surface_palette_set(obj : TPTC_SURFACE; palette : TPTC_PALETTE);
+Function ptc_surface_palette_get(obj : TPTC_SURFACE) : TPTC_PALETTE;
+
+{ surface clip area }
+Procedure ptc_surface_clip_set(obj : TPTC_SURFACE; area : TPTC_AREA);
+
+{ data access }
+Function ptc_surface_width(obj : TPTC_SURFACE) : Integer;
+Function ptc_surface_height(obj : TPTC_SURFACE) : Integer;
+Function ptc_surface_pitch(obj : TPTC_SURFACE) : Integer;
+Function ptc_surface_area(obj : TPTC_SURFACE) : TPTC_AREA;
+Function ptc_surface_clip(obj : TPTC_SURFACE) : TPTC_AREA;
+Function ptc_surface_format(obj : TPTC_SURFACE) : TPTC_FORMAT;
+
+{ surface option string }
+Function ptc_surface_option(obj : TPTC_SURFACE; _option : String) : Boolean;

packages/extra/ptc/c_api/timer.inc

@@ -0,0 +1,126 @@
+Function ptc_timer_create : TPTC_TIMER;
+
+Begin
+  Try
+    ptc_timer_create := TPTC_TIMER(TPTCTimer.Create);
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_timer_create := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_timer_destroy(obj : TPTC_TIMER);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCTimer(obj).Destroy;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_timer_set(obj : TPTC_TIMER; time : Double);
+
+Begin
+  Try
+    TPTCTimer(obj).settime(time);
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_timer_start(obj : TPTC_TIMER);
+
+Begin
+  Try
+    TPTCTimer(obj).start;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Procedure ptc_timer_stop(obj : TPTC_TIMER);
+
+Begin
+  Try
+    TPTCTimer(obj).stop;
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_timer_time(obj : TPTC_TIMER) : Double;
+
+Begin
+  Try
+    ptc_timer_time := TPTCTimer(obj).time;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_timer_time := 0;
+    End;
+  End;
+End;
+
+Function ptc_timer_delta(obj : TPTC_TIMER) : Double;
+
+Begin
+  Try
+    ptc_timer_delta := TPTCTimer(obj).delta;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_timer_delta := 0;
+    End;
+  End;
+End;
+
+Function ptc_timer_resolution(obj : TPTC_TIMER) : Double;
+
+Begin
+  Try
+    ptc_timer_resolution := TPTCTimer(obj).resolution;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_timer_resolution := 0;
+    End;
+  End;
+End;
+
+Procedure ptc_timer_assign(obj, timer : TPTC_TIMER);
+
+Begin
+  Try
+    TPTCTimer(obj).ASSign(TPTCTimer(timer));
+  Except
+    On error : TPTCError Do
+      ptc_exception_handle(error);
+  End;
+End;
+
+Function ptc_timer_equals(obj, timer : TPTC_TIMER) : Boolean;
+
+Begin
+  Try
+    ptc_timer_equals := TPTCTimer(obj).equals(TPTCTimer(timer));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_timer_equals := False;
+    End;
+  End;
+End;

packages/extra/ptc/c_api/timerd.inc

@@ -0,0 +1,19 @@
+{ setup }
+Function ptc_timer_create : TPTC_TIMER;
+Procedure ptc_timer_destroy(obj : TPTC_TIMER);
+
+{ set time }
+Procedure ptc_timer_set(obj : TPTC_TIMER; time : Double);
+
+{ control }
+Procedure ptc_timer_start(obj : TPTC_TIMER);
+Procedure ptc_timer_stop(obj : TPTC_TIMER);
+
+{ time data }
+Function ptc_timer_time(obj : TPTC_TIMER) : Double;
+Function ptc_timer_delta(obj : TPTC_TIMER) : Double;
+Function ptc_timer_resolution(obj : TPTC_TIMER) : Double;
+
+{ operators }
+Procedure ptc_timer_assign(obj, timer : TPTC_TIMER);
+Function ptc_timer_equals(obj, timer : TPTC_TIMER) : Boolean;

packages/extra/ptc/cleard.inc

@@ -0,0 +1,31 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Type
+  TPTCClear=Class(TObject)
+  Private
+    Fhandle : THermesHandle;
+    Fformat : TPTCFormat;
+  Public
+    Constructor Create;
+    Destructor Destroy; Override;
+    Procedure request(Const format : TPTCFormat);
+    Procedure clear(pixels : Pointer; x, y, width, height, pitch : Integer; Const color : TPTCColor);
+  End;

packages/extra/ptc/cleari.inc

@@ -0,0 +1,151 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Constructor TPTCClear.Create;
+
+Begin
+  Fformat := Nil;
+  { initialize hermes }
+  If Not Hermes_Init Then
+    Raise TPTCError.Create('could not initialize hermes');
+
+  { default current format }
+  Fformat := TPTCFormat.Create;
+  { create hermes clearer instance }
+  Fhandle := Hermes_ClearerInstance;
+  { check hermes clearer instance }
+  If Fhandle = 0 Then
+    Raise TPTCError.Create('could not create hermes clearer instance');
+End;
+
+Destructor TPTCClear.Destroy;
+
+Begin
+  { return the clearer instance }
+  Hermes_ClearerReturn(Fhandle);
+  Fformat.Free;
+  { free hermes }
+  Hermes_Done;
+  
+  Inherited Destroy;
+End;
+
+Procedure TPTCClear.request(Const format : TPTCFormat);
+
+Var
+  hermes_format : PHermesFormat;
+
+Begin
+  hermes_format := @format.Fformat;
+  { request surface clear for this format }
+  If Not Hermes_ClearerRequest(Fhandle, hermes_format) Then
+    Raise TPTCError.Create('unsupported clear format');
+
+  { update current format }
+  Fformat.Assign(format);
+End;
+
+Procedure TPTCClear.clear(pixels : Pointer; x, y, width, height, pitch : Integer; Const color : TPTCColor);
+
+Var
+  r, g, b, a : LongInt;
+  index : LongInt;
+
+Begin
+{$IFDEF DEBUG}
+  {
+  This checking is performed only when DEBUG is defined,
+  and can be used to track down errors early caused by passing
+  nil pointers to the clear function.
+
+  Even though technically clear should never receive a nil
+  pointer, we provide a check here to assist in debugging
+  just in case it ever does!
+  }
+  If pixels = Nil Then
+    Raise TPTCError.Create('nil pixels pointer in clear');
+{$ELSE}
+  { In release build no checking is performed for the sake of efficiency. }
+{$ENDIF}
+
+  { check format type }
+  If Fformat.direct Then
+  Begin
+    { check color type }
+    If Not color.direct Then
+      Raise TPTCError.Create('direct pixel formats can only be cleared with direct color');
+
+    { setup clear color }
+    r := Trunc(color.r * 255);
+    g := Trunc(color.g * 255);
+    b := Trunc(color.b * 255);
+    a := Trunc(color.a * 255);
+
+    { clamp red }
+    If r > 255 Then
+      r := 255
+    Else
+      If r < 0 Then
+        r := 0;
+
+    { clamp green }
+    If g > 255 Then
+      g := 255
+    Else
+      If g < 0 Then
+        g := 0;
+
+    { clamp blue }
+    If b > 255 Then
+      b := 255
+    Else
+      If b < 0 Then
+        b := 0;
+
+    { clamp alpha }
+    If a > 255 Then
+      a := 255
+    Else
+      If a < 0 Then
+        a := 0;
+
+    { perform the clearing }
+    Hermes_ClearerClear(Fhandle,pixels,x,y,width,height,pitch,r,g,b,a);
+  End
+  Else
+  Begin
+    { check color type }
+    If Not color.indexed Then
+      Raise TPTCError.Create('indexed pixel formats can only be cleared with indexed color');
+
+    { setup clear index }
+    index := color.index;
+
+    { clamp color index }
+    If index > 255 Then
+      index := 255
+    Else
+      If index < 0 Then
+        index := 0;
+
+    { perform the clearing }
+    Hermes_ClearerClear(Fhandle,pixels,x,y,width,height,pitch,0,0,0,index);
+  End;
+End;

packages/extra/ptc/clipperd.inc

@@ -0,0 +1,31 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{ $INLINE ON}
+Type
+  TPTCClipper=Class(TObject)
+  Public
+    { clip a single area against clip area }
+    Function clip(Const _area, _clip : TPTCArea) : TPTCArea;
+    { clip source and destination areas against source and destination clip areas }
+    Procedure clip(Const source, clip_source, clipped_source,
+                   destination, clip_destination,
+                   clipped_destination : TPTCArea);
+  End;

packages/extra/ptc/clipperi.inc

@@ -0,0 +1,243 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+{ $INLINE ON}
+
+Class Function TPTCClipper.clip(Const _area, _clip : TPTCArea) : TPTCArea;
+
+Var
+  left, top, right, bottom : Integer;
+  clip_left, clip_top, clip_right, clip_bottom : Integer;
+
+Begin
+  { get in coordinates }
+  left := _area.left;
+  top := _area.top;
+  right := _area.right;
+  bottom := _area.bottom;
+  { get clip coordinates }
+  clip_left := _clip.left;
+  clip_top := _clip.top;
+  clip_right := _clip.right;
+  clip_bottom := _clip.bottom;
+  { clip left }
+  If left < clip_left Then
+    left := clip_left;
+  If left > clip_right Then
+    left := clip_right;
+  { clip top }
+  If top < clip_top Then
+    top := clip_top;
+  If top > clip_bottom Then
+    top := clip_bottom;
+  { clip right }
+  If right < clip_left Then
+    right := clip_left;
+  If right > clip_right Then
+    right := clip_right;
+  { clip bottom }
+  If bottom < clip_top Then
+    bottom := clip_top;
+  If bottom > clip_bottom Then
+    bottom := clip_bottom;
+  clip := TPTCArea.Create(left, top, right, bottom);
+End;
+
+{ clip floating point area against a floating point clip area }
+Procedure TPTCClipper_clip(Var left, top, right, bottom : Real;
+                           clip_left, clip_top, clip_right, clip_bottom : Real);{ Inline;}
+
+Begin
+  { clip left }
+  If left < clip_left Then
+    left := clip_left;
+  If left > clip_right Then
+    left := clip_right;
+  { clip top }
+  If top < clip_top Then
+    top := clip_top;
+  If top > clip_bottom Then
+    top := clip_bottom;
+  { clip right }
+  If right < clip_left Then
+    right := clip_left;
+  If right > clip_right Then
+    right := clip_right;
+  { clip bottom }
+  If bottom < clip_top Then
+    bottom := clip_top;
+  If bottom > clip_bottom Then
+    bottom := clip_bottom;
+End;
+
+{ clip floating point area against clip area }
+Procedure TPTCClipper_clip(Var left, top, right, bottom : Real; Const _clip : TPTCArea);{ Inline;}
+
+Var
+  clip_left, clip_top, clip_right, clip_bottom : Real;
+
+Begin
+  { get floating point clip area }
+  clip_left := _clip.left;
+  clip_top := _clip.top;
+  clip_right := _clip.right;
+  clip_bottom := _clip.bottom;
+  { clip floating point area against floating point clip area }
+  TPTCClipper_clip(left, top, right, bottom, clip_left, clip_top, clip_right, clip_bottom);
+End;
+
+{ snap a floating point area to integer coordinates }
+Procedure TPTCClipper_round(Var left, top, right, bottom : Real);{ Inline;}
+
+Begin
+  left := Round(left);
+  top := Round(top);
+  right := Round(right);
+  bottom := Round(bottom);
+End;
+
+Class Procedure TPTCClipper.clip(Const source, clip_source, clipped_source,
+                                 destination, clip_destination,
+                                 clipped_destination : TPTCArea);
+
+Var
+  tmp1, tmp2 : TPTCArea;
+
+  source_left, source_top, source_right, source_bottom : Real;
+  clipped_source_left, clipped_source_top, clipped_source_right,
+  clipped_source_bottom : Real;
+  source_delta_left, source_delta_top, source_delta_right,
+  source_delta_bottom : Real;
+  source_to_destination_x, source_to_destination_y : Real;
+  destination_left, destination_top, destination_right,
+  destination_bottom : Real;
+  adjusted_destination_left, adjusted_destination_top,
+  adjusted_destination_right, adjusted_destination_bottom : Real;
+  clipped_destination_left, clipped_destination_top,
+  clipped_destination_right, clipped_destination_bottom : Real;
+  destination_delta_left, destination_delta_top, destination_delta_right,
+  destination_delta_bottom : Real;
+  destination_to_source_x, destination_to_source_y : Real;
+  adjusted_source_left, adjusted_source_top, adjusted_source_right,
+  adjusted_source_bottom : Real;
+
+Begin
+  tmp1 := Nil;
+  tmp2 := Nil;
+  Try
+    { expand source area to floating point }
+    source_left := source.left;
+    source_top := source.top;
+    source_right := source.right;
+    source_bottom := source.bottom;
+    { setup clipped source area }
+    clipped_source_left := source_left;
+    clipped_source_top := source_top;
+    clipped_source_right := source_right;
+    clipped_source_bottom := source_bottom;
+    { perform clipping on floating point source area }
+    TPTCClipper_clip(clipped_source_left, clipped_source_top, clipped_source_right,
+                     clipped_source_bottom, clip_source);
+    { check for early source area clipping exit }
+    If (clipped_source_left = clipped_source_right) Or
+       (clipped_source_top = clipped_source_bottom) Then
+    Begin
+      { clipped area is zero }
+      tmp1 := TPTCArea.Create(0, 0, 0, 0);
+      clipped_source.ASSign(tmp1);
+      clipped_destination.ASSign(tmp1);
+      Exit;
+    End;
+    { calculate deltas in source clip }
+    source_delta_left := clipped_source_left - source_left;
+    source_delta_top := clipped_source_top - source_top;
+    source_delta_right := clipped_source_right - source_right;
+    source_delta_bottom := clipped_source_bottom - source_bottom;
+    { calculate ratio of source area to destination area }
+    source_to_destination_x := destination.width / source.width;
+    source_to_destination_y := destination.height / source.height;
+    { expand destination area to floating point }
+    destination_left := destination.left;
+    destination_top := destination.top;
+    destination_right := destination.right;
+    destination_bottom := destination.bottom;
+    { calculate adjusted destination area }
+    adjusted_destination_left := destination_left + source_delta_left * source_to_destination_x;
+    adjusted_destination_top := destination_top + source_delta_top * source_to_destination_y;
+    adjusted_destination_right := destination_right + source_delta_right * source_to_destination_x;
+    adjusted_destination_bottom := destination_bottom + source_delta_bottom * source_to_destination_y;
+    { setup clipped destination area }
+    clipped_destination_left := adjusted_destination_left;
+    clipped_destination_top := adjusted_destination_top;
+    clipped_destination_right := adjusted_destination_right;
+    clipped_destination_bottom := adjusted_destination_bottom;
+    { perform clipping on floating point destination area }
+    TPTCClipper_clip(clipped_destination_left, clipped_destination_top,
+                     clipped_destination_right, clipped_destination_bottom, clip_destination);
+    { check for early destination area clipping exit }
+    If (clipped_destination_left = clipped_destination_right) Or
+       (clipped_destination_top = clipped_destination_bottom)
+   Then
+    Begin
+      { clipped area is zero }
+      tmp1 := TPTCArea.Create(0, 0, 0, 0);
+      clipped_source.ASSign(tmp1);
+      clipped_destination.ASSign(tmp1);
+      Exit;
+    End;
+    { calculate deltas in destination clip }
+    destination_delta_left := clipped_destination_left - adjusted_destination_left;
+    destination_delta_top := clipped_destination_top - adjusted_destination_top;
+    destination_delta_right := clipped_destination_right - adjusted_destination_right;
+    destination_delta_bottom := clipped_destination_bottom - adjusted_destination_bottom;
+    { calculate ratio of destination area to source area }
+    destination_to_source_x := 1 / source_to_destination_x;
+    destination_to_source_y := 1 / source_to_destination_y;
+    { calculate adjusted source area }
+    adjusted_source_left := clipped_source_left + destination_delta_left * destination_to_source_x;
+    adjusted_source_top := clipped_source_top + destination_delta_top * destination_to_source_y;
+    adjusted_source_right := clipped_source_right + destination_delta_right * destination_to_source_x;
+    adjusted_source_bottom := clipped_source_bottom + destination_delta_bottom * destination_to_source_y;
+    { assign adjusted source to clipped source }
+    clipped_source_left := adjusted_source_left;
+    clipped_source_top := adjusted_source_top;
+    clipped_source_right := adjusted_source_right;
+    clipped_source_bottom := adjusted_source_bottom;
+    { round clipped areas to integer coordinates }
+    TPTCClipper_round(clipped_source_left, clipped_source_top,
+                      clipped_source_right, clipped_source_bottom);
+    TPTCClipper_round(clipped_destination_left, clipped_destination_top,
+                      clipped_destination_right, clipped_destination_bottom);
+    { construct clipped area rectangles from rounded floating point areas }
+    tmp1 := TPTCArea.Create(Trunc(clipped_source_left),
+                            Trunc(clipped_source_top),
+                            Trunc(clipped_source_right),
+                            Trunc(clipped_source_bottom));
+    tmp2 := TPTCArea.Create(Trunc(clipped_destination_left),
+                            Trunc(clipped_destination_top),
+                            Trunc(clipped_destination_right),
+                            Trunc(clipped_destination_bottom));
+    clipped_source.ASSign(tmp1);
+    clipped_destination.ASSign(tmp2);
+  Finally
+    tmp1.Free;
+    tmp2.Free;
+  End;
+End;

packages/extra/ptc/colord.inc

@@ -0,0 +1,44 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Type
+  TPTCColor=Class(TObject)
+  Private
+    m_index : Integer;
+    m_r, m_g, m_b, m_a : Single;
+    m_direct : Boolean;
+    m_indexed : Boolean;
+  Public
+    Constructor Create;
+    Constructor Create(_index : Integer);
+    Constructor Create(_r, _g, _b, _a : Real);
+    Constructor Create(_r, _g, _b : Real);
+    Constructor Create(Const color : TPTCColor);
+    Destructor Destroy; Override;
+    Procedure Assign(Const color : TPTCColor);
+    Function Equals(Const color : TPTCColor) : Boolean;
+    Property index : Integer read m_index;
+    Property r : Single read m_r;
+    Property g : Single read m_g;
+    Property b : Single read m_b;
+    Property a : Single read m_a;
+    Property direct : Boolean read m_direct;
+    Property indexed : Boolean read m_indexed;
+  End;

packages/extra/ptc/colori.inc

@@ -0,0 +1,109 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Constructor TPTCColor.Create;
+
+Begin
+  m_indexed := False;
+  m_direct := False;
+  m_index := 0;
+  m_r := 0;
+  m_g := 0;
+  m_b := 0;
+  m_a := 1;
+End;
+
+Constructor TPTCColor.Create(_index : Integer);
+
+Begin
+  m_indexed := True;
+  m_direct := False;
+  m_index := _index;
+  m_r := 0;
+  m_g := 0;
+  m_b := 0;
+  m_a := 1;
+End;
+
+Constructor TPTCColor.Create(_r, _g, _b, _a : Real);
+
+Begin
+  m_indexed := False;
+  m_direct := True;
+  m_index := 0;
+  m_r := _r;
+  m_g := _g;
+  m_b := _b;
+  m_a := _a;
+End;
+
+Constructor TPTCColor.Create(_r, _g, _b : Real);
+
+Begin
+  m_indexed := False;
+  m_direct := True;
+  m_index := 0;
+  m_r := _r;
+  m_g := _g;
+  m_b := _b;
+  m_a := 1;
+End;
+
+Constructor TPTCColor.Create(Const color : TPTCColor);
+
+Begin
+  ASSign(color);
+End;
+
+Destructor TPTCColor.Destroy;
+
+Begin
+  Inherited Destroy;
+End;
+
+Procedure TPTCColor.Assign(Const color : TPTCColor);
+
+Begin
+  If Self = color Then
+    Raise TPTCError.Create('self assignment is not allowed');
+  m_index := color.index;
+  m_r := color.r;
+  m_g := color.g;
+  m_b := color.b;
+  m_a := color.a;
+  m_direct := color.direct;
+  m_indexed := color.indexed;
+End;
+
+Function TPTCColor.Equals(Const color : TPTCColor) : Boolean;
+
+Begin
+  If m_direct And color.m_direct Then
+    If (m_r = color.m_r) And (m_g = color.m_g) And
+       (m_b = color.m_b) And (m_a = color.m_a) Then
+      Equals := True
+    Else
+      Equals := False
+  Else
+    If m_index = color.m_index Then
+      Equals := True
+    Else
+      Equals := False;
+End;

packages/extra/ptc/consoled.inc

@@ -0,0 +1,101 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Type
+  TPTCConsole=Class(TPTCBaseConsole)
+  Private
+    Function ConsoleCreate(index : Integer) : TPTCBaseConsole;
+    Function ConsoleCreate(Const _name : String) : TPTCBaseConsole;
+    Procedure check;
+    console : TPTCBaseConsole;
+    m_modes : Array[0..1023] Of TPTCMode;
+    hacky_option_console_flag : Boolean;
+  Protected
+    Procedure internal_ReadKey(k : TPTCKey); Override;
+    Function internal_PeekKey(k : TPTCKey) : Boolean; Override;
+  Public
+    Constructor Create;
+    Destructor Destroy; Override;
+    Procedure configure(Const _file : String); Override;
+    Function option(Const _option : String) : Boolean; Override;
+    Function modes : PPTCMode; Override;
+    Procedure open(Const _title : String; _pages : Integer); Overload; Override;
+    Procedure open(Const _title : String; Const _format : TPTCFormat;
+                   _pages : Integer); Overload; Override;
+    Procedure open(Const _title : String; _width, _height : Integer;
+                   Const _format : TPTCFormat; _pages : Integer); Overload; Override;
+    Procedure open(Const _title : String; Const _mode : TPTCMode;
+                   _pages : Integer); Overload; Override;
+
+    {$WARNING this should be removed for fpc 1.1}
+    {pages=0}
+    Procedure open(Const _title : String); Overload; Override;
+    Procedure open(Const _title : String; Const _format : TPTCFormat); Overload; Override;
+    Procedure open(Const _title : String; _width, _height : Integer;
+                   Const _format : TPTCFormat); Overload; Override;
+    Procedure open(Const _title : String; Const _mode : TPTCMode); Overload; Override;
+    {/pages=0}
+
+    Procedure close; Override;
+    Procedure flush; Override;
+    Procedure finish; Override;
+    Procedure update; Override;
+    Procedure update(Const _area : TPTCArea); Override;
+    Procedure copy(Var surface : TPTCBaseSurface); Override;
+    Procedure copy(Var surface : TPTCBaseSurface;
+                   Const source, destination : TPTCArea); Override;
+    Function lock : Pointer; Override;
+    Procedure unlock; Override;
+    Procedure load(Const pixels : Pointer;
+                   _width, _height, _pitch : Integer;
+                   Const _format : TPTCFormat;
+                   Const _palette : TPTCPalette); Override;
+    Procedure load(Const pixels : Pointer;
+                   _width, _height, _pitch : Integer;
+                   Const _format : TPTCFormat;
+                   Const _palette : TPTCPalette;
+                   Const source, destination : TPTCArea); Override;
+    Procedure save(pixels : Pointer;
+                   _width, _height, _pitch : Integer;
+                   Const _format : TPTCFormat;
+                   Const _palette : TPTCPalette); Override;
+    Procedure save(pixels : Pointer;
+                   _width, _height, _pitch : Integer;
+                   Const _format : TPTCFormat;
+                   Const _palette : TPTCPalette;
+                   Const source, destination : TPTCArea); Override;
+    Procedure clear; Override;
+    Procedure clear(Const color : TPTCColor); Override;
+    Procedure clear(Const color : TPTCColor;
+                    Const _area : TPTCArea); Override;
+    Procedure palette(Const _palette : TPTCPalette); Override;
+    Function palette : TPTCPalette; Override;
+    Procedure clip(Const _area : TPTCArea); Override;
+    Function width : Integer; Override;
+    Function height : Integer; Override;
+    Function pitch : Integer; Override;
+    Function pages : Integer; Override;
+    Function area : TPTCArea; Override;
+    Function clip : TPTCArea; Override;
+    Function format : TPTCFormat; Override;
+    Function name : String; Override;
+    Function title : String; Override;
+    Function information : String; Override;
+  End;

packages/extra/ptc/consolei.inc

@@ -0,0 +1,753 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Constructor TPTCConsole.Create;
+
+Var
+  I : Integer;
+  {$IFDEF UNIX}
+  s : AnsiString;
+  {$ENDIF UNIX}
+
+Begin
+  Inherited Create;
+  console := Nil;
+  hacky_option_console_flag := False;
+  FillChar(m_modes, SizeOf(m_modes), 0);
+  For I := Low(m_modes) To High(m_modes) Do
+    m_modes[I] := TPTCMode.Create;
+  {$IFDEF UNIX}
+  configure('/usr/share/ptc/ptc.conf');
+  s := fpgetenv('HOME');
+  If s = '' Then
+    s := '/';
+  If s[Length(s)] <> '/' Then
+    s := s + '/';
+  s := s + '.ptc.conf';
+  configure(s);
+  {$ELSE UNIX}
+  configure('ptc.cfg');
+  {$ENDIF UNIX}
+End;
+
+Destructor TPTCConsole.Destroy;
+
+Var
+  I : Integer;
+
+Begin
+  close;
+  console.Free;
+  For I := Low(m_modes) To High(m_modes) Do
+    m_modes[I].Free;
+  Inherited Destroy;
+End;
+
+Procedure TPTCConsole.configure(Const _file : String);
+
+Var
+  F : Text;
+  S : String;
+
+Begin
+  ASSignFile(F, _file);
+  {$I-}
+  Reset(F);
+  {$I+}
+  If IOResult <> 0 Then
+    Exit;
+  While Not EoF(F) Do
+  Begin
+    {$I-}
+    Readln(F, S);
+    {$I+}
+    If IOResult <> 0 Then
+      Break;
+    option(S);
+  End;
+  CloseFile(F);
+End;
+
+Function TPTCConsole.option(Const _option : String) : Boolean;
+
+Begin
+{$IFDEF PTC_LOGGING}
+  If _option = 'enable logging' Then
+  Begin
+    LOG_enabled := True;
+    option := True;
+    Exit;
+  End;
+  If _option = 'disable logging' Then
+  Begin
+    LOG_enabled := False;
+    option := True;
+    Exit;
+  End;
+{$ENDIF PTC_LOGGING}
+
+  If Assigned(console) Then
+    option := console.option(_option)
+  Else
+  Begin
+    console := ConsoleCreate(_option);
+    If Assigned(console) Then
+    Begin
+      hacky_option_console_flag := True;
+      option := True;
+    End
+    Else
+      option := False;
+  End;
+End;
+
+Function TPTCConsole.modes : PPTCMode;
+
+Var
+  _console : TPTCBaseConsole;
+  index, mode : Integer;
+  local : Integer;
+  _modes : PPTCMode;
+  tmp : TPTCMode;
+
+Begin
+  If Assigned(console) Then
+    modes := console.modes
+  Else
+  Begin
+    _console := Nil;
+    index := -1;
+    mode := 0;
+    Try
+      Repeat
+        Inc(index);
+        Try
+          _console := ConsoleCreate(index);
+        Except
+          On TPTCError Do Begin
+            FreeAndNil(_console);
+            Continue;
+          End;
+        End;
+        If _console = Nil Then
+          Break;
+        _modes := _console.modes;
+        local := 0;
+        While _modes[local].valid Do
+        Begin
+          m_modes[mode].ASSign(_modes[local]);
+          Inc(local);
+          Inc(mode);
+        End;
+        FreeAndNil(_console);
+      Until False;
+    Finally
+      _console.Free;
+    End;
+    { todo: strip duplicate modes from list? }
+    tmp := TPTCMode.Create;
+    Try
+      m_modes[mode].ASSign(tmp);
+    Finally
+      tmp.Free;
+    End;
+    modes := m_modes;
+  End;
+End;
+
+Procedure TPTCConsole.open(Const _title : String; _pages : Integer);{ Overload;}
+
+Var
+  composite, tmp : TPTCError;
+  index : Integer;
+  success : Boolean;
+
+Begin
+  If Assigned(console) Then
+  Begin
+    Try
+      console.open(_title, _pages);
+      Exit;
+    Except
+      On error : TPTCError Do Begin
+        FreeAndNil(console);
+        If hacky_option_console_flag Then
+        Begin
+          hacky_option_console_flag := False;
+          Raise TPTCError.Create('could not open console', error);
+        End;
+      End;
+    End;
+  End;
+  index := -1;
+  composite := TPTCError.Create;
+  success := False;
+  Try
+    Repeat
+      Inc(index);
+      Try
+        console := ConsoleCreate(index);
+        If console = Nil Then
+          Break;
+        console.open(_title, _pages);
+        success := True;
+        Exit;
+      Except
+        On error : TPTCError Do Begin
+          tmp := TPTCError.Create(error.message, composite);
+          Try
+            composite.ASSign(tmp);
+          Finally
+            tmp.Free;
+          End;
+          FreeAndNil(console);
+          Continue;
+        End;
+      End;
+    Until False;
+    console := Nil;
+    Raise TPTCError.Create(composite);
+  Finally
+    composite.Free;
+    If Not success Then
+      FreeAndNil(console);
+  End;
+End;
+
+Procedure TPTCConsole.open(Const _title : String; Const _format : TPTCFormat;
+                           _pages : Integer);{ Overload;}
+
+Var
+  composite, tmp : TPTCError;
+  index : Integer;
+  success : Boolean;
+
+Begin
+  If Assigned(console) Then
+  Begin
+    Try
+      console.open(_title, _format, _pages);
+      Exit;
+    Except
+      On error : TPTCError Do Begin
+        FreeAndNil(console);
+        If hacky_option_console_flag Then
+        Begin
+          hacky_option_console_flag := False;
+          Raise TPTCError.Create('could not open console', error);
+        End;
+      End;
+    End;
+  End;
+  index := -1;
+  composite := TPTCError.Create;
+  success := False;
+  Try
+    Repeat
+      Inc(index);
+      Try
+        console := ConsoleCreate(index);
+        If console = Nil Then
+          Break;
+        console.open(_title, _format, _pages);
+        success := True;
+        Exit;
+      Except
+        On error : TPTCError Do Begin
+          tmp := TPTCError.Create(error.message, composite);
+          Try
+            composite.ASSign(tmp);
+          Finally
+            tmp.Free;
+          End;
+          FreeAndNil(console);
+          Continue;
+        End;
+      End;
+    Until False;
+    console := Nil;
+    Raise TPTCError.Create(composite);
+  Finally
+    composite.Free;
+    If Not success Then
+      FreeAndNil(console);
+  End;
+End;
+
+Procedure TPTCConsole.open(Const _title : String; _width, _height : Integer;
+                           Const _format : TPTCFormat; _pages : Integer);{ Overload;}
+
+Var
+  composite, tmp : TPTCError;
+  index : Integer;
+  success : Boolean;
+
+Begin
+  If Assigned(console) Then
+  Begin
+    Try
+      console.open(_title, _width, _height, _format, _pages);
+      Exit;
+    Except
+      On error : TPTCError Do Begin
+        FreeAndNil(console);
+        If hacky_option_console_flag Then
+        Begin
+          hacky_option_console_flag := False;
+          Raise TPTCError.Create('could not open console', error);
+        End;
+      End;
+    End;
+  End;
+  index := -1;
+  composite := TPTCError.Create;
+  success := False;
+  Try
+    Repeat
+      Inc(index);
+      Try
+        console := ConsoleCreate(index);
+        If console = Nil Then
+          Break;
+        console.open(_title, _width, _height, _format, _pages);
+        success := True;
+        Exit;
+      Except
+        On error : TPTCError Do Begin
+          tmp := TPTCError.Create(error.message, composite);
+          Try
+            composite.ASSign(tmp);
+          Finally
+            tmp.Free;
+          End;
+          FreeAndNil(console);
+          Continue;
+        End;
+      End;
+    Until False;
+    console := Nil;
+    Raise TPTCError.Create(composite);
+  Finally
+    composite.Free;
+    If Not success Then
+      FreeAndNil(console);
+  End;
+End;
+
+Procedure TPTCConsole.open(Const _title : String; Const _mode : TPTCMode;
+                           _pages : Integer);{ Overload;}
+
+Var
+  composite, tmp : TPTCError;
+  index : Integer;
+  success : Boolean;
+
+Begin
+  If Assigned(console) Then
+  Begin
+    Try
+      console.open(_title, _mode, _pages);
+      Exit;
+    Except
+      On error : TPTCError Do Begin
+        FreeAndNil(console);
+        If hacky_option_console_flag Then
+        Begin
+          hacky_option_console_flag := False;
+          Raise TPTCError.Create('could not open console', error);
+        End;
+      End;
+    End;
+  End;
+  index := -1;
+  composite := TPTCError.Create;
+  success := False;
+  Try
+    Repeat
+      Inc(index);
+      Try
+        console := ConsoleCreate(index);
+        If console = Nil Then
+          Break;
+        console.open(_title, _mode, _pages);
+        success := True;
+        Exit;
+      Except
+        On error : TPTCError Do Begin
+          tmp := TPTCError.Create(error.message, composite);
+          Try
+            composite.ASSign(tmp);
+          Finally
+            tmp.Free;
+          End;
+          FreeAndNil(console);
+          Continue;
+        End;
+      End;
+    Until False;
+    console := Nil;
+    Raise TPTCError.Create(composite);
+  Finally
+    composite.Free;
+    If Not success Then
+      FreeAndNil(console);
+  End;
+End;
+
+Procedure TPTCConsole.close;
+
+Begin
+  If Assigned(console) Then
+    console.close;
+  hacky_option_console_flag := False;
+End;
+
+Procedure TPTCConsole.flush;
+
+Begin
+  check;
+  console.flush;
+End;
+
+Procedure TPTCConsole.finish;
+
+Begin
+  check;
+  console.finish;
+End;
+
+Procedure TPTCConsole.update;
+
+Begin
+  check;
+  console.update;
+End;
+
+Procedure TPTCConsole.update(Const _area : TPTCArea);
+
+Begin
+  check;
+  console.update(_area);
+End;
+
+Procedure TPTCConsole.internal_ReadKey(k : TPTCKey);
+
+Begin
+  check;
+  console.internal_ReadKey(k);
+End;
+
+Function TPTCConsole.internal_PeekKey(k : TPTCKey) : Boolean;
+
+Begin
+  check;
+  Result := console.internal_PeekKey(k);
+End;
+
+Procedure TPTCConsole.copy(Var surface : TPTCBaseSurface);
+
+Begin
+  check;
+  console.copy(surface);
+End;
+
+Procedure TPTCConsole.copy(Var surface : TPTCBaseSurface;
+                           Const source, destination : TPTCArea);
+
+Begin
+  check;
+  console.copy(surface, source, destination);
+End;
+
+Function TPTCConsole.lock : Pointer;
+
+Begin
+  check;
+  lock := console.lock;
+End;
+
+Procedure TPTCConsole.unlock;
+
+Begin
+  check;
+  console.unlock;
+End;
+
+Procedure TPTCConsole.load(Const pixels : Pointer;
+                           _width, _height, _pitch : Integer;
+                           Const _format : TPTCFormat;
+                           Const _palette : TPTCPalette);
+
+Begin
+  check;
+  console.load(pixels, _width, _height, _pitch, _format, _palette);
+End;
+
+Procedure TPTCConsole.load(Const pixels : Pointer;
+                           _width, _height, _pitch : Integer;
+                           Const _format : TPTCFormat;
+                           Const _palette : TPTCPalette;
+                           Const source, destination : TPTCArea);
+
+Begin
+  check;
+  console.load(pixels, _width, _height, _pitch, _format, _palette,
+               source, destination);
+End;
+
+Procedure TPTCConsole.save(pixels : Pointer;
+                           _width, _height, _pitch : Integer;
+                           Const _format : TPTCFormat;
+                           Const _palette : TPTCPalette);
+
+Begin
+  check;
+  console.save(pixels, _width, _height, _pitch, _format, _palette);
+End;
+
+Procedure TPTCConsole.save(pixels : Pointer;
+                           _width, _height, _pitch : Integer;
+                           Const _format : TPTCFormat;
+                           Const _palette : TPTCPalette;
+                           Const source, destination : TPTCArea);
+
+Begin
+  check;
+  console.save(pixels, _width, _height, _pitch, _format, _palette,
+               source, destination);
+End;
+
+Procedure TPTCConsole.clear;
+
+Begin
+  check;
+  console.clear;
+End;
+
+Procedure TPTCConsole.clear(Const color : TPTCColor);
+
+Begin
+  check;
+  console.clear(color);
+End;
+
+Procedure TPTCConsole.clear(Const color : TPTCColor;
+                           Const _area : TPTCArea);
+
+Begin
+  check;
+  console.clear(color, _area);
+End;
+
+Procedure TPTCConsole.palette(Const _palette : TPTCPalette);
+
+Begin
+  check;
+  console.palette(_palette);
+End;
+
+Function TPTCConsole.palette : TPTCPalette;
+
+Begin
+  check;
+  palette := console.palette;
+End;
+
+Procedure TPTCConsole.clip(Const _area : TPTCArea);
+
+Begin
+  check;
+  console.clip(_area);
+End;
+
+Function TPTCConsole.width : Integer;
+
+Begin
+  check;
+  width := console.width;
+End;
+
+Function TPTCConsole.height : Integer;
+
+Begin
+  check;
+  height := console.height;
+End;
+
+Function TPTCConsole.pitch : Integer;
+
+Begin
+  check;
+  pitch := console.pitch;
+End;
+
+Function TPTCConsole.pages : Integer;
+
+Begin
+  check;
+  pages := console.pages;
+End;
+
+Function TPTCConsole.area : TPTCArea;
+
+Begin
+  check;
+  area := console.area;
+End;
+
+Function TPTCConsole.clip : TPTCArea;
+
+Begin
+  check;
+  clip := console.clip;
+End;
+
+Function TPTCConsole.format : TPTCFormat;
+
+Begin
+  check;
+  format := console.format;
+End;
+
+Function TPTCConsole.name : String;
+
+Begin
+  name := '';
+  If Assigned(console) Then
+    name := console.name
+  Else
+{$IFDEF GO32V2}
+    name := 'DOS';
+{$ENDIF GO32V2}
+{$IFDEF WIN32}
+    name := 'Win32';
+{$ENDIF WIN32}
+{$IFDEF LINUX}
+    name := 'Linux';
+{$ENDIF LINUX}
+End;
+
+Function TPTCConsole.title : String;
+
+Begin
+  check;
+  title := console.title;
+End;
+
+Function TPTCConsole.information : String;
+
+Begin
+  check;
+  information := console.information;
+End;
+
+Function TPTCConsole.ConsoleCreate(index : Integer) : TPTCBaseConsole;
+
+Begin
+  {$IFDEF GO32V2}
+  Case index Of
+    0 : ConsoleCreate := VESAConsole.Create;
+    1 : ConsoleCreate := VGAConsole.Create;
+    2 : ConsoleCreate := CGAConsole.Create;
+    3 : ConsoleCreate := TEXTFX2Console.Create;
+    Else
+      ConsoleCreate := Nil;
+  End;
+  {$ENDIF GO32V2}
+  {$IFDEF WIN32}
+  Case index Of
+    0 : ConsoleCreate := TDirectXConsole.Create;
+    Else
+      ConsoleCreate := Nil;
+  End;
+  {$ENDIF WIN32}
+  {$IFDEF UNIX}
+  Case index Of
+    0 : ConsoleCreate := TX11Console.Create;
+    Else
+      ConsoleCreate := Nil;
+  End;
+  {$ENDIF UNIX}
+  If ConsoleCreate <> Nil Then
+    ConsoleCreate.KeyReleaseEnabled := KeyReleaseEnabled;
+End;
+
+Function TPTCConsole.ConsoleCreate(Const _name : String) : TPTCBaseConsole;
+
+Begin
+  ConsoleCreate := Nil;
+  {$IFDEF GO32V2}
+  If _name = 'VESA' Then
+    ConsoleCreate := VESAConsole.Create;
+  If (_name = 'VGA') Or (_name = 'Fakemode') Then
+    ConsoleCreate := VGAConsole.Create;
+  If (_name = 'TEXTFX2') Or (_name = 'Text') Then
+    ConsoleCreate := TEXTFX2Console.Create;
+  If _name = 'CGA' Then
+    ConsoleCreate := CGAConsole.Create;
+  {$ENDIF GO32V2}
+  {$IFDEF WIN32}
+  If _name = 'DirectX' Then
+    ConsoleCreate := TDirectXConsole.Create;
+  {$ENDIF WIN32}
+  {$IFDEF UNIX}
+  If _name = 'X11' Then
+    ConsoleCreate := TX11Console.Create;
+  {$ENDIF UNIX}
+  If ConsoleCreate <> Nil Then
+    ConsoleCreate.KeyReleaseEnabled := KeyReleaseEnabled;
+End;
+
+Procedure TPTCConsole.check;
+
+Begin
+  {$IFDEF DEBUG}
+  If console = Nil Then
+    Raise TPTCError.Create('console is not open (core)');
+  {$ENDIF DEBUG}
+End;
+
+{$WARNING this should be removed for fpc 1.1}
+{pages=0}
+Procedure TPTCConsole.open(Const _title : String);
+
+Begin
+  open(_title, 0);
+End;
+
+Procedure TPTCConsole.open(Const _title : String; Const _format : TPTCFormat);
+
+Begin
+  open(_title, _format, 0);
+End;
+
+Procedure TPTCConsole.open(Const _title : String; _width, _height : Integer;
+                           Const _format : TPTCFormat);
+
+Begin
+  open(_title, _width, _height, _format, 0);
+End;
+
+Procedure TPTCConsole.open(Const _title : String; Const _mode : TPTCMode);
+
+Begin
+  open(_title, _mode, 0);
+End;
+{/pages=0}

packages/extra/ptc/copyd.inc

@@ -0,0 +1,37 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Type
+  TPTCCopy=Class(TObject)
+  Private
+    Procedure update;
+    m_handle : THermesHandle;
+    m_flags : LongInt;
+  Public
+    Constructor Create;
+    Destructor Destroy; Override;
+    Procedure request(Const source, destination : TPTCFormat);
+    Procedure palette(Const source, destination : TPTCPalette);
+    Procedure copy(Const source_pixels : Pointer; source_x, source_y,
+                   source_width, source_height, source_pitch : Integer;
+                   destination_pixels : Pointer; destination_x, destination_y,
+                   destination_width, destination_height, destination_pitch : Integer);
+    Function option(Const _option : String) : Boolean;
+  End;

packages/extra/ptc/copyi.inc

@@ -0,0 +1,131 @@
+{
+    Free Pascal port of the OpenPTC C++ library.
+    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
+    Original C++ version by Glenn Fiedler ([email protected])
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library 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
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser 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
+}
+
+Constructor TPTCCopy.Create;
+
+Begin
+  If Not Hermes_Init Then
+    Raise TPTCError.Create('could not initialize hermes');
+  m_flags := HERMES_CONVERT_NORMAL;
+  m_handle := Hermes_ConverterInstance(m_flags);
+  If m_handle = 0 Then
+    Raise TPTCError.Create('could not create hermes converter instance');
+End;
+
+Destructor TPTCCopy.Destroy;
+
+Begin
+  Hermes_ConverterReturn(m_handle);
+  Hermes_Done;
+  Inherited Destroy;
+End;
+
+Procedure TPTCCopy.request(Const source, destination : TPTCFormat);
+
+Var
+  hermes_source_format, hermes_destination_format : PHermesFormat;
+
+Begin
+  hermes_source_format := @source.Fformat;
+  hermes_destination_format := @destination.Fformat;
+  If Not Hermes_ConverterRequest(m_handle, hermes_source_format,
+     hermes_destination_format) Then
+    Raise TPTCError.Create('unsupported hermes pixel format conversion');
+End;
+
+Procedure TPTCCopy.palette(Const source, destination : TPTCPalette);
+
+Begin
+  If Not Hermes_ConverterPalette(m_handle, source.m_handle,
+	 destination.m_handle) Then
+    Raise TPTCError.Create('could not set hermes conversion palettes');
+End;
+
+Procedure TPTCCopy.copy(Const source_pixels : Pointer; source_x, source_y,
+		   source_width, source_height, source_pitch : Integer;
+		   destination_pixels : Pointer; destination_x, destination_y,
+		   destination_width, destination_height, destination_pitch : Integer);
+
+Var
+  source : Pointer;
+
+Begin
+{$IFDEF DEBUG}
+{
+  This checking is performed only when DEBUG is defined,
+  and can be used to track down errors early caused by passing
+  nil pointers to surface and console functions.
+
+  Even though technicially it is the users responsibility
+  to ensure that all pointers are non-nil, it is useful
+  to provide a check here in debug build to prevent such
+  bugs from ever occuring.
+
+  The checking function also tests that the source and destination
+  pointers are not the same, a bug that can be caused by copying
+  a surface to itself. The nature of the copy routine is that
+  this operation is undefined if the source and destination memory
+  areas overlap.
+}
+  If source_pixels = Nil Then
+    Raise TPTCError.Create('nil source pointer in copy');
+  If destination_pixels = Nil Then
+    Raise TPTCError.Create('nil destination pointer in copy');
+  If source_pixels = destination_pixels Then
+    Raise TPTCError.Create('identical source and destination pointers in copy');
+{$ELSE DEBUG}
+    { in release build no checking is performed for the sake of efficiency. }
+{$ENDIF DEBUG}
+  source := source_pixels;
+  If Not Hermes_ConverterCopy(m_handle, source, source_x, source_y,
+	  source_width, source_height, source_pitch, destination_pixels,
+	  destination_x, destination_y, destination_width, destination_height,
+	  destination_pitch) Then
+    Raise TPTCError.Create('hermes conversion failure');
+End;
+
+Function TPTCCopy.option(Const _option : String) : Boolean;
+
+Begin
+  If (_option = 'attempt dithering') And ((m_flags And HERMES_CONVERT_DITHER) = 0) Then
+  Begin
+    m_flags := m_flags Or HERMES_CONVERT_DITHER;
+    update;
+    option := True;
+    Exit;
+  End;
+  If (_option = 'disable dithering') And ((m_flags And HERMES_CONVERT_DITHER) <> 0) Then
+  Begin
+    m_flags := m_flags And (Not HERMES_CONVERT_DITHER);
+    update;
+    option := True;
+    Exit;
+  End;
+  option := False;
+End;
+
+Procedure TPTCCopy.update;
+
+Begin
+  Hermes_ConverterReturn(m_handle);
+  m_handle := Hermes_ConverterInstance(m_flags);
+  If m_handle = 0 Then
+    Raise TPTCError.Create('could not update hermes converter instance');
+End;

packages/extra/ptc/demos/Makefile

@@ -0,0 +1,2056 @@
+#
+# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/11/26]
+#
+default: all
+MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-wince powerpc64-linux
+BSDs = freebsd netbsd openbsd darwin
+UNIXs = linux $(BSDs) solaris qnx
+LIMIT83fs = go32v2 os2 emx watcom
+FORCE:
+.PHONY: FORCE
+override PATH:=$(patsubst %/,%,$(subst \,/,$(PATH)))
+ifneq ($(findstring darwin,$(OSTYPE)),)
+inUnix=1 #darwin
+SEARCHPATH:=$(filter-out .,$(subst :, ,$(PATH)))
+else
+ifeq ($(findstring ;,$(PATH)),)
+inUnix=1
+SEARCHPATH:=$(filter-out .,$(subst :, ,$(PATH)))
+else
+SEARCHPATH:=$(subst ;, ,$(PATH))
+endif
+endif
+SEARCHPATH+=$(patsubst %/,%,$(subst \,/,$(dir $(MAKE))))
+PWD:=$(strip $(wildcard $(addsuffix /pwd.exe,$(SEARCHPATH))))
+ifeq ($(PWD),)
+PWD:=$(strip $(wildcard $(addsuffix /pwd,$(SEARCHPATH))))
+ifeq ($(PWD),)
+$(error You need the GNU utils package to use this Makefile)
+else
+PWD:=$(firstword $(PWD))
+SRCEXEEXT=
+endif
+else
+PWD:=$(firstword $(PWD))
+SRCEXEEXT=.exe
+endif
+ifndef inUnix
+ifeq ($(OS),Windows_NT)
+inWinNT=1
+else
+ifdef OS2_SHELL
+inOS2=1
+endif
+endif
+else
+ifneq ($(findstring cygdrive,$(PATH)),)
+inCygWin=1
+endif
+endif
+ifdef inUnix
+SRCBATCHEXT=.sh
+else
+ifdef inOS2
+SRCBATCHEXT=.cmd
+else
+SRCBATCHEXT=.bat
+endif
+endif
+ifdef inUnix
+PATHSEP=/
+else
+PATHSEP:=$(subst /,\,/)
+ifdef inCygWin
+PATHSEP=/
+endif
+endif
+ifdef PWD
+BASEDIR:=$(subst \,/,$(shell $(PWD)))
+ifdef inCygWin
+ifneq ($(findstring /cygdrive/,$(BASEDIR)),)
+BASENODIR:=$(patsubst /cygdrive%,%,$(BASEDIR))
+BASEDRIVE:=$(firstword $(subst /, ,$(BASENODIR)))
+BASEDIR:=$(subst /cygdrive/$(BASEDRIVE)/,$(BASEDRIVE):/,$(BASEDIR))
+endif
+endif
+else
+BASEDIR=.
+endif
+ifdef inOS2
+ifndef ECHO
+ECHO:=$(strip $(wildcard $(addsuffix /gecho$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO=echo
+else
+ECHO:=$(firstword $(ECHO))
+endif
+else
+ECHO:=$(firstword $(ECHO))
+endif
+endif
+export ECHO
+endif
+override DEFAULT_FPCDIR=../../../..
+ifndef FPC
+ifdef PP
+FPC=$(PP)
+endif
+endif
+ifndef FPC
+FPCPROG:=$(strip $(wildcard $(addsuffix /fpc$(SRCEXEEXT),$(SEARCHPATH))))
+ifneq ($(FPCPROG),)
+FPCPROG:=$(firstword $(FPCPROG))
+FPC:=$(shell $(FPCPROG) -PB)
+ifneq ($(findstring Error,$(FPC)),)
+override FPC=$(firstword $(strip $(wildcard $(addsuffix /ppc386$(SRCEXEEXT),$(SEARCHPATH)))))
+endif
+else
+override FPC=$(firstword $(strip $(wildcard $(addsuffix /ppc386$(SRCEXEEXT),$(SEARCHPATH)))))
+endif
+endif
+override FPC:=$(subst $(SRCEXEEXT),,$(FPC))
+override FPC:=$(subst \,/,$(FPC))$(SRCEXEEXT)
+FOUNDFPC:=$(strip $(wildcard $(FPC)))
+ifeq ($(FOUNDFPC),)
+FOUNDFPC=$(strip $(wildcard $(addsuffix /$(FPC),$(SEARCHPATH))))
+ifeq ($(FOUNDFPC),)
+$(error Compiler $(FPC) not found)
+endif
+endif
+ifndef FPC_COMPILERINFO
+FPC_COMPILERINFO:=$(shell $(FPC) -iVSPTPSOTO)
+endif
+ifndef FPC_VERSION
+FPC_VERSION:=$(word 1,$(FPC_COMPILERINFO))
+endif
+export FPC FPC_VERSION FPC_COMPILERINFO
+unexport CHECKDEPEND ALLDEPENDENCIES
+ifndef CPU_TARGET
+ifdef CPU_TARGET_DEFAULT
+CPU_TARGET=$(CPU_TARGET_DEFAULT)
+endif
+endif
+ifndef OS_TARGET
+ifdef OS_TARGET_DEFAULT
+OS_TARGET=$(OS_TARGET_DEFAULT)
+endif
+endif
+ifneq ($(words $(FPC_COMPILERINFO)),5)
+FPC_COMPILERINFO+=$(shell $(FPC) -iSP)
+FPC_COMPILERINFO+=$(shell $(FPC) -iTP)
+FPC_COMPILERINFO+=$(shell $(FPC) -iSO)
+FPC_COMPILERINFO+=$(shell $(FPC) -iTO)
+endif
+ifndef CPU_SOURCE
+CPU_SOURCE:=$(word 2,$(FPC_COMPILERINFO))
+endif
+ifndef CPU_TARGET
+CPU_TARGET:=$(word 3,$(FPC_COMPILERINFO))
+endif
+ifndef OS_SOURCE
+OS_SOURCE:=$(word 4,$(FPC_COMPILERINFO))
+endif
+ifndef OS_TARGET
+OS_TARGET:=$(word 5,$(FPC_COMPILERINFO))
+endif
+FULL_TARGET=$(CPU_TARGET)-$(OS_TARGET)
+FULL_SOURCE=$(CPU_SOURCE)-$(OS_SOURCE)
+ifneq ($(findstring $(OS_SOURCE),$(LIMIT83fs)),)
+TARGETSUFFIX=$(OS_TARGET)
+SOURCESUFFIX=$(OS_SOURCE)
+else
+TARGETSUFFIX=$(FULL_TARGET)
+SOURCESUFFIX=$(FULL_SOURCE)
+endif
+ifneq ($(FULL_TARGET),$(FULL_SOURCE))
+CROSSCOMPILE=1
+endif
+ifeq ($(findstring makefile,$(MAKECMDGOALS)),)
+ifeq ($(findstring $(FULL_TARGET),$(MAKEFILETARGETS)),)
+$(error The Makefile doesn't support target $(FULL_TARGET), please run fpcmake first)
+endif
+endif
+ifneq ($(findstring $(OS_TARGET),$(BSDs)),)
+BSDhier=1
+endif
+ifeq ($(OS_TARGET),linux)
+linuxHier=1
+endif
+export OS_TARGET OS_SOURCE CPU_TARGET CPU_SOURCE FULL_TARGET FULL_SOURCE TARGETSUFFIX SOURCESUFFIX CROSSCOMPILE
+ifdef FPCDIR
+override FPCDIR:=$(subst \,/,$(FPCDIR))
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR=wrong
+endif
+else
+override FPCDIR=wrong
+endif
+ifdef DEFAULT_FPCDIR
+ifeq ($(FPCDIR),wrong)
+override FPCDIR:=$(subst \,/,$(DEFAULT_FPCDIR))
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR=wrong
+endif
+endif
+endif
+ifeq ($(FPCDIR),wrong)
+ifdef inUnix
+override FPCDIR=/usr/local/lib/fpc/$(FPC_VERSION)
+ifeq ($(wildcard $(FPCDIR)/units),)
+override FPCDIR=/usr/lib/fpc/$(FPC_VERSION)
+endif
+else
+override FPCDIR:=$(subst /$(FPC),,$(firstword $(strip $(wildcard $(addsuffix /$(FPC),$(SEARCHPATH))))))
+override FPCDIR:=$(FPCDIR)/..
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR:=$(FPCDIR)/..
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR:=$(BASEDIR)
+ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),)
+override FPCDIR=c:/pp
+endif
+endif
+endif
+endif
+endif
+ifndef CROSSBINDIR
+CROSSBINDIR:=$(wildcard $(FPCDIR)/bin/$(TARGETSUFFIX))
+endif
+ifndef BINUTILSPREFIX
+ifndef CROSSBINDIR
+ifdef CROSSCOMPILE
+BINUTILSPREFIX=$(CPU_TARGET)-$(OS_TARGET)-
+endif
+endif
+endif
+UNITSDIR:=$(wildcard $(FPCDIR)/units/$(TARGETSUFFIX))
+ifeq ($(UNITSDIR),)
+UNITSDIR:=$(wildcard $(FPCDIR)/units/$(OS_TARGET))
+endif
+PACKAGESDIR:=$(wildcard $(FPCDIR) $(FPCDIR)/packages/base $(FPCDIR)/packages/extra)
+override PACKAGE_NAME=ptc-demos
+override PACKAGE_VERSION=0.99.5
+ifeq ($(FULL_TARGET),i386-linux)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override TARGET_PROGRAMS+=fire flower land lights mojo texwarp tunnel tunnel3d
+endif
+ifeq ($(FULL_TARGET),i386-linux)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override COMPILER_UNITDIR+=../$(UNITTARGETDIRPREFIX)
+endif
+ifdef REQUIRE_UNITSDIR
+override UNITSDIR+=$(REQUIRE_UNITSDIR)
+endif
+ifdef REQUIRE_PACKAGESDIR
+override PACKAGESDIR+=$(REQUIRE_PACKAGESDIR)
+endif
+ifdef ZIPINSTALL
+ifneq ($(findstring $(OS_TARGET),$(UNIXs)),)
+UNIXHier=1
+endif
+else
+ifneq ($(findstring $(OS_SOURCE),$(UNIXs)),)
+UNIXHier=1
+endif
+endif
+ifndef INSTALL_PREFIX
+ifdef PREFIX
+INSTALL_PREFIX=$(PREFIX)
+endif
+endif
+ifndef INSTALL_PREFIX
+ifdef UNIXHier
+INSTALL_PREFIX=/usr/local
+else
+ifdef INSTALL_FPCPACKAGE
+INSTALL_BASEDIR:=/pp
+else
+INSTALL_BASEDIR:=/$(PACKAGE_NAME)
+endif
+endif
+endif
+export INSTALL_PREFIX
+ifdef INSTALL_FPCSUBDIR
+export INSTALL_FPCSUBDIR
+endif
+ifndef DIST_DESTDIR
+DIST_DESTDIR:=$(BASEDIR)
+endif
+export DIST_DESTDIR
+ifndef COMPILER_UNITTARGETDIR
+ifdef PACKAGEDIR_MAIN
+COMPILER_UNITTARGETDIR=$(PACKAGEDIR_MAIN)/units/$(TARGETSUFFIX)
+else
+COMPILER_UNITTARGETDIR=units/$(TARGETSUFFIX)
+endif
+endif
+ifndef COMPILER_TARGETDIR
+COMPILER_TARGETDIR=.
+endif
+ifndef INSTALL_BASEDIR
+ifdef UNIXHier
+ifdef INSTALL_FPCPACKAGE
+INSTALL_BASEDIR:=$(INSTALL_PREFIX)/lib/fpc/$(FPC_VERSION)
+else
+INSTALL_BASEDIR:=$(INSTALL_PREFIX)/lib/$(PACKAGE_NAME)
+endif
+else
+INSTALL_BASEDIR:=$(INSTALL_PREFIX)
+endif
+endif
+ifndef INSTALL_BINDIR
+ifdef UNIXHier
+INSTALL_BINDIR:=$(INSTALL_PREFIX)/bin
+else
+INSTALL_BINDIR:=$(INSTALL_BASEDIR)/bin
+ifdef INSTALL_FPCPACKAGE
+ifdef CROSSCOMPILE
+ifdef CROSSINSTALL
+INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(SOURCESUFFIX)
+else
+INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(TARGETSUFFIX)
+endif
+else
+INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(TARGETSUFFIX)
+endif
+endif
+endif
+endif
+ifndef INSTALL_UNITDIR
+INSTALL_UNITDIR:=$(INSTALL_BASEDIR)/units/$(TARGETSUFFIX)
+ifdef INSTALL_FPCPACKAGE
+ifdef PACKAGE_NAME
+INSTALL_UNITDIR:=$(INSTALL_UNITDIR)/$(PACKAGE_NAME)
+endif
+endif
+endif
+ifndef INSTALL_LIBDIR
+ifdef UNIXHier
+INSTALL_LIBDIR:=$(INSTALL_PREFIX)/lib
+else
+INSTALL_LIBDIR:=$(INSTALL_UNITDIR)
+endif
+endif
+ifndef INSTALL_SOURCEDIR
+ifdef UNIXHier
+ifdef BSDhier
+SRCPREFIXDIR=share/src
+else
+ifdef linuxHier
+SRCPREFIXDIR=share/src
+else
+SRCPREFIXDIR=src
+endif
+endif
+ifdef INSTALL_FPCPACKAGE
+ifdef INSTALL_FPCSUBDIR
+INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/fpc-$(FPC_VERSION)/$(INSTALL_FPCSUBDIR)/$(PACKAGE_NAME)
+else
+INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/fpc-$(FPC_VERSION)/$(PACKAGE_NAME)
+endif
+else
+INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+endif
+else
+ifdef INSTALL_FPCPACKAGE
+ifdef INSTALL_FPCSUBDIR
+INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source/$(INSTALL_FPCSUBDIR)/$(PACKAGE_NAME)
+else
+INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source/$(PACKAGE_NAME)
+endif
+else
+INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source
+endif
+endif
+endif
+ifndef INSTALL_DOCDIR
+ifdef UNIXHier
+ifdef BSDhier
+DOCPREFIXDIR=share/doc
+else
+ifdef linuxHier
+DOCPREFIXDIR=share/doc
+else
+DOCPREFIXDIR=doc
+endif
+endif
+ifdef INSTALL_FPCPACKAGE
+INSTALL_DOCDIR:=$(INSTALL_PREFIX)/$(DOCPREFIXDIR)/fpc-$(FPC_VERSION)/$(PACKAGE_NAME)
+else
+INSTALL_DOCDIR:=$(INSTALL_PREFIX)/$(DOCPREFIXDIR)/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+endif
+else
+ifdef INSTALL_FPCPACKAGE
+INSTALL_DOCDIR:=$(INSTALL_BASEDIR)/doc/$(PACKAGE_NAME)
+else
+INSTALL_DOCDIR:=$(INSTALL_BASEDIR)/doc
+endif
+endif
+endif
+ifndef INSTALL_EXAMPLEDIR
+ifdef UNIXHier
+ifdef INSTALL_FPCPACKAGE
+ifdef BSDhier
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/share/examples/fpc-$(FPC_VERSION)/$(PACKAGE_NAME)
+else
+ifdef linuxHier
+INSTALL_EXAMPLEDIR:=$(INSTALL_DOCDIR)/examples
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/doc/fpc-$(FPC_VERSION)/examples/$(PACKAGE_NAME)
+endif
+endif
+else
+ifdef BSDhier
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/share/examples/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+else
+ifdef linuxHier
+INSTALL_EXAMPLEDIR:=$(INSTALL_DOCDIR)/examples/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/doc/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+endif
+endif
+endif
+else
+ifdef INSTALL_FPCPACKAGE
+INSTALL_EXAMPLEDIR:=$(INSTALL_BASEDIR)/examples/$(PACKAGE_NAME)
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_BASEDIR)/examples
+endif
+endif
+endif
+ifndef INSTALL_DATADIR
+INSTALL_DATADIR=$(INSTALL_BASEDIR)
+endif
+ifdef CROSSCOMPILE
+ifndef CROSSBINDIR
+CROSSBINDIR:=$(wildcard $(CROSSTARGETDIR)/bin/$(SOURCESUFFIX))
+ifeq ($(CROSSBINDIR),)
+CROSSBINDIR:=$(wildcard $(INSTALL_BASEDIR)/cross/$(TARGETSUFFIX)/bin/$(FULL_SOURCE))
+endif
+endif
+else
+CROSSBINDIR=
+endif
+ifeq ($(OS_SOURCE),linux)
+ifndef GCCLIBDIR
+ifeq ($(CPU_TARGET),i386)
+ifneq ($(findstring x86_64,$(shell uname -a)),)
+ifeq ($(BINUTILSPREFIX),)
+GCCLIBDIR:=$(shell dirname `gcc -m32 -print-libgcc-file-name`)
+endif
+endif
+endif
+endif
+ifndef GCCLIBDIR
+CROSSGCC=$(strip $(wildcard $(addsuffix /$(BINUTILSPREFIX)gcc$(SRCEXEEXT),$(SEARCHPATH))))
+ifneq ($(CROSSGCC),)
+GCCLIBDIR:=$(shell dirname `$(CROSSGCC) -print-libgcc-file-name`)
+endif
+endif
+ifndef OTHERLIBDIR
+OTHERLIBDIR:=$(shell grep -v "^\#" /etc/ld.so.conf | awk '{ ORS=" "; print $1 }')
+endif
+endif
+ifdef inUnix
+ifeq ($(OS_SOURCE),netbsd)
+OTHERLIBDIR+=/usr/pkg/lib
+endif
+export GCCLIBDIR OTHERLIB
+endif
+BATCHEXT=.bat
+LOADEREXT=.as
+EXEEXT=.exe
+PPLEXT=.ppl
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.so
+STATICLIBPREFIX=libp
+RSTEXT=.rst
+ifeq ($(findstring 1.0.,$(FPC_VERSION)),)
+ifeq ($(OS_TARGET),go32v1)
+STATICLIBPREFIX=
+SHORTSUFFIX=v1
+endif
+ifeq ($(OS_TARGET),go32v2)
+STATICLIBPREFIX=
+SHORTSUFFIX=dos
+endif
+ifeq ($(OS_TARGET),watcom)
+STATICLIBPREFIX=
+OEXT=.obj
+ASMEXT=.asm
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=wat
+endif
+ifeq ($(OS_TARGET),linux)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=lnx
+endif
+ifeq ($(OS_TARGET),freebsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=fbs
+endif
+ifeq ($(OS_TARGET),netbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=nbs
+endif
+ifeq ($(OS_TARGET),openbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=obs
+endif
+ifeq ($(OS_TARGET),win32)
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=w32
+endif
+ifeq ($(OS_TARGET),os2)
+BATCHEXT=.cmd
+AOUTEXT=.out
+STATICLIBPREFIX=
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=os2
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),emx)
+BATCHEXT=.cmd
+AOUTEXT=.out
+STATICLIBPREFIX=
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=emx
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),amiga)
+EXEEXT=
+SHAREDLIBEXT=.library
+SHORTSUFFIX=amg
+endif
+ifeq ($(OS_TARGET),morphos)
+EXEEXT=
+SHAREDLIBEXT=.library
+SHORTSUFFIX=mos
+endif
+ifeq ($(OS_TARGET),atari)
+EXEEXT=.ttp
+SHORTSUFFIX=ata
+endif
+ifeq ($(OS_TARGET),beos)
+BATCHEXT=.sh
+EXEEXT=
+SHORTSUFFIX=be
+endif
+ifeq ($(OS_TARGET),solaris)
+BATCHEXT=.sh
+EXEEXT=
+SHORTSUFFIX=sun
+endif
+ifeq ($(OS_TARGET),qnx)
+BATCHEXT=.sh
+EXEEXT=
+SHORTSUFFIX=qnx
+endif
+ifeq ($(OS_TARGET),netware)
+EXEEXT=.nlm
+STATICLIBPREFIX=
+SHORTSUFFIX=nw
+endif
+ifeq ($(OS_TARGET),netwlibc)
+EXEEXT=.nlm
+STATICLIBPREFIX=
+SHORTSUFFIX=nwl
+endif
+ifeq ($(OS_TARGET),macos)
+BATCHEXT=
+EXEEXT=
+DEBUGSYMEXT=.xcoff
+SHORTSUFFIX=mac
+endif
+ifeq ($(OS_TARGET),darwin)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=dwn
+endif
+else
+ifeq ($(OS_TARGET),go32v1)
+PPUEXT=.pp1
+OEXT=.o1
+ASMEXT=.s1
+SMARTEXT=.sl1
+STATICLIBEXT=.a1
+SHAREDLIBEXT=.so1
+STATICLIBPREFIX=
+SHORTSUFFIX=v1
+endif
+ifeq ($(OS_TARGET),go32v2)
+STATICLIBPREFIX=
+SHORTSUFFIX=dos
+endif
+ifeq ($(OS_TARGET),watcom)
+STATICLIBPREFIX=
+SHORTSUFFIX=wat
+endif
+ifeq ($(OS_TARGET),linux)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=lnx
+endif
+ifeq ($(OS_TARGET),freebsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=fbs
+endif
+ifeq ($(OS_TARGET),netbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=nbs
+endif
+ifeq ($(OS_TARGET),openbsd)
+BATCHEXT=.sh
+EXEEXT=
+HASSHAREDLIB=1
+SHORTSUFFIX=obs
+endif
+ifeq ($(OS_TARGET),win32)
+PPUEXT=.ppw
+OEXT=.ow
+ASMEXT=.sw
+SMARTEXT=.slw
+STATICLIBEXT=.aw
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=w32
+endif
+ifeq ($(OS_TARGET),os2)
+BATCHEXT=.cmd
+PPUEXT=.ppo
+ASMEXT=.so2
+OEXT=.oo2
+AOUTEXT=.out
+SMARTEXT=.sl2
+STATICLIBPREFIX=
+STATICLIBEXT=.ao2
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=os2
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),amiga)
+EXEEXT=
+PPUEXT=.ppu
+ASMEXT=.asm
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.library
+SHORTSUFFIX=amg
+endif
+ifeq ($(OS_TARGET),atari)
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=.ttp
+SHORTSUFFIX=ata
+endif
+ifeq ($(OS_TARGET),beos)
+BATCHEXT=.sh
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+SHORTSUFFIX=be
+endif
+ifeq ($(OS_TARGET),solaris)
+BATCHEXT=.sh
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+SHORTSUFFIX=sun
+endif
+ifeq ($(OS_TARGET),qnx)
+BATCHEXT=.sh
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+SHORTSUFFIX=qnx
+endif
+ifeq ($(OS_TARGET),netware)
+STATICLIBPREFIX=
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.nlm
+EXEEXT=.nlm
+SHORTSUFFIX=nw
+endif
+ifeq ($(OS_TARGET),netwlibc)
+STATICLIBPREFIX=
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.nlm
+EXEEXT=.nlm
+SHORTSUFFIX=nwl
+endif
+ifeq ($(OS_TARGET),macos)
+BATCHEXT=
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+DEBUGSYMEXT=.xcoff
+SHORTSUFFIX=mac
+endif
+endif
+ifneq ($(findstring $(OS_SOURCE),$(LIMIT83fs)),)
+FPCMADE=fpcmade.$(SHORTSUFFIX)
+ZIPSUFFIX=$(SHORTSUFFIX)
+ZIPCROSSPREFIX=
+ZIPSOURCESUFFIX=src
+ZIPEXAMPLESUFFIX=exm
+else
+FPCMADE=fpcmade.$(TARGETSUFFIX)
+ZIPSOURCESUFFIX=.source
+ZIPEXAMPLESUFFIX=.examples
+ifdef CROSSCOMPILE
+ZIPSUFFIX=.$(SOURCESUFFIX)
+ZIPCROSSPREFIX=$(TARGETSUFFIX)-
+else
+ZIPSUFFIX=.$(TARGETSUFFIX)
+ZIPCROSSPREFIX=
+endif
+endif
+ifndef ECHO
+ECHO:=$(strip $(wildcard $(addsuffix /gecho$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO= __missing_command_ECHO
+else
+ECHO:=$(firstword $(ECHO))
+endif
+else
+ECHO:=$(firstword $(ECHO))
+endif
+endif
+export ECHO
+ifndef DATE
+DATE:=$(strip $(wildcard $(addsuffix /gdate$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(DATE),)
+DATE:=$(strip $(wildcard $(addsuffix /date$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(DATE),)
+DATE= __missing_command_DATE
+else
+DATE:=$(firstword $(DATE))
+endif
+else
+DATE:=$(firstword $(DATE))
+endif
+endif
+export DATE
+ifndef GINSTALL
+GINSTALL:=$(strip $(wildcard $(addsuffix /ginstall$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(GINSTALL),)
+GINSTALL:=$(strip $(wildcard $(addsuffix /install$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(GINSTALL),)
+GINSTALL= __missing_command_GINSTALL
+else
+GINSTALL:=$(firstword $(GINSTALL))
+endif
+else
+GINSTALL:=$(firstword $(GINSTALL))
+endif
+endif
+export GINSTALL
+ifndef CPPROG
+CPPROG:=$(strip $(wildcard $(addsuffix /cp$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(CPPROG),)
+CPPROG= __missing_command_CPPROG
+else
+CPPROG:=$(firstword $(CPPROG))
+endif
+endif
+export CPPROG
+ifndef RMPROG
+RMPROG:=$(strip $(wildcard $(addsuffix /rm$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(RMPROG),)
+RMPROG= __missing_command_RMPROG
+else
+RMPROG:=$(firstword $(RMPROG))
+endif
+endif
+export RMPROG
+ifndef MVPROG
+MVPROG:=$(strip $(wildcard $(addsuffix /mv$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(MVPROG),)
+MVPROG= __missing_command_MVPROG
+else
+MVPROG:=$(firstword $(MVPROG))
+endif
+endif
+export MVPROG
+ifndef MKDIRPROG
+MKDIRPROG:=$(strip $(wildcard $(addsuffix /gmkdir$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(MKDIRPROG),)
+MKDIRPROG:=$(strip $(wildcard $(addsuffix /mkdir$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(MKDIRPROG),)
+MKDIRPROG= __missing_command_MKDIRPROG
+else
+MKDIRPROG:=$(firstword $(MKDIRPROG))
+endif
+else
+MKDIRPROG:=$(firstword $(MKDIRPROG))
+endif
+endif
+export MKDIRPROG
+ifndef ECHOREDIR
+ifndef inUnix
+ECHOREDIR=echo
+else
+ECHOREDIR=$(ECHO)
+endif
+endif
+ifndef COPY
+COPY:=$(CPPROG) -fp
+endif
+ifndef COPYTREE
+COPYTREE:=$(CPPROG) -Rfp
+endif
+ifndef MKDIRTREE
+MKDIRTREE:=$(MKDIRPROG) -p
+endif
+ifndef MOVE
+MOVE:=$(MVPROG) -f
+endif
+ifndef DEL
+DEL:=$(RMPROG) -f
+endif
+ifndef DELTREE
+DELTREE:=$(RMPROG) -rf
+endif
+ifndef INSTALL
+ifdef inUnix
+INSTALL:=$(GINSTALL) -c -m 644
+else
+INSTALL:=$(COPY)
+endif
+endif
+ifndef INSTALLEXE
+ifdef inUnix
+INSTALLEXE:=$(GINSTALL) -c -m 755
+else
+INSTALLEXE:=$(COPY)
+endif
+endif
+ifndef MKDIR
+MKDIR:=$(GINSTALL) -m 755 -d
+endif
+export ECHOREDIR COPY COPYTREE MOVE DEL DELTREE INSTALL INSTALLEXE MKDIR
+ifndef PPUMOVE
+PPUMOVE:=$(strip $(wildcard $(addsuffix /ppumove$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(PPUMOVE),)
+PPUMOVE= __missing_command_PPUMOVE
+else
+PPUMOVE:=$(firstword $(PPUMOVE))
+endif
+endif
+export PPUMOVE
+ifndef FPCMAKE
+FPCMAKE:=$(strip $(wildcard $(addsuffix /fpcmake$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(FPCMAKE),)
+FPCMAKE= __missing_command_FPCMAKE
+else
+FPCMAKE:=$(firstword $(FPCMAKE))
+endif
+endif
+export FPCMAKE
+ifndef ZIPPROG
+ZIPPROG:=$(strip $(wildcard $(addsuffix /zip$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ZIPPROG),)
+ZIPPROG= __missing_command_ZIPPROG
+else
+ZIPPROG:=$(firstword $(ZIPPROG))
+endif
+endif
+export ZIPPROG
+ifndef TARPROG
+TARPROG:=$(strip $(wildcard $(addsuffix /tar$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(TARPROG),)
+TARPROG= __missing_command_TARPROG
+else
+TARPROG:=$(firstword $(TARPROG))
+endif
+endif
+export TARPROG
+ASNAME=$(BINUTILSPREFIX)as
+LDNAME=$(BINUTILSPREFIX)ld
+ARNAME=$(BINUTILSPREFIX)ar
+RCNAME=$(BINUTILSPREFIX)rc
+ifneq ($(findstring 1.0.,$(FPC_VERSION)),)
+ifeq ($(OS_TARGET),win32)
+ifeq ($(CROSSBINDIR),)
+ASNAME=asw
+LDNAME=ldw
+ARNAME=arw
+endif
+endif
+endif
+ifndef ASPROG
+ifdef CROSSBINDIR
+ASPROG=$(CROSSBINDIR)/$(ASNAME)$(SRCEXEEXT)
+else
+ASPROG=$(ASNAME)
+endif
+endif
+ifndef LDPROG
+ifdef CROSSBINDIR
+LDPROG=$(CROSSBINDIR)/$(LDNAME)$(SRCEXEEXT)
+else
+LDPROG=$(LDNAME)
+endif
+endif
+ifndef RCPROG
+ifdef CROSSBINDIR
+RCPROG=$(CROSSBINDIR)/$(RCNAME)$(SRCEXEEXT)
+else
+RCPROG=$(RCNAME)
+endif
+endif
+ifndef ARPROG
+ifdef CROSSBINDIR
+ARPROG=$(CROSSBINDIR)/$(ARNAME)$(SRCEXEEXT)
+else
+ARPROG=$(ARNAME)
+endif
+endif
+AS=$(ASPROG)
+LD=$(LDPROG)
+RC=$(RCPROG)
+AR=$(ARPROG)
+PPAS=ppas$(SRCBATCHEXT)
+ifdef inUnix
+LDCONFIG=ldconfig
+else
+LDCONFIG=
+endif
+ifdef DATE
+DATESTR:=$(shell $(DATE) +%Y%m%d)
+else
+DATESTR=
+endif
+ifndef UPXPROG
+ifeq ($(OS_TARGET),go32v2)
+UPXPROG:=1
+endif
+ifeq ($(OS_TARGET),win32)
+UPXPROG:=1
+endif
+ifdef UPXPROG
+UPXPROG:=$(strip $(wildcard $(addsuffix /upx$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(UPXPROG),)
+UPXPROG=
+else
+UPXPROG:=$(firstword $(UPXPROG))
+endif
+else
+UPXPROG=
+endif
+endif
+export UPXPROG
+ZIPOPT=-9
+ZIPEXT=.zip
+ifeq ($(USETAR),bz2)
+TAROPT=vj
+TAREXT=.tar.bz2
+else
+TAROPT=vz
+TAREXT=.tar.gz
+endif
+override REQUIRE_PACKAGES=rtl hermes ptc
+ifeq ($(FULL_TARGET),i386-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+REQUIRE_PACKAGES_RTL=1
+REQUIRE_PACKAGES_HERMES=1
+REQUIRE_PACKAGES_X11=1
+REQUIRE_PACKAGES_PTC=1
+endif
+ifdef REQUIRE_PACKAGES_RTL
+PACKAGEDIR_RTL:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /rtl/Makefile.fpc,$(PACKAGESDIR))))))
+ifneq ($(PACKAGEDIR_RTL),)
+ifneq ($(wildcard $(PACKAGEDIR_RTL)/units/$(TARGETSUFFIX)),)
+UNITDIR_RTL=$(PACKAGEDIR_RTL)/units/$(TARGETSUFFIX)
+else
+UNITDIR_RTL=$(PACKAGEDIR_RTL)
+endif
+ifdef CHECKDEPEND
+$(PACKAGEDIR_RTL)/$(FPCMADE):
+	$(MAKE) -C $(PACKAGEDIR_RTL) $(FPCMADE)
+override ALLDEPENDENCIES+=$(PACKAGEDIR_RTL)/$(FPCMADE)
+endif
+else
+PACKAGEDIR_RTL=
+UNITDIR_RTL:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /rtl/Package.fpc,$(UNITSDIR)))))
+ifneq ($(UNITDIR_RTL),)
+UNITDIR_RTL:=$(firstword $(UNITDIR_RTL))
+else
+UNITDIR_RTL=
+endif
+endif
+ifdef UNITDIR_RTL
+override COMPILER_UNITDIR+=$(UNITDIR_RTL)
+endif
+endif
+ifdef REQUIRE_PACKAGES_HERMES
+PACKAGEDIR_HERMES:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /hermes/Makefile.fpc,$(PACKAGESDIR))))))
+ifneq ($(PACKAGEDIR_HERMES),)
+ifneq ($(wildcard $(PACKAGEDIR_HERMES)/units/$(TARGETSUFFIX)),)
+UNITDIR_HERMES=$(PACKAGEDIR_HERMES)/units/$(TARGETSUFFIX)
+else
+UNITDIR_HERMES=$(PACKAGEDIR_HERMES)
+endif
+ifdef CHECKDEPEND
+$(PACKAGEDIR_HERMES)/$(FPCMADE):
+	$(MAKE) -C $(PACKAGEDIR_HERMES) $(FPCMADE)
+override ALLDEPENDENCIES+=$(PACKAGEDIR_HERMES)/$(FPCMADE)
+endif
+else
+PACKAGEDIR_HERMES=
+UNITDIR_HERMES:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /hermes/Package.fpc,$(UNITSDIR)))))
+ifneq ($(UNITDIR_HERMES),)
+UNITDIR_HERMES:=$(firstword $(UNITDIR_HERMES))
+else
+UNITDIR_HERMES=
+endif
+endif
+ifdef UNITDIR_HERMES
+override COMPILER_UNITDIR+=$(UNITDIR_HERMES)
+endif
+endif
+ifdef REQUIRE_PACKAGES_X11
+PACKAGEDIR_X11:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /x11/Makefile.fpc,$(PACKAGESDIR))))))
+ifneq ($(PACKAGEDIR_X11),)
+ifneq ($(wildcard $(PACKAGEDIR_X11)/units/$(TARGETSUFFIX)),)
+UNITDIR_X11=$(PACKAGEDIR_X11)/units/$(TARGETSUFFIX)
+else
+UNITDIR_X11=$(PACKAGEDIR_X11)
+endif
+ifdef CHECKDEPEND
+$(PACKAGEDIR_X11)/$(FPCMADE):
+	$(MAKE) -C $(PACKAGEDIR_X11) $(FPCMADE)
+override ALLDEPENDENCIES+=$(PACKAGEDIR_X11)/$(FPCMADE)
+endif
+else
+PACKAGEDIR_X11=
+UNITDIR_X11:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /x11/Package.fpc,$(UNITSDIR)))))
+ifneq ($(UNITDIR_X11),)
+UNITDIR_X11:=$(firstword $(UNITDIR_X11))
+else
+UNITDIR_X11=
+endif
+endif
+ifdef UNITDIR_X11
+override COMPILER_UNITDIR+=$(UNITDIR_X11)
+endif
+endif
+ifdef REQUIRE_PACKAGES_PTC
+PACKAGEDIR_PTC:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /ptc/Makefile.fpc,$(PACKAGESDIR))))))
+ifneq ($(PACKAGEDIR_PTC),)
+ifneq ($(wildcard $(PACKAGEDIR_PTC)/units/$(TARGETSUFFIX)),)
+UNITDIR_PTC=$(PACKAGEDIR_PTC)/units/$(TARGETSUFFIX)
+else
+UNITDIR_PTC=$(PACKAGEDIR_PTC)
+endif
+ifdef CHECKDEPEND
+$(PACKAGEDIR_PTC)/$(FPCMADE):
+	$(MAKE) -C $(PACKAGEDIR_PTC) $(FPCMADE)
+override ALLDEPENDENCIES+=$(PACKAGEDIR_PTC)/$(FPCMADE)
+endif
+else
+PACKAGEDIR_PTC=
+UNITDIR_PTC:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /ptc/Package.fpc,$(UNITSDIR)))))
+ifneq ($(UNITDIR_PTC),)
+UNITDIR_PTC:=$(firstword $(UNITDIR_PTC))
+else
+UNITDIR_PTC=
+endif
+endif
+ifdef UNITDIR_PTC
+override COMPILER_UNITDIR+=$(UNITDIR_PTC)
+endif
+endif
+ifndef NOCPUDEF
+override FPCOPTDEF=$(CPU_TARGET)
+endif
+ifneq ($(OS_TARGET),$(OS_SOURCE))
+override FPCOPT+=-T$(OS_TARGET)
+endif
+ifeq ($(OS_SOURCE),openbsd)
+override FPCOPT+=-FD$(NEW_BINUTILS_PATH)
+endif
+ifndef CROSSBOOTSTRAP
+ifneq ($(BINUTILSPREFIX),)
+override FPCOPT+=-XP$(BINUTILSPREFIX) -Xc
+endif
+ifneq ($(BINUTILSPREFIX),)
+override FPCOPT+=-Xr$(RLINKPATH)
+endif
+endif
+ifdef UNITDIR
+override FPCOPT+=$(addprefix -Fu,$(UNITDIR))
+endif
+ifdef LIBDIR
+override FPCOPT+=$(addprefix -Fl,$(LIBDIR))
+endif
+ifdef OBJDIR
+override FPCOPT+=$(addprefix -Fo,$(OBJDIR))
+endif
+ifdef INCDIR
+override FPCOPT+=$(addprefix -Fi,$(INCDIR))
+endif
+ifdef LINKSMART
+override FPCOPT+=-XX
+endif
+ifdef CREATESMART
+override FPCOPT+=-CX
+endif
+ifdef DEBUG
+override FPCOPT+=-gl
+override FPCOPTDEF+=DEBUG
+endif
+ifdef RELEASE
+ifeq ($(CPU_TARGET),i386)
+FPCCPUOPT:=-OG2p3
+else
+ifeq ($(CPU_TARGET),powerpc)
+FPCCPUOPT:=-O1r
+else
+FPCCPUOPT:=
+endif
+endif
+override FPCOPT+=-Ur -Xs $(FPCCPUOPT) -n
+override FPCOPTDEF+=RELEASE
+endif
+ifdef STRIP
+override FPCOPT+=-Xs
+endif
+ifdef OPTIMIZE
+ifeq ($(CPU_TARGET),i386)
+override FPCOPT+=-OG2p3
+endif
+endif
+ifdef VERBOSE
+override FPCOPT+=-vwni
+endif
+ifdef COMPILER_OPTIONS
+override FPCOPT+=$(COMPILER_OPTIONS)
+endif
+ifdef COMPILER_UNITDIR
+override FPCOPT+=$(addprefix -Fu,$(COMPILER_UNITDIR))
+endif
+ifdef COMPILER_LIBRARYDIR
+override FPCOPT+=$(addprefix -Fl,$(COMPILER_LIBRARYDIR))
+endif
+ifdef COMPILER_OBJECTDIR
+override FPCOPT+=$(addprefix -Fo,$(COMPILER_OBJECTDIR))
+endif
+ifdef COMPILER_INCLUDEDIR
+override FPCOPT+=$(addprefix -Fi,$(COMPILER_INCLUDEDIR))
+endif
+ifdef CROSSBINDIR
+override FPCOPT+=-FD$(CROSSBINDIR)
+endif
+ifdef COMPILER_TARGETDIR
+override FPCOPT+=-FE$(COMPILER_TARGETDIR)
+ifeq ($(COMPILER_TARGETDIR),.)
+override TARGETDIRPREFIX=
+else
+override TARGETDIRPREFIX=$(COMPILER_TARGETDIR)/
+endif
+endif
+ifdef COMPILER_UNITTARGETDIR
+override FPCOPT+=-FU$(COMPILER_UNITTARGETDIR)
+ifeq ($(COMPILER_UNITTARGETDIR),.)
+override UNITTARGETDIRPREFIX=
+else
+override UNITTARGETDIRPREFIX=$(COMPILER_UNITTARGETDIR)/
+endif
+else
+ifdef COMPILER_TARGETDIR
+override COMPILER_UNITTARGETDIR=$(COMPILER_TARGETDIR)
+override UNITTARGETDIRPREFIX=$(TARGETDIRPREFIX)
+endif
+endif
+ifeq ($(OS_TARGET),linux)
+ifeq ($(FPC_VERSION),1.0.6)
+override FPCOPTDEF+=HASUNIX
+endif
+endif
+ifdef GCCLIBDIR
+override FPCOPT+=-Fl$(GCCLIBDIR)
+endif
+ifdef OTHERLIBDIR
+override FPCOPT+=$(addprefix -Fl,$(OTHERLIBDIR))
+endif
+ifdef OPT
+override FPCOPT+=$(OPT)
+endif
+ifdef FPCOPTDEF
+override FPCOPT+=$(addprefix -d,$(FPCOPTDEF))
+endif
+ifdef CFGFILE
+override FPCOPT+=@$(CFGFILE)
+endif
+ifdef USEENV
+override FPCEXTCMD:=$(FPCOPT)
+override FPCOPT:=!FPCEXTCMD
+export FPCEXTCMD
+endif
+override COMPILER:=$(FPC) $(FPCOPT)
+ifeq (,$(findstring -s ,$(COMPILER)))
+EXECPPAS=
+else
+ifeq ($(FULL_SOURCE),$(FULL_TARGET))
+EXECPPAS:=@$(PPAS)
+endif
+endif
+.PHONY: fpc_exes
+ifndef CROSSINSTALL
+ifneq ($(TARGET_PROGRAMS),)
+override EXEFILES=$(addsuffix $(EXEEXT),$(TARGET_PROGRAMS))
+override EXEOFILES:=$(addsuffix $(OEXT),$(TARGET_PROGRAMS)) $(addprefix $(STATICLIBPREFIX),$(addsuffix $(STATICLIBEXT),$(TARGET_PROGRAMS)))
+override ALLTARGET+=fpc_exes
+override INSTALLEXEFILES+=$(EXEFILES)
+override CLEANEXEFILES+=$(EXEFILES) $(EXEOFILES)
+ifeq ($(OS_TARGET),os2)
+override CLEANEXEFILES+=$(addsuffix $(AOUTEXT),$(TARGET_PROGRAMS))
+endif
+ifeq ($(OS_TARGET),emx)
+override CLEANEXEFILES+=$(addsuffix $(AOUTEXT),$(TARGET_PROGRAMS))
+endif
+endif
+endif
+fpc_exes: $(COMPILER_TARGETDIR) $(COMPILER_UNITTARGETDIR) $(EXEFILES)
+ifdef TARGET_RSTS
+override RSTFILES=$(addsuffix $(RSTEXT),$(TARGET_RSTS))
+override CLEANRSTFILES+=$(RSTFILES)
+endif
+.PHONY: fpc_all fpc_smart fpc_debug fpc_release
+$(FPCMADE): $(ALLDEPENDENCIES) $(ALLTARGET)
+	@$(ECHOREDIR) Compiled > $(FPCMADE)
+fpc_all: $(FPCMADE)
+fpc_smart:
+	$(MAKE) all LINKSMART=1 CREATESMART=1
+fpc_debug:
+	$(MAKE) all DEBUG=1
+fpc_release:
+	$(MAKE) all RELEASE=1
+.SUFFIXES: $(EXEEXT) $(PPUEXT) $(OEXT) .pas .lpr .dpr .pp .rc .res
+$(COMPILER_UNITTARGETDIR):
+	$(MKDIRTREE) $(COMPILER_UNITTARGETDIR)
+$(COMPILER_TARGETDIR):
+	$(MKDIRTREE) $(COMPILER_TARGETDIR)
+%$(PPUEXT): %.pp
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(PPUEXT): %.pas
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.pp
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.pas
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.lpr
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.dpr
+	$(COMPILER) $<
+	$(EXECPPAS)
+%.res: %.rc
+	windres -i $< -o $@
+vpath %.pp $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %.pas $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %.lpr $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %.dpr $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %$(OEXT) $(COMPILER_UNITTARGETDIR)
+vpath %$(PPUEXT) $(COMPILER_UNITTARGETDIR)
+.PHONY: fpc_install fpc_sourceinstall fpc_exampleinstall
+ifdef INSTALL_UNITS
+override INSTALLPPUFILES+=$(addsuffix $(PPUEXT),$(INSTALL_UNITS))
+endif
+ifdef INSTALL_BUILDUNIT
+override INSTALLPPUFILES:=$(filter-out $(INSTALL_BUILDUNIT)$(PPUEXT),$(INSTALLPPUFILES))
+endif
+ifdef INSTALLPPUFILES
+override INSTALLPPULINKFILES:=$(subst $(PPUEXT),$(OEXT),$(INSTALLPPUFILES)) $(addprefix $(STATICLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(INSTALLPPUFILES)))
+ifneq ($(UNITTARGETDIRPREFIX),)
+override INSTALLPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(notdir $(INSTALLPPUFILES)))
+override INSTALLPPULINKFILES:=$(wildcard $(addprefix $(UNITTARGETDIRPREFIX),$(notdir $(INSTALLPPULINKFILES))))
+endif
+override INSTALL_CREATEPACKAGEFPC=1
+endif
+ifdef INSTALLEXEFILES
+ifneq ($(TARGETDIRPREFIX),)
+override INSTALLEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(notdir $(INSTALLEXEFILES)))
+endif
+endif
+fpc_install: all $(INSTALLTARGET)
+ifdef INSTALLEXEFILES
+	$(MKDIR) $(INSTALL_BINDIR)
+ifdef UPXPROG
+	-$(UPXPROG) $(INSTALLEXEFILES)
+endif
+	$(INSTALLEXE) $(INSTALLEXEFILES) $(INSTALL_BINDIR)
+endif
+ifdef INSTALL_CREATEPACKAGEFPC
+ifdef FPCMAKE
+ifdef PACKAGE_VERSION
+ifneq ($(wildcard Makefile.fpc),)
+	$(FPCMAKE) -p -T$(CPU_TARGET)-$(OS_TARGET) Makefile.fpc
+	$(MKDIR) $(INSTALL_UNITDIR)
+	$(INSTALL) Package.fpc $(INSTALL_UNITDIR)
+endif
+endif
+endif
+endif
+ifdef INSTALLPPUFILES
+	$(MKDIR) $(INSTALL_UNITDIR)
+	$(INSTALL) $(INSTALLPPUFILES) $(INSTALL_UNITDIR)
+ifneq ($(INSTALLPPULINKFILES),)
+	$(INSTALL) $(INSTALLPPULINKFILES) $(INSTALL_UNITDIR)
+endif
+ifneq ($(wildcard $(LIB_FULLNAME)),)
+	$(MKDIR) $(INSTALL_LIBDIR)
+	$(INSTALL) $(LIB_FULLNAME) $(INSTALL_LIBDIR)
+ifdef inUnix
+	ln -sf $(LIB_FULLNAME) $(INSTALL_LIBDIR)/$(LIB_NAME)
+endif
+endif
+endif
+ifdef INSTALL_FILES
+	$(MKDIR) $(INSTALL_DATADIR)
+	$(INSTALL) $(INSTALL_FILES) $(INSTALL_DATADIR)
+endif
+fpc_sourceinstall: distclean
+	$(MKDIR) $(INSTALL_SOURCEDIR)
+	$(COPYTREE) $(BASEDIR)/* $(INSTALL_SOURCEDIR)
+fpc_exampleinstall: $(addsuffix _distclean,$(TARGET_EXAMPLEDIRS))
+ifdef HASEXAMPLES
+	$(MKDIR) $(INSTALL_EXAMPLEDIR)
+endif
+ifdef EXAMPLESOURCEFILES
+	$(COPY) $(EXAMPLESOURCEFILES) $(INSTALL_EXAMPLEDIR)
+endif
+ifdef TARGET_EXAMPLEDIRS
+	$(COPYTREE) $(addsuffix /*,$(TARGET_EXAMPLEDIRS)) $(INSTALL_EXAMPLEDIR)
+endif
+.PHONY: fpc_distinstall
+fpc_distinstall: install exampleinstall
+.PHONY: fpc_zipinstall fpc_zipsourceinstall fpc_zipexampleinstall
+ifndef PACKDIR
+ifndef inUnix
+PACKDIR=$(BASEDIR)/../fpc-pack
+else
+PACKDIR=/tmp/fpc-pack
+endif
+endif
+ifndef ZIPNAME
+ifdef DIST_ZIPNAME
+ZIPNAME=$(DIST_ZIPNAME)
+else
+ZIPNAME=$(PACKAGE_NAME)
+endif
+endif
+ifndef FULLZIPNAME
+FULLZIPNAME=$(ZIPCROSSPREFIX)$(ZIPPREFIX)$(ZIPNAME)$(ZIPSUFFIX)
+endif
+ifndef ZIPTARGET
+ifdef DIST_ZIPTARGET
+ZIPTARGET=DIST_ZIPTARGET
+else
+ZIPTARGET=install
+endif
+endif
+ifndef USEZIP
+ifdef inUnix
+USETAR=1
+endif
+endif
+ifndef inUnix
+USEZIPWRAPPER=1
+endif
+ifdef USEZIPWRAPPER
+ZIPPATHSEP=$(PATHSEP)
+ZIPWRAPPER=$(subst /,$(PATHSEP),$(DIST_DESTDIR)/fpczip$(SRCBATCHEXT))
+else
+ZIPPATHSEP=/
+endif
+ZIPCMD_CDPACK:=cd $(subst /,$(ZIPPATHSEP),$(PACKDIR))
+ZIPCMD_CDBASE:=cd $(subst /,$(ZIPPATHSEP),$(BASEDIR))
+ifdef USETAR
+ZIPDESTFILE:=$(DIST_DESTDIR)/$(FULLZIPNAME)$(TAREXT)
+ZIPCMD_ZIP:=$(TARPROG) cf$(TAROPT) $(ZIPDESTFILE) *
+else
+ZIPDESTFILE:=$(DIST_DESTDIR)/$(FULLZIPNAME)$(ZIPEXT)
+ZIPCMD_ZIP:=$(subst /,$(ZIPPATHSEP),$(ZIPPROG)) -Dr $(ZIPOPT) $(ZIPDESTFILE) *
+endif
+fpc_zipinstall:
+	$(MAKE) $(ZIPTARGET) INSTALL_PREFIX=$(PACKDIR) ZIPINSTALL=1
+	$(MKDIR) $(DIST_DESTDIR)
+	$(DEL) $(ZIPDESTFILE)
+ifdef USEZIPWRAPPER
+ifneq ($(ECHOREDIR),echo)
+	$(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_CDPACK))" > $(ZIPWRAPPER)
+	$(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_ZIP))" >> $(ZIPWRAPPER)
+	$(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_CDBASE))" >> $(ZIPWRAPPER)
+else
+	echo $(ZIPCMD_CDPACK) > $(ZIPWRAPPER)
+	echo $(ZIPCMD_ZIP) >> $(ZIPWRAPPER)
+	echo $(ZIPCMD_CDBASE) >> $(ZIPWRAPPER)
+endif
+ifdef inUnix
+	/bin/sh $(ZIPWRAPPER)
+else
+	$(ZIPWRAPPER)
+endif
+	$(DEL) $(ZIPWRAPPER)
+else
+	$(ZIPCMD_CDPACK) ; $(ZIPCMD_ZIP) ; $(ZIPCMD_CDBASE)
+endif
+	$(DELTREE) $(PACKDIR)
+fpc_zipsourceinstall:
+	$(MAKE) fpc_zipinstall ZIPTARGET=sourceinstall ZIPSUFFIX=$(ZIPSOURCESUFFIX)
+fpc_zipexampleinstall:
+ifdef HASEXAMPLES
+	$(MAKE) fpc_zipinstall ZIPTARGET=exampleinstall ZIPSUFFIX=$(ZIPEXAMPLESUFFIX)
+endif
+fpc_zipdistinstall:
+	$(MAKE) fpc_zipinstall ZIPTARGET=distinstall
+.PHONY: fpc_clean fpc_cleanall fpc_distclean
+ifdef EXEFILES
+override CLEANEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(CLEANEXEFILES))
+endif
+ifdef CLEAN_UNITS
+override CLEANPPUFILES+=$(addsuffix $(PPUEXT),$(CLEAN_UNITS))
+endif
+ifdef CLEANPPUFILES
+override CLEANPPULINKFILES:=$(subst $(PPUEXT),$(OEXT),$(CLEANPPUFILES)) $(addprefix $(STATICLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(CLEANPPUFILES)))
+ifdef DEBUGSYMEXT
+override CLEANPPULINKFILES+=$(subst $(PPUEXT),$(DEBUGSYMEXT),$(CLEANPPUFILES))
+endif
+override CLEANPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPUFILES))
+override CLEANPPULINKFILES:=$(wildcard $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPULINKFILES)))
+endif
+fpc_clean: $(CLEANTARGET)
+ifdef CLEANEXEFILES
+	-$(DEL) $(CLEANEXEFILES)
+endif
+ifdef CLEANPPUFILES
+	-$(DEL) $(CLEANPPUFILES)
+endif
+ifneq ($(CLEANPPULINKFILES),)
+	-$(DEL) $(CLEANPPULINKFILES)
+endif
+ifdef CLEANRSTFILES
+	-$(DEL) $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANRSTFILES))
+endif
+ifdef CLEAN_FILES
+	-$(DEL) $(CLEAN_FILES)
+endif
+ifdef LIB_NAME
+	-$(DEL) $(LIB_NAME) $(LIB_FULLNAME)
+endif
+	-$(DEL) $(FPCMADE) Package.fpc $(PPAS) script.res link.res $(FPCEXTFILE) $(REDIRFILE)
+	-$(DEL) *$(ASMEXT) *_ppas$(BATCHEXT)
+fpc_cleanall: $(CLEANTARGET)
+ifdef CLEANEXEFILES
+	-$(DEL) $(CLEANEXEFILES)
+endif
+ifdef COMPILER_UNITTARGETDIR
+ifdef CLEANPPUFILES
+	-$(DEL) $(CLEANPPUFILES)
+endif
+ifneq ($(CLEANPPULINKFILES),)
+	-$(DEL) $(CLEANPPULINKFILES)
+endif
+ifdef CLEANRSTFILES
+	-$(DEL) $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANRSTFILES))
+endif
+endif
+	-$(DELTREE) units
+	-$(DEL) *$(OEXT) *$(PPUEXT) *$(RSTEXT) *$(ASMEXT) *$(STATICLIBEXT) *$(SHAREDLIBEXT) *$(PPLEXT)
+ifneq ($(PPUEXT),.ppu)
+	-$(DEL) *.o *.ppu *.a
+endif
+	-$(DELTREE) *$(SMARTEXT)
+	-$(DEL) fpcmade.* Package.fpc $(PPAS) script.res link.res $(FPCEXTFILE) $(REDIRFILE)
+	-$(DEL) *_ppas$(BATCHEXT)
+ifdef AOUTEXT
+	-$(DEL) *$(AOUTEXT)
+endif
+ifdef DEBUGSYMEXT
+	-$(DEL) *$(DEBUGSYMEXT)
+endif
+fpc_distclean: cleanall
+.PHONY: fpc_baseinfo
+override INFORULES+=fpc_baseinfo
+fpc_baseinfo:
+	@$(ECHO)
+	@$(ECHO)  == Package info ==
+	@$(ECHO)  Package Name..... $(PACKAGE_NAME)
+	@$(ECHO)  Package Version.. $(PACKAGE_VERSION)
+	@$(ECHO)
+	@$(ECHO)  == Configuration info ==
+	@$(ECHO)
+	@$(ECHO)  FPC.......... $(FPC)
+	@$(ECHO)  FPC Version.. $(FPC_VERSION)
+	@$(ECHO)  Source CPU... $(CPU_SOURCE)
+	@$(ECHO)  Target CPU... $(CPU_TARGET)
+	@$(ECHO)  Source OS.... $(OS_SOURCE)
+	@$(ECHO)  Target OS.... $(OS_TARGET)
+	@$(ECHO)  Full Source.. $(FULL_SOURCE)
+	@$(ECHO)  Full Target.. $(FULL_TARGET)
+	@$(ECHO)  SourceSuffix. $(SOURCESUFFIX)
+	@$(ECHO)  TargetSuffix. $(TARGETSUFFIX)
+	@$(ECHO)
+	@$(ECHO)  == Directory info ==
+	@$(ECHO)
+	@$(ECHO)  Required pkgs... $(REQUIRE_PACKAGES)
+	@$(ECHO)
+	@$(ECHO)  Basedir......... $(BASEDIR)
+	@$(ECHO)  FPCDir.......... $(FPCDIR)
+	@$(ECHO)  CrossBinDir..... $(CROSSBINDIR)
+	@$(ECHO)  UnitsDir........ $(UNITSDIR)
+	@$(ECHO)  PackagesDir..... $(PACKAGESDIR)
+	@$(ECHO)
+	@$(ECHO)  GCC library..... $(GCCLIBDIR)
+	@$(ECHO)  Other library... $(OTHERLIBDIR)
+	@$(ECHO)
+	@$(ECHO)  == Tools info ==
+	@$(ECHO)
+	@$(ECHO)  As........ $(AS)
+	@$(ECHO)  Ld........ $(LD)
+	@$(ECHO)  Ar........ $(AR)
+	@$(ECHO)  Rc........ $(RC)
+	@$(ECHO)
+	@$(ECHO)  Mv........ $(MVPROG)
+	@$(ECHO)  Cp........ $(CPPROG)
+	@$(ECHO)  Rm........ $(RMPROG)
+	@$(ECHO)  GInstall.. $(GINSTALL)
+	@$(ECHO)  Echo...... $(ECHO)
+	@$(ECHO)  Shell..... $(SHELL)
+	@$(ECHO)  Date...... $(DATE)
+	@$(ECHO)  FPCMake... $(FPCMAKE)
+	@$(ECHO)  PPUMove... $(PPUMOVE)
+	@$(ECHO)  Upx....... $(UPXPROG)
+	@$(ECHO)  Zip....... $(ZIPPROG)
+	@$(ECHO)
+	@$(ECHO)  == Object info ==
+	@$(ECHO)
+	@$(ECHO)  Target Loaders........ $(TARGET_LOADERS)
+	@$(ECHO)  Target Units.......... $(TARGET_UNITS)
+	@$(ECHO)  Target Implicit Units. $(TARGET_IMPLICITUNITS)
+	@$(ECHO)  Target Programs....... $(TARGET_PROGRAMS)
+	@$(ECHO)  Target Dirs........... $(TARGET_DIRS)
+	@$(ECHO)  Target Examples....... $(TARGET_EXAMPLES)
+	@$(ECHO)  Target ExampleDirs.... $(TARGET_EXAMPLEDIRS)
+	@$(ECHO)
+	@$(ECHO)  Clean Units......... $(CLEAN_UNITS)
+	@$(ECHO)  Clean Files......... $(CLEAN_FILES)
+	@$(ECHO)
+	@$(ECHO)  Install Units....... $(INSTALL_UNITS)
+	@$(ECHO)  Install Files....... $(INSTALL_FILES)
+	@$(ECHO)
+	@$(ECHO)  == Install info ==
+	@$(ECHO)
+	@$(ECHO)  DateStr.............. $(DATESTR)
+	@$(ECHO)  ZipName.............. $(ZIPNAME)
+	@$(ECHO)  ZipPrefix............ $(ZIPPREFIX)
+	@$(ECHO)  ZipCrossPrefix....... $(ZIPCROSSPREFIX)
+	@$(ECHO)  ZipSuffix............ $(ZIPSUFFIX)
+	@$(ECHO)  FullZipName.......... $(FULLZIPNAME)
+	@$(ECHO)  Install FPC Package.. $(INSTALL_FPCPACKAGE)
+	@$(ECHO)
+	@$(ECHO)  Install base dir..... $(INSTALL_BASEDIR)
+	@$(ECHO)  Install binary dir... $(INSTALL_BINDIR)
+	@$(ECHO)  Install library dir.. $(INSTALL_LIBDIR)
+	@$(ECHO)  Install units dir.... $(INSTALL_UNITDIR)
+	@$(ECHO)  Install source dir... $(INSTALL_SOURCEDIR)
+	@$(ECHO)  Install doc dir...... $(INSTALL_DOCDIR)
+	@$(ECHO)  Install example dir.. $(INSTALL_EXAMPLEDIR)
+	@$(ECHO)  Install data dir..... $(INSTALL_DATADIR)
+	@$(ECHO)
+	@$(ECHO)  Dist destination dir. $(DIST_DESTDIR)
+	@$(ECHO)  Dist zip name........ $(DIST_ZIPNAME)
+	@$(ECHO)
+.PHONY: fpc_info
+fpc_info: $(INFORULES)
+.PHONY: fpc_makefile fpc_makefiles fpc_makefile_sub1 fpc_makefile_sub2 \
+	fpc_makefile_dirs
+fpc_makefile:
+	$(FPCMAKE) -w -T$(OS_TARGET) Makefile.fpc
+fpc_makefile_sub1:
+ifdef TARGET_DIRS
+	$(FPCMAKE) -w -T$(OS_TARGET) $(addsuffix /Makefile.fpc,$(TARGET_DIRS))
+endif
+ifdef TARGET_EXAMPLEDIRS
+	$(FPCMAKE) -w -T$(OS_TARGET) $(addsuffix /Makefile.fpc,$(TARGET_EXAMPLEDIRS))
+endif
+fpc_makefile_sub2: $(addsuffix _makefile_dirs,$(TARGET_DIRS) $(TARGET_EXAMPLEDIRS))
+fpc_makefile_dirs: fpc_makefile_sub1 fpc_makefile_sub2
+fpc_makefiles: fpc_makefile fpc_makefile_dirs
+all: fpc_all
+debug: fpc_debug
+smart: fpc_smart
+release: fpc_release
+units: fpc_units
+examples:
+shared:
+install: fpc_install
+sourceinstall: fpc_sourceinstall
+exampleinstall: fpc_exampleinstall
+distinstall: fpc_distinstall
+zipinstall: fpc_zipinstall
+zipsourceinstall: fpc_zipsourceinstall
+zipexampleinstall: fpc_zipexampleinstall
+zipdistinstall: fpc_zipdistinstall
+clean: fpc_clean
+distclean: fpc_distclean
+cleanall: fpc_cleanall
+info: fpc_info
+makefiles: fpc_makefiles
+.PHONY: all debug smart release units examples shared install sourceinstall exampleinstall distinstall zipinstall zipsourceinstall zipexampleinstall zipdistinstall clean distclean cleanall info makefiles
+ifneq ($(wildcard fpcmake.loc),)
+include fpcmake.loc
+endif

packages/extra/ptc/demos/Makefile.fpc

@@ -0,0 +1,21 @@
+#
+#   Makefile.fpc for PTC demos
+#
+
+[package]
+name=ptc-demos
+version=0.99.5
+
+[target]
+programs=fire flower land lights mojo texwarp tunnel tunnel3d
+
+[compiler]
+unitdir=../$(UNITTARGETDIRPREFIX)
+
+[default]
+fpcdir=../../../..
+
+[require]
+packages=hermes ptc
+packages_linux=x11
+packages_freebsd=x11