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.
53 lines
1.7 KiB
Text
53 lines
1.7 KiB
Text
;;; rpc-client.lsp — send one S-expression, read one back.
|
|
;;;
|
|
;;; Demonstrates the three-way symmetry: the CLIENT is also portable
|
|
;;; across Python, C, and asm. Any client impl talks to any server impl
|
|
;;; because they agree on S-expression framing.
|
|
;;;
|
|
;;; Usage:
|
|
;;; python3 lumbda.py --fast examples/rpc-client.lsp
|
|
;;; ./c/lumbda examples/rpc-client.lsp
|
|
;;; ./asm/lumbda < examples/rpc-client.lsp
|
|
;;;
|
|
;;; Override *target-port* before loading to hit either rpc-server (9080)
|
|
;;; or repl-server (9081).
|
|
|
|
(define *host* "127.0.0.1")
|
|
(define *target-port* 9080)
|
|
|
|
;; Serialize a form to a string — same pattern as rpc-server's
|
|
;; response->string. Avoids open-output-string so this runs in asm.
|
|
(define (form->string v)
|
|
(cond
|
|
((number? v) (number->string v))
|
|
((symbol? v) (symbol->string v))
|
|
((null? v) "()")
|
|
((pair? v) (string-append "(" (list->string v) ")"))
|
|
((string? v) (string-append "\"" v "\""))
|
|
(else "#<unknown>")))
|
|
(define (list->string lst)
|
|
(cond
|
|
((null? lst) "")
|
|
((null? (cdr lst)) (form->string (car lst)))
|
|
(else (string-append (form->string (car lst)) " " (list->string (cdr lst))))))
|
|
|
|
(define (rpc request-form)
|
|
(let ((sock (tcp-connect *host* *target-port*)))
|
|
(tcp-send sock (form->string request-form))
|
|
(let ((resp (tcp-recv sock 8192)))
|
|
(tcp-close sock)
|
|
(if (and resp (> (string-length resp) 0))
|
|
(read-from-string resp)
|
|
'no-response))))
|
|
|
|
(define (demo form)
|
|
(display "→ ") (write form) (newline)
|
|
(display "← ") (write (rpc form)) (newline)
|
|
(newline))
|
|
|
|
(demo '(ping))
|
|
(demo '(add 1 2 3 4 5))
|
|
(demo '(mul 6 7))
|
|
(demo '(fib 30))
|
|
(demo '(echo (hello world)))
|
|
(demo '(nope whatever))
|