30 lines
964 B
Plaintext
30 lines
964 B
Plaintext
@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 <url> [, INT <include_headers>, 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
|
|
.
|