mirror of
git://projects.qi-hardware.com/openwrt-packages.git
synced 2024-09-28 23:48:32 +03:00
Major overhaul and cleanup. Support for .ubi image file installations.
Only compile&install a minimum host Gforth for bootstrapping the target Gforth, removing strange emacs-dependencies that cropped up earlier. Image file can now be built on the nanonote using 'gforth-update-image' command. Also, Gforth is now run through a wrapper that calls 'gforth-update-image' automatically, if necessary. Also first attempts at supporting libcc C-interface libraries pre-compiled on the host. Tested to compile on amd64 and i386.
This commit is contained in:
David Kühling
parent
77694b3b61
commit
4bfce3b6e2
149
gforth/Makefile
149
gforth/Makefile
@ -16,12 +16,11 @@
|
||||
include $(TOPDIR)/rules.mk
|
||||
|
||||
PKG_NAME:=gforth
|
||||
PKG_SNAPSHOT_DATE=2010913
|
||||
PKG_SNAPSHOT_DATE=20100918
|
||||
PKG_VERSION=0.7.0-$(PKG_SNAPSHOT_DATE)
|
||||
PKG_RELEASE:=4
|
||||
PKG_RELEASE:=1
|
||||
|
||||
|
||||
PKG_BUILD_DEPENDS:= gforth/host libltdl/host
|
||||
PKG_BUILD_DEPENDS:= gforth/host libltdl/host libtool/host libffi
|
||||
PKG_BUILD_DIR:=$(BUILD_DIR)/$(PKG_NAME)-$(PKG_VERSION)
|
||||
PKG_FIXUP:=libtool
|
||||
|
||||
@ -30,7 +29,7 @@ PKG_SOURCE_URL:=\
|
||||
http://user.cs.tu-berlin.de/~dvdkhlng/ \
|
||||
http://mosquito.dyndns.tv/~spock/
|
||||
#PKG_SOURCE_URL:= file://~/forth/gforth/
|
||||
PKG_MD5SUM:=4b52f42aac9c78121dedeca7aa998b37
|
||||
PKG_MD5SUM:=f912b58c2434a9e1df7d4f8db75636da
|
||||
|
||||
# Alternate download #1 via CVS: this doesn't work, as CVS is missing the
|
||||
# kernel.fi images needed for boot-strapping :(
|
||||
@ -56,34 +55,39 @@ define Package/gforth/description
|
||||
language.
|
||||
endef
|
||||
|
||||
HOST_CONFIGURE_VARS += LTDL_LIBRARY_PATH=$(STAGING_DIR_HOST)/lib
|
||||
|
||||
## Engine's dispatch would be crippled when compiling with -Os, also dynamic
|
||||
## superinstructions don't seem to work in that case
|
||||
EXTRA_CFLAGS += -O2
|
||||
|
||||
## The host-GForth uses -ltdl to link against the staging dir version of
|
||||
## libltdl. However, when the host-GForth runs, it won't find that library,
|
||||
## as no library path is encoded into the ltdl dependency (why?). So here we
|
||||
## override LD_LIBRARY_PATH for all the build steps that might run the
|
||||
## host-GForth.
|
||||
HOST_CONFIGURE_VARS += LTDL_LIBRARY_PATH=$(STAGING_DIR_HOST)/lib \
|
||||
no_dynamic_default=1 \
|
||||
LD_LIBRARY_PATH=$(STAGING_DIR_HOST)/lib
|
||||
|
||||
## Engine's dispatch would be crippled when compiling with -Os, also dynamic
|
||||
## superinstructions don't seem to work in that case
|
||||
EXTRA_CFLAGS += -O2
|
||||
|
||||
define Host/Configure
|
||||
export LD_LIBRARY_PATH=$(STAGING_DIR_HOST)/lib; \
|
||||
$(call Host/Configure/Default)
|
||||
endef
|
||||
|
||||
## On the host, we only compile and install minimum number of gforth
|
||||
## components
|
||||
define Host/Compile
|
||||
export LD_LIBRARY_PATH=$(STAGING_DIR_HOST)/lib; \
|
||||
$(call Host/Compile/Default)
|
||||
$(call Host/Compile/Default, gforth gforth.fi)
|
||||
endef
|
||||
|
||||
define Host/Install
|
||||
export LD_LIBRARY_PATH=$(STAGING_DIR_HOST)/lib; \
|
||||
$(call Host/Install/Default)
|
||||
$(INSTALL_DIR) $(STAGING_DIR_HOST)/bin
|
||||
$(INSTALL_DIR) $(STAGING_DIR_HOST)/lib
|
||||
$(INSTALL_BIN) $(HOST_BUILD_DIR)/gforth $(STAGING_DIR_HOST)/bin/
|
||||
$(INSTALL_DATA) $(HOST_BUILD_DIR)/gforth.fi $(STAGING_DIR_HOST)/lib/
|
||||
endef
|
||||
|
||||
## Configuration of the target gforth
|
||||
## Configuration of the target gforth (see also gforth-update-image.in!)
|
||||
FORTHSIZES=--dictionary-size=1M \
|
||||
--data-stack-size=16k \
|
||||
--fp-stack-size=16k \
|
||||
@ -91,8 +95,10 @@ FORTHSIZES=--dictionary-size=1M \
|
||||
--locals-stack-size=16k
|
||||
|
||||
CONFIGURE_VARS += FORTHSIZES="$(FORTHSIZES)"
|
||||
|
||||
PKG_BUILD_LIBCC_DIR = $(PKG_BUILD_DIR)/lib/gforth/$(PKG_VERSION)/libcc-named/
|
||||
CROSS_PREFORTH = $(PKG_BUILD_DIR)/preforth
|
||||
LIBCC_BUILD_SRC = cstr.fs unix/socket.fs
|
||||
MAKE_VARS += libccdir=$(GFORTH_LIBCC_DIR)
|
||||
|
||||
## Here we call configure, then patch the cross-GForth source tree to replace
|
||||
## the 'preforth' script with a script that calls our host-compiled GForth.
|
||||
@ -101,16 +107,30 @@ CROSS_PREFORTH = $(PKG_BUILD_DIR)/preforth
|
||||
## assembler/disassembler for the target architecture.
|
||||
define Build/Configure
|
||||
$(call Build/Configure/Default,)
|
||||
echo "@kernel_fi@" > $(PKG_BUILD_DIR)/kernel_fi.in
|
||||
cd $(PKG_BUILD_DIR) && ./config.status --file kernel_fi
|
||||
echo "@asm_fs@ @disasm_fs@" > $(PKG_BUILD_DIR)/asm_fs.in
|
||||
cd $(PKG_BUILD_DIR) && ./config.status --file asm_fs
|
||||
cp ./files/gforth-update-image.in ./files/gforth-wrapper.in \
|
||||
$(PKG_BUILD_DIR)/
|
||||
cd $(PKG_BUILD_DIR) && ./config.status --file gforth-update-image \
|
||||
&& ./config.status --file gforth-wrapper
|
||||
echo "#!/bin/sh" > $(CROSS_PREFORTH)
|
||||
echo "export LD_LIBRARY_PATH=$(STAGING_DIR_HOST)/lib;" >> $(CROSS_PREFORTH)
|
||||
echo '$(STAGING_DIR_HOST)/bin/gforth -i $(STAGING_DIR_HOST)/lib/gforth/$(PKG_VERSION)/gforth.fi "$$$$@"' >> $(CROSS_PREFORTH)
|
||||
echo '$(STAGING_DIR_HOST)/bin/gforth -i $(STAGING_DIR_HOST)/lib/gforth.fi "$$$$@"' >> $(CROSS_PREFORTH)
|
||||
chmod a+x $(PKG_BUILD_DIR)/preforth
|
||||
endef
|
||||
|
||||
## Forth code snippet used for pre-compiling Gforth's libcc based C-interface
|
||||
## wrappers on the host, so they can be used on the target. Use $(call) to
|
||||
## substitute $(1) with a list of Gforth's interface definition files (such as
|
||||
## 'cstr.fs' etc).
|
||||
define GforthLibccCompile
|
||||
s" $(PKG_BUILD_LIBCC_DIR)" libcc-named-dir-v 2! \
|
||||
libcc-path clear-path \
|
||||
libcc-named-dir libcc-path also-path \
|
||||
:noname 2drop s" $(GFORTH_LIBCC_DIR)" ; is replace-rpath \
|
||||
: end-c-library try end-c-library endtry-iferror then ; \
|
||||
$(1:%=include $(PKG_BUILD_DIR)/%) \
|
||||
bye
|
||||
endef
|
||||
|
||||
## Compilation is pretty manual to only build the parts we need. By default
|
||||
## the GForth Makefile attempts to auto-tune by recursively calling itself for
|
||||
## compilation, then running the GForth binary through unit-tests. This won't
|
||||
@ -121,16 +141,25 @@ endef
|
||||
## 'long long' in the Gforth Makefile, not the configure script?
|
||||
## Todo: develop a clean upstream patch to configure/Makefile
|
||||
define Build/Compile
|
||||
$(MAKE) -C $(PKG_BUILD_DIR) kernel/version.fs gforth-ditc \
|
||||
$(call Build/Compile/Default,kernel/version.fs gforth-ditc \
|
||||
engine/prim-fast.i engine/prim_lab-fast.i engine/prim_names-fast.i \
|
||||
engine/prim_superend-fast.i engine/profile-fast.i \
|
||||
engine/prim_num-fast.i engine/prim_grp-fast.i \
|
||||
engine/costs-fast.i engine/super2-fast.i
|
||||
$(MAKE) -C $(PKG_BUILD_DIR)/engine gforth-fast-ll-reg gforth-ll-reg \
|
||||
OPT=-ll-reg OPTDEFINES="-DFORCE_LL -DFORCE_REG" OPTOBJECTS=
|
||||
cd $(PKG_BUILD_DIR) && \
|
||||
cp engine/gforth-ll-reg ./gforth && \
|
||||
cp engine/gforth-fast-ll-reg ./gforth-fast
|
||||
engine/costs-fast.i engine/super2-fast.i)
|
||||
$(call Build/Compile/Default, -C $(PKG_BUILD_DIR)/engine \
|
||||
gforth-fast-ll-reg gforth-ll-reg \
|
||||
OPT=-ll-reg OPTDEFINES="-DFORCE_LL -DFORCE_REG" OPTOBJECTS=)
|
||||
|
||||
cp $(PKG_BUILD_DIR)/engine/gforth-ll-reg \
|
||||
$(PKG_BUILD_DIR)/gforth
|
||||
cp $(PKG_BUILD_DIR)/engine/gforth-fast-ll-reg \
|
||||
$(PKG_BUILD_DIR)/gforth-fast
|
||||
|
||||
rm -rf $(PKG_BUILD_DIR)/lib/gforth/$(PKG_VERSION)/libcc-named/
|
||||
export includedir=$(PKG_BUILD_DIR)/include; \
|
||||
$(PKG_BUILD_DIR)/preforth $(PKG_BUILD_DIR)/envos.fs \
|
||||
$(PKG_BUILD_DIR)/libcc.fs \
|
||||
-e '$(call GforthLibccCompile,$(LIBCC_BUILD_SRC))'
|
||||
endef
|
||||
|
||||
##
|
||||
@ -220,42 +249,68 @@ GFORTH_SRC = $(GFORTH_FI_SRC) $(LIBCC_DIST_SRC) \
|
||||
add.fs lib.fs oldlib.fs sieve.fs \
|
||||
endtry-iferror.fs recover-endtry.fs
|
||||
|
||||
GFORTH_BIN = gforth gforth-fast gforthmi
|
||||
|
||||
GFORTH_SHARE_DIR = /usr/share/gforth/$(PKG_VERSION)
|
||||
GFORTH_LIB_DIR = /usr/lib/gforth/$(PKG_VERSION)
|
||||
GFORTH_LIBCC_DIR = $(GFORTH_LIB_DIR)/libcc-named
|
||||
GFORTH_BIN_DIR = /usr/bin
|
||||
GFORTH_WRAPPED_BIN = gforth gforth-fast
|
||||
|
||||
## Select files for package. Note how we rename the GForth kernel image to
|
||||
## 'kernel.fi' here, so that 'postinst' can refer to it without depending on
|
||||
## architecture-specific naming.
|
||||
define Package/gforth/install
|
||||
# create directories
|
||||
$(INSTALL_DIR) $(1)/$(GFORTH_BIN_DIR)
|
||||
$(INSTALL_DIR) $(1)/$(GFORTH_SHARE_DIR)
|
||||
$(INSTALL_DIR) $(1)/$(GFORTH_LIB_DIR)
|
||||
$(INSTALL_DIR) $(1)/$(GFORTH_LIBCC_DIR)
|
||||
$(INSTALL_DIR) $(1)/$(GFORTH_SHARE_DIR)/../site-forth
|
||||
$(INSTALL_DATA) $(PKG_BUILD_DIR)/$$$$(cat $(PKG_BUILD_DIR)/kernel_fi) $(1)/$(GFORTH_SHARE_DIR)/kernel.fi
|
||||
|
||||
# install low-level gforth binaries (for image generation)
|
||||
$(INSTALL_BIN) $(PKG_BUILD_DIR)/gforth-ditc $(1)/$(GFORTH_LIB_DIR)/
|
||||
$(INSTALL_DATA) $(PKG_BUILD_DIR)/siteinit.fs $(1)/$(GFORTH_SHARE_DIR)/../site-forth/
|
||||
$(call pkg_install_bin,$(GFORTH_BIN),$(PKG_BUILD_DIR),$(1)/$(GFORTH_BIN_DIR))
|
||||
$(call pkg_install_files,$(GFORTH_SRC),$(PKG_BUILD_DIR),$(1)/$(GFORTH_SHARE_DIR))
|
||||
$(INSTALL_BIN) $(PKG_BUILD_DIR)/gforthmi $(1)/$(GFORTH_BIN_DIR)/
|
||||
|
||||
# Install (empty) site-init script
|
||||
$(INSTALL_DATA) $(PKG_BUILD_DIR)/siteinit.fs \
|
||||
$(1)/$(GFORTH_SHARE_DIR)/../site-forth/
|
||||
|
||||
# install the correct Gforth kernel image
|
||||
echo "$(INSTALL_DATA) $(PKG_BUILD_DIR)/@kernel_fi@ $(1)/$(GFORTH_SHARE_DIR)/" > $(PKG_BUILD_DIR)/install-kernel.sh.in
|
||||
$(PKG_BUILD_DIR)/config.status --file $(PKG_BUILD_DIR)/install-kernel.sh
|
||||
. $(PKG_BUILD_DIR)/install-kernel.sh
|
||||
|
||||
# install updating script and wrap gforth interpreter binaries so that
|
||||
# image is generated on first attempt to run the interpreter.
|
||||
$(call pkg_install_bin, \
|
||||
gforth-wrapper gforth-update-image, \
|
||||
$(PKG_BUILD_DIR),$(1)/$(GFORTH_BIN_DIR))
|
||||
for i in $(GFORTH_WRAPPED_BIN); do \
|
||||
ln -sf gforth-wrapper $(1)/$(GFORTH_BIN_DIR)/$$$$i; \
|
||||
$(INSTALL_BIN) $(PKG_BUILD_DIR)/$$$$i \
|
||||
$(1)/$(GFORTH_BIN_DIR)/$$$$i.real; \
|
||||
done
|
||||
|
||||
# install Gforth sources (for generating gforth.fi)
|
||||
$(call pkg_install_files, \
|
||||
$(GFORTH_SRC), \
|
||||
$(PKG_BUILD_DIR), \
|
||||
$(1)/$(GFORTH_SHARE_DIR))
|
||||
|
||||
# install pre-generated C-interface wrappers (libcc)
|
||||
-for i in $(LIBCC_BUILD_SRC); do \
|
||||
libtool --mode=install $(INSTALL_BIN) \
|
||||
$(PKG_BUILD_LIBCC_DIR)/`basename $$$$i .fs`.la \
|
||||
$(1)/$(GFORTH_LIBCC_DIR)/; \
|
||||
done
|
||||
-libtool --finish $(1)/$(GFORTH_LIBCC_DIR)
|
||||
-rm -f $(1)/$(GFORTH_LIBCC_DIR)/*.a
|
||||
endef
|
||||
|
||||
FORTHKFLAGS= --die-on-signal -i kernel.fi
|
||||
|
||||
## make sure this is never evaluated before the configure step ran, else
|
||||
## $(shell) below is going to fail! We use the $(shell) to use the correct
|
||||
## Gforth assembler implementation that was chosen by gforth's configure
|
||||
## script, when building the forth image.
|
||||
STARTUP = exboot.fs startup.fs $(shell cat $(PKG_BUILD_DIR)/asm_fs)
|
||||
|
||||
## Directly after installation load the source once and generate a
|
||||
## corresponding interpreter image. GForth needs that for quick startup.
|
||||
## Directly after installation generate updated interpreter image from
|
||||
## installed source code.
|
||||
define Package/gforth/postinst
|
||||
#! /bin/sh
|
||||
echo "Creating GForth interpreter image..."
|
||||
export GFORTH="$(GFORTH_BIN_DIR)/gforth $(FORTHSIZES) $(FORTHKFLAGS) $(STARTUP)"
|
||||
gforthmi $(GFORTH_LIB_DIR)/gforth.fi $(FORTHSIZES) $(FORTHKFLAGS) $(STARTUP)
|
||||
$(GFORTH_BIN_DIR)/gforth-update-image
|
||||
endef
|
||||
|
||||
define Package/gforth/prerm
|
||||
|
||||
60
gforth/files/gforth-update-image.in
Normal file
60
gforth/files/gforth-update-image.in
Normal file
@ -0,0 +1,60 @@
|
||||
#! /bin/sh
|
||||
#
|
||||
# Part of gforth package for OpenWrt: update Gforth pre-compiled interpreter
|
||||
# image from installed sources
|
||||
#
|
||||
# Copyright (C) 2010 David Kuehling <dvdkhlng TA gmx TOD de>
|
||||
#
|
||||
# License: GPLv3+, NO WARRANTY
|
||||
#
|
||||
|
||||
# Rationale for choice of stack sizes, see Gforth Manual chapter 13.6
|
||||
FORTHSIZES="--dictionary-size=1M \
|
||||
--data-stack-size=16k \
|
||||
--fp-stack-size=15872 \
|
||||
--return-stack-size=15360 \
|
||||
--locals-stack-size=14848"
|
||||
|
||||
STARTUP="exboot.fs startup.fs @asm_fs@ @disasm_fs@"
|
||||
|
||||
FORTHKFLAGS="--die-on-signal -i @kernel_fi@"
|
||||
|
||||
GFORTH_SHARE_DIR=/usr/share/gforth/@PACKAGE_VERSION@
|
||||
GFORTH_LIB_DIR=/usr/lib/gforth/@PACKAGE_VERSION@
|
||||
GFORTH_BIN_DIR=/usr/bin
|
||||
|
||||
GFORTH_FI=${GFORTH_LIB_DIR}/gforth.fi
|
||||
|
||||
echo "Creating Gforth interpreter image..."
|
||||
|
||||
mkdir -p $GFORTH_LIB_DIR
|
||||
|
||||
check_writable(){
|
||||
if [ -f $GFORTH_FI ] && ! [ -w $GFORTH_FI ]; then
|
||||
return 1
|
||||
elif ! [ -w $GFORTH_LIB_DIR ]; then
|
||||
return 1
|
||||
fi
|
||||
|
||||
return 0
|
||||
}
|
||||
|
||||
if ! check_writable; then
|
||||
cat <<EOF
|
||||
You do not have permissions to create/modify the
|
||||
image file:
|
||||
$GFORTH_FI
|
||||
|
||||
Are you not root?
|
||||
EOF
|
||||
exec false
|
||||
fi
|
||||
|
||||
export libccdir=${GFORTH_LIB_DIR}/libcc-named
|
||||
export GFORTH="/usr/bin/gforth.real ${FORTHSIZES} ${FORTHKFLAGS} ${STARTUP}"
|
||||
gforthmi ${GFORTH_FI}.new ${FORTHSIZES} ${FORTHKFLAGS} ${STARTUP} &&
|
||||
mv -f ${GFORTH_FI}.new ${GFORTH_FI}
|
||||
exit $?
|
||||
|
||||
|
||||
|
||||
50
gforth/files/gforth-wrapper.in
Normal file
50
gforth/files/gforth-wrapper.in
Normal file
@ -0,0 +1,50 @@
|
||||
#! /bin/sh
|
||||
#
|
||||
# Part of gforth package for OpenWrt: Wrapper to call check for and create
|
||||
# Gforth image before running executable.
|
||||
#
|
||||
# Copyright (C) 2010 David Kuehling <dvdkhlng TA gmx TOD de>
|
||||
#
|
||||
# License: GPLv3+, NO WARRANTY
|
||||
#
|
||||
dirname=$(dirname "$0")
|
||||
binary=$dirname/$(basename "$0").real
|
||||
|
||||
GFORTH_LIB_DIR=/usr/lib/gforth/@PACKAGE_VERSION@
|
||||
GFORTH_FI=$GFORTH_LIB_DIR/gforth.fi
|
||||
|
||||
# try to (re)generate the gforth.fi image file
|
||||
do_update(){
|
||||
$dirname/gforth-update-image &> /dev/null
|
||||
status=$?
|
||||
[ $status = 0 ] && return 0
|
||||
|
||||
cat<<EOF
|
||||
Gforth image $GFORTH_FI
|
||||
is missing and regeneration failed:
|
||||
|
||||
'$dirname/gforth-update-image'
|
||||
aborted with exit code $status.
|
||||
|
||||
Try to re-run 'gforth-update-image' manually to
|
||||
see what is wrong. Also please report this
|
||||
problem to <discussion@lists.qi-hardware.com>
|
||||
and/or <dvdkhlng ta gmx tod de>.
|
||||
|
||||
As a workaround, you can run a kernel-only Gforth
|
||||
(with reduced functionality), using:
|
||||
|
||||
$binary -i @kernel_fi@
|
||||
EOF
|
||||
|
||||
exec false
|
||||
}
|
||||
|
||||
if ! [ -f "$GFORTH_FI" ]; then
|
||||
do_update
|
||||
fi
|
||||
|
||||
# if everything is ok, we'll come here and run the actual Gforth executable
|
||||
# (gforth.real, gforth-fast.real etc.)
|
||||
exec "$binary" "$@"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user