* Initial check-in. All compiles

git-svn-id: trunk@9158 -

.gitattributes

@@ -4004,6 +4004,16 @@ packages/fcl-db/src/dbase/testdbf.pp svneol=native#text/plain
 packages/fcl-db/src/dbconst.pas svneol=native#text/plain
 packages/fcl-db/src/dbwhtml.pp svneol=native#text/plain
 packages/fcl-db/src/dsparams.inc svneol=native#text/plain
+packages/fcl-db/src/export/Makefile svneol=native#text/plain
+packages/fcl-db/src/export/Makefile.fpc svneol=native#text/plain
+packages/fcl-db/src/export/fpcsvexport.pp svneol=native#text/plain
+packages/fcl-db/src/export/fpdbexport.pp svneol=native#text/plain
+packages/fcl-db/src/export/fpdbfexport.pp svneol=native#text/plain
+packages/fcl-db/src/export/fpfixedexport.pp svneol=native#text/plain
+packages/fcl-db/src/export/fpsimplejsonexport.pp svneol=native#text/plain
+packages/fcl-db/src/export/fpsimplexmlexport.pp svneol=native#text/plain
+packages/fcl-db/src/export/fpsqlexport.pp svneol=native#text/plain
+packages/fcl-db/src/export/fpstdexports.pp svneol=native#text/plain
 packages/fcl-db/src/fields.inc svneol=native#text/plain
 packages/fcl-db/src/fpmake.inc svneol=native#text/plain
 packages/fcl-db/src/fpmake.pp svneol=native#text/plain

packages/fcl-db/src/export/Makefile

@@ -0,0 +1,2156 @@
+#
+# Don't edit, this file is generated by FPCMake Version 2.0.0 [2007/11/05]
+#
+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-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded
+BSDs = freebsd netbsd openbsd darwin
+UNIXs = linux $(BSDs) solaris qnx
+LIMIT83fs = go32v2 os2 emx watcom
+OSNeedsComspecToRunBatch = go32v2 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 COMSPEC
+ifneq ($(findstring $(OS_SOURCE),$(OSNeedsComspecToRunBatch)),)
+RUNBATCH=$(COMSPEC) /C
+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))
+ifneq ($(CPU_TARGET),)
+FPC:=$(shell $(FPCPROG) -P$(CPU_TARGET) -PB)
+else
+FPC:=$(shell $(FPCPROG) -PB)
+endif
+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 $(FPCDIR)/packages/base $(FPCDIR)/packages/extra)
+override PACKAGE_NAME=fcl-db
+PACKAGEDIR_MAIN:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /fcl-db/Makefile.fpc,$(PACKAGESDIR))))))
+ifeq ($(FULL_TARGET),i386-linux)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-darwin)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-embedded)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-symbian)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-embedded)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-amiga)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-embedded)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),sparc-embedded)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),x86_64-embedded)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-palmos)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-gba)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-nds)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-embedded)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-symbian)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc64-darwin)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc64-embedded)
+override TARGET_UNITS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-linux)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-darwin)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-embedded)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),i386-symbian)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),m68k-embedded)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-amiga)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc-embedded)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),sparc-embedded)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),x86_64-embedded)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-palmos)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-gba)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-nds)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-embedded)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),arm-symbian)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc64-darwin)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+ifeq ($(FULL_TARGET),powerpc64-embedded)
+override TARGET_RSTS+=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+endif
+override INSTALL_FPCPACKAGE=y
+ifeq ($(FULL_TARGET),i386-linux)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-go32v2)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-win32)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-os2)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-freebsd)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-beos)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-netbsd)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-solaris)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-qnx)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-netware)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-openbsd)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-wdosx)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-darwin)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-emx)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-watcom)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-netwlibc)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-wince)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-embedded)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),i386-symbian)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),m68k-linux)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),m68k-freebsd)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),m68k-netbsd)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),m68k-amiga)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),m68k-atari)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),m68k-openbsd)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),m68k-palmos)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),m68k-embedded)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),powerpc-linux)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),powerpc-netbsd)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),powerpc-amiga)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),powerpc-macos)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),powerpc-darwin)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),powerpc-morphos)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),powerpc-embedded)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),sparc-linux)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),sparc-netbsd)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),sparc-solaris)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),sparc-embedded)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),x86_64-linux)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),x86_64-freebsd)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),x86_64-win64)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),x86_64-embedded)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),arm-palmos)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),arm-gba)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),arm-nds)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),arm-embedded)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),arm-symbian)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),powerpc64-darwin)
+override COMPILER_OPTIONS+=-S2h
+endif
+ifeq ($(FULL_TARGET),powerpc64-embedded)
+override COMPILER_OPTIONS+=-S2h
+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
+ifndef INSTALL_SHAREDDIR
+INSTALL_SHAREDDIR=$(INSTALL_PREFIX)/lib
+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
+SHAREDLIBPREFIX=libfp
+STATICLIBPREFIX=libp
+IMPORTLIBPREFIX=libimp
+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
+ifeq ($(OS_TARGET),gba)
+EXEEXT=.gba
+SHAREDLIBEXT=.so
+SHORTSUFFIX=gba
+endif
+ifeq ($(OS_TARGET),symbian)
+SHAREDLIBEXT=.dll
+SHORTSUFFIX=symbian
+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=.s
+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 /gtar$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(TARPROG),)
+TARPROG:=$(strip $(wildcard $(addsuffix /tar$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(TARPROG),)
+TARPROG= __missing_command_TARPROG
+else
+TARPROG:=$(firstword $(TARPROG))
+endif
+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-darwin)
+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),i386-embedded)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),i386-symbian)
+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),m68k-embedded)
+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-amiga)
+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),powerpc-embedded)
+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),sparc-embedded)
+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),x86_64-embedded)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),arm-linux)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),arm-palmos)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),arm-wince)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),arm-gba)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),arm-nds)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),arm-embedded)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),arm-symbian)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),powerpc64-linux)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),powerpc64-darwin)
+REQUIRE_PACKAGES_RTL=1
+endif
+ifeq ($(FULL_TARGET),powerpc64-embedded)
+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
+ifneq ($(CPU_TARGET),$(CPU_SOURCE))
+override FPCOPT+=-P$(CPU_TARGET)
+endif
+ifeq ($(OS_SOURCE),openbsd)
+override FPCOPT+=-FD$(NEW_BINUTILS_PATH)
+endif
+ifndef CROSSBOOTSTRAP
+ifneq ($(BINUTILSPREFIX),)
+override FPCOPT+=-XP$(BINUTILSPREFIX)
+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
+ifneq ($(findstring 2.0.,$(FPC_VERSION)),)
+ifeq ($(CPU_TARGET),i386)
+FPCCPUOPT:=-OG2p3
+endif
+ifeq ($(CPU_TARGET),powerpc)
+FPCCPUOPT:=-O1r
+endif
+else
+FPCCPUOPT:=-O2
+endif
+override FPCOPT+=-Ur -Xs $(FPCCPUOPT) -n
+override FPCOPTDEF+=RELEASE
+endif
+ifdef STRIP
+override FPCOPT+=-Xs
+endif
+ifdef OPTIMIZE
+override FPCOPT+=-O2
+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
+ifdef CREATESHARED
+override FPCOPT+=-Cg
+ifeq ($(CPU_TARGET),i386)
+override FPCOPT+=-Aas
+endif
+endif
+ifeq ($(findstring 2.0.,$(FPC_VERSION)),)
+ifeq ($(OS_TARGET),linux)
+ifeq ($(CPU_TARGET),x86_64)
+override FPCOPT+=-Cg
+endif
+endif
+endif
+ifdef LINKSHARED
+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 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=
+else
+ifeq ($(FULL_SOURCE),$(FULL_TARGET))
+ifdef RUNBATCH
+EXECPPAS:=@$(RUNBATCH) $(PPAS)
+else
+EXECPPAS:=@$(PPAS)
+endif
+endif
+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 fpc_shared
+$(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 %.inc $(COMPILER_INCLUDEDIR)
+vpath %$(OEXT) $(COMPILER_UNITTARGETDIR)
+vpath %$(PPUEXT) $(COMPILER_UNITTARGETDIR)
+.PHONY: fpc_shared
+override INSTALLTARGET+=fpc_shared_install
+ifndef SHARED_LIBVERSION
+SHARED_LIBVERSION=$(FPC_VERSION)
+endif
+ifndef SHARED_LIBNAME
+SHARED_LIBNAME=$(PACKAGE_NAME)
+endif
+ifndef SHARED_FULLNAME
+SHARED_FULLNAME=$(SHAREDLIBPREFIX)$(SHARED_LIBNAME)-$(SHARED_LIBVERSION)$(SHAREDLIBEXT)
+endif
+ifndef SHARED_LIBUNITS
+SHARED_LIBUNITS:=$(TARGET_UNITS) $(TARGET_IMPLICITUNITS)
+override SHARED_LIBUNITS:=$(filter-out $(INSTALL_BUILDUNIT),$(SHARED_LIBUNITS))
+endif
+fpc_shared:
+ifdef HASSHAREDLIB
+	$(MAKE) all CREATESHARED=1 LINKSHARED=1 CREATESMART=1
+ifneq ($(SHARED_BUILD),n)
+	$(PPUMOVE) -q $(SHARED_LIBUNITS) -i$(COMPILER_UNITTARGETDIR) -o$(SHARED_FULLNAME) -d$(COMPILER_UNITTARGETDIR)
+endif
+else
+	@$(ECHO) Shared Libraries not supported
+endif
+fpc_shared_install:
+ifneq ($(SHARED_BUILD),n)
+ifneq ($(SHARED_LIBUNITS),)
+ifneq ($(wildcard $(COMPILER_UNITTARGETDIR)/$(SHARED_FULLNAME)),)
+	$(INSTALL) $(COMPILER_UNITTARGETDIR)/$(SHARED_FULLNAME) $(INSTALL_SHAREDDIR)
+endif
+endif
+endif
+.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))) $(addprefix $(IMPORTLIBPREFIX),$(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_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))) $(addprefix $(IMPORTLIBPREFIX),$(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: fpc_shared
+install: fpc_install
+sourceinstall: fpc_sourceinstall
+exampleinstall: fpc_exampleinstall
+distinstall:
+zipinstall:
+zipsourceinstall:
+zipexampleinstall:
+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
+fpcsvexport$(PPUEXT): fpdbexport$(PPEXT)
+fpfixedexport$(PPUEXT): fpdbexport$(PPEXT)
+fpsqlexport$(PPUEXT): fpdbexport$(PPEXT)
+fpsimplexmlexport$(PPUEXT): fpdbexport$(PPEXT)
+fpsimplejsonexport$(PPUEXT): fpdbexport$(PPEXT)
+fpdbfexport$(PPUEXT): fpdbexport$(PPEXT)

packages/fcl-db/src/export/Makefile.fpc

@@ -0,0 +1,33 @@
+#
+# Makefile.fpc for SQL FCL db units
+#
+
+[package]
+main=fcl-db
+
+[target]
+units=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+rsts=fpdbexport fpcsvexport fpfixedexport fpsqlexport fpsimplexmlexport fpsimplejsonexport fpdbfexport
+
+[compiler]
+options=-S2h
+
+[install]
+fpcpackage=y
+
+[default]
+fpcdir=../../../..
+
+[rules]
+
+fpcsvexport$(PPUEXT): fpdbexport$(PPEXT)
+
+fpfixedexport$(PPUEXT): fpdbexport$(PPEXT)
+
+fpsqlexport$(PPUEXT): fpdbexport$(PPEXT)
+
+fpsimplexmlexport$(PPUEXT): fpdbexport$(PPEXT)
+
+fpsimplejsonexport$(PPUEXT): fpdbexport$(PPEXT)
+
+fpdbfexport$(PPUEXT): fpdbexport$(PPEXT)

packages/fcl-db/src/export/fpcsvexport.pp

@@ -0,0 +1,246 @@
+unit fpcsvexport;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, DB, fpDBExport;
+
+Type
+  { TCSVFormatSettings }
+
+  TCSVFormatSettings = Class(TExportFormatSettings)
+  Private
+    FDelimiter: String;
+    FHeaderRow: Boolean;
+    FQuoteStrings: TQuoteStrings;
+    FRowDelimiter: String;
+    FStringQuoteChar: String;
+  Public
+    Constructor Create(DoInitSettings : Boolean); override;
+    Procedure Assign(Source : TPersistent); override;
+  Published
+    // Properties
+    Property FieldDelimiter : String Read FDelimiter Write FDelimiter;
+    Property RowDelimiter : String Read FRowDelimiter Write FRowDelimiter;
+    Property HeaderRow : Boolean Read FHeaderRow Write FHeaderRow default true;
+    Property QuoteStrings : TQuoteStrings Read FQuoteStrings Write FQuoteStrings;
+    Property StringQuoteChar : String Read FStringQuoteChar Write FStringQuoteChar;
+  end;
+
+  { TCustomCSVExporter }
+
+  TCustomCSVExporter = Class(TCustomFileExporter)
+  private
+    FCurrentRow:String;
+    function GetCSVFormatsettings: TCSVFormatSettings;
+    procedure OutputRow(const ARow: String);
+    procedure SetCSVFormatSettings(const AValue: TCSVFormatSettings);
+  Protected
+    Function CreateFormatSettings : TCustomExportFormatSettings; override;
+    Procedure DoBeforeExecute; override;
+    Procedure DoAfterExecute; override;
+    Procedure DoDataHeader; override;
+    Procedure DoDataRowStart; override;
+    Procedure ExportField(EF : TExportFieldItem); override;
+    Procedure DoDataRowEnd; override;
+  Public
+    Constructor Create(Aowner : TComponent); override;
+    Property FormatSettings : TCSVFormatSettings Read GetCSVFormatsettings Write SetCSVFormatSettings;
+  end;
+
+  { TCSVExporter }
+  
+
+  TCSVExporter = Class(TCustomCSVExporter)
+  Published
+    Property FileName;
+    Property Dataset;
+    Property ExportFields;
+    Property FromCurrent;
+    Property RestorePosition;
+    Property FormatSettings;
+    Property OnExportRow;
+  end;
+
+Procedure RegisterCSVExportFormat;
+Procedure UnRegisterCSVExportFormat;
+
+Const
+  SCSVExport      = 'CSV';
+  SCSVExtensions  = '.csv;.txt';
+
+ResourceString
+  SCSVDescription = 'Comma-Separated Values (CSV)';
+
+
+implementation
+
+{ TCustomCSVExporter }
+
+procedure TCustomCSVExporter.DoBeforeExecute;
+begin
+  inherited DoBeforeExecute;
+  OpenTextFile;
+end;
+
+procedure TCustomCSVExporter.DoAfterExecute;
+begin
+  CloseTextFile;
+  inherited DoAfterExecute;
+end;
+
+procedure TCustomCSVExporter.OutputRow(Const ARow : String);
+
+Var
+  RD : String;
+
+begin
+  RD:=FormatSettings.RowDelimiter;
+  If (RD='') then
+    Writeln(TextFile,ARow)
+  else
+    Write(TextFile,ARow,RD)
+end;
+
+function TCustomCSVExporter.GetCSVFormatsettings: TCSVFormatSettings;
+begin
+  Result:=TCSVFormatSettings(Inherited FormatSettings)
+end;
+
+procedure TCustomCSVExporter.SetCSVFormatSettings(
+  const AValue: TCSVFormatSettings);
+begin
+  Inherited FormatSettings:=AValue;
+end;
+
+function TCustomCSVExporter.CreateFormatSettings: TCustomExportFormatSettings;
+begin
+  Result:=TCSVFormatSettings.Create(False)
+end;
+
+
+procedure TCustomCSVExporter.DoDataHeader;
+
+Var
+  S : String;
+  I : Integer;
+
+begin
+  If FormatSettings.HeaderRow then
+    begin
+    S:='';
+    For I:=0 to ExportFields.Count-1 do
+      begin
+      If (S<>'') then
+        S:=S+FormatSettings.FieldDelimiter;
+      S:=S+ExportFields[i].ExportedName;
+      end;
+    OutputRow(S);
+    end;
+  inherited DoDataHeader;
+end;
+
+
+procedure TCustomCSVExporter.DoDataRowStart;
+begin
+  FCurrentRow:='';
+end;
+
+procedure TCustomCSVExporter.ExportField(EF: TExportFieldItem);
+
+  Function HaveSpace(Const S : String;QS : TQuoteStrings) : Boolean;
+
+  begin
+    Result:=(qsSpace in QS) and (Pos(' ',S)<>0)
+  end;
+
+  Function HaveDelimiter(Const S : String;QS : TQuoteStrings) : Boolean;
+
+  Var
+    FD : String;
+
+  begin
+    Result:=(qsDelimiter in QS);
+    If Result then
+      begin
+      FD:=FormatSettings.FieldDelimiter;
+      Result:=(FD<>'') and (Pos(FD,S)<>0);
+      end;
+  end;
+
+Var
+  S,C : String;
+  QS  : TQuoteStrings;
+
+begin
+  S:=FormatField(EF.Field);
+  QS:=FormatSettings.QuoteStrings;
+  If (EF.Field.DataType in StringFieldTypes) and (QS<>[]) then
+    begin
+    If (qsAlways in QS) or HaveSpace(S,QS) or HaveDelimiter(S,QS) then
+      begin
+      C:=FormatSettings.StringQuoteChar;
+      S:=C+S+C;
+      end;
+    end;
+  If (FCurrentRow<>'') then
+    FCurrentRow:=FCurrentRow+FormatSettings.FieldDelimiter;
+  FCurrentRow:=FCurrentRow+S;
+end;
+
+
+procedure TCustomCSVExporter.DoDataRowEnd;
+begin
+  OutputRow(FCurrentRow);
+  FCurrentRow:='';
+end;
+
+constructor TCustomCSVExporter.Create(Aowner: TComponent);
+begin
+  inherited Create(Aowner);
+end;
+
+{ TCSVFormatSettings }
+
+constructor TCSVFormatSettings.Create(DoInitSettings: Boolean);
+begin
+  inherited Create(DoInitSettings);
+  FHeaderRow:=True;
+  FDelimiter:=',';
+  FStringQuoteChar:='"';
+end;
+
+procedure TCSVFormatSettings.Assign(Source: TPersistent);
+
+Var
+  FS : TCSVFormatsettings;
+
+begin
+  If (Source is TCSVFormatSettings) then
+    begin
+    FS:=Source as TCSVFormatSettings;
+    FDelimiter:=FS.FDelimiter;
+    FHeaderRow:=FS.FHEaderRow;
+    FQuoteStrings:=FS.FQuoteStrings;
+    FRowDelimiter:=FS.FRowDelimiter;
+    FStringQuoteChar:=FS.FStringQuoteChar;
+    end;
+  inherited Assign(Source);
+end;
+
+Procedure RegisterCSVExportFormat;
+
+begin
+  ExportFormats.RegisterExportFormat(SCSVExport,SCSVDescription,SCSVExtensions,TCSVExporter);
+end;
+
+Procedure UnRegisterCSVExportFormat;
+
+begin
+end;
+
+
+end.
+

packages/fcl-db/src/export/fpdbexport.pp

@@ -0,0 +1,1055 @@
+unit fpDBExport;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, DB;
+  
+Type
+
+  // Quote string fields if value contains a space or delimiter char.
+  TQuoteString = (qsAlways,qsSpace,qsDelimiter);
+  TQuoteStrings = Set of TQuoteString;
+
+  TAlignField = (afLeft,afRight);
+
+  { TExportFieldItem }
+
+  TExportFieldItem = Class(TCollectionItem)
+  private
+    FEnabled: Boolean;
+    FField: TField;
+    FFieldName: String;
+    FExportedName: String;
+    function GetExportedName: String;
+    procedure SetExportedName(const AValue: String);
+  Protected
+    Procedure BindField (ADataset : TDataset); virtual;
+    procedure SetFieldName(const AValue: String); virtual;
+  Public
+    Constructor Create(ACollection : TCollection); override;
+    Procedure Assign(Source : TPersistent); override;
+    Property Field : TField Read FField;
+  Published
+    Property Enabled : Boolean Read FEnabled Write FEnabled default True;
+    Property FieldName : String Read FFieldName Write SetFieldName;
+    Property ExportedName : String Read GetExportedName Write SetExportedName;
+  end;
+  
+  { TExportFields }
+
+  TExportFields = Class(TCollection)
+  private
+    function GetFieldItem(Index : Integer): TExportFieldItem;
+    procedure SetFieldItem(Index : Integer; const AValue: TExportFieldItem);
+  Public
+    Function IndexOfField(Const AFieldName : String) : Integer;
+    Function IndexOfExportedName(Const AFieldName : String) : Integer;
+    Function FindExportField(Const AFieldName : String) : TExportFieldItem;
+    Function FindExportName(Const AFieldName : String) : TExportFieldItem;
+    Function AddField(Const AFieldName : String) : TExportFieldItem; virtual;
+    Property Fields[Index : Integer] : TExportFieldItem Read GetFieldItem Write SetFieldItem; Default;
+  end;
+
+  { TExportFormatSettings }
+
+  { TCustomExportFormatSettings }
+
+  TCustomExportFormatSettings = Class(TPersistent)
+  private
+    FBooleanFalse : String;
+    FBooleanTrue : String;
+    FCurrencyDigits: Integer;
+    FCurrencySymbol : String;
+    FDateFormat : String;
+    FIntegerFormat: String;
+    FTimeFormat : String;
+    FDateTimeFormat : String;
+    FDecimalSeparator: Char;
+  Protected
+    Procedure InitSettings; virtual;
+    Property IntegerFormat : String Read FIntegerFormat Write FIntegerFormat;
+    Property DecimalSeparator : Char Read FDecimalSeparator Write FDecimalSeparator;
+    Property CurrencySymbol : String Read FCurrencySymbol Write FCurrencySymbol;
+    Property CurrencyDigits : Integer Read FCurrencyDigits Write FCurrencyDigits;
+    Property BooleanTrue : String Read FBooleanTrue Write FBooleanTrue;
+    Property BooleanFalse : String Read FBooleanFalse Write FBooleanFalse;
+    Property DateFormat : String Read FDateFormat Write FDateFormat;
+    Property TimeFormat : String Read FTimeFormat Write FTimeFormat;
+    Property DateTimeFormat : String Read FDateTimeFormat Write FDateTimeFormat;
+  Public
+    Constructor Create(DoInitSettings : Boolean); virtual;
+    Procedure Assign(Source : TPersistent); override;
+  end;
+  TCustomExportFormatSettingsClass = Class of TCustomExportFormatSettings;
+  
+  TExportFormatSettings = Class(TCustomExportFormatSettings)
+  Published
+    Property IntegerFormat;
+    Property DecimalSeparator;
+    Property CurrencySymbol;
+    Property CurrencyDigits;
+    Property BooleanTrue;
+    Property BooleanFalse ;
+    Property DateFormat;
+    Property TimeFormat;
+    Property DateTimeFormat;
+  end;
+
+  TOnExportRowEvent = Procedure(Sender : TObject; Var AllowExport : Boolean) of object;
+  TExportProgressEvent = Procedure(Sender : TObject; Const ItemNo : Integer) of object;
+  { TCustomDatasetExporter }
+
+  TCustomDatasetExporter = Class(TComponent)
+  private
+    FAfterExecute: TNotifyEvent;
+    FBeforeExecute: TNotifyEvent;
+    FCanceled: Boolean;
+    FDataset: TDataset;
+    FFormatSettings: TCustomExportFormatSettings;
+    FExportFields: TExportFields;
+    FFromCurrent: Boolean;
+    FOnExportRow: TOnExportRowEvent;
+    FonProgress: TExportProgressEvent;
+    FRestorePosition: Boolean;
+    procedure SetDataset(const AValue: TDataset);
+    procedure SetExportFields(const AValue: TExportFields);
+    procedure SetFormatSettings(const AValue: TCustomExportFormatSettings);
+  Protected
+    // Override this if you need a descendent of TExportFormatSettings
+    Function CreateFormatSettings : TCustomExportFormatSettings; virtual;
+    // Checks if Dataset is assigned and whether it is in browse mode.
+    Procedure CheckDataset(InBrowse : Boolean);
+    // Allocate TField in TExportFieldItem
+    Function BindFields : Boolean; virtual;
+    // Nil out fields.
+    Procedure UnbindFields;
+    // Override if a descendent of TExportFieldItem is needed.
+    Function CreateExportFields : TExportFields; Virtual;
+    // Executes BeforeExecute event. Override (but call inherited)
+    Procedure DoBeforeExecute; virtual;
+    // Executes AfterExecute event. Override (but call inherited)
+    // Note this is also executed in case of an exception !!
+    Procedure DoAfterExecute; virtual;
+    // Returns True if current row should be exported
+    Function DoDataRow : Boolean; virtual;
+    // Override to write data prior to data start.
+    Procedure DoDataHeader; virtual;
+    // Override to write data after data start.
+    Procedure DoDataFooter; virtual;
+    // Override to write something at row start.
+    Procedure DoDataRowStart; virtual;
+    // Override if a simple loop is not enough.
+    Procedure ExportDataRow; virtual;
+    // Override to write something at row start.
+    Procedure DoDataRowEnd; virtual;
+    // Called after row was exported
+    Procedure DoProgress(ItemNo : Integer); Virtual;
+    // Override if each field can be written as-is.
+    Procedure ExportField(EF : TExportFieldItem); virtual;
+    // Format field as string, according to settings
+    Function FormatField(F : TField) : String; virtual;
+    // Raise EDataExporter error
+    Procedure ExportError(Msg : String); overload;
+    Procedure ExportError(Fmt : String; Args: Array of const); overload;
+  Public
+    Constructor Create(AOwner : TComponent); override;
+    Destructor Destroy; override;
+    // Build default fieldmap - adds all fields.
+    Procedure BuildDefaultFieldMap(AMap : TExportFields); virtual;
+    // Do export. Returns the number of records exported.
+    Function Execute : Integer; virtual;
+    // Call this to cancel the export
+    Procedure Cancel;
+    // Show the default configuration dialog, if one was assigned.
+    // Returns false if the dialog was cancelled.
+    Function ShowConfigDialog : Boolean;
+    // Don't use. Needed for nil of dataset.
+    Procedure Notification(AComponent: TComponent; Operation : TOperation); override;
+    // True if export was canceled (using Cancel);
+    Property Canceled : Boolean Read FCanceled;
+  Public
+    // Properties
+    Property Dataset : TDataset Read FDataset Write SetDataset;
+    Property ExportFields : TExportFields Read FExportFields Write SetExportFields;
+    Property FromCurrent : Boolean Read FFromCurrent Write FFromCurrent Default True;
+    Property RestorePosition : Boolean Read FRestorePosition Write FRestorePosition;
+    Property FormatSettings : TCustomExportFormatSettings Read FFormatSettings Write SetFormatSettings;
+    // Events
+    Property AfterExecute : TNotifyEvent Read FAfterExecute Write FAfterExecute;
+    Property BeforeExecute : TNotifyEvent Read FBeforeExecute Write FBeforeExecute;
+    Property OnExportRow : TOnExportRowEvent Read FOnExportRow Write FOnExportRow;
+    Property OnProgress : TExportProgressEvent Read FonProgress Write FOnProgress;
+  end;
+  
+  TCustomDatasetExporterClass = Class of TCustomDatasetExporter;
+
+  { TStreamExporter }
+
+  TStreamExporter = Class(TCustomDatasetExporter)
+  Private
+    FStream: TStream;
+  Protected
+    Property Stream : TStream Read FStream;
+    // Frees the stream.
+    Procedure CloseStream;
+  Public
+    Procedure ExportToStream(AStream : TStream);
+  end;
+  
+  { TCustomFileExporter }
+
+  TCustomFileExporter = Class(TStreamExporter)
+  private
+    FFileName: String;
+    FTextFile: Text;
+    FTextFileOpen: Boolean;
+    FopenedStream : Boolean;
+  protected
+    // Creates a file stream
+    procedure OpenStream; virtual;
+    // Override if some checking needs to be done on valid names
+    procedure SetFileName(const AValue: String); virtual;
+    // Override if some checking needs to be done prior to opening.
+    Procedure CheckFileName; virtual;
+    // Use to open/close textfile. Creates a file stream.
+    Procedure OpenTextFile;
+    Procedure CloseTextFile;
+    // Access to stream/file
+    Property TextFile : Text Read FTextFile;
+    Property TextFileOpen : Boolean Read FTextFileOpen;
+  Public
+    Destructor Destroy; override;
+    // Publish in descendents.
+    Property FileName : String Read FFileName Write SetFileName;
+  end;
+  
+
+
+
+
+  EDataExporter = Class(Exception);
+  
+  { TExportFormatItem }
+
+  TExportConfigureEvent = Function (Exporter : TCustomDatasetExporter) : Boolean of object;
+
+  TExportFormatItem = Class(TCollectionItem)
+  private
+    FClass: TCustomDatasetExporterClass;
+    FDescription: String;
+    FExtensions: String;
+    FName: String;
+    FOnConfigure: TExportConfigureEvent;
+    procedure SetName(const AValue: String);
+  Public
+    Property ExportClass : TCustomDatasetExporterClass Read FClass Write FClass;
+  Published
+    Property Name : String Read FName Write SetName;
+    Property Description : String Read FDescription Write FDescription;
+    Property Extensions : String Read FExtensions Write FExtensions;
+    Property OnConfigureDialog : TExportConfigureEvent Read FOnConfigure Write FOnConfigure;
+  end;
+  
+  TExportFormats = Class(TCollection)
+  private
+    function GetFormat(Index : Integer): TExportFormatItem;
+    procedure SetFormat(Index : Integer; const AValue: TExportFormatItem);
+  Public
+    // Registration/Unregistration
+    Function RegisterExportFormat(Const AName,ADescription,AExtensions : String; AClass : TCustomDatasetExporterClass) : TExportFormatItem;
+    Procedure UnRegisterExportFormat(AClass : TCustomDatasetExporterClass);
+    Procedure UnRegisterExportFormat(Const AName : String);
+    // Searching
+    Function IndexOfFormat(Const AName : String): Integer;
+    Function IndexOfExportClass(AClass : TCustomDataSetExporterClass): Integer;
+    Function FindFormat(Const AName : String) : TExportFormatItem;
+    Function FindFormatByClass(AClass : TCustomDataSetExporterClass) : TExportFormatItem;
+    // Shows configuration dialog, if one was configured for this class
+    Function ConfigureExport(AnExport : TCustomDatasetExporter) : Boolean;
+    Function FormatByName(Const AName : String) : TExportFormatItem;
+    // Utilityfunctions
+    Function ConstructFilter(AnExport : TCustomDatasetExporter) : String;
+    Property Formats[Index : Integer] : TExportFormatItem Read GetFormat Write SetFormat; default;
+  end;
+  
+Function ExportFormats : TExportFormats;
+
+// Easy access functions
+
+Function RegisterExportFormat(Const AName,ADescription,AExtensions : String; AClass : TCustomDatasetExporterClass) : TExportFormatItem;
+Procedure UnRegisterExportFormat(AClass : TCustomDatasetExporterClass);
+Procedure UnRegisterExportFormat(Const AName : String);
+
+
+Const
+  StringFieldTypes = [ftString,ftFixedChar,ftWidestring,ftFixedWideChar];
+  IntFieldTypes    = [ftInteger,ftWord,ftsmallint,ftautoinc];
+  OrdFieldTypes    = IntFieldTypes +[ftBoolean,ftLargeInt];
+  DateFieldTypes   = [ftDate,ftTime,ftDateTime,ftTimeStamp];
+  MemoFieldTypes   = [ftMemo,ftFmtMemo,ftWideMemo];
+  BlobFieldTypes   =  [ftBlob,ftGraphic,ftOraBlob,ftOraClob];
+  
+
+implementation
+
+uses streamio;
+
+ResourceString
+  SErrNoDataset           = 'Dataset not assigned';
+  SErrNoBrowse            = 'Dataset not in browse mode';
+  SErrNoFileName          = 'No filename set for export';
+  SErrFormatExists        = 'An export format with name "%s" already exists.';
+  SUnknownExportFormat    = 'Unknown export format "%s"';
+  SExportFilter           = '%s files';
+  SAllFilesFilter         = 'All files';
+  SErrDuplicateExportName = 'Exported fieldname "%s" already exists';
+
+{ TExportFieldItem }
+
+procedure TExportFieldItem.SetFieldName(const AValue: String);
+begin
+  if (FFieldName<>AValue) then
+    begin
+    FField:=Nil;
+    FFieldName:=AValue;
+    end;
+end;
+
+constructor TExportFieldItem.Create(ACollection: TCollection);
+begin
+  inherited Create(ACollection);
+  FEnabled:=True;
+end;
+
+function TExportFieldItem.GetExportedName: String;
+begin
+  Result:=FExportedName;
+  If (Result='') then
+    Result:=FFieldName;
+end;
+
+procedure TExportFieldItem.SetExportedName(const AValue: String);
+
+Var
+  I : TExportFieldItem;
+  
+begin
+  If (FExportedName<>AValue) then
+    begin
+    If (AValue<>'') then
+      begin
+      I:=(Collection as TExportFields).FindExportName(AValue);
+      If (I<>Nil) and (I<>Self) then
+        Raise EDataExporter.CreateFmt(SErrDuplicateExportName,[AValue]);
+      end;
+    FExportedName:=AValue;
+    end;
+end;
+
+procedure TExportFieldItem.BindField(ADataset: TDataset);
+begin
+  FField:=ADataSet.FieldByName(FieldName);
+end;
+
+procedure TExportFieldItem.Assign(Source: TPersistent);
+
+Var
+  EF : TExportFieldItem;
+
+begin
+  if (Source is TExportFieldItem) then
+    begin
+    EF:=Source as TExportFieldItem;
+    FieldName:=EF.FieldName;
+    Enabled:=EF.Enabled;
+    FExportedName:=EF.FExportedName;
+    end
+  else
+    Inherited;
+end;
+
+{ TExportFields }
+
+function TExportFields.GetFieldItem(Index : Integer): TExportFieldItem;
+begin
+  Result:=TExportFieldItem(Items[Index]);
+end;
+
+procedure TExportFields.SetFieldItem(Index : Integer; const AValue: TExportFieldItem);
+
+begin
+  Items[Index]:=AValue;
+end;
+
+function TExportFields.IndexOfField(const AFieldName: String): Integer;
+
+begin
+  Result:=Count-1;
+  While (Result>=0) and (CompareText(GetFieldItem(Result).FieldName,AFieldName)<>0) do
+    Dec(Result);
+end;
+
+function TExportFields.IndexOfExportedName(const AFieldName: String): Integer;
+begin
+  Result:=Count-1;
+  While (Result>=0) and (CompareText(GetFieldItem(Result).ExportedName,AFieldName)<>0) do
+    Dec(Result);
+end;
+
+function TExportFields.FindExportField(const AFieldName: String
+  ): TExportFieldItem;
+  
+Var
+  I : Integer;
+  
+begin
+  I:=IndexOfField(AFieldName);
+  If (I<>-1) then
+    Result:=GetFieldItem(I)
+  else
+    Result:=Nil;
+end;
+
+function TExportFields.FindExportName(const AFieldName: String
+  ): TExportFieldItem;
+
+Var
+  I : Integer;
+
+begin
+  I:=IndexOfExportedName(AFieldName);
+  If (I<>-1) then
+    Result:=GetFieldItem(I)
+  else
+    Result:=Nil;
+end;
+
+function TExportFields.AddField(Const AFieldName: String): TExportFieldItem;
+begin
+  Result:=(Add as TExportFieldItem);
+  Result.FieldName:=AFieldName;
+end;
+
+{ TCustomDatasetExporter }
+
+procedure TCustomDatasetExporter.SetDataset(const AValue: TDataset);
+begin
+  if (FDataset<>AValue) then
+    begin
+    If (FDataset<>Nil) then
+      FDataset.RemoveFreeNotification(Self);
+    FDataset:=AValue;
+    FDataset.FreeNotification(Self);
+    UnbindFields;
+    end;
+end;
+
+procedure TCustomDatasetExporter.SetExportFields(const AValue: TExportFields);
+begin
+  FExportFields.Assign(AValue);
+end;
+
+procedure TCustomDatasetExporter.SetFormatSettings(
+  const AValue: TCustomExportFormatSettings);
+begin
+  if FFormatSettings<>AValue then
+    FFormatSettings.Assign(AValue);
+end;
+
+Function TCustomDatasetExporter.CreateFormatSettings : TCustomExportFormatSettings;
+begin
+  Result:=TExportFormatSettings.Create(False);
+end;
+
+procedure TCustomDatasetExporter.CheckDataset(InBrowse : Boolean);
+begin
+  If Not Assigned(Dataset) then
+    Raise EDataExporter.Create(SErrNoDataset);
+  If InBrowse and Not (Dataset.State=dsBrowse) then
+    Raise EDataExporter.Create(SErrNoBrowse);
+end;
+
+function TCustomDatasetExporter.BindFields: Boolean;
+
+Var
+  I : integer;
+
+begin
+  Result:=(ExportFields.Count=0);
+  If Result then
+    BuildDefaultFieldMap(ExportFields);
+  Try
+    For I:=0 to ExportFields.Count-1 do
+      ExportFields[i].BindField(Dataset);
+  except
+    UnbindFields;
+    Raise;
+  end;
+end;
+
+procedure TCustomDatasetExporter.UnbindFields;
+
+Var
+  I : Integer;
+
+begin
+  For I:=0 TO FExportFields.Count-1 do
+    Fexportfields[i].FField:=Nil;
+end;
+
+Function TCustomDatasetExporter.CreateExportFields : TExportFields;
+begin
+  Result:=TExportFields.Create(TExportFieldItem);
+end;
+
+procedure TCustomDatasetExporter.DoBeforeExecute;
+begin
+  If Assigned(FBeforeExecute) then
+    FBeforeExecute(Self)
+end;
+
+procedure TCustomDatasetExporter.DoAfterExecute;
+begin
+  If Assigned(FAfterExecute) then
+    FAfterExecute(Self)
+end;
+
+function TCustomDatasetExporter.DoDataRow: Boolean;
+begin
+  Result:=True;
+  If Assigned(FonExportRow) then
+    FOnExportRow(Self,Result);
+end;
+
+procedure TCustomDatasetExporter.DoDataHeader;
+begin
+  // Do nothing
+end;
+
+procedure TCustomDatasetExporter.DoDataFooter;
+begin
+  // No nothing
+end;
+
+procedure TCustomDatasetExporter.DoDataRowStart;
+begin
+  // Do nothing
+end;
+
+procedure TCustomDatasetExporter.ExportDataRow;
+
+Var
+  I : Integer;
+
+begin
+  For I:=0 to FExportFields.Count-1 do
+    If FExportFields[I].Enabled then
+      ExportField(FExportFields[i]);
+end;
+
+procedure TCustomDatasetExporter.DoDataRowEnd;
+begin
+  // Do nothing
+end;
+
+procedure TCustomDatasetExporter.DoProgress(ItemNo: Integer);
+begin
+  If Assigned(FOnProgress) then
+    FOnProgress(Self,ItemNo);
+end;
+
+procedure TCustomDatasetExporter.ExportField(EF: TExportFieldItem);
+begin
+  // Do nothing
+end;
+
+Function TCustomDatasetExporter.FormatField(F: TField) : String;
+
+Var
+  FS : TFormatSettings;
+
+begin
+  If (F.DataType in IntFieldTypes) then
+    begin
+    If (FormatSettings.IntegerFormat)<>'' then
+      Result:=Format(FormatSettings.IntegerFormat,[F.AsInteger])
+    else
+      Result:=F.AsString;
+    end
+  else if (F.DataType=ftBoolean) then
+    begin
+    If F.AsBoolean then
+      Result:=FormatSettings.BooleanTrue
+    else
+      Result:=FormatSettings.BooleanFalse;
+    If (Result='') then
+      Result:=F.AsString;
+    end
+  else if (F.DataType=ftDate) then
+    begin
+    If (FormatSettings.DateFormat<>'') then
+      Result:=FormatDateTime(FormatSettings.DateFormat,F.AsDateTime)
+    else
+      Result:=F.AsString;
+    end
+  else if (F.DataType=ftTime) then
+    begin
+    If (FormatSettings.TimeFormat<>'') then
+      Result:=FormatDateTime(FormatSettings.TimeFormat,F.AsDateTime)
+    else
+      Result:=F.AsString;
+    end
+  else if (F.DataType in [ftDateTime,ftTimeStamp]) then
+    begin
+    If (FormatSettings.DateTimeFormat<>'') then
+      Result:=FormatDateTime(FormatSettings.DateTimeFormat,F.AsDateTime)
+    else
+      Result:=F.AsString;
+    end
+  else if (F.DataType=ftCurrency) then
+    begin
+    If (FormatSettings.CurrencySymbol<>'') then
+      begin
+      FS:=DefaultFormatSettings;
+      FS.CurrencyString:=FormatSettings.CurrencySymbol;
+      Result:=CurrToStrF(F.AsCurrency,ffCurrency,FormatSettings.CurrencyDigits,FS);
+      end
+    else
+      Result:=F.AsString
+    end
+  else
+    Result:=F.AsString;
+end;
+
+procedure TCustomDatasetExporter.ExportError(Msg: String);
+begin
+  Raise EDataExporter.Create(Msg);
+end;
+
+procedure TCustomDatasetExporter.ExportError(Fmt: String;
+  Args: array of const);
+begin
+  Raise EDataExporter.CreateFmt(Fmt,Args);
+end;
+
+
+constructor TCustomDatasetExporter.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FromCurrent:=True;
+  FExportFields:=CreateExportFields;
+  FFormatSettings:=CreateFormatSettings;
+end;
+
+destructor TCustomDatasetExporter.Destroy;
+begin
+  FreeAndNil(FExportFields);
+  inherited Destroy;
+end;
+
+procedure TCustomDatasetExporter.BuildDefaultFieldMap(AMap : TExportFields);
+
+Var
+  I : Integer;
+  F : TField;
+  
+begin
+  CheckDataset(False);
+  AMap.Clear;
+  For I:=0 to FDataset.Fields.Count-1 do
+    begin
+    F:=FDataset.Fields[i];
+    AMap.AddField(F.FieldName);
+    end;
+end;
+
+
+
+Function TCustomDatasetExporter.Execute : Integer;
+
+Var
+  B : Boolean;
+  BM : TBookMarkStr;
+
+begin
+  Result:=0;
+  FCanceled:=False;
+  DoBeforeExecute;
+  Try
+    CheckDataset(True);
+    B:=BindFields;
+    try
+      DoDataHeader;
+      Dataset.DisableControls;
+      Try
+        BM:=Dataset.BookMark;
+        try
+          If not FromCurrent then
+            Dataset.First;
+          While not (Dataset.EOF or FCanceled) do
+            begin
+            if DoDataRow then
+              begin
+              Inc(Result);
+              DoDataRowStart;
+              ExportDataRow;
+              DoDataRowEnd;
+              DoProgress(Result);
+              end;
+            Dataset.Next;
+            end;
+          DoDataFooter;
+        finally
+          If RestorePosition then
+            Dataset.BookMark:=Bm;
+        end;
+      Finally
+        Dataset.EnableControls;
+      end;
+    Finally
+      If B then
+        FExportFields.Clear;
+    end;
+  Finally
+    DoAfterExecute;
+  end;
+end;
+
+procedure TCustomDatasetExporter.Cancel;
+begin
+  FCanceled:=True;
+end;
+
+function TCustomDatasetExporter.ShowConfigDialog: Boolean;
+begin
+  Result:=ExportFormats.ConfigureExport(Self);
+end;
+
+procedure TCustomDatasetExporter.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  If (Operation=opRemove) and (AComponent=FDataset) then
+    FDataset:=Nil;
+  inherited Notification(AComponent, Operation);
+end;
+
+{ TStreamExporter }
+
+procedure TStreamExporter.CloseStream;
+begin
+  FreeAndNil(FStream);
+end;
+
+procedure TStreamExporter.ExportToStream(AStream: TStream);
+begin
+  FStream:=AStream;
+  try
+    Execute;
+  Finally
+    FStream:=Nil;
+  end;
+end;
+
+{ TCustomFileExporter }
+
+procedure TCustomFileExporter.SetFileName(const AValue: String);
+begin
+  if FFileName=AValue then exit;
+  FFileName:=AValue;
+end;
+
+procedure TCustomFileExporter.CheckFileName;
+begin
+  If (FFileName='') then
+    ExportError(SErrNoFileName);
+end;
+
+procedure TCustomFileExporter.OpenTextFile;
+
+begin
+  CheckFileName;
+  FOpenedStream:=(Stream=Nil);
+  If FOpenedStream then
+    OpenStream;
+  AssignStream(FTextFile,Stream);
+  Rewrite(FTextFile);
+  FTextFileOpen:=True;
+end;
+
+procedure TCustomFileExporter.CloseTextFile;
+begin
+  CloseFile(FTextFile);
+  FTextFileOpen:=False;
+  If FOpenedStream then
+    CloseStream;
+end;
+
+procedure TCustomFileExporter.OpenStream;
+begin
+  CheckFileName;
+  FStream:=TFileStream.Create(FFileName,fmCreate);
+end;
+
+Destructor TCustomFileExporter.Destroy;
+begin
+  If TextFileOpen then
+    CloseTextFile;
+  CloseStream;
+  inherited Destroy;
+end;
+
+
+{ TCustomExportFormatSettings }
+
+procedure TCustomExportFormatSettings.InitSettings;
+begin
+  FIntegerFormat:='%d';
+  FDateFormat:=ShortDateFormat;
+  FTimeFormat:=ShortTimeFormat;
+  FDateTimeFormat:=ShortDateFormat+' '+ShortTimeFormat;
+  FBooleanTrue:='True';
+  FBooleanFalse:='False';
+  FDecimalSeparator:=sysutils.decimalseparator;
+  FCurrencySymbol:=sysutils.CurrencyString;
+end;
+
+constructor TCustomExportFormatSettings.Create(DoInitSettings: Boolean);
+begin
+  If DoInitSettings then
+    InitSettings;
+end;
+
+procedure TCustomExportFormatSettings.Assign(Source: TPersistent);
+
+Var
+  FS : TCustomExportFormatSettings;
+
+begin
+  If (Source is TCustomExportFormatSettings) then
+    begin
+    FS:=Source as TCustomExportFormatSettings;
+    FBooleanFalse:=FS.FBooleanFalse;
+    FBooleanTrue:=FS.FBooleanTrue;
+    FCurrencyDigits:=FS.FCurrencyDigits;
+    FCurrencySymbol:=FS.FCurrencySymbol;
+    FDateFormat:=FS.FDateFormat;
+    FIntegerFormat:=FS.IntegerFormat;
+    FTimeFormat:=FS.FTimeFormat;
+    FDateTimeFormat:=FS.FDateTimeFormat;
+    FDecimalSeparator:=FS.FDecimalSeparator;
+    end
+  else
+    inherited Assign(Source);
+end;
+
+
+
+{ TExportFormats }
+
+function TExportFormats.GetFormat(Index : Integer): TExportFormatItem;
+begin
+  Result:=TExportFormatItem(Items[Index]);
+end;
+
+procedure TExportFormats.SetFormat(Index : Integer; const AValue: TExportFormatItem
+  );
+begin
+  Items[Index]:=AValue;
+end;
+
+function TExportFormats.RegisterExportFormat(Const AName, ADescription,
+  AExtensions: String; AClass: TCustomDatasetExporterClass): TExportFormatItem;
+begin
+  If (IndexOfFormat(AName)<>-1) then
+    Raise EDataExporter.CreateFmt(SErrFormatExists,[AName]);
+  Result:=Add as TExportFormatItem;
+  Result.Name:=AName;
+  Result.Description:=ADescription;
+  Result.Extensions:=AExtensions;
+  Result.ExportClass:=AClass;
+end;
+
+function TExportFormats.IndexOfFormat(const AName: String): Integer;
+begin
+  Result:=Count-1;
+  While (Result>=0) and (CompareText(GetFormat(Result).Name,AName)<>0) do
+    Dec(Result);
+end;
+
+function TExportFormats.IndexOfExportClass(AClass: TCustomDataSetExporterClass
+  ): Integer;
+begin
+  Result:=Count-1;
+  While (Result>=0) and (GetFormat(Result).ExportClass<>AClass) do
+    Dec(Result);
+end;
+
+function TExportFormats.FindFormat(const AName: String): TExportFormatItem;
+
+Var
+  I : Integer;
+  
+begin
+  I:=IndexOfFormat(AName);
+  If (I=-1) then
+    Result:=Nil
+  else
+    Result:=GetFormat(I);
+end;
+
+function TExportFormats.FindFormatByClass(AClass: TCustomDataSetExporterClass): TExportFormatItem;
+  
+Var
+  I : Integer;
+
+begin
+  I:=IndexOfExportClass(AClass);
+  If (I=-1) then
+    Result:=Nil
+  else
+    Result:=GetFormat(I);
+end;
+
+function TExportFormats.ConfigureExport(AnExport: TCustomDatasetExporter
+  ): Boolean;
+  
+Var
+  F : TExportFormatItem;
+  
+begin
+  Result:=True;
+  F:=FindFormatByClass(TCustomDatasetExporterClass(AnExport.ClassType));
+  If Assigned(F) and Assigned(F.OnConfigureDialog) then
+    Result:=F.OnConfigureDialog(AnExport);
+end;
+
+function TExportFormats.FormatByName(const AName: String): TExportFormatItem;
+begin
+  Result:=FindFormat(AName);
+  If (Result=Nil) then
+    Raise EDataExporter.CreateFmt(SUnknownExportFormat,[AName]);
+end;
+
+function TExportFormats.ConstructFilter(AnExport: TCustomDatasetExporter
+  ): String;
+  
+  Procedure AddToResult(S : String);
+  
+  begin
+    If (Result<>'') and (S<>'') then
+      Result:=Result+'|';
+    Result:=Result+S;
+  end;
+  
+Var
+  F : TExportFormatItem;
+  P : Integer;
+  S,E : String;
+  
+begin
+  Result:='';
+  F:=FindFormatByClass(TCustomDatasetExporterClass(AnExport.ClassType));
+  If (F=Nil) then
+    Exit;
+  S:=F.Extensions;
+  While (S<>'') do
+    begin
+    P:=Pos(';',S);
+    If (P=0) then
+      P:=Length(S)+1;
+    E:=Copy(S,1,P-1);
+    If (Length(E)>1) then // Make sure there actually is an extension
+      begin
+      If (E[1]='.') then
+        system.Delete(E,1,1);
+      AddToResult(Format(SExportFilter,[E])+Format('|*.%s',[E]));
+      end;
+    system.Delete(S,1,P);
+    end;
+  AddToResult(SAllFilesFilter+'|*');
+end;
+
+
+Procedure TExportFormats.UnRegisterExportFormat(AClass : TCustomDatasetExporterClass);
+
+begin
+  FindFormatByClass(AClass).Free;
+end;
+
+Procedure TExportFormats.UnRegisterExportFormat(Const AName : String);
+
+begin
+  FindFormat(AName).Free;
+end;
+
+
+{ TExportFormatItem }
+
+procedure TExportFormatItem.SetName(const AValue: String);
+
+Var
+  I : TExportFormatItem;
+
+begin
+  if (FName=AValue) then
+    exit;
+  If (AValue<>'') then
+    begin
+    I:=TExportFormats(Collection).FindFormat(AValue);
+    If (I<>Nil) and (I<>Self) then
+      Raise EDataExporter.CreateFmt(SErrFormatExists,[AValue]);
+    end;
+  FName:=AValue;
+end;
+
+Var
+  EF : TExportFormats;
+
+Procedure InitExportFormats;
+
+begin
+  EF:=TExportFormats.Create(TExportFormatItem);
+end;
+
+Procedure DoneExportFormats;
+
+begin
+  FreeAndNil(EF);
+end;
+
+Function ExportFormats : TExportFormats;
+
+begin
+  If (EF=Nil) then
+    InitExportFormats;
+  Result:=EF;
+end;
+
+Function RegisterExportFormat(Const AName,ADescription,AExtensions : String; AClass : TCustomDatasetExporterClass) : TExportFormatItem;
+
+begin
+  Result:=ExportFormats.RegisterExportFormat(AName,ADescription,AExtensions,AClass);
+end;
+
+Procedure UnRegisterExportFormat(AClass : TCustomDatasetExporterClass);
+
+begin
+  ExportFormats.UnregisterExportFormat(AClass);
+end;
+
+Procedure UnRegisterExportFormat(Const AName : String);
+
+begin
+  ExportFormats.UnregisterExportFormat(AName);
+end;
+
+Initialization
+
+Finalization
+  DoneExportFormats;
+end.
+
+

packages/fcl-db/src/export/fpdbfexport.pp

@@ -0,0 +1,272 @@
+unit fpdbfexport;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, db, dbf, fpdbexport;
+  
+Type
+
+  { TDBFExportFieldItem }
+
+  TDBFExportFieldItem = Class(TExportFieldItem)
+  private
+    FDestField: TField;
+  Protected
+    Property DestField : TField Read FDestField;
+  end;
+
+  { TDBFExportFormatSettings }
+
+  TTableFormat = (tfDBaseIII,tfDBaseIV,tfDBaseVII,tfFoxPro);
+  
+  TDBFExportFormatSettings = class(TExportFormatSettings)
+  private
+    FAutoRename: Boolean;
+    FTableFormat: TTableFormat;
+  public
+    Procedure Assign(Source : TPersistent); override;
+  Published
+    Property TableFormat : TTableFormat Read FTableFormat Write FTableFormat;
+    Property AutoRenameFields : Boolean Read FAutoRename Write FAutoRename;
+  end;
+  { TFPCustomDBFExport }
+
+  TFPCustomDBFExport = Class(TCustomDatasetExporter)
+  Private
+    FDBF : TDBF;
+    FFileName: String;
+    FAppendData: Boolean;
+    function GetSettings: TDBFExportFormatSettings;
+    procedure SetSettings(const AValue: TDBFExportFormatSettings);
+  Protected
+    Procedure CheckExportFieldNames; virtual;
+    Function BindFields : Boolean; override;
+    Function CreateFormatSettings : TCustomExportFormatSettings; override;
+
+    Function CreateExportFields : TExportFields; override;
+    Procedure DoBeforeExecute; override;
+    Procedure DoAfterExecute; override;
+    Procedure DoDataRowStart; override;
+    Procedure DoDataRowEnd; override;
+    Procedure ExportField(EF : TExportFieldItem); override;
+    Property FileName : String Read FFileName Write FFileName;
+    Property AppendData : Boolean Read FAppendData Write FAppendData;
+    Property DBF : TDBF Read FDBF;
+  public
+    Property FormatSettings : TDBFExportFormatSettings Read GetSettings Write SetSettings;
+  end;
+
+  TFPDBFExport = Class(TFPCustomDBFExport)
+  Published
+    Property FileName;
+    Property Dataset;
+    Property ExportFields;
+    Property FromCurrent;
+    Property RestorePosition;
+    Property FormatSettings;
+    Property OnExportRow;
+  end;
+  
+Procedure RegisterDBFExportFormat;
+Procedure UnRegisterDBFExportFormat;
+
+Const
+  SDBFExport = 'DBF';
+  SDBFFilter = '*.dbf';
+  
+ResourceString
+  SErrFailedToDeleteFile = 'Failed to delete existing DBF file: %s';
+  SDBFDescription = 'DBF files';
+
+implementation
+
+
+{ TFPCustomDBFExport }
+
+function TFPCustomDBFExport.GetSettings: TDBFExportFormatSettings;
+begin
+  Result:=TDBFExportFormatSettings(Inherited FormatSettings);
+end;
+
+procedure TFPCustomDBFExport.SetSettings(const AValue: TDBFExportFormatSettings
+  );
+begin
+  Inherited FormatSettings.Assign(AValue);
+end;
+
+procedure TFPCustomDBFExport.CheckExportFieldNames;
+
+Var
+  I,J : Integer;
+  EF : TExportFieldItem;
+  FN : String;
+  
+begin
+  For I:=0 to ExportFields.Count-1 do
+    begin
+    EF:=ExportFields[i];
+    If (Length(EF.ExportedName)>10) then
+      begin
+      FN:=Copy(EF.ExportedName,1,10);
+      If ExportFIelds.IndexOfExportedName(FN)<>-1 then
+        begin
+        J:=1;
+        Repeat
+          FN:=Copy(EF.ExportedName,1,8)+Format('%.2d',[J]);
+        Until (ExportFIelds.IndexOfExportedName(FN)=-1);
+        end;
+      EF.ExportedName:=FN;
+      end;
+    end;
+end;
+
+function TFPCustomDBFExport.BindFields: Boolean;
+
+Const
+  Levels : Array[TTableFormat] of integer = (3,4,7,25);
+  
+Var
+  EF : TDBFExportFieldItem;
+  I : Integer;
+  
+begin
+  If FormatSettings.AutoRenameFields and (FormatSettings.TableFormat=tfDbaseIII) then
+    CheckExportFieldNames;
+  Result:=Inherited;
+  try
+    with FDBF.FieldDefs do
+      begin
+      Clear;
+      For I:=0 to ExportFields.Count-1 do
+        begin
+        EF:=ExportFIelds[i] as TDBFExportFieldItem;
+        If EF.ENabled and Assigned(EF.Field) then
+          Add(EF.ExportedName,EF.FIeld.DataType,EF.Field.Size);
+        end;
+      FDBF.TableLevel:=Levels[FormatSettings.TableFormat];
+      FDBF.CreateTable;
+      FDBF.Exclusive := true;
+      FDBF.Open;
+      end;
+    For I:=0 to ExportFields.Count-1 do
+      begin
+      EF:=ExportFIelds[i] as TDBFExportFieldItem;
+      If EF.Enabled then
+        EF.FDestField:=FDBF.FieldByName(EF.ExportedName);
+      end;
+  except
+    UnBindFields;
+    Raise;
+  end;
+end;
+
+function TFPCustomDBFExport.CreateFormatSettings: TCustomExportFormatSettings;
+begin
+  Result:=TDBFExportFormatSettings.Create(False);
+end;
+
+function TFPCustomDBFExport.CreateExportFields: TExportFields;
+begin
+  Result:=TExportFields.Create(TDBFExportFieldItem);
+end;
+
+procedure TFPCustomDBFExport.DoBeforeExecute;
+
+Var
+  FE : Boolean;
+  
+begin
+  Inherited;
+  FDBF:=TDBF.Create(Self);
+  FDBF.TableName:=FFileName;
+  FE:=FileExists(FFileName);
+  If FAppendData and FE then
+    FDBF.Open
+  else
+    begin
+    If FE and Not AppendData then
+      begin
+      If not DeleteFile(FFileName) then
+        Raise EDataExporter.CreateFmt(SErrFailedToDeleteFile,[FFileName]);
+      end;
+    end;
+end;
+
+procedure TFPCustomDBFExport.DoAfterExecute;
+begin
+  try
+    FreeAndNil(FDBF);
+  finally
+    Inherited;
+  end;
+end;
+
+procedure TFPCustomDBFExport.DoDataRowStart;
+begin
+  FDBF.Append;
+end;
+
+procedure TFPCustomDBFExport.DoDataRowEnd;
+begin
+  FDBF.Post;
+end;
+
+procedure TFPCustomDBFExport.ExportField(EF: TExportFieldItem);
+
+Var
+  F : TDBFExportFieldItem;
+  
+begin
+  F:=EF as TDBFExportFieldItem;
+  With F do
+    If FIeld.IsNull then
+      DestField.Clear
+    else If Field.Datatype in IntFieldTypes then
+      DestField.AsInteger:=Field.AsInteger
+    else if Field.dataType in [ftString,ftFixedChar] then
+      DestField.AsString:=Field.AsString
+    else if Field.DataType=ftBoolean then
+      DestField.AsBoolean:=Field.AsBoolean
+    else if (Field.DataType in ([ftWidestring,ftFixedWideChar]+BlobFieldTypes)) then
+      DestField.AsWideString:=Field.AsWideString
+    else if field.DataType in DateFieldTypes then
+      DestField.AsDatetime:=Field.AsDateTime
+    else
+      DestField.AsDatetime:=Field.AsDateTime
+end;
+
+Procedure RegisterDBFExportFormat;
+begin
+  RegisterExportFormat(SDBFExport,SDBFDescription,SDBFFilter,TFPDBFExport);
+end;
+
+Procedure UnRegisterDBFExportFormat;
+begin
+  UnregisterExportFormat(SDBFExport);
+end;
+
+{ TDBFExportFormatSettings }
+
+procedure TDBFExportFormatSettings.Assign(Source: TPersistent);
+
+Var
+  FS : TDBFExportFormatSettings;
+  
+begin
+  If Source is TDBFExportFormatSettings then
+    begin
+    FS:=Source as TDBFExportFormatSettings;
+    AutoRenameFields:=FS.AutoRenameFields;
+    TableFormat:=FS.TableFormat;
+    end;
+  inherited Assign(Source);
+end;
+
+initialization
+//Function RegisterExportFormat(Const AName,ADescription,AExtensions : String; AClass : TCustomDatasetExporterClass) : TExportFormatItem;
+  RegisterDBFExportFormat;
+end.
+

packages/fcl-db/src/export/fpfixedexport.pp

@@ -0,0 +1,210 @@
+unit fpfixedexport;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, db, fpDBExport;
+  
+  { TFixedLengthExportFieldItem }
+
+Type
+  TFixedLengthExportFieldItem = Class(TExportFieldItem)
+  private
+    FWidth: Integer;
+    FAlignField: TAlignField;
+  Public
+    Procedure Assign(Source : TPersistent); override;
+  Published
+    Property Width : Integer Read FWidth Write FWidth;
+    Property AlignField: TAlignField Read FAlignField write FAlignField;
+  end;
+
+  { TCustomFixedLengthExporter }
+
+  TCustomFixedLengthExporter = Class(TCustomFileExporter)
+  Private
+    FCurrentRow : String;
+    procedure OutputRow(const ARow: String);
+  Protected
+    Procedure BuildDefaultFieldMap(AMap : TExportFields); override;
+    Function  CreateExportFields : TExportFields; override;
+    Procedure DoBeforeExecute; override;
+    Procedure DoAfterExecute; override;
+    Procedure DoDataRowStart; override;
+    Procedure ExportField(EF : TExportFieldItem); override;
+    Procedure DoDataRowEnd; override;
+  end;
+
+  TFixedLengthExporter = Class(TCustomFixedLengthExporter)
+  Published
+    Property FileName;
+    Property Dataset;
+    Property ExportFields;
+    Property FromCurrent;
+    Property RestorePosition;
+    Property FormatSettings;
+    Property OnExportRow;
+  end;
+
+Procedure RegisterFixedExportFormat;
+Procedure UnRegisterFixedExportFormat;
+
+Const
+  SFixedLengthExport      = 'Fixed';
+  SFixedLengthExtensions  = '.txt';
+
+Resourcestring
+  SFixedLengthDescription = 'Text file with fixed length records';
+
+
+
+implementation
+
+{ TFixedLengthExportFieldItem }
+
+procedure TFixedLengthExportFieldItem.Assign(Source: TPersistent);
+
+Var
+  FL : TFixedLengthExportFieldItem;
+
+begin
+  If Source is TFixedLengthExportFieldItem then
+    begin
+    FL:=Source as TFixedLengthExportFieldItem;
+    Width:=FL.Width;
+    AlignField:=FL.AlignFIeld;
+    end;
+  inherited Assign(Source);
+end;
+
+{ TCustomFixedLengthExporter }
+
+procedure TCustomFixedLengthExporter.OutputRow(const ARow: String);
+begin
+  Writeln(TextFile,ARow);
+end;
+
+procedure TCustomFixedLengthExporter.BuildDefaultFieldMap(AMap: TExportFields);
+
+{  TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
+    ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate,  ftTime, ftDateTime,
+    ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
+    ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar,
+    ftWideString, ftLargeint, ftADT, ftArray, ftReference,
+    ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
+    ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar, ftWideMemo);
+}
+Const
+  FieldWidths : Array[TFieldType] of integer
+              = (-1,0,3,10,5,
+                  1,20,20,20,10,8,20,
+                  0,0,10,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);
+
+Var
+  I,W : Integer;
+  F : TField;
+  FL : TFixedLengthExportFieldItem;
+
+begin
+  inherited BuildDefaultFieldMap(AMap);
+  For I:=0 to AMap.Count-1 do
+    begin
+    FL:=TFixedLengthExportFieldItem(AMAP[i]);
+    F:=Dataset.Fields[i];
+    W:= FieldWidths[F.DataType];
+    If (W>0) then
+      FL.Width:=W
+    else if (W=0) then
+      begin
+      if (F.DataType in StringFieldTypes) then
+        FL.Width:=F.Size;
+      end;
+    If (F.DataType in IntFieldTypes) then
+      Fl.AlignField:=afRight;
+    end;
+end;
+
+function TCustomFixedLengthExporter.CreateExportFields: TExportFields;
+begin
+  Result:=TExportFields.Create(TFixedLengthExportFieldItem);
+end;
+
+procedure TCustomFixedLengthExporter.DoBeforeExecute;
+begin
+  inherited DoBeforeExecute;
+  OpenTextFile;
+end;
+
+procedure TCustomFixedLengthExporter.DoAfterExecute;
+begin
+  CloseTextFile;
+  inherited DoAfterExecute;
+end;
+
+
+procedure TCustomFixedLengthExporter.DoDataRowStart;
+begin
+  FCurrentRow:='';
+end;
+
+procedure TCustomFixedLengthExporter.ExportField(EF: TExportFieldItem);
+
+Var
+  S,SS : String;
+  W,L : Integer;
+  FL : TFixedLengthExportFieldItem;
+
+begin
+  S:=FormatField(EF.Field);
+  If EF is TFixedLengthExportFieldItem then
+    begin
+    FL:=TFixedLengthExportFieldItem(EF);
+    W:=FL.Width;
+    end
+  else
+    W:=Length(S);
+  L:=Length(S);
+  If L>W then
+    begin
+    If (FL.AlignField=afLeft) then
+      S:=Copy(S,1,W)
+    else
+      Delete(S,1,L-W);
+    end
+  else if (L<W) then
+    begin
+    SS:=StringOfChar(' ',W-L);
+    If FL.AlignField=afRight then
+      S:=SS+S
+    else
+      S:=S+SS;
+    end;
+  FCurrentRow:=FCurrentRow+S;
+end;
+
+procedure TCustomFixedLengthExporter.DoDataRowEnd;
+begin
+  OutputRow(FCurrentRow);
+  FCurrentRow:='';
+end;
+
+Procedure RegisterFixedExportFormat;
+
+begin
+  ExportFormats.RegisterExportFormat(SFixedLengthExport,SFixedLengthDescription,SFixedLengthExtensions,TFixedLengthExporter);
+end;
+
+Procedure UnRegisterFixedExportFormat;
+
+begin
+  Exportformats.UnregisterExportFormat(SFixedLengthExport);
+end;
+
+end.
+

packages/fcl-db/src/export/fpsimplejsonexport.pp

@@ -0,0 +1,278 @@
+unit fpsimplejsonexport;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, DB, fpDBExport;
+  
+Type
+  TJSONRowFormat = (rfArray,rfObject);
+  TJSONColumnFormat = (cfObject,cfArray);
+
+  { TSimpleJSONFormatSettings }
+
+  TSimpleJSONFormatSettings = Class(TExportFormatSettings)
+  private
+    FColumnFormat: TJSONColumnFormat;
+    FIndentSize: Integer;
+    FRowElementName: String;
+    FRowFormat: TJSONRowFormat;
+  Public
+    Procedure Assign(Source : TPersistent); override;
+  Published
+    Property RowElementName : String Read FRowElementName Write FRowElementName;
+    Property RowFormat : TJSONRowFormat Read FRowFormat Write FRowFormat;
+    Property ColumnFormat : TJSONColumnFormat Read FColumnFormat Write FColumnFormat;
+    Property IndentSize : Integer Read FIndentSize Write FIndentSize;
+  end;
+
+  { TCustomSimpleJSONExporter }
+
+  TCustomSimpleJSONExporter = Class(TCustomFileExporter)
+  Private
+    FCurrentRow : String;
+    FIndent : String;
+    FIS : Integer;
+    FREN : String;
+    FCF : TJSONColumnFormat;
+    FRF : TJSONRowFormat;
+    FRC : Int64;
+    procedure DecIndent;
+    function GetJSONFormatsettings: TSimpleJSONFormatSettings;
+    procedure IncIndent;
+    procedure OutputRow(const ARow: String);
+    procedure SetJSONFormatSettings(const AValue: TSimpleJSONFormatSettings);
+    function TextString(S: String): String;
+  Protected
+    Function  CreateFormatSettings : TCustomExportFormatSettings; override;
+    Procedure DoBeforeExecute; override;
+    Procedure DoAfterExecute; override;
+    Procedure DoDataRowStart; override;
+    Procedure DoDataHeader; override;
+    Procedure DoDataFooter; override;
+    Procedure ExportField(EF : TExportFieldItem); override;
+    Procedure DoDataRowEnd; override;
+  Public
+    Property FormatSettings : TSimpleJSONFormatSettings Read GetJSONFormatsettings Write SetJSONFormatSettings;
+  end;
+
+  TSimpleJSONExporter = Class(TCustomSimpleJSONExporter)
+  Published
+    Property FileName;
+    Property Dataset;
+    Property ExportFields;
+    Property FromCurrent;
+    Property RestorePosition;
+    Property FormatSettings;
+    Property OnExportRow;
+  end;
+
+Procedure RegisterSimpleJSONExportFormat;
+Procedure UnRegisterSimpleJSONExportFormat;
+
+Const
+  SSimpleJSON            = 'SimpleJSON';
+  SSimpleJSONExtensions  = '.json';
+  
+Resourcestring
+  SSimpleJSONDescription = 'Simple ASCII JSON file';
+
+implementation
+
+
+{ TSimpleJSONFormatSettings }
+
+procedure TSimpleJSONFormatSettings.Assign(Source: TPersistent);
+
+Var
+  FS : TSimpleJSONFormatSettings;
+
+begin
+  if (Source is TSimpleJSONFormatSettings) then
+    begin
+    FS:=Source as TSimpleJSONFormatSettings;
+    FColumnFormat:=FS.FColumnFormat;
+    FRowElementName:=FS.FRowElementName;
+    FRowFormat:=FS.FRowFormat;
+    FIndentSize:=FS.IndentSize;
+    end;
+  inherited Assign(Source);
+end;
+
+{ TCustomSimpleJSONExporter }
+
+procedure TCustomSimpleJSONExporter.DecIndent;
+begin
+  If (FIS>0) and (length(FIndent)>=FIS) then
+    Delete(FIndent,1,FIS);
+end;
+
+function TCustomSimpleJSONExporter.GetJSONFormatsettings: TSimpleJSONFormatSettings;
+begin
+  Result:=TSimpleJSONFormatSettings(Inherited formatsettings)
+end;
+
+procedure TCustomSimpleJSONExporter.IncIndent;
+begin
+  If FIS>0 then
+    FIndent:=FIndent+StringOfChar(' ',FIS);
+end;
+
+procedure TCustomSimpleJSONExporter.OutputRow(const ARow: String);
+begin
+  Writeln(TextFile,FIndent,ARow);
+end;
+
+procedure TCustomSimpleJSONExporter.SetJSONFormatSettings(
+  const AValue: TSimpleJSONFormatSettings);
+begin
+  Inherited FormatSettings.Assign(AValue);
+end;
+
+function TCustomSimpleJSONExporter.TextString(S: String): String;
+
+Var
+  I,J,L : Integer;
+  P : Pchar;
+
+begin
+  I:=1;
+  J:=1;
+  Result:='';
+  L:=Length(S);
+  P:=PChar(S);
+  While I<=L do
+    begin
+    if (P^ in ['"','/','\',#8,#9,#10,#12,#13]) then
+      begin
+      Result:=Result+Copy(S,J,I-J);
+      Case P^ of
+        '\' : Result:=Result+'\\';
+        '/' : Result:=Result+'\/';
+        '"' : Result:=Result+'\"';
+        #8  : Result:=Result+'\b';
+        #9  : Result:=Result+'\t';
+        #10 : Result:=Result+'\n';
+        #12 : Result:=Result+'\f';
+        #13 : Result:=Result+'\r';
+      end;
+      J:=I+1;
+      end;
+    Inc(I);
+    Inc(P);
+    end;
+  Result:=Result+Copy(S,J,I-1);
+end;
+
+function TCustomSimpleJSONExporter.CreateFormatSettings: TCustomExportFormatSettings;
+begin
+  Result:=TSimpleJSONFormatSettings.Create(False);
+end;
+
+procedure TCustomSimpleJSONExporter.DoBeforeExecute;
+begin
+  inherited DoBeforeExecute;
+  OpenTextFile;
+  FREN:=FormatSettings.RowElementName;
+  FRF:=FormatSettings.RowFormat;
+  FCF:=FormatSettings.ColumnFormat;
+  If (FREN='') and (FRF=rfObject) then
+    FREN:='ROW';
+  FIS:=FormatSettings.IndentSize;
+  FIndent:='';
+  FRC:=0;
+end;
+
+procedure TCustomSimpleJSONExporter.DoAfterExecute;
+begin
+  CloseTextFile;
+  inherited DoAfterExecute;
+end;
+
+procedure TCustomSimpleJSONExporter.DoDataRowStart;
+begin
+  Inc(FRC);
+  FCurrentRow:='';
+end;
+
+procedure TCustomSimpleJSONExporter.DoDataHeader;
+begin
+  If FRF=rfObject then
+    OutputRow('{')
+  else
+    OutputRow('[');
+  IncIndent;
+end;
+
+procedure TCustomSimpleJSONExporter.DoDataFooter;
+begin
+  DecIndent;
+  If FRF=rfObject then
+    OutputRow('}')
+  else
+    OutputRow(']');
+end;
+
+procedure TCustomSimpleJSONExporter.ExportField(EF: TExportFieldItem);
+
+Var
+  S : String;
+
+begin
+  if EF.Field.IsNull then
+    S:='NULL' // do not localize
+  else if EF.Field.DataType=ftBoolean then
+    begin
+    If EF.FIeld.AsBoolean then
+      S:='True' // Do not localize
+    else
+      S:='False';// Do not localize
+    end
+  else if EF.Field.DataType=ftFloat then
+    Str(EF.FIeld.asFloat,S)
+  else
+    S:=FormatField(EF.Field);
+  if not (EF.Field.isnull or (ef.field.Datatype in (ordFieldTypes+[ftFloat]))) then
+    S:='"'+TextString(S)+'"';
+  If FCF=cfObject then
+    S:='"'+EF.ExportedName+'" : '+S;
+  If (FCurrentRow<>'') then
+    if FCF=cfObject then
+      FCurrentRow:=FCurrentRow+'; '
+    else
+      FCurrentRow:=FCurrentRow+', ';
+  FCurrentRow:=FCurrentRow+S;
+end;
+
+procedure TCustomSimpleJSONExporter.DoDataRowEnd;
+
+begin
+  If FcF=cfObject then
+    FCurrentRow:='{ '+FCurrentRow+' }'
+  else
+    FCurrentRow:='[ '+FCurrentRow+' ]';
+  If FRF = rfObject then
+    FCurrentRow:=Format('"%s%d" : %s',[FREN,FRC,FCurrentRow]);
+  if not Dataset.EOF then
+    If FRF=rfObject then
+      FCurrentRow:=FCurrentRow+';'
+    else
+      FCurrentRow:=FCurrentRow+',';
+  OutputRow(FCurrentRow);
+end;
+
+Procedure RegisterSimpleJSONExportFormat;
+
+begin
+  ExportFormats.RegisterExportFormat(SSimpleJSON,SSimpleJSONDescription,SSimpleJSONExtensions,TSimpleJSONExporter);
+end;
+Procedure UnRegisterSimpleJSONExportFormat;
+
+begin
+  ExportFormats.UnRegisterExportFormat(SSimpleJSON);
+end;
+
+end.
+

packages/fcl-db/src/export/fpsimplexmlexport.pp

@@ -0,0 +1,313 @@
+unit fpSimpleXMLExport;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, DB, fpDBExport;
+  
+Type
+  { TSimpleXMLFormatSettings }
+
+  TSimpleXMLFormatSettings = Class(TExportFormatSettings)
+  private
+    FFieldAsAttribute: Boolean;
+    FIndentSize: Integer;
+    FRowElementName: String;
+    FStartNodePath: String;
+  Public
+    Procedure Assign(Source : TPersistent); override;
+  Published
+    Property StartNodePath : String Read FStartNodePath Write FStartNodePath;
+    Property RowElementName : String Read FRowElementName Write FRowElementName;
+    Property FieldAsAttributes : Boolean Read FFieldAsAttribute Write FFieldAsAttribute;
+    Property IndentSize : Integer Read FIndentSize Write FIndentSize;
+  end;
+
+  { TCustomSimpleXMlExporter }
+  TCustomSimpleXMLExporter = Class(TCustomFileExporter)
+  Private
+    FCurrentRow : String;
+    FIndent : String;
+    FRowElementName : String;
+    FRootNode : String;
+    FAA : Boolean;
+    FIS : Integer;
+    function AttrString(S: String): String;
+    procedure DecIndent;
+    function GetXMLFormatsettings: TSimpleXMLFormatSettings;
+    procedure IncIndent;
+    procedure OutputRow(const ARow: String);
+    procedure SetXMLFormatSettings(const AValue: TSimpleXMLFormatSettings);
+    function TextString(S: String): String;
+  Protected
+    Function  CreateFormatSettings : TCustomExportFormatSettings; override;
+    Procedure DoBeforeExecute; override;
+    Procedure DoAfterExecute; override;
+    Procedure DoDataRowStart; override;
+    Procedure DoDataHeader; override;
+    Procedure DoDataFooter; override;
+    Procedure ExportField(EF : TExportFieldItem); override;
+    Procedure DoDataRowEnd; override;
+  Public
+    Property FormatSettings : TSimpleXMLFormatSettings Read GetXMLFormatsettings Write SetXMLFormatSettings;
+  end;
+
+  TSimpleXMLExporter = Class(TCustomSimpleXMLExporter)
+  Published
+    Property FileName;
+    Property Dataset;
+    Property ExportFields;
+    Property FromCurrent;
+    Property RestorePosition;
+    Property FormatSettings;
+    Property OnExportRow;
+  end;
+
+Procedure RegisterSimpleXMLExportFormat;
+Procedure UnRegisterSimpleXMLExportFormat;
+
+Const
+  SSimpleXML             = 'SimpleXml';
+  SSimpleXMLExtensions   = '.xml';
+
+Resourcestring
+  SSimpleXMLDescription = 'Simple ASCII XML file';
+
+implementation
+
+{ TCustomSimpleXMLExporter }
+
+procedure TCustomSimpleXMLExporter.OutputRow(const ARow: String);
+begin
+  Writeln(TextFile,FIndent,ARow);
+end;
+
+function TCustomSimpleXMLExporter.GetXMLFormatsettings: TSimpleXMLFormatSettings;
+begin
+  Result:=TSimpleXMLFormatSettings(Inherited FormatSettings);
+end;
+
+procedure TCustomSimpleXMLExporter.SetXMLFormatSettings(
+  const AValue: TSimpleXMLFormatSettings);
+begin
+   Inherited FormatSettings:=AValue;
+end;
+
+function TCustomSimpleXMLExporter.CreateFormatSettings: TCustomExportFormatSettings;
+begin
+  Result:=TSimpleXMLFormatSettings.Create(False);
+end;
+
+procedure TCustomSimpleXMLExporter.DoBeforeExecute;
+begin
+  inherited DoBeforeExecute;
+  OpenTextFile;
+  FRowElementName:=FormatSettings.RowElementName;
+  If FRowElementname='' then
+    FRowElementName:='ROW';
+  FRootNode:=Formatsettings.StartNodePath;
+  If (FRootNode='') or (FRootNode='/')then
+    FRootNode:='/ROWDATA/';
+  FIS:=FormatSettings.IndentSize;
+  FAA:=Formatsettings.FieldAsAttributes;
+  FIndent:='';
+end;
+
+procedure TCustomSimpleXMLExporter.DoAfterExecute;
+begin
+  CloseTextFile;
+  inherited DoAfterExecute;
+end;
+
+procedure TCustomSimpleXMLExporter.DoDataRowStart;
+begin
+  If FAA then
+    FCurrentRow:='<'+FRowElementName
+  else
+    begin
+    FCurrentRow:='';
+    OutputRow('<'+FRowElementName+'>');
+    IncIndent;
+    end;
+end;
+
+const
+  QuotStr = '&quot;';
+  AmpStr = '&amp;';
+  ltStr = '&lt;';
+  gtStr = '&gt;';
+
+Procedure AddToResult(Var Res : String; S : String; P : integer; Var J : Integer; Const Add : String);
+
+begin
+  Res:=Res+Copy(S,J,P-J+1);
+  If (Add<>'') then
+    Res:=Res+Add;
+  J:=P+1;
+end;
+
+Function TCustomSimpleXMLExporter.AttrString(S : String) : String;
+
+Var
+  I,J : Integer;
+
+
+begin
+  Result:='';
+  J:=1;
+  For I:=1 to Length(S) do
+    case S[i] of
+      '"': AddToResult(Result,S,I,J,QuotStr);
+      '&': AddToResult(Result,S,I,J,AmpStr);
+      '<': AddToResult(Result,S,I,J,ltStr);
+      #9 : AddToResult(Result,S,I,J,'&#x9;');
+      #10: AddToResult(Result,S,I,J,'&#xA;');
+      #13: AddToResult(Result,S,I,J,'&#xD;');
+    end;
+  AddToResult(Result,S,Length(S)+1,J,'');
+end;
+
+Function TCustomSimpleXMLExporter.TextString(S : String) : String;
+
+
+Var
+  I,J : Integer;
+
+begin
+  Result:='';
+  J:=1;
+  For I:=1 to Length(S) do
+    case S[i] of
+      '<': AddToResult(Result,S,I,J,ltStr);
+      '>': AddToResult(Result,S,I,J,gtStr);
+      '&': AddToResult(Result,S,I,J,AmpStr);
+    end;
+  AddToResult(Result,S,Length(S)+1,J,'');
+end;
+
+procedure TCustomSimpleXMLExporter.IncIndent;
+
+begin
+  If FIS>0 then
+    FIndent:=FIndent+StringOfChar(' ',FIS);
+end;
+
+procedure TCustomSimpleXMLExporter.DecIndent;
+
+begin
+  If (FIS>0) and (length(FIndent)>=FIS) then
+    Delete(FIndent,1,FIS);
+end;
+
+procedure TCustomSimpleXMLExporter.DoDataHeader;
+
+Var
+  S : String;
+  P : Integer;
+
+begin
+  // Proper UTF-8 support would be good.
+  Writeln(TextFile,'<?xml version="1.0" encoding = "ISO 8859-1" ?>');
+  S:=FRootNode;
+  if S[Length(S)]<>'/' then
+    S:=S+'/';
+  If (S[1]='/') then
+    Delete(S,1,1);
+  Repeat
+    P:=Pos('/',S);
+    OutputRow('<'+Copy(S,1,P-1)+'>');
+    Delete(S,1,P);
+    IncIndent;
+  Until (S='');
+end;
+
+procedure TCustomSimpleXMLExporter.DoDataFooter;
+
+Var
+  P,L : Integer;
+  S : String;
+
+begin
+  S:=FRootNode;
+  if (S[1]<>'/') then
+    S:='/'+S;
+  L:=Length(S);
+  If (S[L]='/') then
+    S:=Copy(S,1,L-1);
+  Repeat
+    L:=Length(S);
+    P:=L;
+    While (P>0) and (S[P]<>'/') do
+      Dec(P);
+    DecIndent;
+    OutputRow('</'+Copy(S,P+1,L-P)+'>');
+    S:=Copy(S,1,P-1);
+  Until (S='');
+  inherited DoDataFooter;
+end;
+
+procedure TCustomSimpleXMLExporter.ExportField(EF: TExportFieldItem);
+
+Var
+  S : String;
+
+begin
+  S:=FormatField(EF.Field);
+  If FormatSettings.FieldAsAttributes then
+    FCurrentRow:=FCurrentRow+' '+EF.ExportedName+'="'+AttrString(S)+'"'
+  else
+    begin
+    FCurrentRow:='<'+EF.ExportedName+'>'+TextString(S)+'</'+EF.ExportedName+'>';
+    OutputRow(FCurrentRow);
+    end;
+end;
+
+procedure TCustomSimpleXMLExporter.DoDataRowEnd;
+
+begin
+  If FormatSettings.FieldAsAttributes then
+    OutputRow(FCurrentRow+'/>')
+  else
+    begin
+    DecIndent;
+    OutputRow('</'+FRowElementName+'>');
+    end;
+  FCurrentRow:='';
+  inherited DoDataRowEnd;
+end;
+
+{ TSimpleXMLFormatSettings }
+
+procedure TSimpleXMLFormatSettings.Assign(Source: TPersistent);
+
+Var
+  XS : TSimpleXMLFormatSettings;
+
+begin
+  If Source is TSimpleXMLFormatSettings then
+    begin
+    Xs:=TSimpleXMLFormatSettings(Source);
+    StartNodePath:=XS.StartNodePath;
+    RowElementName:=XS.RowElementName;
+    FieldAsAttributes:=XS.FieldAsAttributes;
+    IndentSize:=XS.IndentSize;
+    end;
+  inherited Assign(Source);
+end;
+
+Procedure RegisterSimpleXMLExportFormat;
+
+begin
+  ExportFormats.RegisterExportFormat(SSimpleXML,SSimpleXMLDescription,SSimpleXMLExtensions,TSimpleXMLExporter);
+end;
+
+Procedure UnRegisterSimpleXMLExportFormat;
+
+begin
+  ExportFormats.UnregisterExportFormat(SSimpleXML);
+end;
+
+end.
+

packages/fcl-db/src/export/fpsqlexport.pp

@@ -0,0 +1,309 @@
+unit fpSQLExport;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, DB, fpDBExport;
+  
+Type
+  { TSQLExportFieldItem }
+
+  TSQLExportFieldItem = Class(TExportFieldItem)
+  private
+    FKeyField: Boolean;
+  Public
+    Procedure Assign(Source : TPersistent); override;
+  Published
+    Property KeyField : Boolean Read FKeyField Write FKeyField;
+  end;
+
+  TSQLEscapeStyle = (sesFirebird,sesMySQL);
+  TSQLStatementKind = (skInsert,skFullInsert,skUpdate);
+  { TSQLFormatSettings }
+
+  TSQLFormatSettings = class(TExportFormatSettings)
+  private
+    FEscapeStyle: TSQLEscapeStyle;
+    FQuoteChar: String;
+    FQuoteIdentifiers: Boolean;
+    FStatementKind: TSQLStatementKind;
+    FTableName: String;
+  Public
+    Procedure Assign(Source : TPersistent); override;
+  Published
+    Property EscapeStyle : TSQLEscapeStyle Read FEscapeStyle Write FEscapeStyle;
+    Property StatementKind : TSQLStatementKind Read FStatementKind Write FStatementKind;
+    Property QuoteIdentifiers : Boolean Read FQuoteIdentifiers Write FQuoteIdentifiers;
+    Property QuoteChar : String Read FQuoteChar Write FQuoteChar;
+    Property TableName : String Read FTableName Write FTableName;
+  end;
+
+  { TCustomSQLExporter }
+
+  TCustomSQLExporter = Class(TCustomFileExporter)
+  private
+    FES : TSQLEscapeStyle;
+    FQI : Boolean;
+    FTN : String;
+    FSK : TSQLStatementKind;
+    FQC : String;
+    FUS : Boolean;
+    FCurrentRow : String;
+    function GetSQLFormatsettings: TSQLFormatSettings;
+    function QuoteField(const S: String): String;
+    function SQLValue(F: TField): String;
+    procedure SetSQLFormatSettings(const AValue: TSQLFormatSettings);
+  Protected
+    Function CreateFormatSettings : TCustomExportFormatSettings; override;
+    Function  CreateExportFields : TExportFields; override;
+    Procedure DoBeforeExecute; override;
+    Procedure DoAfterExecute; override;
+    Procedure DoDataRowStart; override;
+    Procedure ExportField(EF : TExportFieldItem); override;
+    Procedure DoDataRowEnd; override;
+    Function MaybeQuote(Const S : String) : String;
+    Procedure OutputRow(Const ARow : String);
+  Public
+    Property FormatSettings : TSQLFormatSettings Read GetSQLFormatsettings Write SetSQLFormatSettings;
+  end;
+
+  TSQLExporter = Class(TCustomSQLExporter)
+  Published
+    Property FileName;
+    Property Dataset;
+    Property ExportFields;
+    Property FromCurrent;
+    Property RestorePosition;
+    Property FormatSettings;
+    Property OnExportRow;
+  end;
+
+Procedure RegisterSQLExportFormat;
+Procedure UnRegisterSQLExportFormat;
+
+Const
+  SSQLExport     = 'SQL';
+  SSQLExtensions = '.sql';
+  
+Resourcestring
+  SSQLDescription         = 'SQL INSERT/Update Statements';
+  SErrMissingTableName    = 'No tablename set for SQL Export';
+  SErrNoKeyFieldForUpdate = 'No key fields defined for update statement in SQL export';
+
+implementation
+
+{ TSQLFormatSettings }
+
+procedure TSQLFormatSettings.Assign(Source: TPersistent);
+
+Var
+  FS : TSQLFormatSettings;
+
+begin
+  if (Source is TSQLFormatSettings) then
+    begin
+    FS:=(Source as TSQLFormatSettings);
+    EscapeStyle:=FS.EscapeStyle;
+    StatementKind:=FS.StatementKind;
+    QuoteIdentifiers:=FS.QuoteIdentifiers;
+    QuoteChar:=FS.QuoteChar;
+    TableName:=FS.TableName;
+    end;
+  inherited Assign(Source);
+end;
+
+{ TCustomSQLExporter }
+
+function TCustomSQLExporter.GetSQLFormatsettings: TSQLFormatSettings;
+begin
+  Result:=TSQLFormatSettings(Inherited Formatsettings);
+end;
+
+procedure TCustomSQLExporter.SetSQLFormatSettings(
+  const AValue: TSQLFormatSettings);
+begin
+  Inherited FormatSettings:=AValue;
+end;
+
+function TCustomSQLExporter.CreateFormatSettings: TCustomExportFormatSettings;
+begin
+  Result:=TSQLFOrmatSettings.Create(False);
+end;
+
+function TCustomSQLExporter.CreateExportFields: TExportFields;
+begin
+  Result:=TExportFields.Create(TSQLExportFieldItem);
+end;
+
+procedure TCustomSQLExporter.DoBeforeExecute;
+
+Var
+  OK : Boolean;
+  I : Integer;
+
+begin
+  If (FormatSettings.TableName='') then
+    ExportError(SErrMissingTableName);
+  if (FormatSettings.StatementKind=skUpdate) then
+    begin
+    OK:=False;
+    I:=0;
+    While (I<ExportFields.Count) and Not OK do
+      begin
+      OK:=TSQLExportFieldItem(ExportFields[i]).KeyField;
+      Inc(I);
+      end;
+    If Not OK then
+      ExportError(SErrNoKeyFieldForUpdate);
+    end;
+  inherited DoBeforeExecute;
+  OpenTextFile;
+  FES:=FormatSettings.EscapeStyle;
+  FQI:=FormatSettings.QuoteIdentifiers;
+  FTN:=FormatSettings.TableName;
+  FSK:=FormatSettings.StatementKind;
+  FQC:=FormatSettings.QuoteChar;
+end;
+
+procedure TCustomSQLExporter.DoAfterExecute;
+begin
+  CloseTextFile;
+  inherited DoAfterExecute;
+end;
+
+procedure TCustomSQLExporter.DoDataRowStart;
+begin
+  FCurrentRow:=''
+end;
+
+function TCustomSQLExporter.QuoteField (Const S : String) : String;
+
+begin
+  If FES=sesFirebird then
+    Result:=StringReplace(S,'''','''''',[rfReplaceAll])
+  else
+    Result:=StringReplace(S,'''','\''',[rfReplaceAll]);
+end;
+
+Function TCustomSQLExporter.SQLValue(F : TField) : String;
+
+begin
+  Result:=FormatField(F);
+  If (F.DataType in StringFieldTypes+DateFieldTypes) then
+    Result:=''''+QuoteFIeld(Result)+'''';
+end;
+
+procedure TCustomSQLExporter.ExportField(EF: TExportFieldItem);
+
+Var
+  S : string;
+
+begin
+  If (FSK<>skUpdate) or (Not TSQLExportFieldItem(EF).KeyField) then
+    begin
+    If (FCurrentRow<>'') then
+      FCurrentRow:=FcurrentRow+', ';
+    S:=SQLValue(EF.FIeld);
+    If FSK<>skUpdate then
+      FCurrentRow:=FCurrentRow+S
+    else
+      FCurrentRow:=FCurrentRow+MaybeQuote(EF.ExportedName)+'='+S;
+    end;
+end;
+
+function TCustomSQLExporter.MaybeQuote (Const S : String) : String;
+
+begin
+  Result:=S;
+  If FQI then
+    Result:=FQC+Result+FQC;
+end;
+
+procedure TCustomSQLExporter.OutputRow(const ARow: String);
+begin
+  Writeln(TextFile,ARow);
+end;
+
+procedure TCustomSQLExporter.DoDataRowEnd;
+
+Var
+  S,T : String;
+  I   : Integer;
+  EF  : TExportFieldItem;
+
+begin
+  If FSK<>skUpdate then
+    begin
+    S:='INSERT INTO '+MaybeQuote(FTN);
+    If FSK=skFullInsert then
+      begin
+      S:=S+' (';
+      T:='';
+      For I:=0 to ExportFields.Count-1 do
+        begin
+        EF:=ExportFields[i];
+        If EF.Enabled then
+          begin
+          If (T<>'') then
+            T:=T+', ';
+          T:=T+MaybeQuote(EF.ExportedName);
+          end;
+        end;
+      S:=S+T+')';
+      OutputRow(S);
+      S:=''
+      end;
+    S:=S+' VALUES ('+FCurrentRow+');';
+    end
+  else
+    begin
+    S:='UPDATE '+MaybeQuote(FTN)+' SET '+FCurrentRow;
+    OutputRow(S);
+    S:='(';
+    For I:=0 to ExportFields.Count-1 do
+      begin
+      EF:=ExportFields[i];
+      If TSQLExportFieldItem(EF).KeyField then
+        begin
+        If (S<>'(') then
+          S:=S+') AND (';
+        S:=S+MaybeQuote(EF.ExportedName)+' = '+SQLValue(EF.Field);
+        end;
+      end;
+    S:=' WHERE '+S+');';
+    end;
+  OutputRow(S);
+end;
+
+{ TSQLExportFieldItem }
+
+procedure TSQLExportFieldItem.Assign(Source: TPersistent);
+
+Var
+  FI : TSQLExportFieldItem;
+
+begin
+  If Source is TSQLExportFieldItem then
+    begin
+    FI:=Source as TSQLExportFieldItem;
+    KeyField:=FI.KeyField;
+    end;
+  inherited Assign(Source);
+end;
+
+Procedure RegisterSQLExportFormat;
+
+begin
+  ExportFormats.RegisterExportFormat(SSQLExport,SSQLDescription,SSQLExtensions,TSQLExporter);
+end;
+
+Procedure UnRegisterSQLExportFormat;
+
+begin
+  ExportFormats.UnRegisterExportFormat(SSQLExport);
+end;
+
+end.
+

packages/fcl-db/src/export/fpstdexports.pp

@@ -0,0 +1,166 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2007 by Michael Van Canneyt, member of the
+    Free Pascal development team
+
+    Standard export formats registration.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+{
+  This unit has a routine and a component to register standard distributed
+  export formats in an application. The Component version is meant for
+  use in Lazarus: Drop it on a form, set the formats you want to see
+  registered, and set active to true. When the form is created a run-time,
+  the selected formats will be registered.
+  
+  The simple call takes an optional single argument, a set which tells
+  the call which formats to register. If none is specified, all formats
+  are registered.
+
+}
+unit fpstdexports;
+
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, fpDBExport;
+  
+Type
+  TStdExportformat = (sefCSV,sefFixedLength,sefSimpleXMl,sefSimpleJSON,sefSQL,sefDBF);
+  TStdExportformats = Set of TStdExportFormat;
+
+Const
+  AllStdExportFormats = [sefCSV,sefFixedLength,sefSimpleXMl,sefSimpleJSON,sefSQL,sefDBF];
+
+Type
+
+  { TStandardExportFormats }
+
+  TStandardExportFormats = Class(TComponent)
+  private
+    FActive: Boolean;
+    FFormats: TStdExportFormats;
+    FRegistered : TStdExportFormats;
+    procedure SetActive(const AValue: Boolean);
+  Protected
+    Procedure Loaded; override;
+    Procedure DoRegister;
+    Procedure DoUnregister;
+  Public
+    Constructor Create(AOwner : TComponent); override;
+  Published
+    Property Active : Boolean Read FActive Write SetActive;
+    Property Formats : TStdExportFormats Read FFormats Write FFormats Default AllStdExportFormats;
+  end;
+  
+Function RegisterStdFormats(Fmts : TStdExportFormats) : TStdExportFormats; overload;
+Function RegisterStdFormats : TStdExportFormats; overload;
+Function UnRegisterStdFormats(Fmts : TStdExportFormats) : TStdExportFormats;
+
+implementation
+
+uses
+  fpcsvexport,
+  fpfixedexport,
+  fpsimplexmlexport,
+  fpsimplejsonexport,
+  fpsqlexport,
+  fpdbfexport;
+
+Const
+  StdExportNames : Array[TStdExportFormat] of string
+                 = (SCSVExport,SFixedLengthExport,SSimpleXML,
+                    SSimpleJSON,SSQLExport,SDBFExport);
+  StdExportRegProcs : Array[TStdExportFormat] of Procedure
+                 = (@RegisterCSVExportFormat,@RegisterFixedExportFormat,@RegisterSimpleXMLExportFormat,
+                    @RegisterSimpleJSONExportFormat,@RegisterSQLExportFormat,@RegisterDBFExportFormat);
+  StdExportUnRegProcs : Array[TStdExportFormat] of Procedure
+                 = (@UnRegisterCSVExportFormat,@UNRegisterFixedExportFormat,@UnRegisterSimpleXMLExportFormat,
+                    @UnRegisterSimpleJSONExportFormat,@UnRegisterSQLExportFormat,@UnRegisterDBFExportFormat);
+
+Function RegisterStdFormats : TStdExportFormats;
+
+begin
+  Result:=RegisterStdFormats(AllStdExportFormats);
+end;
+
+
+function RegisterStdFormats(Fmts: TStdExportFormats): TStdExportFormats;
+
+Var
+  F : TStdExportFormat;
+
+begin
+  Result:=[];
+  For F:=Low(TStdExportFormat) to High(TStdExportFormat) do
+    If (F in Fmts) and (ExportFormats.IndexOfFormat(StdExportNames[f])=-1) then
+      begin
+      StdExportRegProcs[f];
+      Include(Result,F);
+      end;
+end;
+
+function UnRegisterStdFormats(Fmts: TStdExportFormats): TStdExportFormats;
+
+Var
+  F : TStdExportFormat;
+
+begin
+  Result:=[];
+  For F:=Low(TStdExportFormat) to High(TStdExportFormat) do
+    If (F in Fmts) and (ExportFormats.IndexOfFormat(StdExportNames[f])<>-1) then
+      begin
+      StdExportUnRegProcs[f];
+      Include(Result,F);
+      end;
+
+end;
+
+{ TStandardExportFormats }
+
+procedure TStandardExportFormats.SetActive(const AValue: Boolean);
+begin
+  if FActive=AValue then
+    exit;
+  FActive:=AValue;
+  If Not (csLoading in ComponentState) then
+    If Active then
+      DoRegister
+    else
+      DoUnregister;
+end;
+
+procedure TStandardExportFormats.Loaded;
+begin
+  If FActive then
+    DoRegister;
+end;
+
+procedure TStandardExportFormats.DoRegister;
+begin
+  FRegistered:=RegisterSTdFormats(FFormats);
+end;
+
+procedure TStandardExportFormats.DoUnRegister;
+begin
+  FRegistered:=RegisterSTdFormats(FRegistered);
+end;
+
+constructor TStandardExportFormats.Create(AOwner: TComponent);
+begin
+  Inherited;
+  FFormats:=AllStdExportFormats;
+end;
+
+end.
+