+ Initial implementation

fcl/db/memds/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+=memds
+override TARGET_EXAMPLES+=testpop testopen testld testcp
+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/memds/Makefile.fpc

@@ -0,0 +1,19 @@
+#
+# Makefile.fpc for memds unit
+#
+
+[package]
+main=fcl
+
+[target]
+units=memds
+examples=testpop testopen testld testcp
+
+[compiler]
+targetdir=../../$(OS_TARGET)
+
+[install]
+fpcpackage=y
+
+[default]
+fpcdir=../../..

fcl/db/memds/README

@@ -0,0 +1,60 @@
+
+The MemDS unit contains a TMemDataset class. It implements an in-memory
+TDataset class. 
+
+- The data can be loaded from/to Stream or file.
+  This can be automated by setting the 'FileName' property.
+- The data can be copied from another dataset.
+
+Extra methods:
+
+Property FileName : String;
+
+If set, the data is loaded from this file when opening the dataset, and saved
+when it is closed (and modified).
+
+procedure CreateTable;
+
+Creates the needed in-memory structures after fielddefs were added.
+See testpop.pp for an example.
+
+function DataSize : Integer;
+
+Size of data in memory.
+
+procedure Clear(ClearDefs : Boolean);
+procedure Clear;
+
+Clears the data. If cleardefs=True, then fielddefs are cleared.
+If the definitions are cleared (default), the dataset is closed.
+
+Procedure SaveToFile(AFileName : String);
+Procedure SaveToFile(AFileName : String; SaveData : Boolean);
+
+Save Data to file. If SaveData=False, then only metadata is written.
+
+Procedure SaveToStream(F : TStream);
+Procedure SaveToStream(F : TStream; SaveData : Boolean);
+
+Save Data to stream. If SaveData=False, then only metadata is written.
+
+Procedure LoadFromStream(F : TStream);
+
+Load Data from a file created with savetofile.
+
+Procedure LoadFromFile(AFileName : String);
+
+Load Data from a stream, created with saveto stream.
+
+Procedure CopyFromDataset(DataSet : TDataSet);
+Procedure CopyFromDataset(DataSet : TDataSet; CopyData : Boolean);
+
+Copy data from another dataset. Only fields (not fielddefs) are copied.
+The dataset must be open. If CopyData is false, only the field definitions
+are copied, but no data is copied. By default, data is also copied.
+
+Property Modified : Boolean Read FModified;
+
+Indicates whether the in-memory data was modified. When data is modified,
+and the dataset is closed, the data is saved to stream if the 'filename'
+property is set.

fcl/db/memds/memds.pp

@@ -0,0 +1,934 @@
+{
+    $Id$
+    This file is part of the Free Component Library (FCL)
+    Copyright (c) 1999-2000 by the Free Pascal development team
+
+    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.
+
+ **********************************************************************}
+{$mode objfpc}
+{$H+}
+{
+  TMemDataset : In-memory dataset. 
+  - Has possibility to copy Structure/Data from other dataset.
+  - Can load/save to/from stream.
+  
+  Ideas taken from THKMemTab Component by Harri Kasulke - Hamburg/Germany
+  E-mail: [email protected]
+}
+
+
+unit memds;
+
+interface
+
+uses
+  SysUtils, Classes, DB;
+
+Const
+  // Stream Markers.
+  MarkerSize  = SizeOf(Integer);
+
+  smEOF       = 0;
+  smFieldDefs = 1;
+  smData      = 2;
+   
+type
+  MDSError=class(Exception);
+
+  PRecInfo=^TMTRecInfo;
+  TMTRecInfo=record
+    Bookmark: Longint;
+    BookmarkFlag: TBookmarkFlag;
+  end;
+
+  PInteger  = ^Integer;
+  PSmallInt = ^SmallInt;
+  PInt64    = ^Int64;
+  PFloat    = ^Extended;
+  PBoolean  = ^Boolean;
+
+
+  TMemDataset=class(TDataSet)
+  private
+    FOpenStream : TStream;
+    FFileName : String;
+    FModified : Boolean;
+    FStream: TMemoryStream;
+    FRecInfoOffset: integer;
+    FRecInfoSize: integer;
+    FRecCount: integer;
+    FRecSize: integer;
+    FRecBufferSize: integer;
+    FCurrRecNo: integer;
+    FIsOpen: boolean;
+    FFilterBuffer: PChar;
+  protected
+    // Mandatory
+    function  AllocRecordBuffer: PChar; override;
+    procedure FreeRecordBuffer(var Buffer: PChar); override;
+    procedure GetBookmarkData(Buffer: PChar; Data: Pointer); override;
+    function  GetBookmarkFlag(Buffer: PChar): TBookmarkFlag; override;
+    function  GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;
+    function  GetRecord(Buffer: PChar; GetMode: TGetMode; DoCheck: Boolean): TGetResult; override;
+    function  GetRecordSize: Word; 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 InternalSetToRecord(Buffer: PChar); override;
+    function  IsCursorOpen: Boolean; override;
+    procedure SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag); override;
+    procedure SetBookmarkData(Buffer: PChar; Data: Pointer); override;
+    procedure SetFieldData(Field: TField; Buffer: Pointer); override;
+
+    // Optional.
+    function GetRecordCount: Integer; override;
+    procedure SetRecNo(Value: Integer); override;
+    function GetRecNo: Integer; override;
+
+    // Own.
+    Procedure RaiseError(Fmt : String; Args : Array of const);
+    Procedure CheckMarker(F : TStream; Marker : Integer);
+    Procedure WriteMarker(F : TStream; Marker : Integer);
+    procedure ReadFieldDefsFromStream(F : TStream); 
+    procedure SaveFieldDefsToStream(F : TStream); 
+    // These should be overridden if you want to load more data.
+    // E.g. index defs.
+    Procedure LoadDataFromStream(F : TStream); virtual;
+    // If SaveData=False, a size 0 block should be written.
+    Procedure SaveDataToStream(F : TStream; SaveData : Boolean); virtual;
+
+  private
+    function  MDSGetRecordOffset(ARecNo: integer): longint;
+    function  MDSGetFieldOffset(FieldNo: integer): integer;
+    function  MDSGetFieldSize(FieldNo: integer): integer;
+    function  MDSGetActiveBuffer(var Buffer: PChar): Boolean;
+    procedure MDSReadRecord(Buffer:PChar;ARecNo:Integer);
+    procedure MDSWriteRecord(Buffer:PChar;ARecNo:Integer);
+    procedure MDSAppendRecord(Buffer:PChar);
+    function  MDSFilterRecord(Buffer: PChar): Boolean;
+
+  public
+    constructor Create(AOwner:tComponent); override;
+    destructor Destroy; override;
+    procedure CreateTable;
+
+    Function  DataSize : Integer;
+
+    procedure Clear(ClearDefs : Boolean);
+    procedure Clear;
+    Procedure SaveToFile(AFileName : String);
+    Procedure SaveToFile(AFileName : String; SaveData : Boolean);
+    Procedure SaveToStream(F : TStream);
+    Procedure SaveToStream(F : TStream; SaveData : Boolean);
+    Procedure LoadFromStream(F : TStream);
+    Procedure LoadFromFile(AFileName : String);
+    Procedure CopyFromDataset(DataSet : TDataSet);
+    Procedure CopyFromDataset(DataSet : TDataSet; CopyData : Boolean);
+    
+    Property Modified : Boolean Read FModified;
+
+  published
+    Property FileName : String Read FFileName Write FFileName;
+    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 OnDeleteError;
+    property OnEditError;
+    property OnNewRecord;
+    property OnPostError;
+    property OnFilterRecord;
+  end;
+
+implementation
+
+ResourceString
+  SErrFieldTypeNotSupported = 'Fieldtype of Field "%s" not supported.';
+  SErrBookMarkNotFound      = 'Bookmark %d not found.';
+  SErrInvalidDataStream     = 'Error in data stream at position %d';
+  SErrInvalidMarkerAtPos    = 'Wrong data stream marker at position %d. Got %d, expected %d';
+  SErrNoFileName            = 'Filename must not be empty.';
+  
+{ ---------------------------------------------------------------------
+    Stream functions
+  ---------------------------------------------------------------------}
+
+Function ReadInteger(S : TStream) : Integer;
+
+begin
+  S.ReadBuffer(Result,SizeOf(Result));
+end;
+
+Function ReadString(S : TStream) : String;
+
+Var
+  L : Integer;
+
+begin
+  L:=ReadInteger(S);
+  Setlength(Result,L);
+  If (L<>0) then
+    S.ReadBuffer(Result[1],L);
+end;
+
+Procedure WriteInteger(S : TStream; Value : Integer);
+
+begin
+  S.WriteBuffer(Value,SizeOf(Value));
+end;
+
+Procedure WriteString(S : TStream; Value : String);
+
+Var
+  L : Integer;
+
+begin
+  L:=Length(Value);
+  WriteInteger(S,Length(Value));
+  If (L<>0) then
+    S.WriteBuffer(Value[1],L);
+end;
+  
+{ ---------------------------------------------------------------------
+    TMemDataset
+  ---------------------------------------------------------------------}
+    
+  
+constructor TMemDataset.Create(AOwner:tComponent);
+
+begin
+  inherited create(aOwner);
+  FStream:=TMemoryStream.Create;
+  FRecInfoSize:=SizeOf(TMTRecInfo);
+  FRecCount:=0;
+  FRecSize:=0;
+  FRecBufferSize:=0;
+  FRecInfoOffset:=0;
+  FCurrRecNo:=-1;
+  FIsOpen:=False;
+end;
+
+Destructor TMemDataset.Destroy;
+begin
+  FStream.Free;
+  inherited Destroy;
+end;
+
+function TMemDataset.MDSGetRecordOffset(ARecNo: integer): longint;   
+begin
+  Result:=FRecSize*ARecNo
+end;
+
+function TMemDataset.MDSGetFieldOffset(FieldNo: integer): integer;
+
+var 
+  I : integer;
+  
+begin
+  Result:=0;
+  for I:=1 to FieldNo-1 do
+    Result:=Result+MDSGetFieldSize(I);
+end;
+
+Procedure TMemDataset.RaiseError(Fmt : String; Args : Array of const);
+
+begin
+  Raise MDSError.CreateFmt(Fmt,Args);
+end;
+
+function TMemDataset.MDSGetFieldSize(FieldNo: integer): integer;   
+
+begin
+  case FieldDefs.Items[FieldNo-1].Datatype of
+   ftString:   result:=FieldDefs.Items[FieldNo-1].Size+1;
+   ftBoolean:  result:=SizeOf(Boolean);
+   ftFloat:    result:=SizeOf(Extended);
+   ftLargeInt: result:=SizeOf(int64);
+   ftSmallInt: result:=SizeOf(SmallInt);
+   ftInteger:  result:=SizeOf(Integer);
+   ftDate:     result:=SizeOf(TDateTime);
+   ftTime:     result:=SizeOf(TDateTime);
+ else 
+   RaiseError(SErrFieldTypeNotSupported,[FieldDefs.Items[FieldNo-1].Name]);
+ end;
+end;
+
+function TMemDataset.MDSGetActiveBuffer(var Buffer: PChar): Boolean; 
+
+begin
+ case State of
+   dsBrowse:
+     if IsEmpty then 
+       Buffer:=nil
+     else
+       Buffer:=ActiveBuffer;
+
+  dsEdit, 
+  dsInsert: 
+     Buffer:=ActiveBuffer;
+  dsFilter:         
+     Buffer:=FFilterBuffer;
+ else 
+   Buffer:=nil;
+ end;
+ Result:=(Buffer<>nil);
+end;
+
+procedure TMemDataset.MDSReadRecord(Buffer:PChar;ARecNo:Integer);   //Reads a Rec from Stream in Buffer
+begin
+  FStream.Position:=MDSGetRecordOffset(ARecNo);
+  FStream.ReadBuffer(Buffer^, FRecSize);
+end;
+
+procedure TMemDataset.MDSWriteRecord(Buffer:PChar;ARecNo:Integer);  //Writes a Rec from Buffer to Stream
+begin
+  FStream.Position:=MDSGetRecordOffset(ARecNo);
+  FStream.WriteBuffer(Buffer^, FRecSize);
+  FModified:=True;
+end;
+
+procedure TMemDataset.MDSAppendRecord(Buffer:PChar);   //Appends a Rec (from Buffer) to Stream
+begin
+  FStream.Position:=MDSGetRecordOffset(FRecCount);
+  FStream.WriteBuffer(Buffer^, FRecSize);
+  FModified:=True;
+end;
+
+//Abstract Overrides
+function TMemDataset.AllocRecordBuffer: PChar;
+begin
+  GetMem(Result,FRecBufferSize);
+end;
+
+procedure TMemDataset.FreeRecordBuffer (var Buffer: PChar);
+begin
+  FreeMem(Buffer);
+end;
+
+procedure TMemDataset.InternalInitRecord(Buffer: PChar);
+
+var 
+  I : integer;
+
+begin
+ for I:=1 to FieldCount do
+   case FieldDefs.Items[I-1].Datatype of
+     ftString:   pChar(Buffer+MDSGetFieldOffset(I))^:=#0;
+     ftBoolean:  pBoolean(Buffer+MDSGetFieldOffset(I))^:=False;
+     ftFloat:    pFloat(Buffer+MDSGetFieldOffset(I))^:=0;
+     ftLargeint: PInt64(Buffer+MDSGetFieldOffset(I))^:=0;
+     ftSmallInt: pSmallInt(Buffer+MDSGetFieldOffset(I))^:=0;
+     ftInteger:  pInteger(Buffer+MDSGetFieldOffset(I))^:=0;
+     ftCurrency: pFloat(Buffer+MDSGetFieldOffset(I))^:=0;
+     ftDate:     pFloat(Buffer+MDSGetFieldOffset(I))^:=0;
+     ftTime:     pFloat(Buffer+MDSGetFieldOffset(I))^:=0;
+     ftDateTime: pFloat(Buffer+MDSGetFieldOffset(I))^:=0;
+   end;
+end;
+
+procedure TMemDataset.InternalDelete;
+
+Var
+  TS : TMemoryStream;
+  OldPos,NewPos,CopySize1,CopySize2 : Cardinal;
+  
+begin
+  if (FCurrRecNo<0) or (FCurrRecNo>=FRecCount) then
+    Exit;
+  // Very inefficient. We should simply move the last part closer to the beginning in 
+  // The FStream.  
+  TS:=TMemoryStream.Create;
+  Try
+    if FCurrRecNo>0 then
+      begin
+      FStream.Position:=MDSGetRecordOffset(0);      //Delete Rec
+      if FCurrRecNo<FRecCount-1 then
+        begin
+        TS.CopyFrom(FStream, MDSGetRecordOffset(FCurrRecNo)-MDSGetRecordOffset(0));
+        FStream.Position:=MDSGetRecordOffset(FCurrRecNo+1);
+        TS.CopyFrom(FStream,(MDSGetRecordOffset(FRecCount))-MDSGetRecordOffset(FCurrRecNo+1));
+        end
+      else 
+        TS.CopyFrom(FStream,MDSGetRecordOffset(FRecCount-1));
+      end
+    else 
+      begin                                  //Delete first Rec
+      FStream.Position:=MDSGetRecordOffset(FCurrRecNo+1);
+      TS.CopyFrom(FStream,(MDSGetRecordOffset(FRecCount))-MDSGetRecordOffset(FCurrRecNo+1));
+      end;
+    FStream.loadFromStream(TS);  
+    Dec(FRecCount);
+    if FRecCount=0 then 
+      FCurrRecNo:=-1
+    else
+      if FCurrRecNo>=FRecCount then FCurrRecNo:=FRecCount-1;
+  Finally
+    TS.Free;
+  end;
+  FModified:=True;
+end;
+
+procedure TMemDataset.InternalInitFieldDefs;
+
+begin
+  If (FOpenStream<>Nil) then
+    ReadFieldDefsFromStream(FOpenStream);
+end;
+
+Procedure TMemDataset.CheckMarker(F : TStream; Marker : Integer);
+
+Var
+  I,P : Integer;
+
+begin
+  P:=F.Position;
+  If F.Read(I,MarkerSize)<>MarkerSize then
+    RaiseError(SErrInvalidDataStream,[P])
+  else
+    if (I<>Marker) then  
+      RaiseError(SErrInvalidMarkerAtPos,[P,I,Marker]);
+end;
+
+procedure TMemDataset.ReadFieldDefsFromStream(F : TStream); 
+
+Var
+  I,ACount : Integer;
+  FN : String;
+  FS : Integer;
+  B : Boolean;
+  FT : TFieldType;
+    
+begin
+  CheckMarker(F,smFieldDefs);
+  FieldDefs.Clear;
+  ACount:=ReadInteger(F);
+  For I:=1 to ACount do
+    begin
+    FN:=ReadString(F);
+    FS:=ReadInteger(F);
+    FT:=TFieldType(ReadInteger(F));
+    B:=ReadInteger(F)<>0;
+    TFieldDef.Create(FieldDefs,FN,ft,FS,B,I);
+    end;
+  CreateTable;  
+end;
+
+procedure TMemDataset.InternalFirst;
+begin
+  FCurrRecNo:=-1;
+end;
+
+procedure TMemDataset.InternalLast;
+begin
+  FCurrRecNo:=FRecCount;
+end;
+
+procedure TMemDataset.InternalOpen;
+
+
+begin
+  If (FFileName<>'') then
+    FOpenStream:=TFileStream.Create(FFileName,fmOpenRead);
+  Try  
+    InternalInitFieldDefs;
+    if DefaultFields then 
+      CreateFields;
+    BindFields(True);
+    FCurrRecNo:=-1;
+    If (FOpenStream<>Nil) then
+      begin
+      LoadDataFromStream(FOpenStream);
+      CheckMarker(FOpenStream,smEOF);
+      end;
+  Finally
+    FreeAndNil(FOpenStream);
+  end;
+  FIsOpen:=True;
+end;
+
+Procedure TMemDataSet.LoadDataFromStream(F : TStream);
+
+Var
+  Size : Integer; 
+
+begin
+  CheckMarker(F,smData);
+  Size:=ReadInteger(F);
+  FStream.Clear;
+  FStream.CopyFrom(F,Size);
+  FRecCount:=Size div FRecSize;
+  FCurrRecNo:=-1;
+end;
+
+Procedure TMemDataSet.LoadFromStream(F : TStream);
+
+begin
+  Close;
+  ReadFieldDefsFromStream(F);
+  LoadDataFromStream(F);
+  CheckMarker(F,smEOF);
+  FModified:=False;
+end;
+
+Procedure TMemDataSet.LoadFromFile(AFileName : String);
+
+Var
+  F : TFileStream;
+
+begin
+  F:=TFileStream.Create(AFileName,fmOpenRead);
+  Try
+    LoadFromStream(F);
+  Finally
+    F.Free;
+  end;
+end;
+
+
+Procedure TMemDataset.SaveToFile(AFileName : String);
+
+begin
+  SaveToFile(AFileName,True);  
+end;
+
+Procedure TMemDataset.SaveToFile(AFileName : String; SaveData : Boolean);
+
+Var
+  F : TFileStream;
+
+begin
+  If (AFileName='') then
+    RaiseError(SErrNoFileName,[]);
+  F:=TFileStream.Create(AFileName,fmCreate);
+  try
+    SaveToStream(F,SaveData);
+  Finally
+    F.Free;
+  end;
+end;
+
+Procedure TMemDataset.WriteMarker(F : TStream; Marker : Integer);
+
+begin
+  Writeinteger(F,Marker);
+end;
+
+Procedure TMemDataset.SaveToStream(F : TStream);
+
+begin
+  SaveToStream(F,True);
+end;
+
+Procedure TMemDataset.SaveToStream(F : TStream; SaveData : Boolean);
+
+begin
+  SaveFieldDefsToStream(F);
+  If SaveData then
+    SaveDataToStream(F,SaveData);
+  WriteMarker(F,smEOF);  
+end;
+
+Procedure TMemDataset.SaveFieldDefsToStream(F : TStream);
+
+Var
+  I,ACount : Integer;
+  FN : String;
+  FS : Integer;
+  B : Boolean;
+  FT : TFieldType;
+  FD : TFieldDef;
+    
+begin
+  WriteMarker(F,smFieldDefs);
+  WriteInteger(F,FieldDefs.Count);
+  For I:=1 to FieldDefs.Count do
+    begin
+    FD:=FieldDefs[I-1];
+    WriteString(F,FD.Name);
+    WriteInteger(F,FD.Size);
+    WriteInteger(F,Ord(FD.DataType));
+    WriteInteger(F,Ord(FD.Required));
+    end;
+end;
+
+Procedure TMemDataset.SaveDataToStream(F : TStream; SaveData : Boolean);
+
+begin
+  if SaveData then
+    begin
+    WriteMarker(F,smData);
+    WriteInteger(F,FStream.Size);
+    FStream.Position:=0;
+    F.CopyFrom(FStream,FStream.Size);
+    FModified:=False;
+    end
+  else
+    begin
+    WriteMarker(F,smData);
+    WriteInteger(F,0);
+    end;
+end;
+
+procedure TMemDataset.InternalClose;
+
+begin
+  if (FModified) and (FFileName<>'') then
+    SaveToFile(FFileName,True);
+  FIsOpen:=False;
+  FModified:=False;
+  BindFields(False);
+  if DefaultFields then 
+    DestroyFields;
+end;
+
+procedure TMemDataset.InternalPost;
+begin
+  CheckActive;
+  if ((State<>dsEdit) and (State<>dsInsert)) then 
+    Exit;
+  if (State=dsEdit) then 
+    MDSWriteRecord(ActiveBuffer, FCurrRecNo)
+  else 
+    InternalAddRecord(ActiveBuffer,True);
+end;
+
+function TMemDataset.IsCursorOpen: Boolean;
+
+begin
+  Result:=FIsOpen;
+end;
+
+function TMemDataset.GetRecord(Buffer: PChar; GetMode: TGetMode; DoCheck: Boolean): TGetResult;
+
+var 
+  Accepted: Boolean;
+
+begin
+  Result:=grOk;
+  Accepted:=False;
+  if (FRecCount<1) then
+    begin
+    Result:=grEOF;
+    exit;
+    end;
+  repeat
+    case GetMode of
+      gmCurrent:
+        if (FCurrRecNo>=FRecCount) or (FCurrRecNo<0) then 
+          Result:=grError;
+      gmNext:
+        if (FCurrRecNo<FRecCount-1) then 
+          Inc(FCurrRecNo)
+        else 
+          Result:=grEOF;
+      gmPrior:
+        if (FCurrRecNo>0) then 
+          Dec(FCurrRecNo)
+        else 
+          result:=grBOF;
+    end;
+    if result=grOK then
+      begin
+      MDSReadRecord(Buffer, FCurrRecNo);
+      PRecInfo(Buffer+FRecInfoOffset)^.Bookmark:=FCurrRecNo;
+      PRecInfo(Buffer+FRecInfoOffset)^.BookmarkFlag:=bfCurrent;
+      if (Filtered) then 
+        Accepted:=MDSFilterRecord(Buffer) //Filtering
+      else 
+        Accepted:=True;
+      if (GetMode=gmCurrent) and not Accepted then 
+        result:=grError;
+      end;
+  until (result<>grOK) or Accepted;
+end;
+
+function TMemDataset.GetFieldData(Field: TField; Buffer: Pointer): Boolean;
+
+var 
+  SrcBuffer: PChar;
+
+begin
+ result:=False;
+ if not MDSGetActiveBuffer(SrcBuffer) then 
+   Exit;
+ if (Field.FieldNo>0) and (Assigned(Buffer)) and (Assigned(SrcBuffer)) then
+   begin
+   Move((SrcBuffer+MDSGetFieldOffset(Field.FieldNo))^, Buffer^, MDSGetFieldSize(Field.FieldNo));
+   result:=True;
+   end;
+end;
+
+procedure TMemDataset.SetFieldData(Field: TField; Buffer: Pointer);
+
+var 
+  DestBuffer: PChar;
+
+begin
+ MDSGetActiveBuffer(DestBuffer);
+ if (Field.FieldNo>0) and (Assigned(Buffer)) and (Assigned(DestBuffer)) then
+   Move(Buffer^,(DestBuffer+MDSGetFieldOffset(Field.FieldNo))^, MDSGetFieldSize(Field.FieldNo));
+end;
+
+function TMemDataset.GetRecordSize: Word;
+
+begin
+  Result:=FRecSize;
+end;
+
+procedure TMemDataset.InternalGotoBookmark(ABookmark: Pointer);
+
+var 
+  ReqBookmark: integer;
+
+begin
+  ReqBookmark:=PInteger(ABookmark)^;
+  if (ReqBookmark>=0) and (ReqBookmark<FRecCount) then 
+    FCurrRecNo:=ReqBookmark
+  else 
+    RaiseError(SErrBookMarkNotFound,[ReqBookmark]);
+end;
+
+procedure TMemDataset.InternalSetToRecord(Buffer: PChar);
+
+var 
+  ReqBookmark: integer;
+
+begin
+  ReqBookmark:=PRecInfo(Buffer+FRecInfoOffset)^.Bookmark;
+  InternalGotoBookmark (@ReqBookmark);
+end;
+
+function TMemDataset.GetBookmarkFlag(Buffer: PChar): TBookmarkFlag;
+
+begin
+  Result:=PRecInfo(Buffer+FRecInfoOffset)^.BookmarkFlag;
+end;
+
+procedure TMemDataset.SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag);
+
+begin
+  PRecInfo(Buffer+FRecInfoOffset)^.BookmarkFlag := Value;
+end;
+
+procedure TMemDataset.GetBookmarkData(Buffer: PChar; Data: Pointer);
+
+begin
+  if Data<>nil then 
+    PInteger(Data)^:=PRecInfo(Buffer+FRecInfoOffset)^.Bookmark;
+end;
+
+procedure TMemDataset.SetBookmarkData(Buffer: PChar; Data: Pointer);
+
+begin
+  if Data<>nil then 
+    PRecInfo(Buffer+FRecInfoOffset)^.Bookmark:=PInteger(Data)^
+  else 
+    PRecInfo(Buffer+FRecInfoOffset)^.Bookmark:=0;
+end;
+
+function TMemDataset.MDSFilterRecord(Buffer: PChar): Boolean;
+
+var 
+  SaveState: TDatasetState;
+  
+begin
+  Result:=True;
+  if not Assigned(OnFilterRecord) then 
+    Exit;
+  SaveState:=SetTempState(dsFilter);
+  FFilterBuffer:=Buffer;
+  OnFilterRecord(Self,Result);
+  RestoreState(SaveState);
+end;
+
+Function TMemDataset.DataSize : Integer;
+
+begin
+  Result:=FStream.Size;
+end;
+
+procedure TMemDataset.InternalHandleException;
+begin
+// Application.HandleException(Self);
+end;
+
+procedure TMemDataset.Clear;
+
+begin
+  Clear(True);
+end;
+
+procedure TMemDataset.Clear(ClearDefs : Boolean);
+
+begin
+  FStream.Clear;
+  FRecCount:=0;
+  FCurrRecNo:=-1;
+  if Active then
+    Resync([]);
+  If ClearDefs then
+    begin
+    Close;
+    FieldDefs.Clear;
+    end;
+end;
+
+procedure TMemDataset.CreateTable;
+
+var 
+  I : integer;
+  
+begin
+  FStream.Clear;
+  FRecCount:=0;
+  FCurrRecNo:=-1;
+  FIsOpen:=False;
+  FRecSize:=0;
+  for I:=1 to FieldDefs.Count do
+    FRecSize:=FRecSize+MDSGetFieldSize(I);
+  FRecInfoOffset:=FRecSize;
+  FRecSize:=FRecSize+FRecInfoSize;
+  FRecBufferSize:=FRecSize;
+end;
+
+procedure TMemDataset.InternalAddRecord(Buffer: Pointer; DoAppend: Boolean);
+
+begin
+  MDSAppendRecord(ActiveBuffer);
+  InternalLast;
+  Inc(FRecCount);
+end;
+
+procedure TMemDataset.SetRecNo(Value: Integer);
+begin
+  CheckBrowseMode;
+  if (Value>1) and (Value<=FRecCount) then
+    begin
+    FCurrRecNo:=Value-1;
+    Resync([]);
+    end;
+end;
+
+Function TMemDataset.GetRecNo: Longint;
+
+begin
+  UpdateCursorPos;
+  if (FCurrRecNo<0) then 
+    Result:=1
+  else 
+    Result:=FCurrRecNo+1;
+end;
+
+Function TMemDataset.GetRecordCount: Longint;
+
+begin
+  CheckActive;
+  Result:=FRecCount;
+end;
+
+Procedure TMemDataset.CopyFromDataset(DataSet : TDataSet);
+
+begin
+  CopyFromDataset(Dataset,True);
+end;
+
+Procedure TMemDataset.CopyFromDataset(DataSet : TDataSet; CopyData : Boolean);
+
+Var
+  I  : Integer;
+  F,F1,F2 : TField;
+  L1,L2  : TList;
+  N : String;
+    
+begin
+  Clear(True);
+  // NOT from fielddefs. The data may not be available in buffers !!
+  For I:=0 to Dataset.FieldCount-1 do
+    begin
+    F:=Dataset.Fields[I];
+    TFieldDef.Create(FieldDefs,F.FieldName,F.DataType,F.Size,F.Required,F.FieldNo);
+    end;
+  CreateTable;  
+  If CopyData then
+    begin
+    Open;
+    L1:=TList.Create;
+    Try
+      L2:=TList.Create;
+      Try
+        For I:=0 to FieldDefs.Count-1 do
+          begin
+          N:=FieldDefs[I].Name;
+          F1:=FieldByName(N);
+          F2:=DataSet.FieldByName(N);
+          L1.Add(F1);
+          L2.Add(F2);
+          end;
+        Dataset.DisableControls;
+        Try
+          While not Dataset.EOF do
+            begin
+            Append;
+            For I:=0 to L1.Count-1 do
+              begin
+              F1:=TField(L1[i]);
+              F2:=TField(L2[I]);
+              Case F1.DataType of
+                ftString   : F1.AsString:=F2.AsString;
+                ftBoolean  : F1.AsBoolean:=F2.AsBoolean;
+                ftFloat    : F1.AsFloat:=F2.AsFloat;
+                ftLargeInt : F1.AsInteger:=F2.AsInteger;
+                ftSmallInt : F1.AsInteger:=F2.AsInteger;
+                ftInteger  : F1.AsInteger:=F2.AsInteger;
+                ftDate     : F1.AsDateTime:=F2.AsDateTime;
+                ftTime     : F1.AsDateTime:=F2.AsDateTime;
+              end;
+              end;
+            Try  
+              Post;  
+            except
+              Cancel;
+              Raise;
+            end;  
+            Dataset.Next;
+            end;
+        Finally
+          Dataset.EnableControls;
+        end;  
+      finally
+        L2.Free;    
+      end;
+    finally
+      l1.Free;
+    end;       
+    end;
+end;
+
+end.

fcl/db/memds/testcp.pp

@@ -0,0 +1,70 @@
+{
+    $Id$
+    This file is part of the Free Component Library (FCL)
+    Copyright (c) 1999-2000 by the Free Pascal development team
+
+    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.
+
+ **********************************************************************}
+{$mode objfpc}
+{$h+}
+
+program testcp;
+
+uses db,memds,classes,sysutils;
+
+Procedure DoTest;
+
+var 
+  I,ACount : integer;
+  D   : TDateTime;
+  M1,M2 : TMemDataSet;
+    
+begin
+  M1:=TMemDataset.Create(Nil);
+  Try
+    M2:=TMemDataset.Create(Nil);
+    Try
+      M1.FileName:=ParamStr(1);
+      M1.Open; 
+      Writeln('Copying');
+      M2.CopyFromDataSet(M1);
+      Writeln('Copied');
+      With M2 do
+        begin
+        First;
+        ACount:=0;
+        While Not EOF do
+          begin
+          Inc(ACount);
+          Writeln('Record ',ACount,' : ');
+          Writeln('------------------------');
+          For I:=0 to FieldCount-1 do
+            Writeln(Fields[I].FieldName,' : ',Fields[I].AsString);
+          Writeln;  
+          Next;  
+          end;
+        Writeln('Total data size : ',DataSize);
+        Close;
+        end;
+    finally
+      M2.Free;
+    end;     
+  finally
+    M1.Free;
+  end;     
+end;
+
+begin
+  If ParamCount<>1 then
+    begin
+    Writeln('Usage : testopen <filename>');
+    Halt(1);
+    end;
+  DoTest;
+end.

fcl/db/memds/testld.pp

@@ -0,0 +1,58 @@
+{
+    $Id$
+    This file is part of the Free Component Library (FCL)
+    Copyright (c) 1999-2000 by the Free Pascal development team
+
+    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.
+
+ **********************************************************************}
+{$mode objfpc}
+{$h+}
+
+program testld;
+
+uses db,memds,classes,sysutils;
+
+Procedure DoTest;
+
+var 
+  I,ACount : integer;
+  D   : TDateTime;
+  
+begin
+  with TMemDataset.Create(Nil) do
+    Try
+      LoadFromFile(ParamStr(1));
+      Open; 
+      First;
+      ACount:=0;
+      While Not EOF do
+        begin
+        Inc(ACount);
+        Writeln('Record ',ACount,' : ');
+        Writeln('------------------------');
+        For I:=0 to FieldCount-1 do
+          Writeln(Fields[I].FieldName,' : ',Fields[I].AsString);
+        Writeln;  
+        Next;  
+        end;
+      Writeln('Total data size : ',DataSize);
+      Close;
+  finally
+    Free;
+  end;     
+end;
+
+begin
+  If ParamCount<>1 then
+    begin
+    Writeln('Usage : testopen <filename>');
+    Halt(1);
+    end;
+  DoTest;
+end.

fcl/db/memds/testopen.pp

@@ -0,0 +1,58 @@
+{
+    $Id$
+    This file is part of the Free Component Library (FCL)
+    Copyright (c) 1999-2000 by the Free Pascal development team
+
+    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.
+
+ **********************************************************************}
+{$mode objfpc}
+{$h+}
+
+program testopen;
+
+uses db,memds,classes,sysutils;
+
+Procedure DoTest;
+
+var 
+  I,ACount : integer;
+  D   : TDateTime;
+  
+begin
+  with TMemDataset.Create(Nil) do
+    Try
+      FileName:=ParamStr(1);
+      Open; 
+      First;
+      ACount:=0;
+      While Not EOF do
+        begin
+        Inc(ACount);
+        Writeln('Record ',ACount,' : ');
+        Writeln('------------------------');
+        For I:=0 to FieldCount-1 do
+          Writeln(Fields[I].FieldName,' : ',Fields[I].AsString);
+        Writeln;  
+        Next;  
+        end;
+      Writeln('Total data size : ',DataSize);
+      Close;
+  finally
+    Free;
+  end;     
+end;
+
+begin
+  If ParamCount<>1 then
+    begin
+    Writeln('Usage : testopen <filename>');
+    Halt(1);
+    end;
+  DoTest;
+end.

fcl/db/memds/testpop.pp

@@ -0,0 +1,80 @@
+{
+    $Id$
+    This file is part of the Free Component Library (FCL)
+    Copyright (c) 1999-2000 by the Free Pascal development team
+
+    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.
+
+ **********************************************************************}
+{$mode objfpc}
+{$h+}
+
+program testpop;
+
+uses db,memds,classes,sysutils;
+
+Procedure DoTest;
+
+var 
+  I,ACount : integer;
+  D   : TDateTime;
+  
+begin
+  with TMemDataset.Create(Nil) do
+    Try
+      With FieldDefs do
+        begin
+        Clear;
+        Add('Boolean', ftBoolean, 0, False);
+        Add('Integer', ftInteger, 0, False);
+        Add('SmallInt', ftSmallInt, 0, False);
+        Add('Float', ftFloat, 0, False);
+        Add('String', ftString, 30, False);
+        Add('Time', ftTime, 0, False);
+        Add('Date', ftDate, 0, False);
+        end;
+      CreateTable;
+      Open;
+      D:=now;
+      ACount:=1000;
+      for I:=1 to ACount do
+        begin
+        Append;
+        FieldByName('Boolean').AsBoolean:=False;
+        FieldByName('Integer').AsInteger:=I;
+        FieldByName('SmallInt').AsInteger:=I;
+        FieldByName('Float').AsFloat:=I/10;
+        FieldByName('String').AsString:='Test-Data '+IntToStr(I);
+        FieldByName('Time').AsDateTime:=D;
+        FieldByName('Date').AsDateTime:=D;
+        Post;
+        end;
+      First;
+      ACount:=0;
+      While Not EOF do
+        begin
+        Inc(ACount);
+        Writeln('Record ',ACount,' : ');
+        Writeln('------------------------');
+        For I:=0 to FieldCount-1 do
+          Writeln(Fields[I].FieldName,' : ',Fields[I].AsString);
+        Writeln;  
+        Next;  
+        end;
+      Writeln('Total data size : ',DataSize);
+      If (ParamCount>0) then
+        FileName:=ParamStr(1);
+      Close;
+  finally
+    Free;
+  end;     
+end;
+
+begin
+  DoTest;
+end.