From cf0fffed43d0ca7618cd0013411151e057b7a32a Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 18 May 2026 12:35:26 -0300 Subject: RNT interface Co-authored-by: Estevan Castilho --- lib/vcl/sublanguage.ml | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 lib/vcl/sublanguage.ml (limited to 'lib/vcl/sublanguage.ml') diff --git a/lib/vcl/sublanguage.ml b/lib/vcl/sublanguage.ml new file mode 100644 index 0000000..f9ca629 --- /dev/null +++ b/lib/vcl/sublanguage.ml @@ -0,0 +1,19 @@ +module Make (NT : Nt.S) = struct + module Exec = Executor.Make (NT) + + type configuration = unit + type ast = Ast.statement + type error = Exec.error + + let name = "vcl" + let parse _ = Ok () + + let parse_sexp = function + | Sexplib.Sexp.(List [ Atom "use"; Atom branch ]) -> Ok (Ast.Use branch) + | sexp -> + Error (Exec.ParseError ("unrecognized vcl command: " ^ Sexplib.Sexp.to_string sexp)) + + let execute = Exec.execute + + let sexp_of_error = Exec.sexp_of_error +end -- cgit v1.2.3