From f9097a0562ea8b40d40a19059578a9280b945de4 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 18 May 2026 12:41:08 -0300 Subject: cleanup root --- config/config-unix.sexp | 4 ++++ config/config.sexp | 5 +++++ config/http_demo_commands.sexp | 4 ++++ 3 files changed, 13 insertions(+) create mode 100644 config/config-unix.sexp create mode 100644 config/config.sexp create mode 100644 config/http_demo_commands.sexp (limited to 'config') diff --git a/config/config-unix.sexp b/config/config-unix.sexp new file mode 100644 index 0000000..7598840 --- /dev/null +++ b/config/config-unix.sexp @@ -0,0 +1,4 @@ +(server + (storage (memory)) + (transport (tcp + (path "/tmp/sakura.sock")))) diff --git a/config/config.sexp b/config/config.sexp new file mode 100644 index 0000000..67a48a5 --- /dev/null +++ b/config/config.sexp @@ -0,0 +1,5 @@ +(server + (nt (sqlite "/tmp/sakura.db")) + (transport (tcp + (address "127.0.0.1") + (port 7777)))) diff --git a/config/http_demo_commands.sexp b/config/http_demo_commands.sexp new file mode 100644 index 0000000..680831f --- /dev/null +++ b/config/http_demo_commands.sexp @@ -0,0 +1,4 @@ +(prl (LoadLibrary "C:/Users/mague/source/repos/_build/default/plugin/lib/plugin.cmxs")) +(prl (DefineFunctionPredicate ((name "http.get") (schema (("url" "string") ("status_code" "string") ("body" "string"))) (symbol "http.get") (purity Pure) (cardinality ConstrainedFinite)))) +(drl (Select (Const (("url" (Str "https://example.com")))) (Base "public:http.get"))) +(drl (Join (url) (Const (("url" (Str "https://json.org/example.html")))) (Base "public:http.get"))) -- cgit v1.2.3