+ Initial implementation

fcl/db/sdf/Makefile

@@ -0,0 +1,1437 @@
+#
+# Don't edit, this file is generated by FPCMake Version 1.1 [2003/09/24]
+#
+default: all
+MAKEFILETARGETS=linux go32v2 win32 os2 freebsd beos netbsd amiga atari sunos qnx netware openbsd wdosx palmos macos darwin emx
+override PATH:=$(subst \,/,$(PATH))
+ifeq ($(findstring ;,$(PATH)),)
+inUnix=1
+SEARCHPATH:=$(filter-out .,$(subst :, ,$(PATH)))
+else
+SEARCHPATH:=$(subst ;, ,$(PATH))
+endif
+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
+ifeq ($(OS_TARGET),freebsd)
+BSDhier=1
+endif
+ifeq ($(OS_TARGET),netbsd)
+BSDhier=1
+endif
+ifeq ($(OS_TARGET),openbsd)
+BSDhier=1
+endif
+ifdef inUnix
+BATCHEXT=.sh
+else
+ifdef inOS2
+BATCHEXT=.cmd
+else
+BATCHEXT=.bat
+endif
+endif
+ifdef inUnix
+PATHSEP=/
+else
+PATHSEP:=$(subst /,\,/)
+ifdef inCygWin
+PATHSEP=/
+endif
+endif
+ifdef PWD
+BASEDIR:=$(subst \,/,$(shell $(PWD)))
+ifdef inCygWin
+ifneq ($(findstring /cygdrive/,$(BASEDIR)),)
+BASENODIR:=$(patsubst /cygdrive%,%,$(BASEDIR))
+BASEDRIVE:=$(firstword $(subst /, ,$(BASENODIR)))
+BASEDIR:=$(subst /cygdrive/$(BASEDRIVE)/,$(BASEDRIVE):/,$(BASEDIR))
+endif
+endif
+else
+BASEDIR=.
+endif
+ifdef inOS2
+ifndef ECHO
+ECHO:=$(strip $(wildcard $(addsuffix /gecho$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO=echo
+else
+ECHO:=$(firstword $(ECHO))
+endif
+else
+ECHO:=$(firstword $(ECHO))
+endif
+endif
+export ECHO
+endif
+override DEFAULT_FPCDIR=../../..
+ifndef FPC
+ifdef PP
+FPC=$(PP)
+endif
+endif
+ifndef FPC
+FPCPROG:=$(strip $(wildcard $(addsuffix /fpc$(SRCEXEEXT),$(SEARCHPATH))))
+ifneq ($(FPCPROG),)
+FPCPROG:=$(firstword $(FPCPROG))
+FPC:=$(shell $(FPCPROG) -PB)
+ifneq ($(findstring Error,$(FPC)),)
+override FPC=ppc386
+endif
+else
+override FPC=ppc386
+endif
+endif
+override FPC:=$(subst $(SRCEXEEXT),,$(FPC))
+override FPC:=$(subst \,/,$(FPC))$(SRCEXEEXT)
+ifndef FPC_VERSION
+FPC_COMPILERINFO:=$(shell $(FPC) -iVSPTPSOTO)
+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 ($(FULL_TARGET),$(FULL_SOURCE))
+CROSSCOMPILE=1
+endif
+ifeq ($(findstring makefile,$(MAKECMDGOALS)),)
+ifeq ($(findstring $(OS_TARGET),$(MAKEFILETARGETS)),)
+$(error The Makefile doesn't support target $(OS_TARGET), please run fpcmake first)
+endif
+endif
+export OS_TARGET OS_SOURCE CPU_TARGET CPU_SOURCE FULL_TARGET FULL_SOURCE 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=c:/pp
+endif
+endif
+endif
+endif
+ifndef CROSSDIR
+CROSSDIR:=$(FPCDIR)/cross/$(FULL_TARGET)
+endif
+ifndef CROSSTARGETDIR
+CROSSTARGETDIR=$(CROSSDIR)/$(FULL_TARGET)
+endif
+ifdef CROSSCOMPILE
+UNITSDIR:=$(wildcard $(CROSSTARGETDIR)/units)
+ifeq ($(UNITSDIR),)
+UNITSDIR:=$(wildcard $(FPCDIR)/units/$(OS_TARGET))
+endif
+else
+UNITSDIR:=$(wildcard $(FPCDIR)/units/$(OS_TARGET))
+endif
+PACKAGESDIR:=$(wildcard $(FPCDIR) $(FPCDIR)/packages/base $(FPCDIR)/packages/extra)
+override PACKAGE_NAME=fcl
+override TARGET_UNITS+=sdfdata
+override TARGET_EXAMPLES+=testsdf testfix
+override INSTALL_FPCPACKAGE=y
+override COMPILER_TARGETDIR+=../../$(OS_TARGET)
+ifdef REQUIRE_UNITSDIR
+override UNITSDIR+=$(REQUIRE_UNITSDIR)
+endif
+ifdef REQUIRE_PACKAGESDIR
+override PACKAGESDIR+=$(REQUIRE_PACKAGESDIR)
+endif
+ifdef ZIPINSTALL
+ifeq ($(OS_TARGET),linux)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_TARGET),freebsd)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_TARGET),netbsd)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_TARGET),openbsd)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_TARGET),sunos)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_TARGET),qnx)
+UNIXINSTALLDIR=1
+endif
+else
+ifeq ($(OS_SOURCE),linux)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_SOURCE),freebsd)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_SOURCE),netbsd)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_SOURCE),openbsd)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_TARGET),sunos)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_TARGET),qnx)
+UNIXINSTALLDIR=1
+endif
+endif
+ifndef INSTALL_PREFIX
+ifdef PREFIX
+INSTALL_PREFIX=$(PREFIX)
+endif
+endif
+ifndef INSTALL_PREFIX
+ifdef UNIXINSTALLDIR
+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 INSTALL_BASEDIR
+ifdef UNIXINSTALLDIR
+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 UNIXINSTALLDIR
+INSTALL_BINDIR:=$(INSTALL_PREFIX)/bin
+else
+INSTALL_BINDIR:=$(INSTALL_BASEDIR)/bin
+ifdef INSTALL_FPCPACKAGE
+INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(OS_TARGET)
+endif
+endif
+endif
+ifndef INSTALL_UNITDIR
+ifdef CROSSCOMPILE
+INSTALL_UNITDIR:=$(INSTALL_BASEDIR)/cross/$(FULL_TARGET)/units
+else
+INSTALL_UNITDIR:=$(INSTALL_BASEDIR)/units/$(OS_TARGET)
+endif
+ifdef INSTALL_FPCPACKAGE
+ifdef PACKAGE_NAME
+INSTALL_UNITDIR:=$(INSTALL_UNITDIR)/$(PACKAGE_NAME)
+endif
+endif
+endif
+ifndef INSTALL_LIBDIR
+ifdef UNIXINSTALLDIR
+INSTALL_LIBDIR:=$(INSTALL_PREFIX)/lib
+else
+INSTALL_LIBDIR:=$(INSTALL_UNITDIR)
+endif
+endif
+ifndef INSTALL_SOURCEDIR
+ifdef UNIXINSTALLDIR
+ifdef BSDhier
+SRCPREFIXDIR=share/src
+else
+SRCPREFIXDIR=src
+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 UNIXINSTALLDIR
+ifdef BSDhier
+DOCPREFIXDIR=share/doc
+else
+DOCPREFIXDIR=doc
+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 UNIXINSTALLDIR
+ifdef INSTALL_FPCPACKAGE
+ifdef BSDhier
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/share/examples/fpc-$(FPC_VERSION)/$(PACKAGE_NAME)
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/doc/fpc-$(FPC_VERSION)/examples/$(PACKAGE_NAME)
+endif
+else
+ifdef BSDhier
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/share/examples/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/doc/$(PACKAGE_NAME)-$(PACKAGE_VERSION)
+endif
+endif
+else
+ifdef INSTALL_FPCPACKAGE
+INSTALL_EXAMPLEDIR:=$(INSTALL_BASEDIR)/examples/$(PACKAGE_NAME)
+else
+INSTALL_EXAMPLEDIR:=$(INSTALL_BASEDIR)/examples
+endif
+endif
+endif
+ifndef INSTALL_DATADIR
+INSTALL_DATADIR=$(INSTALL_BASEDIR)
+endif
+ifdef CROSSCOMPILE
+ifndef CROSSBINDIR
+CROSSBINDIR:=$(wildcard $(CROSSTARGETDIR)/bin/$(FULL_SOURCE))
+ifeq ($(CROSSBINDIR),)
+CROSSBINDIR:=$(wildcard $(INSTALL_BASEDIR)/cross/$(FULL_TARGET)/bin/$(FULL_SOURCE))
+endif
+endif
+else
+CROSSBINDIR=
+endif
+LOADEREXT=.as
+EXEEXT=.exe
+PPLEXT=.ppl
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.so
+STATICLIBPREFIX=libp
+RSTEXT=.rst
+FPCMADE=fpcmade
+ifeq ($(findstring 1.0.,$(FPC_VERSION)),)
+ifeq ($(OS_TARGET),go32v1)
+STATICLIBPREFIX=
+FPCMADE=fpcmade.v1
+PACKAGESUFFIX=v1
+endif
+ifeq ($(OS_TARGET),go32v2)
+STATICLIBPREFIX=
+FPCMADE=fpcmade.dos
+ZIPSUFFIX=go32
+endif
+ifeq ($(OS_TARGET),linux)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.lnx
+ZIPSUFFIX=linux
+endif
+ifeq ($(OS_TARGET),freebsd)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.freebsd
+ZIPSUFFIX=freebsd
+endif
+ifeq ($(OS_TARGET),netbsd)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.netbsd
+ZIPSUFFIX=netbsd
+endif
+ifeq ($(OS_TARGET),openbsd)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.openbsd
+ZIPSUFFIX=openbsd
+endif
+ifeq ($(OS_TARGET),win32)
+SHAREDLIBEXT=.dll
+FPCMADE=fpcmade.w32
+ZIPSUFFIX=w32
+endif
+ifeq ($(OS_TARGET),os2)
+AOUTEXT=.out
+STATICLIBPREFIX=
+SHAREDLIBEXT=.dll
+FPCMADE=fpcmade.os2
+ZIPSUFFIX=os2
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),emx)
+AOUTEXT=.out
+STATICLIBPREFIX=
+SHAREDLIBEXT=.dll
+FPCMADE=fpcmade.emx
+ZIPSUFFIX=emx
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),amiga)
+EXEEXT=
+SHAREDLIBEXT=.library
+FPCMADE=fpcmade.amg
+endif
+ifeq ($(OS_TARGET),atari)
+EXEEXT=.ttp
+FPCMADE=fpcmade.ata
+endif
+ifeq ($(OS_TARGET),beos)
+EXEEXT=
+FPCMADE=fpcmade.be
+ZIPSUFFIX=be
+endif
+ifeq ($(OS_TARGET),sunos)
+EXEEXT=
+FPCMADE=fpcmade.sun
+ZIPSUFFIX=sun
+endif
+ifeq ($(OS_TARGET),qnx)
+EXEEXT=
+FPCMADE=fpcmade.qnx
+ZIPSUFFIX=qnx
+endif
+ifeq ($(OS_TARGET),netware)
+EXEEXT=.nlm
+STATICLIBPREFIX=
+FPCMADE=fpcmade.nw
+ZIPSUFFIX=nw
+endif
+ifeq ($(OS_TARGET),macos)
+EXEEXT=
+FPCMADE=fpcmade.mcc
+endif
+ifeq ($(OS_TARGET),darwin)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.darwin
+ZIPSUFFIX=darwin
+endif
+else
+ifeq ($(OS_TARGET),go32v1)
+PPUEXT=.pp1
+OEXT=.o1
+ASMEXT=.s1
+SMARTEXT=.sl1
+STATICLIBEXT=.a1
+SHAREDLIBEXT=.so1
+STATICLIBPREFIX=
+FPCMADE=fpcmade.v1
+PACKAGESUFFIX=v1
+endif
+ifeq ($(OS_TARGET),go32v2)
+STATICLIBPREFIX=
+FPCMADE=fpcmade.dos
+ZIPSUFFIX=go32
+endif
+ifeq ($(OS_TARGET),linux)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.lnx
+ZIPSUFFIX=linux
+endif
+ifeq ($(OS_TARGET),freebsd)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.freebsd
+ZIPSUFFIX=freebsd
+endif
+ifeq ($(OS_TARGET),netbsd)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.netbsd
+ZIPSUFFIX=netbsd
+endif
+ifeq ($(OS_TARGET),openbsd)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.openbsd
+ZIPSUFFIX=openbsd
+endif
+ifeq ($(OS_TARGET),win32)
+PPUEXT=.ppw
+OEXT=.ow
+ASMEXT=.sw
+SMARTEXT=.slw
+STATICLIBEXT=.aw
+SHAREDLIBEXT=.dll
+FPCMADE=fpcmade.w32
+ZIPSUFFIX=w32
+endif
+ifeq ($(OS_TARGET),os2)
+PPUEXT=.ppo
+ASMEXT=.so2
+OEXT=.oo2
+AOUTEXT=.out
+SMARTEXT=.sl2
+STATICLIBPREFIX=
+STATICLIBEXT=.ao2
+SHAREDLIBEXT=.dll
+FPCMADE=fpcmade.os2
+ZIPSUFFIX=emx
+ECHO=echo
+endif
+ifeq ($(OS_TARGET),amiga)
+EXEEXT=
+PPUEXT=.ppu
+ASMEXT=.asm
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.library
+FPCMADE=fpcmade.amg
+endif
+ifeq ($(OS_TARGET),atari)
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=.ttp
+FPCMADE=fpcmade.ata
+endif
+ifeq ($(OS_TARGET),beos)
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+FPCMADE=fpcmade.be
+ZIPSUFFIX=be
+endif
+ifeq ($(OS_TARGET),sunos)
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+FPCMADE=fpcmade.sun
+ZIPSUFFIX=sun
+endif
+ifeq ($(OS_TARGET),qnx)
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+FPCMADE=fpcmade.qnx
+ZIPSUFFIX=qnx
+endif
+ifeq ($(OS_TARGET),netware)
+STATICLIBPREFIX=
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.nlm
+FPCMADE=fpcmade.nw
+ZIPSUFFIX=nw
+EXEEXT=.nlm
+endif
+ifeq ($(OS_TARGET),macos)
+PPUEXT=.ppu
+ASMEXT=.s
+OEXT=.o
+SMARTEXT=.sl
+STATICLIBEXT=.a
+EXEEXT=
+FPCMADE=fpcmade.mcc
+endif
+endif
+ifndef ECHO
+ECHO:=$(strip $(wildcard $(addsuffix /gecho$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+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=
+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=
+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=
+else
+CPPROG:=$(firstword $(CPPROG))
+endif
+endif
+export CPPROG
+ifndef RMPROG
+RMPROG:=$(strip $(wildcard $(addsuffix /rm$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(RMPROG),)
+RMPROG=
+else
+RMPROG:=$(firstword $(RMPROG))
+endif
+endif
+export RMPROG
+ifndef MVPROG
+MVPROG:=$(strip $(wildcard $(addsuffix /mv$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(MVPROG),)
+MVPROG=
+else
+MVPROG:=$(firstword $(MVPROG))
+endif
+endif
+export MVPROG
+ifndef ECHOREDIR
+ECHOREDIR:=$(subst /,$(PATHSEP),$(ECHO))
+endif
+ifndef COPY
+COPY:=$(CPPROG) -fp
+endif
+ifndef COPYTREE
+COPYTREE:=$(CPPROG) -rfp
+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=
+else
+PPUMOVE:=$(firstword $(PPUMOVE))
+endif
+endif
+export PPUMOVE
+ifndef FPCMAKE
+FPCMAKE:=$(strip $(wildcard $(addsuffix /fpcmake$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(FPCMAKE),)
+FPCMAKE=
+else
+FPCMAKE:=$(firstword $(FPCMAKE))
+endif
+endif
+export FPCMAKE
+ifndef ZIPPROG
+ZIPPROG:=$(strip $(wildcard $(addsuffix /zip$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ZIPPROG),)
+ZIPPROG=
+else
+ZIPPROG:=$(firstword $(ZIPPROG))
+endif
+endif
+export ZIPPROG
+ifndef TARPROG
+TARPROG:=$(strip $(wildcard $(addsuffix /tar$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(TARPROG),)
+TARPROG=
+else
+TARPROG:=$(firstword $(TARPROG))
+endif
+endif
+export TARPROG
+ASNAME=as
+LDNAME=ld
+ARNAME=ar
+RCNAME=rc
+ifeq ($(OS_TARGET),win32)
+ASNAME=asw
+LDNAME=ldw
+ARNAME=arw
+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$(BATCHEXT)
+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=vI
+TAREXT=.tar.bz2
+else
+TAROPT=vz
+TAREXT=.tar.gz
+endif
+override REQUIRE_PACKAGES=rtl 
+ifeq ($(OS_TARGET),linux)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),linux)
+ifeq ($(CPU_TARGET),m68k)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),linux)
+ifeq ($(CPU_TARGET),powerpc)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),linux)
+ifeq ($(CPU_TARGET),sparc)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),linux)
+ifeq ($(CPU_TARGET),x86_64)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),go32v2)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),win32)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),os2)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),freebsd)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),freebsd)
+ifeq ($(CPU_TARGET),m68k)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),beos)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),netbsd)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),netbsd)
+ifeq ($(CPU_TARGET),m68k)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),amiga)
+ifeq ($(CPU_TARGET),m68k)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),atari)
+ifeq ($(CPU_TARGET),m68k)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),sunos)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),sunos)
+ifeq ($(CPU_TARGET),sparc)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),qnx)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),netware)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),openbsd)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),openbsd)
+ifeq ($(CPU_TARGET),m68k)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),wdosx)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),palmos)
+ifeq ($(CPU_TARGET),m68k)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),macos)
+ifeq ($(CPU_TARGET),powerpc)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),darwin)
+ifeq ($(CPU_TARGET),powerpc)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifeq ($(OS_TARGET),emx)
+ifeq ($(CPU_TARGET),i386)
+REQUIRE_PACKAGES_RTL=1
+endif
+endif
+ifdef REQUIRE_PACKAGES_RTL
+PACKAGEDIR_RTL:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /rtl/$(OS_TARGET)/Makefile.fpc,$(PACKAGESDIR))))))
+ifneq ($(PACKAGEDIR_RTL),)
+ifneq ($(wildcard $(PACKAGEDIR_RTL)/$(OS_TARGET)),)
+UNITDIR_RTL=$(PACKAGEDIR_RTL)/$(OS_TARGET)
+else
+UNITDIR_RTL=$(PACKAGEDIR_RTL)
+endif
+ifdef CHECKDEPEND
+$(PACKAGEDIR_RTL)/$(FPCMADE):
+	$(MAKE) -C $(PACKAGEDIR_RTL) $(FPCMADE)
+override ALLDEPENDENCIES+=$(PACKAGEDIR_RTL)/$(FPCMADE)
+endif
+else
+PACKAGEDIR_RTL=
+UNITDIR_RTL:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /rtl/Package.fpc,$(UNITSDIR)))))
+ifneq ($(UNITDIR_RTL),)
+UNITDIR_RTL:=$(firstword $(UNITDIR_RTL))
+else
+UNITDIR_RTL=
+endif
+endif
+ifdef UNITDIR_RTL
+override COMPILER_UNITDIR+=$(UNITDIR_RTL)
+endif
+endif
+ifndef NOCPUDEF
+override FPCOPTDEF=$(CPU_TARGET)
+endif
+ifneq ($(OS_TARGET),$(OS_SOURCE))
+override FPCOPT+=-T$(OS_TARGET)
+endif
+ifeq ($(OS_SOURCE),openbsd)
+override FPCOPT+=-FD$(NEW_BINUTILS_PATH)
+endif
+ifdef UNITDIR
+override FPCOPT+=$(addprefix -Fu,$(UNITDIR))
+endif
+ifdef LIBDIR
+override FPCOPT+=$(addprefix -Fl,$(LIBDIR))
+endif
+ifdef OBJDIR
+override FPCOPT+=$(addprefix -Fo,$(OBJDIR))
+endif
+ifdef INCDIR
+override FPCOPT+=$(addprefix -Fi,$(INCDIR))
+endif
+ifdef LINKSMART
+override FPCOPT+=-XX
+endif
+ifdef CREATESMART
+override FPCOPT+=-CX
+endif
+ifdef DEBUG
+override FPCOPT+=-gl
+override FPCOPTDEF+=DEBUG
+endif
+ifdef RELEASE
+ifeq ($(CPU_TARGET),i386)
+FPCCPUOPT:=-OG2p3
+else
+FPCCPUOPT:=
+endif
+override FPCOPT+=-Xs $(FPCCPUOPT) -n
+override FPCOPTDEF+=RELEASE
+endif
+ifdef STRIP
+override FPCOPT+=-Xs
+endif
+ifdef OPTIMIZE
+ifeq ($(CPU_TARGET),i386)
+override FPCOPT+=-OG2p3
+endif
+endif
+ifdef VERBOSE
+override FPCOPT+=-vwni
+endif
+ifdef COMPILER_OPTIONS
+override FPCOPT+=$(COMPILER_OPTIONS)
+endif
+ifdef COMPILER_UNITDIR
+override FPCOPT+=$(addprefix -Fu,$(COMPILER_UNITDIR))
+endif
+ifdef COMPILER_LIBRARYDIR
+override FPCOPT+=$(addprefix -Fl,$(COMPILER_LIBRARYDIR))
+endif
+ifdef COMPILER_OBJECTDIR
+override FPCOPT+=$(addprefix -Fo,$(COMPILER_OBJECTDIR))
+endif
+ifdef COMPILER_INCLUDEDIR
+override FPCOPT+=$(addprefix -Fi,$(COMPILER_INCLUDEDIR))
+endif
+ifdef CROSSBINDIR
+override FPCOPT+=-FD$(CROSSBINDIR)
+endif
+ifdef COMPILER_TARGETDIR
+override FPCOPT+=-FE$(COMPILER_TARGETDIR)
+ifeq ($(COMPILER_TARGETDIR),.)
+override TARGETDIRPREFIX=
+else
+override TARGETDIRPREFIX=$(COMPILER_TARGETDIR)/
+endif
+endif
+ifdef COMPILER_UNITTARGETDIR
+override FPCOPT+=-FU$(COMPILER_UNITTARGETDIR)
+ifeq ($(COMPILER_UNITTARGETDIR),.)
+override UNITTARGETDIRPREFIX=
+else
+override UNITTARGETDIRPREFIX=$(COMPILER_UNITTARGETDIR)/
+endif
+else
+ifdef COMPILER_TARGETDIR
+override COMPILER_UNITTARGETDIR=$(COMPILER_TARGETDIR)
+override UNITTARGETDIRPREFIX=$(TARGETDIRPREFIX)
+endif
+endif
+ifeq ($(OS_TARGET),linux)
+ifeq ($(FPC_VERSION),1.0.6)
+override FPCOPTDEF+=HASUNIX
+endif
+endif
+ifdef OPT
+override FPCOPT+=$(OPT)
+endif
+ifdef FPCOPTDEF
+override FPCOPT+=$(addprefix -d,$(FPCOPTDEF))
+endif
+ifdef CFGFILE
+override FPCOPT+=@$(CFGFILE)
+endif
+ifdef USEENV
+override FPCEXTCMD:=$(FPCOPT)
+override FPCOPT:=!FPCEXTCMD
+export FPCEXTCMD
+endif
+override COMPILER:=$(FPC) $(FPCOPT)
+ifeq (,$(findstring -s ,$(COMPILER)))
+EXECPPAS=
+else
+ifeq ($(FULL_SOURCE),$(FULL_TARGET))
+EXECPPAS:=@$(PPAS)
+endif
+endif
+.PHONY: fpc_units
+ifdef 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: $(UNITPPUFILES)
+ifdef TARGET_RSTS
+override RSTFILES=$(addsuffix $(RSTEXT),$(TARGET_RSTS))
+override CLEANRSTFILES+=$(RSTFILES)
+endif
+.PHONY: fpc_examples
+ifdef TARGET_EXAMPLES
+HASEXAMPLES=1
+override EXAMPLESOURCEFILES:=$(wildcard $(addsuffix .pp,$(TARGET_EXAMPLES)) $(addsuffix .pas,$(TARGET_EXAMPLES)))
+override EXAMPLEFILES:=$(addsuffix $(EXEEXT),$(TARGET_EXAMPLES))
+override EXAMPLEOFILES:=$(addsuffix $(OEXT),$(TARGET_EXAMPLES)) $(addprefix $(STATICLIBPREFIX),$(addsuffix $(STATICLIBEXT),$(TARGET_EXAMPLES)))
+override CLEANEXEFILES+=$(EXAMPLEFILES) $(EXAMPLEOFILES)
+ifeq ($(OS_TARGET),os2)
+override CLEANEXEFILES+=$(addsuffix $(AOUTEXT),$(TARGET_EXAMPLES))
+endif
+ifeq ($(OS_TARGET),emx)
+override CLEANEXEFILES+=$(addsuffix $(AOUTEXT),$(TARGET_EXAMPLES))
+endif
+endif
+ifdef TARGET_EXAMPLEDIRS
+HASEXAMPLES=1
+endif
+fpc_examples: all $(EXAMPLEFILES) $(addsuffix _all,$(TARGET_EXAMPLEDIRS))
+.PHONY: fpc_all fpc_smart fpc_debug fpc_release
+$(FPCMADE): $(ALLDEPENDENCIES) $(ALLTARGET)
+	@$(ECHOREDIR) Compiled > $(FPCMADE)
+fpc_all: $(FPCMADE)
+fpc_smart:
+	$(MAKE) all LINKSMART=1 CREATESMART=1
+fpc_debug:
+	$(MAKE) all DEBUG=1
+fpc_release:
+	$(MAKE) all RELEASE=1
+.SUFFIXES: $(EXEEXT) $(PPUEXT) $(OEXT) .pas .pp .rc .res
+%$(PPUEXT): %.pp
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(PPUEXT): %.pas
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.pp
+	$(COMPILER) $<
+	$(EXECPPAS)
+%$(EXEEXT): %.pas
+	$(COMPILER) $<
+	$(EXECPPAS)
+%.res: %.rc
+	windres -i $< -o $@
+vpath %.pp $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %.pas $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR)
+vpath %$(PPUEXT) $(COMPILER_UNITTARGETDIR)
+.PHONY: fpc_install fpc_sourceinstall fpc_exampleinstall
+ifdef INSTALL_UNITS
+override INSTALLPPUFILES+=$(addsuffix $(PPUEXT),$(INSTALL_UNITS))
+endif
+ifdef INSTALL_BUILDUNIT
+override INSTALLPPUFILES:=$(filter-out $(INSTALL_BUILDUNIT)$(PPUEXT),$(INSTALLPPUFILES))
+endif
+ifdef INSTALLPPUFILES
+override INSTALLPPULINKFILES:=$(subst $(PPUEXT),$(OEXT),$(INSTALLPPUFILES)) $(addprefix $(STATICLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(INSTALLPPUFILES)))
+override INSTALLPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(INSTALLPPUFILES))
+override INSTALLPPULINKFILES:=$(wildcard $(addprefix $(UNITTARGETDIRPREFIX),$(INSTALLPPULINKFILES)))
+override INSTALL_CREATEPACKAGEFPC=1
+endif
+ifdef INSTALLEXEFILES
+override INSTALLEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(INSTALLEXEFILES))
+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$(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)))
+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)
+fpc_distclean: clean
+ifdef COMPILER_UNITTARGETDIR
+TARGETDIRCLEAN=fpc_clean
+endif
+fpc_cleanall: $(CLEANTARGET) $(TARGETDIRCLEAN)
+ifdef CLEANEXEFILES
+	-$(DEL) $(CLEANEXEFILES)
+endif
+	-$(DEL) *$(OEXT) *$(PPUEXT) *$(RSTEXT) *$(ASMEXT) *$(STATICLIBEXT) *$(SHAREDLIBEXT) *$(PPLEXT)
+	-$(DELTREE) *$(SMARTEXT)
+	-$(DEL) $(FPCMADE) Package.fpc $(PPAS) script.res link.res $(FPCEXTFILE) $(REDIRFILE)
+ifdef AOUTEXT
+	-$(DEL) *$(AOUTEXT)
+endif
+.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)
+	@$(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)  ZipPrefix............ $(ZIPPREFIX)
+	@$(ECHO)  ZipSuffix............ $(ZIPSUFFIX)
+	@$(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
+examples: fpc_examples
+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 examples shared install sourceinstall exampleinstall distinstall zipinstall zipsourceinstall zipexampleinstall zipdistinstall clean distclean cleanall info makefiles
+ifneq ($(wildcard fpcmake.loc),)
+include fpcmake.loc
+endif

fcl/db/sdf/Makefile.fpc

@@ -0,0 +1,19 @@
+#
+# Makefile.fpc for MySql FCL db units
+#
+
+[package]
+main=fcl
+
+[target]
+units=sdfdata
+examples=testsdf testfix
+
+[compiler]
+targetdir=../../$(OS_TARGET)
+
+[install]
+fpcpackage=y
+
+[default]
+fpcdir=../../..

fcl/db/sdf/fpc.ssx

@@ -0,0 +1,10 @@
+Carl-Eric           Codere              [email protected]
+Daniel              Mantione            [email protected]
+Florian             Klaempfl            [email protected]
+Jonas               Maebe               [email protected]
+Marco               Van de voort        [email protected]
+Michail             Baikov              [email protected]
+Michael             Van Canneyt         [email protected]
+Peter               Vreman              [email protected]
+Pierre              Muller              [email protected]
+Tomas               Hajny               [email protected]

fcl/db/sdf/fpc.ssy

@@ -0,0 +1,10 @@
+Carl-Eric	Codere	[email protected]
+Daniel	Mantione	[email protected]
+Florian	Klaempfl	[email protected]
+Jonas	Maebe	[email protected]
+Marco	Van de voort	[email protected]
+Michail	Baikov	[email protected]
+Michael	Van Canneyt	[email protected]
+Peter	Vreman	[email protected]
+Pierre	Muller	[email protected]
+Tomas	Hajny	[email protected]

fcl/db/sdf/sdfdata.pp

@@ -0,0 +1,1020 @@
+unit SdfData;
+
+{$mode objfpc}
+{$h+}
+
+//-----------------------------------------------------------------------------
+{ Unit Name  : SdfData  Application : TSdfDataSet TFixedFormatDataSet Components
+  Version    : 2.05
+  Author     : Orlando Arrocha           email: [email protected]
+  Purpose    : This components are designed to access directly text files as
+               database tables. The files may be limited (SDF) or fixed size
+               columns.
+---------------
+Modifications
+---------------
+12/Mar/04  Lazarus version (Sergey Smirnov AKA SSY)
+      Locate and CheckString functions are removed because of Variant data type.
+      Many things are changed for FPC/Lazarus compatibility.
+02/Jun/02  Version 2.05 (Doriano Biondelli)
+      TrimSpace property added for those cases where you need to retrieve the
+      field with spaces.
+01/Jan/02  Version 2.04 (Orlando Arrocha)
+      FieldList is now populated.
+      Locate was changed to improve speed and some bug fixing too. Thanks for
+         asking and testing Marcelo Castro
+16/Dec/01  Version 2.03 (Orlando Arrocha)
+           Fixed some bugs and added some recomentdations. Here is a list:
+      Quotations on the last field was not removed properly. Special thanks to
+         Daniel Nakasone for helping with the solution.
+      Appending first record to empty files was failing. Thanks again Daniel
+         Nakasone for the report
+      GetFieldData now trims the trailing spaces of the field, so users doesn't
+         needs to do it by themselves anymore. Thanks for the recomendation
+         Juergen Gehrke.
+      FieldDefs is now available from the designer. Recomended by Leslie Drewery.
+                ****** THANKS TO ALL & KEEP SENDING RECOMENDATIONS *****
+05/Oct/01  Version 2.02 (Ben Hay)
+      Locate function : implement the virtual tdataset method "Locate".
+                ****** THANKS BEN *****
+11/Sep/01  Version 2.01 (Leslie Drewery)
+           Added additional logic to handle Corrupt Data by making sure the
+           Quotes are closed and the delimiter/<CR>/<LF> are the next
+           characters.
+           Altered buffer method to create on constructor and cleared when opened.
+      New Resource File. Nice Icons
+      SavetoStream method included
+      LoadFromStream method included
+                ****** THANKS LESLIE *****
+14/Ago/01  Version 2.00 (Orlando Arrocha)
+           John Dung Nguyen showed me how to make this compatible with C-Builder
+           and encouraged me to include a filter.
+           Dimitry V. Borko says that russian CSV files used other delimiters,
+           so now you can change it.
+      OnFilter and other events included.
+      Delimiter property added to TSdfDataSet. No more dependency on CommaText
+         methodology -- choose your own delimiter.
+      BufToStore/StoreToBuf methods lets you translate data records to and from
+         your propietary storage format.
+      TTextDataSet removed dependencies.
+      TBaseTextDataSet class removed. // TBaseTextDataSet = TFixedFormatDataSet;
+                ****** THANKS JOHN ******   ***** THANKS DIMMY *****
+19/Jul/01  Version 1.03 (Orlando Arrocha)
+      TBaseTextDataSet class introduced.
+      FileName property changed datatype to TFileName and removed the property
+         editor to segregate design-time code from runtime units.
+      *** To add file browsing functionality please install
+      *** TFileNamePropertyEditor -- also freeware.
+                                     ********** THANKS WAYNE *********
+18/Jun/01  Version 1.02 (Wayne Brantley)
+      Schema replaces SchemaFileName property. Same as SchemaFileName, except
+         you can define the schema inside the component. If you still need an
+         external file, just use Schema.LoadFromFile()
+      TFixedFormatDataSet class introduced. Use this class for a Fixed length
+         format file (instead of delimited). The full schema definition
+         (including lengths) is obviously required.
+      Bug Fixed - When FirstLineSchema is true and there were no records, it
+         would display garbage.
+
+30/Mar/01  Version 1.01 (Orlando Arrocha)
+           Ligia Maria Pimentel suggested to use the first line of the file to
+           define the field names.  ****** THANKS LIGIA ******
+      FileMustExist property. You must put this property to FALSE if you want to
+         create a new file.
+      FirstLineSchema property. You can define the field names on the first line
+         of your file. Fields have to be defined with this format
+            <field_name1> [= field_size1] , <field_name2> [= field_size2] ...
+      SchemaFileName property.  (Changed to Schema by 1.02 Wayne)
+         Lets you define the fields attributes (only supports field name and
+         size). Have to be defined in this format (one field per line) :
+            <field_name> [= field_size]
+         NOTE: fields that doesn't define the length get the record size.
+      RemoveBlankRecords procedure. Removes all the blank records from the file.
+      RemoveExtraColumns procedure. If the file have more columns than the
+         scheme or the field definition at design time, it remove the extra
+         values from the file.
+      SaveFileAs. Let you save the file to another filename.
+         NOTE: This component save changes on closing the table, so you can use
+               this to save data before that event.
+Jan 2001 Version 1.0 TSdfDataSet introduced.
+---------
+TERMS
+---------
+ This component is provided AS-IS without any warranty of any kind, either
+ express or implied. This component is freeware and can be used in any software
+ product. Credits on applications will be welcomed.
+ If you find it useful, improve it or have a wish list... please drop me a mail,
+ I'll be glad to hear your comments.
+----------------
+How to Install
+----------------
+ 1. Copy this SDFDATA.PAS and the associated SDFDATA.DCR to the folder from
+    where you wish to install the component. This will probably be $(DELPHI)\lib
+    or a sub-folder.
+ 2. Install the TSdfDataSet and TFixedFormatDataSet components by choosing the
+    Component | Install Component menu option.
+ 3. Select the "Into exisiting package" page of the Install Components dialogue.
+ 4. Browse to the folder where you saved this file and select it.
+ 5. Ensure that the "Package file name" edit box contains $(DELPHI)\DCLUSR??.DPK
+    or the one you prefer for DB related objects.
+ 6. Accept that the package will be rebuilt.
+}
+//-----------------------------------------------------------------------------
+interface
+
+uses
+  DB, Classes, SysUtils;
+
+const
+  MAXSTRLEN = 250;
+
+type
+//-----------------------------------------------------------------------------
+// TRecInfo
+  PRecInfo = ^TRecInfo;
+  TRecInfo = packed record
+    RecordNumber: Integer;
+    BookmarkFlag: TBookmarkFlag;
+  end;
+//-----------------------------------------------------------------------------
+// TBaseTextDataSet
+  TFixedFormatDataSet = class(TDataSet)
+  private
+    FSchema             :TStringList;
+    FFileName           :TFileName;
+    FFilterBuffer       :PChar;
+    FFileMustExist      :Boolean;
+    FReadOnly           :Boolean;
+    FLoadfromStream     :Boolean;
+    FTrimSpace          :Boolean;
+    procedure SetSchema(const Value: TStringList);
+    procedure SetFileName(Value : TFileName);
+    procedure SetFileMustExist(Value : Boolean);
+    procedure SetTrimSpace(Value : Boolean);
+    procedure SetReadOnly(Value : Boolean);
+    procedure RemoveWhiteLines(List : TStrings; IsFileRecord : Boolean);
+    procedure LoadFieldScheme(List : TStrings; MaxSize : Integer);
+    function GetActiveRecBuf(var RecBuf: PChar): Boolean;
+    procedure SetFieldPos(var Buffer : PChar; FieldNo : Integer);
+  protected
+    FData               :TStringlist;
+    FCurRec             :Integer;
+    FRecBufSize         :Integer;
+    FRecordSize         :Integer;
+    FLastBookmark       :Integer;
+    FRecInfoOfs         :Word;
+    FBookmarkOfs        :Word;
+    FSaveChanges        :Boolean;
+  protected
+    function AllocRecordBuffer: PChar; override;
+    procedure FreeRecordBuffer(var Buffer: PChar); override;
+    procedure InternalAddRecord(Buffer: Pointer; DoAppend: Boolean); override;
+    procedure InternalClose; override;
+    procedure InternalDelete; override;
+    procedure InternalFirst; override;
+    procedure InternalGotoBookmark(ABookmark: Pointer); override;
+    procedure InternalHandleException; override;
+    procedure InternalInitFieldDefs; override;
+    procedure InternalInitRecord(Buffer: PChar); override;
+    procedure InternalLast; override;
+    procedure InternalOpen; override;
+    procedure InternalPost; override;
+    procedure InternalEdit; override;
+    procedure InternalSetToRecord(Buffer: PChar); override;
+    function IsCursorOpen: Boolean; override;
+    procedure GetBookmarkData(Buffer: PChar; Data: Pointer); override;
+    function GetBookmarkFlag(Buffer: PChar): TBookmarkFlag; override;
+    function GetRecord(Buffer: PChar; GetMode: TGetMode; DoCheck: Boolean): TGetResult; override;
+    function GetRecordSize: Word; override;
+    procedure SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag); override;
+    procedure SetBookmarkData(Buffer: PChar; Data: Pointer); override;
+    procedure SetFieldData(Field: TField; Buffer: Pointer); override;
+    procedure ClearCalcFields(Buffer: PChar); override;
+    function GetRecordCount: Integer; override;
+    function GetRecNo: Integer; override;
+    procedure SetRecNo(Value: Integer); override;
+    function GetCanModify: boolean; override;
+    function TxtGetRecord(Buffer : PChar; GetMode: TGetMode): TGetResult;
+    function RecordFilter(RecBuf: Pointer; ARecNo: Integer): Boolean;
+    function BufToStore(Buffer: PChar): String; virtual;
+    function StoreToBuf(Source: String): String; virtual;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor  Destroy; override;
+    function  GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;
+    procedure RemoveBlankRecords; dynamic;
+    procedure RemoveExtraColumns; dynamic;
+    procedure SaveFileAs(strFileName : String); dynamic;
+    property  CanModify;
+    procedure LoadFromStream(Stream :TStream);
+    procedure SavetoStream(Stream :TStream);
+  published
+    property FileMustExist: Boolean read FFileMustExist write SetFileMustExist;
+    property ReadOnly: Boolean read FReadOnly write SetReadOnly;
+    property FileName : TFileName read FFileName write SetFileName;
+    property Schema: TStringList read FSchema write SetSchema;
+    property TrimSpace: Boolean read FTrimSpace write SetTrimSpace default True;
+    property FieldDefs;
+    property Active;
+    property AutoCalcFields;
+    property Filtered;
+    property BeforeOpen;
+    property AfterOpen;
+    property BeforeClose;
+    property AfterClose;
+    property BeforeInsert;
+    property AfterInsert;
+    property BeforeEdit;
+    property AfterEdit;
+    property BeforePost;
+    property AfterPost;
+    property BeforeCancel;
+    property AfterCancel;
+    property BeforeDelete;
+    property AfterDelete;
+    property BeforeScroll;
+    property AfterScroll;
+//    property BeforeRefresh;
+//    property AfterRefresh;
+    property OnCalcFields;
+    property OnDeleteError;
+    property OnEditError;
+    property OnFilterRecord;
+    property OnNewRecord;
+    property OnPostError;
+  end;
+
+//-----------------------------------------------------------------------------
+// TSdfDataSet
+  TSdfDataSet = class(TFixedFormatDataSet)
+  private
+    FDelimiter : Char;
+    FFirstLineAsSchema : Boolean;
+    procedure SetFirstLineAsSchema(Value : Boolean);
+    procedure SetDelimiter(Value : Char);
+  protected
+    procedure InternalInitFieldDefs; override;
+    function GetRecord(Buffer: PChar; GetMode: TGetMode; DoCheck: Boolean)
+             : TGetResult; override;
+    function BufToStore(Buffer: PChar): String; override;
+    function StoreToBuf(Source: String): String; override;
+  public
+    constructor Create(AOwner: TComponent); override;
+  published
+    property Delimiter: Char read FDelimiter write SetDelimiter;
+    property FirstLineAsSchema: Boolean read FFirstLineAsSchema write SetFirstLineAsSchema;
+  end;
+procedure Register;
+
+implementation
+//{$R *.Res}
+
+//-----------------------------------------------------------------------------
+// TFixedFormatDataSet
+//-----------------------------------------------------------------------------
+constructor TFixedFormatDataSet.Create(AOwner : TComponent);
+begin
+ FFileMustExist  := TRUE;
+ FLoadfromStream := False;
+ FRecordSize   := 0;
+ FTrimSpace     := TRUE;
+ FSchema       := TStringList.Create;
+ FData         := TStringList.Create;  // Load the textfile into a stringlist
+ inherited Create(AOwner);
+end;
+
+destructor TFixedFormatDataSet.Destroy;
+begin
+ inherited Destroy;
+ FData.Free;
+ FSchema.Free;
+end;
+
+procedure TFixedFormatDataSet.SetSchema(const Value: TStringList);
+begin
+  CheckInactive;
+  FSchema.Assign(Value);
+end;
+
+procedure TFixedFormatDataSet.SetFileMustExist(Value : Boolean);
+begin
+  CheckInactive;
+  FFileMustExist := Value;
+end;
+
+procedure TFixedFormatDataSet.SetTrimSpace(Value : Boolean);
+begin
+  CheckInactive;
+  FTrimSpace := Value;
+end;
+
+procedure TFixedFormatDataSet.SetReadOnly(Value : Boolean);
+begin
+  CheckInactive;
+  FReadOnly := Value;
+end;
+
+procedure TFixedFormatDataSet.SetFileName(Value : TFileName);
+begin
+  CheckInactive;
+  FFileName := Value;
+end;
+
+procedure TFixedFormatDataSet.InternalInitFieldDefs;
+var
+  i, len, Maxlen :Integer;
+  LstFields      :TStrings;
+begin
+  if not Assigned(FData) then
+    exit;
+  FRecordSize := 0;
+  Maxlen := 0;
+  FieldDefs.Clear;
+  for i := FData.Count - 1 downto 0 do  // Find out the longest record
+  begin
+    len := Length(FData[i]);
+    if len > Maxlen then
+      Maxlen := len;
+    FData.Objects[i] := TObject(Pointer(i+1));   // Fabricate Bookmarks
+  end;
+  if (Maxlen = 0) then
+    Maxlen := MAXSTRLEN;
+  LstFields := TStringList.Create;
+  try
+    LoadFieldScheme(LstFields, Maxlen);
+    for i := 0 to LstFields.Count -1 do  // Add fields
+    begin
+      len := StrToIntDef(LstFields.Values[LstFields.Names[i]], Maxlen);
+      FieldDefs.Add(Trim(LstFields.Names[i]), ftString, len, False);
+      Inc(FRecordSize, len);
+    end;
+  finally
+    LstFields.Free;
+  end;
+end;
+
+procedure TFixedFormatDataSet.InternalOpen;
+var
+  Stream : TStream;
+begin
+  FCurRec := -1;
+  FSaveChanges := FALSE;
+  if not Assigned(FData) then
+    FData := TStringList.Create;
+  if (not FileMustExist) and (not FileExists(FileName)) then
+  begin
+    Stream := TFileStream.Create(FileName, fmCreate);
+    Stream.Free;
+  end;
+  if not FLoadfromStream then
+    FData.LoadFromFile(FileName);
+  FRecordSize := MAXSTRLEN;
+  InternalInitFieldDefs;
+  if DefaultFields then
+    CreateFields;
+  BindFields(TRUE);
+  if FRecordSize = 0 then
+    FRecordSize := MAXSTRLEN;
+  BookmarkSize := SizeOf(Integer);
+  FRecInfoOfs := FRecordSize + CalcFieldsSize; // Initialize the offset for TRecInfo in the buffer
+  FBookmarkOfs := FRecInfoOfs + SizeOf(TRecInfo);
+  FRecBufSize := FBookmarkOfs + BookmarkSize;
+  FLastBookmark := FData.Count;
+end;
+
+procedure TFixedFormatDataSet.InternalClose;
+begin
+  if (not FReadOnly) and (FSaveChanges) then  // Write any edits to disk
+    FData.SaveToFile(FileName);
+  FLoadfromStream := False;
+  FData.Clear;
+  BindFields(FALSE);
+  if DefaultFields then // Destroy the TField
+    DestroyFields;
+  FCurRec := -1;        // Reset these internal flags
+  FLastBookmark := 0;
+  FRecordSize := 0;
+end;
+
+function TFixedFormatDataSet.IsCursorOpen: Boolean;
+begin
+  Result := Assigned(FData) and (FRecordSize > 0);
+end;
+
+procedure TFixedFormatDataSet.InternalHandleException;
+begin
+{$ifndef fpc}
+   Application.HandleException(Self);
+{$endif}   
+end;
+
+// Loads Data from a stream.
+procedure TFixedFormatDataSet.LoadFromStream(Stream: TStream);
+begin
+  if assigned(stream) then
+  begin
+    Active          := False; //Make sure the Dataset is Closed.
+    Stream.Position := 0;     //Make sure you are at the top of the Stream.
+    FLoadfromStream := True;
+    if not Assigned(FData) then
+     raise Exception.Create('Data buffer unassigned');
+    FData.LoadFromStream(Stream);
+    Active := True;
+  end
+  else
+    raise exception.Create('Invalid Stream Assigned (Load From Stream');
+end;
+
+// Saves Data as text to a stream.
+procedure TFixedFormatDataSet.SavetoStream(Stream: TStream);
+begin
+  if assigned(stream) then
+    FData.SaveToStream(Stream)
+  else
+    raise exception.Create('Invalid Stream Assigned (Save To Stream');
+end;
+
+// Record Functions
+function TFixedFormatDataSet.AllocRecordBuffer: PChar;
+begin
+  if FRecBufSize > 0 then
+    Result := AllocMem(FRecBufSize)
+  else
+    Result := nil;
+end;
+
+procedure TFixedFormatDataSet.FreeRecordBuffer(var Buffer: PChar);
+begin
+  if Buffer <> nil then
+    FreeMem(Buffer);
+end;
+
+procedure TFixedFormatDataSet.InternalInitRecord(Buffer: PChar);
+begin
+  FillChar(Buffer[0], FRecordSize, 0);
+end;
+
+procedure TFixedFormatDataSet.ClearCalcFields(Buffer: PChar);
+begin
+  FillChar(Buffer[RecordSize], CalcFieldsSize, 0);
+end;
+
+function TFixedFormatDataSet.GetRecord(Buffer: PChar; GetMode: TGetMode;
+  DoCheck: Boolean): TGetResult;
+begin
+  if (FData.Count < 1) then
+    Result := grEOF
+  else
+    Result := TxtGetRecord(Buffer, GetMode);
+  if Result = grOK then
+  begin
+    if (CalcFieldsSize > 0) then
+      GetCalcFields(Buffer);
+    with PRecInfo(Buffer + FRecInfoOfs)^ do
+    begin
+      BookmarkFlag := bfCurrent;
+      RecordNumber := Integer(FData.Objects[FCurRec]);
+    end;
+  end
+  else
+    if (Result = grError) and DoCheck then
+      DatabaseError('No Records');
+end;
+
+function TFixedFormatDataSet.GetRecordCount: Longint;
+begin
+  Result := FData.Count;
+end;
+
+function TFixedFormatDataSet.GetRecNo: Longint;
+var
+  BufPtr: PChar;
+begin
+  Result := -1;
+  if GetActiveRecBuf(BufPtr) then
+    Result := PRecInfo(BufPtr + FRecInfoOfs)^.RecordNumber;
+end;
+
+procedure TFixedFormatDataSet.SetRecNo(Value: Integer);
+begin
+  CheckBrowseMode;
+  if (Value >= 0) and (Value < FData.Count) and (Value <> RecNo) then
+  begin
+    DoBeforeScroll;
+    FCurRec := Value - 1;
+    Resync([]);
+    DoAfterScroll;
+  end;
+end;
+
+function TFixedFormatDataSet.GetRecordSize: Word;
+begin
+  Result := FRecordSize;
+end;
+
+function TFixedFormatDataSet.GetActiveRecBuf(var RecBuf: PChar): Boolean;
+begin
+  case State of
+    dsBrowse: if IsEmpty then RecBuf := nil else RecBuf := ActiveBuffer;
+    dsEdit, dsInsert: RecBuf := ActiveBuffer;
+    dsCalcFields: RecBuf := CalcBuffer;
+    dsFilter: RecBuf := FFilterBuffer;
+  else
+    RecBuf := nil;
+  end;
+  Result := RecBuf <> nil;
+end;
+
+function TFixedFormatDataSet.TxtGetRecord(Buffer : PChar; GetMode: TGetMode): TGetResult;
+var
+  Accepted : Boolean;
+begin
+  Result := grOK;
+  repeat
+    Accepted := TRUE;
+    case GetMode of
+      gmNext:
+        if FCurRec >= RecordCount - 1  then
+          Result := grEOF
+        else
+          Inc(FCurRec);
+      gmPrior:
+        if FCurRec <= 0 then
+          Result := grBOF
+        else
+          Dec(FCurRec);
+      gmCurrent:
+        if (FCurRec < 0) or (FCurRec >= RecordCount) then
+          Result := grError;
+    end;
+    if (Result = grOk) then
+    begin
+      Move(PChar(StoreToBuf(FData[FCurRec]))^, Buffer[0], FRecordSize);
+      if Filtered then
+      begin
+        Accepted := RecordFilter(Buffer, FCurRec +1);
+        if not Accepted and (GetMode = gmCurrent) then
+          Inc(FCurRec);
+      end;
+    end;
+  until Accepted;
+end;
+
+function TFixedFormatDataSet.RecordFilter(RecBuf: Pointer; ARecNo: Integer): Boolean;
+var
+  Accept: Boolean;
+  SaveState: TDataSetState;
+begin                          // Returns true if accepted in the filter
+  SaveState := SetTempState(dsFilter);
+  FFilterBuffer := RecBuf;
+  PRecInfo(FFilterBuffer + FRecInfoOfs)^.RecordNumber := ARecNo;
+  Accept := TRUE;
+  if Accept and Assigned(OnFilterRecord) then
+    OnFilterRecord(Self, Accept);
+  RestoreState(SaveState);
+  Result := Accept;
+end;
+
+function TFixedFormatDataSet.GetCanModify: boolean;
+begin
+  Result := not FReadOnly;
+end;
+
+// Field Related
+procedure TFixedFormatDataSet.LoadFieldScheme(List : TStrings; MaxSize : Integer);
+var
+  tmpFieldName : string;
+  tmpSchema : TStrings;
+  i : Integer;
+begin
+  tmpSchema := TStringList.Create;
+  try       // Load Schema Structure
+    if (Schema.Count > 0) then
+    begin
+      tmpSchema.Assign(Schema);
+      RemoveWhiteLines(tmpSchema, FALSE);
+    end
+    else
+      tmpSchema.Add('Line');
+    for i := 0 to tmpSchema.Count -1 do // Interpret Schema
+    begin
+      tmpFieldName := tmpSchema.Names[i];
+      if (tmpFieldName = '') then
+        tmpFieldName := Format('%s=%d', [tmpSchema[i], MaxSize])
+      else
+        tmpFieldName := tmpSchema[i];
+      List.Add(tmpFieldName);
+    end;
+  finally
+    tmpSchema.Free;
+  end;
+end;
+
+function TFixedFormatDataSet.GetFieldData(Field: TField; Buffer: Pointer): Boolean;
+var
+  TempPos, RecBuf: PChar;
+begin
+  Result := GetActiveRecBuf(RecBuf);
+  if Result then
+  begin
+    if Field.FieldNo > 0 then
+    begin
+      TempPos := RecBuf;
+      SetFieldPos(RecBuf, Field.FieldNo);
+      Result := (RecBuf < StrEnd(TempPos));
+    end
+    else
+      if (State in [dsBrowse, dsEdit, dsInsert, dsCalcFields]) then
+      begin
+        Inc(RecBuf, FRecordSize + Field.Offset);
+        Result := Boolean(Byte(RecBuf[0]));
+      end;
+  end;
+  if Result and (Buffer <> nil) then
+  begin
+    StrLCopy(Buffer, RecBuf, Field.Size);
+    if FTrimSpace then
+    begin
+      TempPos := StrEnd(Buffer);
+      repeat
+        Dec(TempPos);
+        if (TempPos[0] = ' ') then
+          TempPos[0]:= #0
+        else
+          break;
+      until (TempPos = Buffer);
+    end;
+  end;
+end;
+
+procedure TFixedFormatDataSet.SetFieldData(Field: TField; Buffer: Pointer);
+var
+  RecBuf, BufEnd: PChar;
+  p : Integer;
+begin
+  if not (State in [dsEdit, dsInsert]) then
+    DatabaseError('Dataset not in edit or insert mode', Self);
+  GetActiveRecBuf(RecBuf);
+  if Field.FieldNo > 0 then
+  begin
+    if State = dsCalcFields then
+      DatabaseError('Dataset not in edit or insert mode', Self);
+    if Field.ReadOnly and not (State in [dsSetKey, dsFilter]) then
+      DatabaseErrorFmt('Field ''%s'' cannot be modified', [Field.DisplayName]);
+    Field.Validate(Buffer);
+    if Field.FieldKind <> fkInternalCalc then
+    begin
+      SetFieldPos(RecBuf, Field.FieldNo);
+      BufEnd := StrEnd(ActiveBuffer);  // Fill with blanks when necessary
+      if BufEnd > RecBuf then
+        BufEnd := RecBuf;
+      FillChar(BufEnd[0], Field.Size + LongInt(RecBuf) - LongInt(BufEnd), Ord(' '));
+      p := StrLen(Buffer);
+      if p > Field.Size then
+        p := Field.Size;
+      Move(Buffer^, RecBuf[0], p);
+      ActiveBuffer[RecordSize-1] := #0;
+    end;
+  end
+  else // fkCalculated, fkLookup
+  begin
+    Inc(RecBuf, FRecordSize + Field.Offset);
+    Move(Buffer^, RecBuf[0], Field.Size);
+  end;
+  if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
+    DataEvent(deFieldChange, Longint(Field));
+end;
+
+procedure TFixedFormatDataSet.SetFieldPos(var Buffer : PChar; FieldNo : Integer);
+var
+  i : Integer;
+begin
+  i := 1;
+  while (i < FieldNo) and (i < FieldDefs.Count) do
+  begin
+    Inc(Buffer, FieldDefs.Items[i-1].Size);
+    Inc(i);
+  end;
+end;
+
+// Navigation / Editing
+procedure TFixedFormatDataSet.InternalFirst;
+begin
+  FCurRec := -1;
+end;
+
+procedure TFixedFormatDataSet.InternalLast;
+begin
+  FCurRec := FData.Count;
+end;
+
+procedure TFixedFormatDataSet.InternalPost;
+var
+  i: Longint;
+begin
+  FSaveChanges := TRUE;
+  inherited UpdateRecord;
+  if (State = dsEdit) then // just update the data in the string list
+  begin
+    FData[FCurRec] := BufToStore(ActiveBuffer);
+  end
+  else
+    InternalAddRecord(ActiveBuffer, FALSE);
+end;
+
+procedure TFixedFormatDataSet.InternalEdit;
+begin
+
+end;
+
+procedure TFixedFormatDataSet.InternalDelete;
+begin
+  FSaveChanges := TRUE;
+  FData.Delete(FCurRec);
+  if FCurRec >= FData.Count then
+    Dec(FCurRec);
+end;
+
+procedure TFixedFormatDataSet.InternalAddRecord(Buffer: Pointer; DoAppend: Boolean);
+begin
+  FSaveChanges := TRUE;
+  Inc(FLastBookmark);
+  if DoAppend then
+    InternalLast;
+  if (FCurRec >=0) then
+    FData.InsertObject(FCurRec, BufToStore(Buffer), TObject(Pointer(FLastBookmark)))
+  else
+    FData.AddObject(BufToStore(Buffer), TObject(Pointer(FLastBookmark)));
+end;
+
+procedure TFixedFormatDataSet.InternalGotoBookmark(ABookmark: Pointer);
+var
+  Index: Integer;
+begin
+  Index := FData.IndexOfObject(TObject(PInteger(ABookmark)^));
+  if Index <> -1 then
+    FCurRec := Index
+  else
+    DatabaseError('Bookmark not found');
+end;
+
+procedure TFixedFormatDataSet.InternalSetToRecord(Buffer: PChar);
+begin
+  if (State <> dsInsert) then
+    InternalGotoBookmark(@PRecInfo(Buffer + FRecInfoOfs)^.RecordNumber);
+end;
+
+function TFixedFormatDataSet.GetBookmarkFlag(Buffer: PChar): TBookmarkFlag;
+begin
+  Result := PRecInfo(Buffer + FRecInfoOfs)^.BookmarkFlag;
+end;
+
+procedure TFixedFormatDataSet.SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag);
+begin
+  PRecInfo(Buffer + FRecInfoOfs)^.BookmarkFlag := Value;
+end;
+
+procedure TFixedFormatDataSet.GetBookmarkData(Buffer: PChar; Data: Pointer);
+begin
+  Move(Buffer[FBookmarkOfs], Data^, BookmarkSize);
+end;
+
+procedure TFixedFormatDataSet.SetBookmarkData(Buffer: PChar; Data: Pointer);
+begin
+  Move(Data^, Buffer[FBookmarkOfs], BookmarkSize);
+end;
+
+procedure TFixedFormatDataSet.RemoveWhiteLines(List : TStrings; IsFileRecord : Boolean);
+var
+  i : integer;
+begin
+  for i := List.Count -1 downto 0 do
+  begin
+    if (Trim(List[i]) = '' ) then
+      if IsFileRecord then
+      begin
+        FCurRec := i;
+        InternalDelete;
+      end
+      else
+        List.Delete(i);
+  end;
+end;
+
+procedure TFixedFormatDataSet.RemoveBlankRecords;
+begin
+  RemoveWhiteLines(FData, TRUE);
+end;
+
+procedure TFixedFormatDataSet.RemoveExtraColumns;
+var
+  i : Integer;
+begin
+  for i := FData.Count -1 downto 0 do
+    FData[i] := BufToStore(PChar(StoreToBuf(FData[i])));
+  FData.SaveToFile(FileName);
+end;
+
+procedure TFixedFormatDataSet.SaveFileAs(strFileName : String);
+begin
+  FData.SaveToFile(strFileName);
+  FFileName := strFileName;
+  FSaveChanges := FALSE;
+end;
+
+function TFixedFormatDataSet.StoreToBuf(Source: String): String;
+begin
+  Result := Source;
+end;
+
+function TFixedFormatDataSet.BufToStore(Buffer: PChar): String;
+begin
+  Result := Copy(Buffer, 1, FRecordSize);
+end;
+
+//-----------------------------------------------------------------------------
+// TSdfDataSet
+//-----------------------------------------------------------------------------
+constructor TSdfDataSet.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FDelimiter := ',';
+  FFirstLineAsSchema := FALSE;
+end;
+
+procedure TSdfDataSet.InternalInitFieldDefs;
+var
+  pStart, pEnd, len : Integer;
+begin
+  if not IsCursorOpen then
+    exit;
+  if (FData.Count = 0) or (Trim(FData[0]) = '') then
+    FirstLineAsSchema := FALSE
+  else if (Schema.Count = 0) or (FirstLineAsSchema) then
+  begin
+    Schema.Clear;
+    len := Length(FData[0]);
+    pEnd := 1;
+    repeat
+      while (pEnd <= len) and (FData[0][pEnd] in [#1..' ']) do
+        Inc(pEnd);
+
+      if (pEnd > len) then
+        break;
+
+      pStart := pEnd;
+
+      if (FData[0][pStart] = '"') then
+       begin
+        repeat
+          Inc(pEnd);
+        until (pEnd > len)  or (FData[0][pEnd] = '"');
+
+        if (FData[0][pEnd] = '"') then
+          Inc(pStart);
+       end
+      else
+       while (pEnd <= len) and (FData[0][pEnd]  <> Delimiter) do
+        Inc(pEnd);
+
+      if (FirstLineAsSchema) then
+       Schema.Add(Copy(FData[0], pStart, pEnd - pStart))
+      else
+       Schema.Add(Format('Field%d', [Schema.Count + 1]));
+
+      if (FData[0][pEnd] = '"') then
+        while (pEnd <= len) and (FData[0][pEnd] <> Delimiter) do
+          Inc(pEnd);
+
+      if (FData[0][pEnd] = Delimiter) then
+          Inc(pEnd);
+
+    until (pEnd > len);
+  end;
+  inherited;
+end;
+
+function TSdfDataSet.GetRecord(Buffer: PChar; GetMode: TGetMode;
+  DoCheck: Boolean): TGetResult;
+begin
+  if FirstLineAsSchema then
+  begin
+    if (FData.Count < 2) then
+      Result := grEOF
+    else
+    begin
+      Result := inherited GetRecord(Buffer, GetMode, DoCheck);
+      if (Result = grOk) and (FCurRec = 0) then
+        Result := inherited GetRecord(Buffer, GetMode, DoCheck);
+    end;
+  end
+  else
+    Result := inherited GetRecord(Buffer, GetMode, DoCheck);
+end;
+
+function TSdfDataSet.StoreToBuf(Source: String): String;
+const
+ CR :char = #13;
+ LF :char = #10;
+var
+  i,
+  p             :Integer;
+  pRet,
+  pStr,
+  pStrEnd       :PChar;
+  Ret           :String;
+begin
+  SetLength(Ret, FRecordSize);
+
+  FillChar(PChar(Ret)^, FRecordSize, Ord(' '));
+    PStrEnd := PChar(Source);
+  pRet := PChar(Ret);
+
+  for i := 0 to FieldDefs.Count - 1 do
+   begin
+
+    while Boolean(Byte(pStrEnd[0])) and (pStrEnd[0] in [#1..' ']) do
+      Inc(pStrEnd);
+
+    if not Boolean(Byte(pStrEnd[0])) then
+     break;
+
+    pStr := pStrEnd;
+
+    if (pStr[0] = '"') then
+     begin
+      repeat
+        Inc(pStrEnd);
+      until not Boolean(Byte(pStrEnd[0])) or
+            ((pStrEnd[0] = '"') and ((pStrEnd + 1)[0] in [Delimiter,CR,LF, #0]));
+
+      if (pStrEnd[0] = '"') then
+        Inc(pStr);
+     end
+    else
+      while Boolean(Byte(pStrEnd[0])) and (pStrEnd[0] <> Delimiter) do
+        Inc(pStrEnd);
+
+    p := pStrEnd - pStr;
+    if (p > FieldDefs[i].Size) then
+      p := FieldDefs[i].Size;
+
+    Move(pStr[0], pRet[0], p);
+
+    Inc(pRet, FieldDefs[i].Size);
+
+    if (pStrEnd[0] = '"') then
+      while Boolean(Byte(pStrEnd[0])) and (pStrEnd[0] <> Delimiter) do
+        Inc(pStrEnd);
+
+    if (pStrEnd[0] = Delimiter) then
+     Inc(pStrEnd);
+   end;
+  Result := Ret;
+end;
+
+function TSdfDataSet.BufToStore(Buffer: PChar): String;
+var
+  Str : String;
+  p, i : Integer;
+begin
+  Result := '';
+  p := 1;
+  for i := 0 to FieldDefs.Count - 1 do
+  begin
+    Str := Trim(Copy(Buffer, p, FieldDefs[i].Size));
+    Inc(p, FieldDefs[i].Size);
+    if (StrScan(PChar(Str), FDelimiter) <> nil) then
+      Str := '"' + Str + '"';
+    Result := Result + Str + FDelimiter;
+  end;
+  p := Length(Result);
+  while (p > 0) and (Result[p] = FDelimiter) do
+  begin
+    System.Delete(Result, p, 1);
+    Dec(p);
+  end;
+end;
+
+procedure TSdfDataSet.SetDelimiter(Value : Char);
+begin
+  CheckInactive;
+  FDelimiter := Value;
+end;
+
+procedure TSdfDataSet.SetFirstLineAsSchema(Value : Boolean);
+begin
+  CheckInactive;
+  FFirstLineAsSchema := Value;
+end;
+
+//-----------------------------------------------------------------------------
+// This procedure is used to register this component on the component palette
+//-----------------------------------------------------------------------------
+procedure Register;
+begin
+  RegisterComponents('Data Access', [TFixedFormatDataSet]);
+  RegisterComponents('Data Access', [TSdfDataSet]);
+end;
+
+end.

fcl/db/sdf/testfix.pp

@@ -0,0 +1,41 @@
+{$mode objfpc}
+{$h+}
+program testfix;
+
+uses DB,sdfdata,sysutils;
+
+Procedure Dotest;
+
+Var
+  I,Count : Integer;
+
+begin
+  With TFixedFormatDataSet.Create(Nil) do
+    try
+      FileName := 'fpc.ssx';
+      Schema.Add('First Name=20');
+      Schema.Add('Last Name=20');
+      Schema.Add('Email=30');
+      Open;
+      Count:=0;
+      Try 
+        While Not EOF do
+          begin
+          Inc(Count);
+          Writeln('Record : ',Count);
+          For I:=0 to FieldCount-1 do
+            Writeln(Fields[i].FieldName,' : ',Fields[i].AsString);
+          Writeln('-------------------------------')  ;
+          Next;
+          end;
+      Finally
+        Close;
+      end;
+    finally
+      free;
+    end; 
+end;
+
+begin
+  DoTest;
+end.

fcl/db/sdf/testsdf.pp

@@ -0,0 +1,43 @@
+{$mode objfpc}
+{$h+}
+program testsdf;
+
+uses DB,sdfdata,sysutils;
+
+Procedure Dotest;
+
+Var
+  I,Count : Integer;
+
+begin
+  With TSdfDataSet.Create(Nil) do
+    try
+      Delimiter := #9;
+      FileName := 'fpc.ssy';
+      FirstLineAsSchema := False;
+      Schema.Add('First Name');
+      Schema.Add('Last Name');
+      Schema.Add('Email');
+      Open;
+      Count:=0;
+      Try 
+        While Not EOF do
+          begin
+          Inc(Count);
+          Writeln('Record : ',Count);
+          For I:=0 to FieldCount-1 do
+            Writeln(Fields[i].FieldName,' : ',Fields[i].AsString);
+          Writeln('-------------------------------')  ;
+          Next;
+          end;
+      Finally
+        Close;
+      end;
+    finally
+      free;
+    end; 
+end;
+
+begin
+  DoTest;
+end.