Improve try()

Author: sparr

docs/modules/pico8lib.functions.html

@@ -96,7 +96,7 @@ <h2><a href="#Local_Functions">Local Functions</a></h2>
 	<td class="summary">Create a memoized version of a single parameter function</td>
 	</tr>
 	<tr>
-	<td class="name" nowrap><a href="#try">try (t, c[, f])</a></td>
+	<td class="name" nowrap><a href="#try">try (t[, c][, f], ...)</a></td>
 	<td class="summary">try/catch/finally implemented using coroutine return codes</td>
 	</tr>
 </table>
@@ -173,7 +173,7 @@ <h3>Returns:</h3>
 </dd>
     <dt>
     <a name = "try"></a>
-    <strong>try (t, c[, f])</strong>
+    <strong>try (t[, c][, f], ...)</strong>
     </dt>
     <dd>
     try/catch/finally implemented using coroutine return codes
@@ -188,14 +188,26 @@ <h3>Parameters:</h3>
         <li><span class="parameter">c</span>
             <span class="types"><span class="type">function</span></span>
          function to call if t raises an error
+         (<em>optional</em>)
         </li>
         <li><span class="parameter">f</span>
             <span class="types"><span class="type">function</span></span>
          function to call if t or c succeeds without error
          (<em>optional</em>)
         </li>
+        <li><span class="parameter">...</span>
+         Additional parameters that will be passed to <code>t</code>, <code>c</code>, and <code>f</code>
+        </li>
     </ul>
 
+    <h3>Returns:</h3>
+    <ol>
+        <li>
+           <span class="types"><span class="type">bool</span></span>
+        Did <code>t</code> exit without error?</li>
+        <li>
+        Error message or successful return value from <code>t</code></li>
+    </ol>
 
 
 
@@ -208,7 +220,7 @@ <h3>Parameters:</h3>
 </div> <!-- id="main" -->
 <div id="about">
 <i>generated by <a href="http://github.com/lunarmodules/LDoc">LDoc 1.5.0</a></i>
-<i style="float:right;">Last updated 2024-09-08 14:28:56 </i>
+<i style="float:right;">Last updated 2024-09-08 19:10:26 </i>
 </div> <!-- id="about" -->
 </div> <!-- id="container" -->
 </body>

pico8lib/functions.lua

@@ -35,21 +35,26 @@ end
 
 --- try/catch/finally implemented using coroutine return codes
 -- @tparam function t function to always call first
--- @tparam function c function to call if t raises an error
+-- @tparam[opt] function c function to call if t raises an error
 -- @tparam[opt] function f function to call if t or c succeeds without error
-local function try(t, c, f)
+-- @param ... Additional parameters that will be passed to `t`, `c`, and `f`
+-- @treturn bool Did `t` exit without error?
+-- @return Error message or successful return value from `t`
+local function try(t, c, f, ...)
  -- originally from https://www.lexaloffle.com/bbs/?pid=72820
  -- "enjoy, and if you like it feel free to kick a buck to my patreon."
  -- https://www.patreon.com/sharkhugseniko
  local co = cocreate(t)
  local s, m = true
+ -- This loop can be omitted and the contents run just once if `t` cannot contain `yield()`
  while s and costatus(co) ~= "dead" do
-  s, m = coresume(co)
-  if not s then
-   c(m)
+  s, m = coresume(co, ...)
+  if not s and c then
+   c(m, ...)
   end
  end
  if f then
-  f()
+  f(...)
  end
+ return s, m
 end