From 3a170716a739f47318567c031df8ca165862504f Mon Sep 17 00:00:00 2001 From: rbiv Date: Sat, 6 Sep 2025 10:39:56 +0000 Subject: [PATCH] Add tilde_utils --- tilde_utils.moo | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 tilde_utils.moo diff --git a/tilde_utils.moo b/tilde_utils.moo new file mode 100644 index 0000000..efa5e7d --- /dev/null +++ b/tilde_utils.moo @@ -0,0 +1,29 @@ +@create $generic_utils named "Tilde Utilities" +@property #0.tilde_utils #170 + +@describe $tilde_utils as "This is the Tilde Utilities utility package. See `help $tilde_utils' for more details." +@set $tilde_utils.help_msg to {"Mirrored functions:", " curl (STR [, INT , INT timeout]) -- See `help curl()`", " exec (LIST command[, STR input][, LIST environment variables]) -- See `help eval()`"} + +@verb $tilde_utils:exec tnt +@program $tilde_utils:exec +{command, ?input=#-1, ?env_vars=#-1} = args; +if (env_vars != #-1) + return exec (command, input, env_vars); +elseif (input != #-1) + return exec (command, input); +else + return exec (command); +endif +. + +@verb $tilde_utils:curl tnt +@program $tilde_utils:curl +{url, ?include_headers=#-1, ?timeout=#-1} = args; +if (timeout != #-1) + return curl (url, include_headers, timeout); +elseif (include_headers != #-1) + return curl (url, include_headers); +else + return curl (url); +endif +.