From 65c50a879be37fad5429a59d2a18bb6b43aa83a7 Mon Sep 17 00:00:00 2001
From: Fredrik Fornwall <fredrik@fornwall.net>
Date: Wed, 31 Jul 2019 22:48:31 +0200
Subject: [PATCH] picolisp: Update from 19.7.6 to 19.7.31

---
 packages/picolisp/build.sh                      |  4 ++--
 .../src64-sys-arm64.android.defs.l.patch        | 17 +++++++++++++++++
 2 files changed, 19 insertions(+), 2 deletions(-)
 create mode 100644 packages/picolisp/src64-sys-arm64.android.defs.l.patch

diff --git a/packages/picolisp/build.sh b/packages/picolisp/build.sh
index b93557f35..f208cb6b7 100644
--- a/packages/picolisp/build.sh
+++ b/packages/picolisp/build.sh
@@ -2,8 +2,8 @@ TERMUX_PKG_HOMEPAGE=https://picolisp.com
 TERMUX_PKG_DESCRIPTION="Lisp interpreter and application server framework"
 TERMUX_PKG_LICENSE="MIT"
 TERMUX_PKG_DEPENDS="libcrypt, openssl"
-TERMUX_PKG_VERSION=19.7.6
-TERMUX_PKG_SHA256=0e665aad4f58d79dd1cab44cb16eaf2475116efa0b0f1ac9e7348c746b02d1f7
+TERMUX_PKG_VERSION=19.7.31
+TERMUX_PKG_SHA256=3d890d1d808bc48e545d14d3b0550b472d767bec0ba9e49861ac55c1427f815d
 # We use our bintray mirror since old version snapshots are not kept on main site.
 TERMUX_PKG_SRCURL=https://dl.bintray.com/termux/upstream/picolisp_${TERMUX_PKG_VERSION}.tar.gz
 TERMUX_PKG_BUILD_IN_SRC=true
diff --git a/packages/picolisp/src64-sys-arm64.android.defs.l.patch b/packages/picolisp/src64-sys-arm64.android.defs.l.patch
new file mode 100644
index 000000000..1c01480a6
--- /dev/null
+++ b/packages/picolisp/src64-sys-arm64.android.defs.l.patch
@@ -0,0 +1,17 @@
+diff -u -r ../picoLisp/src64/sys/arm64.android.defs.l ./src64/sys/arm64.android.defs.l
+--- ../picoLisp/src64/sys/arm64.android.defs.l	2019-07-29 15:09:55.000000000 +0000
++++ ./src64/sys/arm64.android.defs.l	2019-07-31 20:45:20.164309870 +0000
+@@ -26,9 +26,10 @@
+ (equ BUFSIZ 1024)
+ (equ PIPE_BUF 4096)
+ 
+-(push '*Globals 'stdin)
+-(push '*Globals 'stdout)
+-(push '*Globals 'stderr)
++(push '*Globals '__sF)	(push '*Globals 'stdin)
++(equ stdin  '__sF)	(push '*Globals 'stdout)
++(equ stdout '(& (__sF 152)))	(push '*Globals 'stderr)
++(equ stderr '(& (__sF 304)))	
+ 
+ (equ GETCWDLEN 0)
+