From 97960adb8426e5270fe16b027e82a2c61674f821 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 27 Apr 2026 23:24:19 -0300 Subject: Foreign call PRL (#67) --- http_demo_commands.sexp | 4 ++++ 1 file changed, 4 insertions(+) create mode 100644 http_demo_commands.sexp (limited to 'http_demo_commands.sexp') diff --git a/http_demo_commands.sexp b/http_demo_commands.sexp new file mode 100644 index 0000000..680831f --- /dev/null +++ b/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