From e32ba6294781691846c3ab19281fe977350b4d0f Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Sat, 26 Sep 2026 15:30:53 -0300
Subject: preparation cleanup for RNT integration

---
 lib/vcl/ast.ml         |  1 -
 lib/vcl/executor.ml    |  9 ---------
 lib/vcl/sublanguage.ml | 22 ----------------------
 3 files changed, 32 deletions(-)
 delete mode 100644 lib/vcl/ast.ml
 delete mode 100644 lib/vcl/executor.ml
 delete mode 100644 lib/vcl/sublanguage.ml

(limited to 'lib/vcl')

diff --git a/lib/vcl/ast.ml b/lib/vcl/ast.ml
deleted file mode 100644
index ef573c0..0000000
--- a/lib/vcl/ast.ml
+++ /dev/null
@@ -1 +0,0 @@
-type statement = Use of string
diff --git a/lib/vcl/executor.ml b/lib/vcl/executor.ml
deleted file mode 100644
index ff95583..0000000
--- a/lib/vcl/executor.ml
+++ /dev/null
@@ -1,9 +0,0 @@
-module Make (NT : Nt.S) = struct
-  let execute (ctx : Sublanguage_context.t) (stmt : Ast.statement) :
-      (Sublanguage_types.result, Condition.t) result =
-    match stmt with
-    | Ast.Use branch_name ->
-        Result.map (fun delta -> Sublanguage_types.Transition delta) (ctx.switch_branch branch_name)
-
-  let _ = (module NT : Nt.S)
-end
diff --git a/lib/vcl/sublanguage.ml b/lib/vcl/sublanguage.ml
deleted file mode 100644
index 437c93b..0000000
--- a/lib/vcl/sublanguage.ml
+++ /dev/null
@@ -1,22 +0,0 @@
-module Make (NT : Nt.S) = struct
-  module Error = struct
-    open Condition
-
-    let unrecognized_command expr =
-      condition "unrecognized-command" "Unrecognized command" ("expression" |=| of_sexp expr)
-  end
-
-  module Exec = Executor.Make (NT)
-
-  type configuration = unit
-  type ast = Ast.statement
-
-  let name = "vcl"
-  let parse _ = Ok ()
-
-  let parse_sexp = function
-    | Sexplib.Sexp.(List [Atom "use"; Atom branch]) -> Ok (Ast.Use branch)
-    | sexp -> Error (Error.unrecognized_command sexp)
-
-  let execute = Exec.execute
-end
-- 
cgit v1.2.3