russell@unturf.com
f7352b51b0
Historical internal name "uncommonlisp" retired in favor of the
public name "lumbda" ahead of lumbda.com going live. Scope of
this commit:
Source files renamed:
uncommonlisp.py -> lumbda.py
asm/uncommonlisp.s -> asm/lumbda.s
c/uncommonlisp.h -> c/lumbda.h
whitepaper/uncommonlisp-whitepaper -> whitepaper/lumbda-whitepaper (.rst + .pdf)
Binaries renamed (tracked ones; c/ was always gitignored):
asm/uncommonlisp, asm/uncommonlisp-gc, asm/uncommonlisp.o,
asm/uncommonlisp-gc.o -> asm/lumbda(-gc)(.o)
c/.gitignore -> ignores lumbda
Internal string updates (sed pass ordered longest-first):
asm/uncommonlisp -> asm/lumbda
c/uncommonlisp -> c/lumbda
uncommonlisp.py -> lumbda.py
UNCOMMONLISP_BIN -> LUMBDA_BIN (asm/test.sh env var)
"uncommonlisp> " -> "lumbda> " (asm REPL prompt baked into binary)
UNCOMMONLISP -> LUMBDA (macros, comments)
uncommonlisp -> lumbda (prose)
Binary portal magic updated:
"ULPORTAL" -> "LUMBDAB1" # "Lumbda Binary v1"
Old portal files are not backward-compatible — this is a deliberate
break since it's the rename moment. S-expression portals already
carry their own ";; lumbda-portal v1" header and remain cleanly
versioned.
WHITEPAPER.pdf / WHITEPAPER.rst symlinks repointed to the renamed
files. Makefile's whitepaper target targets lumbda-whitepaper.pdf.
Not changed (intentional, separate phases):
- Filesystem directory /home/fox/git/uncommonlisp itself
(fox renames locally and the gitlab repo URL in a follow-up)
- tests.py hardcoded cwd=/home/fox/git/uncommonlisp
(matches the current on-disk location; will flip when the
directory rename ships)
- Git history (immutable; old commits still say uncommonlisp,
which is correct — that's what they were)
Verified:
137 asm no-GC + 137 asm GC + 571 Python + 83 C + 189 shared
functional tests all pass under the new names.
bench-gc-http (2000 req): all 4 cells behave as expected
(cells 1/2 flat, 3 leaks, 4 bounded at 1 chunk).
Python REPL, C REPL, asm REPL all start cleanly.
66 lines
2.1 KiB
Text
66 lines
2.1 KiB
Text
;;; http-client-bench.lsp — sequential HTTP load generator in Scheme
|
|
;;;
|
|
;;; Makes N requests to 127.0.0.1:PORT and reports elapsed wall time
|
|
;;; + requests/sec. Uses only the six tcp-* primitives, so it runs
|
|
;;; identically in Python, C, and asm.
|
|
;;;
|
|
;;; The earlier tests/web-benchmark.sh used curl — each curl fork+exec
|
|
;;; costs ~2 ms, swamping actual server work. This client keeps every
|
|
;;; request in-process: that irreducible cost disappears, so the real
|
|
;;; server throughput shows up.
|
|
;;;
|
|
;;; Usage:
|
|
;;; python3 lumbda.py --fast examples/http-client-bench.lsp
|
|
;;; ./c/lumbda examples/http-client-bench.lsp
|
|
;;; ./asm/lumbda < examples/http-client-bench.lsp
|
|
;;;
|
|
;;; Override N or PORT by pre-setting *n-requests* / *port* before load.
|
|
|
|
(define *host* "127.0.0.1")
|
|
(define *port* 8080)
|
|
(define *n-requests* 500)
|
|
(define *path* "/bench")
|
|
|
|
(define *request*
|
|
(string-append
|
|
"GET " *path* " HTTP/1.0\r\n"
|
|
"Host: " *host* "\r\n"
|
|
"Connection: close\r\n\r\n"))
|
|
|
|
;;; Pass snap as arg so heap-restore can rewind per-request
|
|
;;; allocations on asm without invalidating the client loop's
|
|
;;; closure env.
|
|
|
|
(define (one-request)
|
|
(let ((sock (tcp-connect *host* *port*)))
|
|
(if sock
|
|
(begin
|
|
(tcp-send sock *request*)
|
|
(let ((resp (tcp-recv sock 8192)))
|
|
(tcp-close sock)
|
|
(if (and resp (> (string-length resp) 0)) 1 0)))
|
|
0)))
|
|
|
|
(define (client-loop n ok snap)
|
|
(if (= n 0)
|
|
ok
|
|
(let ((got (one-request)))
|
|
(heap-restore snap)
|
|
(client-loop (- n 1) (+ ok got) snap))))
|
|
|
|
(define t0 (current-time-ms))
|
|
(define ok (client-loop *n-requests* 0 (heap-snapshot)))
|
|
(define t1 (current-time-ms))
|
|
|
|
(define elapsed-ms (- t1 t0))
|
|
(define rps
|
|
(if (> elapsed-ms 0)
|
|
(quotient (* *n-requests* 1000) elapsed-ms)
|
|
0))
|
|
|
|
(display "target : http://") (display *host*) (display ":") (display *port*)
|
|
(display *path*) (newline)
|
|
(display "requests : ") (display *n-requests*) (newline)
|
|
(display "ok : ") (display ok) (newline)
|
|
(display "elapsed : ") (display elapsed-ms) (display " ms") (newline)
|
|
(display "rps : ") (display rps) (newline)
|