From 34f551ad5eff6658462674cc6fa4c02255d6103c Mon Sep 17 00:00:00 2001 From: michael Date: Thu, 4 Feb 2010 12:58:02 +0000 Subject: [PATCH] * Initial check-in git-svn-id: trunk@14857 - --- .gitattributes | 10 + packages/libsee/Makefile | 2802 ++++++++++++++++++++++++ packages/libsee/Makefile.fpc | 30 + packages/libsee/README.txt | 27 + packages/libsee/examples/mod_stream.pp | 478 ++++ packages/libsee/examples/teststream.pp | 28 + packages/libsee/examples/testwrite.pp | 25 + packages/libsee/examples/tlibsee.pp | 23 + packages/libsee/fpmake.pp | 42 + packages/libsee/src/libsee.pas | 1072 +++++++++ packages/libsee/src/libseewrap.c | 189 ++ 11 files changed, 4726 insertions(+) create mode 100644 packages/libsee/Makefile create mode 100644 packages/libsee/Makefile.fpc create mode 100644 packages/libsee/README.txt create mode 100644 packages/libsee/examples/mod_stream.pp create mode 100644 packages/libsee/examples/teststream.pp create mode 100644 packages/libsee/examples/testwrite.pp create mode 100644 packages/libsee/examples/tlibsee.pp create mode 100644 packages/libsee/fpmake.pp create mode 100644 packages/libsee/src/libsee.pas create mode 100644 packages/libsee/src/libseewrap.c diff --git a/.gitattributes b/.gitattributes index 9da9bc2935..ef166ecad1 100644 --- a/.gitattributes +++ b/.gitattributes @@ -4111,6 +4111,16 @@ packages/librsvg/Makefile svneol=native#text/plain packages/librsvg/Makefile.fpc svneol=native#text/plain packages/librsvg/fpmake.pp svneol=native#text/plain packages/librsvg/src/rsvg.pas svneol=native#text/plain +packages/libsee/Makefile svneol=native#text/plain +packages/libsee/Makefile.fpc svneol=native#text/plain +packages/libsee/README.txt svneol=native#text/plain +packages/libsee/examples/mod_stream.pp svneol=native#text/plain +packages/libsee/examples/teststream.pp svneol=native#text/plain +packages/libsee/examples/testwrite.pp svneol=native#text/plain +packages/libsee/examples/tlibsee.pp svneol=native#text/plain +packages/libsee/fpmake.pp svneol=native#text/plain +packages/libsee/src/libsee.pas svneol=native#text/plain +packages/libsee/src/libseewrap.c svneol=native#text/plain packages/libxml/Makefile svneol=native#text/plain packages/libxml/Makefile.fpc svneol=native#text/plain packages/libxml/examples/Makefile svneol=native#text/plain diff --git a/packages/libsee/Makefile b/packages/libsee/Makefile new file mode 100644 index 0000000000..76eb52e6e3 --- /dev/null +++ b/packages/libsee/Makefile @@ -0,0 +1,2802 @@ +# +# Don't edit, this file is generated by FPCMake Version 2.0.0 [2009/11/06] +# +default: all +MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded +BSDs = freebsd netbsd openbsd darwin +UNIXs = linux $(BSDs) solaris qnx +LIMIT83fs = go32v2 os2 emx watcom +OSNeedsComspecToRunBatch = go32v2 watcom +FORCE: +.PHONY: FORCE +override PATH:=$(patsubst %/,%,$(subst \,/,$(PATH))) +ifneq ($(findstring darwin,$(OSTYPE)),) +inUnix=1 #darwin +SEARCHPATH:=$(filter-out .,$(subst :, ,$(PATH))) +else +ifeq ($(findstring ;,$(PATH)),) +inUnix=1 +SEARCHPATH:=$(filter-out .,$(subst :, ,$(PATH))) +else +SEARCHPATH:=$(subst ;, ,$(PATH)) +endif +endif +SEARCHPATH+=$(patsubst %/,%,$(subst \,/,$(dir $(MAKE)))) +PWD:=$(strip $(wildcard $(addsuffix /pwd.exe,$(SEARCHPATH)))) +ifeq ($(PWD),) +PWD:=$(strip $(wildcard $(addsuffix /pwd,$(SEARCHPATH)))) +ifeq ($(PWD),) +$(error You need the GNU utils package to use this Makefile) +else +PWD:=$(firstword $(PWD)) +SRCEXEEXT= +endif +else +PWD:=$(firstword $(PWD)) +SRCEXEEXT=.exe +endif +ifndef inUnix +ifeq ($(OS),Windows_NT) +inWinNT=1 +else +ifdef OS2_SHELL +inOS2=1 +endif +endif +else +ifneq ($(findstring cygdrive,$(PATH)),) +inCygWin=1 +endif +endif +ifdef inUnix +SRCBATCHEXT=.sh +else +ifdef inOS2 +SRCBATCHEXT=.cmd +else +SRCBATCHEXT=.bat +endif +endif +ifdef COMSPEC +ifneq ($(findstring $(OS_SOURCE),$(OSNeedsComspecToRunBatch)),) +ifndef RUNBATCH +RUNBATCH=$(COMSPEC) /C +endif +endif +endif +ifdef inUnix +PATHSEP=/ +else +PATHSEP:=$(subst /,\,/) +ifdef inCygWin +PATHSEP=/ +endif +endif +ifdef PWD +BASEDIR:=$(subst \,/,$(shell $(PWD))) +ifdef inCygWin +ifneq ($(findstring /cygdrive/,$(BASEDIR)),) +BASENODIR:=$(patsubst /cygdrive%,%,$(BASEDIR)) +BASEDRIVE:=$(firstword $(subst /, ,$(BASENODIR))) +BASEDIR:=$(subst /cygdrive/$(BASEDRIVE)/,$(BASEDRIVE):/,$(BASEDIR)) +endif +endif +else +BASEDIR=. +endif +ifdef inOS2 +ifndef ECHO +ECHO:=$(strip $(wildcard $(addsuffix /gecho$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(ECHO),) +ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(ECHO),) +ECHO=echo +else +ECHO:=$(firstword $(ECHO)) +endif +else +ECHO:=$(firstword $(ECHO)) +endif +endif +export ECHO +endif +override DEFAULT_FPCDIR=../.. +ifndef FPC +ifdef PP +FPC=$(PP) +endif +endif +ifndef FPC +FPCPROG:=$(strip $(wildcard $(addsuffix /fpc$(SRCEXEEXT),$(SEARCHPATH)))) +ifneq ($(FPCPROG),) +FPCPROG:=$(firstword $(FPCPROG)) +ifneq ($(CPU_TARGET),) +FPC:=$(shell $(FPCPROG) -P$(CPU_TARGET) -PB) +else +FPC:=$(shell $(FPCPROG) -PB) +endif +ifneq ($(findstring Error,$(FPC)),) +override FPC=$(firstword $(strip $(wildcard $(addsuffix /ppc386$(SRCEXEEXT),$(SEARCHPATH))))) +else +ifeq ($(strip $(wildcard $(FPC))),) +FPC:=$(firstword $(FPCPROG)) +endif +endif +else +override FPC=$(firstword $(strip $(wildcard $(addsuffix /ppc386$(SRCEXEEXT),$(SEARCHPATH))))) +endif +endif +override FPC:=$(subst $(SRCEXEEXT),,$(FPC)) +override FPC:=$(subst \,/,$(FPC))$(SRCEXEEXT) +FOUNDFPC:=$(strip $(wildcard $(FPC))) +ifeq ($(FOUNDFPC),) +FOUNDFPC=$(strip $(wildcard $(addsuffix /$(FPC),$(SEARCHPATH)))) +ifeq ($(FOUNDFPC),) +$(error Compiler $(FPC) not found) +endif +endif +ifndef FPC_COMPILERINFO +FPC_COMPILERINFO:=$(shell $(FPC) -iVSPTPSOTO) +endif +ifndef FPC_VERSION +FPC_VERSION:=$(word 1,$(FPC_COMPILERINFO)) +endif +export FPC FPC_VERSION FPC_COMPILERINFO +unexport CHECKDEPEND ALLDEPENDENCIES +ifndef CPU_TARGET +ifdef CPU_TARGET_DEFAULT +CPU_TARGET=$(CPU_TARGET_DEFAULT) +endif +endif +ifndef OS_TARGET +ifdef OS_TARGET_DEFAULT +OS_TARGET=$(OS_TARGET_DEFAULT) +endif +endif +ifneq ($(words $(FPC_COMPILERINFO)),5) +FPC_COMPILERINFO+=$(shell $(FPC) -iSP) +FPC_COMPILERINFO+=$(shell $(FPC) -iTP) +FPC_COMPILERINFO+=$(shell $(FPC) -iSO) +FPC_COMPILERINFO+=$(shell $(FPC) -iTO) +endif +ifndef CPU_SOURCE +CPU_SOURCE:=$(word 2,$(FPC_COMPILERINFO)) +endif +ifndef CPU_TARGET +CPU_TARGET:=$(word 3,$(FPC_COMPILERINFO)) +endif +ifndef OS_SOURCE +OS_SOURCE:=$(word 4,$(FPC_COMPILERINFO)) +endif +ifndef OS_TARGET +OS_TARGET:=$(word 5,$(FPC_COMPILERINFO)) +endif +FULL_TARGET=$(CPU_TARGET)-$(OS_TARGET) +FULL_SOURCE=$(CPU_SOURCE)-$(OS_SOURCE) +ifeq ($(CPU_TARGET),armeb) +ARCH=arm +override FPCOPT+=-Cb +else +ifeq ($(CPU_TARGET),armel) +ARCH=arm +override FPCOPT+=-CaEABI +else +ARCH=$(CPU_TARGET) +endif +endif +ifneq ($(findstring $(OS_SOURCE),$(LIMIT83fs)),) +TARGETSUFFIX=$(OS_TARGET) +SOURCESUFFIX=$(OS_SOURCE) +else +TARGETSUFFIX=$(FULL_TARGET) +SOURCESUFFIX=$(FULL_SOURCE) +endif +ifneq ($(FULL_TARGET),$(FULL_SOURCE)) +CROSSCOMPILE=1 +endif +ifeq ($(findstring makefile,$(MAKECMDGOALS)),) +ifeq ($(findstring $(FULL_TARGET),$(MAKEFILETARGETS)),) +$(error The Makefile doesn't support target $(FULL_TARGET), please run fpcmake first) +endif +endif +ifneq ($(findstring $(OS_TARGET),$(BSDs)),) +BSDhier=1 +endif +ifeq ($(OS_TARGET),linux) +linuxHier=1 +endif +export OS_TARGET OS_SOURCE ARCH CPU_TARGET CPU_SOURCE FULL_TARGET FULL_SOURCE TARGETSUFFIX SOURCESUFFIX CROSSCOMPILE +ifdef FPCDIR +override FPCDIR:=$(subst \,/,$(FPCDIR)) +ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),) +override FPCDIR=wrong +endif +else +override FPCDIR=wrong +endif +ifdef DEFAULT_FPCDIR +ifeq ($(FPCDIR),wrong) +override FPCDIR:=$(subst \,/,$(DEFAULT_FPCDIR)) +ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),) +override FPCDIR=wrong +endif +endif +endif +ifeq ($(FPCDIR),wrong) +ifdef inUnix +override FPCDIR=/usr/local/lib/fpc/$(FPC_VERSION) +ifeq ($(wildcard $(FPCDIR)/units),) +override FPCDIR=/usr/lib/fpc/$(FPC_VERSION) +endif +else +override FPCDIR:=$(subst /$(FPC),,$(firstword $(strip $(wildcard $(addsuffix /$(FPC),$(SEARCHPATH)))))) +override FPCDIR:=$(FPCDIR)/.. +ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),) +override FPCDIR:=$(FPCDIR)/.. +ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),) +override FPCDIR:=$(BASEDIR) +ifeq ($(wildcard $(addprefix $(FPCDIR)/,rtl units)),) +override FPCDIR=c:/pp +endif +endif +endif +endif +endif +ifndef CROSSBINDIR +CROSSBINDIR:=$(wildcard $(FPCDIR)/bin/$(TARGETSUFFIX)) +endif +ifeq ($(OS_TARGET),darwin) +ifeq ($(OS_SOURCE),darwin) +DARWIN2DARWIN=1 +endif +endif +ifndef BINUTILSPREFIX +ifndef CROSSBINDIR +ifdef CROSSCOMPILE +ifndef DARWIN2DARWIN +BINUTILSPREFIX=$(CPU_TARGET)-$(OS_TARGET)- +endif +endif +endif +endif +UNITSDIR:=$(wildcard $(FPCDIR)/units/$(TARGETSUFFIX)) +ifeq ($(UNITSDIR),) +UNITSDIR:=$(wildcard $(FPCDIR)/units/$(OS_TARGET)) +endif +PACKAGESDIR:=$(wildcard $(FPCDIR) $(FPCDIR)/packages $(FPCDIR)/packages/base $(FPCDIR)/packages/extra) +override PACKAGE_NAME=libsee +override PACKAGE_VERSION=2.5.1 +ifeq ($(FULL_TARGET),i386-linux) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-go32v2) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-win32) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-os2) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-freebsd) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-beos) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-haiku) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-netbsd) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-solaris) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-qnx) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-netware) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-openbsd) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-wdosx) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-darwin) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-emx) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-watcom) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-netwlibc) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-wince) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-embedded) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-symbian) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),m68k-linux) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),m68k-freebsd) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),m68k-netbsd) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),m68k-amiga) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),m68k-atari) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),m68k-openbsd) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),m68k-palmos) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),m68k-embedded) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),powerpc-linux) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),powerpc-netbsd) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),powerpc-amiga) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),powerpc-macos) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),powerpc-darwin) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),powerpc-morphos) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),powerpc-embedded) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),sparc-linux) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),sparc-netbsd) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),sparc-solaris) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),sparc-embedded) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),x86_64-linux) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),x86_64-freebsd) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),x86_64-darwin) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),x86_64-win64) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),x86_64-embedded) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),arm-linux) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),arm-palmos) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),arm-darwin) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),arm-wince) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),arm-gba) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),arm-nds) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),arm-embedded) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),arm-symbian) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),powerpc64-linux) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),powerpc64-darwin) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),powerpc64-embedded) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),avr-embedded) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),armeb-linux) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),armeb-embedded) +override TARGET_UNITS+=libsee +endif +ifeq ($(FULL_TARGET),i386-linux) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-go32v2) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-win32) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-os2) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-freebsd) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-beos) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-haiku) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-netbsd) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-solaris) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-qnx) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-netware) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-openbsd) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-wdosx) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-darwin) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-emx) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-watcom) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-netwlibc) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-wince) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-embedded) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),i386-symbian) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),m68k-linux) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),m68k-freebsd) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),m68k-netbsd) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),m68k-amiga) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),m68k-atari) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),m68k-openbsd) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),m68k-palmos) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),m68k-embedded) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),powerpc-linux) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),powerpc-netbsd) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),powerpc-amiga) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),powerpc-macos) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),powerpc-darwin) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),powerpc-morphos) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),powerpc-embedded) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),sparc-linux) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),sparc-netbsd) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),sparc-solaris) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),sparc-embedded) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),x86_64-linux) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),x86_64-freebsd) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),x86_64-darwin) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),x86_64-win64) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),x86_64-embedded) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),arm-linux) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),arm-palmos) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),arm-darwin) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),arm-wince) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),arm-gba) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),arm-nds) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),arm-embedded) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),arm-symbian) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),powerpc64-linux) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),powerpc64-darwin) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),powerpc64-embedded) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),avr-embedded) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),armeb-linux) +override TARGET_EXAMPLEDIRS+=examples +endif +ifeq ($(FULL_TARGET),armeb-embedded) +override TARGET_EXAMPLEDIRS+=examples +endif +override INSTALL_FPCPACKAGE=y +ifeq ($(FULL_TARGET),i386-linux) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-go32v2) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-win32) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-os2) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-freebsd) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-beos) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-haiku) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-netbsd) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-solaris) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-qnx) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-netware) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-openbsd) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-wdosx) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-darwin) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-emx) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-watcom) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-netwlibc) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-wince) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-embedded) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-symbian) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-linux) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-freebsd) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-netbsd) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-amiga) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-atari) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-openbsd) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-palmos) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-embedded) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-linux) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-netbsd) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-amiga) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-macos) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-darwin) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-morphos) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-embedded) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),sparc-linux) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),sparc-netbsd) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),sparc-solaris) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),sparc-embedded) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),x86_64-linux) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),x86_64-freebsd) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),x86_64-darwin) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),x86_64-win64) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),x86_64-embedded) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-linux) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-palmos) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-darwin) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-wince) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-gba) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-nds) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-embedded) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-symbian) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc64-linux) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc64-darwin) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc64-embedded) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),avr-embedded) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),armeb-linux) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),armeb-embedded) +override COMPILER_INCLUDEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-linux) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-go32v2) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-win32) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-os2) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-freebsd) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-beos) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-haiku) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-netbsd) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-solaris) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-qnx) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-netware) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-openbsd) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-wdosx) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-darwin) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-emx) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-watcom) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-netwlibc) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-wince) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-embedded) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),i386-symbian) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-linux) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-freebsd) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-netbsd) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-amiga) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-atari) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-openbsd) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-palmos) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),m68k-embedded) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-linux) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-netbsd) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-amiga) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-macos) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-darwin) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-morphos) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc-embedded) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),sparc-linux) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),sparc-netbsd) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),sparc-solaris) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),sparc-embedded) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),x86_64-linux) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),x86_64-freebsd) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),x86_64-darwin) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),x86_64-win64) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),x86_64-embedded) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-linux) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-palmos) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-darwin) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-wince) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-gba) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-nds) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-embedded) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),arm-symbian) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc64-linux) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc64-darwin) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),powerpc64-embedded) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),avr-embedded) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),armeb-linux) +override COMPILER_SOURCEDIR+=src +endif +ifeq ($(FULL_TARGET),armeb-embedded) +override COMPILER_SOURCEDIR+=src +endif +override SHARED_BUILD=n +override SHARED_BUILD=n +ifdef REQUIRE_UNITSDIR +override UNITSDIR+=$(REQUIRE_UNITSDIR) +endif +ifdef REQUIRE_PACKAGESDIR +override PACKAGESDIR+=$(REQUIRE_PACKAGESDIR) +endif +ifdef ZIPINSTALL +ifneq ($(findstring $(OS_TARGET),$(UNIXs)),) +UNIXHier=1 +endif +else +ifneq ($(findstring $(OS_SOURCE),$(UNIXs)),) +UNIXHier=1 +endif +endif +ifndef INSTALL_PREFIX +ifdef PREFIX +INSTALL_PREFIX=$(PREFIX) +endif +endif +ifndef INSTALL_PREFIX +ifdef UNIXHier +INSTALL_PREFIX=/usr/local +else +ifdef INSTALL_FPCPACKAGE +INSTALL_BASEDIR:=/pp +else +INSTALL_BASEDIR:=/$(PACKAGE_NAME) +endif +endif +endif +export INSTALL_PREFIX +ifdef INSTALL_FPCSUBDIR +export INSTALL_FPCSUBDIR +endif +ifndef DIST_DESTDIR +DIST_DESTDIR:=$(BASEDIR) +endif +export DIST_DESTDIR +ifndef COMPILER_UNITTARGETDIR +ifdef PACKAGEDIR_MAIN +COMPILER_UNITTARGETDIR=$(PACKAGEDIR_MAIN)/units/$(TARGETSUFFIX) +else +COMPILER_UNITTARGETDIR=units/$(TARGETSUFFIX) +endif +endif +ifndef COMPILER_TARGETDIR +COMPILER_TARGETDIR=. +endif +ifndef INSTALL_BASEDIR +ifdef UNIXHier +ifdef INSTALL_FPCPACKAGE +INSTALL_BASEDIR:=$(INSTALL_PREFIX)/lib/fpc/$(FPC_VERSION) +else +INSTALL_BASEDIR:=$(INSTALL_PREFIX)/lib/$(PACKAGE_NAME) +endif +else +INSTALL_BASEDIR:=$(INSTALL_PREFIX) +endif +endif +ifndef INSTALL_BINDIR +ifdef UNIXHier +INSTALL_BINDIR:=$(INSTALL_PREFIX)/bin +else +INSTALL_BINDIR:=$(INSTALL_BASEDIR)/bin +ifdef INSTALL_FPCPACKAGE +ifdef CROSSCOMPILE +ifdef CROSSINSTALL +INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(SOURCESUFFIX) +else +INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(TARGETSUFFIX) +endif +else +INSTALL_BINDIR:=$(INSTALL_BINDIR)/$(TARGETSUFFIX) +endif +endif +endif +endif +ifndef INSTALL_UNITDIR +INSTALL_UNITDIR:=$(INSTALL_BASEDIR)/units/$(TARGETSUFFIX) +ifdef INSTALL_FPCPACKAGE +ifdef PACKAGE_NAME +INSTALL_UNITDIR:=$(INSTALL_UNITDIR)/$(PACKAGE_NAME) +endif +endif +endif +ifndef INSTALL_LIBDIR +ifdef UNIXHier +INSTALL_LIBDIR:=$(INSTALL_PREFIX)/lib +else +INSTALL_LIBDIR:=$(INSTALL_UNITDIR) +endif +endif +ifndef INSTALL_SOURCEDIR +ifdef UNIXHier +ifdef BSDhier +SRCPREFIXDIR=share/src +else +ifdef linuxHier +SRCPREFIXDIR=share/src +else +SRCPREFIXDIR=src +endif +endif +ifdef INSTALL_FPCPACKAGE +ifdef INSTALL_FPCSUBDIR +INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/fpc-$(FPC_VERSION)/$(INSTALL_FPCSUBDIR)/$(PACKAGE_NAME) +else +INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/fpc-$(FPC_VERSION)/$(PACKAGE_NAME) +endif +else +INSTALL_SOURCEDIR:=$(INSTALL_PREFIX)/$(SRCPREFIXDIR)/$(PACKAGE_NAME)-$(PACKAGE_VERSION) +endif +else +ifdef INSTALL_FPCPACKAGE +ifdef INSTALL_FPCSUBDIR +INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source/$(INSTALL_FPCSUBDIR)/$(PACKAGE_NAME) +else +INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source/$(PACKAGE_NAME) +endif +else +INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source +endif +endif +endif +ifndef INSTALL_DOCDIR +ifdef UNIXHier +ifdef BSDhier +DOCPREFIXDIR=share/doc +else +ifdef linuxHier +DOCPREFIXDIR=share/doc +else +DOCPREFIXDIR=doc +endif +endif +ifdef INSTALL_FPCPACKAGE +INSTALL_DOCDIR:=$(INSTALL_PREFIX)/$(DOCPREFIXDIR)/fpc-$(FPC_VERSION)/$(PACKAGE_NAME) +else +INSTALL_DOCDIR:=$(INSTALL_PREFIX)/$(DOCPREFIXDIR)/$(PACKAGE_NAME)-$(PACKAGE_VERSION) +endif +else +ifdef INSTALL_FPCPACKAGE +INSTALL_DOCDIR:=$(INSTALL_BASEDIR)/doc/$(PACKAGE_NAME) +else +INSTALL_DOCDIR:=$(INSTALL_BASEDIR)/doc +endif +endif +endif +ifndef INSTALL_EXAMPLEDIR +ifdef UNIXHier +ifdef INSTALL_FPCPACKAGE +ifdef BSDhier +INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/share/examples/fpc-$(FPC_VERSION)/$(PACKAGE_NAME) +else +ifdef linuxHier +INSTALL_EXAMPLEDIR:=$(INSTALL_DOCDIR)/examples +else +INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/doc/fpc-$(FPC_VERSION)/examples/$(PACKAGE_NAME) +endif +endif +else +ifdef BSDhier +INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/share/examples/$(PACKAGE_NAME)-$(PACKAGE_VERSION) +else +ifdef linuxHier +INSTALL_EXAMPLEDIR:=$(INSTALL_DOCDIR)/examples/$(PACKAGE_NAME)-$(PACKAGE_VERSION) +else +INSTALL_EXAMPLEDIR:=$(INSTALL_PREFIX)/doc/$(PACKAGE_NAME)-$(PACKAGE_VERSION) +endif +endif +endif +else +ifdef INSTALL_FPCPACKAGE +INSTALL_EXAMPLEDIR:=$(INSTALL_BASEDIR)/examples/$(PACKAGE_NAME) +else +INSTALL_EXAMPLEDIR:=$(INSTALL_BASEDIR)/examples +endif +endif +endif +ifndef INSTALL_DATADIR +INSTALL_DATADIR=$(INSTALL_BASEDIR) +endif +ifndef INSTALL_SHAREDDIR +INSTALL_SHAREDDIR=$(INSTALL_PREFIX)/lib +endif +ifdef CROSSCOMPILE +ifndef CROSSBINDIR +CROSSBINDIR:=$(wildcard $(CROSSTARGETDIR)/bin/$(SOURCESUFFIX)) +ifeq ($(CROSSBINDIR),) +CROSSBINDIR:=$(wildcard $(INSTALL_BASEDIR)/cross/$(TARGETSUFFIX)/bin/$(FULL_SOURCE)) +endif +endif +else +CROSSBINDIR= +endif +ifeq ($(OS_SOURCE),linux) +ifndef GCCLIBDIR +ifeq ($(CPU_TARGET),i386) +ifneq ($(findstring x86_64,$(shell uname -a)),) +ifeq ($(BINUTILSPREFIX),) +GCCLIBDIR:=$(shell dirname `gcc -m32 -print-libgcc-file-name`) +endif +endif +endif +ifeq ($(CPU_TARGET),powerpc64) +ifeq ($(BINUTILSPREFIX),) +GCCLIBDIR:=$(shell dirname `gcc -m64 -print-libgcc-file-name`) +endif +endif +endif +ifndef GCCLIBDIR +CROSSGCC=$(strip $(wildcard $(addsuffix /$(BINUTILSPREFIX)gcc$(SRCEXEEXT),$(SEARCHPATH)))) +ifneq ($(CROSSGCC),) +GCCLIBDIR:=$(shell dirname `$(CROSSGCC) -print-libgcc-file-name`) +endif +endif +ifndef OTHERLIBDIR +OTHERLIBDIR:=$(shell grep -v "^\#" /etc/ld.so.conf | awk '{ ORS=" "; print $1 }') +endif +endif +ifdef inUnix +ifeq ($(OS_SOURCE),netbsd) +OTHERLIBDIR+=/usr/pkg/lib +endif +export GCCLIBDIR OTHERLIB +endif +BATCHEXT=.bat +LOADEREXT=.as +EXEEXT=.exe +PPLEXT=.ppl +PPUEXT=.ppu +OEXT=.o +ASMEXT=.s +SMARTEXT=.sl +STATICLIBEXT=.a +SHAREDLIBEXT=.so +SHAREDLIBPREFIX=libfp +STATICLIBPREFIX=libp +IMPORTLIBPREFIX=libimp +RSTEXT=.rst +ifeq ($(findstring 1.0.,$(FPC_VERSION)),) +ifeq ($(OS_TARGET),go32v1) +STATICLIBPREFIX= +SHORTSUFFIX=v1 +endif +ifeq ($(OS_TARGET),go32v2) +STATICLIBPREFIX= +SHORTSUFFIX=dos +IMPORTLIBPREFIX= +endif +ifeq ($(OS_TARGET),watcom) +STATICLIBPREFIX= +OEXT=.obj +ASMEXT=.asm +SHAREDLIBEXT=.dll +SHORTSUFFIX=wat +IMPORTLIBPREFIX= +endif +ifeq ($(OS_TARGET),linux) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=lnx +endif +ifeq ($(OS_TARGET),freebsd) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=fbs +endif +ifeq ($(OS_TARGET),netbsd) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=nbs +endif +ifeq ($(OS_TARGET),openbsd) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=obs +endif +ifeq ($(OS_TARGET),win32) +SHAREDLIBEXT=.dll +SHORTSUFFIX=w32 +endif +ifeq ($(OS_TARGET),os2) +BATCHEXT=.cmd +AOUTEXT=.out +STATICLIBPREFIX= +SHAREDLIBEXT=.dll +SHORTSUFFIX=os2 +ECHO=echo +IMPORTLIBPREFIX= +endif +ifeq ($(OS_TARGET),emx) +BATCHEXT=.cmd +AOUTEXT=.out +STATICLIBPREFIX= +SHAREDLIBEXT=.dll +SHORTSUFFIX=emx +ECHO=echo +IMPORTLIBPREFIX= +endif +ifeq ($(OS_TARGET),amiga) +EXEEXT= +SHAREDLIBEXT=.library +SHORTSUFFIX=amg +endif +ifeq ($(OS_TARGET),morphos) +EXEEXT= +SHAREDLIBEXT=.library +SHORTSUFFIX=mos +endif +ifeq ($(OS_TARGET),atari) +EXEEXT=.ttp +SHORTSUFFIX=ata +endif +ifeq ($(OS_TARGET),beos) +BATCHEXT=.sh +EXEEXT= +SHORTSUFFIX=be +endif +ifeq ($(OS_TARGET),haiku) +BATCHEXT=.sh +EXEEXT= +SHORTSUFFIX=hai +endif +ifeq ($(OS_TARGET),solaris) +BATCHEXT=.sh +EXEEXT= +SHORTSUFFIX=sun +endif +ifeq ($(OS_TARGET),qnx) +BATCHEXT=.sh +EXEEXT= +SHORTSUFFIX=qnx +endif +ifeq ($(OS_TARGET),netware) +EXEEXT=.nlm +STATICLIBPREFIX= +SHORTSUFFIX=nw +IMPORTLIBPREFIX=imp +endif +ifeq ($(OS_TARGET),netwlibc) +EXEEXT=.nlm +STATICLIBPREFIX= +SHORTSUFFIX=nwl +IMPORTLIBPREFIX=imp +endif +ifeq ($(OS_TARGET),macos) +BATCHEXT= +EXEEXT= +DEBUGSYMEXT=.xcoff +SHORTSUFFIX=mac +IMPORTLIBPREFIX=imp +endif +ifeq ($(OS_TARGET),darwin) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=dwn +endif +ifeq ($(OS_TARGET),gba) +EXEEXT=.gba +SHAREDLIBEXT=.so +SHORTSUFFIX=gba +endif +ifeq ($(OS_TARGET),symbian) +SHAREDLIBEXT=.dll +SHORTSUFFIX=symbian +endif +else +ifeq ($(OS_TARGET),go32v1) +PPUEXT=.pp1 +OEXT=.o1 +ASMEXT=.s1 +SMARTEXT=.sl1 +STATICLIBEXT=.a1 +SHAREDLIBEXT=.so1 +STATICLIBPREFIX= +SHORTSUFFIX=v1 +IMPORTLIBPREFIX= +endif +ifeq ($(OS_TARGET),go32v2) +STATICLIBPREFIX= +SHORTSUFFIX=dos +IMPORTLIBPREFIX= +endif +ifeq ($(OS_TARGET),watcom) +STATICLIBPREFIX= +SHORTSUFFIX=wat +IMPORTLIBPREFIX= +endif +ifeq ($(OS_TARGET),linux) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=lnx +endif +ifeq ($(OS_TARGET),freebsd) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=fbs +endif +ifeq ($(OS_TARGET),netbsd) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=nbs +endif +ifeq ($(OS_TARGET),openbsd) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=obs +endif +ifeq ($(OS_TARGET),win32) +PPUEXT=.ppw +OEXT=.ow +ASMEXT=.sw +SMARTEXT=.slw +STATICLIBEXT=.aw +SHAREDLIBEXT=.dll +SHORTSUFFIX=w32 +endif +ifeq ($(OS_TARGET),os2) +BATCHEXT=.cmd +PPUEXT=.ppo +ASMEXT=.so2 +OEXT=.oo2 +AOUTEXT=.out +SMARTEXT=.sl2 +STATICLIBPREFIX= +STATICLIBEXT=.ao2 +SHAREDLIBEXT=.dll +SHORTSUFFIX=os2 +ECHO=echo +IMPORTLIBPREFIX= +endif +ifeq ($(OS_TARGET),amiga) +EXEEXT= +PPUEXT=.ppu +ASMEXT=.s +OEXT=.o +SMARTEXT=.sl +STATICLIBEXT=.a +SHAREDLIBEXT=.library +SHORTSUFFIX=amg +endif +ifeq ($(OS_TARGET),atari) +PPUEXT=.ppu +ASMEXT=.s +OEXT=.o +SMARTEXT=.sl +STATICLIBEXT=.a +EXEEXT=.ttp +SHORTSUFFIX=ata +endif +ifeq ($(OS_TARGET),beos) +BATCHEXT=.sh +PPUEXT=.ppu +ASMEXT=.s +OEXT=.o +SMARTEXT=.sl +STATICLIBEXT=.a +EXEEXT= +SHORTSUFFIX=be +endif +ifeq ($(OS_TARGET),solaris) +BATCHEXT=.sh +PPUEXT=.ppu +ASMEXT=.s +OEXT=.o +SMARTEXT=.sl +STATICLIBEXT=.a +EXEEXT= +SHORTSUFFIX=sun +endif +ifeq ($(OS_TARGET),qnx) +BATCHEXT=.sh +PPUEXT=.ppu +ASMEXT=.s +OEXT=.o +SMARTEXT=.sl +STATICLIBEXT=.a +EXEEXT= +SHORTSUFFIX=qnx +endif +ifeq ($(OS_TARGET),netware) +STATICLIBPREFIX= +PPUEXT=.ppu +OEXT=.o +ASMEXT=.s +SMARTEXT=.sl +STATICLIBEXT=.a +SHAREDLIBEXT=.nlm +EXEEXT=.nlm +SHORTSUFFIX=nw +IMPORTLIBPREFIX=imp +endif +ifeq ($(OS_TARGET),netwlibc) +STATICLIBPREFIX= +PPUEXT=.ppu +OEXT=.o +ASMEXT=.s +SMARTEXT=.sl +STATICLIBEXT=.a +SHAREDLIBEXT=.nlm +EXEEXT=.nlm +SHORTSUFFIX=nwl +IMPORTLIBPREFIX=imp +endif +ifeq ($(OS_TARGET),macos) +BATCHEXT= +PPUEXT=.ppu +ASMEXT=.s +OEXT=.o +SMARTEXT=.sl +STATICLIBEXT=.a +EXEEXT= +DEBUGSYMEXT=.xcoff +SHORTSUFFIX=mac +IMPORTLIBPREFIX=imp +endif +endif +ifneq ($(findstring $(OS_SOURCE),$(LIMIT83fs)),) +FPCMADE=fpcmade.$(SHORTSUFFIX) +ZIPSUFFIX=$(SHORTSUFFIX) +ZIPCROSSPREFIX= +ZIPSOURCESUFFIX=src +ZIPEXAMPLESUFFIX=exm +else +FPCMADE=fpcmade.$(TARGETSUFFIX) +ZIPSOURCESUFFIX=.source +ZIPEXAMPLESUFFIX=.examples +ifdef CROSSCOMPILE +ZIPSUFFIX=.$(SOURCESUFFIX) +ZIPCROSSPREFIX=$(TARGETSUFFIX)- +else +ZIPSUFFIX=.$(TARGETSUFFIX) +ZIPCROSSPREFIX= +endif +endif +ifndef ECHO +ECHO:=$(strip $(wildcard $(addsuffix /gecho$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(ECHO),) +ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(ECHO),) +ECHO= __missing_command_ECHO +else +ECHO:=$(firstword $(ECHO)) +endif +else +ECHO:=$(firstword $(ECHO)) +endif +endif +export ECHO +ifndef DATE +DATE:=$(strip $(wildcard $(addsuffix /gdate$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(DATE),) +DATE:=$(strip $(wildcard $(addsuffix /date$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(DATE),) +DATE= __missing_command_DATE +else +DATE:=$(firstword $(DATE)) +endif +else +DATE:=$(firstword $(DATE)) +endif +endif +export DATE +ifndef GINSTALL +GINSTALL:=$(strip $(wildcard $(addsuffix /ginstall$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(GINSTALL),) +GINSTALL:=$(strip $(wildcard $(addsuffix /install$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(GINSTALL),) +GINSTALL= __missing_command_GINSTALL +else +GINSTALL:=$(firstword $(GINSTALL)) +endif +else +GINSTALL:=$(firstword $(GINSTALL)) +endif +endif +export GINSTALL +ifndef CPPROG +CPPROG:=$(strip $(wildcard $(addsuffix /cp$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(CPPROG),) +CPPROG= __missing_command_CPPROG +else +CPPROG:=$(firstword $(CPPROG)) +endif +endif +export CPPROG +ifndef RMPROG +RMPROG:=$(strip $(wildcard $(addsuffix /rm$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(RMPROG),) +RMPROG= __missing_command_RMPROG +else +RMPROG:=$(firstword $(RMPROG)) +endif +endif +export RMPROG +ifndef MVPROG +MVPROG:=$(strip $(wildcard $(addsuffix /mv$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(MVPROG),) +MVPROG= __missing_command_MVPROG +else +MVPROG:=$(firstword $(MVPROG)) +endif +endif +export MVPROG +ifndef MKDIRPROG +MKDIRPROG:=$(strip $(wildcard $(addsuffix /gmkdir$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(MKDIRPROG),) +MKDIRPROG:=$(strip $(wildcard $(addsuffix /mkdir$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(MKDIRPROG),) +MKDIRPROG= __missing_command_MKDIRPROG +else +MKDIRPROG:=$(firstword $(MKDIRPROG)) +endif +else +MKDIRPROG:=$(firstword $(MKDIRPROG)) +endif +endif +export MKDIRPROG +ifndef ECHOREDIR +ifndef inUnix +ECHOREDIR=echo +else +ECHOREDIR=$(ECHO) +endif +endif +ifndef COPY +COPY:=$(CPPROG) -fp +endif +ifndef COPYTREE +COPYTREE:=$(CPPROG) -Rfp +endif +ifndef MKDIRTREE +MKDIRTREE:=$(MKDIRPROG) -p +endif +ifndef MOVE +MOVE:=$(MVPROG) -f +endif +ifndef DEL +DEL:=$(RMPROG) -f +endif +ifndef DELTREE +DELTREE:=$(RMPROG) -rf +endif +ifndef INSTALL +ifdef inUnix +INSTALL:=$(GINSTALL) -c -m 644 +else +INSTALL:=$(COPY) +endif +endif +ifndef INSTALLEXE +ifdef inUnix +INSTALLEXE:=$(GINSTALL) -c -m 755 +else +INSTALLEXE:=$(COPY) +endif +endif +ifndef MKDIR +MKDIR:=$(GINSTALL) -m 755 -d +endif +export ECHOREDIR COPY COPYTREE MOVE DEL DELTREE INSTALL INSTALLEXE MKDIR +ifndef PPUMOVE +PPUMOVE:=$(strip $(wildcard $(addsuffix /ppumove$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(PPUMOVE),) +PPUMOVE= __missing_command_PPUMOVE +else +PPUMOVE:=$(firstword $(PPUMOVE)) +endif +endif +export PPUMOVE +ifndef FPCMAKE +FPCMAKE:=$(strip $(wildcard $(addsuffix /fpcmake$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(FPCMAKE),) +FPCMAKE= __missing_command_FPCMAKE +else +FPCMAKE:=$(firstword $(FPCMAKE)) +endif +endif +export FPCMAKE +ifndef ZIPPROG +ZIPPROG:=$(strip $(wildcard $(addsuffix /zip$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(ZIPPROG),) +ZIPPROG= __missing_command_ZIPPROG +else +ZIPPROG:=$(firstword $(ZIPPROG)) +endif +endif +export ZIPPROG +ifndef TARPROG +TARPROG:=$(strip $(wildcard $(addsuffix /gtar$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(TARPROG),) +TARPROG:=$(strip $(wildcard $(addsuffix /tar$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(TARPROG),) +TARPROG= __missing_command_TARPROG +else +TARPROG:=$(firstword $(TARPROG)) +endif +else +TARPROG:=$(firstword $(TARPROG)) +endif +endif +export TARPROG +ASNAME=$(BINUTILSPREFIX)as +LDNAME=$(BINUTILSPREFIX)ld +ARNAME=$(BINUTILSPREFIX)ar +RCNAME=$(BINUTILSPREFIX)rc +ifneq ($(findstring 1.0.,$(FPC_VERSION)),) +ifeq ($(OS_TARGET),win32) +ifeq ($(CROSSBINDIR),) +ASNAME=asw +LDNAME=ldw +ARNAME=arw +endif +endif +endif +ifndef ASPROG +ifdef CROSSBINDIR +ASPROG=$(CROSSBINDIR)/$(ASNAME)$(SRCEXEEXT) +else +ASPROG=$(ASNAME) +endif +endif +ifndef LDPROG +ifdef CROSSBINDIR +LDPROG=$(CROSSBINDIR)/$(LDNAME)$(SRCEXEEXT) +else +LDPROG=$(LDNAME) +endif +endif +ifndef RCPROG +ifdef CROSSBINDIR +RCPROG=$(CROSSBINDIR)/$(RCNAME)$(SRCEXEEXT) +else +RCPROG=$(RCNAME) +endif +endif +ifndef ARPROG +ifdef CROSSBINDIR +ARPROG=$(CROSSBINDIR)/$(ARNAME)$(SRCEXEEXT) +else +ARPROG=$(ARNAME) +endif +endif +AS=$(ASPROG) +LD=$(LDPROG) +RC=$(RCPROG) +AR=$(ARPROG) +PPAS=ppas$(SRCBATCHEXT) +ifdef inUnix +LDCONFIG=ldconfig +else +LDCONFIG= +endif +ifdef DATE +DATESTR:=$(shell $(DATE) +%Y%m%d) +else +DATESTR= +endif +ifndef UPXPROG +ifeq ($(OS_TARGET),go32v2) +UPXPROG:=1 +endif +ifeq ($(OS_TARGET),win32) +UPXPROG:=1 +endif +ifdef UPXPROG +UPXPROG:=$(strip $(wildcard $(addsuffix /upx$(SRCEXEEXT),$(SEARCHPATH)))) +ifeq ($(UPXPROG),) +UPXPROG= +else +UPXPROG:=$(firstword $(UPXPROG)) +endif +else +UPXPROG= +endif +endif +export UPXPROG +ZIPOPT=-9 +ZIPEXT=.zip +ifeq ($(USETAR),bz2) +TAROPT=vj +TAREXT=.tar.bz2 +else +TAROPT=vz +TAREXT=.tar.gz +endif +override REQUIRE_PACKAGES=rtl +ifeq ($(FULL_TARGET),i386-linux) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-go32v2) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-win32) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-os2) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-freebsd) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-beos) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-haiku) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-netbsd) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-solaris) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-qnx) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-netware) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-openbsd) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-wdosx) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-darwin) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-emx) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-watcom) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-netwlibc) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-wince) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-embedded) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),i386-symbian) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),m68k-linux) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),m68k-freebsd) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),m68k-netbsd) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),m68k-amiga) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),m68k-atari) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),m68k-openbsd) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),m68k-palmos) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),m68k-embedded) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),powerpc-linux) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),powerpc-netbsd) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),powerpc-amiga) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),powerpc-macos) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),powerpc-darwin) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),powerpc-morphos) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),powerpc-embedded) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),sparc-linux) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),sparc-netbsd) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),sparc-solaris) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),sparc-embedded) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),x86_64-linux) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),x86_64-freebsd) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),x86_64-darwin) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),x86_64-win64) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),x86_64-embedded) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),arm-linux) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),arm-palmos) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),arm-darwin) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),arm-wince) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),arm-gba) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),arm-nds) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),arm-embedded) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),arm-symbian) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),powerpc64-linux) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),powerpc64-darwin) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),powerpc64-embedded) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),avr-embedded) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),armeb-linux) +REQUIRE_PACKAGES_RTL=1 +endif +ifeq ($(FULL_TARGET),armeb-embedded) +REQUIRE_PACKAGES_RTL=1 +endif +ifdef REQUIRE_PACKAGES_RTL +PACKAGEDIR_RTL:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /rtl/Makefile.fpc,$(PACKAGESDIR)))))) +ifneq ($(PACKAGEDIR_RTL),) +ifneq ($(wildcard $(PACKAGEDIR_RTL)/units/$(TARGETSUFFIX)),) +UNITDIR_RTL=$(PACKAGEDIR_RTL)/units/$(TARGETSUFFIX) +else +UNITDIR_RTL=$(PACKAGEDIR_RTL) +endif +ifdef CHECKDEPEND +$(PACKAGEDIR_RTL)/$(FPCMADE): + $(MAKE) -C $(PACKAGEDIR_RTL) $(FPCMADE) +override ALLDEPENDENCIES+=$(PACKAGEDIR_RTL)/$(FPCMADE) +endif +else +PACKAGEDIR_RTL= +UNITDIR_RTL:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /rtl/Package.fpc,$(UNITSDIR))))) +ifneq ($(UNITDIR_RTL),) +UNITDIR_RTL:=$(firstword $(UNITDIR_RTL)) +else +UNITDIR_RTL= +endif +endif +ifdef UNITDIR_RTL +override COMPILER_UNITDIR+=$(UNITDIR_RTL) +endif +endif +ifndef NOCPUDEF +override FPCOPTDEF=$(ARCH) +endif +ifneq ($(OS_TARGET),$(OS_SOURCE)) +override FPCOPT+=-T$(OS_TARGET) +endif +ifneq ($(CPU_TARGET),$(CPU_SOURCE)) +override FPCOPT+=-P$(ARCH) +endif +ifeq ($(OS_SOURCE),openbsd) +override FPCOPT+=-FD$(NEW_BINUTILS_PATH) +endif +ifndef CROSSBOOTSTRAP +ifneq ($(BINUTILSPREFIX),) +override FPCOPT+=-XP$(BINUTILSPREFIX) +endif +ifneq ($(BINUTILSPREFIX),) +override FPCOPT+=-Xr$(RLINKPATH) +endif +endif +ifdef UNITDIR +override FPCOPT+=$(addprefix -Fu,$(UNITDIR)) +endif +ifdef LIBDIR +override FPCOPT+=$(addprefix -Fl,$(LIBDIR)) +endif +ifdef OBJDIR +override FPCOPT+=$(addprefix -Fo,$(OBJDIR)) +endif +ifdef INCDIR +override FPCOPT+=$(addprefix -Fi,$(INCDIR)) +endif +ifdef LINKSMART +override FPCOPT+=-XX +endif +ifdef CREATESMART +override FPCOPT+=-CX +endif +ifdef DEBUG +override FPCOPT+=-gl +override FPCOPTDEF+=DEBUG +endif +ifdef RELEASE +ifneq ($(findstring 2.0.,$(FPC_VERSION)),) +ifeq ($(CPU_TARGET),i386) +FPCCPUOPT:=-OG2p3 +endif +ifeq ($(CPU_TARGET),powerpc) +FPCCPUOPT:=-O1r +endif +else +FPCCPUOPT:=-O2 +endif +override FPCOPT+=-Ur -Xs $(FPCCPUOPT) -n +override FPCOPTDEF+=RELEASE +endif +ifdef STRIP +override FPCOPT+=-Xs +endif +ifdef OPTIMIZE +override FPCOPT+=-O2 +endif +ifdef VERBOSE +override FPCOPT+=-vwni +endif +ifdef COMPILER_OPTIONS +override FPCOPT+=$(COMPILER_OPTIONS) +endif +ifdef COMPILER_UNITDIR +override FPCOPT+=$(addprefix -Fu,$(COMPILER_UNITDIR)) +endif +ifdef COMPILER_LIBRARYDIR +override FPCOPT+=$(addprefix -Fl,$(COMPILER_LIBRARYDIR)) +endif +ifdef COMPILER_OBJECTDIR +override FPCOPT+=$(addprefix -Fo,$(COMPILER_OBJECTDIR)) +endif +ifdef COMPILER_INCLUDEDIR +override FPCOPT+=$(addprefix -Fi,$(COMPILER_INCLUDEDIR)) +endif +ifdef CROSSBINDIR +override FPCOPT+=-FD$(CROSSBINDIR) +endif +ifdef COMPILER_TARGETDIR +override FPCOPT+=-FE$(COMPILER_TARGETDIR) +ifeq ($(COMPILER_TARGETDIR),.) +override TARGETDIRPREFIX= +else +override TARGETDIRPREFIX=$(COMPILER_TARGETDIR)/ +endif +endif +ifdef COMPILER_UNITTARGETDIR +override FPCOPT+=-FU$(COMPILER_UNITTARGETDIR) +ifeq ($(COMPILER_UNITTARGETDIR),.) +override UNITTARGETDIRPREFIX= +else +override UNITTARGETDIRPREFIX=$(COMPILER_UNITTARGETDIR)/ +endif +else +ifdef COMPILER_TARGETDIR +override COMPILER_UNITTARGETDIR=$(COMPILER_TARGETDIR) +override UNITTARGETDIRPREFIX=$(TARGETDIRPREFIX) +endif +endif +ifdef CREATESHARED +override FPCOPT+=-Cg +ifeq ($(CPU_TARGET),i386) +override FPCOPT+=-Aas +endif +endif +ifeq ($(findstring 2.0.,$(FPC_VERSION)),) +ifeq ($(OS_TARGET),linux) +ifeq ($(CPU_TARGET),x86_64) +override FPCOPT+=-Cg +endif +endif +endif +ifdef LINKSHARED +endif +ifdef GCCLIBDIR +override FPCOPT+=-Fl$(GCCLIBDIR) +endif +ifdef OTHERLIBDIR +override FPCOPT+=$(addprefix -Fl,$(OTHERLIBDIR)) +endif +ifdef OPT +override FPCOPT+=$(OPT) +endif +ifdef FPCOPTDEF +override FPCOPT+=$(addprefix -d,$(FPCOPTDEF)) +endif +ifdef CFGFILE +override FPCOPT+=@$(CFGFILE) +endif +ifdef USEENV +override FPCEXTCMD:=$(FPCOPT) +override FPCOPT:=!FPCEXTCMD +export FPCEXTCMD +endif +override AFULL_TARGET=$(CPU_TARGET)-$(OS_TARGET) +override AFULL_SOURCE=$(CPU_SOURCE)-$(OS_SOURCE) +ifneq ($(AFULL_TARGET),$(AFULL_SOURCE)) +override ACROSSCOMPILE=1 +endif +ifdef ACROSSCOMPILE +override FPCOPT+=$(CROSSOPT) +endif +override COMPILER:=$(FPC) $(FPCOPT) +ifeq (,$(findstring -s ,$(COMPILER))) +EXECPPAS= +else +ifeq ($(FULL_SOURCE),$(FULL_TARGET)) +ifdef RUNBATCH +EXECPPAS:=@$(RUNBATCH) $(PPAS) +else +EXECPPAS:=@$(PPAS) +endif +endif +endif +.PHONY: fpc_units +ifneq ($(TARGET_UNITS)$(TARGET_IMPLICITUNITS),) +override ALLTARGET+=fpc_units +override UNITPPUFILES=$(addsuffix $(PPUEXT),$(TARGET_UNITS)) +override IMPLICITUNITPPUFILES=$(addsuffix $(PPUEXT),$(TARGET_IMPLICITUNITS)) +override INSTALLPPUFILES+=$(UNITPPUFILES) $(IMPLICITUNITPPUFILES) +override CLEANPPUFILES+=$(UNITPPUFILES) $(IMPLICITUNITPPUFILES) +endif +fpc_units: $(COMPILER_UNITTARGETDIR) $(UNITPPUFILES) +ifdef TARGET_RSTS +override RSTFILES=$(addsuffix $(RSTEXT),$(TARGET_RSTS)) +override CLEANRSTFILES+=$(RSTFILES) +endif +.PHONY: fpc_examples +ifneq ($(TARGET_EXAMPLES),) +HASEXAMPLES=1 +override EXAMPLESOURCEFILES:=$(wildcard $(addsuffix .pp,$(TARGET_EXAMPLES)) $(addsuffix .pas,$(TARGET_EXAMPLES)) $(addsuffix .lpr,$(TARGET_EXAMPLES)) $(addsuffix .dpr,$(TARGET_EXAMPLES))) +override EXAMPLEFILES:=$(addsuffix $(EXEEXT),$(TARGET_EXAMPLES)) +override EXAMPLEOFILES:=$(addsuffix $(OEXT),$(TARGET_EXAMPLES)) $(addprefix $(STATICLIBPREFIX),$(addsuffix $(STATICLIBEXT),$(TARGET_EXAMPLES))) $(addprefix $(IMPORTLIBPREFIX),$(addsuffix $(STATICLIBEXT),$(TARGET_EXAMPLES))) +override CLEANEXEFILES+=$(EXAMPLEFILES) $(EXAMPLEOFILES) +ifeq ($(OS_TARGET),os2) +override CLEANEXEFILES+=$(addsuffix $(AOUTEXT),$(TARGET_EXAMPLES)) +endif +ifeq ($(OS_TARGET),emx) +override CLEANEXEFILES+=$(addsuffix $(AOUTEXT),$(TARGET_EXAMPLES)) +endif +endif +ifneq ($(TARGET_EXAMPLEDIRS),) +HASEXAMPLES=1 +endif +fpc_examples: all $(EXAMPLEFILES) $(addsuffix _all,$(TARGET_EXAMPLEDIRS)) +.PHONY: fpc_all fpc_smart fpc_debug fpc_release fpc_shared +$(FPCMADE): $(ALLDEPENDENCIES) $(ALLTARGET) + @$(ECHOREDIR) Compiled > $(FPCMADE) +fpc_all: $(FPCMADE) +fpc_smart: + $(MAKE) all LINKSMART=1 CREATESMART=1 +fpc_debug: + $(MAKE) all DEBUG=1 +fpc_release: + $(MAKE) all RELEASE=1 +.SUFFIXES: $(EXEEXT) $(PPUEXT) $(OEXT) .pas .lpr .dpr .pp .rc .res +$(COMPILER_UNITTARGETDIR): + $(MKDIRTREE) $(COMPILER_UNITTARGETDIR) +$(COMPILER_TARGETDIR): + $(MKDIRTREE) $(COMPILER_TARGETDIR) +%$(PPUEXT): %.pp + $(COMPILER) $< + $(EXECPPAS) +%$(PPUEXT): %.pas + $(COMPILER) $< + $(EXECPPAS) +%$(EXEEXT): %.pp + $(COMPILER) $< + $(EXECPPAS) +%$(EXEEXT): %.pas + $(COMPILER) $< + $(EXECPPAS) +%$(EXEEXT): %.lpr + $(COMPILER) $< + $(EXECPPAS) +%$(EXEEXT): %.dpr + $(COMPILER) $< + $(EXECPPAS) +%.res: %.rc + windres -i $< -o $@ +vpath %.pp $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR) +vpath %.pas $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR) +vpath %.lpr $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR) +vpath %.dpr $(COMPILER_SOURCEDIR) $(COMPILER_INCLUDEDIR) +vpath %.inc $(COMPILER_INCLUDEDIR) +vpath %$(OEXT) $(COMPILER_UNITTARGETDIR) +vpath %$(PPUEXT) $(COMPILER_UNITTARGETDIR) +.PHONY: fpc_shared +override INSTALLTARGET+=fpc_shared_install +ifndef SHARED_LIBVERSION +SHARED_LIBVERSION=$(FPC_VERSION) +endif +ifndef SHARED_LIBNAME +SHARED_LIBNAME=$(PACKAGE_NAME) +endif +ifndef SHARED_FULLNAME +SHARED_FULLNAME=$(SHAREDLIBPREFIX)$(SHARED_LIBNAME)-$(SHARED_LIBVERSION)$(SHAREDLIBEXT) +endif +ifndef SHARED_LIBUNITS +SHARED_LIBUNITS:=$(TARGET_UNITS) $(TARGET_IMPLICITUNITS) +override SHARED_LIBUNITS:=$(filter-out $(INSTALL_BUILDUNIT),$(SHARED_LIBUNITS)) +endif +fpc_shared: +ifdef HASSHAREDLIB + $(MAKE) all CREATESHARED=1 LINKSHARED=1 CREATESMART=1 +ifneq ($(SHARED_BUILD),n) + $(PPUMOVE) -q $(SHARED_LIBUNITS) -i$(COMPILER_UNITTARGETDIR) -o$(SHARED_FULLNAME) -d$(COMPILER_UNITTARGETDIR) +endif +else + @$(ECHO) Shared Libraries not supported +endif +fpc_shared_install: +ifneq ($(SHARED_BUILD),n) +ifneq ($(SHARED_LIBUNITS),) +ifneq ($(wildcard $(COMPILER_UNITTARGETDIR)/$(SHARED_FULLNAME)),) + $(INSTALL) $(COMPILER_UNITTARGETDIR)/$(SHARED_FULLNAME) $(INSTALL_SHAREDDIR) +endif +endif +endif +.PHONY: fpc_install fpc_sourceinstall fpc_exampleinstall +ifdef INSTALL_UNITS +override INSTALLPPUFILES+=$(addsuffix $(PPUEXT),$(INSTALL_UNITS)) +endif +ifdef INSTALL_BUILDUNIT +override INSTALLPPUFILES:=$(filter-out $(INSTALL_BUILDUNIT)$(PPUEXT),$(INSTALLPPUFILES)) +endif +ifdef INSTALLPPUFILES +override INSTALLPPULINKFILES:=$(subst $(PPUEXT),$(OEXT),$(INSTALLPPUFILES)) $(addprefix $(STATICLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(INSTALLPPUFILES))) $(addprefix $(IMPORTLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(INSTALLPPUFILES))) +ifneq ($(UNITTARGETDIRPREFIX),) +override INSTALLPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(notdir $(INSTALLPPUFILES))) +override INSTALLPPULINKFILES:=$(wildcard $(addprefix $(UNITTARGETDIRPREFIX),$(notdir $(INSTALLPPULINKFILES)))) +endif +override INSTALL_CREATEPACKAGEFPC=1 +endif +ifdef INSTALLEXEFILES +ifneq ($(TARGETDIRPREFIX),) +override INSTALLEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(notdir $(INSTALLEXEFILES))) +endif +endif +fpc_install: all $(INSTALLTARGET) +ifdef INSTALLEXEFILES + $(MKDIR) $(INSTALL_BINDIR) +ifdef UPXPROG + -$(UPXPROG) $(INSTALLEXEFILES) +endif + $(INSTALLEXE) $(INSTALLEXEFILES) $(INSTALL_BINDIR) +endif +ifdef INSTALL_CREATEPACKAGEFPC +ifdef FPCMAKE +ifdef PACKAGE_VERSION +ifneq ($(wildcard Makefile.fpc),) + $(FPCMAKE) -p -T$(CPU_TARGET)-$(OS_TARGET) Makefile.fpc + $(MKDIR) $(INSTALL_UNITDIR) + $(INSTALL) Package.fpc $(INSTALL_UNITDIR) +endif +endif +endif +endif +ifdef INSTALLPPUFILES + $(MKDIR) $(INSTALL_UNITDIR) + $(INSTALL) $(INSTALLPPUFILES) $(INSTALL_UNITDIR) +ifneq ($(INSTALLPPULINKFILES),) + $(INSTALL) $(INSTALLPPULINKFILES) $(INSTALL_UNITDIR) +endif +ifneq ($(wildcard $(LIB_FULLNAME)),) + $(MKDIR) $(INSTALL_LIBDIR) + $(INSTALL) $(LIB_FULLNAME) $(INSTALL_LIBDIR) +ifdef inUnix + ln -sf $(LIB_FULLNAME) $(INSTALL_LIBDIR)/$(LIB_NAME) +endif +endif +endif +ifdef INSTALL_FILES + $(MKDIR) $(INSTALL_DATADIR) + $(INSTALL) $(INSTALL_FILES) $(INSTALL_DATADIR) +endif +fpc_sourceinstall: distclean + $(MKDIR) $(INSTALL_SOURCEDIR) + $(COPYTREE) $(BASEDIR)/* $(INSTALL_SOURCEDIR) +fpc_exampleinstall: $(addsuffix _distclean,$(TARGET_EXAMPLEDIRS)) +ifdef HASEXAMPLES + $(MKDIR) $(INSTALL_EXAMPLEDIR) +endif +ifdef EXAMPLESOURCEFILES + $(COPY) $(EXAMPLESOURCEFILES) $(INSTALL_EXAMPLEDIR) +endif +ifdef TARGET_EXAMPLEDIRS + $(COPYTREE) $(addsuffix /*,$(TARGET_EXAMPLEDIRS)) $(INSTALL_EXAMPLEDIR) +endif +.PHONY: fpc_distinstall +fpc_distinstall: install exampleinstall +.PHONY: fpc_zipinstall fpc_zipsourceinstall fpc_zipexampleinstall +ifndef PACKDIR +ifndef inUnix +PACKDIR=$(BASEDIR)/../fpc-pack +else +PACKDIR=/tmp/fpc-pack +endif +endif +ifndef ZIPNAME +ifdef DIST_ZIPNAME +ZIPNAME=$(DIST_ZIPNAME) +else +ZIPNAME=$(PACKAGE_NAME) +endif +endif +ifndef FULLZIPNAME +FULLZIPNAME=$(ZIPCROSSPREFIX)$(ZIPPREFIX)$(ZIPNAME)$(ZIPSUFFIX) +endif +ifndef ZIPTARGET +ifdef DIST_ZIPTARGET +ZIPTARGET=DIST_ZIPTARGET +else +ZIPTARGET=install +endif +endif +ifndef USEZIP +ifdef inUnix +USETAR=1 +endif +endif +ifndef inUnix +USEZIPWRAPPER=1 +endif +ifdef USEZIPWRAPPER +ZIPPATHSEP=$(PATHSEP) +ZIPWRAPPER=$(subst /,$(PATHSEP),$(DIST_DESTDIR)/fpczip$(SRCBATCHEXT)) +else +ZIPPATHSEP=/ +endif +ZIPCMD_CDPACK:=cd $(subst /,$(ZIPPATHSEP),$(PACKDIR)) +ZIPCMD_CDBASE:=cd $(subst /,$(ZIPPATHSEP),$(BASEDIR)) +ifdef USETAR +ZIPDESTFILE:=$(DIST_DESTDIR)/$(FULLZIPNAME)$(TAREXT) +ZIPCMD_ZIP:=$(TARPROG) cf$(TAROPT) $(ZIPDESTFILE) * +else +ZIPDESTFILE:=$(DIST_DESTDIR)/$(FULLZIPNAME)$(ZIPEXT) +ZIPCMD_ZIP:=$(subst /,$(ZIPPATHSEP),$(ZIPPROG)) -Dr $(ZIPOPT) $(ZIPDESTFILE) * +endif +fpc_zipinstall: + $(MAKE) $(ZIPTARGET) INSTALL_PREFIX=$(PACKDIR) ZIPINSTALL=1 + $(MKDIR) $(DIST_DESTDIR) + $(DEL) $(ZIPDESTFILE) +ifdef USEZIPWRAPPER +ifneq ($(ECHOREDIR),echo) + $(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_CDPACK))" > $(ZIPWRAPPER) + $(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_ZIP))" >> $(ZIPWRAPPER) + $(ECHOREDIR) -e "$(subst \,\\,$(ZIPCMD_CDBASE))" >> $(ZIPWRAPPER) +else + echo $(ZIPCMD_CDPACK) > $(ZIPWRAPPER) + echo $(ZIPCMD_ZIP) >> $(ZIPWRAPPER) + echo $(ZIPCMD_CDBASE) >> $(ZIPWRAPPER) +endif +ifdef inUnix + /bin/sh $(ZIPWRAPPER) +else +ifdef RUNBATCH + $(RUNBATCH) $(ZIPWRAPPER) +else + $(ZIPWRAPPER) +endif +endif + $(DEL) $(ZIPWRAPPER) +else + $(ZIPCMD_CDPACK) ; $(ZIPCMD_ZIP) ; $(ZIPCMD_CDBASE) +endif + $(DELTREE) $(PACKDIR) +fpc_zipsourceinstall: + $(MAKE) fpc_zipinstall ZIPTARGET=sourceinstall ZIPSUFFIX=$(ZIPSOURCESUFFIX) +fpc_zipexampleinstall: +ifdef HASEXAMPLES + $(MAKE) fpc_zipinstall ZIPTARGET=exampleinstall ZIPSUFFIX=$(ZIPEXAMPLESUFFIX) +endif +fpc_zipdistinstall: + $(MAKE) fpc_zipinstall ZIPTARGET=distinstall +.PHONY: fpc_clean fpc_cleanall fpc_distclean +ifdef EXEFILES +override CLEANEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(CLEANEXEFILES)) +endif +ifdef CLEAN_UNITS +override CLEANPPUFILES+=$(addsuffix $(PPUEXT),$(CLEAN_UNITS)) +endif +ifdef CLEANPPUFILES +override CLEANPPULINKFILES:=$(subst $(PPUEXT),$(OEXT),$(CLEANPPUFILES)) $(addprefix $(STATICLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(CLEANPPUFILES))) $(addprefix $(IMPORTLIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(CLEANPPUFILES))) +ifdef DEBUGSYMEXT +override CLEANPPULINKFILES+=$(subst $(PPUEXT),$(DEBUGSYMEXT),$(CLEANPPUFILES)) +endif +override CLEANPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPUFILES)) +override CLEANPPULINKFILES:=$(wildcard $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPULINKFILES))) +endif +fpc_clean: $(CLEANTARGET) +ifdef CLEANEXEFILES + -$(DEL) $(CLEANEXEFILES) +endif +ifdef CLEANPPUFILES + -$(DEL) $(CLEANPPUFILES) +endif +ifneq ($(CLEANPPULINKFILES),) + -$(DEL) $(CLEANPPULINKFILES) +endif +ifdef CLEANRSTFILES + -$(DEL) $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANRSTFILES)) +endif +ifdef CLEAN_FILES + -$(DEL) $(CLEAN_FILES) +endif +ifdef LIB_NAME + -$(DEL) $(LIB_NAME) $(LIB_FULLNAME) +endif + -$(DEL) $(FPCMADE) Package.fpc $(PPAS) script.res link.res $(FPCEXTFILE) $(REDIRFILE) + -$(DEL) *$(ASMEXT) *_ppas$(BATCHEXT) +fpc_cleanall: $(CLEANTARGET) +ifdef CLEANEXEFILES + -$(DEL) $(CLEANEXEFILES) +endif +ifdef COMPILER_UNITTARGETDIR +ifdef CLEANPPUFILES + -$(DEL) $(CLEANPPUFILES) +endif +ifneq ($(CLEANPPULINKFILES),) + -$(DEL) $(CLEANPPULINKFILES) +endif +ifdef CLEANRSTFILES + -$(DEL) $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANRSTFILES)) +endif +endif + -$(DELTREE) units + -$(DEL) *$(OEXT) *$(PPUEXT) *$(RSTEXT) *$(ASMEXT) *$(STATICLIBEXT) *$(SHAREDLIBEXT) *$(PPLEXT) +ifneq ($(PPUEXT),.ppu) + -$(DEL) *.o *.ppu *.a +endif + -$(DELTREE) *$(SMARTEXT) + -$(DEL) fpcmade.* Package.fpc $(PPAS) script.res link.res $(FPCEXTFILE) $(REDIRFILE) + -$(DEL) *_ppas$(BATCHEXT) +ifdef AOUTEXT + -$(DEL) *$(AOUTEXT) +endif +ifdef DEBUGSYMEXT + -$(DEL) *$(DEBUGSYMEXT) +endif +fpc_distclean: cleanall +.PHONY: fpc_baseinfo +override INFORULES+=fpc_baseinfo +fpc_baseinfo: + @$(ECHO) + @$(ECHO) == Package info == + @$(ECHO) Package Name..... $(PACKAGE_NAME) + @$(ECHO) Package Version.. $(PACKAGE_VERSION) + @$(ECHO) + @$(ECHO) == Configuration info == + @$(ECHO) + @$(ECHO) FPC.......... $(FPC) + @$(ECHO) FPC Version.. $(FPC_VERSION) + @$(ECHO) Source CPU... $(CPU_SOURCE) + @$(ECHO) Target CPU... $(CPU_TARGET) + @$(ECHO) Source OS.... $(OS_SOURCE) + @$(ECHO) Target OS.... $(OS_TARGET) + @$(ECHO) Full Source.. $(FULL_SOURCE) + @$(ECHO) Full Target.. $(FULL_TARGET) + @$(ECHO) SourceSuffix. $(SOURCESUFFIX) + @$(ECHO) TargetSuffix. $(TARGETSUFFIX) + @$(ECHO) + @$(ECHO) == Directory info == + @$(ECHO) + @$(ECHO) Required pkgs... $(REQUIRE_PACKAGES) + @$(ECHO) + @$(ECHO) Basedir......... $(BASEDIR) + @$(ECHO) FPCDir.......... $(FPCDIR) + @$(ECHO) CrossBinDir..... $(CROSSBINDIR) + @$(ECHO) UnitsDir........ $(UNITSDIR) + @$(ECHO) PackagesDir..... $(PACKAGESDIR) + @$(ECHO) + @$(ECHO) GCC library..... $(GCCLIBDIR) + @$(ECHO) Other library... $(OTHERLIBDIR) + @$(ECHO) + @$(ECHO) == Tools info == + @$(ECHO) + @$(ECHO) As........ $(AS) + @$(ECHO) Ld........ $(LD) + @$(ECHO) Ar........ $(AR) + @$(ECHO) Rc........ $(RC) + @$(ECHO) + @$(ECHO) Mv........ $(MVPROG) + @$(ECHO) Cp........ $(CPPROG) + @$(ECHO) Rm........ $(RMPROG) + @$(ECHO) GInstall.. $(GINSTALL) + @$(ECHO) Echo...... $(ECHO) + @$(ECHO) Shell..... $(SHELL) + @$(ECHO) Date...... $(DATE) + @$(ECHO) FPCMake... $(FPCMAKE) + @$(ECHO) PPUMove... $(PPUMOVE) + @$(ECHO) Upx....... $(UPXPROG) + @$(ECHO) Zip....... $(ZIPPROG) + @$(ECHO) + @$(ECHO) == Object info == + @$(ECHO) + @$(ECHO) Target Loaders........ $(TARGET_LOADERS) + @$(ECHO) Target Units.......... $(TARGET_UNITS) + @$(ECHO) Target Implicit Units. $(TARGET_IMPLICITUNITS) + @$(ECHO) Target Programs....... $(TARGET_PROGRAMS) + @$(ECHO) Target Dirs........... $(TARGET_DIRS) + @$(ECHO) Target Examples....... $(TARGET_EXAMPLES) + @$(ECHO) Target ExampleDirs.... $(TARGET_EXAMPLEDIRS) + @$(ECHO) + @$(ECHO) Clean Units......... $(CLEAN_UNITS) + @$(ECHO) Clean Files......... $(CLEAN_FILES) + @$(ECHO) + @$(ECHO) Install Units....... $(INSTALL_UNITS) + @$(ECHO) Install Files....... $(INSTALL_FILES) + @$(ECHO) + @$(ECHO) == Install info == + @$(ECHO) + @$(ECHO) DateStr.............. $(DATESTR) + @$(ECHO) ZipName.............. $(ZIPNAME) + @$(ECHO) ZipPrefix............ $(ZIPPREFIX) + @$(ECHO) ZipCrossPrefix....... $(ZIPCROSSPREFIX) + @$(ECHO) ZipSuffix............ $(ZIPSUFFIX) + @$(ECHO) FullZipName.......... $(FULLZIPNAME) + @$(ECHO) Install FPC Package.. $(INSTALL_FPCPACKAGE) + @$(ECHO) + @$(ECHO) Install base dir..... $(INSTALL_BASEDIR) + @$(ECHO) Install binary dir... $(INSTALL_BINDIR) + @$(ECHO) Install library dir.. $(INSTALL_LIBDIR) + @$(ECHO) Install units dir.... $(INSTALL_UNITDIR) + @$(ECHO) Install source dir... $(INSTALL_SOURCEDIR) + @$(ECHO) Install doc dir...... $(INSTALL_DOCDIR) + @$(ECHO) Install example dir.. $(INSTALL_EXAMPLEDIR) + @$(ECHO) Install data dir..... $(INSTALL_DATADIR) + @$(ECHO) + @$(ECHO) Dist destination dir. $(DIST_DESTDIR) + @$(ECHO) Dist zip name........ $(DIST_ZIPNAME) + @$(ECHO) +.PHONY: fpc_info +fpc_info: $(INFORULES) +.PHONY: fpc_makefile fpc_makefiles fpc_makefile_sub1 fpc_makefile_sub2 \ + fpc_makefile_dirs +fpc_makefile: + $(FPCMAKE) -w -T$(OS_TARGET) Makefile.fpc +fpc_makefile_sub1: +ifdef TARGET_DIRS + $(FPCMAKE) -w -T$(OS_TARGET) $(addsuffix /Makefile.fpc,$(TARGET_DIRS)) +endif +ifdef TARGET_EXAMPLEDIRS + $(FPCMAKE) -w -T$(OS_TARGET) $(addsuffix /Makefile.fpc,$(TARGET_EXAMPLEDIRS)) +endif +fpc_makefile_sub2: $(addsuffix _makefile_dirs,$(TARGET_DIRS) $(TARGET_EXAMPLEDIRS)) +fpc_makefile_dirs: fpc_makefile_sub1 fpc_makefile_sub2 +fpc_makefiles: fpc_makefile fpc_makefile_dirs +ifeq ($(FULL_TARGET),i386-linux) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-go32v2) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-win32) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-os2) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-freebsd) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-beos) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-haiku) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-netbsd) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-solaris) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-qnx) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-netware) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-openbsd) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-wdosx) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-darwin) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-emx) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-watcom) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-netwlibc) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-wince) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-embedded) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),i386-symbian) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),m68k-linux) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),m68k-freebsd) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),m68k-netbsd) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),m68k-amiga) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),m68k-atari) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),m68k-openbsd) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),m68k-palmos) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),m68k-embedded) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),powerpc-linux) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),powerpc-netbsd) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),powerpc-amiga) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),powerpc-macos) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),powerpc-darwin) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),powerpc-morphos) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),powerpc-embedded) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),sparc-linux) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),sparc-netbsd) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),sparc-solaris) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),sparc-embedded) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),x86_64-linux) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),x86_64-freebsd) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),x86_64-darwin) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),x86_64-win64) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),x86_64-embedded) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),arm-linux) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),arm-palmos) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),arm-darwin) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),arm-wince) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),arm-gba) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),arm-nds) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),arm-embedded) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),arm-symbian) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),powerpc64-linux) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),powerpc64-darwin) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),powerpc64-embedded) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),avr-embedded) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),armeb-linux) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifeq ($(FULL_TARGET),armeb-embedded) +TARGET_EXAMPLEDIRS_EXAMPLES=1 +endif +ifdef TARGET_EXAMPLEDIRS_EXAMPLES +examples_all: + $(MAKE) -C examples all +examples_debug: + $(MAKE) -C examples debug +examples_smart: + $(MAKE) -C examples smart +examples_release: + $(MAKE) -C examples release +examples_units: + $(MAKE) -C examples units +examples_examples: + $(MAKE) -C examples examples +examples_shared: + $(MAKE) -C examples shared +examples_install: + $(MAKE) -C examples install +examples_sourceinstall: + $(MAKE) -C examples sourceinstall +examples_exampleinstall: + $(MAKE) -C examples exampleinstall +examples_distinstall: + $(MAKE) -C examples distinstall +examples_zipinstall: + $(MAKE) -C examples zipinstall +examples_zipsourceinstall: + $(MAKE) -C examples zipsourceinstall +examples_zipexampleinstall: + $(MAKE) -C examples zipexampleinstall +examples_zipdistinstall: + $(MAKE) -C examples zipdistinstall +examples_clean: + $(MAKE) -C examples clean +examples_distclean: + $(MAKE) -C examples distclean +examples_cleanall: + $(MAKE) -C examples cleanall +examples_info: + $(MAKE) -C examples info +examples_makefiles: + $(MAKE) -C examples makefiles +examples: + $(MAKE) -C examples all +.PHONY: examples_all examples_debug examples_smart examples_release examples_units examples_examples examples_shared examples_install examples_sourceinstall examples_exampleinstall examples_distinstall examples_zipinstall examples_zipsourceinstall examples_zipexampleinstall examples_zipdistinstall examples_clean examples_distclean examples_cleanall examples_info examples_makefiles examples +endif +all: fpc_all +debug: fpc_debug +smart: fpc_smart +release: fpc_release +units: fpc_units +examples: fpc_examples +shared: fpc_shared +install: fpc_install +sourceinstall: fpc_sourceinstall +exampleinstall: fpc_exampleinstall +distinstall: fpc_distinstall +zipinstall: fpc_zipinstall +zipsourceinstall: fpc_zipsourceinstall +zipexampleinstall: fpc_zipexampleinstall +zipdistinstall: fpc_zipdistinstall +clean: fpc_clean $(addsuffix _clean,$(TARGET_EXAMPLEDIRS)) +distclean: fpc_distclean +cleanall: fpc_cleanall +info: fpc_info +makefiles: fpc_makefiles +.PHONY: all debug smart release units examples shared install sourceinstall exampleinstall distinstall zipinstall zipsourceinstall zipexampleinstall zipdistinstall clean distclean cleanall info makefiles +ifneq ($(wildcard fpcmake.loc),) +include fpcmake.loc +endif +.NOTPARALLEL: diff --git a/packages/libsee/Makefile.fpc b/packages/libsee/Makefile.fpc new file mode 100644 index 0000000000..29d2e2cad2 --- /dev/null +++ b/packages/libsee/Makefile.fpc @@ -0,0 +1,30 @@ +# +# Makefile.fpc for InterBase bindings +# + +[package] +name=libsee +version=2.5.1 + +[target] +units=libsee +exampledirs=examples + +[require] +libc=y + +[install] +fpcpackage=y + +[default] +fpcdir=../.. + +[compiler] +includedir=src +sourcedir=src + +[shared] +build=n + +[rules] +.NOTPARALLEL: diff --git a/packages/libsee/README.txt b/packages/libsee/README.txt new file mode 100644 index 0000000000..3aa8febb8d --- /dev/null +++ b/packages/libsee/README.txt @@ -0,0 +1,27 @@ + +This package contains an interface unit to the libSEE library. + +SEE = Simple ECMAScript Engine + +libSEE is a library that executes Javascript code, and is written by David Leonard. + +The library itself must be obtained separately from +http://www.adaptive-enterprises.com.au/~d/software/see/ +The library tarball contains installation instructions. +Make sure you compile it with Garbage collection. + +the libsee unit was generated from the header files of version 3.1 of +libsee. Note that all type names have been prepended with T. That means +that the C struct + SEE_interpreter +becomes + TSEE_interpreter +in pascal. + +The examples directory contains some examples of what can be done +with libsee, including how to integrate Object Pascal objects in the +Javascript runtime environment. + +Enjoy, + +Michael. \ No newline at end of file diff --git a/packages/libsee/examples/mod_stream.pp b/packages/libsee/examples/mod_stream.pp new file mode 100644 index 0000000000..35e12a1d16 --- /dev/null +++ b/packages/libsee/examples/mod_stream.pp @@ -0,0 +1,478 @@ +unit mod_stream; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, libsee; + +Procedure RegisterStreamModule; +Procedure RegisterWriteModule; + +implementation + +{ --------------------------------------------------------------------- + General auxiliary functions + ---------------------------------------------------------------------} + +Function ValueToString(V : TSee_Value) : string; + +Var + PS : Ptcuint; + PD : PChar; + I : Integer; + +begin + SetLength(Result,v.u._string^.length); + If Length(Result)<>0 then + begin + PD:=PChar(Result); + PS:=v.u._string^.data; + For I:=0 to length(Result)-1 do + begin + PD^:=Char(PS^ and $ff); + Inc(PD); + Inc(PS); + end; + end; +end; + +Procedure CreateJSObject(Interp : PSEE_Interpreter; Parent : PSEE_Object;AName : PSEE_String; Obj : PSee_Object); + +var + V : PSEE_Value; + +begin + v:=new_see_value; + see_set_object(V,Obj); + see_object_put(interp,parent,AName,V,SEE_ATTR_DEFAULT); +end; + +Procedure CreateJSNumber(Interp : PSEE_Interpreter; Obj : PSee_Object; AName : PSEE_String; AValue : TSEE_number_t); + +var + V : PSEE_Value; + +begin + v:=new_SEE_value; + see_set_number(V,AValue); + see_object_put(Interp,Obj,AName,v,SEE_ATTR_DEFAULT); +end; + +Procedure CreateJSFunction(Interp : PSEE_Interpreter; Obj : PSee_Object; Func : TSEE_call_fn_t; AName : PSEE_String; Len : Integer); + +var + V : PSEE_Value; + +begin + v:=new_SEE_value; + see_set_object(V,see_cfunction_make(interp,Func,AName,len)); + see_object_put(Interp,Obj,AName,v,SEE_ATTR_DEFAULT); +end; + +{ --------------------------------------------------------------------- + Stream module support + ---------------------------------------------------------------------} +Var + StreamModule : TSEE_module; + StreamObjectDef, + StreamPrototypeDef : PSEE_objectclass; + + WriteModule : TSEE_module; + +Type + TStreamModuleData = record + Stream : PSEE_object; + Prototype : PSEE_object; + Error : PSEE_object; + end; + PStreamModuleData = ^TStreamModuleData; + + TStreamObject = record + native : TSEE_native; + Stream : TStream; + end; + PSTreamObject = ^TStreamObject; + +Var + GStreamRead, + GStreamWrite, + GStreamSeek, + GStreamSize, + GStreamPosition, + GStreamFree, + GStreamfmCreate, + GStreamfmOpenRead, + GStreamfmOpenWrite, + GStreamfmOpenReadWrite, + GStreamStream, + GStreamError, + GStreamPrototype : PSEE_String; + +Procedure StreamAlloc(Interp : PSEE_Interpreter); cdecl; + +begin + PPointer(see_module_private(Interp,@StreamModule))^:=new(PStreamModuleData); +end; + +Function PrivateData(Interp : PSEE_Interpreter) : PStreamModuleData; +begin + Result:=PStreamModuleData((see_module_private(Interp,@StreamModule))^) +end; + +Function AsFile(i:PTSEE_interpreter; obj:PTSEE_object) : PStreamObject; + +begin + If (Not Assigned(obj)) or (Obj^.objectclass<>StreamPrototypeDef) then + SEE_error__throw0(i,I^.TypeError,Nil); + Result:=PStreamObject(Obj) +end; + +procedure StreamSize (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value);cdecl; + +Var + S : PStreamObject; + +begin + S:=AsFile(I,ThisObj); + If (S^.Stream=Nil) then + SEE_error__throw0(i,PrivateData(I)^.Error,Nil); + SEE_SET_NUMBER(res,S^.Stream.Size); +end; + + +procedure StreamWrite (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value);cdecl; + +Var + S : PStreamObject; + v : TSEE_Value; + t : string; + +begin + S:=AsFile(I,ThisObj); + If (S^.Stream=Nil) then + SEE_error__throw0(i,PrivateData(I)^.Error,'File is closed'); + if (ArgC=0) then + SEE_error__throw0(i,I^.RangeError,'Missing argument'); + SEE_ToString(i,argv[0], @v); + T:=ValueToString(V); + If Length(T)>0 then + S^.Stream.Write(T[1],Length(T)); +end; + +procedure StreamPosition (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value);cdecl; + +Var + S : PStreamObject; + v : TSEE_Value; + t : string; + +begin + S:=AsFile(I,ThisObj); + If (S^.Stream=Nil) then + SEE_error__throw0(i,PrivateData(I)^.Error,'File is closed'); + SEE_SET_NUMBER(res,S^.Stream.Position); +end; + +procedure StreamSeek (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value);cdecl; + +Var + S : PStreamObject; + v : TSEE_Value; + newpos : integer; + +begin + S:=AsFile(I,ThisObj); + If (S^.Stream=Nil) then + SEE_error__throw0(i,PrivateData(I)^.Error,'File is closed'); + if (ArgC=0) then + SEE_error__throw0(i,I^.RangeError,'Missing argument'); + newpos:=SEE_ToUint32(i,argv[0]); + SEE_SET_NUMBER(res,S^.Stream.Seek(soFromBeginning,newpos)); +end; + +procedure StreamRead (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value);cdecl; + +Var + S : PStreamObject; + r : PSEE_String; + j,maxlen : integer; + c : char; + +begin + S:=AsFile(I,ThisObj); + If (S^.Stream=Nil) then + SEE_error__throw0(i,PrivateData(I)^.Error,'File is closed'); + if (ArgC=0) then + maxlen:=1024 + else + maxlen:=see_touint32(I,argv[0]); + r:=see_string_new(I,maxlen); + For j:=0 to maxLen-1 do + begin + S^.stream.Read(c,sizeOf(c)); + SEE_string_addch(R,ord(c)); + end; + SEE_SET_STRING(Res,r); +end; + +procedure StreamFree (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value);cdecl; + +Var + S : PStreamObject; + v : TSEE_Value; + t : string; + +begin + S:=AsFile(I,ThisObj); + If (S^.Stream=Nil) then + SEE_error__throw0(i,PrivateData(I)^.Error,'File is closed'); + FreeAndNil(S^.Stream); + SEE_SET_UNDEFINED(Res); +end; + +procedure StreamFinalize ( i:PTSEE_interpreter; p:pointer; closure:pointer);cdecl; + +begin + FreeAndNil(PStreamObject(P)^.Stream); +end; + +procedure StreamConstruct (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value);cdecl; + +Var + P : PChar; + fm : Integer; + S : TStream; + Err : String; + R : PTSEE_Object; + +begin + SEE_parse_args(i,argc,argv,'Z|i',@p,@fm); + If (P=Nil) then + SEE_error__throw0(i,I^.RangeError,'Missing argument'); + Err:=''; + try + S:=TFileStream.Create(strpas(p),fm); + except + On E : Exception do + Err:=E.Message; + end; + If (Err<>'') then + SEE_error__throw0(i,PrivateData(I)^.Error,PChar(Err)); + R:=PTSEE_Object(SEE_malloc_finalize(I,SizeOf(TStreamObject),@StreamFinalize,Nil)); + SEE_Native_init(PSEE_Native(R),I,StreamPrototypeDef,PrivateData(I)^.Prototype); + PStreamObject(r)^.Stream:=S; + SEE_SET_OBJECT(Res,R); +end; + + + +Procedure StreamInit(Interp : PSEE_Interpreter); cdecl; + +Var + Stream, + StreamPrototype, + StreamError : PSee_object; +begin +// writeln('Initializing stream'); + // Construct Stream.prototype object +// writeln('Creating Stream Prototype '); + StreamPrototype:=PSEE_object(SEE_malloc(Interp,SizeOf(TSTreamObject))); + See_native_init(PSEE_native(StreamProtoType),Interp,StreamPrototypeDef,interp^.Object_prototype); + PSTreamObject(StreamPrototype)^.stream:=Nil; + createJSFUnction(Interp,StreamPrototype,@StreamRead,GStreamRead,0); + createJSFUnction(Interp,StreamPrototype,@StreamWrite,GStreamWrite,0); + createJSFUnction(Interp,StreamPrototype,@StreamSize,GStreamSize,0); + createJSFUnction(Interp,StreamPrototype,@StreamPosition,GStreamPosition,0); + createJSFUnction(Interp,StreamPrototype,@StreamSeek,GStreamSeek,0); + createJSFUnction(Interp,StreamPrototype,@StreamFree,GStreamFree,0); +// writeln('Creating Stream'); + // Construct Stream object + Stream:=PSEE_object(new_see_native); + See_native_init(PSEE_native(Stream),Interp,StreamObjectDef,interp^.Object_prototype); + CreateJSObject(Interp,Interp^.Global,GStreamStream,Stream); + CreateJSObject(Interp,Stream,GStreamprototype,StreamPrototype); + CreateJSNumber(Interp,Stream,GStreamfmCreate,fmCreate); + CreateJSNumber(Interp,Stream,GStreamfmOpenRead,fmOpenRead); + CreateJSNumber(Interp,Stream,GStreamfmOpenWrite,fmOpenWrite); + CreateJSNumber(Interp,Stream,GStreamfmOpenReadWrite,fmOpenReadWrite); + StreamError:=SEE_Error_make(interp, GSTreamError); + PrivateData(Interp)^.Stream:=STream; + PrivateData(Interp)^.Prototype:=StreamPrototype; + PrivateData(Interp)^.Error:=StreamError; +// writeln('Done initializing stream'); +end; + +Procedure AllocateStreamStrings; + +begin + GStreamRead:=SEE_intern_global('Read'); + GStreamWrite:=SEE_intern_global('Write'); + GStreamSeek:=SEE_intern_global('Seek'); + GStreamSize:=SEE_intern_global('Size'); + GStreamPosition:=SEE_intern_global('Position'); + GStreamFree:=SEE_intern_global('Free'); + GStreamfmCreate:=SEE_intern_global('fmCreate'); + GStreamfmOpenRead:=SEE_intern_global('fmOpenRead'); + GStreamfmOpenWrite:=SEE_intern_global('fmOpenWrite'); + GStreamfmOpenReadWrite:=SEE_intern_global('fmOpenReadWrite'); + GStreamStream:=SEE_intern_global('Stream'); + GStreamError:=SEE_intern_global('Error'); + GStreamPrototype:=SEE_intern_global('prototype'); +end; + +Function StreamInitModule : Integer; cdecl; + +begin +// writeln('Initializing module'); + StreamPrototypeDef:=new_SEE_objectclass; + With StreamPrototypeDef^ do + begin + _Class:='Stream'; + get:=SEE_native_get; + put:=SEE_native_put; + canput:=SEE_native_canput; + hasproperty:=SEE_native_hasproperty; + Delete:=SEE_native_delete; + DefaultValue:=SEE_native_defaultvalue; + ENumerator:=SEE_native_enumerator; + Construct:=Nil; + Call:=Nil; + HasInstance:=Nil; + end; + StreamObjectDef:=new_SEE_objectclass; + With StreamObjectDef^ do + begin + _Class:='Stream'; + get:=SEE_native_get; + put:=SEE_native_put; + get:=SEE_native_get; + put:=SEE_native_put; + canput:=SEE_native_canput; + hasproperty:=SEE_native_hasproperty; + Delete:=SEE_native_delete; + DefaultValue:=SEE_native_defaultvalue; + ENumerator:=SEE_native_enumerator; + Construct:=@StreamConstruct; + Call:=Nil; + HasInstance:=Nil; + end; + AllocateStreamStrings; +// writeln('Done Initializing module'); + Result:=0; +end; + +Procedure RegisterStreamModule; + +begin +// writeln('Registering stream module'); +// StreamModule:=new_SEE_module; + With StreamModule do + begin + magic:=SEE_MODULE_MAGIC; + name:='Stream'; + version:='1.0'; + Index:=0; + Mod_init:=@StreamInitModule; + alloc:=@StreamAlloc; + init:=@StreamInit + end; + SEE_module_add(@StreamModule); +end; + +{ --------------------------------------------------------------------- + Write(ln) module support + ---------------------------------------------------------------------} + +procedure WriteWrite (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value);cdecl; + +Var + a,C : Integer; + t : string; + v : TSEE_Value; + +begin + if (ArgC=0) then + SEE_error__throw0(i,I^.RangeError,'Missing argument'); + C:=0; + For A:=0 to Argc-1 do + begin + SEE_ToString(i,argv[a], @v); + T:=ValueToString(V); + If Length(T)>0 then + begin + Write(T); + C:=C+Length(T); + end; + end; + SEE_SET_NUMBER(Res,C); +end; + +procedure WriteWriteln (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value);cdecl; + + +begin + if (Argc>0) then + WriteWrite(i,obj,thisobj,argc,argv,res) + else + SEE_SET_NUMBER(Res,0); + Writeln; +end; + +Var + GWriteWrite : PSEE_STRING; + GWriteWriteln : PSEE_STRING; + +Procedure WriteInit(Interp : PSEE_Interpreter); cdecl; + +begin +// writeln('Initializing write'); + createJSFUnction(Interp,Interp^.Global,@WriteWrite,GWriteWrite,1); + createJSFUnction(Interp,Interp^.Global,@WriteWriteln,GWriteWriteln,1); +// writeln('Done initializing write'); +end; + +Procedure AllocateWriteStrings; + +begin + GWriteWrite:=SEE_intern_global('write'); + GWriteWriteln:=SEE_intern_global('writeln'); +end; + +Function WriteInitModule : Integer; cdecl; +begin + Result:=0; +end; + +Procedure RegisterWriteModule; + +begin +// writeln('Registering write module'); +// StreamModule:=new_SEE_module; + With WriteModule do + begin + magic:=SEE_MODULE_MAGIC; + name:='Write'; + version:='1.0'; + Index:=0; + Mod_init:=@WriteInitModule; + alloc:=Nil; + init:=@WriteInit + end; + AllocateWriteStrings; + SEE_module_add(@WriteModule); +end; + + +end. + diff --git a/packages/libsee/examples/teststream.pp b/packages/libsee/examples/teststream.pp new file mode 100644 index 0000000000..cf35945435 --- /dev/null +++ b/packages/libsee/examples/teststream.pp @@ -0,0 +1,28 @@ +program teststream; + +{$mode objfpc} +{$H+} + +uses + Classes, libsee, mod_stream; + +Var + interp : TSEE_interpreter; + ainput : PSEE_INPUT; + res : TSEE_Value; + +const + Program_text = 's = new Stream("test.txt",Stream.fmCreate); '+ + 's.Write("something"); '+ + 's.Free(); '+ + 'delete s;'; + +begin + see_init; + RegisterStreamModule; + SEE_interpreter_init(@interp); + ainput :=SEE_input_utf8(@interp, pchar(program_text)); + See_global_eval(@interp,ainput,@res); + see_input_close(ainput); +end. + diff --git a/packages/libsee/examples/testwrite.pp b/packages/libsee/examples/testwrite.pp new file mode 100644 index 0000000000..537e66fbf8 --- /dev/null +++ b/packages/libsee/examples/testwrite.pp @@ -0,0 +1,25 @@ +program testwrite; + +{$mode objfpc} +{$H+} + +uses + Classes, libsee, mod_stream; + +Var + interp : TSEE_interpreter; + ainput : PSEE_INPUT; + res : TSEE_Value; + +const + Program_text = 'writeln("Hello, world!");'; + +begin + see_init; + RegisterWriteModule; + SEE_interpreter_init(@interp); + ainput :=SEE_input_utf8(@interp, pchar(program_text)); + See_global_eval(@interp,ainput,@res); + see_input_close(ainput); +end. + diff --git a/packages/libsee/examples/tlibsee.pp b/packages/libsee/examples/tlibsee.pp new file mode 100644 index 0000000000..894ac95345 --- /dev/null +++ b/packages/libsee/examples/tlibsee.pp @@ -0,0 +1,23 @@ +program tlibsee; + +uses libsee; + +Var + Interp : TSEE_interpreter; + ainput : PSEE_INPUT; + res : TSEE_Value; + +Const + Program_text = 'Math.sqrt(3 + 4 * 7)+9;'; + +begin + see_init; + SEE_interpreter_init(@Interp); + ainput :=SEE_input_utf8(@Interp, pchar(program_text)); + See_global_eval(@interp,ainput,@res); + if (res._type=SEE_NUMBER) then + Writeln('Result is : ',res.u.number) + else + Writeln('Result is not a number'); + see_input_close(ainput); +end. \ No newline at end of file diff --git a/packages/libsee/fpmake.pp b/packages/libsee/fpmake.pp new file mode 100644 index 0000000000..0d5ffa053f --- /dev/null +++ b/packages/libsee/fpmake.pp @@ -0,0 +1,42 @@ +{$ifndef ALLPACKAGES} +{$mode objfpc}{$H+} +program fpmake; + +uses fpmkunit; + +Var + P : TPackage; + T : TTarget; +begin + With Installer do + begin +{$endif ALLPACKAGES} + + P:=AddPackage('libsee'); +{$ifdef ALLPACKAGES} + P.Directory:='libsee'; +{$endif ALLPACKAGES} + P.Version:='2.5.1'; + P.Author := 'David Leonard'; + P.License := 'BSD style'; + P.HomepageURL := 'http://www.adaptive-enterprises.com.au/~d/software/see/'; + P.Email := 'leonard@users.sourceforge.net'; + P.Description := 'Headers for the libSEE library (javascript engine)'; + P.NeedLibC:= true; // true for headers that indirectly link to libc? + + P.SourcePath.Add('src'); + P.IncludePath.Add('src'); + + T:=P.Targets.AddUnit('libsee.pas'); + + P.ExamplePath.Add('examples'); + P.Targets.AddExampleUnit('mod_stream.pp'); + P.Targets.AddExampleProgram('tlibsee.pp'); + P.Targets.AddExampleProgram('testwrite.pp'); + P.Targets.AddExampleProgram('teststream.pp'); + +{$ifndef ALLPACKAGES} + Run; + end; +end. +{$endif ALLPACKAGES} diff --git a/packages/libsee/src/libsee.pas b/packages/libsee/src/libsee.pas new file mode 100644 index 0000000000..a737214b5e --- /dev/null +++ b/packages/libsee/src/libsee.pas @@ -0,0 +1,1072 @@ +{ $define libseehelper} + +{$mode objfpc} +{$h+} +unit libsee; +interface + +uses + ctypes; + +{ + Automatically converted by H2Pas 1.0.0 from libsee.c + The following command line parameters were used: + -D + -l + see + -C + -u + libsee + -T + -o + libsee.pas + -P + libsee.c +} + + const +{$ifdef unix} + LibSeeLibraryName='libsee.so'; +{$else} + LibSeeLibraryName='libsee.dll'; +{$endif} + +Type + Tsize_t = csize_t; + tcuchar = char; + Tuint16_t = word; + Tuint32_t = cardinal; + Tuint64_t = qword; + Tint16_t = integer; + Tint32_t = longint; + Tint64_t = int64; + TDouble = double; + tcuint = word; + tcint = integer; + PTcchar = pchar; + PPTcchar = ^PTcchar; + Ptcint = ^tcint; + PTcuint = ^tcuint; + tcchar = char; + +var + SEE_literal_NaN : array[0..7] of Tcuchar;cvar;external; + + Type + PFILE = Pointer; + PTFILE = Pointer; + PPSEE_string = ^PSEE_string; + PSEE_context = ^TSEE_context; + PSEE_enum = ^TSEE_enum; + PSEE_growable = ^TSEE_growable; + PSEE_input = ^TSEE_input; + PSEE_interpreter = ^TSEE_interpreter; + PSEE_module = ^TSEE_module; + PSEE_native = ^TSEE_native; + PSEE_object = ^TSEE_object; + PSEE_objectclass = ^TSEE_objectclass; + PSEE_scope = ^TSEE_scope; + PSEE_string = ^TSEE_string; + PSEE_throw_location = ^TSEE_throw_location; + PSEE_try_context = ^TSEE_try_context; + PSEE_unicode_t = ^TSEE_unicode_t; + PSEE_value = ^TSEE_value; + PTSEE_char_t = ^TSEE_Char_t; + PTSEE_Code = Pointer; + + PTSEE_context = ^TSEE_context; + PTSEE_enum = ^TSEE_enum; + PTSEE_growable = ^TSEE_growable; + PTSEE_input = ^TSEE_input; + PTSEE_interpreter = ^TSEE_interpreter; + PTSEE_module = ^TSEE_module; + PTSEE_native = ^TSEE_native; + PTSEE_object = ^TSEE_object; + PTSEE_objectclass = ^TSEE_objectclass; + PTSEE_scope = ^TSEE_scope; + PTSEE_string = ^TSEE_string; + TPSEE_string = PTSEE_string; + PTSEE_throw_location = ^TSEE_throw_location; + PTSEE_try_context = ^TSEE_try_context; + PTSEE_unicode_t = ^TSEE_unicode_t; + PTSEE_value = ^TSEE_value; + PPTSEE_value = ^PSEE_value; + PTSEE_enumclass = ^TSEE_enumclass; + PSEE_system = ^TSEE_System; +// PTSEE_property = ^TSEE_property; + PTSEE_property = Pointer; + TPSEE_object = ^TSEE_object; + PTSEE_inputclass = ^TSEE_inputclass; + PTSEE_traceback = ^TSEE_traceback; + PTSEE_regex_engine = Pointer; + PTSEE_stringclass = ^TSEE_stringclass; + TPSEE_enum = PSEE_Enum; + TPSEE_input = PSEE_INPUT; + PTPSEE_string = ^TSEE_STRING; + TPSEE_interpreter_state = Pointer; //^TSEE_interpreter_state; +{$IFDEF FPC} +{$PACKRECORDS C} +{$ENDIF} + + TSEE_uint16_t = Tuint16_t; + TSEE_uint32_t = Tuint32_t; + TSEE_int32_t = Tint32_t; + TSEE_uint64_t = Tuint64_t; + TSEE_int64_t = Tint64_t; + TSEE_number_t = Tdouble; + TSEE_boolean_t = Tcuchar; + TSEE_char_t = TSEE_uint16_t; + TSEE_unicode_t = TSEE_uint32_t; + + TSEE_type = (SEE_UNDEFINED,SEE_NULL,SEE_BOOLEAN,SEE_NUMBER, + SEE_STRING,SEE_OBJECT,SEE_REFERENCE,SEE_COMPLETION + ); + + TSEE_reference = record + base : PTSEE_object; + _property : PTSEE_string; + end; + + TSEE_completion = record + value : PTSEE_value; + target : Tcuint; + _type : (SEE_COMPLETION_NORMAL,SEE_COMPLETION_BREAK, + SEE_COMPLETION_CONTINUE,SEE_COMPLETION_RETURN, + SEE_COMPLETION_THROW); + end; + + TSEE_value = record + _type : TSEE_type; + u : record + case longint of + 0 : ( number : TSEE_number_t ); + 1 : ( boolean : TSEE_boolean_t ); + 2 : ( _object : PTSEE_object ); + 3 : ( _string : PTSEE_string ); + 4 : ( reference : TSEE_reference ); + 5 : ( completion : TSEE_completion ); + 6 : ( _padding : array[0..3] of pointer ); + end; + end; + + + + TSEE_get_fn_t = procedure (i:PTSEE_interpreter; obj:PTSEE_object; prop:PTSEE_string; res:PTSEE_value);cdecl; + TSEE_put_fn_t = procedure (i:PTSEE_interpreter; obj:PTSEE_object; prop:PTSEE_string; res:PTSEE_value; flags:Tcint);cdecl; + TSEE_boolean_fn_t = function (i:PTSEE_interpreter; obj:PTSEE_object; prop:PTSEE_string):Tcint;cdecl; + TSEE_hasinstance_fn_t = function (i:PTSEE_interpreter; obj:PTSEE_object; instance:PTSEE_value):Tcint;cdecl; + TSEE_default_fn_t = procedure (i:PTSEE_interpreter; obj:PTSEE_object; hint:PTSEE_value; res:PTSEE_value);cdecl; + TSEE_call_fn_t = procedure (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value);cdecl; + TSEE_enumerator_fn_t = function (i:PTSEE_interpreter; obj:PTSEE_object):PTSEE_enum;cdecl; + TSEE_get_sec_domain_fn_t = function (i:PTSEE_interpreter; obj:PTSEE_object):pointer;cdecl; + + +(* Const before type ignored *) + TSEE_objectclass = record + _Class : PTcchar; + Get : TSEE_get_fn_t; + Put : TSEE_put_fn_t; + CanPut : TSEE_boolean_fn_t; + HasProperty : TSEE_boolean_fn_t; + Delete : TSEE_boolean_fn_t; + DefaultValue : TSEE_default_fn_t; + enumerator : TSEE_enumerator_fn_t; + Construct : TSEE_call_fn_t; + Call : TSEE_call_fn_t; + HasInstance : TSEE_hasinstance_fn_t; + get_sec_domain : TSEE_get_sec_domain_fn_t; + end; + + TSEE_object = record + objectclass : PTSEE_objectclass; + Prototype : PTSEE_object; + host_data : pointer; + end; + + TSEE_enumclass = record + unused : pointer; + next : function (i:PTSEE_interpreter; e:PTSEE_enum; flags_return:pTcint):TPSEE_string;cdecl; + end; + + TSEE_enum = record + enumclass : PTSEE_enumclass; + end; + + TSEE_native = record + _object : TSEE_object; + properties : array[0..256] of PTSEE_property; + lru : PTSEE_property; + end; + TSEE_scope = record + next : PTSEE_scope; + obj : TPSEE_object; + end; + + TSEE_inputclass = record + next : function (para1:PTSEE_input):TSEE_unicode_t;cdecl; + close : procedure (para1:PTSEE_input); + end; + + TSEE_input = record + inputclass : PTSEE_inputclass; + eof : TSEE_boolean_t; + lookahead : TSEE_unicode_t; + filename : TPSEE_string; + first_lineno : Tcint; + interpreter : PTSEE_interpreter; + end; + + TSEE_trace_event = (SEE_TRACE_CALL,SEE_TRACE_RETURN,SEE_TRACE_STATEMENT, + SEE_TRACE_THROW); + + TSEE_interpreter = record + host_data : pointer; + compatibility : Tcint; + Global : TPSEE_object; + _Object : TPSEE_object; + Object_prototype : TPSEE_object; + Error : TPSEE_object; + EvalError : TPSEE_object; + RangeError : TPSEE_object; + ReferenceError : TPSEE_object; + SyntaxError : TPSEE_object; + TypeError : TPSEE_object; + URIError : TPSEE_object; + _String : TPSEE_object; + String_prototype : TPSEE_object; + _Function : TPSEE_object; + Function_prototype : TPSEE_object; + _Array : TPSEE_object; + Array_prototype : TPSEE_object; + Number : TPSEE_object; + Number_prototype : TPSEE_object; + Boolean : TPSEE_object; + Boolean_prototype : TPSEE_object; + Math : TPSEE_object; + RegExp : TPSEE_object; + RegExp_prototype : TPSEE_object; + Date : TPSEE_object; + Date_prototype : TPSEE_object; + Global_eval : TPSEE_object; + Global_scope : PTSEE_scope; + try_context : PTSEE_try_context; + try_location : PTSEE_throw_location; + traceback : PTSEE_traceback; + module_private : Ppointer; + intern_tab : pointer; + random_seed : Tcuint; + locale : PTcchar; + recursion_limit : Tcint; + sec_domain : pointer; + trace : procedure (para1:PTSEE_interpreter; para2:PTSEE_throw_location; para3:PTSEE_context; para4:TSEE_trace_event);cdecl; + regex_engine : PTSEE_regex_engine; + end; + + TSEE_traceback = record + call_location : PTSEE_throw_location; + callee : TPSEE_object; + call_type : Tcint; + prev : PTSEE_traceback; + end; + + TSEE_context = record + interpreter : PTSEE_interpreter; + activation : TPSEE_object; + variable : TPSEE_object; + varattr : Tcint; + thisobj : TPSEE_object; + scope : PTSEE_scope; + end; + + TSEE_growable = record + data_ptr : Ppointer; + length_ptr : PTcuint; + element_size : Tsize_t; + allocated : Tsize_t; + flag0 : word; + end; + + TSEE_module = record + magic : TSEE_uint32_t; + name : PTcchar; + version : PTcchar; + index : Tcuint; + mod_init : function :Tcint;cdecl; + alloc : procedure (para1:PTSEE_interpreter);cdecl; + init : procedure (para1:PTSEE_interpreter);cdecl; + end; + + TSEE_string = record + length : Tcuint; + data : PTSEE_char_t; + stringclass : PTSEE_stringclass; + interpreter : PTSEE_interpreter; + flags : Tcint; + end; + + TSEE_stringclass = record + growby : procedure (para1:TPSEE_string; para2:Tcuint);cdecl; + end; + + TFinalProc = procedure (para1:PTSEE_interpreter; para2:pointer; para3:pointer); cdecl; + TSEE_system = record + default_locale : PTcchar; + default_recursion_limit : Tcint; + default_trace : procedure (para1:PTSEE_interpreter; para2:PTSEE_throw_location; para3:PTSEE_context; para4:TSEE_trace_event);cdecl; + default_compat_flags : Tcint; + random_seed : function :Tcuint; + abort : procedure (para1:PTSEE_interpreter; para2:PTcchar); + periodic : procedure (para1:PTSEE_interpreter); + malloc : function (para1:PTSEE_interpreter; para2:Tsize_t; para3:PTcchar; para4:Tcint):pointer; + malloc_finalize : function (para1:PTSEE_interpreter; para2:Tsize_t; para3:tfinalproc; para4:pointer; para5:PTcchar; para6:Tcint):pointer; + malloc_string : function (para1:PTSEE_interpreter; para2:Tsize_t; para3:PTcchar; para4:Tcint):pointer; + free : procedure (para1:PTSEE_interpreter; para2:pointer; para3:PTcchar; para4:Tcint); + mem_exhausted : procedure (para1:PTSEE_interpreter); + gcollect : procedure (para1:PTSEE_interpreter); + transit_sec_domain : function (para1:PTSEE_interpreter; para2:pointer):pointer; + code_alloc : function (para1:PTSEE_interpreter): PTSEE_code; + object_construct : procedure (interp:PTSEE_interpreter; self:TPSEE_object; thisobj:TPSEE_object; argc:Tcint; argv:PPTSEE_value; + res:PTSEE_value); + default_regex_engine : PTSEE_regex_engine; + end; + + TSEE_throw_location = record + filename : TPSEE_string; + lineno : Tcint; + end; + + Tjmp_buf = record + a : array[1..200] of byte; + end; + + TSEE_try_context_t = record + interpreter : PTSEE_interpreter; + previous : PTSEE_try_context; + thrown : TSEE_value; + done : Tcint; + env : Tjmp_buf; // + throw_file : PTcchar; + throw_line : Tcint; + saved_traceback : PTSEE_traceback; + traceback : PTSEE_traceback; + end; + + TSEE_try_context = TSEE_try_context_t; + + const + bm_TSEE_growable_is_string = $1; + bp_TSEE_growable_is_string = 0; + + var + _SEE_isnan : function(n:TSEE_number_t):Tcint;cdecl; + _SEE_isfinite : function(n:TSEE_number_t):Tcint;cdecl; + _SEE_copysign : function(x:TSEE_number_t; y:TSEE_number_t):TSEE_number_t;cdecl; + _SEE_ispinf : function(n:TSEE_number_t):Tcint;cdecl; + _SEE_isninf : function(n:TSEE_number_t):Tcint;cdecl; + SEE_ToPrimitive : procedure(i:PTSEE_interpreter; val:PTSEE_value; _type:PTSEE_value; res:PTSEE_value);cdecl; + SEE_ToBoolean : procedure(i:PTSEE_interpreter; val:PTSEE_value; res:PTSEE_value);cdecl; + SEE_ToNumber : procedure(i:PTSEE_interpreter; val:PTSEE_value; res:PTSEE_value);cdecl; + SEE_ToInteger : procedure(i:PTSEE_interpreter; val:PTSEE_value; res:PTSEE_value);cdecl; + SEE_ToString : procedure(i:PTSEE_interpreter; val:PTSEE_value; res:PTSEE_value);cdecl; + SEE_ToObject : procedure(i:PTSEE_interpreter; val:PTSEE_value; res:PTSEE_value);cdecl; + SEE_ToInt32 : function(i:PTSEE_interpreter; val:PTSEE_value):TSEE_int32_t;cdecl; + SEE_ToUint32 : function(i:PTSEE_interpreter; val:PTSEE_value):TSEE_uint32_t;cdecl; + SEE_ToUint16 : function(i:PTSEE_interpreter; val:PTSEE_value):TSEE_uint16_t;cdecl; + SEE_hexstr_lowercase : array[0..15] of Tcchar;cvar;external; + + + _SEE_intern_assert : function(i:PTSEE_interpreter; s:TPSEE_string):TPSEE_string;cdecl; + SEE_intern_ascii : function(para1:PTSEE_interpreter; para2:PTcchar):TPSEE_string;cdecl; + SEE_function_is_joined : function(a:PTSEE_object; b:PTSEE_object):Tcint;cdecl; + SEE_Object_new : function(para1:PTSEE_interpreter):TPSEE_object;cdecl; + SEE_object_call : procedure(para1:PTSEE_interpreter; para2:TPSEE_object; para3:TPSEE_object; para4:Tcint; para5:PPTSEE_value; + para6:PTSEE_value);cdecl; + SEE_object_construct : procedure(para1:PTSEE_interpreter; para2:TPSEE_object; para3:TPSEE_object; para4:Tcint; para5:PPTSEE_value; + para6:PTSEE_value);cdecl; + SEE_object_instanceof : function(interp:PTSEE_interpreter; val:PTSEE_value; obj:TPSEE_object):Tcint;cdecl; + + SEE_native_get : procedure(i:PTSEE_interpreter; obj:TPSEE_object; prop:TPSEE_string; res:PTSEE_value);cdecl; + SEE_native_put : procedure(i:PTSEE_interpreter; obj:TPSEE_object; prop:TPSEE_string; val:PTSEE_value; flags:Tcint);cdecl; + SEE_native_canput : function(i:PTSEE_interpreter; obj:TPSEE_object; prop:TPSEE_string):Tcint;cdecl; + SEE_native_hasproperty : function(i:PTSEE_interpreter; obj:TPSEE_object; prop:TPSEE_string):Tcint;cdecl; + SEE_native_hasownproperty : function(i:PTSEE_interpreter; obj:TPSEE_object; prop:TPSEE_string):Tcint;cdecl; + SEE_native_getownattr : function(i:PTSEE_interpreter; obj:TPSEE_object; prop:TPSEE_string):Tcint;cdecl; + SEE_native_delete : function(i:PTSEE_interpreter; obj:TPSEE_object; prop:TPSEE_string):Tcint;cdecl; + SEE_native_defaultvalue : procedure(i:PTSEE_interpreter; obj:TPSEE_object; hint:PTSEE_value; res:PTSEE_value);cdecl; + SEE_native_enumerator : function(i:PTSEE_interpreter; obj:TPSEE_object):TPSEE_enum;cdecl; + SEE_native_new : function(i:PTSEE_interpreter):TPSEE_object;cdecl; + SEE_native_init : procedure(obj:PTSEE_native; i:PTSEE_interpreter; obj_class:PTSEE_objectclass; prototype:TPSEE_object);cdecl; + + SEE_cfunction_make : function(i:PTSEE_interpreter; func:TSEE_call_fn_t; name:TPSEE_string; length:Tcint):TPSEE_object;cdecl; + SEE_parse_args : procedure(i:PTSEE_interpreter; argc:Tcint; argv:PPTSEE_value; fmt:pTcchar);cdecl;varargs; + SEE_call_args : procedure(i:PTSEE_interpreter; func:TPSEE_object; thisobj:TPSEE_object; ret:PTSEE_value; fmt:pTcchar);cdecl;varargs; + + SEE_PrintValue : procedure(i:PTSEE_interpreter; v:PTSEE_value; f:PTFILE);cdecl; + SEE_PrintObject : procedure(i:PTSEE_interpreter; o:TPSEE_object; f:PTFILE);cdecl; + SEE_PrintString : procedure(i:PTSEE_interpreter; s:TPSEE_string; f:PTFILE);cdecl; + SEE_PrintTraceback : procedure(i:PTSEE_interpreter; f:PTFILE);cdecl; + SEE_PrintContextTraceback : procedure(i:PTSEE_interpreter; context:PTSEE_try_context; f:PTFILE);cdecl; + + SEE_Global_eval : procedure(i:PTSEE_interpreter; input:PTSEE_input; res:PTSEE_value);cdecl; + SEE_eval : procedure(i:PTSEE_interpreter; input:PTSEE_input; thisobj:TPSEE_object; variable:TPSEE_object; scope:PTSEE_scope; + res:PTSEE_value);cdecl; + SEE_Function_new : function(i:PTSEE_interpreter; name:TPSEE_string; param_input:PTSEE_input; body_input:PTSEE_input):TPSEE_object;cdecl; + + SEE_error__throw_string : procedure(i:PTSEE_interpreter; errorobj:TPSEE_object; filename:pTcchar; lineno:Tcint; message:TPSEE_string);cdecl; + SEE_error__throw : procedure(i:PTSEE_interpreter; errorobj:TPSEE_object; filename:pTcchar; lineno:Tcint; fmt:pTcchar);cdecl; varargs; + SEE_error__throw_sys : procedure(i:PTSEE_interpreter; errorobj:TPSEE_object; filename:pTcchar; lineno:Tcint; fmt:pTcchar);cdecl; varargs; + SEE_Error_make : function(i:PTSEE_interpreter; name:TPSEE_string):TPSEE_object;cdecl; + SEE_error__throw0 : procedure(i:PTSEE_interpreter; errorobj:TPSEE_object; fmt:pTcchar);cdecl;varargs; + SEE_error__throw_sys0 : procedure(i:PTSEE_interpreter; errorobj:TPSEE_object; fmt:pTcchar);cdecl;varargs; + + + SEE_input_file : function(i:PTSEE_interpreter; f:PTFILE; filename:pTcchar; encoding:pTcchar):TPSEE_input;cdecl; + SEE_input_string : function(i:PTSEE_interpreter; s:TPSEE_string):TPSEE_input;cdecl; + SEE_input_utf8 : function(i:PTSEE_interpreter; s:pTcchar):TPSEE_input;cdecl; + SEE_input_lookahead : function(i:TPSEE_input; maxlookahead:Tcint):TPSEE_input;cdecl; + SEE_input_lookahead_copy : function(li:TPSEE_input; buf:PTSEE_unicode_t; buflen:Tcint):Tcint;cdecl; + + _SEE_intern_init : procedure(i:PTSEE_interpreter);cdecl; + SEE_intern : function(i:PTSEE_interpreter; s:TPSEE_string):TPSEE_string;cdecl; + SEE_intern_and_free : procedure(i:PTSEE_interpreter; s:PTPSEE_string);cdecl; +// SEE_intern_ascii : function(i:PTSEE_interpreter; s:pTcchar):TPSEE_string;cdecl; + SEE_intern_global : function(s:pTcchar):TPSEE_string;cdecl; + + SEE_interpreter_init : procedure(i:PTSEE_interpreter);cdecl; + SEE_interpreter_init_compat : procedure(i:PTSEE_interpreter; compat_flags:Tcint);cdecl; + SEE_interpreter_save_state : function(i:PTSEE_interpreter):TPSEE_interpreter_state;cdecl; + SEE_interpreter_restore_state : procedure(i:PTSEE_interpreter; state:TPSEE_interpreter_state);cdecl; + + SEE_context_eval : procedure(context:PTSEE_context; expr:TPSEE_string; res:PTSEE_value);cdecl; + + Type + Tfinalizefn = procedure( i:PTSEE_interpreter; p:pointer; closure:pointer);cdecl; +Var + SEE_malloc : function(i:PTSEE_interpreter; sz:Tsize_t):pointer;cdecl; + SEE_malloc_string : function(i:PTSEE_interpreter; sz:Tsize_t):pointer;cdecl; + SEE_malloc_finalize : function(i:PTSEE_interpreter; sz:Tsize_t; finalizefn:Tfinalizefn; closure:pointer):pointer;cdecl; + SEE_free : procedure(i:PTSEE_interpreter; memp:Ppointer);cdecl; + SEE_gcollect : procedure(i:PTSEE_interpreter);cdecl; + _SEE_malloc_debug : function(i:PTSEE_interpreter; sz:Tsize_t; _file:pTcchar; line:Tcint):pointer;cdecl; + _SEE_malloc_string_debug : function(i:PTSEE_interpreter; sz:Tsize_t; _file:pTcchar; line:Tcint):pointer;cdecl; + _SEE_malloc_finalize_debug : function(i:PTSEE_interpreter; sz:Tsize_t; finalizefn:Tfinalizefn; closure:pointer; _file:pTcchar; line:Tcint):pointer;cdecl; + _SEE_free_debug : procedure(i:PTSEE_interpreter; memp:Ppointer; _file:pTcchar; line:Tcint);cdecl; + + + function is_string(var a : TSEE_growable) : boolean; + procedure set_is_string(var a : TSEE_growable; __is_string : boolean); + + var + SEE_grow_to : procedure(i:PTSEE_interpreter; grow:PTSEE_growable; new_len:Tcuint);cdecl; + _SEE_grow_to_debug : procedure(i:PTSEE_interpreter; grow:PTSEE_growable; new_len:Tcuint; _file:pTcchar; line:Tcint);cdecl; + + + + SEE_module_add : function(module:PTSEE_module):Tcint;cdecl; + + SEE_no_get : procedure(para1:PTSEE_interpreter; para2:TPSEE_object; para3:TPSEE_string; val:PTSEE_value);cdecl; + SEE_no_put : procedure(para1:PTSEE_interpreter; para2:TPSEE_object; para3:TPSEE_string; val:PTSEE_value; para5:Tcint);cdecl; + SEE_no_canput : function(para1:PTSEE_interpreter; para2:TPSEE_object; para3:TPSEE_string):Tcint;cdecl; + SEE_no_hasproperty : function(para1:PTSEE_interpreter; para2:TPSEE_object; para3:TPSEE_string):Tcint;cdecl; + SEE_no_delete : function(para1:PTSEE_interpreter; para2:TPSEE_object; para3:TPSEE_string):Tcint;cdecl; + SEE_no_defaultvalue : procedure(para1:PTSEE_interpreter; para2:TPSEE_object; para3:PTSEE_value; para4:PTSEE_value);cdecl; + SEE_no_enumerator : function(para1:PTSEE_interpreter; para2:TPSEE_object):TPSEE_enum;cdecl; + + var + SEE_string_addch : procedure(s:TPSEE_string; ch:Tcint);cdecl; + SEE_string_append : procedure(s:TPSEE_string; sffx:TPSEE_string);cdecl; + SEE_string_append_ascii : procedure(s:TPSEE_string; ascii:pTcchar);cdecl; + SEE_string_append_int : procedure(s:TPSEE_string; i:Tcint);cdecl; + SEE_string_append_unicode : procedure(s:TPSEE_string; uch:TSEE_unicode_t);cdecl; + SEE_string_fputs : function(s:TPSEE_string; _file:PTFILE):Tcint;cdecl; + SEE_string_cmp : function(s1:TPSEE_string; s2:TPSEE_string):Tcint;cdecl; + SEE_string_cmp_ascii : function(s1:TPSEE_string; s2:pTcchar):Tcint;cdecl; + SEE_string_new : function(i:PTSEE_interpreter; space:Tcuint):TPSEE_string;cdecl; + SEE_string_dup : function(i:PTSEE_interpreter; s:TPSEE_string):TPSEE_string;cdecl; + SEE_string_substr : function(i:PTSEE_interpreter; s:TPSEE_string; index:Tcint; length:Tcint):TPSEE_string;cdecl; + SEE_string_concat : function(i:PTSEE_interpreter; s1:TPSEE_string; s2:TPSEE_string):TPSEE_string;cdecl; + SEE_string_sprintf : function(i:PTSEE_interpreter; fmt:pTcchar):TPSEE_string;cdecl; varargs; + SEE_string_literal : function(i:PTSEE_interpreter; s:TPSEE_string):TPSEE_string;cdecl; + SEE_string_fix : function(s:TPSEE_string):TPSEE_string;cdecl; + SEE_string_free : procedure(i:PTSEE_interpreter; sp:PTPSEE_string);cdecl; + SEE_string_toutf8 : procedure(i:PTSEE_interpreter; buf:pTcchar; buflen:Tsize_t; s:TPSEE_string);cdecl; + SEE_string_utf8_size : function(interp:PTSEE_interpreter; s:TPSEE_string):Tsize_t;cdecl; + _SEE_string_dup_fix : function(para1:PTSEE_interpreter; para2:TPSEE_string):TPSEE_string;cdecl; + + + + var + SEE_system : TSEE_system;cvar;external; + SEE_init : procedure;cdecl; + SEE_regex_engine_list : function:PPTcchar;cdecl; + SEE_regex_engine : function(name:pTcchar):PTSEE_regex_engine;cdecl; + + + var + SEE_throw_abort : procedure(para1:PTSEE_interpreter; para2:PTSEE_value; para3:PTcchar; para4:Tcint);cdecl; + SEE_location_string : function(i:PTSEE_interpreter; loc:PTSEE_throw_location):TPSEE_string;cdecl; + SEE_throw : procedure;cdecl; + SEE_version : function: PTcchar;cdecl; + +procedure see_input_close(Inp : PSEE_INPUT); + +function SEE_VALUE_GET_TYPE(v : PSEE_value) : TSEE_type; +procedure SEE_VALUE_COPY(dst, src : PSEE_value); +procedure SEE_SET_UNDEFINED(v : PSEE_value); +procedure SEE_SET_NULL(v : PSEE_value); +procedure SEE_SET_BOOLEAN(v : PSEE_value; b : Boolean); +procedure SEE_SET_NUMBER(v : PSEE_value; n : TSEE_number_t); +procedure SEE_SET_STRING(v :PSEE_value; s: PSEE_STRING); +procedure SEE_SET_OBJECT(v :PSEE_value; o: PSEE_OBJECT); +function SEE_isnan (n:TSEE_number_t):Tcint; +function SEE_isfinite (n:TSEE_number_t):Tcint; +function SEE_copysign (x:TSEE_number_t; y:TSEE_number_t):TSEE_number_t; +function SEE_ispinf (n:TSEE_number_t):Tcint; +function SEE_isninf (n:TSEE_number_t):Tcint; +Function SEE_MODULE_PRIVATE(i : PTSEE_interpreter; m : PSEE_module) : Pointer; + +procedure SEE_OBJECT_PUT(Interp : PTSEE_interpreter; Obj : PSEE_object; prop:TPSEE_string; val:PTSEE_value; flags:Tcint); + +CONST + SEE_ATTR_READONLY = $01; + SEE_ATTR_DONTENUM = $02; + SEE_ATTR_DONTDELETE = $04; + SEE_ATTR_INTERNAL = $08; + + SEE_MODULE_MAGIC = $5345456d; + SEE_ATTR_DEFAULT = SEE_ATTR_DONTENUM; + SEE_ATTR_LENGTH = SEE_ATTR_READONLY or SEE_ATTR_DONTDELETE or SEE_ATTR_DONTENUM; + +{$ifdef libseehelper} +{$l libsee.so} +{$l libseewrap.o} +function SEE_help_Global_eval (para1 : PSEE_Interpreter; para2: PSEE_input; para3 : PSEE_value) : cint; cdecl; external; +function SEE_help_CAUGHT(para1: TSEE_try_context) : PSEE_value; cdecl; external; +procedure SEE_help_THROW(para1: PSEE_Interpreter; para2: PSEE_value); cdecl; external; +procedure SEE_help_RETHROW(para1: PSEE_Interpreter; para2: PSEE_value); cdecl; external; +procedure SEE_help_DEFAULT_CATCH(para1: PSEE_Interpreter; para2: PSEE_try_context); cdecl; external; +function new_SEE_interpreter : PSEE_Interpreter; cdecl; external; +function new_SEE_value : PSEE_Value; cdecl; external; +function new_SEE_objectclass : PSEE_objectclass; cdecl; external; +function new_SEE_object : PSEE_object; cdecl; external; +function new_SEE_enumclass : PTSEE_enumclass; cdecl; external; +function new_SEE_enum : PSEE_enum; cdecl; external; +function new_SEE_native : PSEE_native; cdecl; external; +function new_SEE_scope : PSEE_scope; cdecl; external; +function new_SEE_inputclass : PTSEE_inputclass; cdecl; external; +function new_SEE_input : PSEE_input; cdecl; external; +function new_SEE_traceback : PTSEE_traceback; cdecl; external; +function new_SEE_context : PSEE_context; cdecl; external; +function new_SEE_stringclass : PTSEE_stringclass; cdecl; external; +function new_SEE_throw_location : PSEE_throw_location; cdecl; external; +function new_SEE_try_context : PSEE_try_context; cdecl; external; +procedure free_SEE_struct(P : pointer); cdecl; external; +{$else} +function new_SEE_interpreter : PSEE_Interpreter; +function new_SEE_value : PSEE_Value; +function new_SEE_objectclass : PSEE_objectclass; +function new_SEE_object : PSEE_object; +function new_SEE_enumclass : PTSEE_enumclass; +function new_SEE_enum : PSEE_enum; +function new_SEE_native : PSEE_native; +function new_SEE_scope : PSEE_scope; +function new_SEE_inputclass : PTSEE_inputclass; +function new_SEE_input : PSEE_input; +function new_SEE_traceback : PTSEE_traceback; +function new_SEE_context : PSEE_context; +function new_SEE_stringclass : PTSEE_stringclass; +function new_SEE_throw_location : PSEE_throw_location; +function new_SEE_try_context : PSEE_try_context; +procedure free_SEE_struct(P : pointer); +{$endif} +procedure Loadlibsee(Const Alib : string); +procedure Freelibsee; +Function LibseeLoaded : Boolean; + +implementation + +uses + SysUtils, dynlibs; + +{$ifndef libseehelper} +function new_SEE_interpreter : PSEE_Interpreter; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_interpreter)); +end; + +function new_SEE_value : PSEE_Value; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_Value)); +end; + +function new_SEE_objectclass : PSEE_objectclass; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_objectclass)); +end; + +function new_SEE_object : PSEE_object; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_object)); +end; + +function new_SEE_enumclass : PTSEE_enumclass; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_enumclass)); +end; + +function new_SEE_enum : PSEE_enum; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_enum)); +end; + +function new_SEE_native : PSEE_native; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_native)); + +end; + +function new_SEE_scope : PSEE_scope; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_scope)); +end; + +function new_SEE_inputclass : PTSEE_inputclass; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_inputclass)); +end; + +function new_SEE_input : PSEE_input; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_input)); + +end; + +function new_SEE_traceback : PTSEE_traceback; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_traceback)); +end; + +function new_SEE_context : PSEE_context; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_context)); +end; + +function new_SEE_stringclass : PTSEE_stringclass; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_stringclass)); +end; + +function new_SEE_throw_location : PSEE_throw_location; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_throw_location)); +end; + +function new_SEE_try_context : PSEE_try_context; + +begin + Result:=SEE_malloc(Nil,SizeOf(TSEE_try_context)); +end; + +procedure free_SEE_struct(P : pointer); +begin + SEE_free(Nil,P); +end; + +{$endif} + +procedure SEE_OBJECT_PUT(Interp : PTSEE_interpreter; Obj : PSEE_object; prop:TPSEE_string; val:PTSEE_value; flags:Tcint); + +begin + obj^.objectclass^.Put(Interp,obj,prop,val,flags); +end; +// SEE_native_put : procedure(i:PTSEE_interpreter; obj:TPSEE_object; prop:TPSEE_string; val:PTSEE_value; flags:Tcint);cdecl; +function SEE_VALUE_GET_TYPE(v : PSEE_value) : TSEE_type; + +begin + Result:=v^._type; +end; + +procedure SEE_VALUE_COPY(dst, src : PSEE_value); + +begin + dst^:=src^; +end; + +procedure SEE_SET_TYPE(v: PSEE_VALUE; t : TSEE_type); + +begin + v^._type:=t; +end; + +procedure SEE_SET_UNDEFINED(v : PSEE_value); + +begin + SEE_SET_TYPE(v,SEE_UNDEFINED); +end; + +procedure SEE_SET_NULL(v : PSEE_value); + +begin + SEE_SET_TYPE(V,SEE_NULL); +end; + +procedure SEE_SET_BOOLEAN(v : PSEE_value; b : Boolean); + +begin + SEE_SET_TYPE(V,SEE_BOOLEAN); + V^.u.boolean:=char(ord(B)); +end; + +procedure SEE_SET_NUMBER(v : PSEE_value; n : TSEE_number_t); + +begin + SEE_SET_TYPE(V,SEE_NUMBER); + V^.u.number:=N; +end; + +procedure SEE_SET_STRING(v :PSEE_value; s: PSEE_STRING); + +begin + SEE_SET_TYPE(V,SEE_STRING); + V^.u._string:=s +end; + +procedure SEE_SET_OBJECT(v :PSEE_value; o: PSEE_OBJECT); +begin + SEE_SET_TYPE(V,SEE_OBJECT); + V^.u._object:=o; +end; + +function SEE_isnan (n:TSEE_number_t):Tcint; +begin + Result:=_see_isnan(n); +end; +function SEE_isfinite (n:TSEE_number_t):Tcint; + +begin + result:=_see_isfinite(n); +end; + +function SEE_copysign (x:TSEE_number_t; y:TSEE_number_t):TSEE_number_t; + +begin + result:=_see_copysign(x,y); +end; + +function SEE_ispinf (n:TSEE_number_t):Tcint; + +begin + result:=_see_ispinf(n); +end; + +function SEE_isninf (n:TSEE_number_t):Tcint; + +begin + result:=_see_isninf(n); +end; + + function is_string(var a : TSEE_growable) : Boolean; + begin + is_string:=((a.flag0 and bm_TSEE_growable_is_string) shr bp_TSEE_growable_is_string)<>0; + end; + + procedure set_is_string(var a : TSEE_growable; __is_string : Boolean); + begin + a.flag0:=a.flag0 or ((ord(__is_string) shl bp_TSEE_growable_is_string) and bm_TSEE_growable_is_string); + end; + +Function SEE_MODULE_PRIVATE(i : PTSEE_interpreter; m : PSEE_module) : Pointer; + +begin + Result:=@I^.module_private[Integer(m^.index)]; +end; + +procedure see_input_close(Inp : PSEE_INPUT); + +begin + Inp^.inputclass^.close(inp); +end; + +var + hlib : tlibhandle; + +procedure Freelibsee; + +begin + If HLib<>NilHandle then + FreeLibrary(hlib); + _SEE_isnan:=nil; + _SEE_isfinite:=nil; + _SEE_copysign:=nil; + _SEE_ispinf:=nil; + _SEE_isninf:=nil; + SEE_ToPrimitive:=nil; + SEE_ToBoolean:=nil; + SEE_ToNumber:=nil; + SEE_ToInteger:=nil; + SEE_ToString:=nil; + SEE_ToObject:=nil; + SEE_ToInt32:=nil; + SEE_ToUint32:=nil; + SEE_ToUint16:=nil; + _SEE_intern_assert:=nil; + SEE_intern_ascii:=nil; + SEE_function_is_joined:=nil; + SEE_Object_new:=nil; + SEE_object_call:=nil; + SEE_object_construct:=nil; + SEE_object_instanceof:=nil; + SEE_native_get:=nil; + SEE_native_put:=nil; + SEE_native_canput:=nil; + SEE_native_hasproperty:=nil; + SEE_native_hasownproperty:=nil; + SEE_native_getownattr:=nil; + SEE_native_delete:=nil; + SEE_native_defaultvalue:=nil; + SEE_native_enumerator:=nil; + SEE_native_new:=nil; + SEE_native_init:=nil; + SEE_cfunction_make:=nil; + SEE_parse_args:=nil; + SEE_parse_args:=nil; + SEE_call_args:=nil; + SEE_call_args:=nil; + SEE_PrintValue:=nil; + SEE_PrintObject:=nil; + SEE_PrintString:=nil; + SEE_PrintTraceback:=nil; + SEE_PrintContextTraceback:=nil; + SEE_Global_eval:=nil; + SEE_eval:=nil; + SEE_Function_new:=nil; + SEE_error__throw_string:=nil; + SEE_error__throw:=nil; + SEE_error__throw:=nil; + SEE_error__throw_sys:=nil; + SEE_error__throw_sys:=nil; + SEE_Error_make:=nil; + SEE_error__throw0:=nil; + SEE_error__throw0:=nil; + SEE_error__throw_sys0:=nil; + SEE_error__throw_sys0:=nil; + SEE_input_file:=nil; + SEE_input_string:=nil; + SEE_input_utf8:=nil; + SEE_input_lookahead:=nil; + SEE_input_lookahead_copy:=nil; + _SEE_intern_init:=nil; + SEE_intern:=nil; + SEE_intern_and_free:=nil; + SEE_intern_ascii:=nil; + SEE_intern_global:=nil; + SEE_interpreter_init:=nil; + SEE_interpreter_init_compat:=nil; + SEE_interpreter_save_state:=nil; + SEE_interpreter_restore_state:=nil; + SEE_context_eval:=nil; + SEE_malloc:=nil; + SEE_malloc_string:=nil; + SEE_malloc_finalize:=nil; + SEE_free:=nil; + SEE_gcollect:=nil; + _SEE_malloc_debug:=nil; + _SEE_malloc_string_debug:=nil; + _SEE_malloc_finalize_debug:=nil; + _SEE_free_debug:=nil; + SEE_grow_to:=nil; + _SEE_grow_to_debug:=nil; + SEE_module_add:=nil; + SEE_no_get:=nil; + SEE_no_put:=nil; + SEE_no_canput:=nil; + SEE_no_hasproperty:=nil; + SEE_no_delete:=nil; + SEE_no_defaultvalue:=nil; + SEE_no_enumerator:=nil; + SEE_string_addch:=nil; + SEE_string_append:=nil; + SEE_string_append_ascii:=nil; + SEE_string_append_int:=nil; + SEE_string_append_unicode:=nil; + SEE_string_fputs:=nil; + SEE_string_cmp:=nil; + SEE_string_cmp_ascii:=nil; + SEE_string_new:=nil; + SEE_string_dup:=nil; + SEE_string_substr:=nil; + SEE_string_concat:=nil; + SEE_string_sprintf:=nil; + SEE_string_sprintf:=nil; + SEE_string_literal:=nil; + SEE_string_fix:=nil; + SEE_string_free:=nil; + SEE_string_toutf8:=nil; + SEE_string_utf8_size:=nil; + _SEE_string_dup_fix:=nil; + SEE_init:=nil; + SEE_regex_engine_list:=nil; + SEE_regex_engine:=nil; + SEE_throw_abort:=nil; + SEE_location_string:=nil; + SEE_throw:=nil; + SEE_version:=nil; +end; + +Function LibseeLoaded : Boolean; + +begin + Result:=hlib<>nilhandle; +end; + +procedure Loadlibsee(Const Alib : string); + +begin + Freelibsee; + hlib:=LoadLibrary(pchar(Alib)); + if hlib=0 then + raise Exception.Create(format('Could not load library: %s',[Alib])); + pointer(_SEE_isnan):=GetProcAddress(hlib,'_SEE_isnan'); + pointer(_SEE_isfinite):=GetProcAddress(hlib,'_SEE_isfinite'); + pointer(_SEE_copysign):=GetProcAddress(hlib,'_SEE_copysign'); + pointer(_SEE_ispinf):=GetProcAddress(hlib,'_SEE_ispinf'); + pointer(_SEE_isninf):=GetProcAddress(hlib,'_SEE_isninf'); + pointer(SEE_ToPrimitive):=GetProcAddress(hlib,'SEE_ToPrimitive'); + pointer(SEE_ToBoolean):=GetProcAddress(hlib,'SEE_ToBoolean'); + pointer(SEE_ToNumber):=GetProcAddress(hlib,'SEE_ToNumber'); + pointer(SEE_ToInteger):=GetProcAddress(hlib,'SEE_ToInteger'); + pointer(SEE_ToString):=GetProcAddress(hlib,'SEE_ToString'); + pointer(SEE_ToObject):=GetProcAddress(hlib,'SEE_ToObject'); + pointer(SEE_ToInt32):=GetProcAddress(hlib,'SEE_ToInt32'); + pointer(SEE_ToUint32):=GetProcAddress(hlib,'SEE_ToUint32'); + pointer(SEE_ToUint16):=GetProcAddress(hlib,'SEE_ToUint16'); + pointer(_SEE_intern_assert):=GetProcAddress(hlib,'_SEE_intern_assert'); + pointer(SEE_intern_ascii):=GetProcAddress(hlib,'SEE_intern_ascii'); + pointer(SEE_function_is_joined):=GetProcAddress(hlib,'SEE_function_is_joined'); + pointer(SEE_Object_new):=GetProcAddress(hlib,'SEE_Object_new'); + pointer(SEE_object_call):=GetProcAddress(hlib,'SEE_object_call'); + pointer(SEE_object_construct):=GetProcAddress(hlib,'SEE_object_construct'); + pointer(SEE_object_instanceof):=GetProcAddress(hlib,'SEE_object_instanceof'); + pointer(SEE_native_get):=GetProcAddress(hlib,'SEE_native_get'); + pointer(SEE_native_put):=GetProcAddress(hlib,'SEE_native_put'); + pointer(SEE_native_canput):=GetProcAddress(hlib,'SEE_native_canput'); + pointer(SEE_native_hasproperty):=GetProcAddress(hlib,'SEE_native_hasproperty'); + pointer(SEE_native_hasownproperty):=GetProcAddress(hlib,'SEE_native_hasownproperty'); + pointer(SEE_native_getownattr):=GetProcAddress(hlib,'SEE_native_getownattr'); + pointer(SEE_native_delete):=GetProcAddress(hlib,'SEE_native_delete'); + pointer(SEE_native_defaultvalue):=GetProcAddress(hlib,'SEE_native_defaultvalue'); + pointer(SEE_native_enumerator):=GetProcAddress(hlib,'SEE_native_enumerator'); + pointer(SEE_native_new):=GetProcAddress(hlib,'SEE_native_new'); + pointer(SEE_native_init):=GetProcAddress(hlib,'SEE_native_init'); + pointer(SEE_cfunction_make):=GetProcAddress(hlib,'SEE_cfunction_make'); + pointer(SEE_parse_args):=GetProcAddress(hlib,'SEE_parse_args'); + pointer(SEE_parse_args):=GetProcAddress(hlib,'SEE_parse_args'); + pointer(SEE_call_args):=GetProcAddress(hlib,'SEE_call_args'); + pointer(SEE_call_args):=GetProcAddress(hlib,'SEE_call_args'); + pointer(SEE_PrintValue):=GetProcAddress(hlib,'SEE_PrintValue'); + pointer(SEE_PrintObject):=GetProcAddress(hlib,'SEE_PrintObject'); + pointer(SEE_PrintString):=GetProcAddress(hlib,'SEE_PrintString'); + pointer(SEE_PrintTraceback):=GetProcAddress(hlib,'SEE_PrintTraceback'); + pointer(SEE_PrintContextTraceback):=GetProcAddress(hlib,'SEE_PrintContextTraceback'); + pointer(SEE_Global_eval):=GetProcAddress(hlib,'SEE_Global_eval'); + pointer(SEE_eval):=GetProcAddress(hlib,'SEE_eval'); + pointer(SEE_Function_new):=GetProcAddress(hlib,'SEE_Function_new'); + pointer(SEE_error__throw_string):=GetProcAddress(hlib,'SEE_error__throw_string'); + pointer(SEE_error__throw):=GetProcAddress(hlib,'SEE_error__throw'); + pointer(SEE_error__throw):=GetProcAddress(hlib,'SEE_error__throw'); + pointer(SEE_error__throw_sys):=GetProcAddress(hlib,'SEE_error__throw_sys'); + pointer(SEE_error__throw_sys):=GetProcAddress(hlib,'SEE_error__throw_sys'); + pointer(SEE_Error_make):=GetProcAddress(hlib,'SEE_Error_make'); + pointer(SEE_error__throw0):=GetProcAddress(hlib,'SEE_error__throw0'); + pointer(SEE_error__throw0):=GetProcAddress(hlib,'SEE_error__throw0'); + pointer(SEE_error__throw_sys0):=GetProcAddress(hlib,'SEE_error__throw_sys0'); + pointer(SEE_error__throw_sys0):=GetProcAddress(hlib,'SEE_error__throw_sys0'); + pointer(SEE_input_file):=GetProcAddress(hlib,'SEE_input_file'); + pointer(SEE_input_string):=GetProcAddress(hlib,'SEE_input_string'); + pointer(SEE_input_utf8):=GetProcAddress(hlib,'SEE_input_utf8'); + pointer(SEE_input_lookahead):=GetProcAddress(hlib,'SEE_input_lookahead'); + pointer(SEE_input_lookahead_copy):=GetProcAddress(hlib,'SEE_input_lookahead_copy'); + pointer(_SEE_intern_init):=GetProcAddress(hlib,'_SEE_intern_init'); + pointer(SEE_intern):=GetProcAddress(hlib,'SEE_intern'); + pointer(SEE_intern_and_free):=GetProcAddress(hlib,'SEE_intern_and_free'); + pointer(SEE_intern_ascii):=GetProcAddress(hlib,'SEE_intern_ascii'); + pointer(SEE_intern_global):=GetProcAddress(hlib,'SEE_intern_global'); + pointer(SEE_interpreter_init):=GetProcAddress(hlib,'SEE_interpreter_init'); + pointer(SEE_interpreter_init_compat):=GetProcAddress(hlib,'SEE_interpreter_init_compat'); + pointer(SEE_interpreter_save_state):=GetProcAddress(hlib,'SEE_interpreter_save_state'); + pointer(SEE_interpreter_restore_state):=GetProcAddress(hlib,'SEE_interpreter_restore_state'); + pointer(SEE_context_eval):=GetProcAddress(hlib,'SEE_context_eval'); + pointer(SEE_malloc):=GetProcAddress(hlib,'SEE_malloc'); + pointer(SEE_malloc_string):=GetProcAddress(hlib,'SEE_malloc_string'); + pointer(SEE_malloc_finalize):=GetProcAddress(hlib,'SEE_malloc_finalize'); + pointer(SEE_free):=GetProcAddress(hlib,'SEE_free'); + pointer(SEE_gcollect):=GetProcAddress(hlib,'SEE_gcollect'); + pointer(_SEE_malloc_debug):=GetProcAddress(hlib,'_SEE_malloc_debug'); + pointer(_SEE_malloc_string_debug):=GetProcAddress(hlib,'_SEE_malloc_string_debug'); + pointer(_SEE_malloc_finalize_debug):=GetProcAddress(hlib,'_SEE_malloc_finalize_debug'); + pointer(_SEE_free_debug):=GetProcAddress(hlib,'_SEE_free_debug'); + pointer(SEE_grow_to):=GetProcAddress(hlib,'SEE_grow_to'); + pointer(_SEE_grow_to_debug):=GetProcAddress(hlib,'_SEE_grow_to_debug'); + pointer(SEE_module_add):=GetProcAddress(hlib,'SEE_module_add'); + pointer(SEE_no_get):=GetProcAddress(hlib,'SEE_no_get'); + pointer(SEE_no_put):=GetProcAddress(hlib,'SEE_no_put'); + pointer(SEE_no_canput):=GetProcAddress(hlib,'SEE_no_canput'); + pointer(SEE_no_hasproperty):=GetProcAddress(hlib,'SEE_no_hasproperty'); + pointer(SEE_no_delete):=GetProcAddress(hlib,'SEE_no_delete'); + pointer(SEE_no_defaultvalue):=GetProcAddress(hlib,'SEE_no_defaultvalue'); + pointer(SEE_no_enumerator):=GetProcAddress(hlib,'SEE_no_enumerator'); + pointer(SEE_string_addch):=GetProcAddress(hlib,'SEE_string_addch'); + pointer(SEE_string_append):=GetProcAddress(hlib,'SEE_string_append'); + pointer(SEE_string_append_ascii):=GetProcAddress(hlib,'SEE_string_append_ascii'); + pointer(SEE_string_append_int):=GetProcAddress(hlib,'SEE_string_append_int'); + pointer(SEE_string_append_unicode):=GetProcAddress(hlib,'SEE_string_append_unicode'); + pointer(SEE_string_fputs):=GetProcAddress(hlib,'SEE_string_fputs'); + pointer(SEE_string_cmp):=GetProcAddress(hlib,'SEE_string_cmp'); + pointer(SEE_string_cmp_ascii):=GetProcAddress(hlib,'SEE_string_cmp_ascii'); + pointer(SEE_string_new):=GetProcAddress(hlib,'SEE_string_new'); + pointer(SEE_string_dup):=GetProcAddress(hlib,'SEE_string_dup'); + pointer(SEE_string_substr):=GetProcAddress(hlib,'SEE_string_substr'); + pointer(SEE_string_concat):=GetProcAddress(hlib,'SEE_string_concat'); + pointer(SEE_string_sprintf):=GetProcAddress(hlib,'SEE_string_sprintf'); + pointer(SEE_string_sprintf):=GetProcAddress(hlib,'SEE_string_sprintf'); + pointer(SEE_string_literal):=GetProcAddress(hlib,'SEE_string_literal'); + pointer(SEE_string_fix):=GetProcAddress(hlib,'SEE_string_fix'); + pointer(SEE_string_free):=GetProcAddress(hlib,'SEE_string_free'); + pointer(SEE_string_toutf8):=GetProcAddress(hlib,'SEE_string_toutf8'); + pointer(SEE_string_utf8_size):=GetProcAddress(hlib,'SEE_string_utf8_size'); + pointer(_SEE_string_dup_fix):=GetProcAddress(hlib,'_SEE_string_dup_fix'); + pointer(SEE_init):=GetProcAddress(hlib,'SEE_init'); + pointer(SEE_regex_engine_list):=GetProcAddress(hlib,'SEE_regex_engine_list'); + pointer(SEE_regex_engine):=GetProcAddress(hlib,'SEE_regex_engine'); + pointer(SEE_throw_abort):=GetProcAddress(hlib,'SEE_throw_abort'); + pointer(SEE_location_string):=GetProcAddress(hlib,'SEE_location_string'); + pointer(SEE_throw):=GetProcAddress(hlib,'SEE_throw'); + pointer(SEE_version):=GetProcAddress(hlib,'SEE_version'); +end; + + +initialization + try + Loadlibsee(LibSeeLibraryName); + except + // Ignore errors. + end; + +finalization + Freelibsee; +end. diff --git a/packages/libsee/src/libseewrap.c b/packages/libsee/src/libseewrap.c new file mode 100644 index 0000000000..b9ef27d0e4 --- /dev/null +++ b/packages/libsee/src/libseewrap.c @@ -0,0 +1,189 @@ +#include + + +int SEE_help_Global_eval(interp, input, res) + struct SEE_interpreter *interp; + struct SEE_input *input; + struct SEE_value *res; +{ + SEE_try_context_t c; + + + SEE_TRY(interp,c) { + SEE_Global_eval (interp, input, res); + } + if (SEE_CAUGHT(c)) { + SEE_VALUE_COPY(res, SEE_CAUGHT(c)); + return 1; + } else + return 0; +} + +struct SEE_value * SEE_help_CAUGHT (c) +struct SEE_try_context * c; +{ + return (SEE_CAUGHT(*c)); +} + +void SEE_help_THROW (interp,v) + struct SEE_interpreter *interp; + struct SEE_value * v; +{ + SEE_THROW(interp,v); +} + +void SEE_help_RETHROW (interp,c) +struct SEE_interpreter *interp; +struct SEE_try_context * c; +{ + SEE_RETHROW(interp,* c); +} + +void SEE_help_DEFAULT_CATCH (interp,c) + struct SEE_interpreter *interp; + struct SEE_try_context * c; +{ + SEE_DEFAULT_CATCH(interp,* c); +} + +struct SEE_interpreter * new_SEE_interpreter() +{ + struct SEE_interpreter *interp; + + interp = SEE_NEW(NULL, struct SEE_interpreter); + SEE_interpreter_init(interp); + return interp; +} + +struct SEE_value * new_SEE_value () +{ + struct SEE_value * p; + p = SEE_NEW(NULL, struct SEE_value); + return p; +} + +struct SEE_objectclass * new_SEE_objectclass () +{ + struct SEE_objectclass * p; + p = SEE_NEW(NULL, struct SEE_objectclass); + return p; +} + +struct SEE_object * new_SEE_object () +{ + struct SEE_object * p; + p = SEE_NEW(NULL, struct SEE_object); + return p; +} + +struct SEE_enumclass * new_SEE_enumclass () +{ + struct SEE_enumclass * p; + p = SEE_NEW(NULL, struct SEE_enumclass); + return p; +} + +struct SEE_enum * new_SEE_enum () +{ + struct SEE_enum * p; + p = SEE_NEW(NULL, struct SEE_enum); + return p; +} + +struct SEE_native * new_SEE_native () +{ + struct SEE_native * p; + p = SEE_NEW(NULL, struct SEE_native); + return p; +} + +struct SEE_scope * new_SEE_scope () +{ + struct SEE_scope * p; + p = SEE_NEW(NULL, struct SEE_scope); + return p; +} + +struct SEE_inputclass * new_SEE_inputclass () +{ + struct SEE_inputclass * p; + p = SEE_NEW(NULL, struct SEE_inputclass); + return p; +} + +struct SEE_input * new_SEE_input () +{ + struct SEE_input * p; + p = SEE_NEW(NULL, struct SEE_input); + return p; +} + +struct SEE_traceback * new_SEE_traceback () +{ + struct SEE_traceback * p; + p = SEE_NEW(NULL, struct SEE_traceback); + return p; +} + +struct SEE_context * new_SEE_context () +{ + struct SEE_context * p; + p = SEE_NEW(NULL, struct SEE_context); + return p; +} + +struct SEE_growable * new_SEE_growable () +{ + struct SEE_growable * p; + p = SEE_NEW(NULL, struct SEE_growable); + return p; +} + +struct SEE_module * new_SEE_module () +{ + struct SEE_module * p; + p = SEE_NEW(NULL, struct SEE_module); + return p; +} + +struct SEE_string * new_SEE_string () +{ + struct SEE_string * p; + p = SEE_NEW(NULL, struct SEE_string); + return p; +} + +struct SEE_stringclass * new_SEE_stringclass () +{ + struct SEE_stringclass * p; + p = SEE_NEW(NULL, struct SEE_stringclass); + return p; +} + +struct SEE_system * new_SEE_system () +{ + struct SEE_system * p; + p = SEE_NEW(NULL, struct SEE_system); + return p; +} + +struct SEE_throw_location * new_SEE_throw_location () +{ + struct SEE_throw_location * p; + p = SEE_NEW(NULL, struct SEE_throw_location); + return p; +} + +struct SEE_try_context * new_SEE_try_context () +{ + struct SEE_try_context * p; + p = SEE_NEW(NULL, struct SEE_try_context); + return p; +} + +void free_SEE_struct(p) +void * p; +{ + free(p); +} +