liquidsoap-prettier 1.8.2 → 1.8.3

package/tests/liq/clock.liq

@@ -0,0 +1,14 @@
+# Create a new clock and assign it to a list of sources.
+# @category Liquidsoap
+# @param ~sync Synchronization mode. One of: `"auto"`, `"cpu"`, `"passive"` or \
+#              `"none"`. Defaults to `"auto"`, which synchronizes with the CPU \
+#              clock if none of the active sources are attached to their own \
+#              clock (e.g. ALSA input, etc). `"cpu"` always synchronizes with \
+#              the CPU clock. `"none"` removes all synchronization control.
+# @param ~on_error Error callback executed when a streaming error occurs. \
+#                  When passed, all streaming errors are silenced. Intended \
+#                  mostly for debugging purposes.
+def clock.assign_new(~sync="auto", ~id=null, ~on_error=null, sources) =
+  c = clock.create(id=id, sync=sync, on_error=on_error)
+  list.iter(fun (s) -> c.unify(s.clock), sources)
+end

package/tests/liq/cron.liq

@@ -0,0 +1,74 @@
+let cron.tab = ref([])
+
+# Add an entry to the cron tab.
+# @param ~id Optional task ID.
+# @param c Cron entry
+# @param handler Function to execute
+# @method id ID to be used to remove the task.
+# @category Programming
+def cron.add(~id=null, c, handler) =
+  id = id ?? string.id.default(default="cron.task", null)
+
+  if
+    list.exists(fun ({id = i}) -> i == id, cron.tab())
+  then
+    error.raise(
+      error.invalid,
+      "Cron tab entry with ID #{id} already exists!"
+    )
+  end
+
+  let {test} = cron.parse(c)
+  log.info(
+    label="cron",
+    "Adding cron.tab entry #{c} (cron id: #{id})"
+  )
+  cron.tab :=
+    [...cron.tab(), {id = id, cron = c, test = test, handler = handler}]
+
+  {id = id}
+end
+
+# Remove a cron tab entry. ID is returned during
+# the task's registration
+# @category Programming
+def cron.remove(id) =
+  if
+    list.exists(fun ({id = i}) -> i == id, cron.tab())
+  then
+    log.info(
+      label="cron",
+      "Removing cron.tab entry #{id}"
+    )
+    cron.tab := list.filter(fun ({id = i}) -> i != id, cron.tab())
+  else
+    log.important(
+      label="cron",
+      "Cannot remove cron.tab entry #{id}: entry does not exist!"
+    )
+  end
+end
+
+# Main cron thread.
+thread.when(
+  fast=false,
+  every=20.,
+  {0s-30s},
+  {
+    list.iter(
+      fun ({id, cron, test, handler}) ->
+        begin
+          if
+            test()
+          then
+            log.info(
+              label="cron",
+              "Executing cron.tab entry #{cron} (id: #{id})"
+            )
+            thread.run(fast=false, handler)
+          end
+        end,
+      cron.tab()
+    )
+  }
+)

package/tests/liq/error.liq

@@ -0,0 +1,48 @@
+let error.assertion = error.register("assertion")
+let error.clock = error.register("clock")
+let error.eval = error.register("eval")
+let error.file = error.register("file")
+let error.file.cross_device = error.register("file.cross_device")
+let error.http = error.register("http")
+let error.invalid = error.register("invalid")
+let error.json = error.register("json")
+let error.not_found = error.register("not_found")
+let error.output = error.register("output")
+let error.socket = error.register("socket")
+let error.string = error.register("string")
+
+# Ensure that a condition is satisfied (raise `error.assertion` exception
+# otherwise).
+# @category Programming
+# @param c Condition which should be satisfied.
+def assert(c) =
+  if
+    not c
+  then
+    error.raise(
+      error.assertion,
+      "Assertion failed."
+    )
+  end
+end
+
+let error.failure = error.register("failure")
+
+# Major failure.
+# @category Programming
+# @param msg Explanation about the failure.
+def failwith(msg) =
+  error.raise(error.failure, msg)
+end
+
+# Return error kind
+# @category Programming
+def error.kind(err) =
+  error.methods(err).kind
+end
+
+# Return error message
+# @category Programming
+def error.message(err) =
+  error.methods(err).message
+end