new package: gauche
This commit is contained in:
Tee KOBAYASHI
Leonid Pliushch
parent
e6b22271eb
commit
4c31e6792b
|
|
@ -0,0 +1,47 @@
|
|||
TERMUX_PKG_HOMEPAGE=https://practical-scheme.net/gauche/
|
||||
TERMUX_PKG_DESCRIPTION="An R7RS Scheme implementation developed to be a handy script interpreter"
|
||||
TERMUX_PKG_LICENSE="BSD 3-Clause"
|
||||
TERMUX_PKG_MAINTAINER="@termux"
|
||||
TERMUX_PKG_VERSION=0.9.10
|
||||
TERMUX_PKG_SRCURL=https://github.com/shirok/Gauche/releases/download/release${TERMUX_PKG_VERSION//./_}/Gauche-${TERMUX_PKG_VERSION}.tgz
|
||||
TERMUX_PKG_SHA256=0f39df1daec56680b542211b085179cb22e8220405dae15d9d745c56a63a2532
|
||||
TERMUX_PKG_DEPENDS="binutils, ca-certificates, gdbm, libcrypt, libiconv, mbedtls, zlib"
|
||||
TERMUX_PKG_HOSTBUILD=true
|
||||
|
||||
TERMUX_PKG_EXTRA_CONFIGURE_ARGS="
|
||||
--with-ca-bundle=$TERMUX_PREFIX/etc/tls/cert.pem
|
||||
--with-libatomic-ops=no
|
||||
--with-slib=$TERMUX_PREFIX/share/slib
|
||||
"
|
||||
# 0.9.10 does not support MbedTLS 3.0: remove --with-tls=... when updating
|
||||
TERMUX_PKG_EXTRA_CONFIGURE_ARGS+=" --with-tls=axtls"
|
||||
|
||||
termux_step_host_build() {
|
||||
_PREFIX_FOR_BUILD=$TERMUX_PKG_HOSTBUILD_DIR/prefix
|
||||
mkdir -p $_PREFIX_FOR_BUILD
|
||||
"$TERMUX_PKG_SRCDIR"/configure --prefix=$_PREFIX_FOR_BUILD
|
||||
make -j $TERMUX_MAKE_PROCESSES
|
||||
make install
|
||||
}
|
||||
|
||||
termux_step_pre_configure() {
|
||||
cp $TERMUX_PKG_BUILDER_DIR/fake-ndbm-makedb.c "$TERMUX_PKG_SRCDIR"/ext/dbm/
|
||||
|
||||
export BUILD_GOSH=$_PREFIX_FOR_BUILD/bin/gosh
|
||||
export PATH=$PATH:$_PREFIX_FOR_BUILD/bin
|
||||
|
||||
_NEED_DUMMY_LIBPTHREAD_A=
|
||||
_LIBPTHREAD_A=$TERMUX_PREFIX/lib/libpthread.a
|
||||
if [ ! -e $_LIBPTHREAD_A ]; then
|
||||
_NEED_DUMMY_LIBPTHREAD_A=true
|
||||
echo '!<arch>' > $_LIBPTHREAD_A
|
||||
fi
|
||||
|
||||
autoreconf -fi
|
||||
}
|
||||
|
||||
termux_step_post_make_install() {
|
||||
if [ $_NEED_DUMMY_LIBPTHREAD_A ]; then
|
||||
rm -f $_LIBPTHREAD_A
|
||||
fi
|
||||
}
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
--- a/configure.ac
|
||||
+++ b/configure.ac
|
||||
@@ -770,6 +770,7 @@
|
||||
SHLIB_MAIN_LDFLAGS=""
|
||||
SHLIB_OK=unknown
|
||||
])
|
||||
+AS_CASE([$host], [*-android*], [ext_use_libgauche=yes])
|
||||
AS_IF([test -z "$SHLIB_DYLIB_LDFLAGS"],
|
||||
[SHLIB_DYLIB_LDFLAGS=$SHLIB_SO_LDFLAGS])
|
||||
AS_IF([test -z "$SHLIB_DYLIB_SUFFIX"],
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
--- a/ext/Makefile.ext.in
|
||||
+++ b/ext/Makefile.ext.in
|
||||
@@ -22,7 +22,7 @@
|
||||
LIBS = $(XLIBS) @LIBS@
|
||||
CFLAGS = @CFLAGS@ @SHLIB_SO_CFLAGS@ $(XCFLAGS)
|
||||
CPPFLAGS = @CPPFLAGS@ $(XCPPFLAGS)
|
||||
-LDFLAGS = $(LOCAL_LFLAGS) $(XLDFLAGS) @SHLIB_SO_LDFLAGS@
|
||||
+LDFLAGS = $(LOCAL_LFLAGS) $(XLDFLAGS) @LDFLAGS@ @SHLIB_SO_LDFLAGS@
|
||||
BUILD_GOSH_FLAGS =
|
||||
|
||||
# These are set by configure
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
--- a/ext/dbm/Makefile.in
|
||||
+++ b/ext/dbm/Makefile.in
|
||||
@@ -46,9 +46,8 @@
|
||||
|
||||
|
||||
# auxiliary stuff to find out the extension of ndbm file(s).
|
||||
-ndbm-makedb : ndbm-makedb.c
|
||||
- $(CC) $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) -o ndbm-makedb \
|
||||
- $(srcdir)/ndbm-makedb.c $(LOCAL_LFLAGS) $(XLDFLAGS) @NDBMLIB@ $(LIBS)
|
||||
+ndbm-makedb : fake-ndbm-makedb.c
|
||||
+ $(CC_FOR_BUILD) -o ndbm-makedb $(srcdir)/fake-ndbm-makedb.c
|
||||
|
||||
ndbm-suffixes.h : ndbm-makedb ndbm-suffixes.scm
|
||||
$(GOSH) $(srcdir)/ndbm-suffixes.scm ndbm-suffixes.h
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
--- a/ext/text/gettext.scm
|
||||
+++ b/ext/text/gettext.scm
|
||||
@@ -88,7 +88,7 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Customize this to the appropriate value for your system:
|
||||
|
||||
-(define message-path '("/usr/share/locale"))
|
||||
+(define message-path '("@TERMUX_PREFIX@/share/locale"))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; store meta info for gettext files
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
--- a/ext/tls/gauche-tls.h
|
||||
+++ b/ext/tls/gauche-tls.h
|
||||
@@ -47,10 +47,7 @@
|
||||
|
||||
/* We try these paths to find ca certs on Unix-like platforms */
|
||||
#define SYSTEM_CA_CERT_PATHS \
|
||||
- "/etc/ssl/certs/ca-certificates.crt", /* ubnutu */ \
|
||||
- "/usr/share/pki/ca-trust-source/ca-bundle.trust.crt", /* fedora */ \
|
||||
- "/etc/pki/tls/certs/ca-budle.crt", /* fedora (compat) */ \
|
||||
- "/usr/local/etc/openssl/cert.pem" /* osx homebrew openssl */
|
||||
+ "@TERMUX_PREFIX@/etc/tls/cert.pem"
|
||||
|
||||
#if defined(GAUCHE_USE_AXTLS)
|
||||
#include "axTLS/ssl/ssl.h"
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
|
||||
#include <string.h>
|
||||
#include <fcntl.h>
|
||||
|
||||
#define PATHMAX 1023
|
||||
|
||||
int
|
||||
main(int argc, char **argv)
|
||||
{
|
||||
char pathname[PATHMAX+1];
|
||||
char *suffixes[] = { ".dir", ".peg" };
|
||||
|
||||
if (argc != 2 || strlen(argv[1]) + strlen(suffixes[0]) > sizeof(pathname)-1)
|
||||
return 1;
|
||||
|
||||
for (size_t i = 0; i < sizeof(suffixes) / sizeof(char *); i++) {
|
||||
strncpy(pathname, argv[1], sizeof(pathname)-1);
|
||||
strncat(pathname, suffixes[i], sizeof(pathname)-1);
|
||||
if (creat(pathname, 0777) < 0)
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
--- a/gc/os_dep.c
|
||||
+++ b/gc/os_dep.c
|
||||
@@ -4737,7 +4737,7 @@
|
||||
/* There are faster ways to do this, but hopefully this */
|
||||
/* isn't time critical. */
|
||||
(void)snprintf(cmd_buf, sizeof(cmd_buf),
|
||||
- "/usr/bin/addr2line -f -e %s 0x%lx",
|
||||
+ "@TERMUX_PREFIX@/bin/addr2line -f -e %s 0x%lx",
|
||||
exe_name, (unsigned long)info[i].ci_pc);
|
||||
cmd_buf[sizeof(cmd_buf) - 1] = '\0';
|
||||
old_preload = GETENV("LD_PRELOAD");
|
||||
|
|
@ -0,0 +1,31 @@
|
|||
--- a/lib/gauche/configure.scm
|
||||
+++ b/lib/gauche/configure.scm
|
||||
@@ -305,16 +305,16 @@
|
||||
(cf-define 'PACKAGE_BUGREPORT (S (~ p'bug-report)))
|
||||
(cf-define 'PACKAGE_URL (S (~ p'url)))
|
||||
|
||||
- (cf-subst 'SHELL (or (sys-getenv "CONFIG_SHELL") "/bin/sh"))
|
||||
+ (cf-subst 'SHELL (or (sys-getenv "CONFIG_SHELL") "@TERMUX_PREFIX@/bin/sh"))
|
||||
(cf-subst 'LIBOBJS "")
|
||||
(cf-subst 'MFLAGS "")
|
||||
(cf-subst 'MAKEFLAGS "")
|
||||
|
||||
- (cf-subst 'default_prefix "/usr/local")
|
||||
+ (cf-subst 'default_prefix "@TERMUX_PREFIX@")
|
||||
(cf-subst 'prefix "NONE") ;will be replaced by cf-output
|
||||
(cf-subst 'exec_prefix "NONE") ;will be replaced by cf-output
|
||||
(cf-subst 'bindir "${exec_prefix}/bin")
|
||||
- (cf-subst 'sbindir "${exec_prefix}/sbin")
|
||||
+ (cf-subst 'sbindir "${exec_prefix}/bin")
|
||||
(cf-subst 'libexecdir "${exec_prefix}/libexec")
|
||||
(cf-subst 'datarootdir "${prefix}/share")
|
||||
(cf-subst 'datadir "${datarootdir}")
|
||||
@@ -322,7 +322,7 @@
|
||||
(cf-subst 'sharedstatedir "${prefix}/com")
|
||||
(cf-subst 'localstatedir "${prefix}/var")
|
||||
(cf-subst 'includedir "${prefix}/include")
|
||||
- (cf-subst 'oldincludedir "/usr/include")
|
||||
+ (cf-subst 'oldincludedir "@TERMUX_PREFIX@/include")
|
||||
(cf-subst 'docdir "${datarootdir}/doc/${PACKAGE_TARNAME}")
|
||||
(cf-subst 'infodir "${datarootdir}/info")
|
||||
(cf-subst 'htmldir "${docdir}")
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
--- a/lib/gauche/interactive/toplevel.scm
|
||||
+++ b/lib/gauche/interactive/toplevel.scm
|
||||
@@ -331,7 +331,7 @@
|
||||
(run-process `("cmd.exe" "/c" ,sh "-c" ,line) :wait #t)
|
||||
(run-process `("cmd.exe" "/c" ,line) :wait #t))]
|
||||
[else
|
||||
- (let1 sh (or (sys-getenv "SHELL") "/bin/sh")
|
||||
+ (let1 sh (or (sys-getenv "SHELL") "@TERMUX_PREFIX@/bin/sh")
|
||||
(run-process `(,sh "-c" ,line) :wait #t))])
|
||||
*no-value*))
|
||||
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
--- a/lib/gauche/package/util.scm
|
||||
+++ b/lib/gauche/package/util.scm
|
||||
@@ -57,7 +57,7 @@
|
||||
(unless (dry-run)
|
||||
(let1 p (run-process (cond-expand
|
||||
[gauche.os.windows (shell-tokenize-string cmdline 'posix)]
|
||||
- [else `("/bin/sh" "-c" ,cmdline)])
|
||||
+ [else `("@TERMUX_PREFIX@/bin/sh" "-c" ,cmdline)])
|
||||
:input (if stdin-string :pipe :null)
|
||||
:wait #f)
|
||||
(when stdin-string
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
--- a/libsrc/gauche/process.scm
|
||||
+++ b/libsrc/gauche/process.scm
|
||||
@@ -880,7 +880,7 @@
|
||||
[else (error "Invalid :error argument:" stderr)])))
|
||||
(cond [(string? command)
|
||||
(rc (cond-expand [gauche.os.windows `("cmd.exe" "/c" ,command)]
|
||||
- [else `("/bin/sh" "-c" ,command)]))]
|
||||
+ [else `("@TERMUX_PREFIX@/bin/sh" "-c" ,command)]))]
|
||||
[(and (list? command) (every list? command))
|
||||
(apply run-pipeline command
|
||||
:input stdin :output stdout
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
--- a/src/libsys.c
|
||||
+++ b/src/libsys.c
|
||||
@@ -5628,7 +5628,7 @@
|
||||
#if HAVE_MKSTEMP
|
||||
|
||||
#line 450 "libsys.scm"
|
||||
-{char nam[]="/tmp/fileXXXXXX";int fd;
|
||||
+{char nam[]="@TERMUX_PREFIX@/tmp/fileXXXXXX";int fd;
|
||||
SCM_SYSCALL(fd,mkstemp(nam));
|
||||
if ((fd)<(0)){{Scm_SysError("mkstemp failed");}}
|
||||
close(fd);
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
--- a/src/libsys.scm
|
||||
+++ b/src/libsys.scm
|
||||
@@ -447,7 +447,7 @@
|
||||
;; potential security risk. We mimic it's behavior by mkstemp() if possible.
|
||||
(define-cproc sys-tmpnam ()
|
||||
(.if "HAVE_MKSTEMP"
|
||||
- (let* ([nam::(.array char [*]) "/tmp/fileXXXXXX"] [fd::int])
|
||||
+ (let* ([nam::(.array char [*]) "@TERMUX_PREFIX@/tmp/fileXXXXXX"] [fd::int])
|
||||
(SCM_SYSCALL fd (mkstemp nam))
|
||||
(when (< fd 0) (Scm_SysError "mkstemp failed"))
|
||||
(close fd)
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
--- a/src/system.c
|
||||
+++ b/src/system.c
|
||||
@@ -419,7 +419,7 @@
|
||||
const char *s;
|
||||
if ((s = Scm_GetEnv("TMPDIR")) != NULL) return SCM_MAKE_STR_COPYING(s);
|
||||
if ((s = Scm_GetEnv("TMP")) != NULL) return SCM_MAKE_STR_COPYING(s);
|
||||
- else return SCM_MAKE_STR("/tmp"); /* fallback */
|
||||
+ else return SCM_MAKE_STR("@TERMUX_PREFIX@/tmp"); /* fallback */
|
||||
#endif /*!GAUCHE_WINDOWS*/
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue