From e32ba6294781691846c3ab19281fe977350b4d0f Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Sat, 26 Sep 2026 15:30:53 -0300 Subject: preparation cleanup for RNT integration --- lib/scl/executor.ml | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 lib/scl/executor.ml (limited to 'lib/scl/executor.ml') diff --git a/lib/scl/executor.ml b/lib/scl/executor.ml deleted file mode 100644 index 5fadc6d..0000000 --- a/lib/scl/executor.ml +++ /dev/null @@ -1,29 +0,0 @@ -let default_batch = 50 - -type cursor_batch = {cursor_id: string; rows: Tuple.materialized list; has_more: bool} -type exec_result = Batch of cursor_batch | Closed of Sublanguage_types.transition_delta - -module Make (NT : Nt.S) = struct - module DrlExec = Drl.Executor.Make (NT) - - module Error = struct - open Condition - - (* TODO: more structure *) - let cursor_error msg = condition "cursor-error" msg empty - end - - let ( let* ) = Result.bind - - let execute (ctx : Sublanguage_context.t) (stmt : Ast.statement) : - (exec_result, Condition.t) result = - ignore default_batch; - match stmt with - | Ast.Begin _ -> Error (Error.cursor_error "cursors not yet implemented") - | Ast.Fetch _ -> Error (Error.cursor_error "cursors not yet implemented") - | Ast.Close _ -> - let* () = Ok () in - Ok (Closed ctx.branch#multigroups) -end - -module Memory = Make (Nt.Memory) -- cgit v1.2.3