Bug fix & add pastebin example

Author: hack3ric

cli/src/main.rs

@@ -67,6 +67,7 @@ fn main() -> anyhow::Result<()> {
       info!("Starting abel-server v{ver} (dev mode)");
 
       let abel_path = tempdir()?;
+      info!("Abel working path: {}", abel_path.path().display().underline());
       let server_args = ServerArgs {
         config,
         abel_path: abel_path.path().into(),

core/src/lua/bootstrap.lua

@@ -9,7 +9,7 @@ function HttpError(obj)
     detail = detail,
   }
   local result_mt = {
-    __call = function(detail)
+    __call = function(self, detail)
       return {
         status = status,
         error = error,

core/src/lua/fs.rs

@@ -250,13 +250,13 @@ impl UserData for LuaFile {
 
     methods.add_async_function("write", |lua, mut args: MultiValue| async move {
       let mut this = check_self_mut_async(lua, args.pop_front())?;
-      for (i, x) in args.iter().cloned().enumerate().skip(1) {
+      for (i, x) in args.iter().cloned().enumerate() {
         let type_name = x.type_name();
         let x = lua
           .coerce_string(x)
           .ok()
           .flatten()
-          .ok_or_else(|| tag_error(lua, i, "string", type_name, 1))?;
+          .ok_or_else(|| tag_error(lua, i + 1, "string", type_name, 1))?;
         if let Err(error) = this
           .with_borrowed_mut(|t| t.0.write_all(x.as_bytes()))
           .await

core/src/task/context.rs

@@ -44,7 +44,7 @@ impl TaskContext {
           _ => continue,
         };
         if let Some(close) = close.transpose()? {
-          close.call(v)?;
+          let _ = close.call::<_, ()>(v);
         }
       }
     }

examples/pastebin.lua

@@ -0,0 +1,64 @@
+-- A simple one-time pastebin.
+--
+-- This example will keep updating with upcoming new features of Abel.
+
+local crypto = require "crypto"
+local fs = require "fs"
+
+local method_not_allowed = HttpError {
+  status = 405,
+  error = "method not allowed",
+}
+
+local function gen_uid()
+  local template = "xxxxxxxx"
+  return (string.gsub(template, "x", function(c)
+    local v = crypto.thread_rng:gen_range(0, 0xf)
+    return string.format('%x', v)
+  end))
+end
+
+function abel.start()
+  fs.mkdir "files"
+end
+
+abel.listen("/", function(req)
+  if req.method ~= "POST" then
+    error(method_not_allowed {
+      allowed = { "POST" },
+      got = req.method,
+    })
+  end
+
+  local content = req.body:to_string()
+  local uid = gen_uid()
+
+  local file <close> = assert(io.open("files/" .. uid, "w"))
+  assert(file:write(content))
+
+  return { uid = uid }
+end)
+
+abel.listen("/:uid", function(req)
+  if req.method ~= "GET" then
+    error(method_not_allowed {
+      allowed = { "GET" },
+      got = req.method,
+    })
+  end
+
+  local uid = req.params.uid
+  if #uid ~= 8 then
+    error { status = 400, error = "invalid UID" }
+  end
+
+  local path = "files/" .. uid
+  local file = io.open(path)
+  if not file then
+    error { status = 404, error = "file not found" }
+  end
+
+  -- This works on POSIX systems, but not Windows
+  assert(os.remove(path))
+  return file:into_stream()
+end)