liquidsoap-prettier 1.8.2 → 1.8.3

package/tests/liq/predicate.liq

@@ -0,0 +1,106 @@
+predicate = ()
+
+# Detect when a predicate becomes true.
+# @category Programming
+# @param ~init Detect at beginning.
+# @param p Predicate.
+def predicate.activates(~init=false, p) =
+  last = ref(not init)
+  fun () ->
+    begin
+      cur = p()
+      ans = (not last()) and cur
+      last := cur
+      ans
+    end
+end
+
+# Become true once every time a predicate is true.
+# @category Programming
+# @param p Predicate.
+def predicate.once(p) =
+  predicate.activates(init=true, p)
+end
+
+# Limit the number of times a predicate is true is a row.
+# @category Programming
+# @param n Number of times the predicate is allowed to be true.
+# @param p Predicate.
+def predicate.at_most(n, p) =
+  k = ref(0)
+  fun () ->
+    begin
+      if
+        p()
+      then
+        ref.incr(k)
+        k() <= n
+      else
+        k := 0
+        false
+      end
+    end
+end
+
+# Detect when a predicate changes.
+# @category Programming
+# @param p Predicate.
+def predicate.changes(p) =
+  last = ref(p())
+  fun () ->
+    begin
+      cur = p()
+      ans = (cur != last())
+      last := cur
+      ans
+    end
+end
+
+# First occurrence of a predicate.
+# @category Programming
+# @param p Predicate.
+def predicate.first(p) =
+  done = ref(false)
+  fun () ->
+    begin
+      if
+        done()
+      then
+        false
+      else
+        if
+          p()
+        then
+          done := true
+          true
+        else
+          false
+        end
+      end
+    end
+end
+
+# Predicate which is true when a signal is sent. The returned predicate has a
+# method `signal` to send the signal.
+# @category Programming
+# @method signal Send a signal.
+def predicate.signal() =
+  state = ref(false)
+
+  def signal() =
+    state := true
+  end
+
+  def p() =
+    if
+      state()
+    then
+      state := false
+      true
+    else
+      false
+    end
+  end
+
+  p.{signal = signal}
+end

package/tests/liq/process.liq

@@ -0,0 +1,93 @@
+# Perform a shell call and return its output.
+# @category System
+# @param ~timeout Cancel process after `timeout` has elapsed. Ignored if negative.
+# @param ~env Process environment
+# @param ~inherit_env Inherit calling process's environment when `env` parameter is empty.
+# @param ~log_errors Log details if the command does not return 0.
+# @param command Command to run
+def process.read(
+  ~timeout=(-1.),
+  ~env=[],
+  ~inherit_env=true,
+  ~log_errors=true,
+  command
+) =
+  p = process.run(timeout=timeout, env=env, inherit_env=inherit_env, command)
+  if
+    log_errors and (p.status != "exit" or p.status.code != 0)
+  then
+    log.important(
+      "Failed to execute `#{command}`: #{p.status} (#{p.status.code}) #{
+        p.stdout
+      } #{p.stderr}"
+    )
+  end
+
+  p.stdout
+end
+
+# Perform a shell call and return the list of its output lines.
+# @category System
+# @param ~timeout Cancel process after `timeout` has elapsed. Ignored if negative.
+# @param ~env Process environment
+# @param ~inherit_env Inherit calling process's environment when `env` parameter is empty.
+# @param ~log_errors Log details if the command does not return 0.
+# @param command Command to run
+def process.read.lines(
+  ~timeout=(-1.),
+  ~env=[],
+  ~inherit_env=true,
+  ~log_errors=true,
+  command
+) =
+  s =
+    process.read(
+      timeout=timeout,
+      env=env,
+      inherit_env=inherit_env,
+      log_errors=log_errors,
+      command
+    )
+
+  r/\r?\n/.split(s)
+end
+
+# Return true if process exited with 0 code.
+# @category System
+# @param ~timeout Cancel process after `timeout` has elapsed. Ignored if negative.
+# @param ~env Process environment
+# @param ~inherit_env Inherit calling process's environment when `env` parameter is empty.
+# @param command Command to test
+def process.test(~timeout=(-1.), ~env=[], ~inherit_env=true, command) =
+  p = process.run(timeout=timeout, env=env, inherit_env=inherit_env, command)
+  p.status == "exit" and p.status.code == 0
+end
+
+# Read some value from standard input (console).
+# @category System
+# @param ~hide Hide typed characters (for passwords).
+def read(~hide=false) =
+  if
+    hide
+  then
+    process.run(
+      "stty -echo"
+    )
+  end
+  s =
+    list.hd(
+      default="",
+      process.read.lines(
+        "read BLA && echo $BLA"
+      )
+    )
+  if
+    hide
+  then
+    process.run(
+      "stty echo"
+    )
+  end
+  print("")
+  s
+end

package/tests/liq/profiler.liq

@@ -0,0 +1,5 @@
+# Print profiling information.
+# @category Liquidsoap
+def profiler.print() =
+  print(profiler.stats.string())
+end