Rename JEMACS_STATIC -> JERBOA_STATIC for project-neutral naming
ober
aa2be69dc7493e593dac906f55ee2ff46bbb6aad
--- a/docs/jerboa-edge.md +++ b/docs/jerboa-edge.md @@ -732,7 +732,7 @@ curl localhost:8080/api/stats - [x] 3.1 **Static musl binary** — `make edge-static` produces a fully static ELF via `docker run jerboa21/jerboa` (musl Chez + Rust toolchain + WPO). **Verified: 12MB, zero runtime dependencies.** All native FFI symbols - registered via `Sforeign_symbol`; `JEMACS_STATIC=1` auto-set at startup + registered via `Sforeign_symbol`; `JERBOA_STATIC=1` auto-set at startup to bypass `load-shared-object` calls. Deploy with `scp edge host:/usr/local/bin/`. - [x] 3.2 **TLS termination** — Optional `EDGE_TLS_CERT` / `EDGE_TLS_KEY` --- a/lib/std/db/sqlite-native.sls +++ b/lib/std/db/sqlite-native.sls @@ -26,8 +26,8 @@ (import (chezscheme)) (define _native-loaded - ;; In static builds (JEMACS_STATIC=1), symbols are pre-registered via Sforeign_symbol. - (let ([static? (let ([v (getenv "JEMACS_STATIC")]) (and v (not (string=? v "")) (not (string=? v "0"))))]) + ;; In static builds (JERBOA_STATIC=1), symbols are pre-registered via Sforeign_symbol. + (let ([static? (let ([v (getenv "JERBOA_STATIC")]) (and v (not (string=? v "")) (not (string=? v "0"))))]) (if static? #t (or (guard (e [#t #f]) (load-shared-object "libjerboa_native.so") #t) --- a/lib/std/misc/process.sls +++ b/lib/std/misc/process.sls @@ -253,7 +253,7 @@ ;; ========== Process Control ========== (define _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f (or (guard (e [#t #f]) (load-shared-object "libc.so.7")) --- a/lib/std/net/io.sls +++ b/lib/std/net/io.sls @@ -63,7 +63,7 @@ ;; ========== FFI for raw socket ops ========== (define _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f (load-shared-object #f)))) --- a/lib/std/net/resolve.sls +++ b/lib/std/net/resolve.sls @@ -28,7 +28,7 @@ ;; ========== FFI: getaddrinfo ========== (define _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f (load-shared-object #f)))) --- a/lib/std/net/sendfile.sls +++ b/lib/std/net/sendfile.sls @@ -20,7 +20,7 @@ ;; FFI (define _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f (load-shared-object #f)))) --- a/lib/std/net/tcp.sls +++ b/lib/std/net/tcp.sls @@ -33,7 +33,7 @@ ;; Load libc for POSIX socket functions (define _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f ; symbols already in static binary (load-shared-object #f)))) --- a/lib/std/net/udp.sls +++ b/lib/std/net/udp.sls @@ -15,7 +15,7 @@ ;; ========== FFI ========== (define _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f (load-shared-object #f)))) --- a/lib/std/nrepl.sls +++ b/lib/std/nrepl.sls @@ -1339,7 +1339,7 @@ (reverse acc) (lp (cdr l) (- n 1) (cons (car l) acc))))) (def _libc-loaded - (let ([v (getenv "JEMACS_STATIC")]) + (let ([v (getenv "JERBOA_STATIC")]) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f (load-shared-object #f)))) --- a/lib/std/os/epoll-native.sls +++ b/lib/std/os/epoll-native.sls @@ -17,8 +17,8 @@ (import (chezscheme)) (define _native-loaded - ;; In static builds (JEMACS_STATIC=1), symbols are pre-registered via Sforeign_symbol. - (let ([static? (let ([v (getenv "JEMACS_STATIC")]) (and v (not (string=? v "")) (not (string=? v "0"))))]) + ;; In static builds (JERBOA_STATIC=1), symbols are pre-registered via Sforeign_symbol. + (let ([static? (let ([v (getenv "JERBOA_STATIC")]) (and v (not (string=? v "")) (not (string=? v "0"))))]) (if static? #t (or (guard (e [#t #f]) (load-shared-object "libjerboa_native.so") #t) --- a/lib/std/os/temporaries.sls +++ b/lib/std/os/temporaries.sls @@ -11,7 +11,7 @@ (import (chezscheme)) (define _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f ; symbols already in static binary (or (guard (e [#t #f]) (load-shared-object "libc.so.7")) --- a/lib/std/repl/server.sls +++ b/lib/std/repl/server.sls @@ -67,7 +67,7 @@ ;; ========== TCP Helpers (minimal, self-contained) ========== ;; Load libc for socket functions (define _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f (or (guard (e [#t #f]) (load-shared-object "libc.so.7")) --- a/lib/std/web/fastcgi.sls +++ b/lib/std/web/fastcgi.sls @@ -27,7 +27,7 @@ ;; ========== FFI ========== (define _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f (load-shared-object #f)))) --- a/lib/std/web/rack.sls +++ b/lib/std/web/rack.sls @@ -22,7 +22,7 @@ ;; ========== FFI for TCP (same approach as std/net/tcp) ========== (define _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f (load-shared-object #f)))) --- a/src/std/nrepl.ss +++ b/src/std/nrepl.ss @@ -1355,7 +1355,7 @@ ;; ================================================================ (def _libc-loaded - (let ((v (getenv "JEMACS_STATIC"))) + (let ((v (getenv "JERBOA_STATIC"))) (if (and v (not (string=? v "")) (not (string=? v "0"))) #f (load-shared-object #f)))) --- a/support/build-static-script.sh +++ b/support/build-static-script.sh @@ -443,7 +443,7 @@ static const char *write_program_tmpfile(void) { int main(int argc, const char *argv[]) { /* Signal stdlib modules to skip (load-shared-object ...) calls */ - putenv("JEMACS_STATIC=1"); + putenv("JERBOA_STATIC=1"); Sscheme_init(NULL); Sregister_boot_file_bytes("petite", (void *)petite_boot_data, petite_boot_size); Sregister_boot_file_bytes("scheme", (void *)scheme_boot_data, scheme_boot_size);