coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Handler dispatch in OCaml: look up handler dict, aser body directly

Browse Source 
Skip the SX api function entirely. The OCaml handler interception
looks up handler:ex-{slug} in the env, extracts the body, and calls
aser directly with the full global env. This avoids the double-eval
problem where eval-expr evaluates HTML tags as function calls and
then tries to call the result.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-01 14:42:02 +00:00
parent 3d8e3363ce
commit bdb54d5919
1 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
hosts/ocaml/bin/sx_server.ml
View File

@@ -2650,11 +2650,9 @@ let http_mode port =
let is_sx = path = "/sx/" || path = "/sx"
|| (String.length path > 4 && String.sub path 0 4 = "/sx/") in
if is_sx && is_handler_path then begin
(* Handler dispatch — evaluate handler, return raw fragment *)
(* Handler dispatch — look up handler dict, evaluate body, aser result *)
let response =
try
let api_fn = env_get env "api" in
(* Extract handler slug from path: ...api.SLUG)... *)
let slug =
let rec find_api s i =
if i + 5 > String.length s then ""
@@ -2664,17 +2662,19 @@ let http_mode port =
String.sub s start (end_ - start)
else find_api s (i + 1) in
find_api path 0 in
let result = Sx_ref.cek_call api_fn (List [String slug]) in
(* Render to SX wire format or HTML depending on content type *)
let body_str = match result with
| String s | SxExpr s -> s
| Nil -> ""
| _ ->
let call = List [Symbol "aser"; List [Symbol "quote"; result]; Env env] in
(match Sx_ref.eval_expr call (Env env) with
| String s | SxExpr s -> s
| v -> Sx_types.inspect v) in
http_response ~content_type:"text/sx; charset=utf-8" body_str
let handler_key = "handler:ex-" ^ slug in
let hdef = try env_get env handler_key with _ -> Nil in
if hdef = Nil then
http_response ~status:404 ~content_type:"text/sx; charset=utf-8"
(Printf.sprintf "(div :class \"p-4 text-rose-600\" \"Handler not found: %s\")" handler_key)
else
let body = match hdef with Dict d -> (match Hashtbl.find_opt d "body" with Some v -> v | None -> Nil) | _ -> Nil in
(* Evaluate the body in the global env — aser renders HTML tags to wire format *)
let aser_call = List [Symbol "aser"; List [Symbol "quote"; body]; Env env] in
let body_str = match Sx_ref.eval_expr aser_call (Env env) with
| String s | SxExpr s -> s
| v -> Sx_types.inspect v in
http_response ~content_type:"text/sx; charset=utf-8" body_str
with e ->
Printf.eprintf "[handler] Error for %s: %s\n%!" path (Printexc.to_string e);
http_response ~status:500 ~content_type:"text/sx; charset=utf-8"